From 8e8face3e359a091af0f0ed0e1244e647fed7d35 Mon Sep 17 00:00:00 2001 From: peter Date: Mon, 29 Jan 2001 21:48:26 +0000 Subject: [PATCH] * linux -> unix --- utils/bin2obj.pp | 13 ++++++++----- utils/ppumove.pp | 45 ++++++++++++++++++++++++--------------------- 2 files changed, 32 insertions(+), 26 deletions(-) diff --git a/utils/bin2obj.pp b/utils/bin2obj.pp index 777d047d00..5cdeb13721 100644 --- a/utils/bin2obj.pp +++ b/utils/bin2obj.pp @@ -19,8 +19,8 @@ program bin2obj; {$mode objfpc} uses classes,getopts, iostream,zstream,idea,sysutils -{$ifdef linux} - ,linux +{$ifdef unix} + ,unix {$else} ,dos {$endif} @@ -173,7 +173,7 @@ Var OutStream : TStream; Procedure WriteStrLn(Const St : String); Const - {$ifdef linux} + {$ifdef unix} Eoln : String = #10; {$else} Eoln : String = #13#10; @@ -246,7 +246,7 @@ end; Procedure CompileTheUNit; begin -{$ifdef linux} +{$ifdef unix} Shell('ppc386 -Un '+UnitName); {$else} Exec('ppc386',' -Un '+UnitName); @@ -263,7 +263,10 @@ end. { $Log$ - Revision 1.1 2000-07-13 10:16:21 michael + Revision 1.2 2001-01-29 21:48:26 peter + * linux -> unix + + Revision 1.1 2000/07/13 10:16:21 michael + Initial import Revision 1.4 2000/07/04 19:05:54 peter diff --git a/utils/ppumove.pp b/utils/ppumove.pp index 93a9730e82..5ab599eac6 100644 --- a/utils/ppumove.pp +++ b/utils/ppumove.pp @@ -24,11 +24,11 @@ {$endif} Program ppumove; uses -{$ifdef linux} - linux, -{$else linux} +{$ifdef unix} + unix, +{$else unix} dos, -{$endif linux} +{$endif unix} ppu, getopts; @@ -42,13 +42,13 @@ const PPUExt = 'ppu'; ObjExt = 'o'; StaticLibExt ='a'; -{$ifdef Linux} +{$ifdef unix} SharedLibExt ='so'; BatchExt ='.sh'; {$else} SharedLibExt ='dll'; BatchExt ='.bat'; -{$endif Linux} +{$endif unix} { link options } link_none = $0; @@ -108,8 +108,8 @@ begin Shell:=0; exit; end; -{$ifdef Linux} - Shell:=Linux.shell(s); +{$ifdef unix} + Shell:=unix.shell(s); {$else} exec(getenv('COMSPEC'),'/C '+s); Shell:=DosExitCode; @@ -122,13 +122,13 @@ Function FileExists (Const F : String) : Boolean; Returns True if the file exists, False if not. } Var -{$ifdef linux} +{$ifdef unix} info : Stat; {$else} info : searchrec; {$endif} begin -{$ifdef linux} +{$ifdef unix} FileExists:=FStat (F,Info); {$else} FindFirst (F,anyfile,Info); @@ -215,7 +215,7 @@ begin { Remove the lib file, it's extracted so it can be created with ease } if PPLExt=PPUExt then Shell('rm '+libfn); -{$ifdef linux} +{$ifdef unix} ExtractLib:=n+'.sl/*'; {$else} ExtractLib:=n+'.sl\*'; @@ -403,12 +403,12 @@ Function DoFile(const FileName:String):Boolean; { Process a file, mainly here for wildcard support under Dos } -{$ifndef linux} +{$ifndef unix} var dir : searchrec; {$endif} begin -{$ifdef linux} +{$ifdef unix} DoFile:=DoPPU(FileName,ForceExtension(FileName,PPLExt)); {$else} DoFile:=false; @@ -468,7 +468,7 @@ begin If Err then Error('Fatal: Library building stage failed.',true); { fix permission to 644, so it's not 755 } -{$ifdef Linux} +{$ifdef unix} ChMod(OutputFile,420); {$endif} { Rename to the destpath } @@ -551,7 +551,7 @@ begin Writeln; end; { Check if shared is allowed } -{$ifndef linux} +{$ifndef unix} if arbin<>'arw' then begin Writeln('Warning: shared library not supported for Go32, switching to static library'); @@ -566,10 +566,10 @@ begin if OutputFile='' then OutPutFile:=Paramstr(OptInd); { fix filename } -{$ifdef linux} +{$ifdef unix} if Copy(OutputFile,1,3)<>'lib' then OutputFile:='lib'+OutputFile; - { For linux skip replacing the extension if a full .so.X.X if specified } + { For unix skip replacing the extension if a full .so.X.X if specified } i:=pos('.so.',Outputfile); if i<>0 then OutputFileForLink:=Copy(Outputfile,4,i-4) @@ -600,7 +600,7 @@ begin if Not Quiet then Writeln('Writing pmove'+BatchExt); Close(BatchFile); -{$ifdef Linux} +{$ifdef unix} ChMod('pmove'+BatchExt,493); {$endif} end; @@ -610,14 +610,17 @@ begin end. { $Log$ - Revision 1.1 2000-07-13 10:16:22 michael + Revision 1.2 2001-01-29 21:48:26 peter + * linux -> unix + + Revision 1.1 2000/07/13 10:16:22 michael + Initial import Revision 1.11 2000/07/04 19:05:54 peter * be optimistic: version 1.00 for some utils Revision 1.10 2000/05/17 18:30:57 peter - * libname fixes for linux + * libname fixes for unix Revision 1.9 2000/02/09 16:44:15 peter * log truncated @@ -635,7 +638,7 @@ end. * fsplit var type fixes Revision 1.4 1999/07/28 16:53:58 peter - * updated for new linking, but still doesn't work because ld-linux.so.2 + * updated for new linking, but still doesn't work because ld-unix.so.2 requires some more crt*.o files }