(* Copyright (C) 1989, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* File: WordModule.m3                                         *)
(* Last Modified On Thu Jul 27 17:10:39 1989 By muller         *)
(*      Modified On Sun Jul 16 12:18:44 1989 By kalsow         *)

MODULE WordModule;

IMPORT Scope, Tipe, Module, Int, IntegerExpr, Constant, Target, NamedType;
IMPORT WordPlus, WordMinus, WordTimes, WordLT, WordLE, WordGT, WordGE;
IMPORT WordAnd, WordOr, WordXor, WordShift, WordRotate, WordExtract;
IMPORT WordInsert, WordNot, WordDivide, WordMod;


PROCEDURE Initialize () =
  BEGIN
    M := Module.NewDefn ("Word", TRUE);
    Scope.Push (Module.ExportScope (M));
    Tipe.Define ("T", NamedType.New (Int.T));
    Constant.Declare ("Size", IntegerExpr.New (Target.INTSIZE));
    WordPlus.Initialize ();
    WordMinus.Initialize ();
    WordTimes.Initialize ();
    WordDivide.Initialize ();
    WordMod.Initialize ();
    WordLT.Initialize ();
    WordLE.Initialize ();
    WordGT.Initialize ();
    WordGE.Initialize ();
    WordAnd.Initialize ();
    WordOr.Initialize ();
    WordXor.Initialize ();
    WordNot.Initialize ();
    WordShift.Initialize ();
    WordRotate.Initialize ();
    WordExtract.Initialize ();
    WordInsert.Initialize ();
    Scope.Pop ();
  END Initialize;

BEGIN
END WordModule.