* 1.9.x fixes

docs/linuxex/ex33.pp

@@ -2,22 +2,22 @@ Program Example33;
 
 { Program to demonstrate the Select function. }
 
-Uses linux;
+Uses BaseUnix;
 
-Var FDS : FDSet;
+Var FDS : sigset_t;
 
 begin
-  FD_Zero (FDS);
+  fpsigemptyset (FDS);
-  FD_Set (0,FDS);
+  fpsigaddset (FDS,0);
   Writeln ('Press the <ENTER> to continue the program.');
   { Wait until File descriptor 0 (=Input) changes }
-  Select (1,@FDS,nil,nil,nil);
+  fpSelect (1,@FDS,nil,nil,nil);
   { Get rid of <ENTER> in buffer }
   readln;
   Writeln ('Press <ENTER> key in less than 2 seconds...');
-  FD_Zero (FDS);
+  fpsigemptyset (FDS);
-  FD_Set (0,FDS);
+  fpsigaddset (FDS,0);
-  if Select (1,@FDS,nil,nil,2000)>0 then 
+  if fpSelect (1,@FDS,nil,nil,2000)>0 then 
     Writeln ('Thank you !')
     { FD_ISSET(0,FDS) would be true here. }
   else

docs/linuxex/ex34.pp

@@ -2,7 +2,7 @@ Program Example33;
 
 { Program to demonstrate the SelectText function. }
 
-Uses linux;
+Uses Unix;
 
 Var tv : TimeVal;
     
@@ -13,8 +13,8 @@ begin
   { Get rid of <ENTER> in buffer }
   readln;
   Writeln ('Press <ENTER> key in less than 2 seconds...');
-  tv.sec:=2;
+  tv.tv_sec:=2;
-  tv.usec:=0;
+  tv.tv_sec:=0;
   if SelectText (Input,@tv)>0 then 
     Writeln ('Thank you !')
   else

docs/linuxex/ex35.pp

@@ -3,25 +3,25 @@ Program Example35;
 { Program to demonstrate the 
   OpenDir,ReadDir, SeekDir and TellDir functions. }
 
-Uses linux;
+Uses BaseUnix;
 
 Var TheDir : PDir;
     ADirent : PDirent;
     Entry : Longint;
 
 begin
-  TheDir:=OpenDir('./.');
+  TheDir:=fpOpenDir('./.');
   Repeat 
-    Entry:=TellDir(TheDir);
+//    Entry:=fpTellDir(TheDir);
-    ADirent:=ReadDir (TheDir);
+    ADirent:=fpReadDir (TheDir^);
     If ADirent<>Nil then
       With ADirent^ do
         begin
         Writeln ('Entry No : ',Entry);
-        Writeln ('Inode    : ',ino);
+        Writeln ('Inode    : ',d_fileno);
-        Writeln ('Offset   : ',off);
+//        Writeln ('Offset   : ',d_off);
-        Writeln ('Reclen   : ',reclen);
+        Writeln ('Reclen   : ',d_reclen);
-        Writeln ('Name     : ',pchar(@name[0]));
+        Writeln ('Name     : ',pchar(@d_name[0]));
         end;
   Until ADirent=Nil;
   Repeat
@@ -29,18 +29,18 @@ begin
     ReadLn (Entry);
     If Entry<>-1 then 
       begin
-      SeekDir (TheDir,Entry);
+//      fpSeekDir (TheDir,Entry);		// not implemented for various platforms
-      ADirent:=ReadDir (TheDir);
+      ADirent:=fpReadDir (TheDir^);
       If ADirent<>Nil then
         With ADirent^ do
           begin
           Writeln ('Entry No : ',Entry);
-          Writeln ('Inode    : ',ino);
+          Writeln ('Inode    : ',d_fileno);
-          Writeln ('Offset   : ',off);
+//          Writeln ('Offset   : ',off);
-          Writeln ('Reclen   : ',reclen);
+          Writeln ('Reclen   : ',d_reclen);
-          Writeln ('Name     : ',pchar(@name[0]));
+          Writeln ('Name     : ',pchar(@d_name[0]));
           end;
     end;
   Until Entry=-1;
-  CloseDir (TheDir);
+  fpCloseDir (TheDir^);
 end.

docs/linuxex/ex36.pp

@@ -2,15 +2,15 @@ Program Example36;
 
 { Program to demonstrate the AssignPipe function. }
 
-Uses linux;
+Uses BaseUnix,Unix;
 
 Var pipi,pipo : Text;
     s : String;
     
 begin
   Writeln ('Assigning Pipes.');
-  If Not assignpipe(pipi,pipo) then
+  If assignpipe(pipi,pipo)<>0 then
-    Writeln('Error assigning pipes !',LinuxError);
+    Writeln('Error assigning pipes !',fpgeterrno);
   Writeln ('Writing to pipe, and flushing.');
   Writeln (pipo,'This is a textstring');close(pipo);
   Writeln ('Reading from pipe.');

docs/linuxex/ex37.pp

@@ -2,7 +2,7 @@ Program Example37;
 
 { Program to demonstrate the Popen function. }
 
-uses linux;
+uses BaseUnix,Unix;
 
 var f : text;
     i : longint;
@@ -19,10 +19,10 @@ begin
   writeln (f,'exit 2');
   writeln (f);
   close (f);
-  chmod ('test21a',octal (755));
+  fpchmod ('test21a',&755);
   popen (f,'./test21a arg1 arg2','W');
-  if linuxerror<>0 then 
+  if fpgeterrno<>0 then 
-     writeln ('error from POpen : Linuxerror : ', Linuxerror);
+     writeln ('error from POpen : errno : ', fpgeterrno);
   for i:=1 to 10 do 
     writeln (f,'This is written to the pipe, and should appear on stdout.');
   Flush(f);

docs/linuxex/ex38.pp

@@ -2,7 +2,7 @@ Program Example38;
 
 { Program to demonstrate the AssignStream function. }
 
-Uses linux;
+Uses BaseUnix,Unix;
 
 Var Si,So : Text;
     S : String;
@@ -13,7 +13,7 @@ begin
     begin
     Writeln ('Calling son');
     Assignstream (Si,So,'./ex38 -son');
-    if linuxerror<>0 then 
+    if fpgeterrno<>0 then 
       begin
       writeln ('AssignStream failed !');
       halt(1);