with  TEXT_IO;           use TEXT_IO;
with  UATL_DATA_TYPES;   use UATL_DATA_TYPES;

package  UATL_PROCEDURE_BUILDER_DATA  is

   BLANK_LINE           : STRING(1..80)  := (others => ' ');

   WITH_FILE            : FILE_TYPE;
   DECL_FILE            : FILE_TYPE;
   TEST_FILE            : FILE_TYPE;
   PROC_FILE            : FILE_TYPE;

   DURATION_TEXT  : STRING(1..10);

   INTERFACE_DEV  : INTERFACE_DEVICE;
   
   type  UATL_PACKS  is (FIC,
                         DIGITAL,
                         STIM_RESPONSE,
                         OPINT,
                         RECORDING,
                         I1553_INT,
                         I488_INT,
                         INT_INT,
                         SR_INTERNAL);
                         
   subtype  VAR_NAME_STRING  is  STRING(1..80);
   VAR_NAMES     : array (1..256)  of VAR_NAME_STRING;
   VAR_LENGTHS   : array (1..256)  of NATURAL;
   VAR_NUMBER    : NATURAL;

   subtype  CNT_NAME_STRING  is  STRING(1..80);
   CNT_NAMES     : array (1..256)  of CNT_NAME_STRING;
   CNT_LENGTHS   : array (1..256)  of NATURAL;
   CNT_NUMBER    : NATURAL;

end  UATL_PROCEDURE_BUILDER_DATA;