DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦ca71ad807⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Mac_Text, seg_02457f

Derivation

└─⟦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