DataMuseum.dk

top - download

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

└─⟦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;