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

⟦4c61e01f0⟧ Ada Source

    Length: 5120 (0x1400)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, procedure Set_Context, seg_03be1d, separate Library_Extensions

Derivation

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

E3 Source Code



separate (Library_Extensions)
procedure Set_Context (Old_Context : in out Naming.Context;
                       View        :        String;
                       Status      : in out Simple_Status.Condition) is

    Error_Status : Directory.Error_Status;
    New_Context  : Naming.Context;
    Dir_Object   : Directory.Object;  
    Name_Status  : Naming.Name_Status;

begin  
    Naming.Resolve (Name       => View,
                    The_Object => Dir_Object,
                    Status     => Name_Status);

    if not Naming."=" (Name_Status, Naming.Successful) then
        Set_Status (Status  => Status,
                    Message => "Unable to resolve" & View &
                                  ".  " & "Name Status = " &
                                  Naming.Name_Status'Image (Name_Status));
        return;
    end if;


    -- Get the current naming context for Promote_Unit.
    Naming.Get_Context (The_Context => New_Context,
                        The_Unit    => Dir_Object,
                        Status      => Error_Status);

    if not Directory."=" (Error_Status, Directory.Successful) then
        Set_Status (Status  => Status,
                    Message => "Unable to get default context for " &
                                  View & ".  Error Status = " &
                                  Directory.Error_Status'Image (Error_Status));
        return;  
    end if;


    -- Get the job's default naming context.
    Old_Context := Naming.Default_Context;
    -- We must restore this context (after any errors) before we return.

    -- Change the job's default context to the unit's current context.
    Naming.Set_Default_Context (The_Context => New_Context,  
                                Status      => Error_Status);

    if not Directory."=" (Error_Status, Directory.Successful) then
        Set_Status (Status  => Status,
                    Message => "Unable to default context to " &
                                  View & ".  Error Status = " &
                                  Directory.Error_Status'Image (Error_Status));
        return;
    end if;

end Set_Context;

E3 Meta Data

    nblk1=4
    nid=0
    hdr6=8
        [0x00] rec0=1c rec1=00 rec2=01 rec3=01c
        [0x01] rec0=00 rec1=00 rec2=04 rec3=008
        [0x02] rec0=17 rec1=00 rec2=02 rec3=004
        [0x03] rec0=08 rec1=00 rec2=03 rec3=001
    tail 0x21739bcaa856574c6881f 0x42a00088462062803