-- file P5S.mesa 
-- last modified by Sweet, November 13, 1979  12:34 PM

DIRECTORY
  CodeDefs: FROM "codedefs" USING [Lexeme],
  Tree: FROM "tree" USING [Index];

P5S: DEFINITIONS = 
  BEGIN OPEN CodeDefs;

-- from address.mesa
  DIndex: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];
  Index: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];
  SeqIndex: PUBLIC PROCEDURE [node: Tree.Index] RETURNS [Lexeme];

-- from calls.mesa
  InlineCallExp: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];
  New: PROCEDURE [node: Tree.Index] RETURNS[Lexeme];
  ErrExp: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];
  SigExp: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];
  SysErrExp: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];
  StartExp: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];
  Bind: PROCEDURE [node: Tree.Index];
  Call: PROCEDURE [node: Tree.Index];
  InlineCall: PROCEDURE [node: Tree.Index];
  CallExp: PUBLIC PROCEDURE [node: Tree.Index] RETURNS [Lexeme];
  Restart: PROCEDURE [node: Tree.Index];
  SigErr: PROCEDURE [node: Tree.Index];
  Start: PROCEDURE [node: Tree.Index];
  Stop: PROCEDURE [node: Tree.Index];
  RetWithError: PROCEDURE [node: Tree.Index];
  Wait: PROCEDURE [node: Tree.Index];
  ForkExp: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];
  JoinExp: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];
  Join: PROCEDURE [node: Tree.Index];
  Unlock: PROCEDURE [node: Tree.Index];

-- from driver.mesa
  Lock: PROCEDURE [node: Tree.Index];
  Resume: PROCEDURE [node: Tree.Index];
  Result: PROCEDURE [node: Tree.Index];
  Return: PROCEDURE [node: Tree.Index];
  Subst: PROCEDURE [node: Tree.Index];
  SubstExp: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];

--from flow.mesa
  CatchMark: PROCEDURE [node: Tree.Index];
  Continue: PROCEDURE;
  Exit: PROCEDURE;
  Loop: PROCEDURE;
  GoTo: PROCEDURE [node: Tree.Index];
  Label: PROCEDURE [node: Tree.Index];
  Retry: PROCEDURE;

--from store.mesa
  Assign: PROCEDURE [node: Tree.Index];
  ProcInit: PROCEDURE [node: Tree.Index];
  AssignExp: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];
  BodyInit: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];
  PortInit: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];
  StringInit: PROCEDURE [node: Tree.Index] RETURNS [Lexeme];

-- from Constructor

  Extract: PROCEDURE [node: Tree.Index];
  FExtract: PROCEDURE [node: Tree.Index];

END.