home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / TOOL_USE.ZIP / TOOLS.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1989-03-01  |  4.3 KB  |  93 lines
  1.  
  2. (*
  3.  * Copyright 1987, 1989 Samuel H. Smith;  All rights reserved
  4.  *
  5.  * This is a component of the ProDoor System.
  6.  * Do not distribute modified versions without my permission.
  7.  * Do not remove or alter this notice or any other copyright notice.
  8.  * If you use this in your own program you must distribute source code.
  9.  * Do not use any of this in a commercial product.
  10.  *
  11.  *)
  12.  
  13. (*
  14.  * Top level unit for the Tool Shop Tools Library (3-1-89)
  15.  *
  16.  *)
  17.  
  18. {$i prodef.inc}
  19.  
  20. unit Tools;
  21.  
  22. interface
  23.  
  24.    uses Dos, MDosIO, OpenShare;
  25.  
  26.    {$I \tinc\anystring.inc}  (* general string declaration *)
  27.    {$I \tinc\givetime.int}   (* give up time under doubledos *)
  28.    {$I \tinc\ftoa.int}       (* float to ascii conversion *)
  29.    {$I \tinc\atof.int}       (* ascii to float conversion *)
  30.    {$I \tinc\atoi.int}       (* ascii to integer conversion *)
  31.    {$I \tinc\itoa1.int}      (* integer to ascii conversion *)
  32.    {$I \tinc\stof.int}       (* basic single to floating conversion *)
  33.    {$I \tinc\stoa.int}       (* single to ascii conversion *)
  34.    {$I \tinc\dtof.int}       (* basic double to floating conversion *)
  35.    {$I \tinc\itoh.int}       (* integer to hex conversion *)
  36.    {$I \tinc\itou.int}       (* integer to unsigned-real conversion *)
  37.    {$I \tinc\ltor.int}       (* long-integer to real conversion *)
  38.    {$I \tinc\rempath.int}    (* remove/manipulate filename paths *)
  39.    {$I \tinc\iswild.int}     (* is a filename a wildcard? *)
  40.    {$I \tinc\stoupper.int}   (* map string to upper case *)
  41.    {$I \tinc\filesize.int}   (* get size of a file *)
  42.    {$I \tinc\pattern.int}    (* wildcard filename pattern comparison *)
  43.    {$I \tinc\sysdate2.int}   (* get system time string formats, mm-dd-yy & hh:mm *)
  44.    {$I \tinc\gettime.int}    (* get system time in seconds *)
  45.    {$I \tinc\delay.int}      (* delay function based on give-up-time and gettime *)
  46.    {$I \tinc\delspace.int}   (* delete all spaces from a string *)
  47.    {$I \tinc\replstr.int}    (* perform string replacements *)
  48.    {$I \tinc\getenv.int}     (* get environment variables *)
  49.    {$I \tinc\varstr.int}     (* variable allocation string library *)
  50.    {$I \tinc\getfile3.int}   (* expand wildcard file lists *)
  51.    {$I \tinc\ljust.int}      (* left justify strings *)
  52.    {$I \tinc\bitmap.int}     (* manipulate bit maps *)
  53.    {$I \tinc\flags.int}      (* manipulate bit flags *)
  54.    {$I \tinc\appendc.int}    (* append character to string *)
  55.  
  56.  
  57. implementation
  58.  
  59.    {$I \tinc\givetime.inc}   (* give up time under doubledos *)
  60.    {$I \tinc\ftoa.inc}       (* float to ascii conversion *)
  61.    {$I \tinc\atof.inc}       (* ascii to float conversion *)
  62.    {$I \tinc\atoi.inc}       (* ascii to integer conversion *)
  63.    {$I \tinc\itoa1.inc}      (* integer to ascii conversion *)
  64.    {$I \tinc\stof.inc}       (* basic single to floating conversion *)
  65.    {$I \tinc\stoa.inc}       (* single to ascii conversion *)
  66.    {$I \tinc\dtof.inc}       (* basic double to floating conversion *)
  67.    {$I \tinc\itoh.inc}       (* integer to hex conversion *)
  68.    {$I \tinc\itou.inc}       (* integer to unsigned-real conversion *)
  69.    {$I \tinc\ltor.inc}       (* long-integer to real conversion *)
  70.    {$I \tinc\rempath.inc}    (* remove/manipulate filename paths *)
  71.    {$I \tinc\iswild.inc}     (* is a filename a wildcard? *)
  72.    {$I \tinc\stoupper.inc}   (* map string to upper case *)
  73.    {$I \tinc\filesize.inc}   (* get size of a file *)
  74.    {$I \tinc\pattern.inc}    (* wildcard filename pattern comparison *)
  75.    {$I \tinc\getfile3.inc}   (* expand wildcard file lists *)
  76.    {$I \tinc\sysdate2.inc}   (* get system time string formats, mm-dd-yy & hh:mm *)
  77.    {$I \tinc\gettime.inc}    (* get system time in seconds *)
  78.    {$I \tinc\delay.inc}      (* delay function based on give-up-time and gettime *)
  79.    {$I \tinc\delspace.inc}   (* delete all spaces from a string *)
  80.    {$I \tinc\replstr.inc}    (* perform string replacements *)
  81.    {$I \tinc\getenv.inc}     (* get environment variables *)
  82.    {$I \tinc\varstr.inc}     (* variable allocation string library *)
  83.    {$I \tinc\ljust.inc}      (* left justify strings *)
  84.    {$I \tinc\bitmap.inc}     (* manipulate bit maps *)
  85.    {$I \tinc\flags.inc}      (* manipulate bit flags *)
  86.    {$I \tinc\appendc.inc}    (* append character to string *)
  87.  
  88.  
  89. begin
  90.    fillchar(filetable,sizeof(filetable),0);
  91. end.
  92.  
  93.