Subversion Repositories SvarDOS

Rev

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