With Jlib80;
Package Util Is
    -- Spec for the package util
    -- Last modifed 9/22/82
    -- Contains the utility routines, and the basic file handling routines

    -- Copyright 1982  RR Software, P.O. Box 1512, Madison WI 53701
    -- Permission is hereby given to distribute Object Code produced from
    -- these libraries.


    Use JLib80; -- So the file definitions are available

    Procedure Err_Exit;
    Procedure Halt;
    Function Hi (val : Integer) Return Byte;
    Function Lo (val : Integer) Return Byte;
    Function Memavail Return Integer;
    Function Maxavail Return Integer;
    Function Command_Line Return String;
	-- Returns the command line

    -- Default File Procedures

    Function FConvert(Fyle : In File) Return File_ptr;
    Procedure FFConvert(Fyle_ptr : In File_Ptr; Fyle : Out File);
	-- Convert to and from the type file to the type file_ptr
	-- For system use only, Not to be used in user programs.

    Function Standard_Input Return File;
	-- Returns the initial default system input file
    Function Standard_Output Return File;
	-- Returns the initial default system output file
    Function Current_Input Return File;
	-- Returns the current default input file
    Function Current_Output Return File;
	-- Returns the current default output file
    Procedure Set_Input(Fyle : In File);
	-- Set the current default input file to fyle
    Procedure Set_Output(Fyle : In File);
	-- Set the current default output file to fyle

End Util;