DIRECTORY
Commander,
CommanderOps,
InstallationStartInfo,
Rope,
IO;

ShowStartTraps: CEDAR PROGRAM
IMPORTS Commander, CommanderOps, InstallationStartInfo, IO, Rope
~ BEGIN

ROPE: TYPE ~ Rope.ROPE;

ShowTraps: Commander.CommandProc ~ {
PrintList[cmd.out, InstallationStartInfo.ListStartTraps[], CommanderOps.NextArgument[cmd]];
};

ShowOrder: Commander.CommandProc ~ {
PrintList[cmd.out, InstallationStartInfo.ListStartOrder[], CommanderOps.NextArgument[cmd]];
};

PrintList: PROC[out: IO.STREAM, list: LIST OF ROPE, filter: ROPE] ~ {
FOR r: LIST OF ROPE ¬ list, r.rest WHILE r#NIL DO
IF filter # NIL THEN IF Rope.Find[r.first, filter] # 0 THEN LOOP;
out.PutF1["\t%g\n", [rope[r.first]]];
ENDLOOP;
};

Commander.Register["ShowStartTraps", ShowTraps, "usage: ShowStartTraps {filter - case matters}"];
Commander.Register["ShowStartOrder", ShowOrder, "usage: ShowStartOrder {filter - case matters}"];

END.
       
ShowStartTraps.mesa
Copyright Ó 1993 by Xerox Corporation.  All rights reserved.
Chauser, March 5, 1993 1:35 pm PST
Willie-s, March 9, 1993 2:21 pm PST

ÊW  •NewlineDelimiter
™ ™Jšœ
Ïeœ1™<J™"J™#—J™ codešÏk	˜	K˜
K˜K˜K˜Kšžœ˜—K˜ KšÏnœžœž˜Kšžœ1žœ˜@šœž˜K˜ Kšžœžœžœ˜K˜ šŸ	œ˜$K˜[K˜K˜ —šŸ	œ˜$K˜[K˜K˜ —šŸ	œžœžœžœžœžœžœ
žœ˜Ešžœžœžœžœžœžœž˜1Kšžœ
žœžœžœ žœžœ˜AK˜%Kšžœ˜—K˜K˜ —K˜aK˜a—K˜ Kšžœ˜— …—    ˆ    