0,0 → 1,160 |
/* |
* svnlschk - Svarog's NLS checker |
* Copyright (C) 2016 Mateusz Viste |
* |
* analyzes a Svarog386 package and outputs a single integer number: |
* -1 error (returns a non-zero errorlevel, too) |
* 0 no NLS data |
* x any positive number = number of strings for given language |
* |
* usage: svnlschk pkg.zip lang filetype |
* |
* note: this program relies on the availability of info-zip's UNZIP. |
*/ |
|
#include <stdio.h> |
#include <stdlib.h> /* system() */ |
#include <string.h> |
#include <libgen.h> /* basename() */ |
|
|
/* trims the extension part of a filename */ |
static void trimext(char *s) { |
char *lastdot = NULL; |
/* find last dot, if any */ |
for (;*s != 0; s++) if (*s == '.') lastdot = s; |
/* trim last dot, if any */ |
if (lastdot != NULL) *lastdot = 0; |
} |
|
/* trim trailing and white spaces */ |
static void trim(char *str) { |
int x, y, firstchar = -1, lastchar = -1; |
/* trim out the UTF-8 BOM, if present */ |
if (((unsigned char)str[0] == 0xEF) && ((unsigned char)str[1] == 0xBB) && ((unsigned char)str[2] == 0xBF)) { |
memmove(str, str + 3, strlen(str + 3) + 1); |
} |
/* */ |
for (x = 0; str[x] != 0; x++) { |
switch (str[x]) { |
case ' ': |
case '\t': |
case '\n': |
case '\r': |
break; |
default: |
if (firstchar < 0) firstchar = x; |
lastchar = x; |
break; |
} |
} |
str[lastchar + 1] = 0; /* right trim */ |
if (firstchar > 0) { /* left trim (shift to the left ) */ |
y = 0; |
for (x = firstchar; str[x] != 0; x++) str[y++] = str[x]; |
str[y] = 0; |
} |
} |
|
/* count the number of strings in a CATS-style nls file */ |
static long countnlsstrings(char *file, int filetype) { |
/* filetype 0 = NLS file ; 1 = COMMAND-style LNG file */ |
long res = 0; |
int stringongoing = 0; |
char line[1024]; |
while (*file != 0) { |
int i = 0; |
for (;; file++) { |
if (*file == '\r') continue; |
if (*file == '\n') { |
line[i] = 0; |
file++; |
break; |
} |
if (*file == 0) { |
line[i] = 0; |
break; |
} |
line[i] = *file; |
if (i < 1023) i++; |
} |
trim(line); |
/* skip empty lines and comments */ |
if ((line[0] == 0) || (line[0] == '#')) continue; |
/* */ |
if (filetype == 0) { |
res++; |
} else { |
if ((line[0] == ':') && (stringongoing == 0)) stringongoing = 1; |
if ((line[0] == '.') && (stringongoing != 0)) { |
res++; |
stringongoing = 0; |
} |
} |
} |
return(res); |
} |
|
int main(int argc, char **argv) { |
char buff[512]; |
char *lang; |
char *pkgfile; |
char pkgshortname[64]; |
char *file; |
long filelen; |
long result; |
int filetype; |
int popenres; |
#define FILEALLOC 1024*1024 |
FILE *fd; |
/* read arg list */ |
if ((argc != 4) || (argv[1][0] == '-') || (atoi(argv[3]) > 1) || (atoi(argv[3]) < 0)) { |
printf("-1\n"); |
fprintf(stderr, "svnlschk - Svarog's NLS checker\n" |
"usage: svnlschk pkg.zip lang filetype\n" |
"\n" |
"where filetype is:\n" |
" 0 = standard CATS-like NLS file\n" |
" 1 = FreeCOM-style LNG file\n"); |
return(1); |
} |
pkgfile = argv[1]; |
lang = argv[2]; |
filetype = atoi(argv[3]); |
strcpy(buff, pkgfile); |
snprintf(pkgshortname, sizeof(pkgshortname), basename(buff)); |
trimext(pkgshortname); |
/* is this a valid zip archive? */ |
snprintf(buff, sizeof(buff), "unzip -qq -t %s", pkgfile); |
if (system(buff) != 0) { |
printf("-1\n"); |
fprintf(stderr, "ERROR: %s is not a valid ZIP archive!\n", pkgfile); |
return(1); |
} |
/* extract wanted file through popen() and read it into memory */ |
snprintf(buff, sizeof(buff), "unzip -pC %s nls/%s.%s", pkgfile, pkgshortname, lang); |
/* */ |
fd = popen(buff, "r"); |
if (fd == NULL) { |
printf("-1\n"); |
fprintf(stderr, "ERROR: popen() failed\n"); |
return(1); |
} |
file = malloc(FILEALLOC); |
if (file == NULL) { |
printf("-1\n"); |
fprintf(stderr, "ERROR: out of memory\n"); |
return(1); |
} |
filelen = fread(file, 1, FILEALLOC - 1, fd); |
file[filelen] = 0; /* make sure to NULL-terminate */ |
result = countnlsstrings(file, filetype); |
free(file); |
popenres = WEXITSTATUS(pclose(fd)); |
if (popenres != 0) { |
printf("0\n"); |
return(0); |
} |
printf("%ld\n", result); |
return(0); |
} |