mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-07 15:47:53 +02:00
* Renamefest
This commit is contained in:
parent
7a283749bd
commit
aefa34f0c1
@ -121,7 +121,7 @@ var
|
||||
N1,N2 : NameStr;
|
||||
E1,E2 : Extstr;
|
||||
begin
|
||||
{$ifdef linux}
|
||||
{$ifdef Unix}
|
||||
FSplit(What,D1,N1,E1);
|
||||
FSplit(Mask,D2,N2,E2);
|
||||
{$else}
|
||||
@ -168,7 +168,7 @@ procedure usage;
|
||||
begin
|
||||
Writeln('Delp [options] <directory>');
|
||||
Writeln('Where options is one of:');
|
||||
writeln(' -e Delete executables also (Not on linux)');
|
||||
writeln(' -e Delete executables also (Not on Unix)');
|
||||
writeln(' -h Display (this) help message.');
|
||||
writeln(' -q Quietly perfoms deleting.');
|
||||
Halt(1);
|
||||
@ -266,7 +266,10 @@ begin
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.5 2002-03-02 23:21:32 carl
|
||||
Revision 1.6 2002-06-01 18:39:14 marco
|
||||
* Renamefest
|
||||
|
||||
Revision 1.5 2002/03/02 23:21:32 carl
|
||||
* small bugfix, was never prepending path to files, so they were never actually deleted!
|
||||
|
||||
Revision 1.4 2002/02/27 16:32:08 carl
|
||||
|
@ -16,10 +16,6 @@ Uses Strings,DxeLoad,Coff,Dos;
|
||||
|
||||
{$inline on}
|
||||
|
||||
{$ifdef Linux} {Fix for 1.0.x}
|
||||
{$Define Unix}
|
||||
{$endif}
|
||||
|
||||
Const
|
||||
{$ifdef Unix}
|
||||
DirSep = '/';
|
||||
@ -318,7 +314,10 @@ Begin
|
||||
End.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.3 2001-08-02 12:50:46 jonas
|
||||
Revision 1.4 2002-06-01 18:39:15 marco
|
||||
* Renamefest
|
||||
|
||||
Revision 1.3 2001/08/02 12:50:46 jonas
|
||||
* added 'inline on' directive
|
||||
|
||||
Revision 1.2 2001/08/02 10:41:50 marco
|
||||
|
@ -24,6 +24,9 @@ interface
|
||||
{$ifdef linux}
|
||||
linux,
|
||||
{$endif}
|
||||
{$ifdef BSD}
|
||||
Linux,
|
||||
{$endif}
|
||||
{$else}
|
||||
unix,
|
||||
{$endif}
|
||||
@ -1478,7 +1481,10 @@ implementation
|
||||
end.
|
||||
{
|
||||
$Log$
|
||||
Revision 1.23 2002-03-15 11:37:46 armin
|
||||
Revision 1.24 2002-06-01 18:39:15 marco
|
||||
* Renamefest
|
||||
|
||||
Revision 1.23 2002/03/15 11:37:46 armin
|
||||
+ Added netware target
|
||||
|
||||
Revision 1.22 2002/01/29 22:00:22 peter
|
||||
|
@ -531,7 +531,7 @@ begin
|
||||
Outfile:='';
|
||||
AddCall:=0;
|
||||
Verbose:=False;
|
||||
{$IFDEF linux}
|
||||
{$IFDEF Unix}
|
||||
UnitExt:='ppu';
|
||||
{$ELSE}
|
||||
UnitExt:='PPU';
|
||||
@ -579,7 +579,10 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.2 2002-02-27 16:32:50 carl
|
||||
Revision 1.3 2002-06-01 18:39:14 marco
|
||||
* Renamefest
|
||||
|
||||
Revision 1.2 2002/02/27 16:32:50 carl
|
||||
* ifdef linux -> ifdef unix
|
||||
|
||||
Revision 1.1 2000/07/13 10:16:22 michael
|
||||
|
@ -561,7 +561,7 @@ end;
|
||||
Procedure WriteCR (S: PStream);
|
||||
|
||||
Const
|
||||
{$ifdef linux}
|
||||
{$ifdef Unix}
|
||||
Newline = #10;
|
||||
{$else}
|
||||
NewLine = #13#10;
|
||||
@ -1223,7 +1223,10 @@ end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.2 2002-02-27 16:35:31 carl
|
||||
Revision 1.3 2002-06-01 18:39:14 marco
|
||||
* Renamefest
|
||||
|
||||
Revision 1.2 2002/02/27 16:35:31 carl
|
||||
* bugfix of stream errors - would always give error!
|
||||
|
||||
Revision 1.1 2000/07/13 10:16:22 michael
|
||||
|
Loading…
Reference in New Issue
Block a user