import from .zip file

2012-05-31 16:45:42 -05:00
commit 926705cb97
55 changed files with 291819 additions and 0 deletions
--- a/developer_parameters.ads
+++ b/developer_parameters.ads
@@ -0,0 +1,91 @@
+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;
+
+