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 ┃

⟦23b735910⟧ TextFile

    Length: 1537 (0x601)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

package Abstract_Tree is

    type P_Node is private;
    type P_Instruction_List is private;

    function Make_Node (The_Left, The_Right : in P_Node) return P_Node;
    function Make_Node (The_Left : in P_Node; The_Right : in P_Instruction_List)
                       return P_Node;
    function Make_Node (The_Time : in P_Node) return P_Node;
    function Make_Node (The_List : in P_Instruction_List) return P_Node;
    function Make_Node (First_Term, The_Relation, Second_Term : in P_Node;
                        The_List : in P_Instruction_List) return P_Node;
    function Make_Node
                (The_Class, The_Actor, The_Value : in P_Node) return P_Node;
    function Make_Node
                (The_Class, The_Actor, Initial_Value, Final_Value : in P_Node)
                return P_Node;
    function Make_Foliage return P_Node;

    procedure Node_Identification (A_P_List : P_Instruction_List);

    procedure Create_List (A_P_List : out P_Instruction_List);
    procedure Next_List (A_P_List : in out P_Instruction_List);
    procedure Add_The_List
                 (A_P_List : in out P_Instruction_List; A_Node : in P_Node);


private
    type Kind_Node is (Plus, Moins, Mult, Div, Dans, Puis, Attendre,
                       Tant_Que, Repeter, Debut, Activer, Desact, Changer,
                       Evoluer, Lancerscene, Lancereffet, Id, Nbr);

    type Node (A_Kind : Kind_Node);
    type P_Node is access Node;

    type Instruction_List;
    type P_Instruction_List is access Instruction_List;

end Abstract_Tree;