DataMuseum.dk

top - download

    Length: 2544 (0x9f0)
    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.
--
--

separate (Text_Io)

package body Enumeration_Io is

    procedure Get (File : File_Type; Item : out Enum) is  
        I  : String (1 .. Enum'Width);  
        Il : Natural;  
    begin
        Cio.Enum_Io.Get (Cio_File_Type (File), I, Il);
        Item := Enum'Value (I (1 .. Il));
    exception  
        when Constraint_Error =>
            raise Iof.Input_Value_Error;  
    end Get;

    procedure Get (From : String; Item : out Enum; Last : out Positive) is  
        I  : String (1 .. Enum'Width);  
        Il : Natural;  
    begin  
        Cio.Enum_Io.Get (From, I, Il, Last);
        Item := Enum'Value (I (1 .. Il));
    exception  
        when Constraint_Error =>  
            raise Iof.Input_Value_Error;  
    end Get;

    procedure Get (Item : out Enum) is  
    begin  
        Get (Current_Input, Item);  
    end Get;


    procedure Put (File  : File_Type;  
                   Item  : Enum;  
                   Width : Field    := Default_Width;  
                   Set   : Type_Set := Default_Setting) is  
    begin  
        Cio.Enum_Io.Put (Cio_File_Type (File), Enum'Image (Item),
                         Width, Cio_Type_Set (Set));  
    end Put;

    procedure Put (Item  : Enum;  
                   Width : Field    := Default_Width;  
                   Set   : Type_Set := Default_Setting) is  
    begin  
        Put (Current_Output, Item, Width, Set);  
    end Put;

    procedure Put (To   : out String;  
                   Item :     Enum;  
                   Set  :     Type_Set := Default_Setting) is  
    begin  
        Cio.Enum_Io.Put (To, Enum'Image (Item), Cio_Type_Set (Set));  
    end Put;

end Enumeration_Io;