Subversion Repositories SvarDOS

#include <string.h> /* memcpy() */

#include "deflang.h"

#include "env.h"

void nls_output_internal(unsigned short id, unsigned short nl) {

  const char *ptr = langblock + 4; /* first 4 bytes are lang id and lang len */

  const char *NOTFOUND = "NLS_STRING_NOT_FOUND";

  /* find the string id in langblock memory */

  for (;;) {

    if (((unsigned short *)ptr)[0] == id) {

      ptr += 3;

      break;

    }

    if (ptr[2] == 0) {

      ptr = NOTFOUND;

      break;

    }

    ptr += ptr[2] + 3;

  }

  output_internal(ptr, nl);

}

/* reload nls ressources from svarcom.lng into langblock */

void nls_langreload(char *buff, unsigned short env) {

  unsigned short i;

  const char far *nlspath;

  char *langblockptr = langblock;

  unsigned short lang;

  unsigned short errcode = 0;

  /* look up the LANG env variable, upcase it and copy to lang */

  nlspath = env_lookup_val(env, "LANG");

  if ((nlspath == NULL) || (nlspath[0] == 0)) return;

  buff[0] = nlspath[0];

  buff[1] = nlspath[1];

  buff[2] = 0;

  if (buff[0] >= 'a') buff[0] -= 'a' - 'A';

  if (buff[1] >= 'a') buff[1] -= 'a' - 'A';

  memcpy(&lang, buff, 2);

  /* check if there is need to reload at all */

  if (((unsigned short *)langblock)[0] == lang) return;

  /* printf("NLS RELOAD (curlang=%04X ; toload=%04X\r\n", ((unsigned short *)langblock)[0], lang); */

  nlspath = env_lookup_val(env, "NLSPATH");

  if ((nlspath == NULL) || (nlspath[0] == 0)) return;

  /* copy NLSPATH(far) to buff */

  for (i = 0; nlspath[i] != 0; i++) buff[i] = nlspath[i];

  /* terminate with a bkslash, if not already the case */

  if (buff[i - 1] != '\\') buff[i++] = '\\';

  /* append "svarcom.lng" */

  strcpy(buff + i, "SVARCOM.LNG");

  /* copy file content to langblock */

  _asm {

    push ax

    push bx

    push cx

    push dx

    push si

    push di

    /* make sure ES=DS and clear DF (will be useful for string matching) */

    push ds

    pop es

    cld

    /* preset SI to buff */

    mov si, buff

    /* Open File */

    mov bx, 0xffff /* bx holds the file handle (0xffff = not set) */

    mov ax, 0x3d00 /* DOS 2+ -- Open File for read */

    mov dx, si     /* fname */

    int 0x21       /* cf set on error, otherwise handle in AX */

    jnc OPENOK

    jmp FAIL

    OPENOK:

    mov bx, ax    /* save file handle to bx */

    /* read hdr */

    mov ah, 0x3f   /* DOS 2+ -- Read from File via Handle in BX */

    mov cx, 4      /* read 4 bytes */

    mov dx, si

    int 0x21

    jnc READHDROK

    jmp FAIL

    READHDROK:

    cmp ax, cx  /* hdr must be 4 bytes long (SvL\x1b) */

    jne FAIL

    /* check that sig is Svl\x1b */

    mov di, si

    cld         /* scasw must inc DI */

    mov ax, 'vS'

    scasw       /* cmp ax, ES:[DI] and DI += 2*/

    jne FAIL

    mov ax, 0x1B4C

    scasw       /* cmp ax, ES:[DI] and DI += 2*/

    jne FAIL

    READLANGID:

    /* read lang id */

    mov ah, 0x3f   /* Read from File via Handle in BX */

    /* mov bx, [i]  already set */

    mov cx, 4

    mov dx, si

    int 0x21

    jc FAIL

    cmp ax, cx

    jne FAIL

    /* is this the LANG I am looking for? */

    mov ax, [lang]

    mov di, si

    scasw       /* cmp ax, ES:[DI] and DI += 2*/

    je LOADSTRINGS

    /* skip to next lang */

    mov ax, 0x4201   /* move file pointer CX:DX bytes forward */

    /* mov bx, [i]  file handle */

    xor cx, cx

    mov dx, [di]

    int 0x21

    jc FAIL

    jmp READLANGID

    LOADSTRINGS:

    /* copy langid and langlen to langblockptr */

    mov di, langblockptr

    mov ax, [si]

    stosw   /* mov [di], ax and di += 2 */

    mov ax, [si+2]

    stosw

    /* read strings (buff+2 bytes) into langblock */

    mov ah, 0x3f   /* Read from File via Handle in BX */

    mov cx, [si+2]

    mov dx, di

    int 0x21

    jnc DONE

    /* on error make sure to zero out langblock's header */

    xor cx, cx

    mov [di], cx                 /* langblock id*/

    mov [di + 2], cx /* langblock len */

    mov [di + 4], cx /* 1st string id */

    mov [di + 6], cx /* 1st string len */

    /* cleanup and quit */

    FAIL:

    mov [errcode], ax

    DONE:

    /* close file handle if set */

    cmp bx, 0xffff

    je FNOTOPEN

    mov ah, 0x3e  /* DOS 2+ -- Close a File Handle (Handle in BX) */

    int 0x21

    FNOTOPEN:

    pop di

    pop si

    pop dx

    pop cx

    pop bx

    pop ax

  }

  if (errcode != 0) printf("AX=%04x\r\n", errcode);

}