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 32f69c36 2003-12-11 devnull "#9/dict/oed2", "#9/dict/oed2index",
9 08708877 2003-11-25 devnull oednextoff, oedprintentry, oedprintkey},
10 08708877 2003-11-25 devnull {"ahd", "American Heritage Dictionary, 2nd College Ed.",
11 08708877 2003-11-25 devnull "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 32f69c36 2003-12-11 devnull "#9/dict/pgw", "#9/dict/pgwindex",
15 08708877 2003-11-25 devnull pgwnextoff, pgwprintentry, pgwprintkey},
16 08708877 2003-11-25 devnull {"thesaurus", "Collins Thesaurus",
17 32f69c36 2003-12-11 devnull "#9/dict/thesaurus", "#9/dict/thesindex",
18 08708877 2003-11-25 devnull thesnextoff, thesprintentry, thesprintkey},
20 08708877 2003-11-25 devnull {"ce", "Gendai Chinese->English",
21 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/sandic24.dat",
22 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/ceindex",
23 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
24 08708877 2003-11-25 devnull {"ceh", "Gendai Chinese->English (Hanzi index)",
25 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/sandic24.dat",
26 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/cehindex",
27 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
28 08708877 2003-11-25 devnull {"ec", "Gendai English->Chinese",
29 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/sandic24.dat",
30 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/ecindex",
31 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
33 08708877 2003-11-25 devnull {"dae", "Gyldendal Danish->English",
34 32f69c36 2003-12-11 devnull "#9/dict/world/gylddata/sandic30.dat",
35 32f69c36 2003-12-11 devnull "#9/dict/world/gylddata/daeindex",
36 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
37 08708877 2003-11-25 devnull {"eda", "Gyldendal English->Danish",
38 32f69c36 2003-12-11 devnull "#9/dict/world/gylddata/sandic29.dat",
39 32f69c36 2003-12-11 devnull "#9/dict/world/gylddata/edaindex",
40 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
42 08708877 2003-11-25 devnull {"due", "Wolters-Noordhoff Dutch->English",
43 32f69c36 2003-12-11 devnull "#9/dict/world/woltdata/sandic07.dat",
44 32f69c36 2003-12-11 devnull "#9/dict/world/woltdata/deindex",
45 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
46 08708877 2003-11-25 devnull {"edu", "Wolters-Noordhoff English->Dutch",
47 32f69c36 2003-12-11 devnull "#9/dict/world/woltdata/sandic06.dat",
48 32f69c36 2003-12-11 devnull "#9/dict/world/woltdata/edindex",
49 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
51 08708877 2003-11-25 devnull {"fie", "WSOY Finnish->English",
52 32f69c36 2003-12-11 devnull "#9/dict/world/werndata/sandic32.dat",
53 32f69c36 2003-12-11 devnull "#9/dict/world/werndata/fieindex",
54 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
55 08708877 2003-11-25 devnull {"efi", "WSOY English->Finnish",
56 32f69c36 2003-12-11 devnull "#9/dict/world/werndata/sandic31.dat",
57 32f69c36 2003-12-11 devnull "#9/dict/world/werndata/efiindex",
58 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
60 08708877 2003-11-25 devnull {"fe", "Collins French->English",
61 32f69c36 2003-12-11 devnull "#9/dict/fe", "#9/dict/feindex",
62 08708877 2003-11-25 devnull pcollnextoff, pcollprintentry, pcollprintkey},
63 08708877 2003-11-25 devnull {"ef", "Collins English->French",
64 32f69c36 2003-12-11 devnull "#9/dict/ef", "#9/dict/efindex",
65 08708877 2003-11-25 devnull pcollnextoff, pcollprintentry, pcollprintkey},
67 08708877 2003-11-25 devnull {"ge", "Collins German->English",
68 32f69c36 2003-12-11 devnull "#9/dict/ge", "#9/dict/geindex",
69 08708877 2003-11-25 devnull pcollgnextoff, pcollgprintentry, pcollgprintkey},
70 08708877 2003-11-25 devnull {"eg", "Collins English->German",
71 32f69c36 2003-12-11 devnull "#9/dict/eg", "#9/dict/egindex",
72 08708877 2003-11-25 devnull pcollgnextoff, pcollgprintentry, pcollgprintkey},
74 08708877 2003-11-25 devnull {"ie", "Collins Italian->English",
75 32f69c36 2003-12-11 devnull "#9/dict/ie", "#9/dict/ieindex",
76 08708877 2003-11-25 devnull pcollnextoff, pcollprintentry, pcollprintkey},
77 08708877 2003-11-25 devnull {"ei", "Collins English->Italian",
78 32f69c36 2003-12-11 devnull "#9/dict/ei", "#9/dict/eiindex",
79 08708877 2003-11-25 devnull pcollnextoff, pcollprintentry, pcollprintkey},
81 08708877 2003-11-25 devnull {"je", "Sanshusha Japanese->English",
82 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/sandic18.dat",
83 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/jeindex",
84 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
85 08708877 2003-11-25 devnull {"jek", "Sanshusha Japanese->English (Kanji index)",
86 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/sandic18.dat",
87 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/jekindex",
88 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
89 08708877 2003-11-25 devnull {"ej", "Sanshusha English->Japanese",
90 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/sandic18.dat",
91 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/ejindex",
92 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
94 08708877 2003-11-25 devnull {"tjeg", "Sanshusha technical Japanese->English,German",
95 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/sandic16.dat",
96 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/tjegindex",
97 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
98 08708877 2003-11-25 devnull {"tjegk", "Sanshusha technical Japanese->English,German (Kanji index)",
99 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/sandic16.dat",
100 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/tjegkindex",
101 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
102 08708877 2003-11-25 devnull {"tegj", "Sanshusha technical English->German,Japanese",
103 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/sandic16.dat",
104 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/tegjindex",
105 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
106 08708877 2003-11-25 devnull {"tgje", "Sanshusha technical German->Japanese,English",
107 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/sandic16.dat",
108 32f69c36 2003-12-11 devnull "#9/dict/world/sansdata/tgjeindex",
109 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
111 08708877 2003-11-25 devnull {"ne", "Kunnskapforlaget Norwegian->English",
112 32f69c36 2003-12-11 devnull "#9/dict/world/kunndata/sandic28.dat",
113 32f69c36 2003-12-11 devnull "#9/dict/world/kunndata/neindex",
114 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
115 08708877 2003-11-25 devnull {"en", "Kunnskapforlaget English->Norwegian",
116 32f69c36 2003-12-11 devnull "#9/dict/world/kunndata/sandic27.dat",
117 32f69c36 2003-12-11 devnull "#9/dict/world/kunndata/enindex",
118 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
120 08708877 2003-11-25 devnull {"re", "Leon Ungier Russian->English",
121 32f69c36 2003-12-11 devnull "#9/dict/re", "#9/dict/reindex",
122 08708877 2003-11-25 devnull simplenextoff, simpleprintentry, simpleprintkey},
123 08708877 2003-11-25 devnull {"er", "Leon Ungier English->Russian",
124 32f69c36 2003-12-11 devnull "#9/dict/re", "#9/dict/erindex",
125 08708877 2003-11-25 devnull simplenextoff, simpleprintentry, simpleprintkey},
127 08708877 2003-11-25 devnull {"se", "Collins Spanish->English",
128 32f69c36 2003-12-11 devnull "#9/dict/se", "#9/dict/seindex",
129 08708877 2003-11-25 devnull pcollnextoff, pcollprintentry, pcollprintkey},
130 08708877 2003-11-25 devnull {"es", "Collins English->Spanish",
131 32f69c36 2003-12-11 devnull "#9/dict/es", "#9/dict/esindex",
132 08708877 2003-11-25 devnull pcollnextoff, pcollprintentry, pcollprintkey},
134 08708877 2003-11-25 devnull {"swe", "Esselte Studium Swedish->English",
135 32f69c36 2003-12-11 devnull "#9/dict/world/essedata/sandic34.dat",
136 32f69c36 2003-12-11 devnull "#9/dict/world/essedata/sweindex",
137 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
138 08708877 2003-11-25 devnull {"esw", "Esselte Studium English->Swedish",
139 32f69c36 2003-12-11 devnull "#9/dict/world/essedata/sandic33.dat",
140 32f69c36 2003-12-11 devnull "#9/dict/world/essedata/eswindex",
141 08708877 2003-11-25 devnull worldnextoff, worldprintentry, worldprintkey},
143 08708877 2003-11-25 devnull {"movie", "Movies -- by title",
144 32f69c36 2003-12-11 devnull "movie/data", "#9/dict/movtindex",
145 08708877 2003-11-25 devnull movienextoff, movieprintentry, movieprintkey},
146 08708877 2003-11-25 devnull {"moviea", "Movies -- by actor",
147 32f69c36 2003-12-11 devnull "movie/data", "#9/dict/movaindex",
148 08708877 2003-11-25 devnull movienextoff, movieprintentry, movieprintkey},
149 08708877 2003-11-25 devnull {"movied", "Movies -- by director",
150 32f69c36 2003-12-11 devnull "movie/data", "#9/dict/movdindex",
151 08708877 2003-11-25 devnull movienextoff, movieprintentry, movieprintkey},
153 08708877 2003-11-25 devnull {"slang", "English Slang",
154 32f69c36 2003-12-11 devnull "#9/dict/slang", "#9/dict/slangindex",
155 08708877 2003-11-25 devnull slangnextoff, slangprintentry, slangprintkey},
157 08708877 2003-11-25 devnull {"robert", "Robert Électronique",
158 32f69c36 2003-12-11 devnull "#9/dict/robert/_pointers", "#9/dict/robert/_index",
159 08708877 2003-11-25 devnull robertnextoff, robertindexentry, robertprintkey},
160 08708877 2003-11-25 devnull {"robertv", "Robert Électronique - formes des verbes",
161 32f69c36 2003-12-11 devnull "#9/dict/robert/flex.rob", "#9/dict/robert/_flexindex",
162 08708877 2003-11-25 devnull robertnextflex, robertflexentry, robertprintkey},
164 08708877 2003-11-25 devnull {0, 0, 0, 0, 0}
167 08708877 2003-11-25 devnull typedef struct Lig Lig;
168 08708877 2003-11-25 devnull struct Lig {
169 08708877 2003-11-25 devnull Rune start; /* accent rune */
170 08708877 2003-11-25 devnull Rune pairs[100]; /* <char,accented version> pairs */
173 08708877 2003-11-25 devnull static Lig ligtab[Nligs] = {
174 08708877 2003-11-25 devnull [LACU-LIGS] {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}},
175 08708877 2003-11-25 devnull [LGRV-LIGS] {0x2cb, {0x41, 0xc0, 0x61, 0xe0, 0x45, 0xc8, 0x65, 0xe8, 0x49, 0xcc, 0x69, 0xec, 0x131, 0xec, 0x4f, 0xd2, 0x6f, 0xf2, 0x55, 0xd9, 0x75, 0xf9, 0}},
176 08708877 2003-11-25 devnull [LUML-LIGS] {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}},
177 08708877 2003-11-25 devnull [LCED-LIGS] {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}},
178 08708877 2003-11-25 devnull [LTIL-LIGS] {0x2dc, {0x41, 0xc3, 0x61, 0xe3, 0x49, 0x128, 0x69, 0x129, 0x131, 0x129, 0x4e, 0xd1, 0x6e, 0xf1, 0x4f, 0xd5, 0x6f, 0xf5, 0x55, 0x168, 0x75, 0x169, 0}},
179 08708877 2003-11-25 devnull [LBRV-LIGS] {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}},
180 08708877 2003-11-25 devnull [LRNG-LIGS] {0x2da, {0x41, 0xc5, 0x61, 0xe5, 0x55, 0x16e, 0x75, 0x16f, 0}},
181 08708877 2003-11-25 devnull [LDOT-LIGS] {0x2d9, {0x43, 0x10a, 0x63, 0x10b, 0x45, 0x116, 0x65, 0x117, 0x47, 0x120, 0x67, 0x121, 0x49, 0x130, 0x4c, 0x13f, 0x6c, 0x140, 0x5a, 0x17b, 0x7a, 0x17c, 0}},
182 08708877 2003-11-25 devnull [LDTB-LIGS] {0x2e, {0}},
183 08708877 2003-11-25 devnull [LFRN-LIGS] {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}},
184 08708877 2003-11-25 devnull [LFRB-LIGS] {0x32f, {0}},
185 08708877 2003-11-25 devnull [LOGO-LIGS] {0x2db, {0x41, 0x104, 0x61, 0x105, 0x45, 0x118, 0x65, 0x119, 0x49, 0x12e, 0x69, 0x12f, 0x131, 0x12f, 0x55, 0x172, 0x75, 0x173, 0}},
186 08708877 2003-11-25 devnull [LMAC-LIGS] {0xaf, {0x41, 0x100, 0x61, 0x101, 0x45, 0x112, 0x65, 0x113, 0x49, 0x12a, 0x69, 0x12b, 0x131, 0x12b, 0x4f, 0x14c, 0x6f, 0x14d, 0x55, 0x16a, 0x75, 0x16b, 0}},
187 08708877 2003-11-25 devnull [LHCK-LIGS] {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}},
188 08708877 2003-11-25 devnull [LASP-LIGS] {0x2bd, {0}},
189 08708877 2003-11-25 devnull [LLEN-LIGS] {0x2bc, {0}},
190 08708877 2003-11-25 devnull [LBRB-LIGS] {0x32e, {0}}
193 08708877 2003-11-25 devnull Rune multitab[Nmulti][5] = {
194 08708877 2003-11-25 devnull [MAAS-MULTI] {0x2bd, 0x3b1, 0},
195 08708877 2003-11-25 devnull [MALN-MULTI] {0x2bc, 0x3b1, 0},
196 08708877 2003-11-25 devnull [MAND-MULTI] {0x61, 0x6e, 0x64, 0},
197 08708877 2003-11-25 devnull [MAOQ-MULTI] {0x61, 0x2f, 0x71, 0},
198 08708877 2003-11-25 devnull [MBRA-MULTI] {0x3c, 0x7c, 0},
199 08708877 2003-11-25 devnull [MDD-MULTI] {0x2e, 0x2e, 0},
200 08708877 2003-11-25 devnull [MDDD-MULTI] {0x2e, 0x2e, 0x2e, 0},
201 08708877 2003-11-25 devnull [MEAS-MULTI] {0x2bd, 0x3b5, 0},
202 08708877 2003-11-25 devnull [MELN-MULTI] {0x2bc, 0x3b5, 0},
203 08708877 2003-11-25 devnull [MEMM-MULTI] {0x2014, 0x2014, 0},
204 08708877 2003-11-25 devnull [MHAS-MULTI] {0x2bd, 0x3b7, 0},
205 08708877 2003-11-25 devnull [MHLN-MULTI] {0x2bc, 0x3b7, 0},
206 08708877 2003-11-25 devnull [MIAS-MULTI] {0x2bd, 0x3b9, 0},
207 08708877 2003-11-25 devnull [MILN-MULTI] {0x2bc, 0x3b9, 0},
208 08708877 2003-11-25 devnull [MLCT-MULTI] {0x63, 0x74, 0},
209 08708877 2003-11-25 devnull [MLFF-MULTI] {0x66, 0x66, 0},
210 08708877 2003-11-25 devnull [MLFFI-MULTI] {0x66, 0x66, 0x69, 0},
211 08708877 2003-11-25 devnull [MLFFL-MULTI] {0x66, 0x66, 0x6c, 0},
212 08708877 2003-11-25 devnull [MLFL-MULTI] {0x66, 0x6c, 0},
213 08708877 2003-11-25 devnull [MLFI-MULTI] {0x66, 0x69, 0},
214 08708877 2003-11-25 devnull [MLLS-MULTI] {0x26b, 0x26b, 0},
215 08708877 2003-11-25 devnull [MLST-MULTI] {0x73, 0x74, 0},
216 08708877 2003-11-25 devnull [MOAS-MULTI] {0x2bd, 0x3bf, 0},
217 08708877 2003-11-25 devnull [MOLN-MULTI] {0x2bc, 0x3bf, 0},
218 08708877 2003-11-25 devnull [MOR-MULTI] {0x6f, 0x72, 0},
219 08708877 2003-11-25 devnull [MRAS-MULTI] {0x2bd, 0x3c1, 0},
220 08708877 2003-11-25 devnull [MRLN-MULTI] {0x2bc, 0x3c1, 0},
221 08708877 2003-11-25 devnull [MTT-MULTI] {0x7e, 0x7e, 0},
222 08708877 2003-11-25 devnull [MUAS-MULTI] {0x2bd, 0x3c5, 0},
223 08708877 2003-11-25 devnull [MULN-MULTI] {0x2bc, 0x3c5, 0},
224 08708877 2003-11-25 devnull [MWAS-MULTI] {0x2bd, 0x3c9, 0},
225 08708877 2003-11-25 devnull [MWLN-MULTI] {0x2bc, 0x3c9, 0},
226 08708877 2003-11-25 devnull [MOE-MULTI] {0x6f, 0x65, 0},
227 08708877 2003-11-25 devnull [MES-MULTI] {0x20, 0x20, 0},
230 08708877 2003-11-25 devnull #define risupper(r) (0x41 <= (r) && (r) <= 0x5a)
231 08708877 2003-11-25 devnull #define rislatin1(r) (0xC0 <= (r) && (r) <= 0xFF)
232 08708877 2003-11-25 devnull #define rtolower(r) ((r)-'A'+'a')
234 08708877 2003-11-25 devnull static Rune latin_fold_tab[] =
236 08708877 2003-11-25 devnull /* Table to fold latin 1 characters to ASCII equivalents
237 08708877 2003-11-25 devnull based at Rune value 0xc0
239 08708877 2003-11-25 devnull À Á Â Ã Ä Å Æ Ç
240 08708877 2003-11-25 devnull È É Ê Ë Ì Í Î Ï
241 08708877 2003-11-25 devnull Ð Ñ Ò Ó Ô Õ Ö ×
242 08708877 2003-11-25 devnull Ø Ù Ú Û Ü Ý Þ ß
243 08708877 2003-11-25 devnull à á â ã ä å æ ç
244 08708877 2003-11-25 devnull è é ê ë ì í î ï
245 08708877 2003-11-25 devnull ð ñ ò ó ô õ ö ÷
246 08708877 2003-11-25 devnull ø ù ú û ü ý þ ÿ
248 08708877 2003-11-25 devnull 'a', 'a', 'a', 'a', 'a', 'a', 'a', 'c',
249 08708877 2003-11-25 devnull 'e', 'e', 'e', 'e', 'i', 'i', 'i', 'i',
250 08708877 2003-11-25 devnull 'd', 'n', 'o', 'o', 'o', 'o', 'o', 0 ,
251 08708877 2003-11-25 devnull 'o', 'u', 'u', 'u', 'u', 'y', 0 , 0 ,
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 , 'y',
258 08708877 2003-11-25 devnull static Rune *ttabstack[20];
259 08708877 2003-11-25 devnull static int ntt;
262 08708877 2003-11-25 devnull * tab is an array of n Assoc's, sorted by key.
263 08708877 2003-11-25 devnull * Look for key in tab, and return corresponding val
264 08708877 2003-11-25 devnull * or -1 if not there
267 08708877 2003-11-25 devnull lookassoc(Assoc *tab, int n, char *key)
269 08708877 2003-11-25 devnull Assoc *q;
270 08708877 2003-11-25 devnull long i, low, high;
273 08708877 2003-11-25 devnull for(low = -1, high = n; high > low+1; ){
274 08708877 2003-11-25 devnull i = (high+low)/2;
275 08708877 2003-11-25 devnull q = &tab[i];
276 08708877 2003-11-25 devnull if((r=strcmp(key, q->key))<0)
277 08708877 2003-11-25 devnull high = i;
278 08708877 2003-11-25 devnull else if(r == 0)
279 08708877 2003-11-25 devnull return q->val;
283 08708877 2003-11-25 devnull return -1;
287 08708877 2003-11-25 devnull looknassoc(Nassoc *tab, int n, long key)
289 08708877 2003-11-25 devnull Nassoc *q;
290 08708877 2003-11-25 devnull long i, low, high;
292 08708877 2003-11-25 devnull for(low = -1, high = n; high > low+1; ){
293 08708877 2003-11-25 devnull i = (high+low)/2;
294 08708877 2003-11-25 devnull q = &tab[i];
295 08708877 2003-11-25 devnull if(key < q->key)
296 08708877 2003-11-25 devnull high = i;
297 08708877 2003-11-25 devnull else if(key == q->key)
298 08708877 2003-11-25 devnull return q->val;
302 08708877 2003-11-25 devnull return -1;
306 08708877 2003-11-25 devnull err(char *fmt, ...)
308 08708877 2003-11-25 devnull char buf[1000];
309 08708877 2003-11-25 devnull va_list v;
311 08708877 2003-11-25 devnull va_start(v, fmt);
312 08708877 2003-11-25 devnull vsnprint(buf, sizeof(buf), fmt, v);
313 08708877 2003-11-25 devnull va_end(v);
314 08708877 2003-11-25 devnull fprint(2, "%s: %s\n", argv0, buf);
318 08708877 2003-11-25 devnull * Write the rune r to bout, keeping track of line length
319 08708877 2003-11-25 devnull * and breaking the lines (at blanks) when they get too long
322 08708877 2003-11-25 devnull outrune(long r)
324 08708877 2003-11-25 devnull if(outinhibit)
326 08708877 2003-11-25 devnull if(++linelen > breaklen && r == 0x20) {
327 08708877 2003-11-25 devnull Bputc(bout, '\n');
328 08708877 2003-11-25 devnull linelen = 0;
330 08708877 2003-11-25 devnull Bputrune(bout, r);
334 08708877 2003-11-25 devnull outrunes(Rune *rp)
338 08708877 2003-11-25 devnull while((r = *rp++) != 0)
339 08708877 2003-11-25 devnull outrune(r);
342 08708877 2003-11-25 devnull /* like outrune, but when arg is know to be a char */
344 08708877 2003-11-25 devnull outchar(int c)
346 08708877 2003-11-25 devnull if(outinhibit)
348 08708877 2003-11-25 devnull if(++linelen > breaklen && c == ' ') {
349 08708877 2003-11-25 devnull c ='\n';
350 08708877 2003-11-25 devnull linelen = 0;
352 08708877 2003-11-25 devnull Bputc(bout, c);
356 08708877 2003-11-25 devnull outchars(char *s)
360 08708877 2003-11-25 devnull while((c = *s++) != 0)
361 08708877 2003-11-25 devnull outchar(c);
365 08708877 2003-11-25 devnull outprint(char *fmt, ...)
367 08708877 2003-11-25 devnull char buf[1000];
368 08708877 2003-11-25 devnull va_list v;
370 08708877 2003-11-25 devnull va_start(v, fmt);
371 08708877 2003-11-25 devnull vsnprint(buf, sizeof(buf), fmt, v);
372 08708877 2003-11-25 devnull va_end(v);
373 08708877 2003-11-25 devnull outchars(buf);
377 08708877 2003-11-25 devnull outpiece(char *b, char *e)
379 08708877 2003-11-25 devnull int c, lastc;
381 08708877 2003-11-25 devnull lastc = 0;
382 08708877 2003-11-25 devnull while(b < e) {
383 08708877 2003-11-25 devnull c = *b++;
384 08708877 2003-11-25 devnull if(c == '\n')
385 08708877 2003-11-25 devnull c = ' ';
386 08708877 2003-11-25 devnull if(!(c == ' ' && lastc == ' '))
387 08708877 2003-11-25 devnull outchar(c);
388 08708877 2003-11-25 devnull lastc = c;
393 08708877 2003-11-25 devnull * Go to new line if not already there; indent if ind != 0.
394 08708877 2003-11-25 devnull * If ind > 1, leave a blank line too.
395 08708877 2003-11-25 devnull * Slight hack: assume if current line is only one or two
396 08708877 2003-11-25 devnull * characters long, then they were spaces.
399 08708877 2003-11-25 devnull outnl(int ind)
401 08708877 2003-11-25 devnull if(outinhibit)
403 08708877 2003-11-25 devnull if(ind) {
404 08708877 2003-11-25 devnull if(ind > 1) {
405 08708877 2003-11-25 devnull if(linelen > 2)
406 08708877 2003-11-25 devnull Bputc(bout, '\n');
407 08708877 2003-11-25 devnull Bprint(bout, "\n ");
408 08708877 2003-11-25 devnull } else if(linelen == 0)
409 08708877 2003-11-25 devnull Bprint(bout, " ");
410 08708877 2003-11-25 devnull else if(linelen == 1)
411 08708877 2003-11-25 devnull Bputc(bout, ' ');
412 08708877 2003-11-25 devnull else if(linelen != 2)
413 08708877 2003-11-25 devnull Bprint(bout, "\n ");
414 08708877 2003-11-25 devnull linelen = 2;
415 08708877 2003-11-25 devnull } else {
416 08708877 2003-11-25 devnull if(linelen) {
417 08708877 2003-11-25 devnull Bputc(bout, '\n');
418 08708877 2003-11-25 devnull linelen = 0;
424 08708877 2003-11-25 devnull * Fold the runes in null-terminated rp.
425 08708877 2003-11-25 devnull * Use the sort(1) definition of folding (uppercase to lowercase,
426 08708877 2003-11-25 devnull * latin1-accented characters to corresponding unaccented chars)
429 08708877 2003-11-25 devnull fold(Rune *rp)
433 08708877 2003-11-25 devnull while((r = *rp) != 0) {
434 08708877 2003-11-25 devnull if (rislatin1(r) && latin_fold_tab[r-0xc0])
435 08708877 2003-11-25 devnull r = latin_fold_tab[r-0xc0];
436 08708877 2003-11-25 devnull if(risupper(r))
437 08708877 2003-11-25 devnull r = rtolower(r);
438 08708877 2003-11-25 devnull *rp++ = r;
443 08708877 2003-11-25 devnull * Like fold, but put folded result into new
444 08708877 2003-11-25 devnull * (assumed to have enough space).
445 08708877 2003-11-25 devnull * old is a regular expression, but we know that
446 08708877 2003-11-25 devnull * metacharacters aren't affected
449 08708877 2003-11-25 devnull foldre(char *new, char *old)
453 08708877 2003-11-25 devnull while(*old) {
454 08708877 2003-11-25 devnull old += chartorune(&r, old);
455 08708877 2003-11-25 devnull if (rislatin1(r) && latin_fold_tab[r-0xc0])
456 08708877 2003-11-25 devnull r = latin_fold_tab[r-0xc0];
457 08708877 2003-11-25 devnull if(risupper(r))
458 08708877 2003-11-25 devnull r = rtolower(r);
459 08708877 2003-11-25 devnull new += runetochar(new, &r);
461 08708877 2003-11-25 devnull *new = 0;
465 08708877 2003-11-25 devnull * acomp(s, t) returns:
466 08708877 2003-11-25 devnull * -2 if s strictly precedes t
467 08708877 2003-11-25 devnull * -1 if s is a prefix of t
468 08708877 2003-11-25 devnull * 0 if s is the same as t
469 08708877 2003-11-25 devnull * 1 if t is a prefix of s
470 08708877 2003-11-25 devnull * 2 if t strictly precedes s
474 08708877 2003-11-25 devnull acomp(Rune *s, Rune *t)
476 08708877 2003-11-25 devnull int cs, ct;
478 08708877 2003-11-25 devnull for(;;) {
479 08708877 2003-11-25 devnull cs = *s;
480 08708877 2003-11-25 devnull ct = *t;
481 08708877 2003-11-25 devnull if(cs != ct)
483 08708877 2003-11-25 devnull if(cs == 0)
484 08708877 2003-11-25 devnull return 0;
488 08708877 2003-11-25 devnull if(cs == 0)
489 08708877 2003-11-25 devnull return -1;
490 08708877 2003-11-25 devnull if(ct == 0)
491 08708877 2003-11-25 devnull return 1;
492 08708877 2003-11-25 devnull if(cs < ct)
493 08708877 2003-11-25 devnull return -2;
494 08708877 2003-11-25 devnull return 2;
498 08708877 2003-11-25 devnull * Copy null terminated Runes from 'from' to 'to'.
501 08708877 2003-11-25 devnull runescpy(Rune *to, Rune *from)
503 08708877 2003-11-25 devnull while((*to++ = *from++) != 0)
504 08708877 2003-11-25 devnull continue;
508 08708877 2003-11-25 devnull * Conversion of unsigned number to long, no overflow detection
511 08708877 2003-11-25 devnull runetol(Rune *r)
517 08708877 2003-11-25 devnull for(;; r++){
519 08708877 2003-11-25 devnull if(0x30<=c && c<=0x39)
520 08708877 2003-11-25 devnull c -= '0';
523 08708877 2003-11-25 devnull n = n*10 + c;
525 08708877 2003-11-25 devnull return n;
529 08708877 2003-11-25 devnull * See if there is a rune corresponding to the accented
530 08708877 2003-11-25 devnull * version of r with accent acc (acc in [LIGS..LIGE-1]),
531 08708877 2003-11-25 devnull * and return it if so, else return NONE.
534 08708877 2003-11-25 devnull liglookup(Rune acc, Rune r)
536 08708877 2003-11-25 devnull Rune *p;
538 08708877 2003-11-25 devnull if(acc < LIGS || acc >= LIGE)
539 08708877 2003-11-25 devnull return NONE;
540 08708877 2003-11-25 devnull for(p = ligtab[acc-LIGS].pairs; *p; p += 2)
541 08708877 2003-11-25 devnull if(*p == r)
542 08708877 2003-11-25 devnull return *(p+1);
543 08708877 2003-11-25 devnull return NONE;
547 08708877 2003-11-25 devnull * Maintain a translation table stack (a translation table
548 08708877 2003-11-25 devnull * is an array of Runes indexed by bytes or 7-bit bytes).
549 08708877 2003-11-25 devnull * If starting is true, push the curtab onto the stack
550 08708877 2003-11-25 devnull * and return newtab; else pop the top of the stack and
551 08708877 2003-11-25 devnull * return it.
552 08708877 2003-11-25 devnull * If curtab is 0, initialize the stack and return.
555 08708877 2003-11-25 devnull changett(Rune *curtab, Rune *newtab, int starting)
557 08708877 2003-11-25 devnull if(curtab == 0) {
558 08708877 2003-11-25 devnull ntt = 0;
559 08708877 2003-11-25 devnull return 0;
561 08708877 2003-11-25 devnull if(starting) {
562 08708877 2003-11-25 devnull if(ntt >= asize(ttabstack)) {
563 08708877 2003-11-25 devnull if(debug)
564 08708877 2003-11-25 devnull err("translation stack overflow");
565 08708877 2003-11-25 devnull return curtab;
567 08708877 2003-11-25 devnull ttabstack[ntt++] = curtab;
568 08708877 2003-11-25 devnull return newtab;
569 08708877 2003-11-25 devnull } else {
570 08708877 2003-11-25 devnull if(ntt == 0) {
571 08708877 2003-11-25 devnull if(debug)
572 08708877 2003-11-25 devnull err("translation stack underflow");
573 08708877 2003-11-25 devnull return curtab;
575 08708877 2003-11-25 devnull return ttabstack[--ntt];
