-- LupineTimeTest.mesa.
-- Copyright (C) 1985 by Xerox Corporation.  All rights reserved.
-- Last edited by BZM on  2-Mar-82 21:01:03.
-- Bob Hagmann February 8, 1985 5:10:28 pm PST


-- This a simple timing test program for Lupine.
-- It is used by LupineTimeTestImpl and LupineTimeTestDriver.
-- Each procedure implementation should echo its arguments back as results.



LupineTimeTest: DEFINITIONS = BEGIN


  Null: PROC;
  One:  PROC [one: INTEGER] RETURNS [a: INTEGER];
  Two:  PROC [one,two: INTEGER] RETURNS [a,b: INTEGER];
  Four: PROC [one,two,three,four: INTEGER] RETURNS [a,b,c,d: INTEGER];
  Ten:  PROC [one,two,three,four,five,six,seven,eight,nine,ten: INTEGER]
      RETURNS [a,b,c,d,e,f,g,h,i,j: INTEGER];

  Signal: SIGNAL [in: INTEGER] RETURNS [out: INTEGER];
  SignalAction: TYPE = {signal, error, neither};
  SignalTest: PROC [in: INTEGER, action: SignalAction] RETURNS [out: INTEGER];


  Array1: TYPE = ARRAY [0..1) OF INTEGER;
  Array4: TYPE = ARRAY [0..4) OF INTEGER;
  Array10: TYPE = ARRAY [0..10) OF INTEGER;
  Array40: TYPE = ARRAY [0..40) OF INTEGER;
  Array100: TYPE = ARRAY [0..100) OF INTEGER;

  OneArray: PROC [in: Array1] RETURNS [out: Array1];
  FourArray: PROC [in: Array4] RETURNS [out: Array4];
  TenArray: PROC [in: Array10] RETURNS [out: Array10];
  FortyArray: PROC [in: Array40] RETURNS [out: Array40];
  HundredArray: PROC [in: Array100] RETURNS [out: Array100];


END.  -- LupineTimeTest.


    <<Bob Hagmann February 8, 1985 5:10:28 pm PST>>
        <<changes to: LupineTimeTest>>
    <<>>