DIRECTORY
UnixSysCallExtensions USING [Spawn],
Rope,
UXStrings,
UnixTypes USING [CHARPtr];


Test2: CEDAR PROGRAM
IMPORTS UnixSysCallExtensions, UXStrings
~ BEGIN

ROPE: TYPE ~ Rope.ROPE;

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];
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];
};

[] ¬ Foo["cd /worsel/pelegri/tmp ; /bin/csh -s", "/worsel/pelegri/tmp/INPUT"];

END.
   €  
Test2.mesa
Copyright Ó 1991 by Xerox Corporation.  All rights reserved.

inputRope: ROPE ~ "/worsel/pelegri/tmp/INPUT";
 Êc  –(cedarcode) style•NewlineDelimiter
™ ™
Jšœ
Ïeœ1™<J™ —codešÏk	˜	Kšœžœ	˜$K˜K˜
Kšœ
žœ˜K˜ —K˜ KšÐlnœž˜Kšžœ!˜(šœž˜K˜ Kšžœžœžœ˜K˜ šÏnœžœ(žœ
žœ˜LKšžœ5˜;K˜K˜ —š œžœžœžœžœ
žœ˜DKšœ?˜?Kšœžœ™.KšœC˜CKšœžœ ˜0KšœE˜EKšœžœ˜.KšœC˜CK˜ Kšœ	 œ4˜BK˜—K˜ KšœN˜N—K˜ Kšžœ˜— …—    š  }  