* Renamefest

This commit is contained in:
marco 2002-06-01 18:39:14 +00:00
parent 7a283749bd
commit aefa34f0c1
5 changed files with 27 additions and 13 deletions

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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

View File

@ -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