DataMuseum.dk

top - metrics - download

    Length: 11261 (0x2bfd)
    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 System_Types;
with Common_Text_Io;
with Unchecked_Conversion;
with Io_Exception_Flavors;

-- with Primitive_Io;  -- For debugging only

pragma Elaborate (Common_Text_Io);

package body Text_Io is

    -- This file is totally devoid of interest.  Each entry of Text_Io
    -- is implemented by calling a corresponding entry of Common_Text_Io,
    -- performing a conversion on the file type and other parameter types
    -- where necessary.  The reason for this nonsense is that we do not want
    -- the spec of Text_Io to depend on any non-LRM units.

    package Cio renames Common_Text_Io;
    package Iof renames Io_Exception_Flavors;

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

    function Cio_File_Type is
       new Unchecked_Conversion (Text_Io.File_Type, Common_Text_Io.File_Type);
    function Tio_File_Type is
       new Unchecked_Conversion (Common_Text_Io.File_Type, Text_Io.File_Type);

    function Cio_File_Mode is
       new Unchecked_Conversion (Text_Io.File_Mode, Common_Text_Io.File_Mode);
    function Tio_File_Mode is
       new Unchecked_Conversion (Common_Text_Io.File_Mode, Text_Io.File_Mode);

    function Cio_Count is new Unchecked_Conversion
                                 (Text_Io.Count, Common_Text_Io.Count);
    function Tio_Count is new Unchecked_Conversion
                                 (Common_Text_Io.Count, Text_Io.Count);

    function Cio_Type_Set is new Unchecked_Conversion
                                    (Text_Io.Type_Set, Common_Text_Io.Type_Set);


    procedure Create (File : in out File_Type;
                      Mode :        File_Mode := Out_File;
                      Name :        String    := "";
                      Form :        String    := "") is
        F : Cio.File_Type := Cio_File_Type (File);
    begin
        Cio.Create (F, Cio_File_Mode (Mode), Name, Form);
        File := Tio_File_Type (F);
    end Create;


    procedure Open (File : in out File_Type;
                    Mode :        File_Mode := Out_File;
                    Name :        String;
                    Form :        String    := "") is
        F : Cio.File_Type := Cio_File_Type (File);
    begin
        Cio.Open (F, Cio_File_Mode (Mode), Name, Form);
        File := Tio_File_Type (F);
    end Open;


    procedure Close (File : in out File_Type) is
        F : Cio.File_Type := Cio_File_Type (File);
    begin
        Cio.Close (F);
        File := Tio_File_Type (F);
    end Close;


    procedure Delete (File : in out File_Type) is
        F : Cio.File_Type := Cio_File_Type (File);
    begin
        Cio.Delete (F);
        File := Tio_File_Type (F);
    end Delete;


    procedure Reset (File : in out File_Type; Mode : File_Mode) is
        F : Cio.File_Type := Cio_File_Type (File);
    begin
        Cio.Reset (F, Cio_File_Mode (Mode));
        File := Tio_File_Type (F);
    end Reset;


    procedure Reset (File : in out File_Type) is
        F : Cio.File_Type := Cio_File_Type (File);
    begin
        Cio.Reset (F);
        File := Tio_File_Type (F);
    end Reset;


    function Mode (File : File_Type) return File_Mode is
    begin
        return Tio_File_Mode (Cio.Mode (Cio_File_Type (File)));
    end Mode;


    function Name (File : File_Type) return String is
    begin
        return Cio.Name (Cio_File_Type (File));
    end Name;


    function Form (File : File_Type) return String is
    begin
        return Cio.Form (Cio_File_Type (File));
    end Form;


    function Is_Open (File : File_Type) return Boolean is
    begin
        return Cio.Is_Open (Cio_File_Type (File));
    end Is_Open;


    procedure Set_Input (File : File_Type) is
    begin
        Cio.Set_Input (Cio_File_Type (File));
    end Set_Input;


    procedure Set_Output (File : File_Type) is
    begin
        Cio.Set_Output (Cio_File_Type (File));
    end Set_Output;


    function Standard_Input return File_Type is
    begin
        return Tio_File_Type (Cio.Standard_Input);
    end Standard_Input;


    function Standard_Output return File_Type is
    begin
        return Tio_File_Type (Cio.Standard_Output);
    end Standard_Output;


    function Current_Input return File_Type is
    begin
        return Tio_File_Type (Cio.Current_Input);
    end Current_Input;


    function Current_Output return File_Type is
    begin
        return Tio_File_Type (Cio.Current_Output);
    end Current_Output;


    procedure Set_Line_Length (File : File_Type; To : Count) is
    begin
        Cio.Set_Line_Length (Cio_File_Type (File), Cio_Count (To));
    end Set_Line_Length;


    procedure Set_Line_Length (To : Count) is
    begin
        Cio.Set_Line_Length (Cio_Count (To));
    end Set_Line_Length;


    procedure Set_Page_Length (File : File_Type; To : Count) is
    begin
        Cio.Set_Page_Length (Cio_File_Type (File), Cio_Count (To));
    end Set_Page_Length;


    procedure Set_Page_Length (To : Count) is
    begin
        Cio.Set_Page_Length (Cio_Count (To));
    end Set_Page_Length;


    function Line_Length (File : File_Type) return Count is
    begin
        return Tio_Count (Cio.Line_Length (Cio_File_Type (File)));
    end Line_Length;


    function Line_Length return Count is
    begin
        return Tio_Count (Cio.Line_Length);
    end Line_Length;


    function Page_Length (File : File_Type) return Count is
    begin
        return Tio_Count (Cio.Page_Length (Cio_File_Type (File)));
    end Page_Length;


    function Page_Length return Count is
    begin
        return Tio_Count (Cio.Page_Length);
    end Page_Length;


    procedure New_Line (File : File_Type; Spacing : Positive_Count := 1) is
    begin
        Cio.New_Line (Cio_File_Type (File), Cio_Count (Spacing));
    end New_Line;


    procedure New_Line (Spacing : Positive_Count := 1) is
    begin
        Cio.New_Line (Cio_Count (Spacing));
    end New_Line;


    procedure Skip_Line (File : File_Type; Spacing : Positive_Count := 1) is
    begin
        Cio.Skip_Line (Cio_File_Type (File), Cio_Count (Spacing));
    end Skip_Line;


    procedure Skip_Line (Spacing : Positive_Count := 1) is
    begin
        Cio.Skip_Line (Cio_Count (Spacing));
    end Skip_Line;


    function End_Of_Line (File : File_Type) return Boolean is
    begin
        return Cio.End_Of_Line (Cio_File_Type (File));
    end End_Of_Line;


    function End_Of_Line return Boolean is
    begin
        return Cio.End_Of_Line;
    end End_Of_Line;


    procedure New_Page (File : File_Type) is
    begin
        Cio.New_Page (Cio_File_Type (File));
    end New_Page;


    procedure New_Page is
    begin
        Cio.New_Page;
    end New_Page;


    procedure Skip_Page (File : File_Type) is
    begin
        Cio.Skip_Page (Cio_File_Type (File));
    end Skip_Page;


    procedure Skip_Page is
    begin
        Cio.Skip_Page;
    end Skip_Page;


    function End_Of_Page (File : File_Type) return Boolean is
    begin
        return Cio.End_Of_Page (Cio_File_Type (File));
    end End_Of_Page;


    function End_Of_Page return Boolean is
    begin
        return Cio.End_Of_Page;
    end End_Of_Page;


    function End_Of_File (File : File_Type) return Boolean is
    begin
        return Cio.End_Of_File (Cio_File_Type (File));
    end End_Of_File;


    function End_Of_File return Boolean is
    begin
        return Cio.End_Of_File;
    end End_Of_File;


    procedure Set_Col (File : File_Type; To : Positive_Count) is
    begin
        Cio.Set_Col (Cio_File_Type (File), Cio_Count (To));
    end Set_Col;


    procedure Set_Col (To : Positive_Count) is
    begin
        Cio.Set_Col (Cio_Count (To));
    end Set_Col;


    procedure Set_Line (File : File_Type; To : Positive_Count) is
    begin
        Cio.Set_Line (Cio_File_Type (File), Cio_Count (To));
    end Set_Line;


    procedure Set_Line (To : Positive_Count) is
    begin
        Cio.Set_Line (Cio_Count (To));
    end Set_Line;


    function Col (File : File_Type) return Positive_Count is
    begin
        return Tio_Count (Cio.Col (Cio_File_Type (File)));
    end Col;


    function Col return Positive_Count is
    begin
        return Tio_Count (Cio.Col);
    end Col;


    function Line (File : File_Type) return Positive_Count is
    begin
        return Tio_Count (Cio.Line (Cio_File_Type (File)));
    end Line;


    function Line return Positive_Count is
    begin
        return Tio_Count (Cio.Line);
    end Line;


    function Page (File : File_Type) return Positive_Count is
    begin
        return Tio_Count (Cio.Page (Cio_File_Type (File)));
    end Page;


    function Page return Positive_Count is
    begin
        return Tio_Count (Cio.Page);
    end Page;


    procedure Get (File : File_Type; Item : out Character) is
    begin
        Cio.Get (Cio_File_Type (File), Item);
    end Get;


    procedure Get (Item : out Character) is
    begin
        Cio.Get (Item);
    end Get;


    procedure Put (File : File_Type; Item : Character) is
    begin
        Cio.Put (Cio_File_Type (File), Item);
    end Put;


    procedure Put (Item : Character) is
    begin
        Cio.Put (Item);
    end Put;


    procedure Get (File : File_Type; Item : out String) is
    begin
        Cio.Get (Cio_File_Type (File), Item);
    end Get;


    procedure Get (Item : out String) is
    begin
        Cio.Get (Item);
    end Get;


    procedure Put (File : File_Type; Item : String) is
    begin
        Cio.Put (Cio_File_Type (File), Item);
    end Put;


    procedure Put (Item : String) is
    begin
        Cio.Put (Item);
    end Put;


    procedure Get_Line
                 (File : File_Type; Item : out String; Last : out Natural) is
    begin
        Cio.Get_Line (Cio_File_Type (File), Item, Last);
    end Get_Line;


    procedure Get_Line (Item : out String; Last : out Natural) is
    begin
        Cio.Get_Line (Item, Last);
    end Get_Line;


    procedure Put_Line (File : File_Type; Item : String) is
    begin
        Cio.Put_Line (Cio_File_Type (File), Item);
    end Put_Line;


    procedure Put_Line (Item : String) is
    begin
        Cio.Put_Line (Item);
    end Put_Line;


    package body Integer_Io is separate;
    package body Float_Io is separate;
    package body Fixed_Io is separate;
    package body Enumeration_Io is separate;

end Text_Io;