| /svarlang.lib/trunk/auto_nls.c |
|---|
| 0,0 → 1,67 |
| /* This file is part of the svarlang project and is published under the terms |
| * of the MIT license. |
| * |
| * Copyright (C) 2021-2023 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 <stdlib.h> |
| #include <string.h> |
| #include "svarlang.h" |
| int svarlang_autoload_nlspath(const char *progname) { |
| const char *lang; |
| const char *nlspath; |
| char buff[128]; |
| unsigned short i; |
| /* read and validate LANG */ |
| lang = getenv("LANG"); |
| if ((lang == NULL) || (lang[0] == 0) || (lang[1] == 0)) return(-1); |
| /* read and validate NLSPATH */ |
| nlspath = getenv("NLSPATH"); |
| if (nlspath == NULL) return(-2); |
| /* look into every path in NLSPATH */ |
| while (*nlspath != 0) { |
| /* skip any leading ';' separators */ |
| while (*nlspath == ';') nlspath++; |
| if (*nlspath == 0) return(-3); |
| /* copy nlspath to buff and remember len */ |
| for (i = 0; (nlspath[i] != 0) && (nlspath[i] != ';'); i++) buff[i] = nlspath[i]; |
| nlspath += i; |
| /* add a trailing backslash if there is none (non-empty paths empty) */ |
| if ((i > 0) && (buff[i - 1] != '\\')) buff[i++] = '\\'; |
| strcpy(buff + i, progname); |
| strcat(buff + i, ".lng"); |
| if (svarlang_load(buff, lang) == 0) return(0); |
| } |
| /* failed to load anything */ |
| return(-4); |
| } |
| /svarlang.lib/trunk/autoload.c |
|---|
| 22,17 → 22,9 |
| * DEALINGS IN THE SOFTWARE. |
| */ |
| #include <stdlib.h> |
| #include "svarlang.h" |
| int svarlang_autoload(const char *progname) { |
| const char *s; |
| char langid[3]; |
| s = getenv("LANG"); |
| if ((s == NULL) || (*s == 0)) return(-1); |
| langid[0] = s[0]; |
| langid[1] = s[1]; |
| langid[2] = 0; |
| return(svarlang_load(progname, langid, getenv("NLSPATH"))); |
| if (svarlang_autoload_nlspath(progname) == 0) return(0); |
| return(-1); |
| } |
| /svarlang.lib/trunk/makefile |
|---|
| 7,33 → 7,37 |
| CFLAGS=-0 -wx -we -ox |
| svarlngs.lib: autoload.c svarlang.c version.c |
| svarlngs.lib: autoload.c auto_nls.c svarlang.c version.c |
| wcc $(CFLAGS) -ms autoload.c |
| wcc $(CFLAGS) -ms auto_nls.c |
| wcc $(CFLAGS) -ms svarlang.c |
| wcc $(CFLAGS) -ms version.c |
| if exist svarlngs.lib del svarlngs.lib |
| wlib -n svarlngs.lib +autoload.obj +svarlang.obj +version.obj |
| wlib -n svarlngs.lib +autoload.obj +auto_nls.obj +svarlang.obj +version.obj |
| svarlngc.lib: autoload.c svarlang.c version.c |
| svarlngc.lib: autoload.c auto_nls.c svarlang.c version.c |
| wcc $(CFLAGS) -mc autoload.c |
| wcc $(CFLAGS) -mc auto_nls.c |
| wcc $(CFLAGS) -mc svarlang.c |
| wcc $(CFLAGS) -mc version.c |
| if exist svarlngc.lib del svarlngc.lib |
| wlib -n svarlngc.lib +autoload.obj +svarlang.obj +version.obj |
| wlib -n svarlngc.lib +autoload.obj +auto_nls.obj +svarlang.obj +version.obj |
| svarlngm.lib: autoload.c svarlang.c version.c |
| svarlngm.lib: autoload.c auto_nls.c svarlang.c version.c |
| wcc $(CFLAGS) -mm autoload.c |
| wcc $(CFLAGS) -mm auto_nls.c |
| wcc $(CFLAGS) -mm svarlang.c |
| wcc $(CFLAGS) -mm version.c |
| if exist svarlngm.lib del svarlngm.lib |
| wlib -n svarlngm.lib +autoload.obj +svarlang.obj +version.obj |
| wlib -n svarlngm.lib +autoload.obj +auto_nls.obj +svarlang.obj +version.obj |
| svarlngl.lib: autoload.c svarlang.c version.c |
| svarlngl.lib: autoload.c auto_nls.c svarlang.c version.c |
| wcc $(CFLAGS) -ml autoload.c |
| wcc $(CFLAGS) -ml auto_nls.c |
| wcc $(CFLAGS) -ml svarlang.c |
| wcc $(CFLAGS) -ml version.c |
| if exist svarlngl.lib del svarlngl.lib |
| wlib -n svarlngl.lib +autoload.obj +svarlang.obj +version.obj |
| wlib -n svarlngl.lib +autoload.obj +auto_nls.obj +svarlang.obj +version.obj |
| tlumacz.exe: tlumacz.c |
| /svarlang.lib/trunk/svarlang.c |
|---|
| 135,42 → 135,20 |
| } |
| int svarlang_load(const char *progname, const char *lang, const char *nlspath) { |
| int svarlang_load(const char *fname, const char *lang) { |
| unsigned short langid; |
| unsigned short fd; |
| char buff[128]; |
| char hdr[4]; |
| 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: |
| fd = FOPEN(fname); |
| if (fd == 0xffff) return(-1); |
| /* 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; |
| /* add a trailing backslash if there is none (non-empty paths empty) */ |
| if ((i > 0) && (buff[i - 1] != '\\')) buff[i++] = '\\'; |
| strcpy(buff + i, progname); |
| strcat(buff + i, ".lng"); |
| fd = FOPEN(buff); |
| if (fd == 0xffff) { /* 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(fd, buff, 4) != 4) || (memcmp(buff, "SvL\33", 4) != 0)) { |
| if ((FREAD(fd, hdr, 4) != 4) || (memcmp(hdr, "SvL\33", 4) != 0)) { |
| FCLOSE(fd); |
| return(-3); |
| } |
| /svarlang.lib/trunk/svarlang.h |
|---|
| 26,35 → 26,34 |
| #define SVARLANG_H |
| /* library version */ |
| #define SVARLANGVER "20230630" |
| #define SVARLANGVER "20230709" |
| /* returns a pointer to a string with the SvarLANG's library version, |
| * independently of the SVARLANGVER string above. */ |
| const char *svarlang_getver(void); |
| /* loads translations for program progname, language lang, in paths. |
| /* loads lang translations from file fname. |
| * |
| * only the two first letters of the lang strings are meaningful and they are |
| * case insensitive. |
| * |
| * paths can be either a directory path (like "C:\DATA") or a list of paths |
| * separated by a semicolon (example: "C:\DATA;.\LANGS;."). It may also be |
| * NULL, in which case only the current directory will be searched. |
| * a typical call would be: svarlang_load("myprog.lng", "PL"); |
| * |
| * a typical call would be this: svarlang_load("myprog", "PL", NULL); |
| * |
| * this function returns 0 on success, non-zero otherwise. It is still possible |
| * to call svarlang_strid() after a load failure, the previously loaded |
| * language will be used then, or the default language if no loading has been |
| * done yet. */ |
| int svarlang_load(const char *progname, const char *lang, const char *paths); |
| int svarlang_load(const char *fname, const char *lang); |
| /* same as svarlang_load(), but relies on getenv() to pull LANG and NLSPATH. |
| /* this relies on getenv() to pull LANG and NLSPATH variables and looks |
| * for a translation file named "%NLSPATH%\progname.lng". |
| * this call should be used only by "CORE" SvarDOS programs. */ |
| int svarlang_autoload_nlspath(const char *progname); |
| /* alias to svarlang_autoload_nlspath() */ |
| int svarlang_autoload(const char *progname); |
| /* Returns a pointer to the string "id". Does not require svalang_load() to be |
| * executed, but then it will only return the reference language strings. |
| * a string id is the concatenation of the CATS-style identifiers, for example |
| /svarlang.lib/trunk/svarlang.txt |
|---|
| 37,7 → 37,7 |
| Then, DEFLANG.C must be compiled and linked to your program along with |
| SVARLNGx.LIB. From there you will be able to use SvarLANG calls, typically: |
| svarlang_load("myprogram", "pl", "."); /* load .\myprogram.lng */ |
| svarlang_load("myprogram.lng", "pl"); /* load PL lang from myprogram.lng */ |
| puts(svarlang_str(2, 0)); /* display the string with id 2.0 */ |
| Read svarlang.h for more information about available functions. |