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

* *.dll, *.so are also executables and only turned on by -e

Browse Source 
* title+copyright like ppudump
This commit is contained in:
peter 2000-01-23 16:40:28 +00:00
parent 39faeb7440
commit b00c32180e
1 changed files with 14 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

16
utils/delp.pp
View File

@ -24,7 +24,9 @@ uses
dos,getopts;
const
version='v1.01';
Version = 'Version 0.99.14';
Title = 'DelPascal';
Copyright = 'Copyright (c) 1999-2000 by the Free Pascal Development Team';
function DStr(l:longint):string;
var
@ -180,7 +182,7 @@ begin
Repeat
C:=Getopt('chq');
Case C of
'e' : AddMAsk('*.exe');
'e' : AddMAsk('*.exe *.so *.dll');
'h' : Usage;
'q' : Quiet:=True;
EndOfOptions : ;
@ -197,7 +199,6 @@ var
begin
ProcessOptions;
AddMask('*.ppw *.ow *.aw *.sw');
AddMask('*.so *.dll');
AddMask('ppas.bat ppas.sh link.res fpcmaked fpcmade fpcmade.*');
AddMask('*.tpu *.tpp *.tpw *.tr');
AddMask('*.log *.bak');
@ -206,7 +207,8 @@ begin
AddMask('*.ppo *.oo *.ao *.so');
if not quiet then
begin
WriteLn('DelPascal ',version,' (C) 1999 Peter Vreman');
writeln(Title+' '+Version);
writeln(Copyright);
Writeln;
end;
FindFirst('*.*',$20,Dir);
@ -249,7 +251,11 @@ begin
end.
{
$Log$
Revision 1.7 2000-01-23 14:23:48 michael
Revision 1.8 2000-01-23 16:40:28 peter
* *.dll, *.so are also executables and only turned on by -e
* title+copyright like ppudump
Revision 1.7 2000/01/23 14:23:48 michael
+ Typos fixed, version updated
Revision 1.6 2000/01/23 14:20:44 michael