CedarFromUnixImpl.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Created by Christian Jacobi, April 3, 1992 10:51:29 am PST
Christian Jacobi, April 3, 1992 2:59 pm PST
DIRECTORY
Atom, Commander, CommanderOps, Rope, SystemNames;
CedarFromUnixImpl:
CEDAR
PROGRAM
IMPORTS Atom, Commander, CommanderOps, Rope, SystemNames =
BEGIN
AssertUserCommand: Commander.CommandProc = {
supposed: Rope.ROPE ¬ CommanderOps.ArgN[cmd, 1];
really: Rope.ROPE ¬ SystemNames.UserName[];
IF ~Rope.Equal[supposed, really] THEN CommanderOps.Failed["Logged in user does not match"];
};
Commander.Register[key: "AssertUser", proc: AssertUserCommand, doc: "Check identity of logged user"];
Atom.PutProp[$CommanderOnStandardStreams, $DontExit, $TRUE];
[] ¬ CommanderOps.DoCommand["require Cedar NetCommander NetCommander", NIL];
[] ¬ CommanderOps.DoCommand["require Cedar X11Selections X11Selections", NIL];
[] ¬ CommanderOps.DoCommand["require Cedar XTkFeedback XTkFeedback", NIL];
[] ¬ CommanderOps.DoCommand["require Cedar X11Tcl TclCommander", NIL];
[] ¬ CommanderOps.DoCommand["NetCommanderOn 9999", NIL];
[] ¬ CommanderOps.DoCommand["TclCommander", NIL];
END.