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 ┃

⟦0f96546b7⟧ TextFile

    Length: 1975 (0x7b7)
    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 Request 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 Method (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 name of method

    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_Method  (Method : 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;
            Method  : Umps_Defs.Op_Code         := Umps_Defs.Null_Op_Code;
            Params  : Set.Object                := Set.Null_Object;
        end record;

end Request;
-------------------------------------------------------------------------------