DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦fda6f296e⟧ TextFile

    Length: 1179 (0x49b)
    Types: TextFile
    Names: »V«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦e24fb53b7⟧ 
            └─⟦this⟧

TextFile

package Output_Stream is

    type Object is private;

    function Standard_Output return Object;

    procedure Open (The_Object : in out Object; Name : String);

    procedure Align        (To_Col : Positive; The_Object : Object);
    procedure Indent       (Count : Integer; The_Object : Object);
    procedure Indent_Right (The_Object : Object);
    procedure Indent_Left  (The_Object : Object);

    procedure Put (I : Integer; To : Object);
    procedure Put (B : Boolean; To : Object);
    procedure Put (F : Float; To : Object);
    procedure Put (C : Character; To : Object);
    procedure Put (D : Duration; To : Object);
    procedure Put (S : String; To : Object);

    procedure Put_Line (I : Integer; To : Object);
    procedure Put_Line (B : Boolean; To : Object);
    procedure Put_Line (F : Float; To : Object);
    procedure Put_Line (C : Character; To : Object);
    procedure Put_Line (D : Duration; To : Object);
    procedure Put_Line (S : String; To : Object);

    procedure New_Line (To : Object; Count : Positive := 1);

    Not_Implemented : exception;

private
    type Object_Structure;
    type Object is access Object_Structure;
end Output_Stream;