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: B T

⟦e679ce7c6⟧ TextFile

    Length: 4316 (0x10dc)
    Types: TextFile
    Names: »B«

Derivation

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

TextFile

with Tds;
with Bool_Io;
with Text_Io;

procedure Test is
    Ok : Boolean;
begin
    Text_Io.Put_Line ("material : 8");
    Ok := Tds.Create_New_Material ("cd");             --1
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Add_Actor ("connexion");                --2
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    --ok := tds.add_actor_type(type_actor'(binaire));
    Ok := Tds.Add_Actor ("secteur");                  --3
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    --ok := tds.add_actor_type(
    Ok := Tds.Add_Actor ("volume");                   --4
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    --ok := tds.add_actor_type(

    Ok := Tds.Create_New_Material ("spot");           --5
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Add_Actor ("connexion");                --6
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    --ok := tds.add_actor_type(
    Ok := Tds.Add_Actor ("mode");                     --7
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    --ok := tds.add_actor_type(
    Ok := Tds.Add_Actor ("int1");                     --8
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    --ok := tds.add_actor_type(
    Text_Io.New_Line;

    Text_Io.Put_Line ("global : 6");
    Ok := Tds.Create_New_Station ("rouge");          --1
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Set_Station_Type ("spot");             --2
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Set_Station_Number (10);               --3
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Create_New_Station ("cd1");            --4
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Set_Station_Type ("cd");               --5        z
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Set_Station_Number (30);               --6
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Text_Io.New_Line;

    Text_Io.Put_Line ("experience toto : 5");
    Ok := Tds.Create_New_Experience ("toto");        --1
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Add_Experience_Parameter ("titi");     --2
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Add_Experience_Parameter ("t");        --3
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Add_Experience_Parameter ("d");        --4
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Add_Experience_Parameter ("x");        --5
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Text_Io.New_Line;

    Text_Io.Put_Line ("experience flash : 8");
    Ok := Tds.Create_New_Experience ("flash");        --1
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Add_Experience_Parameter ("un_spot");   --2
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Add_Experience_Parameter ("t");         --3
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Set_Local_Variable ("f");               --4
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Set_Local_Group ("r");                  --5
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Add_Local_Group_Member ("titi");        --6
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Add_Local_Group_Member ("rouge");        --7
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Add_Local_Group_Member ("rouge");           --8
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Text_Io.New_Line;

    Text_Io.Put_Line ("experience chenillard : 5");
    Ok := Tds.Create_New_Experience ("chenillard");  --1
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Add_Experience_Parameter ("to_to");    --2
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Add_Experience_Parameter ("c");        --3
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Set_Local_Variable ("b");              --4
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Ok := Tds.Set_Local_Variable ("a");              --5
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Text_Io.New_Line;

    Text_Io.Put_Line ("scene un : 1");
    Ok := Tds.Create_New_Scene ("un");
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Text_Io.New_Line;

    Text_Io.Put_Line ("scene deux : 1");
    Ok := Tds.Create_New_Scene ("deux");
    Bool_Io.Put (Ok);
    Text_Io.New_Line;
    Text_Io.New_Line;

    Text_Io.Put_Line ("spectacle : 1");
    Ok := Tds.Create_Spectacle;
    Bool_Io.Put (Ok);
    Text_Io.New_Line;


end Test;