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