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

 /* 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.
  */
 /* if WITHSTDIO is enabled, then remap file operations to use the standard
  * stdio amenities */
 #ifdef WITHSTDIO
 #include <stdio.h>   /* FILE, fopen(), fseek(), etc */
 typedef FILE* FHANDLE;
 #define FOPEN(x) fopen(x, "rb")
 #define FCLOSE(x) fclose(x)
 #define FSEEK(f,b) fseek(f,b,SEEK_CUR)
 #define FREAD(f,t,b) fread(t, 1, b, f)
 #else
 #include <i86.h>
 typedef unsigned short FHANDLE;
 #endif
 #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;
+extern unsigned short svarlang_dict[];
+extern const unsigned short svarlang_memsz;
+extern const unsigned short svarlang_string_count;
-const char *svarlang_strid(unsigned short id) {
-  const char *ptr = svarlang_mem;
+const char *svarlang_strid(unsigned short id) {
-  /* find the string id in langblock memory */
+   size_t left = 0, right = svarlang_string_count - 1, x;
-  for (;;) {
+   unsigned short v;
-    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 */
+   if (svarlang_string_count == 0) return "";
-    ptr += ((unsigned short *)ptr)[1] + 4;
-  }
+   while (left <= right ) {
-}
+      x = left + ( (right - left ) >> 2 );
+      v = svarlang_dict[x * 2];
-/* routines below are simplified (dos-based) versions of the libc FILE-related
+      if ( id == v )  {
- * functions. Using them avoids a dependency on FILE, hence makes the binary
+        return svarlang_mem + svarlang_dict[x * 2 + 1];
- * smaller if the application does not need to pull fopen() and friends */
+      }
-#ifndef WITHSTDIO
+      else if ( id > v ) left = x + 1;
-static unsigned short FOPEN(const char *s) {
+      else right = x - 1;
-  unsigned short fname_seg = FP_SEG(s);
+   }
-  unsigned short fname_off = FP_OFF(s);
+   return "";
-  unsigned short res = 0; /* fd 0 is already used by stdout so it's a good error value */
+}
-  _asm {
-    push dx
+/* routines below are simplified (dos-based) versions of the libc FILE-related
-    push ds
+ * functions. Using them avoids a dependency on FILE, hence makes the binary
+ * smaller if the application does not need to pull fopen() and friends */
-    mov ax, fname_seg
+#ifndef WITHSTDIO
-    mov dx, fname_off
+static unsigned short FOPEN(const char *s) {
-    mov ds, ax
+  unsigned short fname_seg = FP_SEG(s);
-    mov ax, 0x3d00  /* open file, read-only (fname at DS:DX) */
+  unsigned short fname_off = FP_OFF(s);
-    int 0x21
+  unsigned short res = 0; /* fd 0 is already used by stdout so it's a good error value */
-    pop ds
+  _asm {
-    jc ERR
+    push dx
-    mov res, ax
+    push ds
-    ERR:
+    mov ax, fname_seg
-    pop dx
+    mov dx, fname_off
-  }
+    mov ds, ax
+    mov ax, 0x3d00  /* open file, read-only (fname at DS:DX) */
-  return(res);
+    int 0x21
-}
+    pop ds
+    jc ERR
+    mov res, ax
-static void FCLOSE(unsigned short handle) {
-  _asm {
+    ERR:
-    push bx
+    pop dx
+  }
-    mov ah, 0x3e
-    mov bx, handle
+  return(res);
-    int 0x21
+}
-    pop bx
-  }
+static void FCLOSE(unsigned short handle) {
-}
+  _asm {
+    push bx
-static unsigned short FREAD(unsigned short handle, void *buff, unsigned short bytes) {
+    mov ah, 0x3e
-  unsigned short buff_seg = FP_SEG(buff);
+    mov bx, handle
-  unsigned short buff_off = FP_OFF(buff);
+    int 0x21
-  unsigned short res = 0;
+    pop bx
-  _asm {
+  }
-    push bx
+}
-    push cx
-    push dx
+static unsigned short FREAD(unsigned short handle, void *buff, unsigned short bytes) {
-    mov bx, handle
+  unsigned short buff_seg = FP_SEG(buff);
-    mov cx, bytes
+  unsigned short buff_off = FP_OFF(buff);
-    mov dx, buff_off
+  unsigned short res = 0;
-    mov ax, buff_seg
-    push ds
+  _asm {
-    mov ds, ax
+    push bx
-    mov ah, 0x3f    /* read cx bytes from file handle bx to DS:DX */
+    push cx
-    int 0x21
+    push dx
-    pop ds
-    jc ERR
+    mov bx, handle
+    mov cx, bytes
-    mov res, ax
+    mov dx, buff_off
-    ERR:
+    mov ax, buff_seg
+    push ds
-    pop dx
+    mov ds, ax
-    pop cx
+    mov ah, 0x3f    /* read cx bytes from file handle bx to DS:DX */
-    pop bx
+    int 0x21
-  }
+    pop ds
+    jc ERR
-  return(res);
-}
+    mov res, ax
+    ERR:
-static void FSEEK(unsigned short handle, unsigned short bytes) {
+    pop dx
-  _asm {
+    pop cx
-    push bx
+    pop bx
-    push cx
+  }
-    push dx
+  return(res);
-    mov ax, 0x4201  /* move file pointer from cur pos + CX:DX */
+}
-    mov bx, handle
-    xor cx, cx
-    mov dx, bytes
+static void FSEEK(unsigned short handle, unsigned short bytes) {
-    int 0x21
+  _asm {
+    push bx
-    pop dx
+    push cx
-    pop cx
+    push dx
-    pop bx
-  }
+    mov ax, 0x4201  /* move file pointer from cur pos + CX:DX */
-}
+    mov bx, handle
-#endif
+    xor cx, cx
+    mov dx, bytes
-int svarlang_load(const char *fname, const char *lang) {
+    int 0x21
-  unsigned short langid;
-  char hdr[4];
+    pop dx
-  unsigned short buff16[2];
+    pop cx
-  FHANDLE fd;
+    pop bx
+  }
-  langid = *((unsigned short *)lang);
+}
-  langid &= 0xDFDF; /* make sure lang is upcase */
+#endif
-  fd = FOPEN(fname);
+int svarlang_load(const char *fname, const char *lang) {
-  if (!fd) return(-1);
+  unsigned short langid;
+  char hdr[5];
-  /* read hdr, should be "SvL\33" */
+  unsigned short buff16[2];
-  if ((FREAD(fd, hdr, 4) != 4) || (memcmp(hdr, "SvL\33", 4) != 0)) {
+  FHANDLE fd;
-    FCLOSE(fd);
+  unsigned short string_count;
-    return(-3);
-  }
+  langid = *((unsigned short *)lang);
+  langid &= 0xDFDF; /* make sure lang is upcase */
-  /* read next lang id in file */
-  while (FREAD(fd, buff16, 4) == 4) {
+  fd = FOPEN(fname);
+  if (!fd) return(-1);
-    /* is it the lang I am looking for? */
-    if (buff16[0] != langid) { /* skip to next lang */
+  /* read hdr, should be "SvL1\x1a" */
-      FSEEK(fd, buff16[1]);
+  if ((FREAD(fd, hdr, 5) != 5) || (memcmp(hdr, "SvL1\x1a", 5) != 0)) {
-      continue;
+    FCLOSE(fd);
-    }
+    return(-3);
+  }
-    /* found - but do I have enough memory space? */
-    if (buff16[1] >= svarlang_memsz) {
+  /* read string count */
-      FCLOSE(fd);
+  if ((FREAD(fd, &string_count, 2) != 2) || (string_count != svarlang_string_count)) {
-      return(-4);
+    FCLOSE(fd);
-    }
+    return(-6);
+  }
-    /* load strings */
-    if (FREAD(fd, svarlang_mem, buff16[1]) != buff16[1]) break;
+  /* read next lang id and string table size in file */
-    FCLOSE(fd);
+  while (FREAD(fd, buff16, 4) == 4) {
-    return(0);
-  }
+    /* is it the lang I am looking for? */
+    if (buff16[0] != langid) { /* skip to next lang */
-  FCLOSE(fd);
+      FSEEK(fd, svarlang_string_count * 4);
-  return(-5);
+      FSEEK(fd, buff16[1]);
-}
+      continue;
+    }
+    /* found - but do I have enough memory space? */
+    if (buff16[1] >= svarlang_memsz) {
+      FCLOSE(fd);
+      return(-4);
+    }
+    /* load dictionary & strings */
+    if ((FREAD(fd, svarlang_dict, svarlang_string_count * 4) != svarlang_string_count * 4) ||
+       (FREAD(fd, svarlang_mem, buff16[1]) != buff16[1])) {
+      FCLOSE(fd);
+      return -7;
+    }
+    FCLOSE(fd);
+    return(0);
+  }
+  FCLOSE(fd);
+  return(-5);
+}

Subversion Repositories SvarDOS

(root)/svarlang.lib/trunk/svarlang.c – Rev 1281 → 1290