-- File: [Cherry]<Thyme>System>C03>spModelDefs.mesa
-- Last editted:
-- by Barth, July 11, 1983  1:40 PM
-- Wilhelm April 6, 1982  12:45 PM, reformated by Barth and stored under
--   [Cherry]<Barth>Thyme>1.97> .
spModelDefs:  DEFINITIONS =
  BEGIN
    Retreat:  SIGNAL[cause:  STRING];
    Failure: SIGNAL[errorNum: CARDINAL];

    argList:  TYPE = LONG DESCRIPTOR FOR ARRAY OF REAL;
    model:    TYPE = PROCEDURE[args, oldArgs, parms, results:  argList];
    function: TYPE = PROCEDURE[t:  REAL, args, parms:  argList]
                       RETURNS[v:  REAL];

    EnterModels:  PROCEDURE[name:        LONG STRING,
                            proc:        model,
                            numArgs:     CARDINAL,
                            numParms,
                            numResults:  CARDINAL];

    EnterFunctions:  PROCEDURE[name:      LONG STRING,
                               proc:      function,
                               numArgs:   CARDINAL,
                               numParms:  CARDINAL];
  END.