
<<file P5S.mesa >>
<<last modified by Sweet, April 9, 1980  9:44 PM>>
<<last modified by Satterthwaite, November 27, 1985 2:37:20 pm PST>>

DIRECTORY
CodeDefs: TYPE USING [Lexeme],
Tree: TYPE USING [Index];

P5S: DEFINITIONS = { 
OPEN CodeDefs;

<<from Address>>
DIndex: PROC [node: Tree.Index] RETURNS [Lexeme];
Index: PROC [node: Tree.Index] RETURNS [Lexeme];
SeqIndex: PROC [node: Tree.Index] RETURNS [Lexeme];

<<from Calls>>
Bind: PROC [node: Tree.Index];
Call: PROC [node: Tree.Index];
CallExp: PROC [node: Tree.Index] RETURNS [Lexeme];
Create: PROC [node: Tree.Index] RETURNS [Lexeme];
ErrExp: PROC [node: Tree.Index] RETURNS [Lexeme];
ForkExp: PROC [node: Tree.Index] RETURNS [Lexeme];
Free: PROC [node: Tree.Index];
InlineCall: PROC [node: Tree.Index];
InlineCallExp: PROC [node: Tree.Index] RETURNS [Lexeme];
JoinExp: PROC [node: Tree.Index] RETURNS [Lexeme];
Join: PROC [node: Tree.Index];
ProcCheck: PROC [node: Tree.Index] RETURNS [Lexeme];
Restart: PROC [node: Tree.Index];
RetWithError: PROC [node: Tree.Index];
SigErr: PROC [node: Tree.Index];
SigExp: PROC [node: Tree.Index] RETURNS [Lexeme];
Start: PROC [node: Tree.Index];
StartExp: PROC [node: Tree.Index] RETURNS [Lexeme];
Stop: PROC [node: Tree.Index];
SysErrExp: PROC [node: Tree.Index] RETURNS [Lexeme];
Unlock: PROC [node: Tree.Index];
Wait: PROC [node: Tree.Index];

<<from Driver>>
Lock: PROC [node: Tree.Index];
Result: PROC [node: Tree.Index];
Resume: PROC [node: Tree.Index];
Return: PROC [node: Tree.Index];
StringInit: PROC [node: Tree.Index] RETURNS [Lexeme];
Subst: PROC [node: Tree.Index];
SubstExp: PROC [node: Tree.Index] RETURNS [Lexeme];

<<from Flow>>
CatchMark: PROC [node: Tree.Index];
Continue: PROC;
Exit: PROC;
GoTo: PROC [node: Tree.Index];
Label: PROC [node: Tree.Index];
Loop: PROC;
Retry: PROC;

<<from Store>>
Assign: PROC [node: Tree.Index];
AssignExp: PROC [node: Tree.Index] RETURNS [Lexeme];
BodyInit: PROC [node: Tree.Index] RETURNS [Lexeme];
Extract: PROC [node: Tree.Index];
ExtractExp: PROC [node: Tree.Index] RETURNS [Lexeme];
ProcInit: PROC [node: Tree.Index];

}.

