paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-10 17:57:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* removed checkcvs. We stopped using CVS 7 years ago, and don't check $Log:'s

Browse Source 
that often anymore. There is nothing worth keeping from this source (which is by me btw)

git-svn-id: trunk@21470 -
This commit is contained in:
marco 2012-06-03 11:16:17 +00:00
parent 6c6d2489d1
commit bc56239af7
2 changed files with 0 additions and 239 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
.gitattributes vendored
View File

@ -13466,7 +13466,6 @@ utils/Makefile svneol=native#text/plain
utils/Makefile.fpc svneol=native#text/plain
utils/README.txt svneol=native#text/plain
utils/bin2obj.pp svneol=native#text/plain
utils/checkcvs.pp svneol=native#text/plain
utils/creumap.pp svneol=native#text/plain
utils/data2inc.exm -text
utils/data2inc.pp svneol=native#text/plain

238
utils/checkcvs.pp
View File

@ -1,238 +0,0 @@
Program checkcvs;
{
This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by the Free Pascal development team.
A simple filter program which displays what happened on CVS today.
Without parameters it shows the newest CVS log entry.
If you specify a nummeric parameter smaller than 365,
CheckCvs searches for ALL entries n days back.
Great to quickly check what changed after an update etc.
Todo : add getopts and some switches to increase configurability.
See the file COPYING.FPC, included in this distribution,
for details about the copyright.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
**********************************************************************}
Uses Dos;
Const bufferlimit=10000;
Type
Array12type = ARRAY [1..12] Of longint;
Const
MonthCumm : Array12type = (0,31,59,90,120,151,181,212,243,273,304,334);
Function LeapYr( Year : longint) : boolean;
Begin
LeapYr := (Year Mod 4 = 0) And ((Year Mod 100 <> 0) Or (Year Mod 400 = 0));
End;
Function DayNr( Day,Month,Year: longint) : longint;
{Modified version. A daynr function that returns daynr since 1-1-1980.
Leapyears ok till 2100.}
Var
i : longint;
Begin
i := MonthCumm[Month]+Day;
If (Month > 2) And LeapYr( Year ) Then
INC( i );
INC(I,(Year-1980)*365 + (Year-1976) SHR 2);
{ - (Year -2000) DIV 100; makes it ok till 2400}
DayNr := i;
End ;
{TrimLeft isn't overloaded for pascal string yet.}
Procedure LTrim(Var P : String;Ch:Char);
Var I,J : longint;
Begin
I := Length(P); { Keeping length in local data eases optimalisations}
If (I>0) Then
Begin
J := 1;
while (P[J]=Ch) AND (J<=I) Do INC(J);
If J>1 Then
Delete(P,1,J-1);
End;
End;
Var NewestBuffer : PChar; {Buffer containing the "newest" data}
BufferIndex : Longint; {Bytes in buffer}
NewestDate : Longint; {Newest date (the one in NewestBuffer)}
CheckMode : boolean; {Do we search newest, or all msgs since
<parameter> days ago}
Procedure CheckAfile(Name:String;Firstday:longint);
{Outputs filename and relevant CVSLOG entries for all files that have log
entries newer than FirstDay.}
Var F : Text;
Lines : longint;
Found : boolean;
S,S2,S3 : String;
ValidLogEntry : boolean;
Day,Month,Year : longint;
PosDate : longint;
FirstLogEntry : boolean;
Procedure AppendLine (S : String);
Begin
If CheckMode Then
Begin
If (Length(S)<>0) AND ((Length(S)+BufferIndex+2)<BufferLimit) Then
Begin
Move(S[1],NewestBuffer[BufferIndex],Length(S));
Inc(BufferIndex,Length(S));
{$Ifndef Unix}
NewestBuffer[BufferIndex]:=#13;
Inc(BufferIndex);
{$EndIf}
NewestBuffer[BufferIndex]:=#10;
Inc(BufferIndex);
End;
End
Else
Begin
Writeln(S);
End;
End;
Function ReadTwo(Position:longint): longint; INLINE;
Begin
ReadTwo := (ord(S[Position])-48)*10+(ord(S[Position+1])-48);
End;
Begin
Assign(F,Name);
Reset(F);
Lines := 5;
Found := FALSE;
in the first lines}
ReadLn(F,S);
LTrim(S,' ');
Found := TRUE;
dec(Lines);
Until ((Lines=0) Or Found) Or EOF(F);
If Not Found Then
BEGIN
Close(F);
EXIT;
END;
Found := FALSE;
in the first lines}
ReadLn(F,S);
LTrim(S,' ');
If Copy(S,1,5)='$Log:' Then
Found := TRUE;
Until (Found) Or EOF(F);
If Not Found Then
EXIT;
ValidLogEntry := FALSE;
FirstLogEntry := TRUE;
Repeat
ReadLn(F,S);
S3 := S;
LTrim(S3,' ');
If Copy(S3,1,8)='Revision' Then
Begin
ValidLogEntry := FALSE;
S2 := S;
Delete(S3,1,9);
S := S3;
Lines := Pos(' ',S);
If Lines<>0 Then
Begin
Delete(S,1,Lines);
LTrim(S,' ');
Year := ReadTwo(1)*100+ReadTwo(3);
Month := ReadTwo(6);
Day := ReadTwo(9);
PosDate := DayNr(Day,Month,Year);
If CheckMode Then
Begin
If PosDate>=NewestDate Then
Begin
NewestDate:=PosDate;
BufferIndex:=0;
ValidLogEntry := TRUE;
AppendLine('File: '+Name);
AppendLine(S2);
End;
End
Else
If (PosDate>=FirstDay) Then
Begin
ValidLogEntry := TRUE;
If FirstLogEntry Then
Begin
FirstLogEntry := FALSE;
AppendLine('File: '+Name);
End;
AppendLine(S2);
End;
End;
End
Else
If ValidLogEntry And (S[1]<>'}') Then
AppendLine(S);
Until EOF(F) Or (S[1]='}');
Close(F);
End;
Var year, month, mday, wday: word;
TheDay,Days : longint;
D : SearchRec;
Procedure SearchExtension(Pattern:String);
Begin
FindFirst(Pattern,Anyfile-Directory,D);
while DosError = 0 Do
Begin
CheckAFile(D.Name,TheDay);
FindNext(D);
End;
FindClose(D);
End;
Begin
GetMem(NewestBuffer,bufferlimit);
BufferIndex:=0;
NewestDate:=0;
GetDate(year, month, mday, wday); {GetDate}
TheDay := DayNr(MDay,Month,Year); {Convert to something linear}
If ParamCount<>0 Then {If parameter is nummeric, subtract}
Begin
CheckMode:=FALSE;
Val(ParamStr(1),Days,Year);
If (Year=0) And (Days<365) Then { n days from current date}
dec(TheDay,Days);
End
Else
CheckMode:=True;
SearchExtension('*.pp'); {Scan files in simple FindFirst loop}
SearchExtension('*.pas');
SearchExtension('*.inc');
If CheckMode AND (BufferIndex<>0) THEN
Begin
For Days:=0 TO BufferIndex-1 Do
Write(NewestBuffer[Days]);
End;
FreeMem(NewestBuffer,bufferlimit);
End.