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

⟦1505ec0a0⟧ TextFile

    Length: 2149 (0x865)
    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 Umps_Defs;
with Slot;
with Set;

package Notice is
    type Element is private;


    function Sender (Of_The_Element : Element) return Umps_Defs.Behavior_Number;

    function Handler (Of_The_Element : Element)
                     return Umps_Defs.Behavior_Number;

    function Class (Of_The_Element : Element) return String;
    function Id    (Of_The_Element : Element) return String;
    -- Make list of parameters empty

    function Params (Of_The_Element : Element) return Set.Object;
    function Param  (Of_The_Element : Element; With_Name : String)
                   return Slot.Element;


    generic
        Field : Slot.Fields := Slot.On_Value;
    function Is_Equal (Left, Right : Element) return Boolean;
    -- accept wildcards for names of id and class


    procedure Add_Sender  (Behavior :        Umps_Defs.Behavior_Number;
                           Into     : in out Element);
    procedure Add_Handler (Behavior :        Umps_Defs.Behavior_Number;
                           Into     : in out Element);
    procedure Add_Class   (Class : String; Into : in out Element);
    procedure Add_Id      (Id : String; Into : in out Element);
    procedure Add_Params  (Params : Set.Object; Into : in out Element);
    procedure Add_Param   (Param : Slot.Element; Into : in out Element);



    generic
        Separator : String;
    function Image (The_Element : Element) return String;

    procedure Display (The_Element : Element; String_Before : String := "");


-------------------------------------------------------------------------------
private

    type Element is
        record
            Sender  : Umps_Defs.Behavior_Number := Umps_Defs.Any_Behaviors;
            Handler : Umps_Defs.Behavior_Number := Umps_Defs.Any_Behaviors;
            Class   : Umps_Defs.Event_Class     := Umps_Defs.Null_Event_Class;
            Id      : Umps_Defs.Event_Id        := Umps_Defs.Null_Event_Id;
            Params  : Set.Object;
        end record;

end Notice;
-------------------------------------------------------------------------------