| /* |
| * Wine Message Compiler output generation |
| * |
| * Copyright 2000 Bertho A. Stultiens (BS) |
| * |
| * This library is free software; you can redistribute it and/or |
| * modify it under the terms of the GNU Lesser General Public |
| * License as published by the Free Software Foundation; either |
| * version 2.1 of the License, or (at your option) any later version. |
| * |
| * This library is distributed in the hope that it will be useful, |
| * but WITHOUT ANY WARRANTY; without even the implied warranty of |
| * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| * Lesser General Public License for more details. |
| * |
| * You should have received a copy of the GNU Lesser General Public |
| * License along with this library; if not, write to the Free Software |
| * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301, USA |
| */ |
| |
| #include "config.h" |
| #include "wine/port.h" |
| |
| #include <stdio.h> |
| #include <stdlib.h> |
| #include <string.h> |
| #include <assert.h> |
| #include <ctype.h> |
| |
| #include "wmc.h" |
| #include "utils.h" |
| #include "lang.h" |
| #include "write.h" |
| |
| /* |
| * The binary resource layout is as follows: |
| * |
| * +===============+ |
| * Header | NBlocks | |
| * +===============+ |
| * Block 0 | Low ID | |
| * +---------------+ |
| * | High ID | |
| * +---------------+ |
| * | Offset |---+ |
| * +===============+ | |
| * Block 1 | Low ID | | |
| * +---------------+ | |
| * | High ID | | |
| * +---------------+ | |
| * | Offset |------+ |
| * +===============+ | | |
| * | | | | |
| * ... ... | | |
| * | | | | |
| * +===============+ <-+ | |
| * B0 LoID | Len | Flags | | |
| * +---+---+---+---+ | |
| * | b | l | a | b | | |
| * +---+---+---+---+ | |
| * | l | a | \0| \0| | |
| * +===============+ | |
| * | | | |
| * ... ... | |
| * | | | |
| * +===============+ | |
| * B0 HiID | Len | Flags | | |
| * +---+---+---+---+ | |
| * | M | o | r | e | | |
| * +---+---+---+---+ | |
| * | b | l | a | \0| | |
| * +===============+ <----+ |
| * B1 LoID | Len | Flags | |
| * +---+---+---+---+ |
| * | J | u | n | k | |
| * +---+---+---+---+ |
| * | \0| \0| \0| \0| |
| * +===============+ |
| * | | |
| * ... ... |
| * | | |
| * +===============+ |
| * |
| * All Fields are aligned on their natural boundaries. The length |
| * field (Len) covers both the length of the string and the header |
| * fields (Len and Flags). Strings are '\0' terminated. Flags is 0 |
| * for normal character strings and 1 for unicode strings. |
| */ |
| |
| static const char str_header[] = |
| "/* This file is generated with wmc version " PACKAGE_VERSION ". Do not edit! */\n" |
| "/* Source : %s */\n" |
| "/* Cmdline: %s */\n" |
| "/* Date : %s */\n" |
| "\n" |
| ; |
| |
| static char *dup_u2c(int cp, const WCHAR *uc) |
| { |
| int len; |
| char *cptr; |
| const union cptable *cpdef = find_codepage(cp); |
| |
| if(cpdef) |
| len = wine_cp_wcstombs(cpdef, 0, uc, unistrlen(uc)+1, NULL, 0, NULL, NULL); |
| else |
| len = wine_utf8_wcstombs(0, uc, unistrlen(uc)+1, NULL, 0); |
| cptr = xmalloc(len); |
| if (cpdef) |
| len = wine_cp_wcstombs(cpdef, 0, uc, unistrlen(uc)+1, cptr, len, NULL, NULL); |
| else |
| len = wine_utf8_wcstombs(0, uc, unistrlen(uc)+1, cptr, len); |
| if (len < 0) |
| internal_error(__FILE__, __LINE__, "Buffer overflow? code %d\n", len); |
| return cptr; |
| } |
| |
| static void killnl(char *s, int ddd) |
| { |
| char *tmp; |
| tmp = strstr(s, "\r\n"); |
| if(tmp) |
| { |
| if(ddd && tmp - s > 3) |
| { |
| tmp[0] = tmp[1] = tmp[2] = '.'; |
| tmp[3] = '\0'; |
| } |
| else |
| *tmp = '\0'; |
| } |
| tmp = strchr(s, '\n'); |
| if(tmp) |
| { |
| if(ddd && tmp - s > 3) |
| { |
| tmp[0] = tmp[1] = tmp[2] = '.'; |
| tmp[3] = '\0'; |
| } |
| else |
| *tmp = '\0'; |
| } |
| } |
| |
| static int killcomment(char *s) |
| { |
| char *tmp = s; |
| int b = 0; |
| while((tmp = strstr(tmp, "/*"))) |
| { |
| tmp[1] = 'x'; |
| b++; |
| } |
| tmp = s; |
| while((tmp = strstr(tmp, "*/"))) |
| { |
| tmp[0] = 'x'; |
| b++; |
| } |
| return b; |
| } |
| |
| void write_h_file(const char *fname) |
| { |
| node_t *ndp; |
| char *cptr; |
| char *cast; |
| FILE *fp; |
| token_t *ttab; |
| int ntab; |
| int i; |
| int once = 0; |
| int idx_en = 0; |
| |
| fp = fopen(fname, "w"); |
| if(!fp) |
| { |
| perror(fname); |
| exit(1); |
| } |
| cptr = ctime(&now); |
| killnl(cptr, 0); |
| fprintf(fp, str_header, input_name ? input_name : "<stdin>", cmdline, cptr); |
| fprintf(fp, "#ifndef __WMCGENERATED_%08lx_H\n", (long)now); |
| fprintf(fp, "#define __WMCGENERATED_%08lx_H\n", (long)now); |
| fprintf(fp, "\n"); |
| |
| /* Write severity and facility aliases */ |
| get_tokentable(&ttab, &ntab); |
| fprintf(fp, "/* Severity codes */\n"); |
| for(i = 0; i < ntab; i++) |
| { |
| if(ttab[i].type == tok_severity && ttab[i].alias) |
| { |
| cptr = dup_u2c(WMC_DEFAULT_CODEPAGE, ttab[i].alias); |
| fprintf(fp, "#define %s\t0x%x\n", cptr, ttab[i].token); |
| free(cptr); |
| } |
| } |
| fprintf(fp, "\n"); |
| |
| fprintf(fp, "/* Facility codes */\n"); |
| for(i = 0; i < ntab; i++) |
| { |
| if(ttab[i].type == tok_facility && ttab[i].alias) |
| { |
| cptr = dup_u2c(WMC_DEFAULT_CODEPAGE, ttab[i].alias); |
| fprintf(fp, "#define %s\t0x%x\n", cptr, ttab[i].token); |
| free(cptr); |
| } |
| } |
| fprintf(fp, "\n"); |
| |
| /* Write the message codes */ |
| fprintf(fp, "/* Message definitions */\n"); |
| for(ndp = nodehead; ndp; ndp = ndp->next) |
| { |
| switch(ndp->type) |
| { |
| case nd_comment: |
| cptr = dup_u2c(WMC_DEFAULT_CODEPAGE, ndp->u.comment+1); |
| killnl(cptr, 0); |
| killcomment(cptr); |
| if(*cptr) |
| fprintf(fp, "/* %s */\n", cptr); |
| else |
| fprintf(fp, "\n"); |
| free(cptr); |
| break; |
| case nd_msg: |
| if(!once) |
| { |
| /* |
| * Search for an english text. |
| * If not found, then use the first in the list |
| */ |
| once++; |
| for(i = 0; i < ndp->u.msg->nmsgs; i++) |
| { |
| if(ndp->u.msg->msgs[i]->lan == 0x409) |
| { |
| idx_en = i; |
| break; |
| } |
| } |
| fprintf(fp, "\n"); |
| } |
| fprintf(fp, "/* MessageId : 0x%08x */\n", ndp->u.msg->realid); |
| cptr = dup_u2c(ndp->u.msg->msgs[idx_en]->cp, ndp->u.msg->msgs[idx_en]->msg); |
| killnl(cptr, 0); |
| killcomment(cptr); |
| fprintf(fp, "/* Approximate msg: %s */\n", cptr); |
| free(cptr); |
| cptr = dup_u2c(WMC_DEFAULT_CODEPAGE, ndp->u.msg->sym); |
| if(ndp->u.msg->cast) |
| cast = dup_u2c(WMC_DEFAULT_CODEPAGE, ndp->u.msg->cast); |
| else |
| cast = NULL; |
| switch(ndp->u.msg->base) |
| { |
| case 8: |
| if(cast) |
| fprintf(fp, "#define %s\t((%s)0%oL)\n\n", cptr, cast, ndp->u.msg->realid); |
| else |
| fprintf(fp, "#define %s\t0%oL\n\n", cptr, ndp->u.msg->realid); |
| break; |
| case 10: |
| if(cast) |
| fprintf(fp, "#define %s\t((%s)%dL)\n\n", cptr, cast, ndp->u.msg->realid); |
| else |
| fprintf(fp, "#define %s\t%dL\n\n", cptr, ndp->u.msg->realid); |
| break; |
| case 16: |
| if(cast) |
| fprintf(fp, "#define %s\t((%s)0x%08xL)\n\n", cptr, cast, ndp->u.msg->realid); |
| else |
| fprintf(fp, "#define %s\t0x%08xL\n\n", cptr, ndp->u.msg->realid); |
| break; |
| default: |
| internal_error(__FILE__, __LINE__, "Invalid base for number print\n"); |
| } |
| free(cptr); |
| free(cast); |
| break; |
| default: |
| internal_error(__FILE__, __LINE__, "Invalid node type %d\n", ndp->type); |
| } |
| } |
| fprintf(fp, "\n#endif\n"); |
| fclose(fp); |
| } |
| |
| static void write_rcbin(FILE *fp) |
| { |
| lan_blk_t *lbp; |
| token_t *ttab; |
| int ntab; |
| int i; |
| |
| get_tokentable(&ttab, &ntab); |
| |
| for(lbp = lanblockhead; lbp; lbp = lbp->next) |
| { |
| char *cptr = NULL; |
| fprintf(fp, "LANGUAGE 0x%x, 0x%x\n", lbp->lan & 0x3ff, lbp->lan >> 10); |
| for(i = 0; i < ntab; i++) |
| { |
| if(ttab[i].type == tok_language && ttab[i].token == lbp->lan) |
| { |
| if(ttab[i].alias) |
| cptr = dup_u2c(WMC_DEFAULT_CODEPAGE, ttab[i].alias); |
| break; |
| } |
| } |
| if(!cptr) |
| internal_error(__FILE__, __LINE__, "Filename vanished for language 0x%0x\n", lbp->lan); |
| fprintf(fp, "1 MESSAGETABLE \"%s.bin\"\n", cptr); |
| free(cptr); |
| } |
| } |
| |
| static char *make_string(WCHAR *uc, int len, int codepage) |
| { |
| char *str = xmalloc(7*len + 1); |
| char *cptr = str; |
| int i; |
| int b; |
| |
| if(!codepage) |
| { |
| *cptr++ = ' '; |
| *cptr++ = 'L'; |
| *cptr++ = '"'; |
| for(i = b = 0; i < len; i++, uc++) |
| { |
| switch(*uc) |
| { |
| case '\a': *cptr++ = '\\'; *cptr++ = 'a'; b += 2; break; |
| case '\b': *cptr++ = '\\'; *cptr++ = 'b'; b += 2; break; |
| case '\f': *cptr++ = '\\'; *cptr++ = 'f'; b += 2; break; |
| case '\n': *cptr++ = '\\'; *cptr++ = 'n'; b += 2; break; |
| case '\r': *cptr++ = '\\'; *cptr++ = 'r'; b += 2; break; |
| case '\t': *cptr++ = '\\'; *cptr++ = 't'; b += 2; break; |
| case '\v': *cptr++ = '\\'; *cptr++ = 'v'; b += 2; break; |
| case '\\': *cptr++ = '\\'; *cptr++ = '\\'; b += 2; break; |
| case '"': *cptr++ = '\\'; *cptr++ = '"'; b += 2; break; |
| default: |
| if (*uc < 0x100 && isprint(*uc)) |
| { |
| *cptr++ = *uc; |
| b++; |
| } |
| else |
| { |
| int n = sprintf(cptr, "\\x%04x", *uc & 0xffff); |
| cptr += n; |
| b += n; |
| } |
| break; |
| } |
| if(i < len-1 && b >= 72) |
| { |
| *cptr++ = '"'; |
| *cptr++ = ','; |
| *cptr++ = '\n'; |
| *cptr++ = ' '; |
| *cptr++ = 'L'; |
| *cptr++ = '"'; |
| b = 0; |
| } |
| } |
| if (unicodeout) |
| len = (len + 1) & ~1; |
| else |
| len = (len + 3) & ~3; |
| for(; i < len; i++) |
| { |
| *cptr++ = '\\'; |
| *cptr++ = 'x'; |
| *cptr++ = '0'; |
| *cptr++ = '0'; |
| *cptr++ = '0'; |
| *cptr++ = '0'; |
| } |
| *cptr++ = '"'; |
| *cptr = '\0'; |
| } |
| else |
| { |
| char *tmp, *cc; |
| int mlen; |
| const union cptable *cpdef = find_codepage(codepage); |
| |
| if (cpdef) |
| mlen = wine_cp_wcstombs(cpdef, 0, uc, unistrlen(uc)+1, NULL, 0, NULL, NULL); |
| else |
| mlen = wine_utf8_wcstombs(0, uc, unistrlen(uc)+1, NULL, 0); |
| cc = tmp = xmalloc(mlen); |
| if (cpdef) { |
| if((i = wine_cp_wcstombs(cpdef, 0, uc, unistrlen(uc)+1, tmp, mlen, NULL, NULL)) < 0) |
| internal_error(__FILE__, __LINE__, "Buffer overflow? code %d\n", i); |
| } else { |
| if((i = wine_utf8_wcstombs(0, uc, unistrlen(uc)+1, tmp, mlen)) < 0) |
| internal_error(__FILE__, __LINE__, "Buffer overflow? code %d\n", i); |
| } |
| *cptr++ = ' '; |
| *cptr++ = '"'; |
| for(i = b = 0; i < len; i++, cc++) |
| { |
| switch(*cc) |
| { |
| case '\a': *cptr++ = '\\'; *cptr++ = 'a'; b += 2; break; |
| case '\b': *cptr++ = '\\'; *cptr++ = 'b'; b += 2; break; |
| case '\f': *cptr++ = '\\'; *cptr++ = 'f'; b += 2; break; |
| case '\n': *cptr++ = '\\'; *cptr++ = 'n'; b += 2; break; |
| case '\r': *cptr++ = '\\'; *cptr++ = 'r'; b += 2; break; |
| case '\t': *cptr++ = '\\'; *cptr++ = 't'; b += 2; break; |
| case '\v': *cptr++ = '\\'; *cptr++ = 'v'; b += 2; break; |
| case '\\': *cptr++ = '\\'; *cptr++ = '\\'; b += 2; break; |
| case '"': *cptr++ = '\\'; *cptr++ = '"'; b += 2; break; |
| default: |
| if(isprint(*cc)) |
| { |
| *cptr++ = *cc; |
| b++; |
| } |
| else |
| { |
| int n = sprintf(cptr, "\\x%02x", *cc & 0xff); |
| cptr += n; |
| b += n; |
| } |
| break; |
| } |
| if(i < len-1 && b >= 72) |
| { |
| *cptr++ = '"'; |
| *cptr++ = ','; |
| *cptr++ = '\n'; |
| *cptr++ = ' '; |
| *cptr++ = '"'; |
| b = 0; |
| } |
| } |
| len = (len + 3) & ~3; |
| for(; i < len; i++) |
| { |
| *cptr++ = '\\'; |
| *cptr++ = 'x'; |
| *cptr++ = '0'; |
| *cptr++ = '0'; |
| } |
| *cptr++ = '"'; |
| *cptr = '\0'; |
| free(tmp); |
| } |
| return str; |
| } |
| |
| static void write_rcinline(FILE *fp) |
| { |
| lan_blk_t *lbp; |
| int i; |
| int j; |
| |
| for(lbp = lanblockhead; lbp; lbp = lbp->next) |
| { |
| unsigned offs = 4 * (lbp->nblk * 3 + 1); |
| fprintf(fp, "\n1 MESSAGETABLE\n"); |
| fprintf(fp, "LANGUAGE 0x%x, 0x%x\n", lbp->lan & 0x3ff, lbp->lan >> 10); |
| fprintf(fp, "{\n"); |
| fprintf(fp, " /* NBlocks */ 0x%08xL,\n", lbp->nblk); |
| for(i = 0; i < lbp->nblk; i++) |
| { |
| fprintf(fp, " /* Lo,Hi,Offs */ 0x%08xL, 0x%08xL, 0x%08xL,\n", |
| lbp->blks[i].idlo, |
| lbp->blks[i].idhi, |
| offs); |
| offs += lbp->blks[i].size; |
| } |
| for(i = 0; i < lbp->nblk; i++) |
| { |
| block_t *blk = &lbp->blks[i]; |
| for(j = 0; j < blk->nmsg; j++) |
| { |
| char *cptr; |
| int l = blk->msgs[j]->len; |
| const char *comma = j == blk->nmsg-1 && i == lbp->nblk-1 ? "" : ","; |
| cptr = make_string(blk->msgs[j]->msg, l, unicodeout ? 0 : blk->msgs[j]->cp); |
| fprintf(fp, "\n /* Msg 0x%08x */ 0x%04x, 0x000%c,\n", |
| blk->idlo + j, |
| (unicodeout ? (l*2+3)&~3 : (l+3)&~3) + 4, |
| unicodeout ? '1' : '0'); |
| fprintf(fp, "%s%s\n", cptr, comma); |
| free(cptr); |
| } |
| } |
| fprintf(fp, "}\n"); |
| } |
| } |
| |
| void write_rc_file(const char *fname) |
| { |
| FILE *fp; |
| char *cptr; |
| |
| fp = fopen(fname, "w"); |
| if(!fp) |
| { |
| perror(fname); |
| exit(1); |
| } |
| cptr = ctime(&now); |
| killnl(cptr, 0); |
| fprintf(fp, str_header, input_name ? input_name : "<stdin>", cmdline, cptr); |
| |
| if(rcinline) |
| write_rcinline(fp); |
| else |
| write_rcbin(fp); |
| fclose(fp); |
| } |
| |
| void write_bin_files(void) |
| { |
| assert(rcinline == 0); |
| } |
