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