⟦e8e6a391e⟧

E3 Source Code



package Switches is

    -- This is the command-level interface to the Switch file facility

    subtype File_Name is String;

    -- An unambiguous Directory string name for a switch file or a
    -- Directory or World. In the latter case, the file asscoiated with
    -- that Directory or World is implied.

    Default_File : constant File_Name := "";

    -- The default file is the selected object if it is a switch file,
    -- otherwise it is the switch file associated with the current
    -- enclosing library.

    subtype Composite_Name is String;

    -- an expanded Ada name whose prefix is a processor and whose simple
    -- name is a switch of that processor. (If the switch name is unique,
    -- the processor name can be omitted.)

    -- "Semantics.Ignore_Minor_Errors", "Cg.Enable_Environment_Debugger"

    subtype Value_Image is String;

    -- Processor/Switch dependent. Will follow Ada conventions where
    -- possible. E.g. the value images of Boolean valued switches are "true"
    -- and "False"

    subtype Specification is String;

    -- A specification of the settings for selected switches in the form of
    -- a sequence of Ada assignment statements.  The lefthand side of the
    -- assignment is the name of the switch and the righthand side is the
    -- image of the value to be assigned to that switch.

    -- e.g.,
    -- "Ignore_Minor_Errors := true; Cg.Enable_Environment_debugger := false;"

    procedure Define (File : File_Name := ">>SWITCH FILE<<";
                      Response : String := "<PROFILE>");

    -- Creates an empty switch file with the given name. (File must not
    -- denote an existing object.)

    procedure Associate (File : File_Name := "<SELECTION>";
                         Library : String := "<IMAGE>";
                         Response : String := "<PROFILE>");

    -- The specified File is associated with the given Library.
    -- Association is by-reference. Any subsequent changes to the specified
    -- File will be reflected immediately in the associated library.

    function Associated (Library : String := "<IMAGE>") return File_Name;

    -- Returns the name of the switch file associated with the given Library.
    -- Returns the null string if no switch file has been asociated.

    procedure Set (Spec : Specification := ">>SWITCHES<<";
                   File : File_Name := "<SWITCH>";
                   Response : String := "<PROFILE>");

    -- In the given switch file, the values of the switches named in the
    -- specification are updated to the values in that spec.

    procedure Display (Names : Composite_Name := "@.@";
                       File : File_Name := "<SWITCH>";
                       Response : String := "<PROFILE>");

    -- The switches in the given file whose names match the wildcard Names
    -- specification are listed to the current output file.

    procedure Edit (File : File_Name := "<SWITCH>");

    -- Brings up a new Switch Display Window containing the contents of the
    -- specified file. This window becomes the current Switch Display Window

    procedure Visit (File : File_Name := "<SWITCH>");

    -- Changes the current Switch Display Window to display the contents of
    -- the specified switch File.  The existing contents are committed
    -- before the new file is displayed. A new Switch Display Window is
    -- created if none have yet been created by the user.

    procedure Insert (Spec : Specification := ">>SWITCHES<<");

    -- The switch values displayed in the current Switch Display Window are
    -- changed as indicated. (Generated in response to Object."I" on a
    -- Switch Display Window)

    procedure Change (Image : Value_Image := ">>SWITCH VALUE<<");

    -- The highlighted switch in the current Switch Display Window is
    -- changed to the value of the given image. (Generated in response to
    -- Object."Z" on a Switch Display Window.)

    procedure Write (File : File_Name := ">>SWITCH FILE<<");

    -- The contents of the Current Switch Display Window are copied to the
    -- specified switch file.

    procedure Create (File : File_Name := ">>SWITCH FILE<<";
                      Category : Character := 'L';
                      Response : String := "<PROFILE>");

    -- Creates an empty switch file of the specified Category with the
    -- given name. File should not exist. If it exists and is a File
    -- object, a new, empty version will be created of the indicated
    -- category.

    Of_Session : constant File_Name := "<SESSION>";

    -- Switch File_Name used to denote the switches asociated with the
    -- current session.

    Of_Library : constant File_Name := "<SWITCH>";

    -- Switch File_Name used to denote the switches asscoiated with the
    -- enclosing library.

    procedure Edit_Session_Attributes;

    -- Equivalent to Edit (Switches.Of_Session);

    procedure Dissociate (Library : String := "<IMAGE>";
                          Response : String := "<PROFILE>");

    -- Sever the association between the specified library and any switch
    -- file.

    pragma Subsystem (Commands);
    pragma Module_Name (4, 3934);
end Switches;
DataMuseum.dk

Rational R1000/400

⟦e8e6a391e⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
