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

⟦8e1b72a80⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Global_Replace, seg_02ba2d

Derivation

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

with String_Edit;
with File_Edit;
--with Library;
with Log;  
with Io;
with Directory_Tools;  
with Process_Files;

procedure Global_Replace
             (In_Files : String; Fragment : String; New_Text : String) is

    procedure Process_Line (Line : String; Out_File : Io.File_Type) is
    begin  
        if String_Edit.Contains (Line, Fragment) then
            Io.Put_Line (Out_File, String_Edit.Replace
                                      (Line, Fragment, New_Text));
        else
            Io.Put_Line (Out_File, Line);
        end if;
    end Process_Line;

    package Replace_File_Edit is new File_Edit (Process_Line);

    procedure Process_File (Name : String) is
    begin
        Log.Put_Line ("Editing " & Name);
        Replace_File_Edit.Edit (Name, Name);
    end Process_File;

    package Process_Replace_Files is new Process_Files (Process_File);
begin
    Process_Replace_Files.Process (In_Files);
    Log.Put_Line ("Done with global replace");
end Global_Replace;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=22 rec1=00 rec2=01 rec3=038
        [0x01] rec0=02 rec1=00 rec2=02 rec3=000
    tail 0x2172480f483f078e4065b 0x42a00088462060003