Spawn:
PROC [cmd, in, out, err: UnixTypes.CHARPtr]
RETURNS [status:
INT] ~ {
RETURN [ UnixSysCallExtensions.Spawn [cmd, in, out, err] ];
};
Foo:
PROC [cmdRope:
ROPE, inputRope:
ROPE]
RETURNS [status:
INT] ~ {
cmdString: UnixTypes.CHARPtr ~ UXStrings.Create[from: cmdRope];
inputRope: ROPE ~ "/worsel/pelegri/tmp/INPUT";
inputString: UnixTypes.CHARPtr ~ UXStrings.Create[from: inputRope];
outputRope: ROPE ~ "/worsel/pelegri/tmp/OUTPUT";
outputString: UnixTypes.CHARPtr ~ UXStrings.Create[from: outputRope];
errorRope: ROPE ~ "/worsel/pelegri/tmp/ERROR";
errorString: UnixTypes.CHARPtr ~ UXStrings.Create[from: errorRope];
status ¬ Spawn[cmdString, inputString, outputString, errorString];
};