From:	SCOVCB::GALVIN_FX    31-JAN-1989 09:04
To:	ARISIA::EVERHART
Subj:	

with text_io; use text_io;

        -------
package UTILITY is
        -------

-- AdaSim type declarations
   type ERROR_SEVERITY is (FATAL, WARNING);
   type OPTION is (ON, OFF);
   subtype CHAR_STRING is string (1..8);
   type LF_TYPE is (LF, NO_LF);

-- Instantiate generic i/o packages from text_io
   package REAL_IO is new float_io(float); 
   package INT_IO is new integer_io(integer);

-- AdaSim output control procedures
   procedure CONTROL_OUTPUT;
   procedure RELEASE_OUTPUT_CONTROL;

-- AdaSim output trace procedures
   procedure OUTPUT_TRACE (NUMBER : in float;    NAME    : in CHAR_STRING;
                           TEXT   : in string;   LF_FLAG : in LF_TYPE);

   procedure OUTPUT_TRACE (TEXT : in string; LF_FLAG : in LF_TYPE);

-- AdaSim string manipulation procedure
   function STRING_MATCH (NAME : in string; SIZE : in integer) 
                          return string;

end UTILITY;
