|
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 Constant_String, seg_04a33e
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Output_Stream; package Constant_String is type Object is private; Null_Object : constant Object; function Value (For_String : String) return Object; function Image (Of_Object : Object) return String; procedure Put (The_Object : Object; Where : Output_Stream.Object); procedure Put (Where : Output_Stream.Object); -- the all set package Operators is function "=" (Left, Right : Object) return Boolean renames Constant_String."="; function "<" (Left, Right : Object) return Boolean; function "<=" (Left, Right : Object) return Boolean; function ">" (Left, Right : Object) return Boolean; function ">=" (Left, Right : Object) return Boolean; end Operators; private type Object is access String; Null_Object : constant Object := null; end Constant_String;
nblk1=2 nid=2 hdr6=2 [0x00] rec0=19 rec1=00 rec2=01 rec3=000 [0x01] rec0=10 rec1=09 rec2=31 rec3=6cd tail 0x2174ea6d0866e7fa2d80c 0x42a00088462063c03 Free Block Chain: 0x2: 0000 00 00 00 19 80 13 6e 64 20 43 6f 6e 73 74 61 6e ┆ nd Constan┆