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

⟦9c01ce26d⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Nos_Chaines, seg_04592c

Derivation

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

with Text_Io;
package body Nos_Chaines is

    ---------------------------------------------------------------
    --|
    --| Compare l'egalite entre deux chaines de caracteres de type
    --| Nos_Chaines.String_text
    --|
    --| Parametres d'entree :
    --|   A : premiere chaine de caracteres
    --|       (type Nos_Chaines.String_Text)
    --|   B : deuxiemee chaine de caracteres
    --|       (type Nos_Chaines.String_Text)
    --| Valeur retournee par la fonction :
    --|   TRUE si les deux chaines sont identiques
    --|   FALSE si les deux chaines ne sont pas identiques
    --|
    ---------------------------------------------------------------
    function Equal (A, B : Nos_Chaines.String_Text) return Boolean is
    begin
        return Nos_Chaines.Infinite_String.Image (A) =
                  Nos_Chaines.Infinite_String.Image (B);
    end Equal;

    function Char_At_Pos (A : Nos_Chaines.String_Text; Position : Positive)
                         return Character is
    begin
        return Nos_Chaines.Infinite_String.Char_At (A, Position);
    end Char_At_Pos;


    function Greater_Than (A, B : Nos_Chaines.String_Text) return Boolean is
    begin
        return Nos_Chaines.Infinite_String.Image (A) >
                  Nos_Chaines.Infinite_String.Image (B);
    end Greater_Than;

    function Less_Than (A, B : Nos_Chaines.String_Text) return Boolean is
    begin
        return Nos_Chaines.Infinite_String.Image (A) <
                  Nos_Chaines.Infinite_String.Image (B);
    end Less_Than;

    function Difference (A, B : Nos_Chaines.String_Text) return Integer is
        Resultat : Integer;
    begin
        if (Nos_Chaines.Equal (A, B)) then
            Resultat := 0;
        else
            if (Nos_Chaines.Greater_Than (A, B)) then
                Resultat := 1;
            else
                Resultat := -1;
            end if;
        end if;
        return Resultat;
    end Difference;

    procedure Copy (Cible : in out Nos_Chaines.String_Text;
                    Source : Nos_Chaines.String_Text) is
    begin
        Nos_Chaines.Infinite_String.Copy (Cible, Source);
    end Copy;

    procedure Copy (Cible : in out Nos_Chaines.String_Text; Source : String) is
    begin
        Nos_Chaines.Infinite_String.Copy (Cible, Source);
    end Copy;

    procedure Free (A : in out Nos_Chaines.String_Text) is
    begin
        Nos_Chaines.Infinite_String.Free (A);
    end Free;

    procedure Print (A : Nos_Chaines.String_Text) is
    begin
        Text_Io.Put (Nos_Chaines.Infinite_String.Image (A) & " ");
    end Print;
    procedure Print_Line (A : Nos_Chaines.String_Text) is
    begin
        Text_Io.Put_Line (Nos_Chaines.Infinite_String.Image (A));

    end Print_Line;

    function String_Value (V : Nos_Chaines.String_Text) return String is
    begin
        return Nos_Chaines.Infinite_String.Image (V);
    end String_Value;

    function Unbounded_Value (S : String) return Nos_Chaines.String_Text is
    begin
        return Nos_Chaines.Infinite_String.Value (S);
    end Unbounded_Value;

    procedure Append (Target : in out Nos_Chaines.String_Text;
                      Source : in Character) is
    begin
        Nos_Chaines.Infinite_String.Append (Target, Source);
    end Append;

end Nos_Chaines;

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1b rec1=00 rec2=01 rec3=020
        [0x01] rec0=1e rec1=00 rec2=03 rec3=030
        [0x02] rec0=20 rec1=00 rec2=04 rec3=006
        [0x03] rec0=0e rec1=00 rec2=02 rec3=000
    tail 0x21541fc80864b75603898 0x42a00088462060003