26 lines
849 B
Ada
26 lines
849 B
Ada
with INFLECTIONS_PACKAGE; use INFLECTIONS_PACKAGE;
|
|
with DICTIONARY_PACKAGE; use DICTIONARY_PACKAGE;
|
|
package UNIQUES_PACKAGE is
|
|
|
|
type UNIQUE_ITEM;
|
|
type UNIQUE_LIST is access UNIQUE_ITEM;
|
|
|
|
type UNIQUE_ITEM is
|
|
record
|
|
STEM : STEM_TYPE := NULL_STEM_TYPE;
|
|
QUAL : QUALITY_RECORD := NULL_QUALITY_RECORD;
|
|
KIND : KIND_ENTRY := NULL_KIND_ENTRY;
|
|
MNPC : DICT_IO.COUNT := NULL_MNPC;
|
|
SUCC : UNIQUE_LIST;
|
|
end record;
|
|
|
|
type LATIN_UNIQUES is array (CHARACTER range 'a'..'z') of UNIQUE_LIST;
|
|
NULL_LATIN_UNIQUES : LATIN_UNIQUES := (others => null);
|
|
|
|
UNQ : LATIN_UNIQUES := NULL_LATIN_UNIQUES;
|
|
|
|
type UNIQUES_DE_ARRAY is array (DICT_IO.POSITIVE_COUNT range <>) of DICTIONARY_ENTRY;
|
|
UNIQUES_DE : UNIQUES_DE_ARRAY(1..100) := (others => NULL_DICTIONARY_ENTRY);
|
|
|
|
end UNIQUES_PACKAGE;
|