paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-14 10:49:09 +02:00
Code Issues Packages Projects Releases Wiki Activity

- truncated log

Browse Source 
* bugfix of -l parameter (was never valid)
+ added version information
This commit is contained in:
carl 2002-02-27 16:33:45 +00:00
parent 9783900355
commit f4a9b67fc4
1 changed files with 18 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

37
utils/ptop.pp
View File

@ -3,7 +3,7 @@ Program PtoP;
{ {
$Id$ $Id$
This file is part of the Free Pascal run time library. This file is part of the Free Pascal run time library.
Copyright (c) 1999-2000 by Michael Van Canneyt, member of Copyright (c) 1999-2002 by Michael Van Canneyt, member of
the Free Pascal development team the Free Pascal development team
Pascal pretty print program Pascal pretty print program
@ -19,6 +19,12 @@ Program PtoP;
Uses PtoPu,Objects,getopts; Uses PtoPu,Objects,getopts;
const
Version = 'Version 1.1';
Title = 'DelPascal';
Copyright = 'Copyright (c) 1999-2002 by the Free Pascal Development Team';
Var Var
Infilename,OutFileName,ConfigFile : String; Infilename,OutFileName,ConfigFile : String;
BeVerbose : Boolean; BeVerbose : Boolean;
@ -79,7 +85,7 @@ begin
TheLineSize:=MaxLineSize; TheLineSize:=MaxLineSize;
BeVerbose:=False; BeVerbose:=False;
Repeat Repeat
c:=getopt('i:c:g:b:hv'); c:=getopt('i:c:g:l:b:hv');
case c of case c of
'i' : begin 'i' : begin
TheIndent:=StrToInt(OptArg); TheIndent:=StrToInt(OptArg);
@ -140,6 +146,12 @@ end;
begin begin
StreamError:={$ifndef tp}@{$endif}StreamErrorProcedure; StreamError:={$ifndef tp}@{$endif}StreamErrorProcedure;
ProcessOpts; ProcessOpts;
if BeVerbose then
begin
writeln(Title+' '+Version);
writeln(Copyright);
Writeln;
end;
If (Length(InfileName)=0) or (Length(OutFileName)=0) Then If (Length(InfileName)=0) or (Length(OutFileName)=0) Then
Usage; Usage;
Ins:=New(PBufStream,Init(InFileName,StopenRead,TheBufSize)); Ins:=New(PBufStream,Init(InFileName,StopenRead,TheBufSize));
@ -183,22 +195,9 @@ end.
{ {
$Log$ $Log$
Revision 1.1 2000-07-13 10:16:22 michael Revision 1.2 2002-02-27 16:33:45 carl
+ Initial import - truncated log
* bugfix of -l parameter (was never valid)
Revision 1.7 2000/07/04 19:05:55 peter + added version information
* be optimistic: version 1.00 for some utils
Revision 1.6 2000/02/09 16:44:15 peter
* log truncated
Revision 1.5 2000/02/07 13:41:51 peter
* fix wrong $ifdef tp
Revision 1.4 2000/02/06 19:58:24 carl
+ Error detection of streams
Revision 1.3 2000/01/07 16:46:04 daniel
* copyright 2000
} }