import from .zip file

uniques_package.ads

@@ -0,0 +1,25 @@
+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;