DataMuseum.dk

top - download

    Length: 2644 (0xa54)
    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 Primitive_Io;
with M68k_Float_Conversions;

package body Short_Float_Io is

    package Sio is new Common_Text_Io.Float_Io
                          (Float, M68k_Float_Conversions.Value,
                           M68k_Float_Conversions.Image);

    -- procedure Trace
    --              (S : String;
    --               Absorb_Output : Boolean := Primitive_Io.Global_Absorb_Output)
    --     renames Primitive_Io.Put_Line;


    procedure Get_From_File
                 (File : in File_Type; Item : out Float; Width : in Field) is
    begin
        -- Trace ("Short_Float_Io.Get_From_File Width =" & Field'Image (Width));
        Sio.Get (File, Item, Width);
    end Get_From_File;

    procedure Put_To_File (File : in File_Type;
                           Item : in Float;
                           Fore : in Field;
                           Aft  : in Field;
                           Exp  : in Field) is
    begin
        -- Trace ("Short_Float_Io.Put_To_File");
        Sio.Put (File, Item, Fore, Aft, Exp);
    end Put_To_File;

    procedure Get_From_String
                 (Value : String; Item : out Float; Last : out Positive) is
    begin
        -- Trace ("Short_Float_Io.Get_From_String '" & From.all & ''');
        Sio.Get (Value, Item, Last);
    end Get_From_String;

    procedure Put_To_String (Result : out String;
                             Item   : in  Float;
                             Aft    : in  Field;
                             Exp    : in  Field) is
    begin
        -- Trace ("Short_Float_Io.Put_To_String w/length =" &
        --       Natural'Image (To_Length));
        -- Trace ("Short_Float_Io.Put_To_String To_Result converted");
        Sio.Put (Result, Item, Aft, Exp);
    end Put_To_String;

end Short_Float_Io;