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 - metrics - download

⟦f947441da⟧ Ada Source

    Length: 8192 (0x2000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Umps_Parser, seg_024247

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;
with Parameter_Parser;

package body Umps_Parser is

    function Get_Behavior_Host_Name (From : in String) return String is

        type Test_Option_Id is (None, Give_Me_A_Number_Oh_Please);

        package Parameter_Parser_Behavior_Hostname is
           new Parameter_Parser (Option_Id => Test_Option_Id);  
        use Parameter_Parser_Behavior_Hostname;

        Options : Iterator;
        Success : Boolean;
        Opt_Id : Test_Option_Id;

        S : String (1 .. 128) := (1 .. 128 => ' ');

    begin

        Options := Parse (From);
        if Is_Successful (Options) then
--        Opt_Id := Name (Options);
--        Text_Io.Put_Line (Get_Image (Options, Opt_Id));
--        Text_Io.Put_Line (Name (Options, Opt_Id));

            if Has_Value (Options, Give_Me_A_Number_Oh_Please) then
--                Text_Io.Put_Line (Get_Image (Options,
--                                             Give_Me_A_Number_Oh_Please));
                return (Get_Image (Options, Give_Me_A_Number_Oh_Please));
            end if;
        else
            Text_Io.Put_Line (Diagnosis (Options, Name (Options)));  
            return "Not_Found";
        end if;

    exception
        when others =>
            Text_Io.Put_Line ("Exception : others");

    end Get_Behavior_Host_Name;

end Umps_Parser;

    nblk1=7
    nid=5
    hdr6=4
        [0x00] rec0=20 rec1=00 rec2=01 rec3=006
        [0x01] rec0=0e rec1=00 rec2=03 rec3=000
        [0x02] rec0=1a rec1=00 rec2=05 rec3=000
        [0x03] rec0=1a rec1=00 rec2=07 rec3=000
        [0x04] rec0=0e rec1=00 rec2=03 rec3=000
        [0x05] rec0=41 rec1=c7 rec2=23 rec3=54c
        [0x06] rec0=d2 rec1=a4 rec2=00 rec3=011
    tail 0x2151ec7d6839c4a9c230b 0x42a00088462060003
Free Block Chain:
  0x5: 0000  00 07 00 dc 80 09 20 28 4c 61 73 74 29 29 3b 09  ┆       (Last)); ┆
  0x7: 0000  00 06 00 04 80 01 27 01 05 62 65 67 69 6e 05 00  ┆      '  begin  ┆
  0x6: 0000  00 04 00 06 80 03 6f 2e 50 03 04 2e 50 75 74 5f  ┆      o.P  .Put_┆
  0x4: 0000  00 02 00 0c 80 09 61 6c 27 49 6d 61 67 65 20 09  ┆      al'Image  ┆
  0x2: 0000  00 00 00 06 80 03 67 65 20 03 69 6f 6e 73 29 3b  ┆      ge  ions);┆