DataMuseum.dk

top - download

    Length: 2786 (0xae2)
    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 Os2000_Io;

package body Simple_Io is

    Cr_Lf : constant String := Ascii.Cr & Ascii.Lf;

    procedure Put (S : String) is
        Length        : Natural := S'Length;
        Bytes_Written : Natural;  -- ignored
        Status        : Os2000_Io.Stratus;  -- ignored
    begin
        if Length > 0 then
            Os2000_Io.Write (Path          => Os2000_Io.Standard_Out,
                             Count         => Length,
                             Buffer        => S (S'First)'Address,
                             Bytes_Written => Bytes_Written,  -- ignored
                             Result        => Status);               -- ignored
        end if;
    end Put;

    procedure Put (C : Character) is
        Bytes_Written : Natural;  -- ignored
        Status        : Os2000_Io.Stratus;  -- ignored
    begin
        Os2000_Io.Write (Path          => Os2000_Io.Standard_Out,
                         Count         => 1,
                         Buffer        => C'Address,
                         Bytes_Written => Bytes_Written,  -- ignored
                         Result        => Status);               -- ignored
    end Put;

    procedure New_Line is
    begin
        Put (Cr_Lf);
    end New_Line;

    procedure Put_Line (S : String) is
    begin
        Put (S);
        New_Line;
    end Put_Line;

    procedure Get (C : out Character) is
        Bytes_Read : Natural;     -- ignored
        Status     : Os2000_Io.Stratus;  -- ignored
    begin
        Os2000_Io.Read (Path       => Os2000_Io.Standard_In,
                        Count      => 1,
                        Buffer     => C'Address,  
                        Bytes_Read => Bytes_Read,  -- ignored
                        Result     => Status);         -- ignored
    end Get;

    function Get return Character is
        C : Character;
    begin
        Get (C);
        return C;
    end Get;

end Simple_Io;