DataMuseum.dk

top - download

    Length: 2760 (0xac8)
    Types: TextFile
    Names: »B«

└─⟦afbc8121e⟧ Bits:30000532 8mm tape, Rational 1000, MC68020_OS2000 7_2_2
    └─ ⟦77aa8350c⟧ »DATA« 
        └─⟦f794ecd1d⟧ 
            └─⟦4c85d69e2⟧ 
                └─⟦this⟧ 

TextFile

--    The use of this system is subject to the software license terms and
--    conditions agreed upon between Rational and the Customer.
--
--                Copyright 1988 by Rational.
--
--                          RESTRICTED RIGHTS LEGEND
--
--    Use, duplication, or disclosure by the Government is subject to
--    restrictions as set forth in subdivision (b)(3)(ii) of the Rights in
--    Technical Data and Computer Software clause at 52.227-7013.
--
--
--                Rational
--                3320 Scott Boulevard
--                Santa Clara, California 95054-3197
--
--   PROPRIETARY AND CONFIDENTIAL INFORMATION OF RATIONAL;
--   USE OR COPYING WITHOUT EXPRESS WRITTEN AUTHORIZATION
--   IS STRICTLY PROHIBITED.  THIS MATERIAL IS PROTECTED AS
--   AN UNPUBLISHED WORK UNDER THE U.S. COPYRIGHT ACT OF
--   1976.  CREATED 1988.  ALL RIGHTS RESERVED.
--
--

with Simple_Io;

package body Primitive_Io is

    -- subtype Command_Line is String (1 .. 256);
    -- type Command_Line_Ptr is access Command_Line;
    -- for Command_Line_Ptr'Storage_Size use 0;
    --
    -- Param_Ptr : Command_Line_Ptr;
    -- pragma Import_Object (Param_Ptr, "__OS_Param_Ptr");
    --
    -- Param_Size : Integer;
    -- pragma Import_Object (Param_Size, "__OS_Param_Size");

    -- procedure Scan_Command_Line is
    --     Params : Command_Line renames Param_Ptr.all;
    -- begin
    --     for I in 1 .. Param_Size - 1 loop
    --         if Params (I) = '-' then
    --             if Params (I + 1) = 'i' or else Params (I + 1) = 'I' then
    --                 Global_Absorb_Output := False;
    --                 Put_Line ("Text_Io tracing => True");
    --             end if;
    --         elsif Params (I) = Ascii.Nul then
    --             exit;
    --         end if;
    --     end loop;
    -- end Scan_Command_Line;

    procedure Put (S             : in String;
                   Absorb_Output :    Boolean := Global_Absorb_Output) is
    begin
        if not Absorb_Output then
            Simple_Io.Put (S);
        end if;
    end Put;

    procedure Put_Line (S             : in String;
                        Absorb_Output :    Boolean := Global_Absorb_Output) is
    begin
        if not Absorb_Output then
            Simple_Io.Put_Line (S);
        end if;
    end Put_Line;

    procedure Get_Line (S : out String; L : out Natural) is
    begin
        raise Program_Error;
    end Get_Line;

    function Integer_Image (I : in Integer) return String is
        S : constant String := Integer'Image (I);
    begin
        if I < 0 then
            return S;
        else
            return S (2 .. S'Length);
        end if;
    end Integer_Image;

--begin
--  Scan_Command_Line;
--  Global_Absorb_Output := False;
end Primitive_Io;