DIRECTORY DelayedFork, FastFork, ForkOps, PeriodicalFork; FastForkStubbed: CEDAR MONITOR IMPORTS ForkOps EXPORTS FastFork, DelayedFork, PeriodicalFork = BEGIN Fork: PUBLIC PROC [proc: PROC[REF], data: REF ¬ NIL, priority: CARD32 ¬ 2] = { ForkOps.Fork[proc, data, priority]; }; ForkSoon: PUBLIC PROC [ms: INT ¬ 0, proc: PROC[REF], data: REF ¬ NIL, priority: CARD32 ¬ 2] = { ForkOps.ForkDelayed[ms, proc, data, priority]; }; Register: PUBLIC PROC [ms: INT ¬ 0, proc: PROC[REF], data: REF ¬ NIL, priority: CARD32 ¬ 2] = { ForkOps.ForkPeriodically[ms, proc, data, priority]; }; Unregister: PUBLIC PROC [proc: PROC[REF], data: REF ¬ NIL] = { ForkOps.Stop[proc, data, FALSE]; }; UnregisterSelf: PUBLIC PROC [] = { ERROR ABORTED }; END. άFastForkStubbed.mesa Copyright Σ 1989, 1990, 1991, 1992, 1993 by Xerox Corporation. All rights reserved. Created by Christian Jacobi, February 27, 1989 12:18:47 pm PST Christian Jacobi, April 16, 1993 7:50 pm PDT Κ—•NewlineDelimiter –(cedarcode) style˜code™Kšœ ΟeœI™TKšœ>™>K™,—K˜šΟk œ0˜9K˜—šΟnœžœž˜Kšžœ˜Kšžœ(˜/—šž˜K˜—šŸœžœžœžœžœ žœžœ žœ ˜NK˜#K˜K˜—šŸœžœžœžœ žœžœ žœžœ žœ ˜_K˜.K˜K˜—šŸœžœžœžœ žœžœ žœžœ žœ ˜_K˜3K˜K˜—šŸ œžœžœžœžœ žœžœ˜>Kšœžœ˜ K˜K˜—šŸœžœžœœœ˜"Kšžœž˜ K˜K˜—Kšžœ˜—…—δW