⟦bd4856f4c⟧

TextFile

generic\r
  type element is private;\r
  with function compare_key(element1, element2 : element) return integer;\r
\r
package generic_tree is\r
\r
  type object is private;\r
\r
  procedure insert_element (the_object : in out object; the_element : element);\r
  procedure search_element(the_object : object; the_element : in out element);\r
  procedure change_element(the_object : in out object; the_element : element);\r
  function  create_new_tree return object;\r
  function  element_exist(the_object : object; the_element : element)\r
	    return boolean;\r
\r
  private\r
    type object;\r
\r
    type node is record\r
      contain : element;\r
      left    : object;\r
      right   : object;\r
    end record;\r
\r
    type object is access node;\r
\r
    void_tree : constant object := null;\r
\r
end generic_tree;\r
package TAD_ACTOR is\r
\r
  type object is private;\r
  type type_actor is (no_type, fugitif, binaire, discret, temporel);\r
  type pnatural is access natural;\r
\r
  procedure Create_New_Actor (the_object : out object; \r
			      the_Name : string; \r
			      the_address : natural := 0);\r
  procedure add_type (the_object : in out object; the_type : type_actor);\r
\r
  function compare_name (object1, object2 : object) return integer;\r
\r
  function what_name (the_object : object) return string;\r
  function what_type (the_object : object) return type_actor;\r
  function what_address (the_object : object) return natural;\r
\r
  function export_address_pointer(the_object : object) return pnatural;\r
\r
  private\r
    type object is record\r
      name : string(1..20);\r
      actor_type : type_actor;\r
      actor_address : natural;\r
    end record;\r
\r
end TAD_ACTOR;\r
with actor_tree;\r
\r
package tad_material is\r
\r
  type object is private;\r
\r
  procedure Create_New_Material (the_object : out object;\r
			      the_Name : string);\r
  procedure set_actors (the_object : in out object;\r
			the_actors : actor_tree.object);\r
  procedure get_actors (the_object : object;\r
			the_actors : out actor_tree.object);\r
  function compare_name (object1, object2 : object) return integer;\r
\r
  function what_name (the_object : object) return string;\r
\r
  private\r
    type object is record\r
      name : string(1..20);\r
      actors : actor_tree.object;\r
    end record;\r
\r
end tad_material;\r
with tad_material;\r
\r
package tad_global is\r
\r
 type object is private;\r
 type pnatural is access natural;\r
 type pstring is access string;\r
\r
 procedure create_new_station (the_object : out object; the_name : string);\r
 procedure set_material_type (the_object : in out object;\r
			      material_type : tad_material.object);\r
 procedure set_station_number (the_object : in out object;\r
				  the_address : natural);\r
 function get_station_number (the_object : object) return natural;\r
 procedure get_material_type (the_object : object;\r
			      the_material_type : out tad_material.object);\r
 function compare_name(object1, object2 : object) return integer;\r
\r
 function export_address_pointer(the_object : object) return pnatural;\r
\r
\r
 private\r
   type pmat is access tad_material.object;\r
   type object is record\r
     name : string(1..20);\r
     station : natural;\r
     material_type : pmat;\r
   end record;\r
\r
end tad_global;\r
with group_tree;\r
\r
package tad_local is\r
\r
  type object is private;\r
  type var_type is (notype, temp, num, groupe);\r
  type pvar_type is access var_type;\r
  type pnatural is access natural;\r
\r
  procedure Create_new_local_var (the_object : out object;\r
				  the_name : string);\r
  procedure set_type (the_object : in out object;\r
		      the_type : var_type);\r
  procedure set_value (the_object : in out object;\r
		       the_value : natural);\r
  procedure set_members (the_object : in out object;\r
			 the_members : group_tree.object);\r
  function get_type (the_object : object) return var_type;\r
  function get_value (the_object : object) return natural;\r
  function get_members (the_object : object) return group_tree.object;\r
\r
  function compare_name(object1, object2 : object) return integer;\r
\r
  function export_value_pointer(the_object : object) return pnatural;\r
  function export_type_pointer(the_object : object)  return pvar_type;\r
\r
  private\r
    type object is record\r
      name  : string (1..20);\r
      the_type : var_type;\r
      value : natural;\r
      members : group_tree.object;\r
    end record;\r
\r
end tad_local;\r
with tad_global;\r
\r
package tad_group is\r
\r
  type object is private;\r
\r
  procedure Create_New_Group_Member (the_object : out object;\r
				     the_Name : string);\r
\r
  function compare_name (object1, object2 : object) return integer;\r
\r
  function what_name (the_object : object) return string;\r
  function what_material (the_object : object) return tad_global.object;\r
\r
  private\r
    type pvar is access tad_global.object;\r
    type object is record\r
      name : string(1..20);\r
      access_var : pvar;\r
    end record;\r
\r
end tad_group;\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
\r
with parameter_tree;\r
with local_tree;\r
with tad_abstract;\r
\r
package tad_experience is\r
\r
  type object is private;\r
\r
  procedure create_new_experience (the_object : out object; the_name : string);\r
  procedure add_parameter (the_object : in out object;\r
			   the_parameter : parameter_tree.object);\r
  procedure add_local_var (the_object : in out object;\r
			   the_local_var : local_tree.object);\r
  procedure add_code (the_object : in out object;\r
		      the_code : tad_abstract.pobject);\r
\r
  function get_parameter (the_object : object) return parameter_tree.object;\r
  function get_local_var (the_object : object) return local_tree.object;\r
  function get_code (the_object : object) return tad_abstract.pobject;\r
\r
  function compare_name (object1, object2 : object) return integer;\r
\r
  private\r
    type object is record\r
      name : string(1..20);\r
      params : parameter_tree.object;\r
      local_var : local_tree.object;\r
      code : tad_abstract.pobject;\r
    end record;\r
\r
end tad_experience;\r
package tad_parameter is\r
\r
  type object is private;\r
\r
  procedure create_new_param (the_object : out object;\r
			      the_order : natural);\r
  procedure set_name (the_object : in out object; the_name : string);\r
\r
  function get_order (the_object : object) return natural;\r
  function get_name (the_object : object) return string;\r
\r
  function compare_order(object1, object2 : object) return integer;\r
\r
  private\r
    type object is record\r
      name : string(1..20);\r
      order : natural;\r
    end record;\r
\r
end tad_parameter;\r
with tad_local;\r
\r
\r
package tad_abstract is\r
\r
\r
  type Node_Name is (Scene, Exp, Param, Puis, Attendre, Faire, Au_Temps,\r
		     Si, Repeter, Qui, Quoi, Chainage,\r
		     Activer, Desactiver, Fugitif, Temporel, Discret,\r
		     N_Inf, N_Sup, N_Inf_Egal, N_Sup_Egal, N_Egal,\r
		     N_Parent, N_Plus, N_Moins, N_Div, N_Mult,\r
		     Feuille_Acteur, Feuille_Station, Feuille_Id,\r
		     Feuille_entier, Feuille_Temp);\r
\r
  type pstring is access string;\r
\r
  type object(discrim : node_name);\r
  type pobject is access object;\r
\r
  type object(discrim : node_name) is record\r
    the_node_name : Node_Name;\r
      case discrim is\r
	when feuille_Acteur  => Acteur  : natural;\r
\r
	when Feuille_Station => Station : natural;\r
\r
	when Feuille_Id      => nom     : pstring;\r
\r
	when Feuille_Entier |\r
	     Feuille_Temp     => Valeur  : natural;\r
\r
	when others          => Left  : pobject := null;\r
				Right : pobject := null;\r
      end case;\r
  end record;\r
\r
  function create_new_tree return tad_abstract.pobject;\r
\r
  function actor_of_station_exist (station : pstring; actor : pstring)\r
				  return boolean;\r
\r
\r
end tad_abstract;\r
with local_tree;\r
with tad_abstract;\r
\r
package tad_scene is\r
\r
  type object is private;\r
\r
  procedure create_new_scene (the_object : out object; the_name : string);\r
  procedure add_local_var (the_object : in out object;\r
			   the_local_var : local_tree.object);\r
  procedure add_code (the_object : in out object;\r
		      the_code : tad_abstract.pobject);\r
\r
  function get_local_var (the_object : object) return local_tree.object;\r
  function get_code (the_object : object) return tad_abstract.pobject;\r
\r
  function compare_name (object1, object2 : object) return integer;\r
\r
  private\r
    type object is record\r
      name : string(1..20);\r
      local_var : local_tree.object;\r
      code : tad_abstract.pobject;\r
    end record;\r
\r
end tad_scene;\r
\r
\r
with token;\r
\r
package TDS is\r
\r
  type pString is access string;\r
\r
  function Create_New_Material (the_Name : pstring) return boolean;\r
  function add_actor (the_name : pstring) return boolean;\r
  function add_actor_type (the_type : Token.object) return boolean;\r
  function Compare_Current_Material_Name (the_name : pstring) return boolean;\r
\r
  function Create_New_Station (the_Name : pstring) return boolean;\r
  function Set_Station_Type (the_type : pstring)  return boolean;\r
  function Set_Station_Number (the_address : natural) return boolean;\r
\r
  function Create_New_Experience (the_Name : pstring) return boolean;\r
  function Add_Experience_Parameter (the_Name : pstring) return boolean;\r
\r
  function Create_New_Scene (the_Name : pstring) return boolean;\r
\r
  function Create_Spectacle return boolean;\r
\r
  function Set_Local_Variable (the_name : pstring) return boolean;\r
  function Set_Local_Group (the_name : pstring) return boolean;\r
  function Add_Local_Group_Member (the_name : pstring) return boolean;\r
\r
\r
  procedure Syntax_Error;\r
\r
  function MKNode_Scene (the_name : pString) return boolean;\r
  function MKNode_Puis return boolean;\r
  function MKNode_Attendre (the_name : pString;\r
			    the_type : Token.object) return boolean;\r
  function MKNode_Faire return boolean;\r
  function MKNode_Fin_Faire return boolean;\r
  function MKNode_Au_Temps (Value : pString;\r
			    the_type : Token.object) return boolean;\r
  function MKNode_Si_Cond return boolean;\r
  function MKNode_Si_Alors return boolean;\r
  function MKNode_Fin_Si return boolean;\r
  function MKNode_Repeter (Value : pString;\r
			   the_type : Token.object) return boolean;\r
  function MKNode_Fin_Repeter return boolean;\r
  function MKNode_Activer (Station : pString;\r
			   Actor : pString) return boolean;\r
  function MKNode_Desactiver (Station : pString;\r
			      Actor : pString) return boolean;\r
  function MKNode_Experience (the_name : pString) return boolean;\r
  function MKNode_Param (Value : pString;\r
			 the_type : Token.object) return boolean;\r
  function MKNode_Fin_Param return boolean;\r
  function MKNode_Fugitif (Station : pString;\r
			   Actor : pString) return boolean;\r
  function MKNode_Temporel (Station : pString;\r
			    Actor : pString;\r
			    Value : pString;\r
			    the_type : Token.object;\r
			    Time : pString;\r
			    the_time_type : Token.object) return boolean;\r
  function MKNode_Discret (Station : pString;\r
			   Actor : pString;\r
			   Value : pString;\r
			   the_type : Token.object) return boolean;\r
  function MKNode_Operateur (Operateur_type : Token.object) return boolean;\r
  function MKNode_Eval (value : pString;\r
			the_type : Token.object;\r
			Operator : Token.object := Token.L_UNK) return boolean;\r
  function MKNode_Priorite (Priority : Token.object) return boolean;\r
\r
\r
end TDS;\r
\r
\r
\r
\r
\r
\r
package Token is
    type Object is (L_Au, L_Activer, L_Alors, L_Attendre, L_Avec, L_Binaire,
                    L_Desactiver, L_Discret, L_En, L_Est, L_Experience,
                    L_Faire, L_Fin, L_Fois, L_Fugitif, L_Heure, L_Materiel,
                    L_Minute, L_Puis, L_Repeter, L_Scene, L_Seconde, L_Si,
                    L_Spectacle, L_Station, L_Temporel, L_Temps, L_Crochetd,
                    L_Crochetg, L_Deuxpoints, L_Different, L_Egal, L_Id,
                    L_Inf, L_Inf_Ou_Egal, L_Int, L_Moins, L_Parenthesed,
                    L_Parentheseg, L_Plus, L_Point, L_Virgule, L_Slash,
                    L_Sup, L_Sup_Ou_Egal, L_Star, L_Time, L_Unk, L_Eof);

    function Search_Token (S : String) return Token.Object;
end Token;
with tad_local;\r
\r
\r
package abstract_node is\r
\r
\r
  type Node_Name is (Scene, Exp, Param, Puis, Attendre, Faire, Au_Temps,\r
		     Si, Repeter, Qui, Quoi, Chainage,\r
		     Activer, Desactiver, Fugitif, Temporel, Discret,\r
		     N_Inf, N_Sup, N_Inf_Egal, N_Sup_Egal, N_Egal,\r
		     N_Parent, N_Plus, N_Moins, N_Div, N_Mult,\r
		     Feuille_Acteur, Feuille_Station, Feuille_Val, Feuille_Id);\r
\r
  type pnatural is access natural;\r
\r
  type object(discrim : node_name);\r
  type pobject is access object;\r
\r
  type object(discrim : node_name) is record\r
    the_node_name : Node_Name;\r
      case discrim is\r
	when feuille_Acteur  => Acteur  : pnatural;\r
\r
	when Feuille_Station => Station : pnatural;\r
\r
	when Feuille_Id      => pValeur : pnatural;\r
				le_type : tad_local.var_type;\r
\r
	when Feuille_Val     => Valeur  : natural;\r
				le_type : tad_local.var_type;\r
\r
	when others          => Left  : pobject := null;\r
				Right : pobject := null;\r
      end case;\r
  end record;\r
\r
\r
end abstract_node;\r
with tad_abstract;\r
\r
package pointer_level is\r
\r
  procedure enter(pointer : tad_abstract.pobject);\r
\r
  function release return tad_abstract.pobject;\r
\r
end pointer_level;\r
\r
▶1a◀
DataMuseum.dk

Rational R1000/400 Tapes

⟦bd4856f4c⟧ TextFile

Derivation

TextFile
