DataMuseum.dk

top - metrics - download

    Length: 776 (0x308)
    Types: TextFile
    Names: »MONKEYOBJECT_A«

└─⟦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

package monkeyObject is

   maxLengthName : constant positive := 20;

   subtype physical_Object is string(1..maxLengthName);

   type weight_type is (heavy, light);

   subtype horizontal_location is integer range 1..10;
   subtype vertical_location is integer range 1..10;

   type coordinate is record
	x : horizontal_location;
	y : vertical_location;
   end record;

   type goal_state is (active, satisfied);

   type g_type is (holds, is_on, is_at);

   nil : constant physical_object := ('n','i','l',others => ' ');

   floor: constant physical_object:=('f','l','o','o','r',others => ' ');

   ceiling: constant physical_object:=('c','e','i','l','i','n','g',others=>' ');

   ladder: constant physical_object:=('l','a','d','d','e','r',others=>' ');

end monkeyObject;