DIRECTORY IPBasic USING [Any, Identifier, Integer, Number, Operator, SaveType, State, Vector]; IPExec: CEDAR DEFINITIONS = BEGIN OPEN IPBasic; FGet: PROC[self: State, n: Integer] RETURNS[Any]; FSet: PROC[self: State, x: Any, n: Integer]; MakeCO: PROC[self: State, f: Vector] RETURNS[Operator]; MakeSimpleCO: PROC[self: State] RETURNS[Operator]; Do: PROC[self: State, o: Operator, sv: SaveType _ nil]; DoBody: PROC[self: State, f: Vector, sv: SaveType _ nil]; DoSimpleBody: PROC[self: State, sv: SaveType _ nil]; If: PROC[self: State, b: BOOL]; CopyNumberAndName: PROC[self: State] RETURNS[copyNumber: Number, copyName: Identifier]; IfCopy: PROC[self: State, testCopy: Operator]; END. IPExec.mesa Last edited by: Doug Wyatt, April 8, 1983 4:57 pm 2.4.4 Frame operators Return the current value of the nth frame element. ! MasterError[BoundsFault] if n does not name an element of the frame Set the value of the nth frame element to x. ! MasterError[BoundsFault] if n does not name an element of the frame 2.4.5 Operator operators Make a composed operator from the body that follows in the master. Use f as the operator's initial frame. ! MasterError[NarrowFailed] if f cannot be converted into a Vec ! MasterError[MissingBody] if no body is found Make a composed operator from the body that follows in the master. Use a copy of the current frame as the operator's initial frame. ! MasterError[MissingBody] if no body is found 2.4.7 Control operators Κ{˜headšœ ™ šœ™Jšœ!™!—J˜šΟk ˜ JšœœG˜T—J˜—šœœ ˜Jšœœœ ˜J˜šœ™šΟnœœœ˜1Jšœ2™2J™E—J˜šžœœ"˜,Jšœ,™,J™E—J˜—šœ™šžœœœ ˜7J™BJ™&J™?J™.—J˜šž œœœ ˜2J™BJ™@J™.—J˜Jšžœœ/˜7J˜Jšžœœ-˜9J˜Jšž œœ"˜4J˜—šœ™Jšžœœœ˜J˜šžœœ ˜$Jšœ+˜2—J˜Jšžœœ"˜.J™—J˜Jšœ˜——…—Ί=