Subversion Repositories SvarDOS

Rev

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

Rev Author Line No. Line
1290 bernd.boec 1
/* This file is part of the svarlang project and is published under the terms
2
 * of the MIT license.
3
 *
4
 * Copyright (C) 2021-2023 Mateusz Viste
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
 
25
/* if WITHSTDIO is enabled, then remap file operations to use the standard
26
 * stdio amenities */
27
#ifdef WITHSTDIO
28
 
29
#include <stdio.h>   /* FILE, fopen(), fseek(), etc */
30
typedef FILE* FHANDLE;
31
#define FOPEN(x) fopen(x, "rb")
32
#define FCLOSE(x) fclose(x)
33
#define FSEEK(f,b) fseek(f,b,SEEK_CUR)
34
#define FREAD(f,t,b) fread(t, 1, b, f)
35
 
36
#else
37
 
1300 mateusz.vi 38
#include <i86.h>  /* FP_SEG, FP_OFF */
1290 bernd.boec 39
typedef unsigned short FHANDLE;
40
 
41
#endif
42
 
43
 
44
#include "svarlang.h"
45
 
46
 
47
/* supplied through DEFLANG.C */
48
extern char svarlang_mem[];
49
extern unsigned short svarlang_dict[];
50
extern const unsigned short svarlang_memsz;
51
extern const unsigned short svarlang_string_count;
52
 
1298 mateusz.vi 53
 
1290 bernd.boec 54
const char *svarlang_strid(unsigned short id) {
1299 mateusz.vi 55
  unsigned short left = 0, right = svarlang_string_count - 1, x;
1298 mateusz.vi 56
  unsigned short v;
1290 bernd.boec 57
 
1298 mateusz.vi 58
  if (svarlang_string_count == 0) return("");
1290 bernd.boec 59
 
1298 mateusz.vi 60
  while (left <= right) {
1299 mateusz.vi 61
    x = left + ((right - left ) >> 2);
1298 mateusz.vi 62
    v = svarlang_dict[x * 2];
63
 
64
    if (id == v) return(svarlang_mem + svarlang_dict[x * 2 + 1]);
65
 
66
    if (id > v) {
67
      left = x + 1;
68
    } else {
69
      right = x - 1;
70
    }
71
  }
72
 
73
  return("");
1290 bernd.boec 74
}
75
 
1293 mateusz.vi 76
 
1290 bernd.boec 77
/* routines below are simplified (dos-based) versions of the libc FILE-related
78
 * functions. Using them avoids a dependency on FILE, hence makes the binary
79
 * smaller if the application does not need to pull fopen() and friends */
80
#ifndef WITHSTDIO
81
static unsigned short FOPEN(const char *s) {
82
  unsigned short fname_seg = FP_SEG(s);
83
  unsigned short fname_off = FP_OFF(s);
84
  unsigned short res = 0; /* fd 0 is already used by stdout so it's a good error value */
85
  _asm {
86
    push dx
87
    push ds
88
 
89
    mov ax, fname_seg
90
    mov dx, fname_off
91
    mov ds, ax
92
    mov ax, 0x3d00  /* open file, read-only (fname at DS:DX) */
93
    int 0x21
94
    pop ds
95
    jc ERR
96
    mov res, ax
97
 
98
    ERR:
99
    pop dx
100
  }
101
 
102
  return(res);
103
}
104
 
105
 
106
static void FCLOSE(unsigned short handle) {
107
  _asm {
108
    push bx
109
 
110
    mov ah, 0x3e
111
    mov bx, handle
112
    int 0x21
113
 
114
    pop bx
115
  }
116
}
117
 
118
 
119
static unsigned short FREAD(unsigned short handle, void *buff, unsigned short bytes) {
120
  unsigned short buff_seg = FP_SEG(buff);
121
  unsigned short buff_off = FP_OFF(buff);
122
  unsigned short res = 0;
123
 
124
  _asm {
125
    push bx
126
    push cx
127
    push dx
128
 
129
    mov bx, handle
130
    mov cx, bytes
131
    mov dx, buff_off
132
    mov ax, buff_seg
133
    push ds
134
    mov ds, ax
135
    mov ah, 0x3f    /* read cx bytes from file handle bx to DS:DX */
136
    int 0x21
137
    pop ds
138
    jc ERR
139
 
140
    mov res, ax
141
    ERR:
142
 
143
    pop dx
144
    pop cx
145
    pop bx
146
  }
147
 
148
  return(res);
149
}
150
 
151
 
152
static void FSEEK(unsigned short handle, unsigned short bytes) {
153
  _asm {
154
    push bx
155
    push cx
156
    push dx
157
 
158
    mov ax, 0x4201  /* move file pointer from cur pos + CX:DX */
159
    mov bx, handle
160
    xor cx, cx
161
    mov dx, bytes
162
    int 0x21
163
 
164
    pop dx
165
    pop cx
166
    pop bx
167
  }
168
}
169
#endif
170
 
1293 mateusz.vi 171
 
1290 bernd.boec 172
int svarlang_load(const char *fname, const char *lang) {
173
  unsigned short langid;
174
  unsigned short buff16[2];
175
  FHANDLE fd;
1373 mateusz.vi 176
  struct {
177
    unsigned long sig;
178
    unsigned short string_count;
179
  } hdr;
1290 bernd.boec 180
 
181
  langid = *((unsigned short *)lang);
182
  langid &= 0xDFDF; /* make sure lang is upcase */
183
 
184
  fd = FOPEN(fname);
185
  if (!fd) return(-1);
186
 
1373 mateusz.vi 187
  /* read hdr, sig should be "SvL\x1a" (0x1a4c7653) */
188
  if ((FREAD(fd, &hdr, 6) != 6) || (hdr.sig != 0x1a4c7653L) || (hdr.string_count != svarlang_string_count)) {
1290 bernd.boec 189
    FCLOSE(fd);
1373 mateusz.vi 190
    return(-2);
1290 bernd.boec 191
  }
192
 
1374 mateusz.vi 193
  for (;;) {
194
    /* read next lang id and string table size in file */
195
    if (FREAD(fd, buff16, 4) != 4) {
196
      FCLOSE(fd);
197
      return(-3);
198
    }
1290 bernd.boec 199
 
200
    /* is it the lang I am looking for? */
1374 mateusz.vi 201
    if (buff16[0] == langid) break;
1290 bernd.boec 202
 
1375 mateusz.vi 203
    /* skip to next lang (in two steps to avoid a potential uint16 overflow) */
1374 mateusz.vi 204
    FSEEK(fd, svarlang_string_count * 4);
205
    FSEEK(fd, buff16[1]);
206
  }
1290 bernd.boec 207
 
1375 mateusz.vi 208
  /* load dictionary & strings, but only if I have enough memory space */
209
  if ((buff16[1] >= svarlang_memsz)
210
   || (FREAD(fd, svarlang_dict, svarlang_string_count * 4) != svarlang_string_count * 4)
211
   || (FREAD(fd, svarlang_mem, buff16[1]) != buff16[1])) {
1290 bernd.boec 212
    FCLOSE(fd);
1374 mateusz.vi 213
    return(-4);
1290 bernd.boec 214
  }
215
 
216
  FCLOSE(fd);
1374 mateusz.vi 217
  return(0);
1290 bernd.boec 218
}