92 lines
3.0 KiB
Ada
92 lines
3.0 KiB
Ada
with TEXT_IO;
|
|
package DEVELOPER_PARAMETERS is
|
|
|
|
-- These are a few strange declarations to be used in diagnostics;
|
|
SRA_MAX, SRAA_MAX, DMA_MAX : INTEGER := 0;
|
|
PA_LAST_MAX, FINAL_PA_LAST_MAX : INTEGER := 0;
|
|
|
|
-- This package defines a number of parameters that areused in the program
|
|
-- The default values are set in the body, so that they may be changed easily
|
|
|
|
-- These files are used by the program if requested, but not necessary
|
|
-- They are all text files and human readable
|
|
|
|
-- DEVELOPER MODE_FILE is used by the program to remember values
|
|
MDEV_FILE : TEXT_IO.FILE_TYPE;
|
|
MDEV_FULL_NAME : constant STRING := "WORD.MDV";
|
|
|
|
-- Debug not currently in use
|
|
-- -- DBG collects debug output for one entry at a time
|
|
-- DBG : TEXT_IO.FILE_TYPE;
|
|
-- DEBUG_FULL_NAME : constant STRING := "WORD.DBG";
|
|
|
|
-- STATS collects statistics on the program, stems used, inflections, etc.
|
|
STATS : TEXT_IO.FILE_TYPE;
|
|
STATS_FULL_NAME : constant STRING := "WORD.STA";
|
|
|
|
type MDEV_TYPE is (
|
|
-- HAVE_DEBUG_FILE, -- No longer in use
|
|
-- WRITE_DEBUG_FILE,
|
|
|
|
HAVE_STATISTICS_FILE,
|
|
WRITE_STATISTICS_FILE,
|
|
|
|
SHOW_DICTIONARY,
|
|
SHOW_DICTIONARY_LINE,
|
|
SHOW_DICTIONARY_CODES,
|
|
DO_PEARSE_CODES,
|
|
|
|
DO_ONLY_INITIAL_WORD,
|
|
FOR_WORD_LIST_CHECK,
|
|
|
|
DO_ONLY_FIXES,
|
|
DO_FIXES_ANYWAY,
|
|
USE_PREFIXES,
|
|
USE_SUFFIXES,
|
|
USE_TACKONS,
|
|
|
|
DO_MEDIEVAL_TRICKS,
|
|
|
|
DO_SYNCOPE,
|
|
DO_TWO_WORDS,
|
|
INCLUDE_UNKNOWN_CONTEXT,
|
|
NO_MEANINGS,
|
|
|
|
|
|
OMIT_ARCHAIC,
|
|
OMIT_MEDIEVAL,
|
|
OMIT_UNCOMMON,
|
|
|
|
DO_I_FOR_J,
|
|
DO_U_FOR_V,
|
|
|
|
PAUSE_IN_SCREEN_OUTPUT,
|
|
NO_SCREEN_ACTIVITY,
|
|
|
|
UPDATE_LOCAL_DICTIONARY,
|
|
UPDATE_MEANINGS,
|
|
|
|
MINIMIZE_OUTPUT );
|
|
|
|
package MDEV_TYPE_IO is new TEXT_IO.ENUMERATION_IO(MDEV_TYPE);
|
|
|
|
type MDEV_ARRAY is array (MDEV_TYPE) of BOOLEAN;
|
|
|
|
|
|
WORDS_MDEV : MDEV_ARRAY; -- Initialized in body
|
|
|
|
|
|
START_FILE_CHARACTER : CHARACTER := '@';
|
|
CHANGE_DEVELOPER_MODES_CHARACTER : CHARACTER := '!';
|
|
|
|
procedure CHANGE_DEVELOPER_MODES;
|
|
|
|
procedure UPDATE_LOCAL_DICTIONARY_FILE;
|
|
|
|
procedure INITIALIZE_DEVELOPER_PARAMETERS;
|
|
|
|
|
|
end DEVELOPER_PARAMETERS;
|
|
|
|
|