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 - metrics - download
Index: T V

⟦dc0aea0f1⟧ TextFile

    Length: 1001 (0x3e9)
    Types: TextFile
    Names: »V«

Derivation

└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

package Symbol is

    type Time is new Natural;
    type Int is new Natural;
    type Symbol_Type is (T_Binary, T_Discret, T_Fugitif, T_Function,
                         T_Integer, T_Temporel, T_Time, T_No_Type);


    function End_Of_Parameter_List return Boolean;
    function Exist (S : String) return Boolean; -- si s existe il devient
                                                -- le symbole courant
    function Get_Name return String;
    function Get_Parameter_Name return String;
    function Get_Type return Symbol_Type;
    function Get_Value return Natural;
    function Table_Exist (T : String) return Boolean;

    procedure Close;
    procedure First_Parameter;
    procedure Insert (S : String);
    procedure Next_Parameter;
    procedure New_Table (T : String);
    procedure Open;
    procedure Remove;
    procedure Set_Parameter_Name (To : String);
    procedure Set_Type (To : Symbol_Type);
    procedure Set_Value (To : Natural);
    procedure Table_Go_Back;

end Symbol;