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


/* This file is part of the svarlang project and is published under the terms
 * of the MIT license.
 *
 * Copyright (C) 2021-2022 Mateusz Viste
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 * DEALINGS IN THE SOFTWARE.
 */
 
#include <stdio.h>   /* FILE */
#include <stdlib.h>  /* NULL */
#include <string.h>  /* memcmp(), strcpy() */
 
#include "svarlang.h"
 
 
/* supplied through DEFLANG.C */
extern char svarlang_mem[];
extern const unsigned short svarlang_memsz;
 
 
const char *svarlang_strid(unsigned short id) {
  const char *ptr = svarlang_mem;
  /* find the string id in langblock memory */
  for (;;) {
    if (((unsigned short *)ptr)[0] == id) return(ptr + 4);
    if (((unsigned short *)ptr)[1] == 0) return(ptr + 2); /* end of strings - return an empty string */
    ptr += ((unsigned short *)ptr)[1] + 4;
  }
}
 
 
int svarlang_load(const char *progname, const char *lang, const char *nlspath) {
  unsigned short langid;
  FILE *fd;
  char buff[128];
  unsigned short buff16[2];
  unsigned short i;
 
  if (lang == NULL) return(-1);
  if (nlspath == NULL) nlspath = ""; /* nlspath can be NULL, treat is as empty */
 
  langid = *((unsigned short *)lang);
  langid &= 0xDFDF; /* make sure lang is upcase */
 
  TRYNEXTPATH:
 
  /* skip any leading ';' separators */
  while (*nlspath == ';') nlspath++;
 
  /* copy nlspath to buff and remember len */
  for (i = 0; (nlspath[i] != 0) && (nlspath[i] != ';'); i++) buff[i] = nlspath[i];
  nlspath += i;
 
  /* ignore the trailing backslash (I add one myself) */
  if ((i > 0) && (buff[i - 1] == '\\')) i--;
 
  buff[i++] = '\\';
  strcpy(buff + i, progname);
  strcat(buff + i, ".lng");
 
  fd = fopen(buff, "rb");
  if (fd == NULL) { /* failed to open file - either abort or try next path */
    if (*nlspath == 0) return(-2);
    goto TRYNEXTPATH;
  }
 
  /* read hdr, should be "SvL\33" */
  if ((fread(buff, 1, 4, fd) != 4) || (memcmp(buff, "SvL\33", 4) != 0)) {
    fclose(fd);
    return(-3);
  }
 
  /* read next lang id in file */
  while (fread(buff16, 1, 4, fd) == 4) {
 
    /* is it the lang I am looking for? */
    if (buff16[0] != langid) { /* skip to next lang */
      fseek(fd, buff16[1], SEEK_CUR);
      continue;
    }
 
    /* found - but do I have enough memory space? */
    if (buff16[1] >= svarlang_memsz) {
      fclose(fd);
      return(-4);
    }
 
    /* load strings */
    if (fread(svarlang_mem, 1, buff16[1], fd) != buff16[1]) break;
    fclose(fd);
    return(0);
  }
 
  fclose(fd);
  return(-5);
}
 

Rev 623	Rev 814
1	`/* This file is part of the svarlang project and is published under the terms`	1	`/* This file is part of the svarlang project and is published under the terms`
2	`* of the MIT license.`	2	`* of the MIT license.`
3	`*`	3	`*`
4	`* Copyright (C) 2021-2022 Mateusz Viste`	4	`* Copyright (C) 2021-2022 Mateusz Viste`
5	`*`	5	`*`
6	`* Permission is hereby granted, free of charge, to any person obtaining a`	6	`* Permission is hereby granted, free of charge, to any person obtaining a`
7	`* copy of this software and associated documentation files (the "Software"),`	7	`* copy of this software and associated documentation files (the "Software"),`
8	`* to deal in the Software without restriction, including without limitation`	8	`* to deal in the Software without restriction, including without limitation`
9	`* the rights to use, copy, modify, merge, publish, distribute, sublicense,`	9	`* the rights to use, copy, modify, merge, publish, distribute, sublicense,`
10	`* and/or sell copies of the Software, and to permit persons to whom the`	10	`* and/or sell copies of the Software, and to permit persons to whom the`
11	`* Software is furnished to do so, subject to the following conditions:`	11	`* Software is furnished to do so, subject to the following conditions:`
12	`*`	12	`*`
13	`* The above copyright notice and this permission notice shall be included in`	13	`* The above copyright notice and this permission notice shall be included in`
14	`* all copies or substantial portions of the Software.`	14	`* all copies or substantial portions of the Software.`
15	`*`	15	`*`
16	`* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR`	16	`* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR`
17	`* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,`	17	`* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,`
18	`* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE`	18	`* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE`
19	`* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER`	19	`* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER`
20	`* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING`	20	`* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING`
21	`* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER`	21	`* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER`
22	`* DEALINGS IN THE SOFTWARE.`	22	`* DEALINGS IN THE SOFTWARE.`
23	`*/`	23	`*/`
24		24
25	`#include <stdio.h> /* FILE */`	25	`#include <stdio.h> /* FILE */`
26	`#include <stdlib.h> /* NULL */`	26	`#include <stdlib.h> /* NULL */`
27	`#include <string.h> /* memcmp(), strcpy() */`	27	`#include <string.h> /* memcmp(), strcpy() */`
28		28
29	`#include "svarlang.h"`	29	`#include "svarlang.h"`
30		30
31		31
32	`/* supplied through DEFLANG.C */`	32	`/* supplied through DEFLANG.C */`
33	`extern char svarlang_mem[];`	33	`extern char svarlang_mem[];`
34	`extern const unsigned short svarlang_memsz;`	34	`extern const unsigned short svarlang_memsz;`
35		35
36		36
37	`const char *svarlang_strid(unsigned short id) {`	37	`const char *svarlang_strid(unsigned short id) {`
38	`const char *ptr = svarlang_mem;`	38	`const char *ptr = svarlang_mem;`
39	`/* find the string id in langblock memory */`	39	`/* find the string id in langblock memory */`
40	`for (;;) {`	40	`for (;;) {`
41	`if (((unsigned short *)ptr)[0] == id) return(ptr + 4);`	41	`if (((unsigned short *)ptr)[0] == id) return(ptr + 4);`
42	`if (((unsigned short )ptr)[1] == 0) return(ptr + 2); / end of strings - return an empty string */`	42	`if (((unsigned short )ptr)[1] == 0) return(ptr + 2); / end of strings - return an empty string */`
43	`ptr += ((unsigned short *)ptr)[1] + 4;`	43	`ptr += ((unsigned short *)ptr)[1] + 4;`
44	`}`	44	`}`
45	`}`	45	`}`
46		46
47		47
48	`int svarlang_load(const char progname, const char lang, const char *nlspath) {`	48	`int svarlang_load(const char progname, const char lang, const char *nlspath) {`
49	`unsigned short langid;`	49	`unsigned short langid;`
50	`FILE *fd;`	50	`FILE *fd;`
51	`char buff[128];`	51	`char buff[128];`
52	`unsigned short buff16[2];`	52	`unsigned short buff16[2];`
53	`unsigned short i;`	53	`unsigned short i;`
54		54
55	`if ((lang == NULL) \|\| (nlspath == NULL)) return(-1);`	55	`if (lang == NULL) return(-1);`
-		56	`if (nlspath == NULL) nlspath = ""; /* nlspath can be NULL, treat is as empty */`
56		57
57	`langid = ((unsigned short )lang);`	58	`langid = ((unsigned short )lang);`
58	`langid &= 0xDFDF; /* make sure lang is upcase */`	59	`langid &= 0xDFDF; /* make sure lang is upcase */`
59		60
-		61	`TRYNEXTPATH:`
-		62
-		63	`/* skip any leading ';' separators */`
-		64	`while (*nlspath == ';') nlspath++;`
-		65
60	`/* copy nlspath to buff and remember len */`	66	`/* copy nlspath to buff and remember len */`
61	`for (i = 0; nlspath[i] != 0; i++) buff[i] = nlspath[i];`	67	`for (i = 0; (nlspath[i] != 0) && (nlspath[i] != ';'); i++) buff[i] = nlspath[i];`
-		68	`nlspath += i;`
62		69
63	`/* */`	70	`/* ignore the trailing backslash (I add one myself) */`
64	`if ((i > 0) && (buff[i - 1] == '\\')) i--;`	71	`if ((i > 0) && (buff[i - 1] == '\\')) i--;`
65		72
66	`buff[i++] = '\\';`	73	`buff[i++] = '\\';`
67	`strcpy(buff + i, progname);`	74	`strcpy(buff + i, progname);`
68	`strcat(buff + i, ".lng");`	75	`strcat(buff + i, ".lng");`
69		76
70	`fd = fopen(buff, "rb");`	77	`fd = fopen(buff, "rb");`
-		78	`if (fd == NULL) { /* failed to open file - either abort or try next path */`
71	`if (fd == NULL) return(-2);`	79	`if (*nlspath == 0) return(-2);`
-		80	`goto TRYNEXTPATH;`
-		81	`}`
72		82
73	`/* read hdr, should be "SvL\33" */`	83	`/* read hdr, should be "SvL\33" */`
74	`if ((fread(buff, 1, 4, fd) != 4) \|\| (memcmp(buff, "SvL\33", 4) != 0)) {`	84	`if ((fread(buff, 1, 4, fd) != 4) \|\| (memcmp(buff, "SvL\33", 4) != 0)) {`
75	`fclose(fd);`	85	`fclose(fd);`
76	`return(-3);`	86	`return(-3);`
77	`}`	87	`}`
78		88
79	`/* read next lang id in file */`	89	`/* read next lang id in file */`
80	`while (fread(buff16, 1, 4, fd) == 4) {`	90	`while (fread(buff16, 1, 4, fd) == 4) {`
81		91
82	`/* is it the lang I am looking for? */`	92	`/* is it the lang I am looking for? */`
83	`if (buff16[0] != langid) { /* skip to next lang */`	93	`if (buff16[0] != langid) { /* skip to next lang */`
84	`fseek(fd, buff16[1], SEEK_CUR);`	94	`fseek(fd, buff16[1], SEEK_CUR);`
85	`continue;`	95	`continue;`
86	`}`	96	`}`
87		97
88	`/* found - but do I have enough memory space? */`	98	`/* found - but do I have enough memory space? */`
89	`if (buff16[1] >= svarlang_memsz) {`	99	`if (buff16[1] >= svarlang_memsz) {`
90	`fclose(fd);`	100	`fclose(fd);`
91	`return(-4);`	101	`return(-4);`
92	`}`	102	`}`
93		103
94	`/* load strings */`	104	`/* load strings */`
95	`if (fread(svarlang_mem, 1, buff16[1], fd) != buff16[1]) break;`	105	`if (fread(svarlang_mem, 1, buff16[1], fd) != buff16[1]) break;`
96	`fclose(fd);`	106	`fclose(fd);`
97	`return(0);`	107	`return(0);`
98	`}`	108	`}`
99		109
100	`fclose(fd);`	110	`fclose(fd);`
101	`return(-5);`	111	`return(-5);`
102	`}`	112	`}`
103		113

Subversion Repositories SvarDOS

(root)/svarlang.lib/svarlang.c – Rev 623 → 814