TestTerminalIO.mesa
Copyright Ó 1989, 1992 by Xerox Corporation. All rights reserved.
Krivacic, September 27, 1989 11:46:17 am PDT
Bob Krivacic September 27, 1989 12:03:01 pm PDT
Christian Jacobi, March 27, 1992 3:13 pm PST
Test TerminalIO
DIRECTORY
Rope,
TerminalIO;
TestTerminalIO: CEDAR PROGRAM
IMPORTS Rope, TerminalIO
~ BEGIN
lastRope: Rope.ROPE ¬ "";
Read a Rope
ReadRope: PUBLIC PROC [prompt: Rope.ROPE] RETURNS [stop: BOOL] ~ {
Read a rope from TerminalIO. If it is quit then set stop = TRUE
lastRope ¬ TerminalIO.RequestRope[prompt];
stop ¬ FALSE;
IF Rope.Equal[lastRope, "quit", FALSE] THEN stop ¬ TRUE;
IF Rope.Equal[lastRope, "cf", FALSE] THEN {
IF TerminalIO.Confirm["Press Here", "This Selection returns TRUE", 0, TRUE] THEN
TerminalIO.PutRope["Confirm TRUE \n"]
ELSE TerminalIO.PutRope["Confirm FALSE \n"];
};
};
WHILE NOT ReadRope["Enter a Value (quit to exit, cf to test confirm): "] DO
TerminalIO.PutRopes["Last str: ", lastRope," \n"];
ENDLOOP;
TerminalIO.PutRope["Done\n"];
END.