paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2026-01-06 09:10:47 +01:00
Code Issues Packages Projects Releases Wiki Activity

+ AssignStream now always returns PID of spawned process

Browse Source
This commit is contained in:
michael 2000-05-21 17:10:13 +00:00
parent 228972c39a
commit dd08c958b6
1 changed files with 9 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
rtl/linux/linux.pp
View File

@ -707,7 +707,7 @@ Procedure POpen(var F:file;const Prog:String;rw:char);
Function mkFifo(pathname:string;mode:longint):boolean;
Procedure AssignStream(Var StreamIn,Streamout:text;Const Prog:String);
function AssignStream(Var StreamIn,Streamout:text;Const Prog:String) : longint;
function AssignStream(var StreamIn, StreamOut, StreamErr: Text; const prog: String): LongInt;
{**************************
@ -1935,8 +1935,7 @@ begin
end;
Procedure AssignStream(Var StreamIn,Streamout:text;Const Prog:String);
Function AssignStream(Var StreamIn,Streamout:text;Const Prog:String) : longint;
{
Starts the program in 'Prog' and makes its input and output the
other end of two pipes, which are the stdin and stdout of a program
@ -1946,6 +1945,7 @@ Procedure AssignStream(Var StreamIn,Streamout:text;Const Prog:String);
Parent Child
STreamout --> Input
Streamin <-- Output
Return value is the process ID of the process being spawned, or -1 in case of failure.
}
var
pipi,
@ -1954,6 +1954,7 @@ var
pl : ^Longint;
begin
LinuxError:=0;
AssignStream:=-1;
AssignPipe(streamin,pipo);
if Linuxerror<>0 then
exit;
@ -1999,6 +2000,7 @@ begin
pl:=@(textrec(StreamOut).userdata[2]);
pl^:=pid;
textrec(StreamOut).closefunc:=@PCloseText;
AssignStream:=Pid;
end;
end;
@ -2929,7 +2931,10 @@ End.
{
$Log$
Revision 1.69 2000-05-17 17:11:44 peter
Revision 1.70 2000-05-21 17:10:13 michael
+ AssignStream now always returns PID of spawned process
Revision 1.69 2000/05/17 17:11:44 peter
* added sigaction record from signal.inc
Revision 1.68 2000/04/16 16:09:32 marco