* 1.9.x updates

This commit is contained in:
marco 2004-07-17 22:10:48 +00:00
parent 72fa25740f
commit 92ed8c2f77
13 changed files with 26 additions and 26 deletions

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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

View File

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