Subversion Repositories SvarDOS

Rev

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

Rev Author Line No. Line
28 mv_fox 1
/*
190 mateuszvis 2
 * SVARDOS INSTALL PROGRAM
206 mateuszvis 3
 *
190 mateuszvis 4
 * PUBLISHED UNDER THE TERMS OF THE MIT LICENSE
42 mv_fox 5
 *
1624 mateusz.vi 6
 * COPYRIGHT (C) 2016-2024 MATEUSZ VISTE, ALL RIGHTS RESERVED.
94 mv_fox 7
 *
190 mateuszvis 8
 * Permission is hereby granted, free of charge, to any person obtaining a
9
 * copy of this software and associated documentation files (the "Software"),
10
 * to deal in the Software without restriction, including without limitation
11
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
12
 * and/or sell copies of the Software, and to permit persons to whom the
13
 * Software is furnished to do so, subject to the following conditions:
94 mv_fox 14
 *
190 mateuszvis 15
 * The above copyright notice and this permission notice shall be included in
16
 * all copies or substantial portions of the Software.
94 mv_fox 17
 *
190 mateuszvis 18
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
19
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
20
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
21
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
22
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
23
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
24
 * DEALINGS IN THE SOFTWARE.
94 mv_fox 25
 *
868 mateusz.vi 26
 * http://svardos.org
28 mv_fox 27
 */
28
 
29
#include <dos.h>
30 mv_fox 30
#include <direct.h>  /* mkdir() */
28 mv_fox 31
#include <stdio.h>   /* printf() and friends */
32
#include <stdlib.h>  /* system() */
33
#include <string.h>  /* memcpy() */
34
#include <unistd.h>
42 mv_fox 35
 
1662 mateusz.vi 36
#include "mdr\cout.h"
1661 mateusz.vi 37
#include "mdr\dos.h"
624 mateuszvis 38
#include "svarlang.lib\svarlang.h"
42 mv_fox 39
 
67 mv_fox 40
/* keyboard layouts and locales */
41
#include "keylay.h"
42
#include "keyoff.h"
42 mv_fox 43
 
908 mateusz.vi 44
/* prototype of the int24hdl() function defined in int24hdl.asm */
45
void int24hdl(void);
46
 
47
 
1664 mateusz.vi 48
/* color scheme (preset for color) */
49
static unsigned char COLOR_TITLEBAR  = 0x70;
50
static unsigned char COLOR_BODY      = 0x17;
51
static unsigned char COLOR_SELECT    = 0x70;
52
static unsigned char COLOR_SELECTCUR = 0x1F;
28 mv_fox 53
 
54
 
190 mateuszvis 55
/* how much disk space does SvarDOS require (in MiB) */
56
#define SVARDOS_DISK_REQ 8
28 mv_fox 57
 
73 mv_fox 58
/* menu screens can output only one of these: */
59
#define MENUNEXT 0
60
#define MENUPREV -1
61
#define MENUQUIT -2
62
 
67 mv_fox 63
/* a convenience 'function' used for debugging */
64
#define DBG(x) { video_putstringfix(24, 0, 0x4F00u, x, 80); }
47 mv_fox 65
 
67 mv_fox 66
struct slocales {
67
  char lang[4];
624 mateuszvis 68
  const char *keybcode;
67 mv_fox 69
  unsigned int codepage;
70
  int egafile;
71
  int keybfile;
72
  int keyboff;
73
  int keyblen;
96 mv_fox 74
  unsigned int keybid;
67 mv_fox 75
};
76
 
77
 
1662 mateusz.vi 78
/* put a string on screen and fill it until w chars with whilte space */
79
static void video_putstringfix(unsigned char y, unsigned char x, unsigned char attr, const char *s, unsigned char w) {
80
  unsigned char i;
81
 
82
  /* print the string up to w characters */
83
  i = mdr_cout_str(y, x, s, attr, w);
84
 
85
  /* fill in left space (if any) with blanks */
86
  mdr_cout_char_rep(y, x + i, ' ', attr, w - i);
87
}
88
 
89
 
28 mv_fox 90
/* reboot the computer */
91
static void reboot(void) {
92
  void ((far *bootroutine)()) = (void (far *)()) 0xFFFF0000L;
93
  int far *rstaddr = (int far *)0x00400072L; /* BIOS boot flag is at 0040:0072 */
94
  *rstaddr = 0x1234; /* 0x1234 = warm boot, 0 = cold boot */
95
  (*bootroutine)(); /* jump to the BIOS reboot routine at FFFF:0000 */
96
}
97
 
42 mv_fox 98
 
56 mv_fox 99
/* outputs a string to screen with taking care of word wrapping. returns amount of lines. */
1662 mateusz.vi 100
static unsigned char putstringwrap(unsigned char y, unsigned char x, unsigned char attr, const char *s) {
101
  unsigned char linew, lincount;
102
  linew = 80 - (x << 1);
56 mv_fox 103
 
104
  for (lincount = 1; y+lincount < 25; lincount++) {
105
    int i, len = linew;
106
    for (i = 0; i <= linew; i++) {
107
      if (s[i] == ' ') len = i;
108
      if (s[i] == '\n') {
109
        len = i;
110
        break;
111
      }
112
      if (s[i] == 0) {
113
        len = i;
114
        break;
115
      }
116
    }
1662 mateusz.vi 117
    mdr_cout_str(y++, x, s, attr, len);
56 mv_fox 118
    s += len;
119
    if (*s == 0) break;
120
    s += 1; /* skip the whitespace char */
121
  }
122
  return(lincount);
123
}
124
 
125
 
126
/* an NLS wrapper around video_putstring(), also performs line wrapping when
127
 * needed. returns the amount of lines that were output */
1662 mateusz.vi 128
static unsigned char putstringnls(unsigned char y, unsigned char x, unsigned char attr, unsigned char nlsmaj, unsigned char nlsmin) {
624 mateuszvis 129
  const char *s = svarlang_str(nlsmaj, nlsmin);
130
  if (s == NULL) s = "";
56 mv_fox 131
  return(putstringwrap(y, x, attr, s));
42 mv_fox 132
}
133
 
134
 
280 mateuszvis 135
/* copy file f1 to f2 using buff as a buffer of buffsz bytes. f2 will be overwritten if it
136
 * exists already! returns 0 on success. */
137
static int fcopy(const char *f2, const char *f1, void *buff, size_t buffsz) {
138
  FILE *fd1, *fd2;
139
  size_t sz;
140
  int res = -1; /* assume failure */
141
 
142
  /* open files */
143
  fd1 = fopen(f1, "rb");
144
  fd2 = fopen(f2, "wb");
145
  if ((fd1 == NULL) || (fd2 == NULL)) goto QUIT;
146
 
147
  /* copy data */
148
  for (;;) {
149
    sz = fread(buff, 1, buffsz, fd1);
150
    if (sz == 0) {
151
      if (feof(fd1) != 0) break;
152
      goto QUIT;
153
    }
154
    if (fwrite(buff, 1, sz, fd2) != sz) goto QUIT;
155
  }
156
 
157
  res = 0; /* success */
158
 
159
  QUIT:
160
  if (fd1 != NULL) fclose(fd1);
161
  if (fd2 != NULL) fclose(fd2);
162
  return(res);
163
}
164
 
165
 
1662 mateusz.vi 166
static int menuselect(unsigned char ypos, int xpos, unsigned char height, const char **list, int listlen) {
28 mv_fox 167
  int i, offset = 0, res = 0, count, width = 0;
1662 mateusz.vi 168
  unsigned char y;
169
 
67 mv_fox 170
  /* count how many positions there is, and check their width */
171
  for (count = 0; (list[count] != NULL) && (count != listlen); count++) {
28 mv_fox 172
    int len = strlen(list[count]);
173
    if (len > width) width = len;
174
  }
175
 
176
  /* if xpos negative, means 'center out' */
177
  if (xpos < 0) xpos = 39 - (width >> 1);
178
 
1664 mateusz.vi 179
  mdr_cout_char(ypos, xpos+width+2, 0xBF, COLOR_SELECT);         /*       \ */
180
  mdr_cout_char(ypos, xpos-1, 0xDA, COLOR_SELECT);               /*  /      */
181
  mdr_cout_char(ypos+height-1, xpos-1, 0xC0, COLOR_SELECT);      /*  \      */
182
  mdr_cout_char(ypos+height-1, xpos+width+2, 0xD9, COLOR_SELECT);/*      /  */
183
  mdr_cout_char_rep(ypos, xpos, 0xC4, COLOR_SELECT, width + 2);
184
  mdr_cout_char_rep(ypos+height-1, xpos, 0xC4, COLOR_SELECT, width + 2);
28 mv_fox 185
 
1662 mateusz.vi 186
  for (y = ypos + 1; y < (ypos + height - 1); y++) {
1664 mateusz.vi 187
    mdr_cout_char(y, xpos-1, 0xB3, COLOR_SELECT);
188
    mdr_cout_char(y, xpos+width+2, 0xB3, COLOR_SELECT);
1662 mateusz.vi 189
  }
190
 
28 mv_fox 191
  for (;;) {
192
    int key;
193
    /* list of selectable items */
194
    for (i = 0; i < height - 2; i++) {
195
      if (i + offset == res) {
1664 mateusz.vi 196
        mdr_cout_char(ypos + 1 + i, xpos, 16, COLOR_SELECTCUR);
197
        mdr_cout_char(ypos + 1 + i, xpos+width+1, 17, COLOR_SELECTCUR);
1662 mateusz.vi 198
        mdr_cout_locate(ypos + 1 + i, xpos);
1664 mateusz.vi 199
        video_putstringfix(ypos + 1 + i, xpos+1, COLOR_SELECTCUR, list[i + offset], width);
28 mv_fox 200
      } else if (i + offset < count) {
1664 mateusz.vi 201
        mdr_cout_char(ypos + 1 + i, xpos, ' ', COLOR_SELECT);
202
        mdr_cout_char(ypos + 1 + i, xpos+width+1, ' ', COLOR_SELECT);
203
        video_putstringfix(ypos + 1 + i, xpos+1, COLOR_SELECT, list[i + offset], width);
28 mv_fox 204
      } else {
1664 mateusz.vi 205
        mdr_cout_char_rep(ypos + 1 + i, xpos, ' ', COLOR_SELECT, width+2);
28 mv_fox 206
      }
207
    }
1661 mateusz.vi 208
    key = mdr_dos_getkey();
28 mv_fox 209
    if (key == 0x0D) { /* ENTER */
210
      return(res);
211
    } else if (key == 0x148) { /* up */
33 mv_fox 212
      if (res > 0) {
213
        res--;
214
        if (res < offset) offset = res;
215
      }
28 mv_fox 216
    } else if (key == 0x150) { /* down */
33 mv_fox 217
      if (res+1 < count) {
218
        res++;
219
        if (res > offset + height - 3) offset = res - (height - 3);
220
      }
221
    } else if (key == 0x147) { /* home */
222
      res = 0;
223
      offset = 0;
224
    } else if (key == 0x14F) { /* end */
225
      res = count - 1;
226
      if (res > offset + height - 3) offset = res - (height - 3);
28 mv_fox 227
    } else if (key == 0x1B) {  /* ESC */
228
      return(-1);
78 mv_fox 229
    }/* else {
33 mv_fox 230
      char buf[8];
55 mv_fox 231
      snprintf(buf, sizeof(buf), "0x%02X ", key);
1664 mateusz.vi 232
      video_putstring(1, 0, COLOR_BODY, buf, -1);
78 mv_fox 233
    }*/
28 mv_fox 234
  }
235
}
236
 
1662 mateusz.vi 237
static void newscreen(unsigned char statusbartype) {
624 mateuszvis 238
  const char *msg;
1664 mateusz.vi 239
  mdr_cout_cls(COLOR_BODY);
624 mateuszvis 240
  msg = svarlang_strid(0x00); /* "SVARDOS INSTALLATION" */
1664 mateusz.vi 241
  mdr_cout_char_rep(0, 0, ' ', COLOR_TITLEBAR, 80);
242
  mdr_cout_str(0, 40 - (strlen(msg) >> 1), msg, COLOR_TITLEBAR, 80);
79 mv_fox 243
  switch (statusbartype) {
244
    case 1:
624 mateuszvis 245
      msg = svarlang_strid(0x000B); /* "Up/Down = Select entry | Enter = Validate your choice | ESC = Quit to DOS" */
79 mv_fox 246
      break;
247
    case 2:
624 mateuszvis 248
      msg = svarlang_strid(0x0005); /* "Press any key..." */
79 mv_fox 249
      break;
250
    case 3:
251
      msg = "";
252
      break;
253
    default:
624 mateuszvis 254
      msg = svarlang_strid(0x000A); /* "Up/Down = Select entry | Enter = Validate your choice | ESC = Previous screen" */
79 mv_fox 255
      break;
256
  }
1664 mateusz.vi 257
  mdr_cout_char(24, 0, ' ', COLOR_TITLEBAR);
258
  video_putstringfix(24, 1, COLOR_TITLEBAR, msg, 79);
1662 mateusz.vi 259
  mdr_cout_locate(25,0);
28 mv_fox 260
}
261
 
96 mv_fox 262
/* fills a slocales struct accordingly to the value of its keyboff member */
263
static void kblay2slocal(struct slocales *locales) {
624 mateuszvis 264
  const char *m;
96 mv_fox 265
  for (m = kblayouts[locales->keyboff]; *m != 0; m++); /* skip layout name */
266
  m++;
267
  /* skip keyb code and copy it to locales.keybcode */
268
  locales->keybcode = m;
269
  for (; *m != 0; m++);
270
  /* */
271
  locales->codepage = ((unsigned short)m[1] << 8) | m[2];
272
  locales->egafile = m[3];
273
  locales->keybfile = m[4];
274
  locales->keybid = ((unsigned short)m[5] << 8) | m[6];
275
}
276
 
67 mv_fox 277
static int selectlang(struct slocales *locales) {
278
  int choice, x;
624 mateuszvis 279
  const char *msg;
280
  const char *langlist[] = {
67 mv_fox 281
    "English",
1177 mateusz.vi 282
    "Brazilian",
67 mv_fox 283
    "French",
133 mv_fox 284
    "German",
119 mv_fox 285
    "Italian",
67 mv_fox 286
    "Polish",
116 mv_fox 287
    "Russian",
123 mv_fox 288
    "Slovene",
128 mv_fox 289
    "Swedish",
67 mv_fox 290
    "Turkish",
28 mv_fox 291
    NULL
292
  };
293
 
79 mv_fox 294
  newscreen(1);
624 mateuszvis 295
  msg = svarlang_strid(0x0100); /* "Welcome to SvarDOS" */
42 mv_fox 296
  x = 40 - (strlen(msg) >> 1);
1664 mateusz.vi 297
  mdr_cout_str(4, x, msg, COLOR_BODY, 80);
298
  mdr_cout_char_rep(5, x, '=', COLOR_BODY, strlen(msg));
1662 mateusz.vi 299
 
300
  /* center out the string "Please select your language..." */
301
  msg = svarlang_str(1, 1); /* "Please select your language from the list below:" */
302
  if (strlen(msg) > 74) {
1664 mateusz.vi 303
    putstringwrap(8, 1, COLOR_BODY, msg);
1662 mateusz.vi 304
  } else {
1664 mateusz.vi 305
    mdr_cout_str(8, 40 - (strlen(msg) / 2), msg, COLOR_BODY, 80);
1662 mateusz.vi 306
  }
307
 
133 mv_fox 308
  choice = menuselect(11, -1, 11, langlist, -1);
73 mv_fox 309
  if (choice < 0) return(MENUPREV);
67 mv_fox 310
  /* populate locales with default values */
311
  memset(locales, 0, sizeof(struct slocales));
312
  switch (choice) {
313
    case 1:
1179 mateusz.vi 314
      strcpy(locales->lang, "BR");
315
      locales->keyboff = OFFLOC_BR;
316
      locales->keyblen = OFFLEN_BR;
317
      break;
318
    case 2:
67 mv_fox 319
      strcpy(locales->lang, "FR");
320
      locales->keyboff = OFFLOC_FR;
321
      locales->keyblen = OFFLEN_FR;
322
      break;
1177 mateusz.vi 323
    case 3:
133 mv_fox 324
      strcpy(locales->lang, "DE");
325
      locales->keyboff = OFFLOC_DE;
326
      locales->keyblen = OFFLEN_DE;
327
      break;
1177 mateusz.vi 328
    case 4:
119 mv_fox 329
      strcpy(locales->lang, "IT");
330
      locales->keyboff = OFFLOC_IT;
331
      locales->keyblen = OFFLEN_IT;
332
      break;
1177 mateusz.vi 333
    case 5:
67 mv_fox 334
      strcpy(locales->lang, "PL");
335
      locales->keyboff = OFFLOC_PL;
336
      locales->keyblen = OFFLEN_PL;
337
      break;
1177 mateusz.vi 338
    case 6:
116 mv_fox 339
      strcpy(locales->lang, "RU");
340
      locales->keyboff = OFFLOC_RU;
341
      locales->keyblen = OFFLEN_RU;
342
      break;
1177 mateusz.vi 343
    case 7:
123 mv_fox 344
      strcpy(locales->lang, "SI");
345
      locales->keyboff = OFFLOC_SI;
346
      locales->keyblen = OFFLEN_SI;
347
      break;
1177 mateusz.vi 348
    case 8:
128 mv_fox 349
      strcpy(locales->lang, "SV");
350
      locales->keyboff = OFFLOC_SV;
351
      locales->keyblen = OFFLEN_SV;
352
      break;
1177 mateusz.vi 353
    case 9:
67 mv_fox 354
      strcpy(locales->lang, "TR");
355
      locales->keyboff = OFFLOC_TR;
356
      locales->keyblen = OFFLEN_TR;
357
      break;
358
    default:
359
      strcpy(locales->lang, "EN");
360
      locales->keyboff = 0;
361
      locales->keyblen = OFFCOUNT;
362
      break;
363
  }
96 mv_fox 364
  /* populate the slocales struct accordingly to the keyboff member */
365
  kblay2slocal(locales);
67 mv_fox 366
  /* */
73 mv_fox 367
  return(MENUNEXT);
28 mv_fox 368
}
369
 
370
 
67 mv_fox 371
static int selectkeyb(struct slocales *locales) {
96 mv_fox 372
  int menuheight, choice;
373
  if (locales->keyblen == 1) return(MENUNEXT); /* do not ask for keyboard layout if only one is available for given language */
79 mv_fox 374
  newscreen(0);
1664 mateusz.vi 375
  putstringnls(5, 1, COLOR_BODY, 1, 5); /* "SvarDOS supports different keyboard layouts */
96 mv_fox 376
  menuheight = locales->keyblen + 2;
67 mv_fox 377
  if (menuheight > 13) menuheight = 13;
96 mv_fox 378
  choice = menuselect(10, -1, menuheight, &(kblayouts[locales->keyboff]), locales->keyblen);
379
  if (choice < 0) return(MENUPREV);
380
  /* (re)load the keyboard layout & codepage setup */
381
  locales->keyboff += choice;
382
  kblay2slocal(locales);
73 mv_fox 383
  return(MENUNEXT);
67 mv_fox 384
}
385
 
386
 
28 mv_fox 387
/* returns 0 if installation must proceed, non-zero otherwise */
388
static int welcomescreen(void) {
73 mv_fox 389
  int c;
624 mateuszvis 390
  const char *choice[3];
391
  choice[0] = svarlang_strid(0x0001);
392
  choice[1] = svarlang_strid(0x0002);
393
  choice[2] = NULL;
79 mv_fox 394
  newscreen(0);
1664 mateusz.vi 395
  putstringnls(4, 1, COLOR_BODY, 2, 0); /* "You are about to install SvarDOS */
73 mv_fox 396
  c = menuselect(13, -1, 4, choice, -1);
397
  if (c < 0) return(MENUPREV);
398
  if (c == 0) return(MENUNEXT);
399
  return(MENUQUIT);
28 mv_fox 400
}
401
 
402
 
33 mv_fox 403
/* returns 1 if drive is removable, 0 if not, -1 on error */
404
static int isdriveremovable(int drv) {
28 mv_fox 405
  union REGS r;
33 mv_fox 406
  r.x.ax = 0x4408;
407
  r.h.bl = drv;
28 mv_fox 408
  int86(0x21, &r, &r);
33 mv_fox 409
  /* CF set on error, AX set to 0 if removable, 1 if fixed */
410
  if (r.x.cflag != 0) return(-1);
411
  if (r.x.ax == 0) return(1);
412
  return(0);
28 mv_fox 413
}
414
 
415
 
35 mv_fox 416
/* returns total disk space of drive drv (in MiB, max 2048), or -1 if drive invalid */
417
static int disksize(int drv) {
28 mv_fox 418
  long res;
419
  union REGS r;
420
  r.h.ah = 0x36; /* DOS 2+ get free disk space */
312 mateuszvis 421
  r.h.dl = drv;  /* A=1, B=2, etc */
28 mv_fox 422
  int86(0x21, &r, &r);
423
  if (r.x.ax == 0xffffu) return(-1); /* AX set to FFFFh if drive invalid */
49 mv_fox 424
  res = r.x.ax;  /* sectors per cluster */
425
  res *= r.x.dx; /* dx contains total clusters, bx contains free clusters */
426
  res *= r.x.cx; /* bytes per sector */
427
  res >>= 20;    /* convert bytes to MiB */
428
  return(res);
35 mv_fox 429
}
430
 
431
 
432
/* returns 0 if disk is empty, non-zero otherwise */
433
static int diskempty(int drv) {
434
  unsigned int rc;
435
  int res;
436
  char buff[8];
437
  struct find_t fileinfo;
55 mv_fox 438
  snprintf(buff, sizeof(buff), "%c:\\*.*", 'A' + drv - 1);
35 mv_fox 439
  rc = _dos_findfirst(buff, _A_NORMAL | _A_SUBDIR | _A_HIDDEN | _A_SYSTEM, &fileinfo);
440
  if (rc == 0) {
441
    res = 1; /* call successfull means disk is not empty */
28 mv_fox 442
  } else {
35 mv_fox 443
    res = 0;
28 mv_fox 444
  }
35 mv_fox 445
  /* _dos_findclose(&fileinfo); */ /* apparently required only on OS/2 */
28 mv_fox 446
  return(res);
447
}
448
 
280 mateuszvis 449
#ifdef DEADCODE
200 mateuszvis 450
/* set new DOS "current drive" to drv ('A', 'B', etc). returns 0 on success */
451
static int set_cur_drive(char drv) {
452
  union REGS r;
453
  if ((drv < 'A') || (drv > 'Z')) return(-1);
454
  r.h.ah = 0x0E; /* DOS 1+ SELECT DEFAULT DRIVE */
455
  r.h.dl = drv - 'A';
456
  int86(0x21, &r, &r);
457
  if (r.h.al < drv - 'A') return(-1);
458
  return(0);
459
}
280 mateuszvis 460
#endif
200 mateuszvis 461
 
310 mateuszvis 462
 
463
/* get the DOS "current drive" (0=A:, 1=B:, etc) */
464
static int get_cur_drive(void) {
465
  union REGS r;
466
  r.h.ah = 0x19; /* DOS 1+ GET CURRENT DEFAULT DRIVE */
467
  int86(0x21, &r, &r);
468
  return(r.h.al);
469
}
470
 
471
 
200 mateuszvis 472
/* returns 0 if file exists, non-zero otherwise */
473
static int fileexists(const char *fname) {
474
  FILE *fd;
475
  fd = fopen(fname, "rb");
476
  if (fd == NULL) return(-1);
477
  fclose(fd);
478
  return(0);
479
}
480
 
481
 
898 mateusz.vi 482
/* tries to write an empty file to drive.
483
 * asks DOS to inhibit the int 24h handler for this job, so erros are
484
 * gracefully reported - unfortunately this does not work under FreeDOS because
485
 * the DOS-C kernel does not implement the required flag.
486
 * returns 0 on success (ie. "disk exists and is writeable"). */
487
static unsigned short test_drive_write(char drive, char *buff) {
488
  unsigned short result = 0;
489
  sprintf(buff, "%c:\\SVWRTEST.123", drive);
490
  _asm {
491
    push ax
492
    push bx
493
    push cx
494
    push dx
495
 
496
    mov ah, 0x6c   /* extended open/create file */
497
    mov bx, 0x2001 /* open for write + inhibit int 24h handler */
498
    xor cx, cx     /* file attributes on the created file */
499
    mov dx, 0x0010 /* create file if does not exist, fail if it exists */
500
    mov si, buff   /* filename to create */
501
    int 0x21
502
    jc FAILURE
503
    /* close the file (handle in AX) */
504
    mov bx, ax
505
    mov ah, 0x3e /* close file */
506
    int 0x21
507
    jc FAILURE
508
    /* delete the file */
509
    mov ah, 0x41 /* delete file pointed out by DS:DX */
510
    mov dx, buff
511
    int 0x21
512
    jnc DONE
513
 
514
    FAILURE:
515
    mov result, ax
516
    DONE:
517
 
518
    pop dx
519
    pop cx
520
    pop bx
521
    pop ax
522
  }
523
  return(result);
524
}
525
 
526
 
310 mateuszvis 527
static int preparedrive(char sourcedrv) {
33 mv_fox 528
  int driveremovable;
310 mateuszvis 529
  int selecteddrive = 3; /* default to 'C:' */
36 mv_fox 530
  int cselecteddrive;
35 mv_fox 531
  int ds;
73 mv_fox 532
  int choice;
56 mv_fox 533
  char buff[1024];
312 mateuszvis 534
  int driveid = 1; /* fdisk runs on first drive (unless USB boot) */
535
  if (selecteddrive == get_cur_drive() + 1) { /* get_cur_drive() returns 0-based values (A=0) while selecteddrive is 1-based (A=1) */
536
    selecteddrive = 4; /* use D: if install is run from C: (typically because it was booted from USB?) */
537
    driveid = 2; /* primary drive is the emulated USB storage */
538
  }
36 mv_fox 539
  cselecteddrive = 'A' + selecteddrive - 1;
28 mv_fox 540
  for (;;) {
33 mv_fox 541
    driveremovable = isdriveremovable(selecteddrive);
542
    if (driveremovable < 0) {
624 mateuszvis 543
      const char *list[4];
79 mv_fox 544
      newscreen(0);
624 mateuszvis 545
      list[0] = svarlang_str(0, 3); /* Create a partition automatically */
546
      list[1] = svarlang_str(0, 4); /* Run the FDISK tool */
547
      list[2] = svarlang_str(0, 2); /* Quit to DOS */
548
      list[3] = NULL;
549
      snprintf(buff, sizeof(buff), svarlang_strid(0x0300), cselecteddrive, SVARDOS_DISK_REQ); /* "ERROR: Drive %c: could not be found. Note, that SvarDOS requires at least %d MiB of available disk space */
1664 mateusz.vi 550
      switch (menuselect(6 + putstringwrap(4, 1, COLOR_BODY, buff), -1, 5, list, -1)) {
33 mv_fox 551
        case 0:
1239 mateusz.vi 552
          sprintf(buff, "FDISK /PRI:MAX %d", driveid);
312 mateuszvis 553
          system(buff);
33 mv_fox 554
          break;
555
        case 1:
1662 mateusz.vi 556
          mdr_cout_cls(0x07);
557
          mdr_cout_locate(0, 0);
312 mateuszvis 558
          sprintf(buff, "FDISK %d", driveid);
559
          system(buff);
33 mv_fox 560
          break;
73 mv_fox 561
        case 2:
562
          return(MENUQUIT);
56 mv_fox 563
        default:
33 mv_fox 564
          return(-1);
565
      }
113 mv_fox 566
      /* write a temporary MBR which only skips the drive (in case BIOS would
567
       * try to boot off the not-yet-ready C: disk) */
1239 mateusz.vi 568
      sprintf(buff, "FDISK /LOADIPL %d", driveid);
312 mateuszvis 569
      system(buff); /* writes BOOT.MBR into actual MBR */
79 mv_fox 570
      newscreen(2);
1664 mateusz.vi 571
      putstringnls(10, 10, COLOR_BODY, 3, 1); /* "Your computer will reboot now." */
572
      putstringnls(12, 10, COLOR_BODY, 0, 5); /* "Press any key..." */
1661 mateusz.vi 573
      mdr_dos_getkey();
28 mv_fox 574
      reboot();
73 mv_fox 575
      return(MENUQUIT);
33 mv_fox 576
    } else if (driveremovable > 0) {
79 mv_fox 577
      newscreen(2);
624 mateuszvis 578
      snprintf(buff, sizeof(buff), svarlang_strid(0x0302), cselecteddrive); /* "ERROR: Drive %c: is a removable device */
1664 mateusz.vi 579
      mdr_cout_str(9, 1, buff, COLOR_BODY, 80);
580
      putstringnls(11, 2, COLOR_BODY, 0, 5); /* "Press any key..." */
73 mv_fox 581
      return(MENUQUIT);
28 mv_fox 582
    }
33 mv_fox 583
    /* if not formatted, propose to format it right away (try to create a directory) */
898 mateusz.vi 584
    if (test_drive_write(cselecteddrive, buff) != 0) {
624 mateuszvis 585
      const char *list[3];
79 mv_fox 586
      newscreen(0);
624 mateuszvis 587
      snprintf(buff, sizeof(buff), svarlang_str(3, 3), cselecteddrive); /* "ERROR: Drive %c: seems to be unformated. Do you wish to format it?") */
1664 mateusz.vi 588
      mdr_cout_str(7, 1, buff, COLOR_BODY, 80);
556 mateuszvis 589
 
624 mateuszvis 590
      snprintf(buff, sizeof(buff), svarlang_strid(0x0007), cselecteddrive); /* "Format drive %c:" */
556 mateuszvis 591
      list[0] = buff;
624 mateuszvis 592
      list[1] = svarlang_strid(0x0002); /* "Quit to DOS" */
556 mateuszvis 593
      list[2] = NULL;
594
 
73 mv_fox 595
      choice = menuselect(12, -1, 4, list, -1);
596
      if (choice < 0) return(MENUPREV);
597
      if (choice == 1) return(MENUQUIT);
1662 mateusz.vi 598
      mdr_cout_cls(0x07);
599
      mdr_cout_locate(0, 0);
190 mateuszvis 600
      snprintf(buff, sizeof(buff), "FORMAT %c: /Q /U /Z:seriously /V:SVARDOS", cselecteddrive);
36 mv_fox 601
      system(buff);
28 mv_fox 602
      continue;
603
    }
33 mv_fox 604
    /* check total disk space */
35 mv_fox 605
    ds = disksize(selecteddrive);
190 mateuszvis 606
    if (ds < SVARDOS_DISK_REQ) {
56 mv_fox 607
      int y = 9;
79 mv_fox 608
      newscreen(2);
624 mateuszvis 609
      snprintf(buff, sizeof(buff), svarlang_strid(0x0304), cselecteddrive, SVARDOS_DISK_REQ); /* "ERROR: Drive %c: is not big enough! SvarDOS requires a disk of at least %d MiB." */
1664 mateusz.vi 610
      y += putstringwrap(y, 1, COLOR_BODY, buff);
611
      putstringnls(++y, 1, COLOR_BODY, 0, 5); /* "Press any key..." */
1661 mateusz.vi 612
      mdr_dos_getkey();
73 mv_fox 613
      return(MENUQUIT);
28 mv_fox 614
    }
615
    /* is the disk empty? */
79 mv_fox 616
    newscreen(0);
35 mv_fox 617
    if (diskempty(selecteddrive) != 0) {
624 mateuszvis 618
      const char *list[3];
65 mv_fox 619
      int y = 6;
624 mateuszvis 620
      snprintf(buff, sizeof(buff), svarlang_strid(0x0305), cselecteddrive); /* "ERROR: Drive %c: not empty" */
1664 mateusz.vi 621
      y += putstringwrap(y, 1, COLOR_BODY, buff);
556 mateuszvis 622
 
624 mateuszvis 623
      snprintf(buff, sizeof(buff), svarlang_strid(0x0007), cselecteddrive); /* "Format drive %c:" */
556 mateuszvis 624
      list[0] = buff;
624 mateuszvis 625
      list[1] = svarlang_strid(0x0002); /* "Quit to DOS" */
556 mateuszvis 626
      list[2] = NULL;
627
 
73 mv_fox 628
      choice = menuselect(++y, -1, 4, list, -1);
629
      if (choice < 0) return(MENUPREV);
630
      if (choice == 1) return(MENUQUIT);
1662 mateusz.vi 631
      mdr_cout_cls(0x07);
632
      mdr_cout_locate(0, 0);
190 mateuszvis 633
      snprintf(buff, sizeof(buff), "FORMAT %c: /Q /U /Z:seriously /V:SVARDOS", cselecteddrive);
42 mv_fox 634
      system(buff);
28 mv_fox 635
      continue;
636
    } else {
637
      /* final confirmation */
624 mateuszvis 638
      const char *list[3];
639
      list[0] = svarlang_strid(0x0001); /* Install SvarDOS */
640
      list[1] = svarlang_strid(0x0002); /* Quit to DOS */
641
      list[2] = NULL;
642
      snprintf(buff, sizeof(buff), svarlang_strid(0x0306), cselecteddrive); /* "The installation of SvarDOS to %c: is about to begin." */
1664 mateusz.vi 643
      mdr_cout_str(7, 40 - strlen(buff), buff, COLOR_BODY, 80);
73 mv_fox 644
      choice = menuselect(10, -1, 4, list, -1);
645
      if (choice < 0) return(MENUPREV);
646
      if (choice == 1) return(MENUQUIT);
310 mateuszvis 647
      snprintf(buff, sizeof(buff), "SYS %c: %c: > NUL", sourcedrv, cselecteddrive);
36 mv_fox 648
      system(buff);
312 mateuszvis 649
      sprintf(buff, "FDISK /MBR %d", driveid);
650
      system(buff);
55 mv_fox 651
      snprintf(buff, sizeof(buff), "%c:\\TEMP", cselecteddrive);
36 mv_fox 652
      mkdir(buff);
653
      return(cselecteddrive);
28 mv_fox 654
    }
655
  }
656
}
657
 
658
 
280 mateuszvis 659
/* generates locales-related configurations and writes them to file (this
660
 * is used to compute autoexec.bat content) */
661
static void genlocalesconf(FILE *fd, const struct slocales *locales) {
662
  if (locales == NULL) return;
663
 
664
  fprintf(fd, "SET LANG=%s\r\n", locales->lang);
665
 
666
  if (locales->egafile > 0) {
667
    fprintf(fd, "DISPLAY CON=(EGA,,1)\r\n");
668
    if (locales->egafile == 1) {
669
      fprintf(fd, "MODE CON CP PREPARE=((%u) %%DOSDIR%%\\CPI\\EGA.CPX)\r\n", locales->codepage);
670
    } else {
671
      fprintf(fd, "MODE CON CP PREPARE=((%u) %%DOSDIR%%\\CPI\\EGA%d.CPX)\r\n", locales->codepage, locales->egafile);
672
    }
673
    fprintf(fd, "MODE CON CP SELECT=%u\r\n", locales->codepage);
674
  }
675
 
676
  if (locales->keybfile > 0) {
1659 bttr 677
    fprintf(fd, "KEYB %s,%d,%%DOSDIR%%\\", locales->keybcode, locales->codepage);
280 mateuszvis 678
    if (locales->keybfile == 1) {
679
      fprintf(fd, "KEYBOARD.SYS");
680
    } else {
681
      fprintf(fd, "KEYBRD%d.SYS", locales->keybfile);
682
    }
683
    if (locales->keybid != 0) fprintf(fd, " /ID:%d", locales->keybid);
684
    fprintf(fd, "\r\n");
685
  }
686
}
687
 
688
 
689
static void bootfilesgen(char targetdrv, const struct slocales *locales) {
28 mv_fox 690
  char buff[128];
691
  FILE *fd;
53 mv_fox 692
  /*** CONFIG.SYS ***/
280 mateuszvis 693
  snprintf(buff, sizeof(buff), "%c:\\TEMP\\CONFIG.SYS", targetdrv);
53 mv_fox 694
  fd = fopen(buff, "wb");
695
  if (fd == NULL) return;
1633 mateusz.vi 696
  fprintf(fd, "LASTDRIVE=Z\r\n"
1639 mateusz.vi 697
              "FILES=40\r\n");
698
  fprintf(fd, "DEVICE=C:\\SVARDOS\\HIMEMX.EXE\r\n");
1633 mateusz.vi 699
  fprintf(fd, "DOS=UMB,HIGH\r\n");
1104 mateusz.vi 700
  fprintf(fd, "SHELL=C:\\COMMAND.COM /E:512 /P\r\n");
625 mateuszvis 701
  fprintf(fd, "REM COUNTRY=001,%u,C:\\SVARDOS\\CFG\\COUNTRY.SYS\r\n", locales->codepage);
280 mateuszvis 702
  fprintf(fd, "REM DEVICE=C:\\DRIVERS\\UDVD2\\UDVD2.SYS /D:SVCD0001 /H\r\n");
53 mv_fox 703
  fclose(fd);
28 mv_fox 704
  /*** AUTOEXEC.BAT ***/
280 mateuszvis 705
  snprintf(buff, sizeof(buff), "%c:\\TEMP\\AUTOEXEC.BAT", targetdrv);
28 mv_fox 706
  fd = fopen(buff, "wb");
707
  if (fd == NULL) return;
708
  fprintf(fd, "@ECHO OFF\r\n");
280 mateuszvis 709
  fprintf(fd, "SET TEMP=C:\\TEMP\r\n");
710
  fprintf(fd, "SET DOSDIR=C:\\SVARDOS\r\n");
817 mateusz.vi 711
  fprintf(fd, "SET NLSPATH=%%DOSDIR%%\\NLS;.\r\n");
53 mv_fox 712
  fprintf(fd, "SET DIRCMD=/OGNE/P/4\r\n");
303 mateuszvis 713
  fprintf(fd, "SET WATTCP.CFG=%%DOSDIR%%\\CFG\r\n");
1637 mateusz.vi 714
  fprintf(fd, "PATH %%DOSDIR%%\r\n");
28 mv_fox 715
  fprintf(fd, "PROMPT $P$G\r\n");
56 mv_fox 716
  fprintf(fd, "FDAPM APMDOS\r\n");
28 mv_fox 717
  fprintf(fd, "\r\n");
280 mateuszvis 718
  genlocalesconf(fd, locales);
49 mv_fox 719
  fprintf(fd, "\r\n");
280 mateuszvis 720
  fprintf(fd, "REM Uncomment the line below for CDROM support\r\n");
721
  fprintf(fd, "REM SHSUCDX /d:SVCD0001\r\n");
722
  fprintf(fd, "\r\n");
53 mv_fox 723
  fprintf(fd, "ECHO.\r\n");
624 mateuszvis 724
  fprintf(fd, "ECHO %s\r\n", svarlang_strid(0x0600)); /* "Welcome to SvarDOS!" */
28 mv_fox 725
  fclose(fd);
200 mateuszvis 726
  /*** CREATE DIRECTORY FOR CONFIGURATION FILES ***/
277 mateuszvis 727
  snprintf(buff, sizeof(buff), "%c:\\SVARDOS", targetdrv);
200 mateuszvis 728
  mkdir(buff);
277 mateuszvis 729
  snprintf(buff, sizeof(buff), "%c:\\SVARDOS\\CFG", targetdrv);
53 mv_fox 730
  mkdir(buff);
277 mateuszvis 731
  /*** PKG.CFG ***/
732
  snprintf(buff, sizeof(buff), "%c:\\SVARDOS\\CFG\\PKG.CFG", targetdrv);
733
  fd = fopen(buff, "wb");
734
  if (fd == NULL) return;
735
  fprintf(fd, "# pkg config file - specifies locations where packages should be installed\r\n"
736
              "\r\n"
1637 mateusz.vi 737
              "# DOS core binaries\r\n"
738
              "DIR BIN C:\\SVARDOS\r\n"
739
              "\r\n"
277 mateuszvis 740
              "# Programs\r\n"
741
              "DIR PROGS C:\\\r\n"
742
              "\r\n"
743
              "# Games \r\n"
744
              "DIR GAMES C:\\\r\n"
745
              "\r\n"
746
              "# Drivers\r\n"
747
              "DIR DRIVERS C:\\DRIVERS\r\n"
748
              "\r\n"
749
              "# Development tools\r\n"
750
              "DIR DEVEL C:\\DEVEL\r\n");
751
  fclose(fd);
53 mv_fox 752
  /*** COUNTRY.SYS ***/
753
  /*** PICOTCP ***/
754
  /*** WATTCP ***/
303 mateuszvis 755
  snprintf(buff, sizeof(buff), "%c:\\SVARDOS\\CFG\\WATTCP.CFG", targetdrv);
756
  fd = fopen(buff, "wb");
757
  if (fd == NULL) return;
758
  fprintf(fd, "my_ip = dhcp\r\n"
759
              "#my_ip = 192.168.0.7\r\n"
760
              "#netmask = 255.255.255.0\r\n"
761
              "#nameserver = 192.168.0.1\r\n"
762
              "#nameserver = 192.168.0.2\r\n"
554 mateuszvis 763
              "#gateway = 192.168.0.1\r\n");
303 mateuszvis 764
  fclose(fd);
28 mv_fox 765
}
766
 
767
 
868 mateusz.vi 768
static int installpackages(char targetdrv, char srcdrv, const struct slocales *locales, const char *buildstring) {
192 mateuszvis 769
  char pkglist[512];
30 mv_fox 770
  int i, pkglistlen;
192 mateuszvis 771
  size_t pkglistflen;
280 mateuszvis 772
  char buff[1024]; /* must be *at least* 1 sector big for efficient file copying */
773
  FILE *fd = NULL;
192 mateuszvis 774
  char *pkgptr;
79 mv_fox 775
  newscreen(3);
192 mateuszvis 776
  /* load pkg list */
777
  fd = fopen("install.lst", "rb");
778
  if (fd == NULL) {
1664 mateusz.vi 779
    mdr_cout_str(10, 30, "ERROR: INSTALL.LST NOT FOUND", COLOR_BODY, 80);
1661 mateusz.vi 780
    mdr_dos_getkey();
192 mateuszvis 781
    return(-1);
782
  }
1125 mateusz.vi 783
  pkglistflen = fread(pkglist, 1, sizeof(pkglist) - 2, fd);
192 mateuszvis 784
  fclose(fd);
1125 mateusz.vi 785
  if (pkglistflen == sizeof(pkglist) - 2) {
1664 mateusz.vi 786
    mdr_cout_str(10, 30, "ERROR: INSTALL.LST TOO LARGE", COLOR_BODY, 80);
1661 mateusz.vi 787
    mdr_dos_getkey();
192 mateuszvis 788
    return(-1);
789
  }
1125 mateusz.vi 790
  /* mark the end of list */
791
  pkglist[pkglistflen] = 0;
792
  pkglist[pkglistflen + 1] = 0xff;
192 mateuszvis 793
  /* replace all \r and \n chars by 0 bytes, and count the number of packages */
794
  pkglistlen = 0;
795
  for (i = 0; i < pkglistflen; i++) {
796
    switch (pkglist[i]) {
797
      case '\n':
798
        pkglistlen++;
799
        /* FALLTHRU */
800
      case '\r':
801
        pkglist[i] = 0;
802
        break;
803
    }
804
  }
280 mateuszvis 805
  /* copy pkg.exe to the new drive, along with all packages */
806
  snprintf(buff, sizeof(buff), "%c:\\TEMP\\pkg.exe", targetdrv);
807
  snprintf(buff + 64, sizeof(buff) - 64, "%c:\\pkg.exe", srcdrv);
808
  fcopy(buff, buff + 64, buff, sizeof(buff));
809
 
810
  /* open the post-install autoexec.bat and prepare initial instructions */
811
  snprintf(buff, sizeof(buff), "%c:\\temp\\postinst.bat", targetdrv);
812
  fd = fopen(buff, "wb");
813
  if (fd == NULL) return(-1);
868 mateusz.vi 814
  fprintf(fd, "@ECHO OFF\r\nECHO INSTALLING SVARDOS BUILD %s\r\n", buildstring);
280 mateuszvis 815
 
1104 mateusz.vi 816
  /* move COMMAND.COM so it does not clashes with the installation of the SVARCOM package */
817
  fprintf(fd, "COPY \\COMMAND.COM \\CMD.COM\r\n");
818
  fprintf(fd, "SET COMSPEC=%c:\\CMD.COM\r\n", targetdrv);
819
  fprintf(fd, "DEL \\COMMAND.COM\r\n");
820
 
280 mateuszvis 821
  /* copy packages */
192 mateuszvis 822
  for (i = 0;; i++) {
1125 mateusz.vi 823
    RETRY_ENTIRE_LIST:
824
 
192 mateuszvis 825
    /* move forward to nearest entry or end of list */
1125 mateusz.vi 826
    for (pkgptr = pkglist; *pkgptr == 0; pkgptr++);
827
    if (*pkgptr == 0xff) break; /* end of list: means all packages have been processed */
828
 
829
    /* is this package present on the floppy disk? */
830
    TRY_NEXTPKG:
831
    sprintf(buff, "%s.svp", pkgptr);
832
    if (fileexists(buff) != 0) {
833
      while (*pkgptr != 0) pkgptr++;
834
      while (*pkgptr == 0) pkgptr++;
835
      /* end of list? ask for next floppy, there's nothing interesting left on this one */
836
      if (*pkgptr == 0xff) {
1664 mateusz.vi 837
        putstringnls(12, 1, COLOR_BODY, 4, 1); /* "INSERT THE DISK THAT CONTAINS THE REQUIRED FILE AND PRESS ANY KEY" */
1661 mateusz.vi 838
        mdr_dos_getkey();
1664 mateusz.vi 839
        video_putstringfix(12, 1, COLOR_BODY, "", 80); /* erase the 'insert disk' message */
1125 mateusz.vi 840
        goto RETRY_ENTIRE_LIST;
841
      }
842
      goto TRY_NEXTPKG;
843
    }
844
 
192 mateuszvis 845
    /* install the package */
624 mateuszvis 846
    snprintf(buff, sizeof(buff), svarlang_strid(0x0400), i+1, pkglistlen, pkgptr); /* "Installing package %d/%d: %s" */
36 mv_fox 847
    strcat(buff, "       ");
1664 mateusz.vi 848
    mdr_cout_str(10, 1, buff, COLOR_BODY, 40);
1125 mateusz.vi 849
 
850
    /* proceed with package copy */
851
    sprintf(buff, "%c:\\temp\\%s.svp", targetdrv, pkgptr);
852
    if (fcopy(buff, buff + 7, buff, sizeof(buff)) != 0) {
1664 mateusz.vi 853
      mdr_cout_str(10, 30, "READ ERROR", COLOR_BODY, 80);
1661 mateusz.vi 854
      mdr_dos_getkey();
280 mateuszvis 855
      fclose(fd);
192 mateuszvis 856
      return(-1);
55 mv_fox 857
    }
280 mateuszvis 858
    /* write install instruction to post-install script */
700 mateusz.vi 859
    fprintf(fd, "pkg install %s.svp\r\ndel %s.svp\r\n", pkgptr, pkgptr);
1125 mateusz.vi 860
    /* jump to next entry or end of list and zero out the pkg name in the process */
861
    while ((*pkgptr != 0) && (*pkgptr != 0xff)) {
862
      *pkgptr = 0;
863
      pkgptr++;
864
    }
28 mv_fox 865
  }
280 mateuszvis 866
  /* set up locales so the "installation over" message is nicely displayed */
867
  genlocalesconf(fd, locales);
868
  /* replace autoexec.bat and config.sys now and write some nice message on screen */
869
  fprintf(fd, "DEL pkg.exe\r\n"
870
              "COPY CONFIG.SYS C:\\\r\n"
871
              "DEL CONFIG.SYS\r\n"
872
              "DEL C:\\AUTOEXEC.BAT\r\n"
873
              "COPY AUTOEXEC.BAT C:\\\r\n"
1104 mateusz.vi 874
              "DEL AUTOEXEC.BAT\r\n"
1109 bttr 875
              "SET COMSPEC=C:\\COMMAND.COM\r\n"
1104 mateusz.vi 876
              "DEL \\CMD.COM\r\n");
280 mateuszvis 877
  /* print out the "installation over" message */
878
  fprintf(fd, "ECHO.\r\n"
868 mateusz.vi 879
              "ECHO ");
880
  fprintf(fd, svarlang_strid(0x0501), buildstring); /* "SvarDOS installation is over. Please restart your computer now" */
881
  fprintf(fd, "\r\n"
882
              "ECHO.\r\n");
280 mateuszvis 883
  fclose(fd);
884
 
885
  /* prepare a dummy autoexec.bat that will call temp\postinst.bat */
886
  snprintf(buff, sizeof(buff), "%c:\\autoexec.bat", targetdrv);
887
  fd = fopen(buff, "wb");
888
  if (fd == NULL) return(-1);
889
  fprintf(fd, "@ECHO OFF\r\n"
890
              "SET DOSDIR=C:\\SVARDOS\r\n"
891
              "SET NLSPATH=%%DOSDIR%%\\NLS\r\n"
1659 bttr 892
              "PATH %%DOSDIR%%\r\n");
280 mateuszvis 893
  fprintf(fd, "CD TEMP\r\n"
894
              "postinst.bat\r\n");
895
  fclose(fd);
896
 
192 mateuszvis 897
  return(0);
28 mv_fox 898
}
899
 
900
 
42 mv_fox 901
static void finalreboot(void) {
56 mv_fox 902
  int y = 9;
79 mv_fox 903
  newscreen(2);
1664 mateusz.vi 904
  y += putstringnls(y, 1, COLOR_BODY, 5, 0); /* "Your computer will reboot now.\nPlease remove the installation disk from your drive" */
905
  putstringnls(++y, 1, COLOR_BODY, 0, 5); /* "Press any key..." */
1661 mateusz.vi 906
  mdr_dos_getkey();
42 mv_fox 907
  reboot();
908
}
909
 
910
 
192 mateuszvis 911
static void loadcp(const struct slocales *locales) {
42 mv_fox 912
  char buff[64];
67 mv_fox 913
  if (locales->codepage == 437) return;
1662 mateusz.vi 914
  mdr_cout_locate(1, 0);
67 mv_fox 915
  if (locales->egafile == 1) {
310 mateuszvis 916
    snprintf(buff, sizeof(buff), "MODE CON CP PREP=((%u) EGA.CPX) > NUL", locales->codepage);
42 mv_fox 917
  } else {
310 mateuszvis 918
    snprintf(buff, sizeof(buff), "MODE CON CP PREP=((%u) EGA%d.CPX) > NUL", locales->codepage, locales->egafile);
42 mv_fox 919
  }
920
  system(buff);
67 mv_fox 921
  snprintf(buff, sizeof(buff), "MODE CON CP SEL=%u > NUL", locales->codepage);
42 mv_fox 922
  system(buff);
923
  /* below I re-init the video controller - apparently this is required if
65 mv_fox 924
   * I want the new glyph symbols to be actually applied, at least some
925
   * (broken?) BIOSes, like VBox, apply glyphs only at next video mode change */
42 mv_fox 926
  {
927
  union REGS r;
928
  r.h.ah = 0x0F; /* get current video mode */
929
  int86(0x10, &r, &r); /* r.h.al contains the current video mode now */
56 mv_fox 930
  r.h.al |= 128; /* set the high bit of AL to instruct BIOS not to flush VRAM's content (EGA+) */
931
  r.h.ah = 0; /* re-set video mode (to whatever is set in AL) */
42 mv_fox 932
  int86(0x10, &r, &r);
933
  }
934
}
935
 
200 mateuszvis 936
 
310 mateuszvis 937
#ifdef DEADCODE
193 mateuszvis 938
/* checks that drive drv contains SvarDOS packages
65 mv_fox 939
 * returns 0 if found, non-zero otherwise */
193 mateuszvis 940
static int checkinstsrc(char drv) {
941
  char fname[16];
700 mateusz.vi 942
  snprintf(fname, sizeof(fname), "%c:\\ATTRIB.SVP", drv);
200 mateuszvis 943
  return(fileexists(fname));
69 mv_fox 944
}
310 mateuszvis 945
#endif
65 mv_fox 946
 
947
 
868 mateusz.vi 948
int main(int argc, char **argv) {
67 mv_fox 949
  struct slocales locales;
28 mv_fox 950
  int targetdrv;
193 mateuszvis 951
  int sourcedrv;
73 mv_fox 952
  int action;
868 mateusz.vi 953
  const char *buildstring = "###";
28 mv_fox 954
 
908 mateusz.vi 955
  /* setup the internal int 24h handler ("always fail") */
956
  int24hdl();
957
 
868 mateusz.vi 958
  if (argc != 1) buildstring = argv[1];
959
 
310 mateuszvis 960
  sourcedrv = get_cur_drive() + 'A';
53 mv_fox 961
 
1664 mateusz.vi 962
  /* init screen and detect mono adapters */
963
  if (mdr_cout_init(NULL, NULL) == 0) {
964
    /* overload color scheme with mono settings */
965
    COLOR_TITLEBAR = 0x70;
966
    COLOR_BODY = 0x07;
967
    COLOR_SELECT = 0x70;
968
    COLOR_SELECTCUR = 0x07;
969
  }
29 mv_fox 970
 
73 mv_fox 971
 SelectLang:
190 mateuszvis 972
  action = selectlang(&locales); /* welcome to svardos, select your language */
73 mv_fox 973
  if (action != MENUNEXT) goto Quit;
974
  loadcp(&locales);
1462 mateusz.vi 975
  svarlang_load("INSTALL.LNG", locales.lang); /* NLS support */
865 mateusz.vi 976
 
977
 SelectKeyb:
73 mv_fox 978
  action = selectkeyb(&locales);  /* what keyb layout should we use? */
979
  if (action == MENUQUIT) goto Quit;
980
  if (action == MENUPREV) goto SelectLang;
981
 
982
 WelcomeScreen:
190 mateuszvis 983
  action = welcomescreen(); /* what svardos is, ask whether to run live dos or install */
73 mv_fox 984
  if (action == MENUQUIT) goto Quit;
865 mateusz.vi 985
  if (action == MENUPREV) {
986
    if (locales.keyblen > 1) goto SelectKeyb; /* if there is a choice of more than 1 layout, ask for it */
987
    goto SelectLang;
988
  }
312 mateuszvis 989
  targetdrv = preparedrive(sourcedrv); /* what drive should we install from? check avail. space */
73 mv_fox 990
  if (targetdrv == MENUQUIT) goto Quit;
991
  if (targetdrv == MENUPREV) goto WelcomeScreen;
280 mateuszvis 992
  bootfilesgen(targetdrv, &locales); /* generate boot files and other configurations */
868 mateusz.vi 993
  if (installpackages(targetdrv, sourcedrv, &locales, buildstring) != 0) goto Quit;    /* install packages */
73 mv_fox 994
  /*localcfg();*/ /* show local params (currency, etc), and propose to change them (based on localcfg) */
995
  /*netcfg();*/ /* basic networking config */
996
  finalreboot(); /* remove the CD and reboot */
997
 
998
 Quit:
1662 mateusz.vi 999
  mdr_cout_locate(0, 0);
1000
  mdr_cout_close();
28 mv_fox 1001
  return(0);
1002
}