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