+static int split_page (Dict dict, Dict_ptr ptr, void *p)
+{
+ void *subp;
+ char *info_here;
+ Dict_ptr subptr;
+ int i, need;
+ short *indxp, *best_indxp;
+ Dict_char best_char;
+ Dict_char prev_char;
+ int best_no = -1, no_current;
+
+ indxp = (short*) ((char*) p+DICT_PAGESIZE-sizeof(short));
+ for (i = DICT_nodir (p); --i >= 0; --indxp)
+ {
+ if (*indxp > 0) /* tail string here! */
+ {
+ Dict_char dc;
+
+ memcpy (&dc, (char*) p + *indxp, sizeof(dc));
+ if (best_no < 0)
+ { /* first entry met */
+ best_char = prev_char = dc;
+ no_current = best_no = 1;
+ }
+ else if (prev_char == dc)
+ { /* same char prefix. update */
+ if (++no_current > best_no)
+ { /* best entry so far */
+ best_no = no_current;
+ best_char = dc;
+ best_indxp = indxp;
+ }
+ }
+ else
+ { /* new char prefix. restore */
+ prev_char = dc;
+ no_current = 1;
+ }
+ }
+ }
+ if (best_no < 0) /* we didn't find any tail string entry at all! */
+ return -1;
+
+ subptr = new_page (dict, ptr, &subp);
+ /* scan entries to see if there is a string with */
+ /* length 1. info_here indicates if such entry exist */
+ info_here = NULL;
+ for (indxp=best_indxp, i=0; i<best_no; i++, indxp++)
+ {
+ char *info;
+ int slen;
+
+ assert (*indxp > 0);
+
+ info = (char*) p + *indxp; /* entry start */
+ slen = dict_strlen(info);
+
+ assert (slen > 0);
+ if (slen == 1)
+ {
+ assert (!info_here);
+ info_here = info+(slen+1)*sizeof(Dict_char);
+ }
+ }
+ /* calculate the amount of bytes needed for this entry when */
+ /* transformed to a sub entry */
+ need = sizeof(Dict_char)+sizeof(Dict_ptr)+1;
+ if (info_here)
+ need += *info_here;
+
+ indxp = best_indxp;
+ /* now loop on all entries with string length > 1 i.e. all */
+ /* those entries which contribute to a sub page */
+ best_indxp = NULL;
+ for (i=0; i<best_no; i++, indxp++)
+ {
+ char *info, *info1;
+ int slen;
+
+ assert (*indxp > 0);
+
+ info = (char*) p + *indxp; /* entry start */
+ slen = dict_strlen(info);
+
+ if (slen > 1)
+ {
+ info1 = info+(1+slen)*sizeof(Dict_char); /* info start */
+
+ if (need <= (1+slen)*sizeof(Dict_char) + 1 + *info1)
+ best_indxp = indxp; /* space for entry */
+ dict_ins (dict, info+sizeof(Dict_char), subptr, *info1, info1+1);
+ }
+ }
+ if (best_indxp)
+ { /* there was a hole big enough for a sub entry */
+ char *info = (char*) p + *best_indxp;
+ short *indxp1;
+
+ *--indxp = - *best_indxp;
+ DICT_type(p) = 1;
+ DICT_nodir (p) -= (best_no-1);
+ indxp1 = (short*)((char*)p+DICT_PAGESIZE-DICT_nodir(p)*sizeof(short));
+ while (indxp != indxp1)
+ {
+ --indxp;
+ *indxp = indxp[1-best_no];
+ }
+ memcpy (info, &subptr, sizeof(Dict_ptr)); /* store subptr */
+ info += sizeof(Dict_ptr);
+ memcpy (info, &best_char, sizeof(Dict_char)); /* store sub char */
+ info += sizeof(Dict_char);
+ if (info_here)
+ memcpy (info, info_here, *info_here+1); /* with information */
+ else
+ *info = 0; /* without info */
+ }
+ else
+ {
+ short *indxp1, *indxp2;
+ assert (0);
+ DICT_type(p) = 1;
+ DICT_nodir(p) -= best_no;
+ indxp2 = indxp;
+ indxp1 = (short*)((char*) p+DICT_PAGESIZE-DICT_nodir(p)*sizeof(short));
+ do
+ {
+ --indxp2;
+ indxp2[0] = indxp2[-best_no];
+ } while (indxp2 != indxp1);
+ }
+ return 0;
+}
+
+static void clean_page (Dict dict, void *p)
+{
+ char *np = xmalloc (dict->head.page_size);
+ int i, slen;
+ short *indxp1, *indxp2;
+ char *info1, *info2;
+
+ indxp1 = (short*) ((char*) p+DICT_PAGESIZE-sizeof(short));
+ indxp2 = (short*) ((char*) np+DICT_PAGESIZE);
+ info2 = (char*) np + DICT_infoffset;
+ for (i = DICT_nodir (p); --i >= 0; --indxp1)
+ {
+ if (*indxp1 > 0) /* tail string here! */
+ {
+ /* string (Dict_char *) DICT_EOS terminated */
+ /* unsigned char length of information */
+ /* char * information */
+
+ *--indxp2 = info2 - np;
+ info1 = (char*) p + *indxp1;
+ slen = (dict_strlen(info1)+1)*sizeof(Dict_char);
+ memcpy (info2, info1, slen);
+ info2 += slen;
+ info1 += slen;
+ slen = *info1+1;
+ memcpy (info2, info1, slen);
+ info2 += slen;
+ info1 += slen;
+ }
+ else
+ {
+ /* Dict_ptr subptr */
+ /* Dict_char sub char */
+ /* unsigned char length of information */
+ /* char * information */
+
+ *--indxp2 = -(info2 - np);
+ info1 = (char*) p - *indxp1;
+ memcpy (info2, info1, sizeof(Dict_ptr)+sizeof(Dict_char));
+ info2 += sizeof(Dict_ptr)+sizeof(Dict_char);
+ info1 += sizeof(Dict_ptr)+sizeof(Dict_char);
+ slen = *info1+1;
+ memcpy (info2, info1, slen);
+ info2 += slen;
+ info1 += slen;
+ }
+ }
+ memcpy ((char*) p + DICT_infoffset, (char*) np + DICT_infoffset,
+ DICT_PAGESIZE-DICT_infoffset);
+ DICT_size(p) = info2 - np;
+ DICT_type(p) = 0;
+ xfree (np);
+}
+
+static int dict_ins (Dict dict, const Dict_char *str,
+ Dict_ptr back_ptr, int userlen, void *userinfo)