DataMuseum.dk

top - download

    Length: 1803 (0x70b)
    Types: TextFile
    Names: »V«

└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
    └─ ⟦124ff5788⟧ »DATA« 
        └─⟦this⟧ 
└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

--
-- 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;