Last modified on Mon Dec 16 11:02:01 PST 1991 by kalsow modified on Sat May 19 07:28:29 1990 by muller
GENERIC MODULEGenWord (Impl); PROCEDUREPlus (x, y: T): T = BEGIN RETURN Impl.Plus (x, y) END Plus; PROCEDURETimes (x, y: T): T = BEGIN RETURN Impl.Times (x, y) END Times; PROCEDUREMinus (x, y: T): T = BEGIN RETURN Impl.Minus (x, y) END Minus; PROCEDUREDivide (x, y: T): T = BEGIN RETURN Impl.Divide (x, y) END Divide; PROCEDUREMod (x, y: T): T = BEGIN RETURN Impl.Mod (x, y) END Mod; PROCEDURELT (x, y: T): BOOLEAN = BEGIN RETURN Impl.LT (x, y) END LT; PROCEDURELE (x, y: T): BOOLEAN = BEGIN RETURN Impl.LE (x, y) END LE; PROCEDUREGT (x, y: T): BOOLEAN = BEGIN RETURN Impl.GT (x, y) END GT; PROCEDUREGE (x, y: T): BOOLEAN = BEGIN RETURN Impl.GE (x, y) END GE; PROCEDUREAnd (x, y: T): T = BEGIN RETURN Impl.And (x, y) END And; PROCEDUREOr (x, y: T): T = BEGIN RETURN Impl.Or (x, y) END Or; PROCEDUREXor (x, y: T): T = BEGIN RETURN Impl.Xor (x, y) END Xor; PROCEDURENot (x: T): T = BEGIN RETURN Impl.Not (x) END Not; PROCEDUREShift (x: T; n: INTEGER): T = BEGIN RETURN Impl.Shift (x, n) END Shift; PROCEDURELeftShift (x: T; n: [0..Size-1]): T = BEGIN RETURN Impl.LeftShift (x, n) END LeftShift; PROCEDURERightShift (x: T; n: [0..Size-1]): T = BEGIN RETURN Impl.RightShift (x, n) END RightShift; PROCEDURERotate (x: T; n: INTEGER): T = BEGIN RETURN Impl.Rotate (x, n) END Rotate; PROCEDURELeftRotate (x: T; n: [0..Size-1]): T = BEGIN RETURN Impl.LeftRotate (x, n) END LeftRotate; PROCEDURERightRotate (x: T; n: [0..Size-1]): T = BEGIN RETURN Impl.RightRotate (x, n) END RightRotate; PROCEDUREExtract (x: T; i, n: CARDINAL): T = BEGIN RETURN Impl.Extract (x, i, n) END Extract; PROCEDUREInsert (x, y: T; i, n: CARDINAL): T = BEGIN RETURN Impl.Insert (x, y, i, n) END Insert; BEGIN END GenWord.