Browse Source

* 1.9.x updates

marco 21 years ago
parent
commit
92ed8c2f77

+ 1 - 1
docs/linuxex/ex10.pp

@@ -2,7 +2,7 @@ Program Example10;
 
 { Program to demonstrate the Execl function. }
 
-Uses linux, strings;
+Uses unix, strings;
 
 begin
   { Execute 'ls -l', with current environment. }

+ 1 - 1
docs/linuxex/ex11.pp

@@ -2,7 +2,7 @@ Program Example11;
 
 { Program to demonstrate the Execle function. }
 
-Uses linux, strings;
+Uses Unix, strings;
 
 begin
   { Execute 'ls -l', with current environment. }

+ 1 - 1
docs/linuxex/ex12.pp

@@ -2,7 +2,7 @@ Program Example12;
 
 { Program to demonstrate the Execlp function. }
 
-Uses linux, strings;
+Uses Unix, strings;
 
 begin
   { Execute 'ls -l', with current environment. }

+ 1 - 1
docs/linuxex/ex13.pp

@@ -2,7 +2,7 @@ Program Example13;
 
 { Program to demonstrate the Shell function. }
 
-Uses linux;
+Uses Unix;
 
 begin
   { This will send the output of 'ls -l' to the file ls.out }

+ 4 - 4
docs/linuxex/ex14.pp

@@ -2,13 +2,13 @@ Program Example14;
 
 { Program to demonstrate the Fork and WaitPidfunction. }
 
-Uses linux;
+Uses BaseUnix;
 
-Var PID, ExitStatus : Longint;
+Var PID, ExitStatus : cint;
   
 begin
   Writeln ('Spawning a child');
-  PID:=Fork;
+  PID:=fpFork;
   If PID=0 then
     begin 
     Writeln ('Hello From the Child !!');
@@ -18,7 +18,7 @@ begin
   Else 
     begin
     Writeln ('Spawned child with PID : ',PID);
-    WaitPid (PID,@ExitStatus,0);
+    fpWaitPid (PID,@ExitStatus,0);
     Writeln ('Child exited with status : ',ExitStatus shr 8);
     end; 
 end.

+ 5 - 5
docs/linuxex/ex15.pp

@@ -2,13 +2,13 @@ Program Example15;
 
 { Program to demonstrate the Nice and Get/SetPriority functions. }
 
-Uses linux;
+Uses BaseUnix,Unix;
 
 begin
   writeln ('Setting priority to 5');
-  setpriority (prio_process,getpid,5);
-  writeln ('New priority = ',getpriority (prio_process,getpid));
+  fpsetpriority (prio_process,fpgetpid,5);
+  writeln ('New priority = ',fpgetpriority (prio_process,fpgetpid));
   writeln ('Doing nice 10');
-  nice (10);
-  writeln ('New Priority = ',getpriority (prio_process,getpid));
+  fpnice (10);
+  writeln ('New Priority = ',fpgetpriority (prio_process,fpgetpid));
 end.

+ 2 - 2
docs/linuxex/ex16.pp

@@ -2,8 +2,8 @@ Program Example16;
 
 { Program to demonstrate the GetPid, GetPPid function. }
 
-Uses linux;
+Uses BaseUnix;
 
 begin
-  Writeln ('Process Id = ',getpid,' Parent process Id = ',getppid);
+  Writeln ('Process Id = ',fpgetpid,' Parent process Id = ',fpgetppid);
 end.

+ 2 - 2
docs/linuxex/ex17.pp

@@ -2,8 +2,8 @@ Program Example17;
 
 { Program to demonstrate the GetUid and GetEUid functions. }
 
-Uses linux;
+Uses BaseUnix;
 
 begin
-  writeln ('User Id = ',getuid,' Effective user Id = ',geteuid);
+  writeln ('User Id = ',fpgetuid,' Effective user Id = ',fpgeteuid);
 end.

+ 2 - 2
docs/linuxex/ex18.pp

@@ -2,8 +2,8 @@ Program Example18;
 
 { Program to demonstrate the GetGid and GetEGid functions. }
 
-Uses linux;
+Uses BaseUnix;
 
 begin
- writeln ('Group Id = ',getgid,' Effective group Id = ',getegid);
+ writeln ('Group Id = ',fpgetgid,' Effective group Id = ',fpgetegid);
 end.

+ 1 - 1
docs/linuxex/ex6.pp

@@ -2,7 +2,7 @@ Program Example6;
 
 { Program to demonstrate the GetDate function. }
 
-Uses linux;
+Uses Unix;
 
 Var Year, Month, Day : Word;
 

+ 2 - 2
docs/linuxex/ex7.pp

@@ -2,7 +2,7 @@ Program Example7;
 
 { Program to demonstrate the Execve function. }
 
-Uses linux, strings;
+Uses BaseUnix, strings;
 
 Const Arg0 : PChar = '/bin/ls';
       Arg1 : Pchar = '-l';
@@ -17,5 +17,5 @@ begin
   PP[3]:=Nil;
   { Execute '/bin/ls -l', with current environment }
   { Envp is defined in system.inc }
-  ExecVe ('/bin/ls',pp,envp);
+  fpExecVe ('/bin/ls',pp,envp);
 end.

+ 2 - 2
docs/linuxex/ex8.pp

@@ -2,7 +2,7 @@ Program Example8;
 
 { Program to demonstrate the Execv function. }
 
-Uses linux, strings;
+Uses Unix, strings;
 
 Const Arg0 : PChar = '/bin/ls';
       Arg1 : Pchar = '-l';
@@ -16,5 +16,5 @@ begin
   PP[1]:=Arg1;
   PP[3]:=Nil;
   { Execute '/bin/ls -l', with current environment }
-  Execv ('/bin/ls',pp);
+  fpExecv ('/bin/ls',pp);
 end.

+ 2 - 2
docs/linuxex/ex9.pp

@@ -2,7 +2,7 @@ Program Example9;
 
 { Program to demonstrate the Execvp function. }
 
-Uses linux, strings;
+Uses Unix, strings;
 
 Const Arg0 : PChar = 'ls';
       Arg1 : Pchar = '-l';
@@ -18,5 +18,5 @@ begin
   { Execute 'ls -l', with current environment. }
   { 'ls' is looked for in PATH environment variable.}
   { Envp is defined in the system unit. }
-  Execvp ('ls',pp,envp);
+  fpExecvpe ('ls',pp,envp);
 end.