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

⟦7f12244fc⟧ TextFile

    Length: 1525 (0x5f5)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Tad_Local;  
with Token;
with Personnal_String;
use Personnal_String;

package Tad_Abstract is


    type Node_Name is (Scene, Exp, Param, Puis, Attendre, Faire, Au_Temps,
                       Si, Repeter, Qui, Quoi, Chainage, Activer, Desactiver,
                       Fugitif, Temporel, Discret, N_Inf, N_Sup, N_Inf_Egal,
                       N_Sup_Egal, N_Egal, N_Parent, N_Plus, N_Moins,
                       N_Div, N_Mult, Feuille_Acteur, Feuille_Station,
                       Feuille_Id, Feuille_Entier, Feuille_Temp);


    type Object (Discrim : Node_Name := Node_Name'(Exp));
    type Pobject is access Object;

    type Object (Discrim : Node_Name := Node_Name'(Exp)) is
        record
            The_Node_Name : Node_Name;
            case Discrim is
                when Feuille_Acteur =>
                    Acteur : Natural;

                when Feuille_Station =>
                    Station : Natural;

                when Feuille_Id =>
                    Nom : Pstring;

                when Feuille_Entier | Feuille_Temp =>
                    Valeur : Natural;

                when others =>
                    Left : Pobject := null;
                    Right : Pobject := null;
            end case;
        end record;

    function Create_New_Tree return Tad_Abstract.Pobject;

    function Create_Leaf (Value : Pstring; The_Type : Token.Object)
                         return Tad_Abstract.Object;

    function Type_Of_Node (The_Node : Object) return Node_Name;

end Tad_Abstract;