DataMuseum.dk

top - download

    Length: 3101 (0xc1d)
    Types: TextFile
    Names: »V«

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

TextFile

with Token;  
with Personnal_String;
use Personnal_String;

package Tds is


    function Create_New_Material (The_Name : Pstring) return Boolean;
    function Add_Actor (The_Name : Pstring) return Boolean;
    function Add_Actor_Type (The_Type : Token.Object) return Boolean;
    function Compare_Current_Material_Name (The_Name : Pstring) return Boolean;

    function Create_New_Station (The_Name : Pstring) return Boolean;
    function Set_Station_Type (The_Type : Pstring) return Boolean;
    function Set_Station_Number (The_Address : Natural) return Boolean;

    function Create_New_Experience (The_Name : Pstring) return Boolean;
    function Add_Experience_Parameter (The_Name : Pstring) return Boolean;

    function Create_New_Scene (The_Name : Pstring) return Boolean;

    function Create_Spectacle return Boolean;

    function Set_Local_Variable (The_Name : Pstring) return Boolean;
    function Set_Local_Group (The_Name : Pstring) return Boolean;
    function Add_Local_Group_Member (The_Name : Pstring) return Boolean;


    procedure Syntax_Error;

    function Mknode_Scene (The_Name : Pstring) return Boolean;
    function Mknode_Puis return Boolean;
    function Mknode_Attendre
                (The_Name : Pstring; The_Type : Token.Object) return Boolean;
    function Mknode_Faire return Boolean;
    function Mknode_Fin_Faire return Boolean;
    function Mknode_Au_Temps
                (Value : Pstring; The_Type : Token.Object) return Boolean;
    function Mknode_Si_Cond return Boolean;
    function Mknode_Si_Alors return Boolean;
    function Mknode_Fin_Si return Boolean;
    function Mknode_Repeter
                (Value : Pstring; The_Type : Token.Object) return Boolean;
    function Mknode_Fin_Repeter return Boolean;
    function Mknode_Activer (Station : Pstring; Actor : Pstring) return Boolean;
    function Mknode_Desactiver
                (Station : Pstring; Actor : Pstring) return Boolean;
    function Mknode_Experience (The_Name : Pstring) return Boolean;
    function Mknode_Param
                (Value : Pstring; The_Type : Token.Object) return Boolean;
    function Mknode_Fin_Param return Boolean;
    function Mknode_Fugitif (Station : Pstring; Actor : Pstring) return Boolean;
    function Mknode_Temporel (Station : Pstring;
                              Actor : Pstring;
                              Value : Pstring;
                              The_Type : Token.Object;
                              Time : Pstring;
                              The_Time_Type : Token.Object) return Boolean;
    function Mknode_Discret (Station : Pstring;
                             Actor : Pstring;
                             Value : Pstring;
                             The_Type : Token.Object) return Boolean;
    function Mknode_Operateur (Operateur_Type : Token.Object) return Boolean;
    function Mknode_Eval
                (Value : Pstring;
                 The_Type : Token.Object;
                 Operator : Token.Object := Token.L_Unk) return Boolean;
    function Mknode_Priorite (Priority : Token.Object) return Boolean;


end Tds;