1 /*
2 * Utility routines
3 *
4 * Copyright 1998 Bertho A. Stultiens
5 *
6 * This library is free software; you can redistribute it and/or
7 * modify it under the terms of the GNU Lesser General Public
8 * License as published by the Free Software Foundation; either
9 * version 2.1 of the License, or (at your option) any later version.
10 *
11 * This library is distributed in the hope that it will be useful,
12 * but WITHOUT ANY WARRANTY; without even the implied warranty of
13 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
14 * Lesser General Public License for more details.
15 *
16 * You should have received a copy of the GNU Lesser General Public
17 * License along with this library; if not, write to the Free Software
18 * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA
19 */
20
21 #include "config.h"
22 #include "wine/port.h"
23
24 #include <assert.h>
25 #include <stdio.h>
26 #include <stdlib.h>
27 #include <stdarg.h>
28 #include <string.h>
29 #include <ctype.h>
30
31 #include "wine/unicode.h"
32 #include "wrc.h"
33 #include "utils.h"
34 #include "parser.h"
35
36 /* #define WANT_NEAR_INDICATION */
37
38 #ifdef WANT_NEAR_INDICATION
39 void make_print(char *str)
40 {
41 while(*str)
42 {
43 if(!isprint(*str))
44 *str = ' ';
45 str++;
46 }
47 }
48 #endif
49
50 static void generic_msg(const char *s, const char *t, const char *n, va_list ap)
51 {
52 fprintf(stderr, "%s:%d:%d: %s: ", input_name ? input_name : "stdin", line_number, char_number, t);
53 vfprintf(stderr, s, ap);
54 #ifdef WANT_NEAR_INDICATION
55 {
56 char *cpy;
57 if(n)
58 {
59 cpy = xstrdup(n);
60 make_print(cpy);
61 fprintf(stderr, " near '%s'", cpy);
62 free(cpy);
63 }
64 }
65 #endif
66 }
67
68
69 int parser_error(const char *s, ...)
70 {
71 va_list ap;
72 va_start(ap, s);
73 generic_msg(s, "Error", parser_text, ap);
74 fputc( '\n', stderr );
75 va_end(ap);
76 exit(1);
77 return 1;
78 }
79
80 int parser_warning(const char *s, ...)
81 {
82 va_list ap;
83 va_start(ap, s);
84 generic_msg(s, "Warning", parser_text, ap);
85 va_end(ap);
86 return 0;
87 }
88
89 void internal_error(const char *file, int line, const char *s, ...)
90 {
91 va_list ap;
92 va_start(ap, s);
93 fprintf(stderr, "Internal error (please report) %s %d: ", file, line);
94 vfprintf(stderr, s, ap);
95 va_end(ap);
96 exit(3);
97 }
98
99 void fatal_perror( const char *msg, ... )
100 {
101 va_list valist;
102 va_start( valist, msg );
103 fprintf(stderr, "Error: ");
104 vfprintf( stderr, msg, valist );
105 perror( " " );
106 va_end( valist );
107 exit(2);
108 }
109
110 void error(const char *s, ...)
111 {
112 va_list ap;
113 va_start(ap, s);
114 fprintf(stderr, "Error: ");
115 vfprintf(stderr, s, ap);
116 va_end(ap);
117 exit(2);
118 }
119
120 void warning(const char *s, ...)
121 {
122 va_list ap;
123 va_start(ap, s);
124 fprintf(stderr, "Warning: ");
125 vfprintf(stderr, s, ap);
126 va_end(ap);
127 }
128
129 void chat(const char *s, ...)
130 {
131 if(debuglevel & DEBUGLEVEL_CHAT)
132 {
133 va_list ap;
134 va_start(ap, s);
135 fprintf(stderr, "FYI: ");
136 vfprintf(stderr, s, ap);
137 va_end(ap);
138 }
139 }
140
141 char *dup_basename(const char *name, const char *ext)
142 {
143 int namelen;
144 int extlen = strlen(ext);
145 char *base;
146 char *slash;
147
148 if(!name)
149 name = "wrc.tab";
150
151 slash = strrchr(name, '/');
152 if (slash)
153 name = slash + 1;
154
155 namelen = strlen(name);
156
157 /* +4 for later extension and +1 for '\0' */
158 base = xmalloc(namelen +4 +1);
159 strcpy(base, name);
160 if(!strcasecmp(name + namelen-extlen, ext))
161 {
162 base[namelen - extlen] = '\0';
163 }
164 return base;
165 }
166
167 void *xmalloc(size_t size)
168 {
169 void *res;
170
171 assert(size > 0);
172 res = malloc(size);
173 if(res == NULL)
174 {
175 error("Virtual memory exhausted.\n");
176 }
177 memset(res, 0x55, size);
178 return res;
179 }
180
181
182 void *xrealloc(void *p, size_t size)
183 {
184 void *res;
185
186 assert(size > 0);
187 res = realloc(p, size);
188 if(res == NULL)
189 {
190 error("Virtual memory exhausted.\n");
191 }
192 return res;
193 }
194
195 char *xstrdup(const char *str)
196 {
197 char *s;
198
199 assert(str != NULL);
200 s = xmalloc(strlen(str)+1);
201 return strcpy(s, str);
202 }
203
204
205 /*
206 *****************************************************************************
207 * Function : compare_name_id
208 * Syntax : int compare_name_id(const name_id_t *n1, const name_id_t *n2)
209 * Input :
210 * Output :
211 * Description :
212 * Remarks :
213 *****************************************************************************
214 */
215 int compare_name_id(const name_id_t *n1, const name_id_t *n2)
216 {
217 if(n1->type == name_ord && n2->type == name_ord)
218 {
219 return n1->name.i_name - n2->name.i_name;
220 }
221 else if(n1->type == name_str && n2->type == name_str)
222 {
223 if(n1->name.s_name->type == str_char
224 && n2->name.s_name->type == str_char)
225 {
226 return strcasecmp(n1->name.s_name->str.cstr, n2->name.s_name->str.cstr);
227 }
228 else if(n1->name.s_name->type == str_unicode
229 && n2->name.s_name->type == str_unicode)
230 {
231 return strcmpiW(n1->name.s_name->str.wstr, n2->name.s_name->str.wstr);
232 }
233 else
234 {
235 internal_error(__FILE__, __LINE__, "Can't yet compare strings of mixed type\n");
236 }
237 }
238 else if(n1->type == name_ord && n2->type == name_str)
239 return 1;
240 else if(n1->type == name_str && n2->type == name_ord)
241 return -1;
242 else
243 internal_error(__FILE__, __LINE__, "Comparing name-ids with unknown types (%d, %d)\n",
244 n1->type, n2->type);
245
246 return 0; /* Keep the compiler happy */
247 }
248
249 string_t *convert_string(const string_t *str, enum str_e type, int codepage)
250 {
251 const union cptable *cptable = codepage ? wine_cp_get_table( codepage ) : NULL;
252 string_t *ret = xmalloc(sizeof(*ret));
253 int res;
254
255 if (!codepage && str->type != type)
256 parser_error( "Current language is Unicode only, cannot convert string" );
257
258 if((str->type == str_char) && (type == str_unicode))
259 {
260 ret->type = str_unicode;
261 ret->size = cptable ? wine_cp_mbstowcs( cptable, 0, str->str.cstr, str->size, NULL, 0 )
262 : wine_utf8_mbstowcs( 0, str->str.cstr, str->size, NULL, 0 );
263 ret->str.wstr = xmalloc( (ret->size+1) * sizeof(WCHAR) );
264 if (cptable)
265 res = wine_cp_mbstowcs( cptable, MB_ERR_INVALID_CHARS, str->str.cstr, str->size,
266 ret->str.wstr, ret->size );
267 else
268 res = wine_utf8_mbstowcs( MB_ERR_INVALID_CHARS, str->str.cstr, str->size,
269 ret->str.wstr, ret->size );
270 if (res == -2)
271 parser_error( "Invalid character in string '%.*s' for codepage %u",
272 str->size, str->str.cstr, codepage );
273 ret->str.wstr[ret->size] = 0;
274 }
275 else if((str->type == str_unicode) && (type == str_char))
276 {
277 ret->type = str_char;
278 ret->size = cptable ? wine_cp_wcstombs( cptable, 0, str->str.wstr, str->size, NULL, 0, NULL, NULL )
279 : wine_utf8_wcstombs( 0, str->str.wstr, str->size, NULL, 0 );
280 ret->str.cstr = xmalloc( ret->size + 1 );
281 if (cptable)
282 wine_cp_wcstombs( cptable, 0, str->str.wstr, str->size, ret->str.cstr, ret->size, NULL, NULL );
283 else
284 wine_utf8_wcstombs( 0, str->str.wstr, str->size, ret->str.cstr, ret->size );
285 ret->str.cstr[ret->size] = 0;
286 }
287 else if(str->type == str_unicode)
288 {
289 ret->type = str_unicode;
290 ret->size = str->size;
291 ret->str.wstr = xmalloc(sizeof(WCHAR)*(ret->size+1));
292 memcpy( ret->str.wstr, str->str.wstr, ret->size * sizeof(WCHAR) );
293 ret->str.wstr[ret->size] = 0;
294 }
295 else /* str->type == str_char */
296 {
297 ret->type = str_char;
298 ret->size = str->size;
299 ret->str.cstr = xmalloc( ret->size + 1 );
300 memcpy( ret->str.cstr, str->str.cstr, ret->size );
301 ret->str.cstr[ret->size] = 0;
302 }
303 return ret;
304 }
305
306
307 void free_string(string_t *str)
308 {
309 if (str->type == str_unicode) free( str->str.wstr );
310 else free( str->str.cstr );
311 free( str );
312 }
313
314
315 int check_unicode_conversion( const string_t *str_a, const string_t *str_w, int codepage )
316 {
317 int ok;
318 string_t *teststr = convert_string( str_w, str_char, codepage );
319
320 ok = (teststr->size == str_a->size && !memcmp( teststr->str.cstr, str_a->str.cstr, str_a->size ));
321
322 if (!ok)
323 {
324 int i;
325
326 fprintf( stderr, "Source: %s", str_a->str.cstr );
327 for (i = 0; i < str_a->size; i++)
328 fprintf( stderr, " %02x", (unsigned char)str_a->str.cstr[i] );
329 fprintf( stderr, "\nUnicode: " );
330 for (i = 0; i < str_w->size; i++)
331 fprintf( stderr, " %04x", str_w->str.wstr[i] );
332 fprintf( stderr, "\nBack: %s", teststr->str.cstr );
333 for (i = 0; i < teststr->size; i++)
334 fprintf( stderr, " %02x", (unsigned char)teststr->str.cstr[i] );
335 fprintf( stderr, "\n" );
336 }
337 free_string( teststr );
338 return ok;
339 }
340
341
342 struct lang2cp
343 {
344 unsigned short lang;
345 unsigned short sublang;
346 unsigned int cp;
347 } lang2cp_t;
348
349 /* language to codepage conversion table */
350 /* specific sublanguages need only be specified if their codepage */
351 /* differs from the default (SUBLANG_NEUTRAL) */
352 static const struct lang2cp lang2cps[] =
353 {
354 { LANG_AFRIKAANS, SUBLANG_NEUTRAL, 1252 },
355 { LANG_ALBANIAN, SUBLANG_NEUTRAL, 1250 },
356 { LANG_ALSATIAN, SUBLANG_NEUTRAL, 1252 },
357 { LANG_AMHARIC, SUBLANG_NEUTRAL, 0 },
358 { LANG_ARABIC, SUBLANG_NEUTRAL, 1256 },
359 { LANG_ARMENIAN, SUBLANG_NEUTRAL, 0 },
360 { LANG_ASSAMESE, SUBLANG_NEUTRAL, 0 },
361 { LANG_AZERI, SUBLANG_NEUTRAL, 1254 },
362 { LANG_AZERI, SUBLANG_AZERI_CYRILLIC, 1251 },
363 { LANG_BASHKIR, SUBLANG_NEUTRAL, 1251 },
364 { LANG_BASQUE, SUBLANG_NEUTRAL, 1252 },
365 { LANG_BELARUSIAN, SUBLANG_NEUTRAL, 1251 },
366 { LANG_BENGALI, SUBLANG_NEUTRAL, 0 },
367 { LANG_BOSNIAN, SUBLANG_NEUTRAL, 1250 },
368 { LANG_BOSNIAN, SUBLANG_BOSNIAN_BOSNIA_HERZEGOVINA_CYRILLIC, 1251 },
369 { LANG_BRETON, SUBLANG_NEUTRAL, 1252 },
370 { LANG_BULGARIAN, SUBLANG_NEUTRAL, 1251 },
371 { LANG_CATALAN, SUBLANG_NEUTRAL, 1252 },
372 { LANG_CHINESE, SUBLANG_NEUTRAL, 950 },
373 { LANG_CHINESE, SUBLANG_CHINESE_SIMPLIFIED, 936 },
374 { LANG_CHINESE, SUBLANG_CHINESE_SINGAPORE, 936 },
375 #ifdef LANG_CORNISH
376 { LANG_CORNISH, SUBLANG_NEUTRAL, 1252 },
377 #endif /* LANG_CORNISH */
378 { LANG_CORSICAN, SUBLANG_NEUTRAL, 1252 },
379 { LANG_CROATIAN, SUBLANG_NEUTRAL, 1250 },
380 { LANG_CZECH, SUBLANG_NEUTRAL, 1250 },
381 { LANG_DANISH, SUBLANG_NEUTRAL, 1252 },
382 { LANG_DARI, SUBLANG_NEUTRAL, 1256 },
383 { LANG_DIVEHI, SUBLANG_NEUTRAL, 0 },
384 { LANG_DUTCH, SUBLANG_NEUTRAL, 1252 },
385 { LANG_ENGLISH, SUBLANG_NEUTRAL, 1252 },
386 #ifdef LANG_ESPERANTO
387 { LANG_ESPERANTO, SUBLANG_NEUTRAL, 1252 },
388 #endif /* LANG_ESPERANTO */
389 { LANG_ESTONIAN, SUBLANG_NEUTRAL, 1257 },
390 { LANG_FAEROESE, SUBLANG_NEUTRAL, 1252 },
391 { LANG_FILIPINO, SUBLANG_NEUTRAL, 1252 },
392 { LANG_FINNISH, SUBLANG_NEUTRAL, 1252 },
393 { LANG_FRENCH, SUBLANG_NEUTRAL, 1252 },
394 { LANG_FRISIAN, SUBLANG_NEUTRAL, 1252 },
395 #ifdef LANG_GAELIC
396 { LANG_GAELIC, SUBLANG_NEUTRAL, 1252 },
397 #endif /* LANG_GAELIC */
398 { LANG_GALICIAN, SUBLANG_NEUTRAL, 1252 },
399 { LANG_GEORGIAN, SUBLANG_NEUTRAL, 0 },
400 { LANG_GERMAN, SUBLANG_NEUTRAL, 1252 },
401 { LANG_GREEK, SUBLANG_NEUTRAL, 1253 },
402 { LANG_GREENLANDIC, SUBLANG_NEUTRAL, 1252 },
403 { LANG_GUJARATI, SUBLANG_NEUTRAL, 0 },
404 { LANG_HAUSA, SUBLANG_NEUTRAL, 1252 },
405 { LANG_HEBREW, SUBLANG_NEUTRAL, 1255 },
406 { LANG_HINDI, SUBLANG_NEUTRAL, 0 },
407 { LANG_HUNGARIAN, SUBLANG_NEUTRAL, 1250 },
408 { LANG_ICELANDIC, SUBLANG_NEUTRAL, 1252 },
409 { LANG_IGBO, SUBLANG_NEUTRAL, 1252 },
410 { LANG_INDONESIAN, SUBLANG_NEUTRAL, 1252 },
411 { LANG_INUKTITUT, SUBLANG_NEUTRAL, 0 },
412 { LANG_INUKTITUT, SUBLANG_INUKTITUT_CANADA_LATIN, 0 },
413 { LANG_IRISH, SUBLANG_NEUTRAL, 1252 },
414 { LANG_ITALIAN, SUBLANG_NEUTRAL, 1252 },
415 { LANG_JAPANESE, SUBLANG_NEUTRAL, 932 },
416 { LANG_KANNADA, SUBLANG_NEUTRAL, 0 },
417 { LANG_KAZAK, SUBLANG_NEUTRAL, 1251 },
418 { LANG_KHMER, SUBLANG_NEUTRAL, 0 },
419 { LANG_KICHE, SUBLANG_NEUTRAL, 1252 },
420 { LANG_KINYARWANDA, SUBLANG_NEUTRAL, 1252 },
421 { LANG_KONKANI, SUBLANG_NEUTRAL, 0 },
422 { LANG_KOREAN, SUBLANG_NEUTRAL, 949 },
423 { LANG_KYRGYZ, SUBLANG_NEUTRAL, 1251 },
424 { LANG_LAO, SUBLANG_NEUTRAL, 0 },
425 { LANG_LATVIAN, SUBLANG_NEUTRAL, 1257 },
426 { LANG_LITHUANIAN, SUBLANG_NEUTRAL, 1257 },
427 { LANG_LOWER_SORBIAN, SUBLANG_NEUTRAL, 1252 },
428 { LANG_LUXEMBOURGISH, SUBLANG_NEUTRAL, 1252 },
429 { LANG_MACEDONIAN, SUBLANG_NEUTRAL, 1251 },
430 { LANG_MALAY, SUBLANG_NEUTRAL, 1252 },
431 { LANG_MALAYALAM, SUBLANG_NEUTRAL, 0 },
432 { LANG_MALTESE, SUBLANG_NEUTRAL, 0 },
433 { LANG_MAORI, SUBLANG_NEUTRAL, 0 },
434 { LANG_MAPUDUNGUN, SUBLANG_NEUTRAL, 1252 },
435 { LANG_MARATHI, SUBLANG_NEUTRAL, 0 },
436 { LANG_MOHAWK, SUBLANG_NEUTRAL, 1252 },
437 { LANG_MONGOLIAN, SUBLANG_NEUTRAL, 1251 },
438 { LANG_NEPALI, SUBLANG_NEUTRAL, 0 },
439 { LANG_NEUTRAL, SUBLANG_NEUTRAL, 1252 },
440 { LANG_NORWEGIAN, SUBLANG_NEUTRAL, 1252 },
441 { LANG_OCCITAN, SUBLANG_NEUTRAL, 1252 },
442 { LANG_ORIYA, SUBLANG_NEUTRAL, 0 },
443 { LANG_PASHTO, SUBLANG_NEUTRAL, 0 },
444 { LANG_PERSIAN, SUBLANG_NEUTRAL, 1256 },
445 { LANG_POLISH, SUBLANG_NEUTRAL, 1250 },
446 { LANG_PORTUGUESE, SUBLANG_NEUTRAL, 1252 },
447 { LANG_PUNJABI, SUBLANG_NEUTRAL, 0 },
448 { LANG_QUECHUA, SUBLANG_NEUTRAL, 1252 },
449 { LANG_ROMANIAN, SUBLANG_NEUTRAL, 1250 },
450 { LANG_ROMANSH, SUBLANG_NEUTRAL, 1252 },
451 { LANG_RUSSIAN, SUBLANG_NEUTRAL, 1251 },
452 { LANG_SAMI, SUBLANG_NEUTRAL, 1252 },
453 { LANG_SANSKRIT, SUBLANG_NEUTRAL, 0 },
454 { LANG_SERBIAN, SUBLANG_NEUTRAL, 1250 },
455 { LANG_SERBIAN, SUBLANG_SERBIAN_CYRILLIC, 1251 },
456 { LANG_SINHALESE, SUBLANG_NEUTRAL, 0 },
457 { LANG_SLOVAK, SUBLANG_NEUTRAL, 1250 },
458 { LANG_SLOVENIAN, SUBLANG_NEUTRAL, 1250 },
459 { LANG_SOTHO, SUBLANG_NEUTRAL, 1252 },
460 { LANG_SPANISH, SUBLANG_NEUTRAL, 1252 },
461 { LANG_SWAHILI, SUBLANG_NEUTRAL, 1252 },
462 { LANG_SWEDISH, SUBLANG_NEUTRAL, 1252 },
463 { LANG_SYRIAC, SUBLANG_NEUTRAL, 0 },
464 { LANG_TAJIK, SUBLANG_NEUTRAL, 1251 },
465 { LANG_TAMAZIGHT, SUBLANG_NEUTRAL, 1252 },
466 { LANG_TAMIL, SUBLANG_NEUTRAL, 0 },
467 { LANG_TATAR, SUBLANG_NEUTRAL, 1251 },
468 { LANG_TELUGU, SUBLANG_NEUTRAL, 0 },
469 { LANG_THAI, SUBLANG_NEUTRAL, 874 },
470 { LANG_TIBETAN, SUBLANG_NEUTRAL, 0 },
471 { LANG_TSWANA, SUBLANG_NEUTRAL, 1252 },
472 { LANG_TURKISH, SUBLANG_NEUTRAL, 1254 },
473 { LANG_TURKMEN, SUBLANG_NEUTRAL, 1250 },
474 { LANG_UIGHUR, SUBLANG_NEUTRAL, 1256 },
475 { LANG_UKRAINIAN, SUBLANG_NEUTRAL, 1251 },
476 { LANG_UPPER_SORBIAN, SUBLANG_NEUTRAL, 1252 },
477 { LANG_URDU, SUBLANG_NEUTRAL, 1256 },
478 { LANG_UZBEK, SUBLANG_NEUTRAL, 1254 },
479 { LANG_UZBEK, SUBLANG_UZBEK_CYRILLIC, 1251 },
480 { LANG_VIETNAMESE, SUBLANG_NEUTRAL, 1258 },
481 #ifdef LANG_WALON
482 { LANG_WALON, SUBLANG_NEUTRAL, 1252 },
483 #endif /* LANG_WALON */
484 { LANG_WELSH, SUBLANG_NEUTRAL, 1252 },
485 { LANG_WOLOF, SUBLANG_NEUTRAL, 1252 },
486 { LANG_XHOSA, SUBLANG_NEUTRAL, 1252 },
487 { LANG_YAKUT, SUBLANG_NEUTRAL, 1251 },
488 { LANG_YI, SUBLANG_NEUTRAL, 0 },
489 { LANG_YORUBA, SUBLANG_NEUTRAL, 1252 },
490 { LANG_ZULU, SUBLANG_NEUTRAL, 1252 }
491 };
492
493 int get_language_codepage( unsigned short lang, unsigned short sublang )
494 {
495 unsigned int i;
496 int cp = -1, defcp = -1;
497
498 for (i = 0; i < sizeof(lang2cps)/sizeof(lang2cps[0]); i++)
499 {
500 if (lang2cps[i].lang != lang) continue;
501 if (lang2cps[i].sublang == sublang)
502 {
503 cp = lang2cps[i].cp;
504 break;
505 }
506 if (lang2cps[i].sublang == SUBLANG_NEUTRAL) defcp = lang2cps[i].cp;
507 }
508
509 if (cp == -1) cp = defcp;
510 assert( cp <= 0 || wine_cp_get_table(cp) );
511 return cp;
512 }
513
This page was automatically generated by the
LXR engine.
Visit the LXR main site for more
information.