Browse Source

* Renamefest

marco 23 years ago
parent
commit
aefa34f0c1
5 changed files with 27 additions and 13 deletions
  1. 6 3
      utils/delp.pp
  2. 4 5
      utils/dxegen/dxegen.pp
  3. 7 1
      utils/fpcm/fpcmmain.pp
  4. 5 2
      utils/ppdep.pp
  5. 5 2
      utils/ptopu.pp

+ 6 - 3
utils/delp.pp

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

+ 4 - 5
utils/dxegen/dxegen.pp

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

+ 7 - 1
utils/fpcm/fpcmmain.pp

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

+ 5 - 2
utils/ppdep.pp

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

+ 5 - 2
utils/ptopu.pp

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