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 - download
Index: ┃ T V ┃

⟦6f44043c3⟧ TextFile

    Length: 1543 (0x607)
    Types: TextFile
    Names: »V«

Derivation

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦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;