WebSVN – SvarDOS – Diff – /svarlang.lib/trunk/tlumacz.c

 #include "svarlang.h"
 #define STRINGS_CAP 65000   /* string storage size in characters */
 #define DICT_CAP    10000   /* dictionary size in elements */
+enum {                      /* DEFLANG output format */
+  C_OUTPUT,
+  ASM_OUTPUT,
+  NASM_OUTPUT
+};
 /* read a single line from fd and fills it into dst, returns line length
  * ending CR/LF is trimmed, as well as any trailing spaces */
 static unsigned short readl(char *dst, size_t dstsz, FILE *fd) {
   unsigned short l, lastnonspace = 0;
     /* add the string contained in current line, if conditions are met */
     if (!svl_find(l, id)) {
       if ((refl == NULL) || (svl_find(refl, id))) {
         if (!svl_add_str(l, id, ptr)) {
-          printf("ERROR: %s[#%u] output size limit exceeded\r\n", fname, linecount);
+          fprintf(stderr, "ERROR: %s[#%u] output size limit exceeded\r\n", fname, linecount);
           fclose(fd);
           return(0);
+        }
         if (id >= maxid) {
           maxid = id;
     for (i = 0; i < refl->num_strings; i++) {
       id = refl->dict[i].id;
       if (!svl_find(l, id)) {
         printf("WARNING: %s is missing string %u.%u (pulled from ref lang)\r\n", fname, id >> 8, id & 0xff);
         if (!svl_add_str(l, id, refl->strings + refl->dict[i].offset)) {
-          printf("ERROR: %s[#%u] output size limit exceeded\r\n", fname, linecount);
+          fprintf(stderr, "ERROR: %s[#%u] output size limit exceeded\r\n", fname, linecount);
           return(0);
+        }
+      }
+    }
+  }
   unsigned short nextnlat = 0;
   unsigned short allocsz;
   fd = fopen(fn, "wb");
   if (fd == NULL) {
-    puts("ERROR: FAILED TO OPEN OR CREATE DEFLANG.C");
     return(0);
+  }
   allocsz = biggest_langsz + (biggest_langsz / 20);
   printf("biggest lang block is %u bytes -> allocating a %u bytes buffer (5%% safety margin)\n", biggest_langsz, allocsz);
   return(1);
+}
+static int svl_write_asm_source(const struct svl_lang *l, const char *fn, unsigned short biggest_langsz, int format) {
+  FILE *fd;
+  int i;
+  unsigned short strings_bytes = svl_strings_bytes(l);
+  unsigned short nextnlat = 0;
+  unsigned short allocsz;
+  const char *public = (format == ASM_OUTPUT) ? "public" : "global";
+  fd = fopen(fn, "wb");
+  if (fd == NULL) {
+    return(0);
+  }
+  allocsz = biggest_langsz + (biggest_langsz / 20);
+  printf("biggest lang block is %u bytes -> allocating a %u bytes buffer (5%% safety margin)\n", biggest_langsz, allocsz);
+  fprintf(fd, "; THIS FILE HAS BEEN GENERATED BY TLUMACZ (PART OF THE SVARLANG LIBRARY)\r\n");
+  fprintf(fd, "%s svarlang_memsz\r\n", public);
+  fprintf(fd, "svarlang_memsz dw %u\r\n", allocsz);
+  fprintf(fd, "%s svarlang_string_count\r\n", public);
+  fprintf(fd, "svarlang_string_count dw %u\r\n\r\n", l->num_strings);
+  fprintf(fd, "%s svarlang_mem\r\n", public);
+  fprintf(fd, "svarlang_mem:\r\n");
+  if (strings_bytes > 0) fprintf(fd, "db ");
+  for (i = 0; i < strings_bytes; i++) {
+    if (!fprintf(fd, "%02xh", l->strings[i])) {
+      fclose(fd);
+      return(0);
+    }
+    nextnlat++;
+    if (l->strings[i] == '\0' || nextnlat == 16) {
+      fprintf(fd, "\r\n");
+      if (i + 1 < strings_bytes ) fprintf(fd, "db ");
+      nextnlat = 0;
+    }
+    else {
+      fprintf(fd, ",");
+    }
+  }
+  fprintf(fd, "\r\n%s svarlang_dict\r\n", public);
+  fprintf(fd, "svarlang_dict:\r\n");
+  for (i = 0; i < l->num_strings; i++) {
+    if (!fprintf(fd, "dw %04xh,%04xh\r\n", l->dict[i].id, l->dict[i].offset)) {
+      fclose(fd);
+      return(0);
+    }
+  }
+  fclose(fd);
+  return(1);
+}
 int main(int argc, char **argv) {
   FILE *fd;
   int ecode = 0;
-  int i;
+  int i, output_format = C_OUTPUT;
   unsigned short biggest_langsz = 0;
   struct svl_lang *lang, *reflang = NULL;
   if (argc < 2) {
     puts("tlumacz ver " SVARLANGVER " - this tool is part of the SvarLANG project.");
     puts("converts a set of CATS-style translations in files EN.TXT, PL.TXT, etc");
     puts("into a single resource file (OUT.LNG).");
     puts("");
-    puts("usage: tlumacz en fr pl ...");
+    puts("usage: tlumacz [/c|/asm|/nasm] en fr pl ...");
     return(1);
+  }
   fd = fopen("out.lng", "wb");
   if (fd == NULL) {
-    puts("ERR: failed to open or create OUT.LNG");
+    fprintf(stderr, "ERROR: FAILED TO CREATE OR OPEN OUT.LNG");
     return(1);
+  }
   /* write lang blocks */
   for (i = 1; i < argc; i++) {
     unsigned short sz;
     char id[3];
+    if (!strcmp(argv[i], "/c")) {
+      output_format = C_OUTPUT;
+      continue;
+    }
+    else if (!strcmp(argv[i], "/asm")) {
+      output_format = ASM_OUTPUT;
+      continue;
+    } else if(!strcmp(argv[i], "/nasm")) {
+      output_format = NASM_OUTPUT;
+      continue;
+    }
     if (strlen(argv[i]) != 2) {
-      printf("INVALID LANG SPECIFIED: %s\r\n", argv[i]);
+      fprintf(stderr, "INVALID LANG SPECIFIED: %s\r\n", argv[i]);
       ecode = 1;
       break;
+    }
     id[0] = argv[i][0];
     id[1] = argv[i][1];
     id[2] = 0;
     if ((lang = svl_lang_new(id, DICT_CAP, STRINGS_CAP)) == NULL) {
-      printf("OUT OF MEMORY\r\n");
+      fprintf(stderr, "OUT OF MEMORY\r\n");
       return(1);
+    }
     sz = svl_lang_from_cats_file(lang, reflang);
     if (sz == 0) {
-      printf("ERROR COMPUTING LANG '%s'\r\n", id);
+      fprintf(stderr, "ERROR COMPUTING LANG '%s'\r\n", id);
       ecode = 1;
       break;
     } else {
       printf("computed %s lang block of %u bytes\r\n", id, sz);
       if (sz > biggest_langsz) biggest_langsz = sz;
     svl_compact_lang(lang);
     /* write header if first (reference) language */
     if (i == 1) {
       if (!svl_write_header(lang->num_strings, fd)) {
-        printf("ERROR WRITING TO OUTPUT FILE\r\n");
+        fprintf(stderr, "ERROR WRITING TO OUTPUT FILE\r\n");
         ecode = 1;
         break;
+      }
+    }
     /* write lang ID to file, followed string table size, and then
        the dictionary and string table for current language */
     if (!svl_write_lang(lang, fd)) {
-      printf("ERROR WRITING TO OUTPUT FILE\r\n");
+      fprintf(stderr, "ERROR WRITING TO OUTPUT FILE\r\n");
       ecode = 1;
       break;
+    }
     /* remember reference data for other languages */
-    if (i == 1) {
+    if (!reflang) {
       reflang = lang;
     } else {
       svl_lang_free(lang);
       lang = NULL;
+    }
+  }
-  /* compute the deflang.c file containing a dump of the reference block */
+  if (ecode) return ecode;
-  if (!svl_write_c_source(reflang, "deflang.c", biggest_langsz)) {
+  if (!reflang) {
-    puts("ERROR: FAILED TO OPEN OR CREATE DEFLANG.C");
+    fprintf(stderr, "ERROR: NO LANGUAGE GIVEN\r\n");
-    ecode = 1;
+    return 1;
+  }
+  /* compute the deflang file containing a dump of the reference block */
+  if (output_format == C_OUTPUT) {
+    if (!svl_write_c_source(reflang, "deflang.c", biggest_langsz)) {
+      fprintf(stderr, "ERROR: FAILED TO OPEN OR CREATE DEFLANG.C\r\n");
-  /* clean up */
+      ecode = 1;
+    }
-  if (reflang) {
+  } else {
-    svl_lang_free(reflang);
+    if (!svl_write_asm_source(reflang, "deflang.inc", biggest_langsz, output_format)) {
+      fprintf(stderr, "ERROR: FAILED TO OPEN OR CREATE DEFLANG.INC\r\n");
-    reflang = NULL;
+      ecode = 1;
+    }
+  }
+  svl_lang_free(reflang);
+  reflang = NULL;
   return(ecode);
+}

Subversion Repositories SvarDOS

(root)/svarlang.lib/trunk/tlumacz.c – Rev 1296 → 2014