package UATL_BUILDER_DATA is NEST : NATURAL := 0; type STR_ACC is access STRING; type NESTING_ARRAY is array (NATURAL range <>) of STR_ACC; NESTING : NESTING_ARRAY (0..10) := (new STRING'(""), new STRING'(" "), new STRING'(" "), new STRING'(" "), new STRING'(" "), new STRING'(" "), new STRING'(" "), new STRING'(" "), new STRING'(" "), new STRING'(" "), new STRING'(" ")); ----- Withing and using clauses ------------------------------------------------ WITH_SYS : constant STRING := "with SYSTEM; use SYSTEM;"; WITH_CON : constant STRING := "with CONVERSIONS; use CONVERSIONS;"; WITH_UNCH : constant STRING := "with UNCHECKED_CONVERSION;"; WITH_U_TYPE : constant STRING := "with UATL_DATA_TYPES; use UATL_DATA_TYPES; "; WITH_SR_TYPE : constant STRING := "with UATL_STIM_RESPONSE_TYPES; use UATL_STIM_RESPONSE_TYPES;"; WITH_SR_PROCS : constant STRING := "with UATL_FUNCTION_PROCEDURES; use UATL_FUNCTION_PROCEDURES;"; WITH_1553_TYPE : constant STRING := "with INTERFACE_DATA_TYPES_1553; use INTERFACE_DATA_TYPES_1553;"; WITH_1553_INT : constant STRING := "with INTERFACE_1553; use INTERFACE_1553;"; WITH_488_TYPE : constant STRING := "with INTERFACE_DATA_TYPES_488; use INTERFACE_DATA_TYPES_488;"; WITH_488_INT : constant STRING := "with INTERFACE_488; use INTERFACE_488;"; WITH_INT_INT : constant STRING := "with UATL_INTERNAL_INTERFACE; use UATL_INTERNAL_INTERFACE;"; WITH_CON_488 : constant STRING := "with CONTROLLER_488; use CONTROLLER_488;"; WITH_SR_INTERNAL : constant STRING := "with UATL_STIM_RESPONSE_INTERNAL; use UATL_STIM_RESPONSE_INTERNAL;"; WITH_RECORDING : constant STRING := "with DATA_RECORDING; use DATA_RECORDING;"; WITH_OP_INT : constant STRING := "with UATL_CONTROL; use UATL_CONTROL;"; WITH_OP_COM : constant STRING := "with UATL_OPCOM; use UATL_OPCOM;"; WITH_DRIVE : constant STRING := "with INTERFACE_DATA_TYPES_DRIVERS; use INTERFACE_DATA_TYPES_DRIVERS;"; WITH_FIC : constant STRING := "with FUNCTIONAL_INSTRUMENT_CONTROL; use FUNCTIONAL_INSTRUMENT_CONTROL;"; WITH_FIC_TYPES : constant STRING := "with FUNCTIONAL_INSTRUMENT_CONTROL_TYPES; "; USE_FIC_TYPES : constant STRING := " use FUNCTIONAL_INSTRUMENT_CONTROL_TYPES;"; WITH_CLAUSE : constant STRING := " with "; USE_CLAUSE : constant STRING := " use "; -------------------------------------------------------------------------------- ----- Ada Constructs ----------------------------------------------------------- START_IF : constant STRING := " if "; IF_THEN : constant STRING := " then "; ELSE_PART : constant STRING := " else "; END_IF : constant STRING := " end if; "; START_CASE : constant STRING := " case "; WHEN_LEGS : constant STRING := " when "; WHEN_OTHERS : constant STRING := " when others => "; CASE_NULL : constant STRING := " null;"; END_CASE : constant STRING := " end case; "; PLAIN_LOOP : constant STRING := " loop"; WHILE_LOOP : constant STRING := " while"; FOR_LOOP : constant STRING := " for"; LEAVE_LOOP : constant STRING := " exit"; LOOP_ITSELF : constant STRING := "loop"; WHEN_WORD : constant STRING := "when"; IN_WORD : constant STRING := "in"; DOT_DOT : constant STRING := ".."; FINI_LOOP : constant STRING := " end loop;"; NULL_LINE : constant STRING := " null;"; COMMENT_LINE : constant STRING := " -- "; TRUE_WORD : constant STRING := "TRUE "; FALSE_WORD : constant STRING := "FALSE"; -------------------------------------------------------------------------------- ----- Package definition ------------------------------------------------------- PACKAGE_WORD : constant STRING := "package "; END_PACKAGE : constant STRING := "end "; IS_WORD : constant STRING := " is "; PACKAGE_BODY : constant STRING := "package body "; -------------------------------------------------------------------------------- ----- Spacing ------------------------------------------------------------------ ONE_SPACE : constant STRING := " "; FIRST_INDENT : constant STRING := " "; SECOND_INDENT : constant STRING := " "; THIRD_INDENT : constant STRING := " "; FOURTH_INDENT : constant STRING := " "; FIFTH_INDENT : constant STRING := " "; NULL_MOD_IND : constant STRING := " "; -------------------------------------------------------------------------------- ----- Punctuation -------------------------------------------------------------- COLON : constant STRING := " : "; PAREN_SEMI : constant STRING := " ); "; LEFT_PAREN : constant STRING := "( "; RIGHT_PAREN : constant STRING := " )"; SEMICOLON : constant STRING := "; "; COMMA : constant STRING := ", "; DOUBLE_Q : constant STRING(1..1) := (others => '"'); ASSIGNMENT : constant STRING := " := "; EQUAL_ARROW : constant STRING := "=> "; -------------------------------------------------------------------------------- ----- Modifiers/Comparators ---------------------------------------------------- TASK_TYPE : constant STRING := " task type "; USCORE_TYPE : constant STRING := "_TYPE"; PRIORITY_LINE : constant STRING := " pragma PRIORITY(PRIORITY'last); "; COMP_ENTRY_1 : constant STRING := " entry COMPARE (GUM : in BYTE_ARRAY_PTR; "; COMP_ENTRY_2 : constant STRING := " MATCH_STAT : out UATL_MATCH_STATUS);"; MOD_ENTRY_1 : constant STRING := " entry MODIFY (GUM : in out BYTE_ARRAY_PTR); "; TASK_COMP_ENT : constant STRING := " entry TASK_COMPLETION; "; END_TASK : constant STRING := " end "; TYPE_WORD : constant STRING := " type "; IS_ACCESS : constant STRING := " is access "; ASSIGN_NEW : constant STRING := " := new "; U_TYPE_ACCESS : constant STRING := "_TYPE_ACCESS"; MOD_MSG : constant STRING := " MESSAGE : "; ASS_MOD_MSG : constant STRING := " MESSAGE := CONVERT( GUM.all "; ASS_GUM_MSG : constant STRING := " GUM.all := CONVERT( MESSAGE ); "; -------------------------------------------------------------------------------- ----- Conversions -------------------------------------------------------------- CONVERT_1 : constant STRING := " function CONVERT "; CONVERT_IS_NEW : constant STRING := " function CONVERT is new "; CONVERT_TO_BA : constant STRING := " function CONVERT is new CONVERT_TO_BYTE_ARRAY "; CONVERT_FROM_BA : constant STRING := " function CONVERT is new CONVERT_FROM_BYTE_ARRAY "; CONVERT_DISC_1 : constant STRING := " function CONVERT is new CONVERT_DISCRIMINATED_1 "; CONVERT_DISC_2 : constant STRING := " function CONVERT is new CONVERT_DISCRIMINATED_2 "; CONVERT_DISC_3 : constant STRING := " function CONVERT is new CONVERT_DISCRIMINATED_3 "; CON_TASK : constant STRING := "CONVERT( "; IS_NEW_UNCH : constant STRING := " is new UNCHECKED_CONVERSION("; COMP_ACCESS : constant STRING := " UATL_COMPARATOR_TASK_ACCESS);"; MOD_ACCESS : constant STRING := " UATL_MODIFIER_TASK_ACCESS);"; -------------------------------------------------------------------------------- ----- Tasks -------------------------------------------------------------------- TASK_BODY : constant STRING := " task body "; BEGIN_WORD : constant STRING := " begin "; SELECT_WORD : constant STRING := " select "; OR_WORD : constant STRING := " or "; END_SELECT : constant STRING := " end select; "; TASK_COMP_ACC : constant STRING := " accept TASK_COMPLETION; "; EXIT_LOOP : constant STRING := " exit; "; COMP_ACCEPT_1 : constant STRING := " accept COMPARE (GUM : in BYTE_ARRAY_PTR;"; COMP_ACCEPT_2 : constant STRING := " MATCH_STAT : out UATL_MATCH_STATUS) do"; MOD_ACCEPT_1 : constant STRING := " accept MODIFY (GUM : in out BYTE_ARRAY_PTR) do"; PROCEDURE_WORD : constant STRING := " procedure "; COMPARE_INPUT : constant STRING := " (CONVERT( GUM.all "; MATCH_INPUT : constant STRING := " MATCH_STAT);"; MODIFY_INPUT : constant STRING := " (MESSAGE);"; END_COMPARE : constant STRING := " end COMPARE;"; END_MODIFY : constant STRING := " end MODIFY;"; LOOP_WORD : constant STRING := " loop "; END_LOOP : constant STRING := " end loop; "; -------------------------------------------------------------------------------- ----- Test Procedure ----------------------------------------------------------- TEST_PROC : constant STRING := "procedure "; TEST_BEGIN : constant STRING := "begin "; END_TEST_PROC : constant STRING := "end "; -------------------------------------------------------------------------------- ----- Declare ------------------------------------------------------------------ DECLARE_BLOCK : constant STRING := " declare"; DECLARE_BEGIN : constant STRING := " begin"; DECLARE_END : constant STRING := " end;"; -------------------------------------------------------------------------------- ----- UATL Function Procedure Calls -------------------------------------------- STIMULUS_CALL : constant STRING := " STIMULUS ("; RESPONSE_CALL : constant STRING := " RESPONSE ("; TRIGGER_CALL : constant STRING := " TRIGGER ("; ACTIVATE_CALL : constant STRING := " ACTIVATE ("; DEACTIVATE_CALL : constant STRING := " DEACTIVATE ("; BLOCK_WAIT_CALL : constant STRING := " BLOCK_WAIT ("; BEGIN_EVENT_CALL : constant STRING := " BEGIN_EVENT_EXECUTION ("; END_TEST_CALL : constant STRING := " END_TEST;"; -------------------------------------------------------------------------------- ----- UATL Function Procedure Parameters --------------------------------------- BLOCK_PARM : constant STRING := " BLOCK => "; EVENT_PARM : constant STRING := " EVENT => "; INTF_PARM : constant STRING := " INTF => "; STIM_LIST_PARM : constant STRING := " STIM_LIST => "; CIRCULATE_PARM : constant STRING := " CIRCULATE => "; MSG_RATE_PARM : constant STRING := " MSG_RATE => "; TIME_TO_GO_PARM : constant STRING := " TIME_TO_GO => "; MODIFIER_PARM : constant STRING := " MODIFIER => "; CYCLE_PARM : constant STRING := " CYCLE => "; TRIG_MODE_PARM : constant STRING := " TRIG_MODE => "; RESP_LIST_PARM : constant STRING := " RESP_LIST => "; ERR_LIST_PARM : constant STRING := " ERR_LIST => "; ERR_COUNT_PARM : constant STRING := " ERR_COUNT => "; RESP_RATE_PARM : constant STRING := " RESP_RATE => "; MAX_TIME_PARM : constant STRING := " MAX_TIME => "; RESP_DELAY_PARM : constant STRING := " RESP_DELAY => "; RESP_READ_PARM : constant STRING := " RESP_READ => "; COMPARATOR_PARM : constant STRING := " COMPARATOR => "; EVENT_LIST_PARM : constant STRING := " EVENT_LIST => "; EVENT_NAME_PARM : constant STRING := " EVENT_NAME => "; EVENT_TYPE_PARM : constant STRING := " EVENT_TYPE => "; ON_OFF_PARM : constant STRING := " ON_OFF => "; ACT_LIST_PARM : constant STRING := " ACT_LIST => "; DEACT_LIST_PARM : constant STRING := " DEACT_LIST => "; WAIT_TYPE_PARM : constant STRING := " WAIT_TYPE => "; -------------------------------------------------------------------------------- ----- Macro Data Structure Names ----------------------------------------------- USER_STIMS : constant STRING := "USER_STIMULUS_MESSAGES"; USER_RESPS : constant STRING := "USER_RESPONSE_BUFFERS"; USER_READS : constant STRING := "USER_RESPONSE_READS"; USER_ERRS : constant STRING := "USER_ERROR_BUFFERS"; USER_MODS : constant STRING := "USER_MODIFIERS"; USER_COMPS : constant STRING := "USER_COMPARATORS"; USER_TRIGS : constant STRING := "USER_TRIGGERS"; USER_ACTS : constant STRING := "USER_ACTIVATIONS"; USER_DEACTS : constant STRING := "USER_DEACTIVATIONS"; -------------------------------------------------------------------------------- ----- UATL Data Structures ----------------------------------------------------- ONE_ARROW : constant STRING := "1 =>"; BA_LIST_PTR : constant STRING := " : BYTE_ARRAY_LIST_PTR "; BA_PTR_BUF : constant STRING := " : BYTE_ARRAY_PTR "; NEW_BA_BUF : constant STRING := " := new BYTE_ARRAY(1.."; INDEX_PTR_BUF : constant STRING := " : ERROR_INDEX_ACCESS := new ERROR_INDEX'(0);"; COUNT_PTR_BUF : constant STRING := " : ERROR_COUNT_ACCESS := new UATL_MESSAGE_ERROR_COUNT'(0);"; NEW_BA_LIST : constant STRING := " := new BYTE_ARRAY_LIST'("; NEW_BA : constant STRING := " new BYTE_ARRAY'( "; NEW_BA_CON : constant STRING := " new BYTE_ARRAY'( CONVERT( "; ERR_LIST_ACC : constant STRING := " : ERROR_INDEX_LIST_ACCESS "; NEW_ERR_LIST : constant STRING := " := new ERROR_INDEX_LIST'( "; MOD_LIST_PTR : constant STRING := " : UATL_MODIFIER_TASK_LIST_ACCESS "; NEW_MOD_LIST : constant STRING := " := new UATL_MODIFIER_TASK_LIST'( "; NEW_MOD : constant STRING := " CONVERT( "; NULL_MOD : constant STRING := " null "; COMP_LIST_PTR : constant STRING := " : UATL_COMPARATOR_TASK_LIST_ACCESS "; NEW_COMP_LIST : constant STRING := " := new UATL_COMPARATOR_TASK_LIST'( "; NEW_COMP : constant STRING := " CONVERT( "; TRIG_LISTS_ACC : constant STRING := " : UATL_TRIGGER_EVENT_LISTS_ACCESS "; NEW_TRIG_LISTS : constant STRING := " := new UATL_TRIGGER_EVENT_LISTS'( "; NEW_TRIG_LIST : constant STRING := " (new UATL_TRIGGER_EVENT_LIST'( "; NEW_ENAME : constant STRING := " (EVENT_NAME => "; NEW_ETYPE : constant STRING := " EVENT_TYPE => "; NEW_ONOFF : constant STRING := " ON_OFF => "; NULL_COMP : constant STRING := " null "; ACT_LIST_ACC : constant STRING := " : UATL_ACTIVATE_EVENT_LIST_ACCESS "; NEW_ACT_LIST : constant STRING := " := new UATL_ACTIVATE_EVENT_LIST'( "; DEACT_LIST_ACC : constant STRING := " : UATL_DEACTIVATE_EVENT_LIST_ACCESS "; NEW_DEACT_LIST : constant STRING := " := new UATL_DEACTIVATE_EVENT_LIST'( "; NEW_AD_ENAME : constant STRING := " (EVENT_NAME => "; NEW_AD_ETYPE : constant STRING := " EVENT_TYPE => "; CALL_EVENT : constant STRING := "GET_EVENT( "; -------------------------------------------------------------------------------- ----- Macro Keywords ----------------------------------------------------------- AT_STIM_LIST : constant STRING := " @STIM_LIST => "; AT_MODIFIER : constant STRING := " @MODIFIER => "; AT_COMPARATOR : constant STRING := " @COMPARATOR => "; AT_RESP_LIST : constant STRING := " @RESP_LIST => "; AT_RESP_READ : constant STRING := " @RESP_READ => "; AT_ERR_LIST : constant STRING := " @ERR_LIST => "; AT_EVENT_LIST : constant STRING := " @EVENT_LIST => "; AT_ACT_LIST : constant STRING := " @ACT_LIST => "; AT_DEACT_LIST : constant STRING := " @DEACT_LIST => "; AT_MOD_NAME : constant STRING := " @MODIFIER_NAME => "; AT_COMP_NAME : constant STRING := " @COMPARATOR_NAME => "; AT_PROCEDURE : constant STRING := " @CALL_PROCEDURE => "; AT_MESSAGE : constant STRING := " @PASS_MESSAGE_TYPE => "; AT_DISCRIMINANT : constant STRING := " @DISCRIMINANT_TYPE => "; -------------------------------------------------------------------------------- ----- Macro Textual Niceties --------------------------------------------------- TRIG_SEP : constant STRING := " --------------"; STIM_INTRO : constant STRING := " --- Stimulus List --------------------------------------"; TRIG_INTRO : constant STRING := " --- Trigger List ---------------------------------------"; MOD_INTRO : constant STRING := " --- Modifier List --------------------------------------"; MOD_TASK_INTRO : constant STRING := " --- Modifier Task --------------------------------------------"; COMP_TASK_INTRO : constant STRING := " --- Comparator Task ------------------------------------------"; LONG_SEPARATOR : constant STRING := " --------------------------------------------------------------"; COMP_INTRO : constant STRING := " --- Comparator List ------------------------------------"; RESP_INTRO : constant STRING := " --- Response List --------------------------------------"; ERR_INTRO : constant STRING := " --- Error List -----------------------------------------"; READ_INTRO : constant STRING := " --- Response Read List ---------------------------------"; ACT_INTRO : constant STRING := " --- Activate List --------------------------------------"; DEACT_INTRO : constant STRING := " --- Deactivate List ------------------------------------"; SEPARATOR : constant STRING := " --------------------------------------------------------"; MAC_COMMENT : constant STRING := " -- "; -------------------------------------------------------------------------------- ----- Internal Interface Calls ------------------------------------------------- INIT_INTERFACE : constant STRING := " INITIALIZE_INTERNAL_INTERFACE( "; INT_REC_ON : constant STRING := " INTERNAL_RECEIVER_ON( RCVR => "; INT_REC_OFF : constant STRING := " INTERNAL_RECEIVER_OFF( RCVR => "; -------------------------------------------------------------------------------- ----- Data Recording Calls ----------------------------------------------------- START_RECORD : constant STRING := " START_RECORDING( "; CONTROL_PARM : constant STRING := " CONTROL_MESSAGE => "; TEST_LAB_PARM : constant STRING := " TEST_LABEL => "; RUN_LAB_PARM : constant STRING := " RUN_LABEL => "; DEVICE_PARM : constant STRING := " DEVICE_NAME => "; RECORD_MSG_1 : constant STRING := " RECORD_MESSAGE( MSG => "; RECORD_MSG_2 : constant STRING := " INTERFACE_ID => "; RECORD_MSG_3 : constant STRING := " BATCH_ID => "; RECORD_MSG_4 : constant STRING := " OVERRIDE => "; STOP_RECORD : constant STRING := " STOP_RECORDING; "; ACT_WORD : constant STRING := "ACTIVATE"; DEACT_WORD : constant STRING := "DEACTIVATE"; USER_REC_CON : constant STRING := "TEST_RECORD_CONTROL"; REC_CONTROL : constant STRING := " TEST_RECORD_CONTROL : BATCH_CONTROL := "; INT_CONTROL : constant STRING := " (INTERFACE_ID_CONTROL => ( "; I488_CONTROL : constant STRING := " IEEE488 => "; I1553_CONTROL : constant STRING := " I1553B => "; INTRNL_CONTROL : constant STRING := " INTERNAL => "; LOCAL_CONTROL : constant STRING := " LOCAL => "; BAT_CONTROL : constant STRING := " BATCH_ID_CONTROL => ( "; OTHER_CNTRLS : constant STRING := "others => DEACTIVATE "; -------------------------------------------------------------------------------- ----- Operator Interface Calls ------------------------------------------------- OP_INT : constant STRING := " UATL_OPERATOR_INTERFACE; "; OP_ALERT : constant STRING := " UATL_OPERATOR_ALERT( ALERT => "; OP_MESS : constant STRING := " UATL_OPERATOR_MESSAGE( MESSAGE => "; OP_DIS : constant STRING := " UATL_DISPLAY_CONTROL( NEW_CONTROL => TEST_DISPLAY_CONTROL );"; -- type operator_action is (quit, retry, ignore); -- function UATL_operator_prompt (prompt : in operator_message ) -- return operator_action; DIS_CONTROL : constant STRING := " TEST_DISPLAY_CONTROL : BATCH_CONTROL := "; -------------------------------------------------------------------------------- ----- 1553B Interface Calls ---------------------------------------------------- CALL_POLL_LIST_1 : constant STRING := " SET_1553_POLLING_LIST (POLL_LIST => I1553B_POLLING_LIST, "; CALL_POLL_LIST_2 : constant STRING := " POLL_TIME => "; POLL_LIST_DEC : constant STRING := " I1553B_POLLING_LIST : MESSAGE_POLLING_LIST_ACCESS "; NEW_POLL_LIST : constant STRING := " := new MESSAGE_POLLING_LIST'("; RT_ADD : constant STRING := " (RT_ADDRESS => "; TX_CMD : constant STRING := " COMMAND => TRANSMIT ,"; SUB_ADD : constant STRING := " SUBADDRESS => "; WD_CNT : constant STRING := " WORD_COUNT => "; -------------------------------------------------------------------------------- ----- IEEE488 Interface Calls -------------------------------------------------- CALL_SET_DEV : constant STRING := " SETUP_IEEE488_DEVICES (I488_DEVICES => "; CALL_TERM_POLL : constant STRING := " TERMINAL_POLLING_RATE (POLL_TIME => "; OTHER_USERS : constant STRING := "others => FALSE"; -------------------------------------------------------------------------------- ----- Functional Instrument Control Calls -------------------------------------- -- SYSTEM_STATUS : DRIVER_STATUS := SUCCEEDED; -- function LOGICAL_TRANSLATION (USING : LOGICAL_DEVICE) return ID_TYPE; -- function DEVICE_TRANSLATION (INSTRUMENT : PHYSICAL_DEVICE) return ID_TYPE; USING_PARM : constant STRING := " USING => "; FREQ_PARM : constant STRING := " FREQUENCY => "; POWER_PARM : constant STRING := " POWER => "; START_FREQ_PARM : constant STRING := " START_FREQUENCY => "; STOP_FREQ_PARM : constant STRING := " STOP_FREQUENCY => "; FREQ_STEP_PARM : constant STRING := " FREQUENCY_STEP => "; STEP_DUR_PARM : constant STRING := " STEP_DURATION => "; MEAS_FREQ_PARM : constant STRING := " MEASURED_FREQUENCY => "; VOLT_PARM : constant STRING := " VOLTAGE => "; CURRENT_PARM : constant STRING := " CURRENT => "; MAX_CURRENT_PARM : constant STRING := " MAXIMUM_CURRENT => "; START_VOLT_PARM : constant STRING := " START_VOLTAGE => "; STOP_VOLT_PARM : constant STRING := " STOP_VOLTAGE => "; VOLT_STEP_PARM : constant STRING := " VOLTAGE_STEP => "; STATUS_PARM : constant STRING := " STATUS => "; CALL_APPLY_AC_FREQUENCY : constant STRING := " APPLY_AC_FREQUENCY ( "; CALL_APPLY_SWEPT_AC_FREQUENCY : constant STRING := " APPLY_SWEPT_AC_FREQUENCY ( "; CALL_MEASURE_AC_FREQUENCY : constant STRING := " MEASURE_AC_FREQUENCY ( "; CALL_MEASURE_AC_POWER : constant STRING := " MEASURE_AC_POWER ( "; CALL_MEASURE_AC_VOLTAGE : constant STRING := " MEASURE_AC_VOLTAGE ( "; CALL_MEASURE_AC_CURRENT : constant STRING := " MEASURE_AC_CURRENT ( "; CALL_APPLY_DC_VOLTAGE : constant STRING := " APPLY_DC_VOLTAGE ( "; CALL_APPLY_SWEPT_DC_VOLTAGE : constant STRING := " APPLY_SWEPT_DC_VOLTAGE ( "; CALL_MEASURE_DC_VOLTAGE : constant STRING := " MEASURE_DC_VOLTAGE ( "; CALL_MEASURE_DC_CURRENT : constant STRING := " MEASURE_DC_CURRENT ( "; CALL_REMOVE : constant STRING := " REMOVE ( "; CALL_BEGIN_TEST_BLOCK : constant STRING := " BEGIN_TEST_BLOCK (RESOURCES => "; CALL_END_TEST_BLOCK : constant STRING := " END_TEST_BLOCK (RESOURCES => "; -------------------------------------------------------------------------------- end UATL_BUILDER_DATA;