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

⟦ee3a9bd19⟧ TextFile

    Length: 6350 (0x18ce)
    Types: TextFile
    Names: »TEMP«

Derivation

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

TextFile

with generic_tree;\r
with tad_actor;\r
\r
package actor_tree is new generic_tree (\r
			     element     => tad_actor.object,\r
			     compare_key => tad_actor.compare_name);\r
\r
with generic_tree;\r
with tad_group;\r
\r
  package group_tree is new generic_tree (\r
			     element     => tad_group.object,\r
			     compare_key => tad_group.compare_name);\r
\r
\r
with generic_tree;\r
with tad_parameter;\r
\r
  package parameter_tree is new generic_tree (\r
			     element     => tad_parameter.object,\r
			     compare_key => tad_parameter.compare_order);\r
\r
\r
with tad_abstract;\r
\r
package abstract_tree is\r
\r
  type object is private;\r
\r
  function create_new_tree return object;\r
\r
  private\r
    type object is new tad_abstract.pobject;\r
\r
end abstract_tree;\r
with generic_tree;\r
with tad_experience;\r
\r
  package experience_tree is new generic_tree (\r
			     element     => tad_experience.object,\r
			     compare_key => tad_experience.compare_name);\r
\r
\r
with experience_tree;\r
\r
package the_experience_tree is\r
\r
  object : experience_tree.object;\r
\r
end the_experience_tree;\r
\r
\r
\r
\r
with generic_tree;\r
with tad_scene;\r
\r
  package scene_tree is new generic_tree (\r
			     element     => tad_scene.object,\r
			     compare_key => tad_scene.compare_name);\r
\r
\r
with scene_tree;\r
\r
package the_scene_tree is\r
\r
  object : scene_tree.object;\r
\r
end the_scene_tree;\r
\r
\r
\r
\r
\r
\r
with generic_tree;\r
with tad_global;\r
\r
\r
package global_tree is new generic_tree (\r
			     element     => tad_global.object,\r
			     compare_key => tad_global.compare_name);\r
\r
\r
with global_tree;\r
\r
package the_global_tree is\r
\r
  object : global_tree.object;\r
\r
end the_global_tree;\r
with generic_tree;\r
with tad_material;\r
\r
package material_tree is new generic_tree (\r
			     element     => tad_material.object,\r
			     compare_key => tad_material.compare_name);\r
\r
\r
with material_tree;\r
\r
package the_material_tree is\r
\r
  object : material_tree.object;\r
\r
end the_material_tree;\r
with generic_tree;\r
with tad_local;\r
\r
  package local_tree is new generic_tree (\r
			     element     => tad_local.object,\r
			     compare_key => tad_local.compare_name);\r
\r
\r
\r
\r
with text_io;\r
\r
package bool_io is new text_io.enumeration_io(boolean);\r
\r
with tds;\r
with bool_io;\r
with text_io;\r
\r
procedure test is\r
ok : boolean;\r
begin\r
  text_io.put_line("material : 8");\r
  ok := tds.create_new_material("cd");             --1\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.add_actor("connexion");                --2\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  --ok := tds.add_actor_type(type_actor'(binaire));\r
  ok := tds.add_actor("secteur");                  --3\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  --ok := tds.add_actor_type(\r
  ok := tds.add_actor("volume");                   --4\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  --ok := tds.add_actor_type(\r
\r
  ok := tds.create_new_material("spot");           --5\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.add_actor("connexion");                --6\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  --ok := tds.add_actor_type(\r
  ok := tds.add_actor("mode");                     --7\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  --ok := tds.add_actor_type(\r
  ok := tds.add_actor("int1");                     --8\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  --ok := tds.add_actor_type(\r
  text_io.new_line;\r
\r
  text_io.put_line("global : 6");\r
  ok := tds.create_new_station("rouge");          --1\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.set_station_type("spot");             --2\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.set_station_number(10);               --3\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.create_new_station("cd1");            --4\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.set_station_type("cd");               --5        z\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.set_station_number(30);               --6\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  text_io.new_line;\r
\r
  text_io.put_line("experience toto : 5");\r
  ok := tds.create_new_experience("toto");        --1\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.add_experience_parameter("titi");     --2\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.add_experience_parameter("t");        --3\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.add_experience_parameter("d");        --4\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.add_experience_parameter("x");        --5\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  text_io.new_line;\r
\r
  text_io.put_line("experience flash : 8");\r
  ok := tds.create_new_experience("flash");        --1\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.add_experience_parameter("un_spot");   --2\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.add_experience_parameter("t");         --3\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.set_local_variable("f");               --4\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.set_local_group("r");                  --5\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.add_local_group_member("titi");        --6\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.add_local_group_member("rouge");        --7\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.add_local_group_member("rouge");           --8\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  text_io.new_line;\r
\r
  text_io.put_line("experience chenillard : 5");\r
  ok := tds.create_new_experience("chenillard");  --1\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.add_experience_parameter("to_to");    --2\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.add_experience_parameter("c");        --3\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.set_local_variable("b");              --4\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  ok := tds.set_local_variable("a");              --5\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  text_io.new_line;\r
\r
  text_io.put_line("scene un : 1");\r
  ok := tds.create_new_scene("un");\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  text_io.new_line;\r
\r
  text_io.put_line("scene deux : 1");\r
  ok := tds.create_new_scene("deux");\r
  bool_io.put(ok);\r
  text_io.new_line;\r
  text_io.new_line;\r
\r
  text_io.put_line("spectacle : 1");\r
  ok := tds.create_spectacle;\r
  bool_io.put(ok);\r
  text_io.new_line;\r
\r
\r
end test;\r
▶1a◀