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

⟦8fdd03251⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Umps_Utilities, seg_025a24, seg_026d41

Derivation

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

with Text_Io;

package body Umps_Utilities is

    function Normalize (S : in String; Length : in Positive) return String is
    begin
        if S'Length > Length then
            return S (S'First .. S'First + Length - 1);
        else
            return S & (1 .. Length - S'Length => ' ');
        end if;
    end Normalize;

    procedure Text_File_Copy (From : in String; To : in String) is
        File_From, File_To : Text_Io.File_Type;
        String_Long_Enough : String (1 .. 512);
        Last : Natural;
        File_From_Opened : Boolean := False;
        File_To_Opened : Boolean := False;
    begin
        Text_Io.Open (File_From, Text_Io.In_File, From);
        File_From_Opened := True;
        Text_Io.Open (File_To, Text_Io.Out_File, To);
        File_To_Opened := True;
        while not Text_Io.End_Of_File (File_From) loop
            Text_Io.Get_Line (File_From, String_Long_Enough, Last);
            Text_Io.Put_Line (File_To, String_Long_Enough (1 .. Last));
        end loop;
        Text_Io.Close (File_From);
        Text_Io.Close (File_To);
    exception
        when Text_Io.Name_Error =>
            if not File_From_Opened then
                Text_Io.Put_Line ("The file " & From & "doesn't exist");
            else
                if not File_To_Opened then
                    Text_Io.Create (File_To, Text_Io.Out_File, To);
                    while not Text_Io.End_Of_File (File_From) loop
                        Text_Io.Get_Line (File_From, String_Long_Enough, Last);
                        Text_Io.Put_Line (File_To,
                                          String_Long_Enough (1 .. Last));
                    end loop;
                    Text_Io.Close (File_From);
                    Text_Io.Close (File_To);
                end if;
            end if;
    end Text_File_Copy;

end Umps_Utilities;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1c rec1=00 rec2=01 rec3=05e
        [0x01] rec0=17 rec1=00 rec2=02 rec3=001
    tail 0x2151fc66283a3689ecf9e 0x42a00088462060003