Subversion Repositories SvarDOS

Compare Revisions

Ignore whitespace Rev 1301 → Rev 1300

/svarlang.lib/trunk/auto_nls.c
22,7 → 22,9
* DEALINGS IN THE SOFTWARE.
*/
 
#include <stdlib.h> /* getenv(), NULL */
#include <stdlib.h>
#include <string.h>
 
#include "svarlang.h"
 
 
30,11 → 32,11
const char *lang;
const char *nlspath;
char buff[128];
unsigned short i, ii;
unsigned short i;
 
/* read and validate LANG */
lang = getenv("LANG");
if ((lang == NULL) || (lang[0] == 0)) return(-1);
if ((lang == NULL) || (lang[0] == 0) || (lang[1] == 0)) return(-1);
 
/* read and validate NLSPATH */
nlspath = getenv("NLSPATH");
55,13 → 57,8
/* add a trailing backslash if there is none (non-empty paths empty) */
if ((i > 0) && (buff[i - 1] != '\\')) buff[i++] = '\\';
 
/* append progname + ".LNG" to the path */
for (ii = 0; progname[ii] != 0; ii++) buff[i++] = progname[ii];
buff[i++] = '.';
buff[i++] = 'L';
buff[i++] = 'N';
buff[i++] = 'G';
buff[i] = 0;
strcpy(buff + i, progname);
strcat(buff + i, ".lng");
 
if (svarlang_load(buff, lang) == 0) return(0);
}