⟦4b3b6acbd⟧

E3 Source Code



--
-- This package provides DTIA-based services to execute asaopen scripts
-- and analyze their output.
--
-- Given that it is not possible to pass parameters to asaopen when
-- executing a script, a macro-expansion process is needed to substitute
-- character strings in the asaopen scripts.
--
-- Text files residing on the R1000 are thus template files that must be
-- processed for symbol substitution before they can be sent to the
-- remote machine for execution with asaopen.  The type SYMBOL below
-- specifies the symbols that can appear in asaopen scripts.  To be
-- processed by the macro-expander, symbols must be delimited by
-- SEPARATOR, below.
--
-- The generic procedure EXECUTE must be instantiated with a
-- procedure PROCESS, called on each line of the result.  The
-- STATE_RECORD is used to propagate user-specific information.
--
-- To easily distinguish the junk output produced by the activation of
-- asaopen from the useful output of the script itself, it is expected
-- that the script will write its output on a file whose name must be
-- denoted by the symbol OUTPUT.  The output file will then be uploaded
-- for analysis on the R1000.
--
with Remote_Operations;
with Simple_Status;
package Asaopen is

    generic  
        type State_Record is private;
        with procedure Process (State : in out State_Record;  
                                Line : in String);
    procedure Execute (In_Context : in Remote_Operations.Context;
                       Model : in String;  
                       Template_Name : in String;
                       State : in out State_Record;
                       Status : out Simple_Status.Condition);

private
    type Symbol is (Annotations, Annotation_Types, Model, Output);
    Separator : constant String := "**";
end Asaopen;
DataMuseum.dk

Rational R1000/400

⟦4b3b6acbd⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
