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

⟦495740628⟧ TextFile

    Length: 1034 (0x40a)
    Types: TextFile
    Names: »V«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Tad_Material;

package Tad_Global is

    type Object is private;
    type Pnatural is access Natural;
    type Pstring is access String;

    procedure Create_New_Station (The_Object : out Object; The_Name : String);
    procedure Set_Material_Type (The_Object : in out Object;
                                 Material_Type : Tad_Material.Object);
    procedure Set_Station_Number
                 (The_Object : in out Object; The_Address : Natural);
    function Get_Station_Number (The_Object : Object) return Natural;
    procedure Get_Material_Type (The_Object : Object;
                                 The_Material_Type : out Tad_Material.Object);
    function Compare_Name (Object1, Object2 : Object) return Integer;

    function Export_Address_Pointer (The_Object : Object) return Pnatural;


private
    type Pmat is access Tad_Material.Object;
    type Object is
        record
            Name : String (1 .. 20);
            Station : Natural;
            Material_Type : Pmat;
        end record;

end Tad_Global;