DefaultUserCmdParser.mesa
Frank Bowers January 24, 1986 10:59:15 am PST
DIRECTORY
CD,
IntStorageDefs,
IO,
ReadCifUserCmd;
DefaultUserCmdParser:
CEDAR
PROGRAM
IMPORTS
IO
EXPORTS ReadCifUserCmd =
BEGIN
ParseUserCmd:
PUBLIC
PROC [userCmd: IntStorageDefs.UserCmd, cell:
CD.Object, design:
CD.Design, reportError: ReadCifUserCmd.ReportErrorProc] =
BEGIN
reportError[
IO.PutFR["UserCmd %g not defined",
IO.int[userCmd.command]], Warning];
END;
END.