DataMuseum.dk

top - download

    Length: 1789 (0x6fd)
    Types: TextFile
    Names: »V«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦bb25a46d4⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦bb25a46d4⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦bb25a46d4⟧ 
            └─⟦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;