DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ B T ┃

⟦dca43ef99⟧ TextFile

    Length: 2126 (0x84e)
    Types: TextFile
    Names: »B«

Derivation

└─⟦516dceb10⟧ Bits:30000751 8mm tape, Rational 1000, RCI_VADS
    └─ ⟦9a14c9417⟧ »DATA« 
        └─⟦this⟧

TextFile

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;