|
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, package Message, seg_054dcc
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Transport_Defs;
with Bounded_String;
with Identification;
package Message is
Length_Command_String : constant Natural := 7;
-- 6 caracteres pour l'image d'une commande
subtype Command_String is String (1 .. Length_Command_String);
-- type de l'image d'une commande
subtype Content_String is Bounded_String.Variable_String (246);
-- contenu de la commande a 246 char max
subtype Data_String is Bounded_String.Variable_String (256);
-- contenu de la chaine a transmettre contient au maximum 256 caracteres
type Command_Type is (Registration, Unregistration, Queries,
Request, Notification, Forward,
Publication, Unpublication, Subscription,
Unsubscription, Filtration, Unfiltration);
type Tmessage is
record
Command : Command_Type;
Content : Content_String;
Origin : Identification.Tclient_Id;
end record;
type Conversion is
array (Command_Type'First .. Command_Type'Last) of Command_String;
To_String : constant Conversion :=
(Registration => Command_Type'Image (Registration)
(1 .. Length_Command_String),
Unregistration => Command_Type'Image (Unregistration)
(1 .. Length_Command_String),
Queries => Command_Type'Image (Queries) (1 .. Length_Command_String),
Request => Command_Type'Image (Request) (1 .. Length_Command_String),
Notification => Command_Type'Image (Notification)
(1 .. Length_Command_String),
Forward => Command_Type'Image (Forward) (1 .. Length_Command_String),
Publication => Command_Type'Image (Publication)
(1 .. Length_Command_String),
Unpublication => Command_Type'Image (Unpublication)
(1 .. Length_Command_String),
Subscription => Command_Type'Image (Subscription)
(1 .. Length_Command_String),
Unsubscription => Command_Type'Image (Unsubscription)
(1 .. Length_Command_String),
Filtration => Command_Type'Image (Filtration)
(1 .. Length_Command_String),
Unfiltration => Command_Type'Image (Unfiltration)
(1 .. Length_Command_String));
procedure Fill (Data : in out Data_String; Mess : in Tmessage);
procedure Unfill (Data : in Data_String; Mess : in out Tmessage);
procedure Fill_Command (Mess : out Tmessage; Comm : in Command_Type);
procedure Unfill_Command (Mess : in Tmessage; Comm : out Command_Type);
procedure Fill_Origin (Mess : out Tmessage;
Orig : in Identification.Tclient_Id);
procedure Unfill_Origin (Mess : in Tmessage;
Orig : out Identification.Tclient_Id);
procedure Fill_Content (Mess : out Tmessage; Cont : in Content_String);
procedure Unfill_Content (Mess : in Tmessage; Cont : out Content_String);
end Message;
nblk1=5
nid=5
hdr6=8
[0x00] rec0=1e rec1=00 rec2=01 rec3=04a
[0x01] rec0=13 rec1=00 rec2=02 rec3=06a
[0x02] rec0=16 rec1=00 rec2=04 rec3=066
[0x03] rec0=08 rec1=00 rec2=03 rec3=000
[0x04] rec0=c0 rec1=00 rec2=00 rec3=100
tail 0x2175e20cc87b96372950d 0x42a00088462060003
Free Block Chain:
0x5: 0000 00 00 00 1d 80 01 3b 01 00 16 20 20 20 20 20 20 ┆ ; ┆