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