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: ┃ T V

⟦903af6148⟧ TextFile

    Length: 838 (0x346)
    Types: TextFile
    Names: »V«

Derivation

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

TextFile

with Directory;
with Profile;

package Rcf_Switch_Implementation is

    -- Functions that look up certain library switches in the RCI views.

    Host_Only_Switch : constant String := "Host_Only";

    Trace_Command_Output_Switch : constant String := "Trace_Command_Output";

    function Value (Name : String; Switch_File : Directory.Version)
                   return Boolean;

    function Is_Host_Only (For_View : Directory.Object) return Boolean;
    -- Returns True if the "Host_Only" switch is set to True for the given
    -- view.

    function Trace_On (For_View : Directory.Object) return Boolean;
    -- Returns True if the "Trace_Command_Output" switch is turned on for the
    -- given view.

    function Value
                (Name : String; Switch_File : Directory.Object) return String;


end Rcf_Switch_Implementation;