Subversion Repositories SvarDOS

Rev

Rev 1251 | Rev 1281 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
597 mateuszvis 1 
/* This file is part of the svarlang project and is published under the terms
2 
 * of the MIT license.
3 
 *
1251 mateusz.vi 4 
 * Copyright (C) 2021-2023 Mateusz Viste
597 mateuszvis 5 
 *
6 
 * Permission is hereby granted, free of charge, to any person obtaining a
7 
 * copy of this software and associated documentation files (the "Software"),
8 
 * to deal in the Software without restriction, including without limitation
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
11 
 * Software is furnished to do so, subject to the following conditions:
12 
 *
13 
 * The above copyright notice and this permission notice shall be included in
14 
 * all copies or substantial portions of the Software.
15 
 *
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,
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
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
22 
 * DEALINGS IN THE SOFTWARE.
23 
 */
24 
 
971 mateusz.vi 25 
#include <i86.h>
597 mateuszvis 26 
#include <stdlib.h>  /* NULL */
27 
#include <string.h>  /* memcmp(), strcpy() */
28 
 
29 
#include "svarlang.h"
30 
 
31 
 
599 mateuszvis 32 
/* supplied through DEFLANG.C */
33 
extern char svarlang_mem[];
34 
extern const unsigned short svarlang_memsz;
35 
 
36 
 
597 mateuszvis 37 
const char *svarlang_strid(unsigned short id) {
38 
  const char *ptr = svarlang_mem;
39 
  /* find the string id in langblock memory */
40 
  for (;;) {
623 mateuszvis 41 
    if (((unsigned short *)ptr)[0] == id) return(ptr + 4);
42 
    if (((unsigned short *)ptr)[1] == 0) return(ptr + 2); /* end of strings - return an empty string */
43 
    ptr += ((unsigned short *)ptr)[1] + 4;
597 mateuszvis 44 
  }
45 
}
46 
 
47 
 
971 mateusz.vi 48 
static unsigned short FOPEN(const char *s) {
49 
  unsigned short fname_seg = FP_SEG(s);
50 
  unsigned short fname_off = FP_OFF(s);
51 
  unsigned short res = 0xffff;
52 
  _asm {
53 
    push dx
54 
    push ds
55 
 
56 
    mov ax, fname_seg
57 
    mov dx, fname_off
58 
    mov ds, ax
59 
    mov ax, 0x3d00  /* open file, read-only (fname at DS:DX) */
60 
    int 0x21
61 
    pop ds
62 
    jc ERR
63 
    mov res, ax
64 
 
65 
    ERR:
66 
    pop dx
67 
  }
68 
 
69 
  return(res);
70 
}
71 
 
72 
 
73 
static void FCLOSE(unsigned short handle) {
74 
  _asm {
75 
    push bx
76 
 
77 
    mov ah, 0x3e
78 
    mov bx, handle
79 
    int 0x21
80 
 
81 
    pop bx
82 
  }
83 
}
84 
 
85 
 
86 
static unsigned short FREAD(unsigned short handle, void *buff, unsigned short bytes) {
87 
  unsigned short buff_seg = FP_SEG(buff);
88 
  unsigned short buff_off = FP_OFF(buff);
89 
  unsigned short res = 0;
90 
 
91 
  _asm {
92 
    push bx
93 
    push cx
94 
    push dx
95 
 
96 
    mov bx, handle
97 
    mov cx, bytes
98 
    mov dx, buff_off
99 
    mov ax, buff_seg
100 
    push ds
101 
    mov ds, ax
102 
    mov ah, 0x3f    /* read cx bytes from file handle bx to DS:DX */
103 
    int 0x21
104 
    pop ds
105 
    jc ERR
106 
 
107 
    mov res, ax
108 
    ERR:
109 
 
110 
    pop dx
111 
    pop cx
112 
    pop bx
113 
  }
114 
 
115 
  return(res);
116 
}
117 
 
118 
 
119 
static void FJUMP(unsigned short handle, unsigned short bytes) {
120 
  _asm {
121 
    push bx
122 
    push cx
123 
    push dx
124 
 
125 
    mov ax, 0x4201  /* move file pointer from cur pos + CX:DX */
126 
    mov bx, handle
127 
    xor cx, cx
128 
    mov dx, bytes
129 
    int 0x21
130 
 
131 
    pop dx
132 
    pop cx
133 
    pop bx
134 
  }
135 
}
136 
 
137 
 
1277 mateusz.vi 138 
int svarlang_load(const char *fname, const char *lang) {
597 mateuszvis 139 
  unsigned short langid;
971 mateusz.vi 140 
  unsigned short fd;
1277 mateusz.vi 141 
  char hdr[4];
597 mateuszvis 142 
  unsigned short buff16[2];
143 
 
144 
  langid = *((unsigned short *)lang);
145 
  langid &= 0xDFDF; /* make sure lang is upcase */
146 
 
1277 mateusz.vi 147 
  fd = FOPEN(fname);
148 
  if (fd == 0xffff) return(-1);
814 mateusz.vi 149 
 
597 mateuszvis 150 
  /* read hdr, should be "SvL\33" */
1277 mateusz.vi 151 
  if ((FREAD(fd, hdr, 4) != 4) || (memcmp(hdr, "SvL\33", 4) != 0)) {
971 mateusz.vi 152 
    FCLOSE(fd);
597 mateuszvis 153 
    return(-3);
154 
  }
155 
 
156 
  /* read next lang id in file */
971 mateusz.vi 157 
  while (FREAD(fd, buff16, 4) == 4) {
597 mateuszvis 158 
 
159 
    /* is it the lang I am looking for? */
160 
    if (buff16[0] != langid) { /* skip to next lang */
971 mateusz.vi 161 
      FJUMP(fd, buff16[1]);
597 mateuszvis 162 
      continue;
163 
    }
164 
 
165 
    /* found - but do I have enough memory space? */
599 mateuszvis 166 
    if (buff16[1] >= svarlang_memsz) {
971 mateusz.vi 167 
      FCLOSE(fd);
597 mateuszvis 168 
      return(-4);
169 
    }
170 
 
171 
    /* load strings */
971 mateusz.vi 172 
    if (FREAD(fd, svarlang_mem, buff16[1]) != buff16[1]) break;
173 
    FCLOSE(fd);
597 mateuszvis 174 
    return(0);
175 
  }
176 
 
971 mateusz.vi 177 
  FCLOSE(fd);
597 mateuszvis 178 
  return(-5);
179 
}