|
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 Mac_Text, seg_02457f
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Mac_Types; package Mac_Text is Maximum : constant Integer := Integer'Last; subtype Index is Integer range 0 .. Maximum; type String is array (Natural range <>) of Mac_Types.Char; type Text (Maximum_Length : Index) is limited private; function Length (T : Text) return Index; procedure Set_Length (T : in out Text; L : Index); function Maximum_Length (T : Text) return Index; function Value (T : Text) return String; function Value (T : Text) return Mac_Types.Str255; function Value (Where : Index; T : Text) return Mac_Types.Char; function Empty (T : Text) return Boolean; procedure Set_Empty (T : in out Text); function To_Text (S : String; Max : Index) return Text; function To_Text (C : Mac_Types.Char; Max : Index) return Text; function To_Text (S : String) return Text; function To_Text (C : Mac_Types.Char) return Text; procedure Set (T : in out Text; Value : Text); procedure Set (T : in out Text; Value : String); procedure Set (T : in out Text; Value : Mac_Types.Char); procedure Append (Tail : Text; To : in out Text); procedure Append (Tail : String; To : in out Text); procedure Append (Tail : Mac_Types.Char; To : in out Text); function As_Ptr (T : Text) return Mac_Types.Ptr; private type Text (Maximum_Length : Index) is record Length : Index := 0; Value : String (1 .. Maximum_Length); end record; end Mac_Text;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=1c rec1=00 rec2=01 rec3=00e [0x01] rec0=12 rec1=00 rec2=02 rec3=000 tail 0x2151ee0f6839c72a7b97a 0x42a00088462060003