|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, generic, package Request, seg_026560, seg_026d1c
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
-------------------------------------------------------------------------------
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;
-------------------------------------------------------------------------------
nblk1=5
nid=5
hdr6=8
[0x00] rec0=1f rec1=00 rec2=01 rec3=044
[0x01] rec0=01 rec1=00 rec2=03 rec3=00e
[0x02] rec0=18 rec1=00 rec2=02 rec3=098
[0x03] rec0=03 rec1=00 rec2=04 rec3=000
[0x04] rec0=80 rec1=00 rec2=00 rec3=100
tail 0x21520435883aa678541bb 0x42a00088462063c03
Free Block Chain:
0x5: 0000 00 00 00 20 80 1d 74 79 70 65 20 65 71 75 61 6c ┆ type equal┆