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) || (nlspath == NULL)) return(-1);
 
  langid = *((unsigned short *)lang);
  langid &= 0xDFDF; /* make sure lang is upcase */
 
  /* copy nlspath to buff and remember len */
  for (i = 0; nlspath[i] != 0; i++) buff[i] = nlspath[i];
 
  /* */
  if ((i > 0) && (buff[i - 1] == '\\')) i--;
 
  buff[i++] = '\\';
  strcpy(buff + i, progname);
  strcat(buff + i, ".lng");
 
  fd = fopen(buff, "rb");
  if (fd == NULL) return(-2);
 
  /* 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 599	Rev 623
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) {`	41	`if (((unsigned short *)ptr)[0] == id) return(ptr + 4);`
42	`ptr += 3;`	-
43	`return(ptr);`	-
44	`}`	-
45	`if (ptr[2] == 0) return(NULL);`	42	`if (((unsigned short )ptr)[1] == 0) return(ptr + 2); / end of strings - return an empty string */`
46	`ptr += ptr[2] + 3;`	43	`ptr += ((unsigned short *)ptr)[1] + 4;`
47	`}`	44	`}`
48	`}`	45	`}`
49		46
50		47
51	`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) {`
52	`unsigned short langid;`	49	`unsigned short langid;`
53	`FILE *fd;`	50	`FILE *fd;`
54	`char buff[128];`	51	`char buff[128];`
55	`unsigned short buff16[2];`	52	`unsigned short buff16[2];`
56	`unsigned short i;`	53	`unsigned short i;`
57		54
58	`if ((lang == NULL) \|\| (nlspath == NULL)) return(-1);`	55	`if ((lang == NULL) \|\| (nlspath == NULL)) return(-1);`
59		56
60	`langid = ((unsigned short )lang);`	57	`langid = ((unsigned short )lang);`
61	`langid &= 0xDFDF; /* make sure lang is upcase */`	58	`langid &= 0xDFDF; /* make sure lang is upcase */`
62		59
63	`/* copy nlspath to buff and remember len */`	60	`/* copy nlspath to buff and remember len */`
64	`for (i = 0; nlspath[i] != 0; i++) buff[i] = nlspath[i];`	61	`for (i = 0; nlspath[i] != 0; i++) buff[i] = nlspath[i];`
65		62
66	`/* */`	63	`/* */`
67	`if ((i > 0) && (buff[i - 1] == '\\')) i--;`	64	`if ((i > 0) && (buff[i - 1] == '\\')) i--;`
68		65
69	`buff[i++] = '\\';`	66	`buff[i++] = '\\';`
70	`strcpy(buff + i, progname);`	67	`strcpy(buff + i, progname);`
71	`strcat(buff + i, ".lng");`	68	`strcat(buff + i, ".lng");`
72		69
73	`fd = fopen(buff, "rb");`	70	`fd = fopen(buff, "rb");`
74	`if (fd == NULL) return(-2);`	71	`if (fd == NULL) return(-2);`
75		72
76	`/* read hdr, should be "SvL\33" */`	73	`/* read hdr, should be "SvL\33" */`
77	`if ((fread(buff, 1, 4, fd) != 4) \|\| (memcmp(buff, "SvL\33", 4) != 0)) {`	74	`if ((fread(buff, 1, 4, fd) != 4) \|\| (memcmp(buff, "SvL\33", 4) != 0)) {`
78	`fclose(fd);`	75	`fclose(fd);`
79	`return(-3);`	76	`return(-3);`
80	`}`	77	`}`
81		78
82	`/* read next lang id in file */`	79	`/* read next lang id in file */`
83	`while (fread(buff16, 1, 4, fd) == 4) {`	80	`while (fread(buff16, 1, 4, fd) == 4) {`
84		81
85	`/* is it the lang I am looking for? */`	82	`/* is it the lang I am looking for? */`
86	`if (buff16[0] != langid) { /* skip to next lang */`	83	`if (buff16[0] != langid) { /* skip to next lang */`
87	`fseek(fd, buff16[1], SEEK_CUR);`	84	`fseek(fd, buff16[1], SEEK_CUR);`
88	`continue;`	85	`continue;`
89	`}`	86	`}`
90		87
91	`/* found - but do I have enough memory space? */`	88	`/* found - but do I have enough memory space? */`
92	`if (buff16[1] >= svarlang_memsz) {`	89	`if (buff16[1] >= svarlang_memsz) {`
93	`fclose(fd);`	90	`fclose(fd);`
94	`return(-4);`	91	`return(-4);`
95	`}`	92	`}`
96		93
97	`/* load strings */`	94	`/* load strings */`
98	`if (fread(svarlang_mem, 1, buff16[1], fd) != buff16[1]) break;`	95	`if (fread(svarlang_mem, 1, buff16[1], fd) != buff16[1]) break;`
99	`fclose(fd);`	96	`fclose(fd);`
100	`return(0);`	97	`return(0);`
101	`}`	98	`}`
102		99
103	`fclose(fd);`	100	`fclose(fd);`
104	`return(-5);`	101	`return(-5);`
105	`}`	102	`}`
106		103

Subversion Repositories SvarDOS

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