-- ****************************************************************************
-- Programmer Name : B. E. Wills
-- Program Name : Variable_Io package
-- Revision Number : Rev 1.0
-- Date Created : 1/15/88
-- Package Description : If the source input is longer than Segment_Length, then
--                       the line is divided into multiple segments according to
--                       length set at the time this package was instantiated.
--                       This feature is used so the output files generated by
--                       Interface_Generator will not exceed the line length for
--                       a given compiler.


with Text_Io;
generic

    Segment_Length : Natural := 80;  
package Variable_Io is
    max_length : integer := 2000;-- (longest possible string built up by

    --  ***********************************************************************
    --  Functional Description : The Put procedure fills up an output buffer
    --    that is an array of strings(1.. Segment_Length).
    procedure Put (File_Name : in Text_Io.File_Type; Source : in String);

    --  **********************************************************************
    --  Functional Description : Put_Line flushes the output buffer by sending
    --    its contents to the named device.  The output is sent in segments.
    procedure Put_Line (File_Name : in Text_Io.File_Type; Source : in String);
end Variable_Io;