Subversion Repositories SvarDOS

Rev

Rev 437 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 437 Rev 539
Line 28... Line 28...
28
#include <stdio.h>
28
#include <stdio.h>
29
#include <stdlib.h>
29
#include <stdlib.h>
30
#include <string.h>
30
#include <string.h>
31
 
31
 
32
 
32
 
-
 
33
 
-
 
34
struct bitmap {
-
 
35
  unsigned char bits[8192];
-
 
36
};
-
 
37
 
-
 
38
static void bitmap_set(struct bitmap *b, unsigned short id) {
-
 
39
  b->bits[id / 8] |= 1 << (id & 7);
-
 
40
}
-
 
41
 
-
 
42
static int bitmap_get(const struct bitmap *b, unsigned short id) {
-
 
43
  return(b->bits[id / 8] & (1 << (id & 7)));
-
 
44
}
-
 
45
 
-
 
46
static void bitmap_init(struct bitmap *b) {
-
 
47
  memset(b, 0, sizeof(struct bitmap));
-
 
48
}
-
 
49
 
-
 
50
 
-
 
51
 
33
/* read a single line from fd and fills it into dst, returns line length
52
/* read a single line from fd and fills it into dst, returns line length
34
 * ending CR/LF is trimmed, as well as any trailing spaces */
53
 * ending CR/LF is trimmed, as well as any trailing spaces */
35
static unsigned short readl(char *dst, size_t dstsz, FILE *fd) {
54
static unsigned short readl(char *dst, size_t dstsz, FILE *fd) {
36
  unsigned short l, lastnonspace = 0;
55
  unsigned short l, lastnonspace = 0;
37
 
56
 
Line 81... Line 100...
81
  return(s + colpos + 1);
100
  return(s + colpos + 1);
82
}
101
}
83
 
102
 
84
 
103
 
85
/* opens a CATS-style file and compiles it into a ressources lang block */
104
/* opens a CATS-style file and compiles it into a ressources lang block */
86
static unsigned short gen_langstrings(unsigned char *buff, const char *langid) {
105
static unsigned short gen_langstrings(unsigned char *buff, const char *langid, struct bitmap *b, const struct bitmap *refb, const unsigned char *refblock) {
87
  unsigned short len = 0, linelen;
106
  unsigned short len = 0, linelen;
88
  FILE *fd;
107
  FILE *fd;
89
  char fname[] = "NLS\\SVARCOM.XX";
108
  char fname[] = "NLS\\SVARCOM.XX";
90
  char linebuf[512];
109
  char linebuf[512];
91
  char *ptr;
110
  char *ptr;
92
  unsigned short id, linecount;
111
  unsigned short id, linecount;
93
 
112
 
-
 
113
  bitmap_init(b);
-
 
114
 
94
  strcpy(fname + strlen(fname) - 2, langid);
115
  strcpy(fname + strlen(fname) - 2, langid);
95
 
116
 
96
  fd = fopen(fname, "rb");
117
  fd = fopen(fname, "rb");
97
  if (fd == NULL) {
118
  if (fd == NULL) {
98
    printf("ERROR: FAILED TO OPEN '%s'\r\n", fname);
119
    printf("ERROR: FAILED TO OPEN '%s'\r\n", fname);
Line 117... Line 138...
117
    memcpy(buff + len, &id, 2);
138
    memcpy(buff + len, &id, 2);
118
    len += 2;
139
    len += 2;
119
    buff[len++] = strlen(ptr) + 1;
140
    buff[len++] = strlen(ptr) + 1;
120
    memcpy(buff + len, ptr, strlen(ptr) + 1);
141
    memcpy(buff + len, ptr, strlen(ptr) + 1);
121
    len += strlen(ptr) + 1;
142
    len += strlen(ptr) + 1;
-
 
143
 
-
 
144
    /* if reference bitmap provided: check that the id is valid */
-
 
145
    if ((refb != NULL) && (bitmap_get(refb, id) == 0)) {
-
 
146
      printf("WARNING: %s[#%u] has an invalid id (%u.%u not present in ref lang)\r\n", fname, linecount, id >> 8, id & 0xff);
-
 
147
    }
-
 
148
 
-
 
149
    /* make sure this id is not already present */
-
 
150
    if (bitmap_get(b, id) == 0) {
-
 
151
      /* set bit in bitmap to remember I have this string */
-
 
152
      bitmap_set(b, id);
-
 
153
    } else {
-
 
154
      printf("WARNING: %s[#%u] has a duplicated id (%u.%u)\r\n", fname, linecount, id >> 8, id & 0xff);
-
 
155
    }
-
 
156
  }
-
 
157
 
-
 
158
  fclose(fd);
-
 
159
 
-
 
160
  /* if refblock provided, pull missing strings from it */
-
 
161
  if (refblock != NULL) {
-
 
162
    for (;;) {
-
 
163
      id = *((unsigned short *)refblock);
-
 
164
      if ((id == 0) && (refblock[2] == 0)) break;
-
 
165
      if (bitmap_get(b, id) == 0) {
-
 
166
        printf("WARNING: %s is missing string %u.%u (pulled from ref lang)\r\n", fname, id >> 8, id & 0xff);
-
 
167
        /* copy missing string from refblock */
-
 
168
        memcpy(buff + len, refblock, refblock[2] + 3);
-
 
169
        len += refblock[2] + 3;
-
 
170
      }
-
 
171
      refblock += refblock[2] + 3;
-
 
172
    }
122
  }
173
  }
123
 
174
 
124
  /* write the block terminator (0-long string) */
175
  /* write the block terminator (0-long string) */
125
  buff[len++] = 0; /* id */
176
  buff[len++] = 0; /* id */
126
  buff[len++] = 0; /* id */
177
  buff[len++] = 0; /* id */
127
  buff[len++] = 0; /* len */
178
  buff[len++] = 0; /* len */
128
 
179
 
129
  fclose(fd);
-
 
130
 
-
 
131
  return(len);
180
  return(len);
132
}
181
}
133
 
182
 
134
 
183
 
-
 
184
#define MEMBLOCKSZ 65500
-
 
185
 
135
int main(int argc, char **argv) {
186
int main(int argc, char **argv) {
136
  FILE *fd;
187
  FILE *fd;
137
  int ecode = 0;
188
  int ecode = 0;
138
  char *buff;
189
  char *buff, *refblock;
-
 
190
  static struct bitmap bufbitmap;
-
 
191
  static struct bitmap refbitmap;
139
  unsigned short i;
192
  unsigned short i;
140
 
193
 
141
  if (argc < 2) {
194
  if (argc < 2) {
142
    puts("usage: tlumacz en fr pl etc");
195
    puts("usage: tlumacz en fr pl etc");
143
    return(1);
196
    return(1);
144
  }
197
  }
145
 
198
 
146
  buff = malloc(65500);
199
  buff = malloc(MEMBLOCKSZ);
-
 
200
  refblock = malloc(MEMBLOCKSZ);
147
  if (buff == NULL) {
201
  if ((buff == NULL) || (refblock == NULL)) {
148
    puts("out of memory");
202
    puts("out of memory");
149
    return(1);
203
    return(1);
150
  }
204
  }
151
 
205
 
152
  fd = fopen("svarcom.lng", "wb");
206
  fd = fopen("svarcom.lng", "wb");
Line 173... Line 227...
173
    id[1] = argv[i][1];
227
    id[1] = argv[i][1];
174
    id[2] = 0;
228
    id[2] = 0;
175
    if (id[0] >= 'a') id[0] -= 'a' - 'A';
229
    if (id[0] >= 'a') id[0] -= 'a' - 'A';
176
    if (id[1] >= 'a') id[1] -= 'a' - 'A';
230
    if (id[1] >= 'a') id[1] -= 'a' - 'A';
177
 
231
 
178
    sz = gen_langstrings(buff, id);
232
    sz = gen_langstrings(buff, id, &bufbitmap, (i != 1)?&refbitmap:NULL, (i != 1)?refblock:NULL);
179
    if (sz == 0) {
233
    if (sz == 0) {
180
      printf("ERROR COMPUTING LANG '%s'\r\n", id);
234
      printf("ERROR COMPUTING LANG '%s'\r\n", id);
181
      ecode = 1;
235
      ecode = 1;
182
      break;
236
      break;
183
    } else {
237
    } else {
Line 189... Line 243...
189
        (fwrite(buff, 1, sz, fd) != sz)) {
243
        (fwrite(buff, 1, sz, fd) != sz)) {
190
      printf("ERROR WRITING TO OUTPUT FILE\r\n");
244
      printf("ERROR WRITING TO OUTPUT FILE\r\n");
191
      ecode = 1;
245
      ecode = 1;
192
      break;
246
      break;
193
    }
247
    }
194
    /* if EN, then it is also the default block */
248
    /* compute the default block for reference language */
195
    if (strcmp(id, "EN") == 0) {
249
    if (i == 1) {
196
      FILE *fd2;
250
      FILE *fd2;
197
      fd2 = fopen("DEFAULT.LNG", "wb");
251
      fd2 = fopen("DEFAULT.LNG", "wb");
198
      if (fd2 == NULL) {
252
      if (fd2 == NULL) {
199
        puts("ERROR: FAILED TO OPEN OR CREATE DEFAULT.LNG");
253
        puts("ERROR: FAILED TO OPEN OR CREATE DEFAULT.LNG");
200
        break;
254
        break;
201
      }
255
      }
202
      fwrite(id, 1, 2, fd2);    /* lang block id */
256
      fwrite(id, 1, 2, fd2);    /* lang block id */
203
      fwrite(&sz, 1, 2, fd2);   /* lang block size */
257
      fwrite(&sz, 1, 2, fd2);   /* lang block size */
204
      fwrite(buff, 1, sz, fd2); /* langblock content (strings) */
258
      fwrite(buff, 1, sz, fd2); /* langblock content (strings) */
205
      fclose(fd2);
259
      fclose(fd2);
-
 
260
      /* remember reference data for other languages */
-
 
261
      memcpy(refblock, buff, MEMBLOCKSZ);
-
 
262
      memcpy(&refbitmap, &bufbitmap, sizeof(struct bitmap));
206
    }
263
    }
207
  }
264
  }
208
 
265
 
209
  fclose(fd);
266
  fclose(fd);
210
 
267