* fixed for unix

packages/extra/forms/fd2pascal.pp

@@ -25,7 +25,9 @@ uses
 {$ifdef ver1_0}
   Linux
 {$else}
-  Unix
+  baseunix,
+  Unix,
+  unixutil
 {$endif}
   ;
 
@@ -505,12 +507,12 @@ var info : stat;
 
 begin
   FileName:=Copy(Filename,1,Length(Filename)-3)+'.pp';
-  fstat(FileName,info);
+  {$ifdef ver1_0}fstat{$else}fpstat{$endif}(FileName,info);
   if linuxerror=0 then
     begin
     { File exists, move to .bak}
-    link (FileName,FileName+'.bak');
-    unlink (FileName);
+    {$ifdef ver1_0}link{$else}fplink{$endif} (FileName,FileName+'.bak');
+    {$ifdef ver1_0}unlink{$else}fpunlink{$endif} (FileName);
     end;
   assign(outfile,filename);
 {$i-}
@@ -725,7 +727,7 @@ begin
     writeln (OutFile);
     writeln (OutFile,'Begin');
     writeln (OutFile,'  fl_initialize (@argc,argv,''',
-                     BaseName(Filename,'.pp'),''',nil,0);');
+                     basename(Filename,'.pp'),''',nil,0);');
     if Not(OptionsSet[3]) then
       EmitMain
     else
@@ -1124,7 +1126,10 @@ begin
   EmitFooter;
   CloseOutFile;
 end.  $Log$
-end.  Revision 1.2  2002-09-07 15:42:54  peter
+end.  Revision 1.3  2003-09-27 12:12:50  peter
+end.    * fixed for unix
+end.
+end.  Revision 1.2  2002/09/07 15:42:54  peter
 end.    * old logs removed and tabs fixed
 end.
 end.  Revision 1.1  2002/01/29 17:54:59  peter

packages/extra/utmp/utmp.pp

@@ -6,6 +6,7 @@ uses
 {$ifdef ver1_0}
   Linux
 {$else}
+  BaseUnix,
   Unix
 {$endif}
   ;
@@ -246,7 +247,7 @@ var
     S : Stat;
 
   begin
-    FStat(Utmp_file, S);
+    {$ifdef ver1_0}FStat{$else}fpstat{$endif}(Utmp_file, S);
     Number_of_utmp_entries := S.Size div System.SizeOf(tLL_Utmp);
   end;
 
@@ -325,7 +326,10 @@ begin
   Set_search_parameters(Include,DefaultLoginType);
 end.
   $Log$
-  Revision 1.2  2002-09-07 15:43:06  peter
+  Revision 1.3  2003-09-27 12:13:50  peter
+    * fixed for unix
+
+  Revision 1.2  2002/09/07 15:43:06  peter
     * old logs removed and tabs fixed
 
   Revision 1.1  2002/01/29 17:55:23  peter