DIRECTORY LupineMarshalTestRpcControl USING [InterfaceRecord], Rope USING [ROPE]; LupineExerciser: DEFINITIONS = BEGIN TestInterface: LupineMarshalTestRpcControl.InterfaceRecord; Counter: TYPE = INTEGER; String: TYPE = Rope.ROPE _ NIL; StandardPasses: Counter = 1; StandardTrialsPerPass: Counter = 1; StandardTestsPerTrial: Counter = 2000; Exercise: TYPE = RECORD [ name, description: String _ NIL, routine: ExerciseProc ]; ExerciseIndex: TYPE = INTEGER[0..LAST[INTEGER]]; ExerciseList: TYPE = LONG DESCRIPTOR FOR READONLY ARRAY ExerciseIndex OF Exercise _ NIL; ExerciseProc: TYPE = PROCEDURE [ exerciser: Handle, name: String, trials: Counter _ StandardTrialsPerPass, testsPerTrial: Counter _ StandardTestsPerTrial, checkResults: BOOLEAN _ TRUE ]; Handle: TYPE [1]; PerformExercises: PROCEDURE [ nameOfExercisedInterface: String, exercises: ExerciseList ]; BadExercise: SIGNAL; Start: PROCEDURE [self: Handle, name: String]; Stamp: PROCEDURE [self: Handle]; Delay: PROCEDURE [self: Handle]; Stop: PROCEDURE [self: Handle]; StartPrecisionTiming: PROCEDURE [self: Handle]; StopPrecisionTiming: PROCEDURE [self: Handle]; END. -- LupineExerciser. ΒLupineExerciser.mesa. Copyright c 1985 by Xerox Corporation. All rights reserved. Last edited by BZM on 9-Mar-82 17:05:26. Last edited by Bob Hagmann on February 8, 1985 5:08:18 pm PST Κλ˜headšœ™Icodešœ Οmœ1™™>—šΟk ˜ Jšœžœ˜4Jšœžœžœ˜—J˜Jšœž œž˜$˜Jšœ;˜;J˜Jšœ žœžœ˜Jšœžœžœ˜J˜J˜J˜#J˜&J˜J˜šœ žœžœ˜Jšœžœ˜ J˜J˜—Jš œžœžœžœžœ˜0J˜šœžœ˜Jšžœž œžœžœžœžœ žœ˜CJ˜—šΟn œžœž œ˜ J˜J˜ J˜(J˜/Jšœžœžœ˜J˜—Jšœžœ˜J˜J˜šŸœž œ˜J˜!J˜J˜—Jšœ žœ˜J˜JšŸœž œ˜.JšŸœž œ˜ JšŸœž œ˜ JšŸœž œ˜ J˜JšŸœž œ˜/JšŸœž œ˜/J˜—JšžœΟc˜J˜—…—Ž;