DataMuseum.dk

top - download

    Length: 5274 (0x149a)
    Types: TextFile
    Names: »B«

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

TextFile

with Abstract_Tree;
with Current_Time;
with Element;
with Symbol_Table;
with Text_Io;
with Token;
with Trame_Product;
use Abstract_Tree;
use Current_Time;
use Symbol_Table;
use Token;  
use Trame_Product;

procedure Test is
    A_List, List1, List2, List3, List4, List5, List6 : P_Instruction_List;
    Node1, Node2, Node3, Node4, Node5 : P_Node;
    Ok : Boolean;
begin
    Choose_The_Destination;
    Initialize_Current_Time;
    Create_List (A_List);
    Create_List (List1);
    Create_List (List2);
    Create_List (List3);
    Create_List (List4);
    Create_List (List5);
    Create_List (List6);

    Insert ("cd", Ok);
    Set_Table ("cd", Ok);
    Change_Current_Table ("cd", Ok);
    Insert ("connexion", Ok);
    Set_Adress ("connexion", "23", Ok);
    Set_Num_Acteur ("connexion", 4, Ok);
    Insert ("lumiere", Ok);
    Set_Adress ("lumiere", "18", Ok);
    Set_Num_Acteur ("connexion", 3, Ok);

    Leave_Table (Ok);

    Insert ("fiotte", Ok);
    Set_Table ("fiotte", Ok);
    Change_Current_Table ("fiotte", Ok);
    Insert ("bouton", Ok);
    Set_Adress ("bouton", "17", Ok);
    Set_Num_Acteur ("bouton", 18, Ok);
    Leave_Table (Ok);


    Insert ("k7", Ok);
    Set_Table ("k7", Ok);
    Change_Current_Table ("k7", Ok);
    Insert ("avancer", Ok);
    Set_Adress ("avancer", "45", Ok);
    Set_Num_Acteur ("avancer", 12, Ok);
    Leave_Table (Ok);

    Insert ("projo", Ok);
    Set_Table ("allum", Ok);
    Change_Current_Table ("projo", Ok);
    Insert ("allum", Ok);
    Set_Adress ("allum", "35", Ok);
    Set_Num_Acteur ("allum", 12, Ok);
    Leave_Table (Ok);


    Insert ("scene1", Ok);
    Insert ("scene2", Ok);

    Node1 := Make_Foliage (L_Id, "cd");
    Node2 := Make_Foliage (L_Id, "connexion");
    Node3 := Make_Node (L_Activer, Node1, Node2);
    Add_The_List (List1, Node3);
    Node1 := Make_Foliage (L_Nbr, 10);
    Node2 := Make_Node (L_Attendre, Node1);
    Add_The_List (List2, Node2);
    Insert ("toto", Ok);
    Node1 := Make_Foliage (L_Nbr, 8);
    Node2 := Make_Foliage (L_Id, "toto");
    Node3 := Make_Node (L_Affect, Node2, Node1);
    Add_The_List (List2, Node3);
    Node1 := Make_Foliage (L_Id, "k7");
    Node2 := Make_Foliage (L_Id, "avancer");
    Node3 := Make_Foliage (L_Nbr, 40);
    Node4 := Make_Node (L_Changer, Node1, Node2, Node3);
    Add_The_List (List2, Node4);
    Node1 := Make_Foliage (L_Nbr, 2);
    Node2 := Make_Node (L_Repeter, Node1, List2);
    Add_The_List (List1, Node2);
    Node1 := Make_Foliage (L_Id, "projo");
    Node2 := Make_Foliage (L_Id, "allum");
    Node3 := Make_Node (L_Activer, Node1, Node2);
    Add_The_List (List1, Node3);
    Set_Instr_List ("scene1", List1, Ok);
    Text_Io.Put_Line ("fiotte");
    Insert ("tutu", Ok);
    Insert ("tata", Ok);
    Node1 := Make_Foliage (L_Nbr, 2);
    Node2 := Make_Foliage (L_Id, "tutu");
    Node3 := Make_Node (L_Affect, Node2, Node1);
    Add_The_List (List3, Node3);
    Node1 := Make_Foliage (L_Id, "cd");
    Node2 := Make_Foliage (L_Id, "lumiere");
    Node3 := Make_Foliage (L_Nbr, 20);
    Node4 := Make_Foliage (L_Nbr, 30);
    Node5 := Make_Node (L_Evoluer, Node1, Node2, Node3, Node4);
    Add_The_List (List3, Node5);
    Node1 := Make_Foliage (L_Nbr, 2);
    Node2 := Make_Foliage (L_Nbr, 8);
    Node3 := Make_Node (L_Mult, Node1, Node2);
    Node1 := Make_Foliage (L_Nbr, 2);
    Node2 := Make_Node (L_Plus, Node1, Node3);
    Node1 := Make_Foliage (L_Id, "tutu");
    Node3 := Make_Node (L_Moins, Node2, Node1);
    Node1 := Make_Foliage (L_Id, "tata");
    Node4 := Make_Node (L_Affect, Node1, Node3);
    Add_The_List (List3, Node4);
    Node1 := Make_Foliage (L_Id, "tata");
    Node2 := Make_Node (L_Attendre, Node1);
    Add_The_List (List3, Node2);
    Text_Io.Put_Line ("fiotte1");
    Node1 := Make_Foliage (L_Id, "cd");
    Node2 := Make_Foliage (L_Id, "connexion");
    Node3 := Make_Node (L_Activer, Node1, Node2);
    Add_The_List (List4, Node3);
    Node1 := Make_Foliage (L_Id, "tata");
    Node2 := Make_Foliage (L_Nbr, 3);
    Node3 := Make_Node (L_Moins, Node1, Node2);
    Node1 := Make_Foliage (L_Id, "tata");
    Node2 := Make_Node (L_Affect, Node1, Node3);
    Add_The_List (List4, Node2);
    Node1 := Make_Foliage (L_Id, "tutu");
    Node2 := Make_Foliage (L_Inf);
    Node3 := Make_Foliage (L_Id, "tata");
    Node4 := Make_Node (L_Tantque, Node1, Node2, Node3, List4);
    Add_The_List (List3, Node4);
    Set_Instr_List ("scene2", List3, Ok);

    Node1 := Make_Foliage (L_Id, "scene1");
    Node2 := Make_Node (L_Lancer_Scene, Node1);
    Add_The_List (List5, Node2);
    Node1 := Make_Foliage (L_Id, "scene2");
    Node2 := Make_Node (L_Lancer_Scene, Node1);
    Add_The_List (List6, Node2);
    Node1 := Make_Foliage (L_Id, "cd");
    Node2 := Make_Foliage (L_Id, "connexion");
    Node3 := Make_Node (L_Activer, Node1, Node2);
    Add_The_List (List6, Node3);
    Node4 := Make_Node (L_Puis, List6);
    Add_The_List (List5, Node4);
    Node1 := Make_Foliage (L_Nbr, 10);
    Node3 := Make_Node (L_Dans, Node1, List5);
    Add_The_List (A_List, Node3);
    Node1 := Make_Foliage (L_Id, "fiotte");
    Node2 := Make_Foliage (L_Id, "bouton");
    Node3 := Make_Node (L_Activer, Node1, Node2);
    Add_The_List (A_List, Node3);
    Execute_Code (A_List);
    Trame_Product.Done;

end Test;