1 08708877 2003-11-25 devnull #include <u.h>
2 08708877 2003-11-25 devnull #include <libc.h>
3 08708877 2003-11-25 devnull #include <bio.h>
4 08708877 2003-11-25 devnull #include "dict.h"
6 08708877 2003-11-25 devnull Dict dicts[] = {
7 08708877 2003-11-25 devnull {"oed", "Oxford English Dictionary, 2nd Ed.",
8 ebda53e1 2007-08-22 rsc "oed2", "oed2index",
9 08708877 2003-11-25 devnull oednextoff, oedprintentry, oedprintkey},
10 08708877 2003-11-25 devnull {"ahd", "American Heritage Dictionary, 2nd College Ed.",
11 ebda53e1 2007-08-22 rsc "ahd/DICT.DB", "ahd/index",
12 08708877 2003-11-25 devnull ahdnextoff, ahdprintentry, ahdprintkey},
13 08708877 2003-11-25 devnull {"pgw", "Project Gutenberg Webster Dictionary",
14 ebda53e1 2007-08-22 rsc "pgw", "pgwindex",
15 08708877 2003-11-25 devnull pgwnextoff, pgwprintentry, pgwprintkey},
16 08708877 2003-11-25 devnull {"thesaurus", "Collins Thesaurus",
17 ebda53e1 2007-08-22 rsc "thesaurus", "thesindex",
18 08708877 2003-11-25 devnull thesnextoff, thesprintentry, thesprintkey},
19 c8b6342d 2005-01-13 devnull {"roget", "Project Gutenberg Roget's Thesaurus",
20 ebda53e1 2007-08-22 rsc "roget", "rogetindex",
21 c8b6342d 2005-01-13 devnull rogetnextoff, rogetprintentry, rogetprintkey},
23 08708877 2003-11-25 devnull {"ce", "Gendai Chinese->English",
24 ebda53e1 2007-08-22 rsc "world/sansdata/sandic24.dat",
25 ebda53e1 2007-08-22 rsc "world/sansdata/ceindex",
26 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
27 08708877 2003-11-25 devnull {"ceh", "Gendai Chinese->English (Hanzi index)",
28 ebda53e1 2007-08-22 rsc "world/sansdata/sandic24.dat",
29 ebda53e1 2007-08-22 rsc "world/sansdata/cehindex",
30 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
31 08708877 2003-11-25 devnull {"ec", "Gendai English->Chinese",
32 ebda53e1 2007-08-22 rsc "world/sansdata/sandic24.dat",
33 ebda53e1 2007-08-22 rsc "world/sansdata/ecindex",
34 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
36 08708877 2003-11-25 devnull {"dae", "Gyldendal Danish->English",
37 ebda53e1 2007-08-22 rsc "world/gylddata/sandic30.dat",
38 ebda53e1 2007-08-22 rsc "world/gylddata/daeindex",
39 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
40 08708877 2003-11-25 devnull {"eda", "Gyldendal English->Danish",
41 ebda53e1 2007-08-22 rsc "world/gylddata/sandic29.dat",
42 ebda53e1 2007-08-22 rsc "world/gylddata/edaindex",
43 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
45 08708877 2003-11-25 devnull {"due", "Wolters-Noordhoff Dutch->English",
46 ebda53e1 2007-08-22 rsc "world/woltdata/sandic07.dat",
47 ebda53e1 2007-08-22 rsc "world/woltdata/deindex",
48 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
49 08708877 2003-11-25 devnull {"edu", "Wolters-Noordhoff English->Dutch",
50 ebda53e1 2007-08-22 rsc "world/woltdata/sandic06.dat",
51 ebda53e1 2007-08-22 rsc "world/woltdata/edindex",
52 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
54 08708877 2003-11-25 devnull {"fie", "WSOY Finnish->English",
55 ebda53e1 2007-08-22 rsc "world/werndata/sandic32.dat",
56 ebda53e1 2007-08-22 rsc "world/werndata/fieindex",
57 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
58 08708877 2003-11-25 devnull {"efi", "WSOY English->Finnish",
59 ebda53e1 2007-08-22 rsc "world/werndata/sandic31.dat",
60 ebda53e1 2007-08-22 rsc "world/werndata/efiindex",
61 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
63 08708877 2003-11-25 devnull {"fe", "Collins French->English",
64 ebda53e1 2007-08-22 rsc "fe", "feindex",
65 08708877 2003-11-25 devnull pcollnextoff, pcollprintentry, pcollprintkey},
66 08708877 2003-11-25 devnull {"ef", "Collins English->French",
67 ebda53e1 2007-08-22 rsc "ef", "efindex",
68 08708877 2003-11-25 devnull pcollnextoff, pcollprintentry, pcollprintkey},
70 08708877 2003-11-25 devnull {"ge", "Collins German->English",
71 ebda53e1 2007-08-22 rsc "ge", "geindex",
72 08708877 2003-11-25 devnull pcollgnextoff, pcollgprintentry, pcollgprintkey},
73 08708877 2003-11-25 devnull {"eg", "Collins English->German",
74 ebda53e1 2007-08-22 rsc "eg", "egindex",
75 08708877 2003-11-25 devnull pcollgnextoff, pcollgprintentry, pcollgprintkey},
77 08708877 2003-11-25 devnull {"ie", "Collins Italian->English",
78 ebda53e1 2007-08-22 rsc "ie", "ieindex",
79 08708877 2003-11-25 devnull pcollnextoff, pcollprintentry, pcollprintkey},
80 08708877 2003-11-25 devnull {"ei", "Collins English->Italian",
81 ebda53e1 2007-08-22 rsc "ei", "eiindex",
82 08708877 2003-11-25 devnull pcollnextoff, pcollprintentry, pcollprintkey},
84 08708877 2003-11-25 devnull {"je", "Sanshusha Japanese->English",
85 ebda53e1 2007-08-22 rsc "world/sansdata/sandic18.dat",
86 ebda53e1 2007-08-22 rsc "world/sansdata/jeindex",
87 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
88 08708877 2003-11-25 devnull {"jek", "Sanshusha Japanese->English (Kanji index)",
89 ebda53e1 2007-08-22 rsc "world/sansdata/sandic18.dat",
90 ebda53e1 2007-08-22 rsc "world/sansdata/jekindex",
91 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
92 08708877 2003-11-25 devnull {"ej", "Sanshusha English->Japanese",
93 ebda53e1 2007-08-22 rsc "world/sansdata/sandic18.dat",
94 ebda53e1 2007-08-22 rsc "world/sansdata/ejindex",
95 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
97 08708877 2003-11-25 devnull {"tjeg", "Sanshusha technical Japanese->English,German",
98 ebda53e1 2007-08-22 rsc "world/sansdata/sandic16.dat",
99 ebda53e1 2007-08-22 rsc "world/sansdata/tjegindex",
100 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
101 08708877 2003-11-25 devnull {"tjegk", "Sanshusha technical Japanese->English,German (Kanji index)",
102 ebda53e1 2007-08-22 rsc "world/sansdata/sandic16.dat",
103 ebda53e1 2007-08-22 rsc "world/sansdata/tjegkindex",
104 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
105 08708877 2003-11-25 devnull {"tegj", "Sanshusha technical English->German,Japanese",
106 ebda53e1 2007-08-22 rsc "world/sansdata/sandic16.dat",
107 ebda53e1 2007-08-22 rsc "world/sansdata/tegjindex",
108 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
109 08708877 2003-11-25 devnull {"tgje", "Sanshusha technical German->Japanese,English",
110 ebda53e1 2007-08-22 rsc "world/sansdata/sandic16.dat",
111 ebda53e1 2007-08-22 rsc "world/sansdata/tgjeindex",
112 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
114 08708877 2003-11-25 devnull {"ne", "Kunnskapforlaget Norwegian->English",
115 ebda53e1 2007-08-22 rsc "world/kunndata/sandic28.dat",
116 ebda53e1 2007-08-22 rsc "world/kunndata/neindex",
117 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
118 08708877 2003-11-25 devnull {"en", "Kunnskapforlaget English->Norwegian",
119 ebda53e1 2007-08-22 rsc "world/kunndata/sandic27.dat",
120 ebda53e1 2007-08-22 rsc "world/kunndata/enindex",
121 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
123 08708877 2003-11-25 devnull {"re", "Leon Ungier Russian->English",
124 ebda53e1 2007-08-22 rsc "re", "reindex",
125 08708877 2003-11-25 devnull simplenextoff, simpleprintentry, simpleprintkey},
126 08708877 2003-11-25 devnull {"er", "Leon Ungier English->Russian",
127 ebda53e1 2007-08-22 rsc "re", "erindex",
128 08708877 2003-11-25 devnull simplenextoff, simpleprintentry, simpleprintkey},
130 08708877 2003-11-25 devnull {"se", "Collins Spanish->English",
131 ebda53e1 2007-08-22 rsc "se", "seindex",
132 08708877 2003-11-25 devnull pcollnextoff, pcollprintentry, pcollprintkey},
133 08708877 2003-11-25 devnull {"es", "Collins English->Spanish",
134 ebda53e1 2007-08-22 rsc "es", "esindex",
135 08708877 2003-11-25 devnull pcollnextoff, pcollprintentry, pcollprintkey},
137 08708877 2003-11-25 devnull {"swe", "Esselte Studium Swedish->English",
138 ebda53e1 2007-08-22 rsc "world/essedata/sandic34.dat",
139 ebda53e1 2007-08-22 rsc "world/essedata/sweindex",
140 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
141 08708877 2003-11-25 devnull {"esw", "Esselte Studium English->Swedish",
142 ebda53e1 2007-08-22 rsc "world/essedata/sandic33.dat",
143 ebda53e1 2007-08-22 rsc "world/essedata/eswindex",
144 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
146 08708877 2003-11-25 devnull {"movie", "Movies -- by title",
147 ebda53e1 2007-08-22 rsc "movie/data", "movtindex",
148 08708877 2003-11-25 devnull movienextoff, movieprintentry, movieprintkey},
149 08708877 2003-11-25 devnull {"moviea", "Movies -- by actor",
150 ebda53e1 2007-08-22 rsc "movie/data", "movaindex",
151 08708877 2003-11-25 devnull movienextoff, movieprintentry, movieprintkey},
152 08708877 2003-11-25 devnull {"movied", "Movies -- by director",
153 ebda53e1 2007-08-22 rsc "movie/data", "movdindex",
154 08708877 2003-11-25 devnull movienextoff, movieprintentry, movieprintkey},
156 08708877 2003-11-25 devnull {"slang", "English Slang",
157 ebda53e1 2007-08-22 rsc "slang", "slangindex",
158 08708877 2003-11-25 devnull slangnextoff, slangprintentry, slangprintkey},
160 08708877 2003-11-25 devnull {"robert", "Robert Électronique",
161 ebda53e1 2007-08-22 rsc "robert/_pointers", "robert/_index",
162 08708877 2003-11-25 devnull robertnextoff, robertindexentry, robertprintkey},
163 08708877 2003-11-25 devnull {"robertv", "Robert Électronique - formes des verbes",
164 ebda53e1 2007-08-22 rsc "robert/flex.rob", "robert/_flexindex",
165 08708877 2003-11-25 devnull robertnextflex, robertflexentry, robertprintkey},
167 08708877 2003-11-25 devnull {0, 0, 0, 0, 0}
170 08708877 2003-11-25 devnull typedef struct Lig Lig;
171 08708877 2003-11-25 devnull struct Lig {
172 08708877 2003-11-25 devnull Rune start; /* accent rune */
173 08708877 2003-11-25 devnull Rune pairs[100]; /* <char,accented version> pairs */
176 d126ebb5 2004-03-26 devnull /* keep in sync with dict.h */
177 08708877 2003-11-25 devnull static Lig ligtab[Nligs] = {
178 d126ebb5 2004-03-26 devnull {0xb4, {0x41, 0xc1, 0x61, 0xe1, 0x43, 0x106, 0x63, 0x107, 0x45, 0xc9, 0x65, 0xe9, 0x67, 0x123, 0x49, 0xcd, 0x69, 0xed, 0x131, 0xed, 0x4c, 0x139, 0x6c, 0x13a, 0x4e, 0x143, 0x6e, 0x144, 0x4f, 0xd3, 0x6f, 0xf3, 0x52, 0x154, 0x72, 0x155, 0x53, 0x15a, 0x73, 0x15b, 0x55, 0xda, 0x75, 0xfa, 0x59, 0xdd, 0x79, 0xfd, 0x5a, 0x179, 0x7a, 0x17a, 0}},
179 d126ebb5 2004-03-26 devnull {0x2cb, {0x41, 0xc0, 0x61, 0xe0, 0x45, 0xc8, 0x65, 0xe8, 0x49, 0xcc, 0x69, 0xec, 0x131, 0xec, 0x4f, 0xd2, 0x6f, 0xf2, 0x55, 0xd9, 0x75, 0xf9, 0}},
180 d126ebb5 2004-03-26 devnull {0xa8, {0x41, 0xc4, 0x61, 0xe4, 0x45, 0xcb, 0x65, 0xeb, 0x49, 0xcf, 0x69, 0xef, 0x4f, 0xd6, 0x6f, 0xf6, 0x55, 0xdc, 0x75, 0xfc, 0x59, 0x178, 0x79, 0xff, 0}},
181 d126ebb5 2004-03-26 devnull {0xb8, {0x43, 0xc7, 0x63, 0xe7, 0x47, 0x122, 0x4b, 0x136, 0x6b, 0x137, 0x4c, 0x13b, 0x6c, 0x13c, 0x4e, 0x145, 0x6e, 0x146, 0x52, 0x156, 0x72, 0x157, 0x53, 0x15e, 0x73, 0x15f, 0x54, 0x162, 0x74, 0x163, 0}},
182 d126ebb5 2004-03-26 devnull {0x2dc, {0x41, 0xc3, 0x61, 0xe3, 0x49, 0x128, 0x69, 0x129, 0x131, 0x129, 0x4e, 0xd1, 0x6e, 0xf1, 0x4f, 0xd5, 0x6f, 0xf5, 0x55, 0x168, 0x75, 0x169, 0}},
183 d126ebb5 2004-03-26 devnull {0x2d8, {0x41, 0x102, 0x61, 0x103, 0x45, 0x114, 0x65, 0x115, 0x47, 0x11e, 0x67, 0x11f, 0x49, 0x12c, 0x69, 0x12d, 0x131, 0x12d, 0x4f, 0x14e, 0x6f, 0x14f, 0x55, 0x16c, 0x75, 0x16d, 0}},
184 d126ebb5 2004-03-26 devnull {0x2da, {0x41, 0xc5, 0x61, 0xe5, 0x55, 0x16e, 0x75, 0x16f, 0}},
185 d126ebb5 2004-03-26 devnull {0x2d9, {0x43, 0x10a, 0x63, 0x10b, 0x45, 0x116, 0x65, 0x117, 0x47, 0x120, 0x67, 0x121, 0x49, 0x130, 0x4c, 0x13f, 0x6c, 0x140, 0x5a, 0x17b, 0x7a, 0x17c, 0}},
186 d126ebb5 2004-03-26 devnull {0x2e, {0}},
187 d126ebb5 2004-03-26 devnull {0x2322, {0x41, 0xc2, 0x61, 0xe2, 0x43, 0x108, 0x63, 0x109, 0x45, 0xca, 0x65, 0xea, 0x47, 0x11c, 0x67, 0x11d, 0x48, 0x124, 0x68, 0x125, 0x49, 0xce, 0x69, 0xee, 0x131, 0xee, 0x4a, 0x134, 0x6a, 0x135, 0x4f, 0xd4, 0x6f, 0xf4, 0x53, 0x15c, 0x73, 0x15d, 0x55, 0xdb, 0x75, 0xfb, 0x57, 0x174, 0x77, 0x175, 0x59, 0x176, 0x79, 0x177, 0}},
188 d126ebb5 2004-03-26 devnull {0x32f, {0}},
189 d126ebb5 2004-03-26 devnull {0x2db, {0x41, 0x104, 0x61, 0x105, 0x45, 0x118, 0x65, 0x119, 0x49, 0x12e, 0x69, 0x12f, 0x131, 0x12f, 0x55, 0x172, 0x75, 0x173, 0}},
190 d126ebb5 2004-03-26 devnull {0xaf, {0x41, 0x100, 0x61, 0x101, 0x45, 0x112, 0x65, 0x113, 0x49, 0x12a, 0x69, 0x12b, 0x131, 0x12b, 0x4f, 0x14c, 0x6f, 0x14d, 0x55, 0x16a, 0x75, 0x16b, 0}},
191 d126ebb5 2004-03-26 devnull {0x2c7, {0x43, 0x10c, 0x63, 0x10d, 0x44, 0x10e, 0x64, 0x10f, 0x45, 0x11a, 0x65, 0x11b, 0x4c, 0x13d, 0x6c, 0x13e, 0x4e, 0x147, 0x6e, 0x148, 0x52, 0x158, 0x72, 0x159, 0x53, 0x160, 0x73, 0x161, 0x54, 0x164, 0x74, 0x165, 0x5a, 0x17d, 0x7a, 0x17e, 0}},
192 d126ebb5 2004-03-26 devnull {0x2bd, {0}},
193 d126ebb5 2004-03-26 devnull {0x2bc, {0}},
194 d126ebb5 2004-03-26 devnull {0x32e, {0}}
197 08708877 2003-11-25 devnull Rune multitab[Nmulti][5] = {
198 d126ebb5 2004-03-26 devnull {0x2bd, 0x3b1, 0},
199 d126ebb5 2004-03-26 devnull {0x2bc, 0x3b1, 0},
200 d126ebb5 2004-03-26 devnull {0x61, 0x6e, 0x64, 0},
201 d126ebb5 2004-03-26 devnull {0x61, 0x2f, 0x71, 0},
202 d126ebb5 2004-03-26 devnull {0x3c, 0x7c, 0},
203 d126ebb5 2004-03-26 devnull {0x2e, 0x2e, 0},
204 d126ebb5 2004-03-26 devnull {0x2e, 0x2e, 0x2e, 0},
205 d126ebb5 2004-03-26 devnull {0x2bd, 0x3b5, 0},
206 d126ebb5 2004-03-26 devnull {0x2bc, 0x3b5, 0},
207 d126ebb5 2004-03-26 devnull {0x2014, 0x2014, 0},
208 d126ebb5 2004-03-26 devnull {0x2bd, 0x3b7, 0},
209 d126ebb5 2004-03-26 devnull {0x2bc, 0x3b7, 0},
210 d126ebb5 2004-03-26 devnull {0x2bd, 0x3b9, 0},
211 d126ebb5 2004-03-26 devnull {0x2bc, 0x3b9, 0},
212 d126ebb5 2004-03-26 devnull {0x63, 0x74, 0},
213 d126ebb5 2004-03-26 devnull {0x66, 0x66, 0},
214 d126ebb5 2004-03-26 devnull {0x66, 0x66, 0x69, 0},
215 d126ebb5 2004-03-26 devnull {0x66, 0x66, 0x6c, 0},
216 d126ebb5 2004-03-26 devnull {0x66, 0x6c, 0},
217 d126ebb5 2004-03-26 devnull {0x66, 0x69, 0},
218 d126ebb5 2004-03-26 devnull {0x26b, 0x26b, 0},
219 d126ebb5 2004-03-26 devnull {0x73, 0x74, 0},
220 d126ebb5 2004-03-26 devnull {0x2bd, 0x3bf, 0},
221 d126ebb5 2004-03-26 devnull {0x2bc, 0x3bf, 0},
222 d126ebb5 2004-03-26 devnull {0x6f, 0x72, 0},
223 d126ebb5 2004-03-26 devnull {0x2bd, 0x3c1, 0},
224 d126ebb5 2004-03-26 devnull {0x2bc, 0x3c1, 0},
225 d126ebb5 2004-03-26 devnull {0x7e, 0x7e, 0},
226 d126ebb5 2004-03-26 devnull {0x2bd, 0x3c5, 0},
227 d126ebb5 2004-03-26 devnull {0x2bc, 0x3c5, 0},
228 d126ebb5 2004-03-26 devnull {0x2bd, 0x3c9, 0},
229 d126ebb5 2004-03-26 devnull {0x2bc, 0x3c9, 0},
230 d126ebb5 2004-03-26 devnull {0x6f, 0x65, 0},
231 cbeb0b26 2006-04-01 devnull {0x20, 0x20, 0}
234 08708877 2003-11-25 devnull #define risupper(r) (0x41 <= (r) && (r) <= 0x5a)
235 08708877 2003-11-25 devnull #define rislatin1(r) (0xC0 <= (r) && (r) <= 0xFF)
236 08708877 2003-11-25 devnull #define rtolower(r) ((r)-'A'+'a')
238 08708877 2003-11-25 devnull static Rune latin_fold_tab[] =
240 08708877 2003-11-25 devnull /* Table to fold latin 1 characters to ASCII equivalents
241 08708877 2003-11-25 devnull based at Rune value 0xc0
243 08708877 2003-11-25 devnull À Á Â Ã Ä Å Æ Ç
244 08708877 2003-11-25 devnull È É Ê Ë Ì Í Î Ï
245 08708877 2003-11-25 devnull Ð Ñ Ò Ó Ô Õ Ö ×
246 08708877 2003-11-25 devnull Ø Ù Ú Û Ü Ý Þ ß
247 08708877 2003-11-25 devnull à á â ã ä å æ ç
248 08708877 2003-11-25 devnull è é ê ë ì í î ï
249 08708877 2003-11-25 devnull ð ñ ò ó ô õ ö ÷
250 08708877 2003-11-25 devnull ø ù ú û ü ý þ ÿ
252 08708877 2003-11-25 devnull 'a', 'a', 'a', 'a', 'a', 'a', 'a', 'c',
253 08708877 2003-11-25 devnull 'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i',
254 08708877 2003-11-25 devnull 'd', 'n', 'o', 'o', 'o', 'o', 'o', 0 ,
255 08708877 2003-11-25 devnull 'o', 'u', 'u', 'u', 'u', 'y', 0 , 0 ,
256 08708877 2003-11-25 devnull 'a', 'a', 'a', 'a', 'a', 'a', 'a', 'c',
257 08708877 2003-11-25 devnull 'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i',
258 08708877 2003-11-25 devnull 'd', 'n', 'o', 'o', 'o', 'o', 'o', 0 ,
259 cbeb0b26 2006-04-01 devnull 'o', 'u', 'u', 'u', 'u', 'y', 0 , 'y'
262 08708877 2003-11-25 devnull static Rune *ttabstack[20];
263 08708877 2003-11-25 devnull static int ntt;
266 08708877 2003-11-25 devnull * tab is an array of n Assoc's, sorted by key.
267 08708877 2003-11-25 devnull * Look for key in tab, and return corresponding val
268 08708877 2003-11-25 devnull * or -1 if not there
271 08708877 2003-11-25 devnull lookassoc(Assoc *tab, int n, char *key)
273 08708877 2003-11-25 devnull Assoc *q;
274 08708877 2003-11-25 devnull long i, low, high;
277 08708877 2003-11-25 devnull for(low = -1, high = n; high > low+1; ){
278 08708877 2003-11-25 devnull i = (high+low)/2;
279 08708877 2003-11-25 devnull q = &tab[i];
280 08708877 2003-11-25 devnull if((r=strcmp(key, q->key))<0)
281 08708877 2003-11-25 devnull high = i;
282 08708877 2003-11-25 devnull else if(r == 0)
283 08708877 2003-11-25 devnull return q->val;
287 08708877 2003-11-25 devnull return -1;
291 08708877 2003-11-25 devnull looknassoc(Nassoc *tab, int n, long key)
293 08708877 2003-11-25 devnull Nassoc *q;
294 08708877 2003-11-25 devnull long i, low, high;
296 08708877 2003-11-25 devnull for(low = -1, high = n; high > low+1; ){
297 08708877 2003-11-25 devnull i = (high+low)/2;
298 08708877 2003-11-25 devnull q = &tab[i];
299 08708877 2003-11-25 devnull if(key < q->key)
300 08708877 2003-11-25 devnull high = i;
301 08708877 2003-11-25 devnull else if(key == q->key)
302 08708877 2003-11-25 devnull return q->val;
306 08708877 2003-11-25 devnull return -1;
310 08708877 2003-11-25 devnull err(char *fmt, ...)
312 08708877 2003-11-25 devnull char buf[1000];
313 08708877 2003-11-25 devnull va_list v;
315 08708877 2003-11-25 devnull va_start(v, fmt);
316 08708877 2003-11-25 devnull vsnprint(buf, sizeof(buf), fmt, v);
317 08708877 2003-11-25 devnull va_end(v);
318 08708877 2003-11-25 devnull fprint(2, "%s: %s\n", argv0, buf);
322 08708877 2003-11-25 devnull * Write the rune r to bout, keeping track of line length
323 08708877 2003-11-25 devnull * and breaking the lines (at blanks) when they get too long
326 08708877 2003-11-25 devnull outrune(long r)
328 08708877 2003-11-25 devnull if(outinhibit)
330 08708877 2003-11-25 devnull if(++linelen > breaklen && r == 0x20) {
331 08708877 2003-11-25 devnull Bputc(bout, '\n');
332 08708877 2003-11-25 devnull linelen = 0;
334 08708877 2003-11-25 devnull Bputrune(bout, r);
338 08708877 2003-11-25 devnull outrunes(Rune *rp)
342 08708877 2003-11-25 devnull while((r = *rp++) != 0)
343 08708877 2003-11-25 devnull outrune(r);
346 08708877 2003-11-25 devnull /* like outrune, but when arg is know to be a char */
348 08708877 2003-11-25 devnull outchar(int c)
350 08708877 2003-11-25 devnull if(outinhibit)
352 08708877 2003-11-25 devnull if(++linelen > breaklen && c == ' ') {
353 08708877 2003-11-25 devnull c ='\n';
354 08708877 2003-11-25 devnull linelen = 0;
356 08708877 2003-11-25 devnull Bputc(bout, c);
360 08708877 2003-11-25 devnull outchars(char *s)
364 08708877 2003-11-25 devnull while((c = *s++) != 0)
365 08708877 2003-11-25 devnull outchar(c);
369 08708877 2003-11-25 devnull outprint(char *fmt, ...)
371 08708877 2003-11-25 devnull char buf[1000];
372 08708877 2003-11-25 devnull va_list v;
374 08708877 2003-11-25 devnull va_start(v, fmt);
375 08708877 2003-11-25 devnull vsnprint(buf, sizeof(buf), fmt, v);
376 08708877 2003-11-25 devnull va_end(v);
377 08708877 2003-11-25 devnull outchars(buf);
381 08708877 2003-11-25 devnull outpiece(char *b, char *e)
383 08708877 2003-11-25 devnull int c, lastc;
385 08708877 2003-11-25 devnull lastc = 0;
386 08708877 2003-11-25 devnull while(b < e) {
387 08708877 2003-11-25 devnull c = *b++;
388 08708877 2003-11-25 devnull if(c == '\n')
389 08708877 2003-11-25 devnull c = ' ';
390 08708877 2003-11-25 devnull if(!(c == ' ' && lastc == ' '))
391 08708877 2003-11-25 devnull outchar(c);
392 08708877 2003-11-25 devnull lastc = c;
397 08708877 2003-11-25 devnull * Go to new line if not already there; indent if ind != 0.
398 08708877 2003-11-25 devnull * If ind > 1, leave a blank line too.
399 08708877 2003-11-25 devnull * Slight hack: assume if current line is only one or two
400 08708877 2003-11-25 devnull * characters long, then they were spaces.
403 08708877 2003-11-25 devnull outnl(int ind)
405 08708877 2003-11-25 devnull if(outinhibit)
407 08708877 2003-11-25 devnull if(ind) {
408 08708877 2003-11-25 devnull if(ind > 1) {
409 08708877 2003-11-25 devnull if(linelen > 2)
410 08708877 2003-11-25 devnull Bputc(bout, '\n');
411 08708877 2003-11-25 devnull Bprint(bout, "\n ");
412 08708877 2003-11-25 devnull } else if(linelen == 0)
413 08708877 2003-11-25 devnull Bprint(bout, " ");
414 08708877 2003-11-25 devnull else if(linelen == 1)
415 08708877 2003-11-25 devnull Bputc(bout, ' ');
416 08708877 2003-11-25 devnull else if(linelen != 2)
417 08708877 2003-11-25 devnull Bprint(bout, "\n ");
418 08708877 2003-11-25 devnull linelen = 2;
419 08708877 2003-11-25 devnull } else {
420 08708877 2003-11-25 devnull if(linelen) {
421 08708877 2003-11-25 devnull Bputc(bout, '\n');
422 08708877 2003-11-25 devnull linelen = 0;
428 08708877 2003-11-25 devnull * Fold the runes in null-terminated rp.
429 08708877 2003-11-25 devnull * Use the sort(1) definition of folding (uppercase to lowercase,
430 08708877 2003-11-25 devnull * latin1-accented characters to corresponding unaccented chars)
433 08708877 2003-11-25 devnull fold(Rune *rp)
437 08708877 2003-11-25 devnull while((r = *rp) != 0) {
438 08708877 2003-11-25 devnull if (rislatin1(r) && latin_fold_tab[r-0xc0])
439 08708877 2003-11-25 devnull r = latin_fold_tab[r-0xc0];
440 08708877 2003-11-25 devnull if(risupper(r))
441 08708877 2003-11-25 devnull r = rtolower(r);
442 08708877 2003-11-25 devnull *rp++ = r;
447 08708877 2003-11-25 devnull * Like fold, but put folded result into new
448 08708877 2003-11-25 devnull * (assumed to have enough space).
449 08708877 2003-11-25 devnull * old is a regular expression, but we know that
450 08708877 2003-11-25 devnull * metacharacters aren't affected
453 08708877 2003-11-25 devnull foldre(char *new, char *old)
457 08708877 2003-11-25 devnull while(*old) {
458 08708877 2003-11-25 devnull old += chartorune(&r, old);
459 08708877 2003-11-25 devnull if (rislatin1(r) && latin_fold_tab[r-0xc0])
460 08708877 2003-11-25 devnull r = latin_fold_tab[r-0xc0];
461 08708877 2003-11-25 devnull if(risupper(r))
462 08708877 2003-11-25 devnull r = rtolower(r);
463 08708877 2003-11-25 devnull new += runetochar(new, &r);
465 08708877 2003-11-25 devnull *new = 0;
469 08708877 2003-11-25 devnull * acomp(s, t) returns:
470 08708877 2003-11-25 devnull * -2 if s strictly precedes t
471 08708877 2003-11-25 devnull * -1 if s is a prefix of t
472 08708877 2003-11-25 devnull * 0 if s is the same as t
473 08708877 2003-11-25 devnull * 1 if t is a prefix of s
474 08708877 2003-11-25 devnull * 2 if t strictly precedes s
478 08708877 2003-11-25 devnull acomp(Rune *s, Rune *t)
480 08708877 2003-11-25 devnull int cs, ct;
482 08708877 2003-11-25 devnull for(;;) {
483 08708877 2003-11-25 devnull cs = *s;
484 08708877 2003-11-25 devnull ct = *t;
485 08708877 2003-11-25 devnull if(cs != ct)
487 08708877 2003-11-25 devnull if(cs == 0)
488 08708877 2003-11-25 devnull return 0;
492 08708877 2003-11-25 devnull if(cs == 0)
493 08708877 2003-11-25 devnull return -1;
494 08708877 2003-11-25 devnull if(ct == 0)
495 08708877 2003-11-25 devnull return 1;
496 08708877 2003-11-25 devnull if(cs < ct)
497 08708877 2003-11-25 devnull return -2;
498 08708877 2003-11-25 devnull return 2;
502 08708877 2003-11-25 devnull * Copy null terminated Runes from 'from' to 'to'.
505 08708877 2003-11-25 devnull runescpy(Rune *to, Rune *from)
507 08708877 2003-11-25 devnull while((*to++ = *from++) != 0)
508 08708877 2003-11-25 devnull continue;
512 08708877 2003-11-25 devnull * Conversion of unsigned number to long, no overflow detection
515 08708877 2003-11-25 devnull runetol(Rune *r)
521 08708877 2003-11-25 devnull for(;; r++){
523 08708877 2003-11-25 devnull if(0x30<=c && c<=0x39)
524 08708877 2003-11-25 devnull c -= '0';
527 08708877 2003-11-25 devnull n = n*10 + c;
529 08708877 2003-11-25 devnull return n;
533 08708877 2003-11-25 devnull * See if there is a rune corresponding to the accented
534 08708877 2003-11-25 devnull * version of r with accent acc (acc in [LIGS..LIGE-1]),
535 08708877 2003-11-25 devnull * and return it if so, else return NONE.
538 08708877 2003-11-25 devnull liglookup(Rune acc, Rune r)
540 08708877 2003-11-25 devnull Rune *p;
542 08708877 2003-11-25 devnull if(acc < LIGS || acc >= LIGE)
543 08708877 2003-11-25 devnull return NONE;
544 08708877 2003-11-25 devnull for(p = ligtab[acc-LIGS].pairs; *p; p += 2)
545 08708877 2003-11-25 devnull if(*p == r)
546 08708877 2003-11-25 devnull return *(p+1);
547 08708877 2003-11-25 devnull return NONE;
551 08708877 2003-11-25 devnull * Maintain a translation table stack (a translation table
552 08708877 2003-11-25 devnull * is an array of Runes indexed by bytes or 7-bit bytes).
553 08708877 2003-11-25 devnull * If starting is true, push the curtab onto the stack
554 08708877 2003-11-25 devnull * and return newtab; else pop the top of the stack and
555 08708877 2003-11-25 devnull * return it.
556 08708877 2003-11-25 devnull * If curtab is 0, initialize the stack and return.
559 08708877 2003-11-25 devnull changett(Rune *curtab, Rune *newtab, int starting)
561 08708877 2003-11-25 devnull if(curtab == 0) {
562 08708877 2003-11-25 devnull ntt = 0;
563 08708877 2003-11-25 devnull return 0;
565 08708877 2003-11-25 devnull if(starting) {
566 08708877 2003-11-25 devnull if(ntt >= asize(ttabstack)) {
567 08708877 2003-11-25 devnull if(debug)
568 08708877 2003-11-25 devnull err("translation stack overflow");
569 08708877 2003-11-25 devnull return curtab;
571 08708877 2003-11-25 devnull ttabstack[ntt++] = curtab;
572 08708877 2003-11-25 devnull return newtab;
573 08708877 2003-11-25 devnull } else {
574 08708877 2003-11-25 devnull if(ntt == 0) {
575 08708877 2003-11-25 devnull if(debug)
576 08708877 2003-11-25 devnull err("translation stack underflow");
577 08708877 2003-11-25 devnull return curtab;
579 08708877 2003-11-25 devnull return ttabstack[--ntt];