DIRECTORY Basics, BasicTime, Commander, ComputeServerControl, FS, List, IO, ProcessProps, Rope; TestMoreFeaturesImpl: CEDAR PROGRAM IMPORTS BasicTime, ComputeServerControl, FS, IO = BEGIN STREAM: TYPE = IO.STREAM; ROPE: TYPE = Rope.ROPE; testMoreFeatures: Commander.CommandProc = { in: STREAM = cmd.in; out: STREAM = cmd.out; err: STREAM = cmd.err; commandLine: ROPE _ cmd.commandLine; smallFileToCat, writeTime, readTime: STREAM; now: BasicTime.GMT; smallFileToCat _ FS.StreamOpen["GlobalSmallFileToCat.txt"]; out.Put[IO.rope[" Type GlobalSmallFileToCat on stdout "]]; DO out.PutChar[smallFileToCat.GetChar[! IO.EndOfStream => EXIT]]; ENDLOOP; smallFileToCat.Close[]; writeTime _ FS.StreamOpen["WriteTimeTest.file", $create]; now _ BasicTime.Now[]; writeTime.Put[IO.time[now]]; writeTime.Close[]; readTime _ FS.StreamOpen["WriteTimeTest.file"]; out.Put[IO.rope[" Time written to file is: "], IO.time[now], IO.rope[" Time read from file is: "]]; DO out.PutChar[readTime.GetChar[! IO.EndOfStream => EXIT]]; ENDLOOP; readTime.Close[]; out.Put[IO.rope[" The tests are all done "]]; }; ComputeServerControl.Register[key: "SummonerTestFeatures2", version: "1", proc: testMoreFeatures, doc: NIL, clientData: NIL]; END. ΰTestMoreFeaturesImpl.mesa The Compute Server side of the Summoner. Last Edited by: Bob Hagmann, May 3, 1985 9:09:45 am PDT Copyright c 1984 by Xerox Corporation. All rights reserved. Variable Declarations Test Code Κ – "Cedar" style˜headšœ™Ibodyšœ(™(™7Jšœ Οmœ1™<—code2šΟk ˜ Mšœ˜M˜ Mšœ ˜ Mšœ˜Mšžœ˜M˜Mšžœ˜M˜ Mšœ˜——šœžœž˜#Mšžœ žœž˜/Mšœž˜—™Mšžœžœžœžœ˜Mšžœžœžœ˜Icode˜—™ šΟbœ˜+M˜Mšœžœ ˜Mšœžœ ˜Mšœžœ ˜Mšœ žœ˜$M˜Mšœ%žœ˜,˜M˜—Mšœžœ(˜;M˜Mšœžœ0˜:šž˜Mšœ%žœžœ˜>Mšžœ˜—M˜Mšœ˜M˜Mšœ9˜9Mšœ˜Mšœ˜Mšœ˜M˜Mšœ/˜/Mšœžœ4žœ$˜dšž˜Mšœžœžœ˜8Mšž˜—Mšœ˜M˜Mšœžœ$˜.M˜—N˜Nšœ}˜}Mšžœ˜—N™N™—…—Κ·