2 * Copyright (C) 1994, Index Data I/S
4 * Sebastian Hammer, Adam Dickmeiss
7 * Revision 1.1 1994-09-22 10:43:44 adam
8 * Two versions of depend. Type 1 is the tail-type compatible with
9 * all make programs. Type 2 is the GNU make with include facility.
10 * Type 2 is default. depend rule chooses current rule.
21 typedef unsigned MatchWord;
28 #define SH(x) (((x)<<1)+1)
30 int dict_look_ec (Dict dict, MatchInfo *mi, MatchWord *ri_base, int pos,
31 int (*userfunc)(Dict_char *), int range)
38 MatchWord match_mask = 1<<(mi->m-1);
40 dict_bf_readp (dict->dbf, ptr, &p);
43 indxp = (short*) ((char*) p+DICT_PAGESIZE-sizeof(short));
49 /* string (Dict_char *) DICT_EOS terminated */
50 /* unsigned char length of information */
51 /* char * information */
52 MatchWord *ri = ri_base, sc;
54 info = (char*)p + indxp[-mid];
59 memcpy (&ch, info+j*sizeof(Dict_char), sizeof(Dict_char));
60 if (j && (ri[-1] & match_mask))
66 if (j > mi->m+range-pos)
71 ri[1+range] = SH(ri[0]) & sc;
72 for (i=1; i<=range; i++)
73 ri[i+1+range] = (SH(ri[i])&sc) | SH(ri[i-1])
74 | SH(ri[i+range]) | ri[i-1];
85 /* Dict_char sub char */
86 /* unsigned char length of information */
87 /* char * information */
88 info = (char*)p - indxp[-mid];
89 memcpy (&dc, info+sizeof(Dict_ptr), sizeof(Dict_char));
93 memcpy (&subptr, info, sizeof(Dict_ptr));
94 if (*++str == DICT_EOS)
95 return info+sizeof(Dict_ptr)+sizeof(Dict_char);
101 dict_bf_readp (dict->dbf, ptr, &p);
103 hi = DICT_nodir(p)-1;
104 indxp = (short*) ((char*) p+DICT_PAGESIZE-sizeof(short));
116 static MatchInfo *prepare_match (Dict_char *pattern)
122 mi = xmalloc (sizeof(*mi));
123 mi->m = dict_strlen (pattern);
124 mi->s = s = xmalloc (sizeof(*s)*256); /* 256 !!! */
125 for (i=0; i<256; i++)
127 for (i=0; pattern[i]; i++)
128 s[pattern[i]&255] += 1<<i;
132 int dict_lookup_ec (Dict dict, Dict_char *pattern, int range,
133 int (*userfunc)(Dict_char *name))
139 if (dict->head.last == 1)
142 mi = prepare_match (pattern);
143 ri = xmalloc ((dict_strlen(pattern)+range+2)*(range+1)*sizeof(*ri));
144 for (i=0; i<=range; i++)
147 i = dict_look_ec (dict, mi, ri, 0, userfunc, range);