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