2 * Wine Message Compiler output generation
4 * Copyright 2000 Bertho A. Stultiens (BS)
21 * The binary resource layout is as follows:
32 * Block 1 | Low ID | |
37 * +===============+ | |
41 * +===============+ <-+ |
42 * B0 LoID | Len | Flags | |
52 * B0 HiID | Len | Flags | |
57 * +===============+ <----+
58 * B1 LoID | Len | Flags |
69 * All Fields are aligned on their natural boundaries. The length
70 * field (Len) covers both the length of the string and the header
71 * fields (Len and Flags). Strings are '\0' terminated. Flags is 0
72 * for normal character strings and 1 for unicode strings.
75 static char str_header
[] =
76 "/* This file is generated with wmc version " WMC_FULLVERSION
". Do not edit! */\n"
83 static char *dup_u2c(int cp
, const WCHAR
*uc
)
85 int len
= unistrlen(uc
);
86 char *cptr
= xmalloc(len
+1);
87 // const union cptable *cpdef = find_codepage(cp);
89 // internal_error(__FILE__, __LINE__, "Codepage %d not found (vanished?)", cp);
90 // if((len = cp_wcstombs(cpdef, 0, uc, unistrlen(uc)+1, cptr, len+1, NULL, NULL)) < 0)
91 if((len
= WideCharToMultiByte(cp
, 0, uc
, unistrlen(uc
)+1, cptr
, len
+1, NULL
, NULL
)) < 0)
92 internal_error(__FILE__
, __LINE__
, "Buffer overflow? code %d.", len
);
96 static void killnl(char *s
, int ddd
)
99 tmp
= strstr(s
, "\r\n");
102 if(ddd
&& tmp
- s
> 3)
104 tmp
[0] = tmp
[1] = tmp
[2] = '.';
110 tmp
= strchr(s
, '\n');
113 if(ddd
&& tmp
- s
> 3)
115 tmp
[0] = tmp
[1] = tmp
[2] = '.';
123 static int killcomment(char *s
)
127 while((tmp
= strstr(tmp
, "/*")))
133 while((tmp
= strstr(tmp
, "*/")))
141 void write_h_file(const char *fname
)
153 fp
= fopen(fname
, "w");
161 fprintf(fp
, str_header
, input_name
? input_name
: "<stdin>", cmdline
, cptr
);
162 fprintf(fp
, "#ifndef __WMCGENERATED_%08lx_H\n", now
);
163 fprintf(fp
, "#define __WMCGENERATED_%08lx_H\n", now
);
166 /* Write severity and facility aliases */
167 get_tokentable(&ttab
, &ntab
);
168 fprintf(fp
, "/* Severity codes */\n");
169 for(i
= 0; i
< ntab
; i
++)
171 if(ttab
[i
].type
== tok_severity
&& ttab
[i
].alias
)
173 cptr
= dup_u2c(WMC_DEFAULT_CODEPAGE
, ttab
[i
].alias
);
174 fprintf(fp
, "#define %s\t0x%x\n", cptr
, ttab
[i
].token
);
180 fprintf(fp
, "/* Facility codes */\n");
181 for(i
= 0; i
< ntab
; i
++)
183 if(ttab
[i
].type
== tok_facility
&& ttab
[i
].alias
)
185 cptr
= dup_u2c(WMC_DEFAULT_CODEPAGE
, ttab
[i
].alias
);
186 fprintf(fp
, "#define %s\t0x%x\n", cptr
, ttab
[i
].token
);
192 /* Write the message codes */
193 fprintf(fp
, "/* Message definitions */\n");
194 for(ndp
= nodehead
; ndp
; ndp
= ndp
->next
)
199 cptr
= dup_u2c(WMC_DEFAULT_CODEPAGE
, ndp
->u
.comment
+1);
203 fprintf(fp
, "/* %s */\n", cptr
);
212 * Search for an english text.
213 * If not found, then use the first in the list
216 for(i
= 0; i
< ndp
->u
.msg
->nmsgs
; i
++)
218 if(ndp
->u
.msg
->msgs
[i
]->lan
== 0x409)
226 fprintf(fp
, "/* MessageId : 0x%08x */\n", ndp
->u
.msg
->realid
);
227 cptr
= dup_u2c(ndp
->u
.msg
->msgs
[idx_en
]->cp
, ndp
->u
.msg
->msgs
[idx_en
]->msg
);
230 fprintf(fp
, "/* Approx. msg: %s */\n", cptr
);
232 cptr
= dup_u2c(WMC_DEFAULT_CODEPAGE
, ndp
->u
.msg
->sym
);
234 cast
= dup_u2c(WMC_DEFAULT_CODEPAGE
, ndp
->u
.msg
->cast
);
237 switch(ndp
->u
.msg
->base
)
241 fprintf(fp
, "#define %s\t((%s)0%oL)\n\n", cptr
, cast
, ndp
->u
.msg
->realid
);
243 fprintf(fp
, "#define %s\t0%oL\n\n", cptr
, ndp
->u
.msg
->realid
);
247 fprintf(fp
, "#define %s\t((%s)%dL)\n\n", cptr
, cast
, ndp
->u
.msg
->realid
);
249 fprintf(fp
, "#define %s\t%dL\n\n", cptr
, ndp
->u
.msg
->realid
);
253 fprintf(fp
, "#define %s\t((%s)0x%08xL)\n\n", cptr
, cast
, ndp
->u
.msg
->realid
);
255 fprintf(fp
, "#define %s\t0x%08xL\n\n", cptr
, ndp
->u
.msg
->realid
);
258 internal_error(__FILE__
, __LINE__
, "Invalid base for number print");
265 internal_error(__FILE__
, __LINE__
, "Invalid node type %d", ndp
->type
);
268 fprintf(fp
, "\n#endif\n");
272 static void write_rcbin(FILE *fp
)
279 get_tokentable(&ttab
, &ntab
);
281 for(lbp
= lanblockhead
; lbp
; lbp
= lbp
->next
)
284 fprintf(fp
, "LANGUAGE 0x%x, 0x%x\n", lbp
->lan
& 0x3ff, lbp
->lan
>> 10);
285 for(i
= 0; i
< ntab
; i
++)
287 if(ttab
[i
].type
== tok_language
&& ttab
[i
].token
== lbp
->lan
)
290 cptr
= dup_u2c(WMC_DEFAULT_CODEPAGE
, ttab
[i
].alias
);
295 internal_error(__FILE__
, __LINE__
, "Filename vanished for language 0x%0x", lbp
->lan
);
296 fprintf(fp
, "1 MESSAGETABLE \"%s.bin\"\n", cptr
);
301 static char *make_string(WCHAR
*uc
, int len
, int codepage
)
303 char *str
= xmalloc(7*len
+ 1);
313 for(i
= b
= 0; i
< len
; i
++, uc
++)
327 case '\a': *cptr
++ = '\\'; *cptr
++ = 'a'; b
+= 2; break;
328 case '\b': *cptr
++ = '\\'; *cptr
++ = 'b'; b
+= 2; break;
329 case '\f': *cptr
++ = '\\'; *cptr
++ = 'f'; b
+= 2; break;
330 case '\n': *cptr
++ = '\\'; *cptr
++ = 'n'; b
+= 2; break;
331 case '\r': *cptr
++ = '\\'; *cptr
++ = 'r'; b
+= 2; break;
332 case '\t': *cptr
++ = '\\'; *cptr
++ = 't'; b
+= 2; break;
333 case '\v': *cptr
++ = '\\'; *cptr
++ = 'v'; b
+= 2; break;
334 case '\\': *cptr
++ = '\\'; *cptr
++ = '\\'; b
+= 2; break;
335 case '"': *cptr
++ = '\\'; *cptr
++ = '"'; b
+= 2; break;
337 n
= sprintf(cptr
, "\\x%04x", *uc
& 0xffff);
345 n
= sprintf(cptr
, "\\x%04x", *uc
& 0xffff);
349 if(i
< len
-1 && b
>= 72)
360 len
= (len
+ 3) & ~3;
375 char *tmp
= xmalloc(2*len
+1);
377 // const union cptable *cpdef = find_codepage(codepage);
379 // assert(cpdef != NULL);
380 // if((i = cp_wcstombs(cpdef, 0, uc, unistrlen(uc)+1, tmp, 2*len+1, NULL, NULL)) < 0)
381 if((i
= WideCharToMultiByte(codepage
, 0, uc
, unistrlen(uc
)+1, tmp
, 2*len
+1, NULL
, NULL
)) < 0)
382 internal_error(__FILE__
, __LINE__
, "Buffer overflow? code %d.", i
);
385 for(i
= b
= 0; i
< len
; i
++, cc
++)
397 case '\a': *cptr
++ = '\\'; *cptr
++ = 'a'; b
+= 2; break;
398 case '\b': *cptr
++ = '\\'; *cptr
++ = 'b'; b
+= 2; break;
399 case '\f': *cptr
++ = '\\'; *cptr
++ = 'f'; b
+= 2; break;
400 case '\n': *cptr
++ = '\\'; *cptr
++ = 'n'; b
+= 2; break;
401 case '\r': *cptr
++ = '\\'; *cptr
++ = 'r'; b
+= 2; break;
402 case '\t': *cptr
++ = '\\'; *cptr
++ = 't'; b
+= 2; break;
403 case '\v': *cptr
++ = '\\'; *cptr
++ = 'v'; b
+= 2; break;
404 case '\\': *cptr
++ = '\\'; *cptr
++ = '\\'; b
+= 2; break;
405 case '"': *cptr
++ = '\\'; *cptr
++ = '"'; b
+= 2; break;
407 n
= sprintf(cptr
, "\\x%02x", *cc
& 0xff);
412 if(i
< len
-1 && b
>= 72)
422 len
= (len
+ 3) & ~3;
438 static char *make_bin_string(WCHAR
*uc
, int len
, int *retlen
, int codepage
)
440 char *str
= xmalloc(7 * len
+ 1);
446 WCHAR
*cptr
= (WCHAR
*)str
;
448 for(i
= b
= 0; i
< len
; i
++, uc
++)
452 len
= (len
+ 1) & ~1;
461 char *tmp
= xmalloc(2*len
+1);
464 // const union cptable *cpdef = find_codepage(codepage);
466 // assert(cpdef != NULL);
467 // if((i = cp_wcstombs(cpdef, 0, uc, unistrlen(uc)+1, tmp, 2*len+1, NULL, NULL)) < 0)
468 if((i
= WideCharToMultiByte(codepage
, 0, uc
, unistrlen(uc
)+1, tmp
, 2*len
+1, NULL
, NULL
)) < 0)
469 internal_error(__FILE__
, __LINE__
, "Buffer overflow? code %d.", i
);
470 for(i
= b
= 0; i
< len
; i
++, cc
++)
475 len
= (len
+ 3) & ~3;
486 static void write_rcinline(FILE *fp
)
492 for(lbp
= lanblockhead
; lbp
; lbp
= lbp
->next
)
494 unsigned offs
= 4 * (lbp
->nblk
* 3 + 1);
495 fprintf(fp
, "\n1 MESSAGETABLE\n");
496 fprintf(fp
, "LANGUAGE 0x%x, 0x%x\n", lbp
->lan
& 0x3ff, lbp
->lan
>> 10);
498 fprintf(fp
, " /* NBlocks */ 0x%08xL,\n", lbp
->nblk
);
499 for(i
= 0; i
< lbp
->nblk
; i
++)
501 fprintf(fp
, " /* Lo,Hi,Offs */ 0x%08xL, 0x%08xL, 0x%08xL,\n",
505 offs
+= lbp
->blks
[i
].size
;
507 for(i
= 0; i
< lbp
->nblk
; i
++)
509 block_t
*blk
= &lbp
->blks
[i
];
510 for(j
= 0; j
< blk
->nmsg
; j
++)
513 int l
= blk
->msgs
[j
]->len
;
514 char *comma
= j
== blk
->nmsg
-1 && i
== lbp
->nblk
-1 ? "" : ",";
515 cptr
= make_string(blk
->msgs
[j
]->msg
, l
, unicodeout
? 0 : blk
->msgs
[j
]->cp
);
516 fprintf(fp
, "\n /* Msg 0x%08x */ 0x%04x, 0x000%c,\n",
518 (unicodeout
? (l
*2+3)&~3 : (l
+3)&~3)+4,
519 unicodeout
? '1' : '0');
520 fprintf(fp
, "%s%s\n", cptr
, comma
);
528 void write_rc_file(const char *fname
)
533 fp
= fopen(fname
, "w");
541 fprintf(fp
, str_header
, input_name
? input_name
: "<stdin>", cmdline
, cptr
);
550 void write_bin_files(void)
560 get_tokentable(&ttab
, &ntab
);
562 for (lbp
= lanblockhead
; lbp
; lbp
= lbp
->next
)
564 unsigned offs
= 4 * (lbp
->nblk
* 3 + 1);
567 for(i
= 0; i
< ntab
; i
++)
569 if (ttab
[i
].type
== tok_language
&& ttab
[i
].token
== lbp
->lan
)
572 cptr
= dup_u2c(WMC_DEFAULT_CODEPAGE
, ttab
[i
].alias
);
578 internal_error(__FILE__
, __LINE__
, "Filename vanished for language 0x%0x", lbp
->lan
);
579 sprintf(fname
, "%s.bin", cptr
);
582 fp
= fopen(fname
, "wb");
590 fwrite(&lbp
->nblk
, sizeof(unsigned long), 1, fp
);
591 for(i
= 0; i
< lbp
->nblk
; i
++)
594 fwrite(&lbp
->blks
[i
].idlo
, sizeof(unsigned long), 1, fp
);
596 fwrite(&lbp
->blks
[i
].idhi
, sizeof(unsigned long), 1, fp
);
598 fwrite(&offs
, sizeof(unsigned long), 1, fp
);
599 offs
+= lbp
->blks
[i
].size
;
602 for (i
= 0; i
< lbp
->nblk
; i
++)
604 block_t
*blk
= &lbp
->blks
[i
];
605 for (j
= 0; j
< blk
->nmsg
; j
++)
608 int l
= blk
->msgs
[j
]->len
;
611 unsigned short length
= (unicodeout
? (l
*2+3)&~3 : (l
+3)&~3)+4;
612 unsigned short flags
= unicodeout
? 1 : 0;
615 fwrite(&length
, sizeof(unsigned short), 1, fp
);
617 fwrite(&flags
, sizeof(unsigned short), 1, fp
);
620 cptr
= make_bin_string(blk
->msgs
[j
]->msg
, l
, &retlen
, unicodeout
? 0 : blk
->msgs
[j
]->cp
);
621 fwrite(cptr
, retlen
, 1, fp
);