home *** CD-ROM | disk | FTP | other *** search
/ Programmer 7500 / MAX_PROGRAMMERS.iso / PASCAL / NEWER.ZIP / NEWER.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  1991-12-04  |  1.5 KB  |  55 lines
  1. program Newer;
  2.                { compares two file datestamps. returns errorlevel
  3.                0 if 1 < 2,
  4.                1 if 1 = 2,
  5.                2 if 1 > 2,
  6.                3 if error. }
  7.                                                      { Written by Steven Key }
  8. uses DOS, Crt ;
  9.  
  10. var
  11. f1,f2 : file ;
  12. t1,t2 : longint ;
  13. code : word ;
  14.  
  15.  
  16.  
  17. begin
  18.      code:=3;                              { set return to error as default. }
  19.      if paramcount > 1 then
  20.         begin { main code }
  21.         {$I- }
  22.         assign (f1,paramstr(1));
  23.         reset(f1);
  24.         if IoResult <> 0 then
  25.            begin
  26.               writeln('Error opening ',paramstr(1));
  27.               exit
  28.            end;
  29.         assign (f2,paramstr(2));
  30.         reset(f2);
  31.         if IoResult <> 0 then
  32.            begin
  33.               writeln('Error opening ',paramstr(2));
  34.               exit
  35.            end;
  36.         {$I+ }
  37.         GetFTime(f1,t1);
  38.         GetFTime(f2,t2);
  39.         If t1 < t2 then code := 0;
  40.         If t1 = t2 then code := 1;
  41.         if t1 > t2 then code := 2;
  42.         end
  43.      else
  44.      begin
  45.         writeln('Format: NEWER FILE1 FILE2');
  46.         writeln;
  47.         writeln('errorlevel = 0 if 1 older than 2,');
  48.         writeln('             1 if same age,');
  49.         writeln('             2 if 1 newer than 2,');
  50.         writeln('             3 if error.');
  51.      end;
  52.      halt(code)                                 { return code to batch file. }
  53.  
  54. end.
  55.