DIRECTORY Commander, CommanderOps, IO, Rope, UserProfile;

UserProfileCommandsImpl: CEDAR PROGRAM
IMPORTS Commander, CommanderOps, IO, Rope, UserProfile
~ BEGIN

ROPE: TYPE ~ Rope.ROPE;

CommandsFromProfileCommand: Commander.CommandProc = {
FOR initialKey: ROPE ¬ CommanderOps.NextArgument[cmd], CommanderOps.NextArgument[cmd] UNTIL initialKey = NIL DO
initial: ROPE ~ UserProfile.Line[initialKey];
IF initial # NIL THEN {
hadFailure: BOOL ¬ CommanderOps.ReadEvalPrintLoop[
CommanderOps.CreateFromStreams[in: IO.RIS[initial], parentCommander: cmd]
];
IF hadFailure THEN {
ERROR CommanderOps.Failed[Rope.Cat["[[Command failed during processing of CommandsFromProfile ", initialKey,"]]"]];
};
};
ENDLOOP;
};

Commander.Register[key: "CommandsFromProfile", proc: CommandsFromProfileCommand, doc: "Execute commands from a user profile entry\nUsage: CommandsFromProfile key ..."];


END.
    ˜  
UserProfileCommandsImpl.mesa
Copyright Ó 1990, 1991 by Xerox Corporation.  All rights reserved.
Michael Plass, February 6, 1990 11:18:29 am PST

Êa  •NewlineDelimiter
–(cedarcode) style™ codešœ™Kšœ
Ïeœ7™BK™/K™ —KšÏk	œžœ˜9K˜ KšÏnœžœž˜&Kšžœžœ˜6šœž˜K˜ šžœžœžœ˜K˜ —šŸœ˜5š	žœžœBžœžœž˜oKšœ	žœ ˜-šžœžœžœ˜šœžœ"˜2Kšœ#žœžœ ˜IKšœ˜—šžœžœ˜Kšžœn˜sKšœ˜—Kšœ˜—Kšžœ˜—Kšœ˜K˜ —Kšœ¨˜¨K˜ K˜ —Kšžœ˜— …—    t  m  