* max date added

compiler/utils/fixlog.pp

@@ -2,7 +2,8 @@
     $Id$
     Copyright (c) 1998-2000 by Peter Vreman
 
-    Remove all revision logs from source files after 20 revisions
+    Remove all revision logs from source files after X revisions or
+    older than date X
 
     See the file COPYING.FPC, included in this distribution,
     for details about the copyright.
@@ -21,26 +22,46 @@ uses
   sysutils;
 
 const
-  maxrevs = 20;
   bufsize = 32*1024;
 
+var
+  maxrevs,myear,mmonth,mday : integer;
+
+procedure Date2Int(const date:string;var year,month,day:integer);
+begin
+  year:=StrToInt(Copy(date,1,4));
+  month:=StrToInt(Copy(date,6,2));
+  day:=StrToInt(Copy(date,9,2));
+  if (year=0) or (month=0) or (day=0) then
+   begin
+     writeln('wrong date "',date,'", use yyyy/mm/dd');
+     halt(2);
+   end;
+end;
+
+
 procedure dofile(const fn:string);
 var
   t,f : text;
   s : string;
   skip : boolean;
-  found,revs : integer;
+  year,month,day,
+  found,revs,i : integer;
   fbuf,tbuf : pointer;
 begin
   getmem(fbuf,bufsize);
   getmem(tbuf,bufsize);
+  write('processing ',fn,': ');
   assign(t,fn);
   assign(f,'fixlog.tmp');
   {$I-}
    reset(t);
   {$I+}
   if ioresult<>0 then
-   exit;
+   begin
+     writeln('error!');
+     exit;
+   end;
   rewrite(f);
   settextbuf(t,tbuf^,bufsize);
   settextbuf(f,fbuf^,bufsize);
@@ -60,13 +81,34 @@ begin
         end;
       1 :
         begin
-          if pos('Revision',s)>0 then
+          i:=pos('Revision',s);
+          if i>0 then
            begin
              inc(revs);
              if revs>maxrevs then
               begin
                 skip:=true;
                 found:=2;
+              end
+             else
+              begin
+                inc(i,10);
+                while (i<length(s)) and (s[i]<>' ') do
+                 inc(i);
+                while (i<length(s)) and (s[i]=' ') do
+                 inc(i);
+                if (i<length(s)) and (s[i] in ['0'..'9']) then
+                 begin
+                   Date2Int(Copy(s,i,10),year,month,day);
+                   if (year<Myear) or
+                      ((year=MYear) and (month<Mmonth)) or
+                      ((year=MYear) and (month=Mmonth) and (day<Mday)) then
+                    begin
+                      skip:=true;
+                      found:=2;
+//                    write(year,'/',month,'/',day,' date');
+                    end;
+                 end;
               end;
            end
           else
@@ -92,6 +134,10 @@ begin
    end;
   close(t);
   close(f);
+  if revs=0 then
+   writeln(' no log found')
+  else
+   writeln(revs,' revisions');
   erase(t);
   rename(f,fn);
   freemem(tbuf);
@@ -102,7 +148,15 @@ var
   dir : tsearchrec;
   i   : integer;
 begin
-  for i:=1to paramcount do
+  writeln('fixlog v1.00 (C) 1999-2000 Peter Vreman');
+  if paramcount<3 then
+   begin
+     writeln('usage: fixlog <maxrevs> <maxdate> <files> [files]');
+     halt(1);
+   end;
+  MaxRevs:=StrToInt(ParamStr(1));
+  Date2Int(ParamStr(2),MYear,MMonth,MDay);
+  for i:=3 to paramcount do
    begin
      if findfirst(paramstr(i),faAnyFile,dir)=0 then
       repeat
@@ -113,7 +167,10 @@ begin
 end.
 {
   $Log$
-  Revision 1.2  2000-01-07 01:15:00  peter
+  Revision 1.3  2000-01-08 13:52:02  peter
+    * max date added
+
+  Revision 1.2  2000/01/07 01:15:00  peter
     * updated copyright to 2000
 
   Revision 1.1  1999/10/06 06:29:03  peter