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 V

⟦510c09eb3⟧ TextFile

    Length: 1256 (0x4e8)
    Types: TextFile
    Names: »V«

Derivation

└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧

TextFile

with Slot, Frame;
package Frame_Robots_Briques_Bak is

    package Brique_Features is
        In_The_Heap  : constant Slot.Object := Slot.Value (1);
        In_The_Box   : constant Slot.Object := Slot.Value (2);
        In_The_Pince : constant Slot.Object := Slot.Value (3);
        type Colours is (Pink, Gray, White);
        package State_Slot_Colours is
           new Slot.Enumeration_Facilities (Values => Colours);
        type Places is (Heap, Pince, Box);
        -- package State_Slot_Places is
        --    new Slot.Enumeration_Facilities (Values => Places);
        type Attributes is (Size, Colour, Place, Boite);
        Max_Size : constant Slot.Object := Slot.Value (500);
    end Brique_Features;

    package Robot_Features is
        type Tasks is (Get, Put);
        package State_Slot_Tasks is
           new Slot.Enumeration_Facilities (Values => Tasks);
        type Attributes is (Name, Box, T_Ask, Is_Busy, Old);
    end Robot_Features;

    package Brique is new Frame (Name       => "brique",
                                 Attributes => Brique_Features.Attributes);

    package Robot is new Frame (Name       => "robot",
                                Attributes => Robot_Features.Attributes);

end Frame_Robots_Briques_Bak;