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 ┃

⟦4923e6c9a⟧ TextFile

    Length: 593 (0x251)
    Types: TextFile
    Names: »V«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧

TextFile

with Bounded_String;
with Sensor;

package Set_Of_Sensors is
    subtype Size_Limit is Natural range 0 .. 200;
    type Object (Number_Max_Of_Sensors : Size_Limit := 1) is private;

private

    type Contents is
        record  
            The_Sensor : Sensor.Object;
            The_Name : Bounded_String.Variable_String (255);
        end record;  
    type Sensors is array (Size_Limit range <>) of Contents;
    type Object (Number_Max_Of_Sensors : Size_Limit := 1) is
        record
            The_Sensors : Sensors (1 .. Number_Max_Of_Sensors);
        end record;

end Set_Of_Sensors;