|
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_05563d
└─⟦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;
package Std_Types is
package Bs renames Bounded_String;
Dmax : constant := 2;
Tmax : constant := 3;
Pmax : constant := 200;
Sfix : constant := Tmax * 3 + Dmax * 2 + 4;
Mmax : constant := Pmax - Sfix;
type T_Id is new String (1 .. Tmax);
type V_Packet is new Bounded_String.Variable_String (Pmax);
type V_Content is new Bounded_String.Variable_String (Mmax);
V_Null : V_Content := V_Content (Bs.Value ("vide", Mmax));
P_Null : V_Packet := V_Packet (Bs.Value ("vide", Pmax));
type Type_Message is (Registration, Unregistration, Query,
Request, Notification, Forward, Publication,
Unpublication, Subscription, Unsubscription,
Filtration, Unfiltration, Error);
type T_Host_Id is new Transport_Defs.Host_Id (1 .. 4);
Ficus : T_Host_Id := (193, 54, 146, 132);
Ancolie : T_Host_Id := (193, 54, 146, 133);
type T_Socket is new Transport_Defs.Socket_Id (1 .. 2);
Orb_Socket : T_Socket := (16#0A#, 16#30#);
function String_Var_To_String (From : V_Content) return String;
function String_To_String_Var (From : String) return V_Content;
end Std_Types;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=19 rec1=00 rec2=01 rec3=03a
[0x01] rec0=09 rec1=00 rec2=02 rec3=000
tail 0x2175f98e287bd4a076ac5 0x42a00088462060003