1with TEXT_IO; 2package WORD_PARAMETERS is 3-- This package defines a number of parameters that areused in the program 4-- The default values are set in the body, so that they may be changed easily 5 6 CHANGE_PARAMETERS_CHARACTER : CHARACTER := '#'; 7 CHANGE_LANGUAGE_CHARACTER : CHARACTER := '~'; 8 HELP_CHARACTER : CHARACTER := '?'; 9 10 -- These files are used by the program if requested, but not necessary 11 -- They are all text files and human readable 12 13 -- MODE_FILE is used by the program to remember MODE values between runs 14 MODE_FILE : TEXT_IO.FILE_TYPE; 15 16 -- OUTPUT is used to write out and save the results of a run 17 OUTPUT : TEXT_IO.FILE_TYPE; 18 INPUT : TEXT_IO.FILE_TYPE; 19 -- UNKNOWNS is used to record the words that the program fails to find 20 UNKNOWNS : TEXT_IO.FILE_TYPE; 21 22 -- This is a flag to tell if there has been trimming for this word 23 TRIMMED : BOOLEAN := FALSE; 24 25 26 type MODE_TYPE is ( 27 TRIM_OUTPUT, 28 29 HAVE_OUTPUT_FILE, 30 WRITE_OUTPUT_TO_FILE, 31 32 DO_UNKNOWNS_ONLY, 33 WRITE_UNKNOWNS_TO_FILE, 34 35 IGNORE_UNKNOWN_NAMES, 36 IGNORE_UNKNOWN_CAPS, 37 DO_COMPOUNDS, 38 DO_FIXES, 39 DO_TRICKS, 40 41 DO_DICTIONARY_FORMS, 42 SHOW_AGE, 43 SHOW_FREQUENCY, 44 45 DO_EXAMPLES, 46 DO_ONLY_MEANINGS, 47 DO_STEMS_FOR_UNKNOWN ); 48 49 package MODE_TYPE_IO is new TEXT_IO.ENUMERATION_IO(MODE_TYPE); 50 51 type MODE_ARRAY is array (MODE_TYPE) of BOOLEAN; 52 53 54 WORDS_MODE : MODE_ARRAY; -- Initialized in body 55 56 57 58 procedure CHANGE_PARAMETERS; 59 60 61 procedure INITIALIZE_WORD_PARAMETERS; 62 63end WORD_PARAMETERS; 64