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

⟦ad87bccc4⟧ Ada Source

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

Derivation

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

with String_Utilities;

package body String_Edit is

    function Replace (In_String : in String;
                      Fragment : String;
                      New_Value : String;
                      Ignore_Case : Boolean := True) return String is

        Fragment_Location : Natural :=
           String_Utilities.Locate
              (Fragment => Fragment, Within => In_String, Ignore_Case => True);  
    begin
        if Fragment_Location = 0 then
            -- not found
            return In_String;
        else
            return In_String (In_String'First .. Fragment_Location - 1) &
                      New_Value &
                      In_String (Fragment_Location + Fragment'Length ..
                                    In_String'Last);
        end if;
    end Replace;

    function Contains (In_String : in String;
                       Fragment : String;
                       Ignore_Case : Boolean := True) return Boolean is
    begin
        return String_Utilities.Locate (Fragment => Fragment,
                                        Within => In_String,
                                        Ignore_Case => True) /= 0;
    end Contains;
end String_Edit;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1d rec1=00 rec2=01 rec3=012
        [0x01] rec0=06 rec1=00 rec2=02 rec3=000
    tail 0x21724810083f078ef4118 0x42a00088462060003