|
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: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Std_Types, seg_05487f
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Bounded_String;
with Transport_Defs;
package Std_Types is
Dmax : constant := 2;
Tmax : constant := 3;
Pmax : constant := 200;
Sfix : constant := Tmax * 3 + Dmax;
Mmax : constant := Pmax - Sfix;
Smax : constant := 256;
package Bs renames Bounded_String;
type String_Var is new Bs.Variable_String (Smax);
type V_Packet is new Bs.Variable_String (Pmax);
type V_String is new Bs.Variable_String (Mmax);
type Type_Message is (Registration, Unregistration, Query,
Request, Notification, Forward,
Publication, Unpublication, Subscription,
Unsubscription, Filtration, Unfiltration);
type T_Host_Id is new Transport_Defs.Host_Id (1 .. 4);
Ficus : T_Host_Id := (193, 54, 146, 133);
Ancolie : T_Host_Id := (193, 54, 146, 132);
type T_Socket is new Transport_Defs.Socket_Id (1 .. 2);
Orb_Socket : T_Socket := (16#0A#, 16#30#);
type Message_Content is
record
Type_Msg : Type_Message;
Source_Id : Natural;
Target_Id : Natural;
Order : Natural;
Name : T_Host_Id;
Socket : T_Socket;
Content : String_Var;
end record;
function String_Var_To_String (From : String_Var) return String;
function String_To_String_Var (From : String) return String_Var;
end Std_Types;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1b rec1=00 rec2=01 rec3=056
[0x01] rec0=0f rec1=00 rec2=02 rec3=000
tail 0x2175d9b7687b886bbb1d7 0x42a00088462060003