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

⟦e43aa6f2a⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Test_Arbres_Bis, seg_0456c4

Derivation

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

with String_Utilities;

package body Test_Arbres_Bis is

    Un_Arbre : Arbre.Object;

    function Differe (X, Y : String) return Integer is
    begin
        if String_Utilities.Less_Than (X, Y) then
            return -1;
        elsif String_Utilities.Less_Than (Y, X) then
            return 1;
        else
            return 0;
        end if;
    end Differe;

    function Difference (P, Q : Valeur) return Integer is
    begin
        return Differe (P.Chaine, Q.Chaine);
    end Difference;


    function Find (La_Cellule : Valeur) return Boolean is
    begin
        return Arbre.Find (La_Cellule, Un_Arbre);
    end Find;


    procedure Find (La_Cellule : in out Valeur; Trouve : out Boolean) is
    begin
        Arbre.Find (La_Cellule, Un_Arbre, Trouve);
    end Find;


    procedure Add (La_Cellule : Valeur) is
    begin
        Arbre.Add (La_Cellule, Un_Arbre);
    end Add;

    -- procedure Replace (La_Cellule : valeur);

    -- function No_Variable return Boolean;



begin
    Un_Arbre := Arbre.Create_Tree;
end Test_Arbres_Bis;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=2a rec1=00 rec2=01 rec3=04a
        [0x01] rec0=0b rec1=00 rec2=02 rec3=001
    tail 0x21541c130864b3a6f8d44 0x42a00088462060003