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