Copyright (C) 1994, Digital Equipment Corp.
MODULE Word;
IMPORT Word; (* let the compiler implement each of these as inlines *)
PROCEDURE Plus (x, y: T): T = BEGIN RETURN Word.Plus (x, y) END Plus;
PROCEDURE Times (x, y: T): T = BEGIN RETURN Word.Times (x, y) END Times;
PROCEDURE Minus (x, y: T): T = BEGIN RETURN Word.Minus (x, y) END Minus;
PROCEDURE Divide (x, y: T): T = BEGIN RETURN Word.Divide (x, y) END Divide;
PROCEDURE Mod (x, y: T): T = BEGIN RETURN Word.Mod (x, y) END Mod;
PROCEDURE LT (x, y: T): BOOLEAN = BEGIN RETURN Word.LT (x, y) END LT;
PROCEDURE LE (x, y: T): BOOLEAN = BEGIN RETURN Word.LE (x, y) END LE;
PROCEDURE GT (x, y: T): BOOLEAN = BEGIN RETURN Word.GT (x, y) END GT;
PROCEDURE GE (x, y: T): BOOLEAN = BEGIN RETURN Word.GE (x, y) END GE;
PROCEDURE And (x, y: T): T = BEGIN RETURN Word.And (x, y) END And;
PROCEDURE Or (x, y: T): T = BEGIN RETURN Word.Or (x, y) END Or;
PROCEDURE Xor (x, y: T): T = BEGIN RETURN Word.Xor (x, y) END Xor;
PROCEDURE Not (x: T): T = BEGIN RETURN Word.Not (x) END Not;
PROCEDURE Shift (x: T; n: INTEGER): T
= BEGIN RETURN Word.Shift (x, n) END Shift;
PROCEDURE LeftShift (x: T; n: [0..Size-1]): T
= BEGIN RETURN Word.LeftShift (x, n) END LeftShift;
PROCEDURE RightShift (x: T; n: [0..Size-1]): T
= BEGIN RETURN Word.RightShift (x, n) END RightShift;
PROCEDURE Rotate (x: T; n: INTEGER): T
= BEGIN RETURN Word.Rotate (x, n) END Rotate;
PROCEDURE LeftRotate (x: T; n: [0..Size-1]): T
= BEGIN RETURN Word.LeftRotate (x, n) END LeftRotate;
PROCEDURE RightRotate (x: T; n: [0..Size-1]): T
= BEGIN RETURN Word.RightRotate (x, n) END RightRotate;
PROCEDURE Extract (x: T; i, n: CARDINAL): T
= BEGIN RETURN Word.Extract (x, i, n) END Extract;
PROCEDURE Insert (x, y: T; i, n: CARDINAL): T
= BEGIN RETURN Word.Insert (x, y, i, n) END Insert;
BEGIN
END Word.