2 * Copyright (C) 1994-1999, Index Data
4 * Sebastian Hammer, Adam Dickmeiss
7 * Revision 1.4 1999-05-15 14:36:37 adam
8 * Updated dictionary. Implemented "compression" of dictionary.
10 * Revision 1.3 1999/05/12 13:08:06 adam
11 * First version of ISAMS.
13 * Revision 1.2 1999/03/09 16:27:49 adam
14 * More work on SDRKit integration.
16 * Revision 1.1 1999/03/09 13:07:06 adam
17 * Work on dict_compact routine.
29 static void dict_copy_page(Dict dict, char *to_p, char *from_p, int *map)
32 short *from_indxp, *to_indxp;
33 char *from_info, *to_info;
35 from_indxp = (short*) ((char*) from_p+DICT_bsize(from_p));
36 to_indxp = (short*) ((char*) to_p+DICT_bsize(to_p));
37 to_info = (char*) to_p + DICT_infoffset;
38 for (i = DICT_nodir (from_p); --i >= 0; )
40 if (*--from_indxp > 0) /* tail string here! */
42 /* string (Dict_char *) DICT_EOS terminated */
43 /* unsigned char length of information */
44 /* char * information */
46 from_info = (char*) from_p + *from_indxp;
47 *--to_indxp = to_info - to_p;
48 slen = (dict_strlen((Dict_char*) from_info)+1)*sizeof(Dict_char);
49 memcpy (to_info, from_info, slen);
58 /* Dict_char sub char */
59 /* unsigned char length of information */
60 /* char * information */
62 *--to_indxp = -(to_info - to_p);
63 from_info = (char*) from_p - *from_indxp;
65 memcpy (&subptr, from_info, sizeof(subptr));
67 from_info += sizeof(Dict_ptr);
68 memcpy (&subchar, from_info, sizeof(subchar));
69 from_info += sizeof(Dict_char);
71 memcpy (to_info, &subptr, sizeof(Dict_ptr));
72 to_info += sizeof(Dict_ptr);
73 memcpy (to_info, &subchar, sizeof(Dict_char));
74 to_info += sizeof(Dict_char);
76 assert (to_info < (char*) to_indxp);
78 memcpy (to_info, from_info, slen);
82 DICT_size(to_p) = to_info - to_p;
84 DICT_nodir(to_p) = no;
87 int dict_copy_compact (BFiles bfs, const char *from_name, const char *to_name)
90 Dict dict_from, dict_to;
92 dict_from = dict_open (bfs, from_name, 0, 0, 0);
95 map = xmalloc ((dict_from->head.last+1) * sizeof(*map));
96 for (i = 0; i <= (int) (dict_from->head.last); i++)
98 dict_to = dict_open (bfs, to_name, 0, 1, 1);
102 map[1] = dict_from->head.page_size;
104 for (i = 1; i < (int) (dict_from->head.last); i++)
109 logf (LOG_LOG, "map[%d] = %d", i, map[i]);
111 dict_bf_readp (dict_from->dbf, i, &buf);
112 size = ((DICT_size(buf)+sizeof(short)-1)/sizeof(short) +
113 DICT_nodir(buf))*sizeof(short);
114 map[i+1] = map[i] + size;
115 no_dir += DICT_nodir(buf);
117 logf (LOG_LOG, "map[%d] = %d", i, map[i]);
118 logf (LOG_LOG, "nodir = %d", no_dir);
119 dict_to->head.root = map[1];
120 dict_to->head.last = map[i];
121 for (i = 1; i< (int) (dict_from->head.last); i++)
124 dict_bf_readp (dict_from->dbf, i, &old_p);
126 logf (LOG_LOG, "dict_bf_newp no=%d size=%d", map[i],
128 dict_bf_newp (dict_to->dbf, map[i], &new_p, map[i+1] - map[i]);
130 DICT_type(new_p) = 0;
131 DICT_backptr(new_p) = map[i-1];
132 DICT_bsize(new_p) = map[i+1] - map[i];
134 dict_copy_page(dict_from, new_p, old_p, map);
136 dict_close (dict_from);
137 dict_close (dict_to);