21 lines
539 B
Ada
21 lines
539 B
Ada
package CONFIG is
|
|
|
|
OUTPUT_SCREEN_SIZE : INTEGER := 20;
|
|
|
|
type CONFIGURATION_TYPE is (DEVELOPER_VERSION, USER_VERSION, ONLY_MEANINGS);
|
|
|
|
CONFIGURATION : CONFIGURATION_TYPE := DEVELOPER_VERSION;
|
|
|
|
type METHOD_TYPE is (INTERACTIVE, COMMAND_LINE_INPUT, COMMAND_LINE_FILES);
|
|
|
|
METHOD : METHOD_TYPE := INTERACTIVE;
|
|
|
|
type LANGUAGE_TYPE is (LATIN_TO_ENGLISH, ENGLISH_TO_LATIN);
|
|
|
|
LANGUAGE : LANGUAGE_TYPE := LATIN_TO_ENGLISH;
|
|
|
|
SUPPRESS_PREFACE : BOOLEAN := FALSE;
|
|
|
|
|
|
end CONFIG;
|