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

⟦8dc8afa50⟧ TextFile

    Length: 1469 (0x5bd)
    Types: TextFile
    Names: »GOAL_S«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile


with expertSystem, monkeyObject; use expertSystem, monkeyObject;
package goal is

   type object is private;

   procedure make       (status        : goal_state;
			 goal_type     : g_type;
			 name	       : physical_object;
			 go_to	       : coordinate);

   function status      (the_reference : in expertSystem.reference)
                       return goal_state;
   function goal_type   (the_reference : in expertSystem.reference)
		       return g_type;
   function object_name (the_reference : in expertSystem.reference)
                       return physical_object;
   function go_to       (the_reference : in expertSystem.reference)
                       return coordinate;

   procedure modify_status      (the_reference  : in expertSystem.reference;
		                 new_status     : in goal_state);
   procedure modify_goal_type   (the_reference  : in expertSystem.reference;
				 new_type       : in g_type);
   procedure modify_object_name (the_reference  : in expertSystem.reference;
				 new_object     : in physical_object);
   procedure modify_go_to       (the_reference  : in expertSystem.reference;
				 new_location   : in coordinate);

   function instances return collection.object;

   procedure clear;

   illegal_make : exception;

   private
      type object is record
          status    : goal_state;
          goal_type : g_type;
          name      : physical_object;
          go_to     : coordinate;
      end record;
end goal;