home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / progpas / prok344.arj / PROSCAN.INT < prev    next >
Text File  |  1991-04-01  |  2KB  |  63 lines
  1.  
  2. (*
  3.  * Copyright 1987, 1991 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.  * PCB ProDOOR file directory scanning (3-1-89)
  15.  *
  16.  *)
  17.  
  18. unit ProScan;
  19.  
  20. interface
  21.    Uses
  22.      Tools,
  23.      MDosIO,
  24.      ProData;
  25.  
  26. procedure displn_dir(var line: string);
  27.  
  28. const
  29.   colorizing: boolean = true;
  30.  
  31. type
  32.    display_formats = (dir_colorize,
  33.                       display_normal, 
  34.                       remove_semicolons,
  35.                       number_lines,
  36.                       helpfile_format,
  37.                       result_format);
  38.    
  39. procedure display_file_raw(name: filenames;
  40.                            form: display_formats);
  41.    {display the specified file.  handles special cases for
  42.     graphics files and missing files}
  43.  
  44. procedure display_file(name: filenames);
  45.  
  46. procedure display_helpfile(name: filenames);
  47.  
  48. procedure display_dirfile(name: filenames);
  49.    {display the specified directory file.  handles special cases for
  50.     graphics files and missing files}
  51.  
  52. procedure display_resultfile;
  53.    {display the resultfile from archive testing; remove pathnames from
  54.     all lines; detect invalid archives and delete them}
  55.  
  56. procedure display_macfile(fn: filenames);
  57.  
  58. procedure dir_scan(mode:  scan_modes);
  59.  
  60. procedure check_newer(var dirline: string; lastdate: string6);
  61.  
  62. implementation
  63.