1with INFLECTIONS_PACKAGE; use INFLECTIONS_PACKAGE; 2with DICTIONARY_PACKAGE; use DICTIONARY_PACKAGE; 3package UNIQUES_PACKAGE is 4 5 type UNIQUE_ITEM; 6 type UNIQUE_LIST is access UNIQUE_ITEM; 7 8 type UNIQUE_ITEM is 9 record 10 STEM : STEM_TYPE := NULL_STEM_TYPE; 11 QUAL : QUALITY_RECORD := NULL_QUALITY_RECORD; 12 KIND : KIND_ENTRY := NULL_KIND_ENTRY; 13 MNPC : DICT_IO.COUNT := NULL_MNPC; 14 SUCC : UNIQUE_LIST; 15 end record; 16 17 type LATIN_UNIQUES is array (CHARACTER range 'a'..'z') of UNIQUE_LIST; 18 NULL_LATIN_UNIQUES : LATIN_UNIQUES := (others => null); 19 20 UNQ : LATIN_UNIQUES := NULL_LATIN_UNIQUES; 21 22 type UNIQUES_DE_ARRAY is array (DICT_IO.POSITIVE_COUNT range <>) of DICTIONARY_ENTRY; 23 UNIQUES_DE : UNIQUES_DE_ARRAY(1..100) := (others => NULL_DICTIONARY_ENTRY); 24 25end UNIQUES_PACKAGE; 26