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

⟦ae6ffa645⟧ Ada Source

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

Derivation

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

with Directory;
with Switch_Implementation;
package body Switch_Utilities is

    function Value_Of (This_Switch : in String; In_This_Switch_File : in String)
                      return String is

        The_Switches    : Switch_Implementation.Iterator;
        The_Switch_File : Directory.Version;
        The_Status      : Directory.Naming.Name_Status;

    begin
        Directory.Naming.Resolve (In_This_Switch_File,
                                  The_Switch_File, The_Status);  
        Switch_Implementation.Initiate
           (The_Switches, The_Switch_File, Name => This_Switch);
        declare
            The_Value : constant String :=
               Switch_Implementation.Value (The_Switches);
        begin
            Switch_Implementation.Finish (The_Switches);
            return The_Value;
        end;

    exception
        when others =>
            begin
                Switch_Implementation.Finish (The_Switches);
                raise Problem;
            exception
                when others =>
                    raise Problem;
            end;
            raise Problem;
    end Value_Of;

end Switch_Utilities;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1e rec1=00 rec2=01 rec3=01e
        [0x01] rec0=09 rec1=00 rec2=02 rec3=000
    tail 0x2170029d4815c66b0aab6 0x42a00088462061e03