⟦18ceee19b⟧

E3 Source Code



procedure Do_Step (Step      : String := "";
                   Step_File : String := "Command_Data.Steps");
pragma Loaded_Main;
--
-- This procedure is used by Rational in performing installation
-- of Rational products.
--
-- A file contains a list of valid step names and values.  See package
-- Parameter_Parser for legal format of the form
--         <STEP NAME> => <COMMANDS>
-- The Step parameter lists a set of Steps to be executed.  For example,
-- if the following steps are defined in the step file:
--     HELLO => ( Io.Put_Line ("Hello"); )
--     FACTORIAL => (
--         declare
--             N : Natural := 1;
--         begin
--             for I in 1 .. 4 loop
--                 N := N * I;
--             end loop;
--             Io.Echo (N);
--         end;
--     )
--     GOODBY => ( Io.Put_Line ("Goodby");  )
-- you execute Do_Install (Step => "Hello"), the string "Hello" would
-- be output to your I/O window.
--
-- To execute this procedure, the user must be a member of group privileged.
-- During execution of steps, privileged mode is enabled.
--
-- Errors (***, ++*, %%%) signify problems with a step which must be
-- resolved before continuing on to the next step.  Warnings (!!!)
-- should be resolved, yet it is permissible to continue on to the
-- next step at your own risk.
--
-- Predefined "steps"
--      LOAD_TAPE
--              Performs an Archive.Restore for a tape mounted on the
--              system tape drive.  Options to Archive are "REPLACE, PROMOTE"
--      TRACE   (boolean value) can be used to display the step
--              which is executed.  Default = FALSE.
--      EXECUTE (Boolean value) can be used to enable/disable execution.
--              Typically used in conjunction with TRACE to only display
--              the command that will be executed without actually executing.
--      PROMPT  Formats a step in a command window for manual execution.
--              Of the form PROMPT => <Step Name>.  Any steps after this one
--              will not be executed, and the procedure terminates at this point
--              allowing the user to make modifications to the command window
--              and then execute it.  For example:
--                  Do_Install ("PROMPT => Hello");
--              would result in a command window being created and the
--              contents, ready for execution, looking something like:
--
--              declare
--              begin
--                  Operator.Enable_Privileges;
--                  Io.Put_Line ("Hello");
--              end;
--
--      SEMANTICIZE (boolean value)
--              Does a semantic check on the step, reporting the results in
--              the log output.  Used for verifying master step file.
--              Default = FALSE.  For example, "Semanticize Hello".
--
--      PAUSE (boolean value)
--              When executing multiple steps, will pause after execution
--              of each step and prompt the user for continuation.  If
--              anything other than 'Y' or 'y' (or "" string indicating the
--              default) is entered, then no more steps are executed and
--              Do_Step halts at that point.  The default for PAUSE is
--              TRUE; to always pause between steps and ask for
--              confirmation to continue with the next step.
--
-- Step execution is done by calling Program.Run on the image of the step.
--
--
DataMuseum.dk

Rational R1000/400

⟦18ceee19b⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
