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

⟦c37eb8bc7⟧ Ada Source

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

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

with Object, Message, Arguments, Scanner;
package String_Class is

    Incorrect_Method, Incorrect_Nb_Args, Instance_Table_Full : exception;

    type Struct_Table is private;


    function Send (To_Object : Object.Reference;
                   The_Message : Message.Selector;
                   With_Arguments : Arguments.List) return Object.Reference;

    function Create (Value : String) return Object.Reference;

    function In_Text (The_String : Object.Reference) return String;

private

    Nb_Max_String : constant := 100;

    type Indicator is (Unused, Used);

    type Struct_Table is
        record
            Indic : Indicator := Unused;
            Value : Scanner.B_String;
        end record;


    function First_Free return Natural;

    function Delete (The_String : Object.Reference) return Object.Reference;

    function Size (The_String : Object.Reference) return Natural;

    function Lower_Case (The_String : Object.Reference) return Object.Reference;

    function Upper_Case (The_String : Object.Reference) return Object.Reference;

    function Capitalize (The_String : Object.Reference) return Object.Reference;

    function "+" (First_String : Object.Reference;
                  Second_String : Object.Reference) return Object.Reference;

    function Is_Equal (First_String : Object.Reference;
                       Second_String : Object.Reference)
                      return Object.Reference;

end String_Class;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=25 rec1=00 rec2=01 rec3=056
        [0x01] rec0=0e rec1=00 rec2=02 rec3=001
    tail 0x2152e846284d986d40c00 0x42a00088462060003