DIRECTORY Commander USING [Handle], CommandTool USING [DoCommand], FSBackdoor USING [CreateEvent, NextCreateEvent], ProcessProps USING [GetProp], Rope USING [Cat, Match, ROPE]; ExpertPrint: CEDAR PROGRAM IMPORTS CommandTool, FSBackdoor, ProcessProps, Rope ~ BEGIN ExpertPrint: PROC [] ~ { cmd: Commander.Handle _ NARROW[ProcessProps.GetProp[$CommanderHandle]]; event: REF READONLY FSBackdoor.CreateEvent _ NIL; DO event _ FSBackdoor.NextCreateEvent[event]; IF Rope.Match[pattern: "[]<>Temp>IP>Print1!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint1.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print2!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint2.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print3!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint3.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print4!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint4.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print5!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint5.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print6!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint6.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print7!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint7.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print8!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint8.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print9!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint9.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print10!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint10.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print11!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint11.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print12!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint12.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print13!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint13.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print14!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint14.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print15!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint15.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print16!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint16.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print17!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint17.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print18!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint18.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print19!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint19.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print20!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint20.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print21!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint21.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print22!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint22.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print23!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint23.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print24!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint24.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print25!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint25.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print26!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint26.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print27!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint27.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print28!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint28.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print29!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint29.cm ",event.fName], cmd]; IF Rope.Match[pattern: "[]<>Temp>IP>Print30!*", object: event.fName, case: FALSE] THEN [] _ CommandTool.DoCommand[Rope.Cat["ExpertPrint30.cm ",event.fName], cmd]; ENDLOOP; }; ExpertPrint[]; END. TExpertPrint.mesa Copyright Ó 1987 by Xerox Corporation. All rights reserved. Christophe Cuenod July 14, 1989 10:24:42 am PDT Wait for some files to be modified, then transform it and print it. ExpertPrint: Commander.CommandProc ~ { Commander.Register[key: "ExpertPrint", proc: ExpertPrint, doc: "Print files sent by Expert System"]; Ê ˜codešœ™Kšœ<™