package generator_support is

 -- enumeration types needed by abstract_interface_generator, abstract_domain_generator, and
 -- user application
 type null_indicator is(null_and_not_null, contains_null, not_null);
 type sql_types is (char, int, smallint, double_precision, enumeration, real, decimal);
 type concrete_types is (char, smallint, int, real, double_precision);
 type sql_statement_types is (close, commit, delete_positioned, delete_searched, fetch, insert_values,
                              insert_subquery, open, rollback, selec, update_positioned, update_searched);
 
 -- integer constants used for constraint checking .. can be modified for another implementation
 max_enum_length : constant integer := 1000; -- says no enumeration values when converted to
                                             -- string will be longer that 1000 chars long
 max_num_domain_pkgs : constant integer := 20; -- maximum number of domain
                                               -- packages that can be withed
                                               -- by the abstract interface
 max_length_domain_pkg_name : constant integer := 30; -- Can be changed for user preference or machine dependence
 max_length_domain_type_name : constant integer := 40;-- Can be changed for user preference or machine dependence
 max_comp_name_length : constant integer := 40; -- -- Can be changed for user preference or machine dependence
 max_concrete_call_string : constant integer := 1000; -- The longest a string which represents the call to the
                                                     -- concrete interface can be.  Can be changed for user
                                                     -- preference or machine dependence.
 max_ops_string_length : constant integer := 300; -- The longest possible a string which represents the use
                                                  -- clause for ops packages in the abstract interface can be.
 max_num_of_indic_records : constant integer := 10;
 -- array types
 type num_errors is array (positive range <>) of integer;

 -- editting constants used in both abstract_domain_generator and abstract_interface_generator
 quotes : constant character := ascii.quotation;
 indent1 : constant string := " ";
 indent2 : constant string := "  ";
 indent3 : constant string := "   ";
 indent4 : constant string := "    ";
 indent5 : constant string := "     ";
 error : constant string := "ERROR..." & indent5;
 spec_extension : constant string := "_.ada";
 body_extension : constant string := ".ada";
 with_gen : constant string := "with generator_support;";
 use_gen : constant string := "use generator_support;";
 multiple_description : constant string := " has been defined more than once.";
 missing_description : constant string := " has been declared but never described.";
 unequal1 : constant string := "Number of expected SQL errors does not match corresponding sql_code values given.";

 -- boolean types
 is_enumeration : boolean := false;
end generator_support;