CDStarter.mesa (part of Chipndale)
Copyright © 1983 by Xerox Corporation. All rights reserved.
by Christian Jacobi November 7, 1983 5:39 pm
last edited Christian Jacobi December 14, 1983 12:11 pm
DIRECTORY
CommandTool,
Rope,
TerminalIO,
UserProfile;
CDStarter: CEDAR PROGRAM
IMPORTS CommandTool, Rope, TerminalIO, UserProfile =
BEGIN
runList: LIST OF Rope.ROPE = UserProfile.ListOfTokens[key: "Chipndale.RunPrograms"];
FOR l: LIST OF Rope.ROPE ← runList, l.rest WHILE l#NIL DO
IF NOT Rope.IsEmpty[l.first] THEN {
msg: Rope.ROPE = CommandTool.Run[bcdName: l.first].errMsg;
IF msg#NIL THEN TerminalIO.WriteRope[msg];
}
ENDLOOP
END.