-- file P5S.mesa 
-- last modified by Sweet, April 9, 1980  9:44 PM
-- last modified by Satterthwaite, 31-Dec-81 10:40:31

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

P5S: DEFINITIONS = 
  BEGIN OPEN CodeDefs;

 -- from Address
  DIndex: PROC [node: Tree.Index] RETURNS [Lexeme];
  Index: PROC [node: Tree.Index] RETURNS [Lexeme];
  SeqIndex: PUBLIC PROC [node: Tree.Index] RETURNS [Lexeme];

 -- from Calls
  Bind: PROC [node: Tree.Index];
  Call: PROC [node: Tree.Index];
  CallExp: PUBLIC 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];

  END.