YAZ 5.35.1
advancegreek.c
Go to the documentation of this file.
1/* This file is part of the YAZ toolkit.
2 * Copyright (C) Index Data
3 * See the file LICENSE for details.
4 */
10#if HAVE_CONFIG_H
11#include <config.h>
12#endif
13
14#include <assert.h>
15#include <errno.h>
16#include <string.h>
17
18#include "iconv-p.h"
19
20static unsigned long read_advancegreek(yaz_iconv_t cd, yaz_iconv_decoder_t d,
21 unsigned char *inp,
22 size_t inbytesleft, size_t *no_read)
23{
24 unsigned long x = 0;
25 int shift = 0;
26 int tonos = 0;
27 int dialitika = 0;
28
29 *no_read = 0;
30 while (inbytesleft > 0)
31 {
32 if (*inp == 0x9d)
33 {
34 tonos = 1;
35 }
36 else if (*inp == 0x9e)
37 {
38 dialitika = 1;
39 }
40 else if (*inp == 0x9f)
41 {
42 shift = 1;
43 }
44 else
45 break;
46 inp++;
47 --inbytesleft;
48 (*no_read)++;
49 }
50 if (inbytesleft == 0)
51 {
52 yaz_iconv_set_errno(cd, YAZ_ICONV_EINVAL); /* incomplete input */
53 *no_read = 0;
54 return 0;
55 }
56 switch (*inp) {
57 case 0x81:
58 if (shift)
59 if (tonos)
60 x = 0x0386;
61 else
62 x = 0x0391;
63 else
64 if (tonos)
65 x = 0x03ac;
66 else
67 x = 0x03b1;
68 break;
69 case 0x82:
70 if (shift)
71 x = 0x0392;
72 else
73 x = 0x03b2;
74
75 break;
76 case 0x83:
77 if (shift)
78 x = 0x0393;
79 else
80 x = 0x03b3;
81 break;
82 case 0x84:
83 if (shift)
84 x = 0x0394;
85 else
86 x = 0x03b4;
87 break;
88 case 0x85:
89 if (shift)
90 if (tonos)
91 x = 0x0388;
92 else
93 x = 0x0395;
94 else
95 if (tonos)
96 x = 0x03ad;
97 else
98 x = 0x03b5;
99 break;
100 case 0x86:
101 if (shift)
102 x = 0x0396;
103 else
104 x = 0x03b6;
105 break;
106 case 0x87:
107 if (shift)
108 if (tonos)
109 x = 0x0389;
110 else
111 x = 0x0397;
112 else
113 if (tonos)
114 x = 0x03ae;
115 else
116 x = 0x03b7;
117 break;
118 case 0x88:
119 if (shift)
120 x = 0x0398;
121 else
122 x = 0x03b8;
123 break;
124 case 0x89:
125 if (shift)
126 if (tonos)
127 x = 0x038a;
128 else
129 if (dialitika)
130 x = 0x03aa;
131 else
132 x = 0x0399;
133 else
134 if (tonos)
135 if (dialitika)
136 x = 0x0390;
137 else
138 x = 0x03af;
139
140 else
141 if (dialitika)
142 x = 0x03ca;
143 else
144 x = 0x03b9;
145 break;
146 case 0x8a:
147 if (shift)
148 x = 0x039a;
149 else
150 x = 0x03ba;
151
152 break;
153 case 0x8b:
154 if (shift)
155 x = 0x039b;
156 else
157 x = 0x03bb;
158 break;
159 case 0x8c:
160 if (shift)
161 x = 0x039c;
162 else
163 x = 0x03bc;
164
165 break;
166 case 0x8d:
167 if (shift)
168 x = 0x039d;
169 else
170 x = 0x03bd;
171 break;
172 case 0x8e:
173 if (shift)
174 x = 0x039e;
175 else
176 x = 0x03be;
177 break;
178 case 0x8f:
179 if (shift)
180 if (tonos)
181 x = 0x038c;
182 else
183 x = 0x039f;
184 else
185 if (tonos)
186 x = 0x03cc;
187 else
188 x = 0x03bf;
189 break;
190 case 0x90:
191 if (shift)
192 x = 0x03a0;
193 else
194 x = 0x03c0;
195 break;
196 case 0x91:
197 if (shift)
198 x = 0x03a1;
199 else
200 x = 0x03c1;
201 break;
202 case 0x92:
203 x = 0x03c2;
204 break;
205 case 0x93:
206 if (shift)
207 x = 0x03a3;
208 else
209 x = 0x03c3;
210 break;
211 case 0x94:
212 if (shift)
213 x = 0x03a4;
214 else
215 x = 0x03c4;
216 break;
217 case 0x95:
218 if (shift)
219 if (tonos)
220 x = 0x038e;
221 else
222 if (dialitika)
223 x = 0x03ab;
224 else
225 x = 0x03a5;
226 else
227 if (tonos)
228 if (dialitika)
229 x = 0x03b0;
230 else
231 x = 0x03cd;
232
233 else
234 if (dialitika)
235 x = 0x03cb;
236 else
237 x = 0x03c5;
238 break;
239 case 0x96:
240 if (shift)
241 x = 0x03a6;
242 else
243 x = 0x03c6;
244 break;
245 case 0x97:
246 if (shift)
247 x = 0x03a7;
248 else
249 x = 0x03c7;
250 break;
251 case 0x98:
252 if (shift)
253 x = 0x03a8;
254 else
255 x = 0x03c8;
256
257 break;
258
259 case 0x99:
260 if (shift)
261 if (tonos)
262 x = 0x038f;
263 else
264 x = 0x03a9;
265 else
266 if (tonos)
267 x = 0x03ce;
268 else
269 x = 0x03c9;
270 break;
271 default:
272 x = *inp;
273 break;
274 }
275 (*no_read)++;
276
277 return x;
278}
279
280static size_t write_advancegreek(yaz_iconv_t cd, yaz_iconv_encoder_t w,
281 unsigned long x,
282 char **outbuf, size_t *outbytesleft)
283{
284 size_t k = 0;
285 unsigned char *out = (unsigned char*) *outbuf;
286 if (*outbytesleft < 3)
287 {
288 yaz_iconv_set_errno(cd, YAZ_ICONV_E2BIG); /* not room for output */
289 return (size_t)(-1);
290 }
291 switch (x)
292 {
293 case 0x03ac : out[k++]=0x9d; out[k++]=0x81; break;
294 case 0x03ad : out[k++]=0x9d; out[k++]=0x85; break;
295 case 0x03ae : out[k++]=0x9d; out[k++]=0x87; break;
296 case 0x03af : out[k++]=0x9d; out[k++]=0x89; break;
297 case 0x03cc : out[k++]=0x9d; out[k++]=0x8f; break;
298 case 0x03cd : out[k++]=0x9d; out[k++]=0x95; break;
299 case 0x03ce : out[k++]=0x9d; out[k++]=0x99; break;
300 case 0x0390 : out[k++]=0x9d; out[k++]=0x9e; out[k++]=0x89; break;
301 case 0x03b0 : out[k++]=0x9d; out[k++]=0x9e; out[k++]=0x95; break;
302 case 0x0386 : out[k++]=0x9d; out[k++]=0x9f; out[k++]=0x81; break;
303 case 0x0388 : out[k++]=0x9d; out[k++]=0x9f; out[k++]=0x85; break;
304 case 0x0389 : out[k++]=0x9d; out[k++]=0x9f; out[k++]=0x87; break;
305 case 0x038a : out[k++]=0x9d; out[k++]=0x9f; out[k++]=0x89; break;
306 case 0x038c : out[k++]=0x9d; out[k++]=0x9f; out[k++]=0x8f; break;
307 case 0x038e : out[k++]=0x9d; out[k++]=0x9f; out[k++]=0x95; break;
308 case 0x038f : out[k++]=0x9d; out[k++]=0x9f; out[k++]=0x99; break;
309 case 0x03ca : out[k++]=0x9e; out[k++]=0x89; break;
310 case 0x03cb : out[k++]=0x9e; out[k++]=0x95; break;
311 case 0x03aa : out[k++]=0x9e; out[k++]=0x9f; out[k++]=0x89; break;
312 case 0x03ab : out[k++]=0x9e; out[k++]=0x9f; out[k++]=0x95; break;
313 case 0x0391 : out[k++]=0x9f; out[k++]=0x81; break;
314 case 0x0392 : out[k++]=0x9f; out[k++]=0x82; break;
315 case 0x0393 : out[k++]=0x9f; out[k++]=0x83; break;
316 case 0x0394 : out[k++]=0x9f; out[k++]=0x84; break;
317 case 0x0395 : out[k++]=0x9f; out[k++]=0x85; break;
318 case 0x0396 : out[k++]=0x9f; out[k++]=0x86; break;
319 case 0x0397 : out[k++]=0x9f; out[k++]=0x87; break;
320 case 0x0398 : out[k++]=0x9f; out[k++]=0x88; break;
321 case 0x0399 : out[k++]=0x9f; out[k++]=0x89; break;
322 case 0x039a : out[k++]=0x9f; out[k++]=0x8a; break;
323 case 0x039b : out[k++]=0x9f; out[k++]=0x8b; break;
324 case 0x039c : out[k++]=0x9f; out[k++]=0x8c; break;
325 case 0x039d : out[k++]=0x9f; out[k++]=0x8d; break;
326 case 0x039e : out[k++]=0x9f; out[k++]=0x8e; break;
327 case 0x039f : out[k++]=0x9f; out[k++]=0x8f; break;
328 case 0x03a0 : out[k++]=0x9f; out[k++]=0x90; break;
329 case 0x03a1 : out[k++]=0x9f; out[k++]=0x91; break;
330 case 0x03a3 : out[k++]=0x9f; out[k++]=0x93; break;
331 case 0x03a4 : out[k++]=0x9f; out[k++]=0x94; break;
332 case 0x03a5 : out[k++]=0x9f; out[k++]=0x95; break;
333 case 0x03a6 : out[k++]=0x9f; out[k++]=0x96; break;
334 case 0x03a7 : out[k++]=0x9f; out[k++]=0x97; break;
335 case 0x03a8 : out[k++]=0x9f; out[k++]=0x98; break;
336 case 0x03a9 : out[k++]=0x9f; out[k++]=0x99; break;
337 case 0x03b1 : out[k++]=0x81; break;
338 case 0x03b2 : out[k++]=0x82; break;
339 case 0x03b3 : out[k++]=0x83; break;
340 case 0x03b4 : out[k++]=0x84; break;
341 case 0x03b5 : out[k++]=0x85; break;
342 case 0x03b6 : out[k++]=0x86; break;
343 case 0x03b7 : out[k++]=0x87; break;
344 case 0x03b8 : out[k++]=0x88; break;
345 case 0x03b9 : out[k++]=0x89; break;
346 case 0x03ba : out[k++]=0x8a; break;
347 case 0x03bb : out[k++]=0x8b; break;
348 case 0x03bc : out[k++]=0x8c; break;
349 case 0x03bd : out[k++]=0x8d; break;
350 case 0x03be : out[k++]=0x8e; break;
351 case 0x03bf : out[k++]=0x8f; break;
352 case 0x03c0 : out[k++]=0x90; break;
353 case 0x03c1 : out[k++]=0x91; break;
354 case 0x03c2 : out[k++]=0x92; break;
355 case 0x03c3 : out[k++]=0x93; break;
356 case 0x03c4 : out[k++]=0x94; break;
357 case 0x03c5 : out[k++]=0x95; break;
358 case 0x03c6 : out[k++]=0x96; break;
359 case 0x03c7 : out[k++]=0x97; break;
360 case 0x03c8 : out[k++]=0x98; break;
361 case 0x03c9 : out[k++]=0x99; break;
362 default:
363 if (x > 255)
364 {
365 yaz_iconv_set_errno(cd, YAZ_ICONV_EILSEQ);
366 return (size_t) -1;
367 }
368 out[k++] = (unsigned char ) x;
369 break;
370 }
371 *outbytesleft -= k;
372 (*outbuf) += k;
373 return 0;
374}
375
376yaz_iconv_encoder_t yaz_advancegreek_encoder(const char *name,
377 yaz_iconv_encoder_t e)
378{
379 if (!yaz_matchstr(name, "advancegreek"))
380 {
381 e->write_handle = write_advancegreek;
382 return e;
383 }
384 return 0;
385}
386
387yaz_iconv_decoder_t yaz_advancegreek_decoder(const char *name,
388 yaz_iconv_decoder_t d)
389{
390 if (!yaz_matchstr(name, "advancegreek"))
391 {
392 d->read_handle = read_advancegreek;
393 return d;
394 }
395 return 0;
396}
397
398/*
399 * Local variables:
400 * c-basic-offset: 4
401 * c-file-style: "Stroustrup"
402 * indent-tabs-mode: nil
403 * End:
404 * vim: shiftwidth=4 tabstop=8 expandtab
405 */
406
write_advancegreek
static size_t write_advancegreek(yaz_iconv_t cd, yaz_iconv_encoder_t w, unsigned long x, char **outbuf, size_t *outbytesleft)
Definition advancegreek.c:280
yaz_advancegreek_encoder
yaz_iconv_encoder_t yaz_advancegreek_encoder(const char *name, yaz_iconv_encoder_t e)
Definition advancegreek.c:376
read_advancegreek
static unsigned long read_advancegreek(yaz_iconv_t cd, yaz_iconv_decoder_t d, unsigned char *inp, size_t inbytesleft, size_t *no_read)
Definition advancegreek.c:20
yaz_advancegreek_decoder
yaz_iconv_decoder_t yaz_advancegreek_decoder(const char *name, yaz_iconv_decoder_t d)
Definition advancegreek.c:387
errno.h
Header for errno utilities.
iconv-p.h
Internal header for iconv.
yaz_iconv_set_errno
void yaz_iconv_set_errno(yaz_iconv_t cd, int no)
Definition siconv.c:298
name
char * name
Definition initopt.c:18
yaz_matchstr
int yaz_matchstr(const char *s1, const char *s2)
match strings - independent of case and '-'
Definition matchstr.c:42
yaz_iconv_decoder_s
Definition iconv-p.h:81
yaz_iconv_decoder_s::read_handle
unsigned long(* read_handle)(yaz_iconv_t cd, yaz_iconv_decoder_t d, unsigned char *inbuf, size_t inbytesleft, size_t *no_read)
Definition iconv-p.h:86
yaz_iconv_encoder_s
Definition iconv-p.h:43
yaz_iconv_encoder_s::write_handle
size_t(* write_handle)(yaz_iconv_t cd, yaz_iconv_encoder_t e, unsigned long x, char **outbuf, size_t *outbytesleft)
Definition iconv-p.h:45
yaz_iconv_struct
Definition siconv.c:32
YAZ_ICONV_EILSEQ
#define YAZ_ICONV_EILSEQ
error code: Invalid sequence
Definition yaz-iconv.h:49
YAZ_ICONV_E2BIG
#define YAZ_ICONV_E2BIG
error code: Not sufficient room for output buffer
Definition yaz-iconv.h:47
YAZ_ICONV_EINVAL
#define YAZ_ICONV_EINVAL
error code: An incomplete multibyte sequence is in input buffer
Definition yaz-iconv.h:51
Generated by doxygen 1.9.8