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