25 lines
528 B
Modula-2
25 lines
528 B
Modula-2
DEFINITION MODULE Processes;
|
|
|
|
TYPE SIGNAL;
|
|
|
|
PROCEDURE StartProcess(P: PROC; n: CARDINAL);
|
|
(* Start a concurrent process with program "P" and workspace of
|
|
size "n"
|
|
*)
|
|
|
|
PROCEDURE SEND(VAR s: SIGNAL);
|
|
(* One process waiting for "s" is resumed
|
|
*)
|
|
|
|
PROCEDURE WAIT(VAR s: SIGNAL);
|
|
(* Wait for some other process to send "s"
|
|
*)
|
|
|
|
PROCEDURE Awaited(s: SIGNAL): BOOLEAN;
|
|
(* Return TRUE if at least one process is waiting for sinal "s".
|
|
*)
|
|
|
|
PROCEDURE Init(VAR s: SIGNAL);
|
|
(* Compulsory initialization
|
|
*)
|
|
END Processes.
|