Subversion Repositories SvarDOS

Rev

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

Rev Author Line No. Line
28 mv_fox 1
/*
2
 * SVAROG386 INSTALL
94 mv_fox 3
 * COPYRIGHT (C) 2016 MATEUSZ VISTE, ALL RIGHTS RESERVED.
42 mv_fox 4
 *
94 mv_fox 5
 * Redistribution and use in source and binary forms, with or without
6
 * modification, are permitted provided that the following conditions are met:
7
 *
8
 * 1. Redistributions of source code must retain the above copyright notice,
9
 * this list of conditions and the following disclaimer.
10
 *
11
 * 2. Redistributions in binary form must reproduce the above copyright
12
 * notice, this list of conditions and the following disclaimer in the
13
 * documentation and/or other materials provided with the distribution.
14
 *
15
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
16
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
17
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
18
 * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
19
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
20
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
21
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
22
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
23
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
24
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
25
 * POSSIBILITY OF SUCH DAMAGE.
26
 *
42 mv_fox 27
 * http://svarog386.sf.net
28 mv_fox 28
 */
29
 
30
#include <dos.h>
30 mv_fox 31
#include <direct.h>  /* mkdir() */
28 mv_fox 32
#include <stdio.h>   /* printf() and friends */
33
#include <stdlib.h>  /* system() */
34
#include <string.h>  /* memcpy() */
35
#include <unistd.h>
42 mv_fox 36
 
37
#include "kitten\kitten.h"
38
 
53 mv_fox 39
#include "cdrom.h"
28 mv_fox 40
#include "input.h"
41
#include "video.h"
42
 
67 mv_fox 43
/* keyboard layouts and locales */
44
#include "keylay.h"
45
#include "keyoff.h"
42 mv_fox 46
 
29 mv_fox 47
/* color scheme (color, mono) */
48
static unsigned short COLOR_TITLEBAR[2] = {0x7000,0x7000};
49
static unsigned short COLOR_BODY[2] = {0x1700,0x0700};
50
static unsigned short COLOR_SELECT[2] = {0x7000,0x7000};
51
static unsigned short COLOR_SELECTCUR[2] = {0x1F00,0x0700};
28 mv_fox 52
 
29 mv_fox 53
/* mono flag */
54
static int mono = 0;
28 mv_fox 55
 
47 mv_fox 56
/* how much disk space does Svarog386 require (in MiB) */
57
#define SVAROG_DISK_REQ 8
28 mv_fox 58
 
73 mv_fox 59
/* menu screens can output only one of these: */
60
#define MENUNEXT 0
61
#define MENUPREV -1
62
#define MENUQUIT -2
63
 
67 mv_fox 64
/* a convenience 'function' used for debugging */
65
#define DBG(x) { video_putstringfix(24, 0, 0x4F00u, x, 80); }
47 mv_fox 66
 
67 mv_fox 67
struct slocales {
68
  char lang[4];
69
  char *keybcode;
70
  unsigned int codepage;
71
  int egafile;
72
  int keybfile;
73
  int keyboff;
74
  int keyblen;
96 mv_fox 75
  unsigned int keybid;
67 mv_fox 76
};
77
 
78
 
28 mv_fox 79
/* reboot the computer */
80
static void reboot(void) {
81
  void ((far *bootroutine)()) = (void (far *)()) 0xFFFF0000L;
82
  int far *rstaddr = (int far *)0x00400072L; /* BIOS boot flag is at 0040:0072 */
83
  *rstaddr = 0x1234; /* 0x1234 = warm boot, 0 = cold boot */
84
  (*bootroutine)(); /* jump to the BIOS reboot routine at FFFF:0000 */
85
}
86
 
42 mv_fox 87
 
56 mv_fox 88
/* outputs a string to screen with taking care of word wrapping. returns amount of lines. */
89
static int putstringwrap(int y, int x, unsigned short attr, char *s) {
90
  int linew, lincount;
91
  linew = 80;
92
  if (x >= 0) linew -= (x << 1);
93
 
94
  for (lincount = 1; y+lincount < 25; lincount++) {
95
    int i, len = linew;
96
    for (i = 0; i <= linew; i++) {
97
      if (s[i] == ' ') len = i;
98
      if (s[i] == '\n') {
99
        len = i;
100
        break;
101
      }
102
      if (s[i] == 0) {
103
        len = i;
104
        break;
105
      }
106
    }
107
    video_putstring(y++, x, attr, s, len);
108
    s += len;
109
    if (*s == 0) break;
110
    s += 1; /* skip the whitespace char */
111
  }
112
  return(lincount);
113
}
114
 
115
 
116
/* an NLS wrapper around video_putstring(), also performs line wrapping when
117
 * needed. returns the amount of lines that were output */
118
static int putstringnls(int y, int x, unsigned short attr, int nlsmaj, int nlsmin, char *s) {
42 mv_fox 119
  s = kittengets(nlsmaj, nlsmin, s);
56 mv_fox 120
  return(putstringwrap(y, x, attr, s));
42 mv_fox 121
}
122
 
123
 
67 mv_fox 124
static int menuselect(int ypos, int xpos, int height, char **list, int listlen) {
28 mv_fox 125
  int i, offset = 0, res = 0, count, width = 0;
67 mv_fox 126
  /* count how many positions there is, and check their width */
127
  for (count = 0; (list[count] != NULL) && (count != listlen); count++) {
28 mv_fox 128
    int len = strlen(list[count]);
129
    if (len > width) width = len;
130
  }
131
 
132
  /* if xpos negative, means 'center out' */
133
  if (xpos < 0) xpos = 39 - (width >> 1);
134
 
29 mv_fox 135
  video_putchar(ypos, xpos+width+2, COLOR_SELECT[mono], 0xBF);         /*       \ */
136
  video_putchar(ypos, xpos-1, COLOR_SELECT[mono], 0xDA);               /*  /      */
137
  video_putchar(ypos+height-1, xpos-1, COLOR_SELECT[mono], 0xC0);      /*  \      */
138
  video_putchar(ypos+height-1, xpos+width+2, COLOR_SELECT[mono], 0xD9);/*      /  */
139
  video_putcharmulti(ypos, xpos, COLOR_SELECT[mono], 0xC4, width + 2, 1);
140
  video_putcharmulti(ypos+height-1, xpos, COLOR_SELECT[mono], 0xC4, width + 2, 1);
141
  video_putcharmulti(ypos+1, xpos-1, COLOR_SELECT[mono], 0xB3, height - 2, 80);
142
  video_putcharmulti(ypos+1, xpos+width+2, COLOR_SELECT[mono], 0xB3, height - 2, 80);
28 mv_fox 143
 
144
  for (;;) {
145
    int key;
146
    /* list of selectable items */
147
    for (i = 0; i < height - 2; i++) {
148
      if (i + offset == res) {
29 mv_fox 149
        video_putchar(ypos + 1 + i, xpos, COLOR_SELECTCUR[mono], 16);
150
        video_putchar(ypos + 1 + i, xpos+width+1, COLOR_SELECTCUR[mono], 17);
28 mv_fox 151
        video_movecursor(ypos + 1 + i, xpos);
29 mv_fox 152
        video_putstringfix(ypos + 1 + i, xpos+1, COLOR_SELECTCUR[mono], list[i + offset], width);
28 mv_fox 153
      } else if (i + offset < count) {
29 mv_fox 154
        video_putchar(ypos + 1 + i, xpos, COLOR_SELECT[mono], ' ');
155
        video_putchar(ypos + 1 + i, xpos+width+1, COLOR_SELECT[mono], ' ');
156
        video_putstringfix(ypos + 1 + i, xpos+1, COLOR_SELECT[mono], list[i + offset], width);
28 mv_fox 157
      } else {
29 mv_fox 158
        video_putcharmulti(ypos + 1 + i, xpos, COLOR_SELECT[mono], ' ', width+2, 1);
28 mv_fox 159
      }
160
    }
161
    key = input_getkey();
162
    if (key == 0x0D) { /* ENTER */
163
      return(res);
164
    } else if (key == 0x148) { /* up */
33 mv_fox 165
      if (res > 0) {
166
        res--;
167
        if (res < offset) offset = res;
168
      }
28 mv_fox 169
    } else if (key == 0x150) { /* down */
33 mv_fox 170
      if (res+1 < count) {
171
        res++;
172
        if (res > offset + height - 3) offset = res - (height - 3);
173
      }
174
    } else if (key == 0x147) { /* home */
175
      res = 0;
176
      offset = 0;
177
    } else if (key == 0x14F) { /* end */
178
      res = count - 1;
179
      if (res > offset + height - 3) offset = res - (height - 3);
28 mv_fox 180
    } else if (key == 0x1B) {  /* ESC */
181
      return(-1);
78 mv_fox 182
    }/* else {
33 mv_fox 183
      char buf[8];
55 mv_fox 184
      snprintf(buf, sizeof(buf), "0x%02X ", key);
56 mv_fox 185
      video_putstring(1, 0, COLOR_BODY[mono], buf, -1);
78 mv_fox 186
    }*/
28 mv_fox 187
  }
188
}
189
 
79 mv_fox 190
static void newscreen(int statusbartype) {
191
  char *msg;
192
  msg = kittengets(0, 0, "SVAROG386 INSTALLATION");
81 mv_fox 193
  video_putcharmulti(0, 0, COLOR_TITLEBAR[mono], ' ', 80, 1);
79 mv_fox 194
  video_putstring(0, 40 - (strlen(msg) >> 1), COLOR_TITLEBAR[mono], msg, -1);
81 mv_fox 195
  video_clear(COLOR_BODY[mono], 80, -80);
79 mv_fox 196
  switch (statusbartype) {
197
    case 1:
198
      msg = kittengets(0, 11, "Up/Down = Select entry | Enter = Validate your choice | ESC = Quit to DOS");
199
      break;
200
    case 2:
201
      msg = kittengets(0, 5, "Press any key...");
202
      break;
203
    case 3:
204
      msg = "";
205
      break;
206
    default:
207
      msg = kittengets(0, 10, "Up/Down = Select entry | Enter = Validate your choice | ESC = Previous screen");
208
      break;
209
  }
210
  video_putchar(24, 0, COLOR_TITLEBAR[mono], ' ');
211
  video_putstringfix(24, 1, COLOR_TITLEBAR[mono], msg, 79);
36 mv_fox 212
  video_movecursor(25,0);
28 mv_fox 213
}
214
 
96 mv_fox 215
/* fills a slocales struct accordingly to the value of its keyboff member */
216
static void kblay2slocal(struct slocales *locales) {
217
  char *m;
218
  for (m = kblayouts[locales->keyboff]; *m != 0; m++); /* skip layout name */
219
  m++;
220
  /* skip keyb code and copy it to locales.keybcode */
221
  locales->keybcode = m;
222
  for (; *m != 0; m++);
223
  /* */
224
  locales->codepage = ((unsigned short)m[1] << 8) | m[2];
225
  locales->egafile = m[3];
226
  locales->keybfile = m[4];
227
  locales->keybid = ((unsigned short)m[5] << 8) | m[6];
228
}
229
 
67 mv_fox 230
static int selectlang(struct slocales *locales) {
231
  int choice, x;
42 mv_fox 232
  char *msg;
28 mv_fox 233
  char *langlist[] = {
67 mv_fox 234
    "English",
235
    "French",
133 mv_fox 236
    "German",
119 mv_fox 237
    "Italian",
67 mv_fox 238
    "Polish",
116 mv_fox 239
    "Russian",
123 mv_fox 240
    "Slovene",
128 mv_fox 241
    "Swedish",
67 mv_fox 242
    "Turkish",
28 mv_fox 243
    NULL
244
  };
245
 
79 mv_fox 246
  newscreen(1);
42 mv_fox 247
  msg = kittengets(1, 0, "Welcome to Svarog386");
248
  x = 40 - (strlen(msg) >> 1);
56 mv_fox 249
  video_putstring(4, x, COLOR_BODY[mono], msg, -1);
42 mv_fox 250
  video_putcharmulti(5, x, COLOR_BODY[mono], '=', strlen(msg), 1);
49 mv_fox 251
  putstringnls(8, -1, COLOR_BODY[mono], 1, 1, "Please select your language from the list below:");
133 mv_fox 252
  choice = menuselect(11, -1, 11, langlist, -1);
73 mv_fox 253
  if (choice < 0) return(MENUPREV);
67 mv_fox 254
  /* populate locales with default values */
255
  memset(locales, 0, sizeof(struct slocales));
256
  switch (choice) {
257
    case 1:
258
      strcpy(locales->lang, "FR");
259
      locales->keyboff = OFFLOC_FR;
260
      locales->keyblen = OFFLEN_FR;
261
      break;
262
    case 2:
133 mv_fox 263
      strcpy(locales->lang, "DE");
264
      locales->keyboff = OFFLOC_DE;
265
      locales->keyblen = OFFLEN_DE;
266
      break;
267
    case 3:
119 mv_fox 268
      strcpy(locales->lang, "IT");
269
      locales->keyboff = OFFLOC_IT;
270
      locales->keyblen = OFFLEN_IT;
271
      break;
133 mv_fox 272
    case 4:
67 mv_fox 273
      strcpy(locales->lang, "PL");
274
      locales->keyboff = OFFLOC_PL;
275
      locales->keyblen = OFFLEN_PL;
276
      break;
133 mv_fox 277
    case 5:
116 mv_fox 278
      strcpy(locales->lang, "RU");
279
      locales->keyboff = OFFLOC_RU;
280
      locales->keyblen = OFFLEN_RU;
281
      break;
133 mv_fox 282
    case 6:
123 mv_fox 283
      strcpy(locales->lang, "SI");
284
      locales->keyboff = OFFLOC_SI;
285
      locales->keyblen = OFFLEN_SI;
286
      break;
133 mv_fox 287
    case 7:
128 mv_fox 288
      strcpy(locales->lang, "SV");
289
      locales->keyboff = OFFLOC_SV;
290
      locales->keyblen = OFFLEN_SV;
291
      break;
133 mv_fox 292
    case 8:
67 mv_fox 293
      strcpy(locales->lang, "TR");
294
      locales->keyboff = OFFLOC_TR;
295
      locales->keyblen = OFFLEN_TR;
296
      break;
297
    default:
298
      strcpy(locales->lang, "EN");
299
      locales->keyboff = 0;
300
      locales->keyblen = OFFCOUNT;
301
      break;
302
  }
96 mv_fox 303
  /* populate the slocales struct accordingly to the keyboff member */
304
  kblay2slocal(locales);
67 mv_fox 305
  /* */
73 mv_fox 306
  return(MENUNEXT);
28 mv_fox 307
}
308
 
309
 
67 mv_fox 310
static int selectkeyb(struct slocales *locales) {
96 mv_fox 311
  int menuheight, choice;
312
  if (locales->keyblen == 1) return(MENUNEXT); /* do not ask for keyboard layout if only one is available for given language */
79 mv_fox 313
  newscreen(0);
67 mv_fox 314
  putstringnls(5, 1, COLOR_BODY[mono], 1, 5, "Svarog386 supports the keyboard layouts used in different countries. Choose the keyboard layout you want.");
96 mv_fox 315
  menuheight = locales->keyblen + 2;
67 mv_fox 316
  if (menuheight > 13) menuheight = 13;
96 mv_fox 317
  choice = menuselect(10, -1, menuheight, &(kblayouts[locales->keyboff]), locales->keyblen);
318
  if (choice < 0) return(MENUPREV);
319
  /* (re)load the keyboard layout & codepage setup */
320
  locales->keyboff += choice;
321
  kblay2slocal(locales);
73 mv_fox 322
  return(MENUNEXT);
67 mv_fox 323
}
324
 
325
 
28 mv_fox 326
/* returns 0 if installation must proceed, non-zero otherwise */
327
static int welcomescreen(void) {
73 mv_fox 328
  int c;
28 mv_fox 329
  char *choice[] = {"Install Svarog386 to disk", "Quit to DOS", NULL};
42 mv_fox 330
  choice[0] = kittengets(0, 1, choice[0]);
331
  choice[1] = kittengets(0, 2, choice[1]);
79 mv_fox 332
  newscreen(0);
56 mv_fox 333
  putstringnls(4, 1, COLOR_BODY[mono], 2, 0, "You are about to install Svarog386: a free, MSDOS-compatible operating system based on the FreeDOS kernel. Svarog386 targets 386+ computers and comes with a variety of third-party applications.\n\nWARNING: If your PC has another operating system installed, this other system might be unable to boot once Svarog386 is installed.");
73 mv_fox 334
  c = menuselect(13, -1, 4, choice, -1);
335
  if (c < 0) return(MENUPREV);
336
  if (c == 0) return(MENUNEXT);
337
  return(MENUQUIT);
28 mv_fox 338
}
339
 
340
 
33 mv_fox 341
/* returns 1 if drive is removable, 0 if not, -1 on error */
342
static int isdriveremovable(int drv) {
28 mv_fox 343
  union REGS r;
33 mv_fox 344
  r.x.ax = 0x4408;
345
  r.h.bl = drv;
28 mv_fox 346
  int86(0x21, &r, &r);
33 mv_fox 347
  /* CF set on error, AX set to 0 if removable, 1 if fixed */
348
  if (r.x.cflag != 0) return(-1);
349
  if (r.x.ax == 0) return(1);
350
  return(0);
28 mv_fox 351
}
352
 
353
 
35 mv_fox 354
/* returns total disk space of drive drv (in MiB, max 2048), or -1 if drive invalid */
355
static int disksize(int drv) {
28 mv_fox 356
  long res;
357
  union REGS r;
358
  r.h.ah = 0x36; /* DOS 2+ get free disk space */
359
  r.h.dl = drv;
360
  int86(0x21, &r, &r);
361
  if (r.x.ax == 0xffffu) return(-1); /* AX set to FFFFh if drive invalid */
49 mv_fox 362
  res = r.x.ax;  /* sectors per cluster */
363
  res *= r.x.dx; /* dx contains total clusters, bx contains free clusters */
364
  res *= r.x.cx; /* bytes per sector */
365
  res >>= 20;    /* convert bytes to MiB */
366
  return(res);
35 mv_fox 367
}
368
 
369
 
370
/* returns 0 if disk is empty, non-zero otherwise */
371
static int diskempty(int drv) {
372
  unsigned int rc;
373
  int res;
374
  char buff[8];
375
  struct find_t fileinfo;
55 mv_fox 376
  snprintf(buff, sizeof(buff), "%c:\\*.*", 'A' + drv - 1);
35 mv_fox 377
  rc = _dos_findfirst(buff, _A_NORMAL | _A_SUBDIR | _A_HIDDEN | _A_SYSTEM, &fileinfo);
378
  if (rc == 0) {
379
    res = 1; /* call successfull means disk is not empty */
28 mv_fox 380
  } else {
35 mv_fox 381
    res = 0;
28 mv_fox 382
  }
35 mv_fox 383
  /* _dos_findclose(&fileinfo); */ /* apparently required only on OS/2 */
28 mv_fox 384
  return(res);
385
}
386
 
387
 
388
static int preparedrive(void) {
33 mv_fox 389
  int driveremovable;
36 mv_fox 390
  int selecteddrive = 3; /* hardcoded to 'C:' for now */
391
  int cselecteddrive;
35 mv_fox 392
  int ds;
73 mv_fox 393
  int choice;
56 mv_fox 394
  char buff[1024];
36 mv_fox 395
  cselecteddrive = 'A' + selecteddrive - 1;
28 mv_fox 396
  for (;;) {
33 mv_fox 397
    driveremovable = isdriveremovable(selecteddrive);
398
    if (driveremovable < 0) {
49 mv_fox 399
      char *list[] = { "Create a partition automatically", "Run the FDISK partitioning tool", "Quit to DOS", NULL};
79 mv_fox 400
      newscreen(0);
42 mv_fox 401
      list[0] = kittengets(0, 3, list[0]);
402
      list[1] = kittengets(0, 4, list[1]);
403
      list[2] = kittengets(0, 2, list[2]);
56 mv_fox 404
      snprintf(buff, sizeof(buff), kittengets(3, 0, "ERROR: Drive %c: could not be found. Perhaps your hard disk needs to be partitioned first. Please create at least one partition on your hard disk, so Svarog386 can be installed on it. Note, that Svarog386 requires at least %d MiB of available disk space.\n\nYou can use the FDISK partitioning tool for creating the required partition manually, or you can let the installer partitioning your disk automatically. You can also abort the installation to use any other partition manager of your choice."), cselecteddrive, SVAROG_DISK_REQ);
61 mv_fox 405
      putstringwrap(4, 1, COLOR_BODY[mono], buff);
67 mv_fox 406
      switch (menuselect(14, -1, 5, list, -1)) {
33 mv_fox 407
        case 0:
408
          system("FDISK /AUTO");
409
          break;
410
        case 1:
81 mv_fox 411
          video_clear(0x0700, 0, 0);
33 mv_fox 412
          video_movecursor(0, 0);
413
          system("FDISK");
414
          break;
73 mv_fox 415
        case 2:
416
          return(MENUQUIT);
56 mv_fox 417
        default:
33 mv_fox 418
          return(-1);
419
      }
113 mv_fox 420
      /* write a temporary MBR which only skips the drive (in case BIOS would
421
       * try to boot off the not-yet-ready C: disk) */
422
      system("FDISK /AMBR"); /* writes BOOT.MBR into actual MBR */
79 mv_fox 423
      newscreen(2);
61 mv_fox 424
      putstringnls(10, 10, COLOR_BODY[mono], 3, 1, "Your computer will reboot now.");
42 mv_fox 425
      putstringnls(12, 10, COLOR_BODY[mono], 0, 5, "Press any key...");
33 mv_fox 426
      input_getkey();
28 mv_fox 427
      reboot();
73 mv_fox 428
      return(MENUQUIT);
33 mv_fox 429
    } else if (driveremovable > 0) {
79 mv_fox 430
      newscreen(2);
56 mv_fox 431
      snprintf(buff, sizeof(buff), kittengets(3, 2, "ERROR: Drive %c: is a removable device. Installation aborted."), cselecteddrive);
61 mv_fox 432
      video_putstring(9, 1, COLOR_BODY[mono], buff, -1);
42 mv_fox 433
      putstringnls(11, 2, COLOR_BODY[mono], 0, 5, "Press any key...");
73 mv_fox 434
      return(MENUQUIT);
28 mv_fox 435
    }
33 mv_fox 436
    /* if not formatted, propose to format it right away (try to create a directory) */
55 mv_fox 437
    snprintf(buff, sizeof(buff), "%c:\\SVWRTEST.123", cselecteddrive);
53 mv_fox 438
    if (mkdir(buff) == 0) {
439
      rmdir(buff);
440
    } else {
28 mv_fox 441
      char *list[] = { "Proceed with formatting", "Quit to DOS", NULL};
79 mv_fox 442
      newscreen(0);
42 mv_fox 443
      list[0] = kittengets(0, 6, list[0]);
444
      list[1] = kittengets(0, 2, list[1]);
56 mv_fox 445
      snprintf(buff, sizeof(buff), kittengets(3, 3, "ERROR: Drive %c: seems to be unformated. Do you wish to format it?"), cselecteddrive);
61 mv_fox 446
      video_putstring(7, 1, COLOR_BODY[mono], buff, -1);
73 mv_fox 447
      choice = menuselect(12, -1, 4, list, -1);
448
      if (choice < 0) return(MENUPREV);
449
      if (choice == 1) return(MENUQUIT);
81 mv_fox 450
      video_clear(0x0700, 0, 0);
28 mv_fox 451
      video_movecursor(0, 0);
55 mv_fox 452
      snprintf(buff, sizeof(buff), "FORMAT %c: /Q /U /Z:seriously /V:SVAROG386", cselecteddrive);
36 mv_fox 453
      system(buff);
28 mv_fox 454
      continue;
455
    }
33 mv_fox 456
    /* check total disk space */
35 mv_fox 457
    ds = disksize(selecteddrive);
47 mv_fox 458
    if (ds < SVAROG_DISK_REQ) {
56 mv_fox 459
      int y = 9;
79 mv_fox 460
      newscreen(2);
56 mv_fox 461
      snprintf(buff, sizeof(buff), kittengets(3, 4, "ERROR: Drive %c: is not big enough! Svarog386 requires a disk of at least %d MiB."), cselecteddrive);
61 mv_fox 462
      y += putstringwrap(y, 1, COLOR_BODY[mono], buff);
73 mv_fox 463
      putstringnls(++y, 1, COLOR_BODY[mono], 0, 5, "Press any key...");
28 mv_fox 464
      input_getkey();
73 mv_fox 465
      return(MENUQUIT);
28 mv_fox 466
    }
467
    /* is the disk empty? */
79 mv_fox 468
    newscreen(0);
35 mv_fox 469
    if (diskempty(selecteddrive) != 0) {
28 mv_fox 470
      char *list[] = { "Proceed with formatting", "Quit to DOS", NULL};
65 mv_fox 471
      int y = 6;
42 mv_fox 472
      list[0] = kittengets(0, 6, list[0]);
473
      list[1] = kittengets(0, 2, list[1]);
56 mv_fox 474
      snprintf(buff, sizeof(buff), kittengets(3, 5, "ERROR: Drive %c: is not empty. Svarog386 must be installed on an empty disk.\n\nYou can format the disk now, to make it empty. Note however, that this will ERASE ALL CURRENT DATA on your disk."), cselecteddrive);
65 mv_fox 475
      y += putstringwrap(y, 1, COLOR_BODY[mono], buff);
73 mv_fox 476
      choice = menuselect(++y, -1, 4, list, -1);
477
      if (choice < 0) return(MENUPREV);
478
      if (choice == 1) return(MENUQUIT);
81 mv_fox 479
      video_clear(0x0700, 0, 0);
28 mv_fox 480
      video_movecursor(0, 0);
55 mv_fox 481
      snprintf(buff, sizeof(buff), "FORMAT %c: /Q /U /Z:seriously /V:SVAROG386", cselecteddrive);
42 mv_fox 482
      system(buff);
28 mv_fox 483
      continue;
484
    } else {
485
      /* final confirmation */
486
      char *list[] = { "Install Svarog386", "Quit to DOS", NULL};
42 mv_fox 487
      list[0] = kittengets(0, 1, list[0]);
488
      list[1] = kittengets(0, 2, list[1]);
56 mv_fox 489
      snprintf(buff, sizeof(buff), kittengets(3, 6, "The installation of Svarog386 to %c: is about to begin."), cselecteddrive);
490
      video_putstring(7, -1, COLOR_BODY[mono], buff, -1);
73 mv_fox 491
      choice = menuselect(10, -1, 4, list, -1);
492
      if (choice < 0) return(MENUPREV);
493
      if (choice == 1) return(MENUQUIT);
62 mv_fox 494
      snprintf(buff, sizeof(buff), "SYS A: %c: > NUL", cselecteddrive);
36 mv_fox 495
      system(buff);
111 mv_fox 496
      system("FDISK /MBR");
55 mv_fox 497
      snprintf(buff, sizeof(buff), "%c:\\TEMP", cselecteddrive);
36 mv_fox 498
      mkdir(buff);
499
      return(cselecteddrive);
28 mv_fox 500
    }
501
  }
502
}
503
 
504
 
53 mv_fox 505
/* copy file src into dst, substituting all characters c1 by c2 */
506
static void fcopysub(char *dst, char *src, char c1, char c2) {
507
  FILE *fdd, *fds;
508
  int buff;
509
  fds = fopen(src, "rb");
510
  if (fds == NULL) return;
511
  fdd = fopen(dst, "wb");
512
  if (fdd == NULL) {
513
    fclose(fds);
514
    return;
515
  }
516
  /* */
517
  for (;;) {
518
    buff = fgetc(fds);
519
    if (buff == EOF) break;
520
    if (buff == c1) buff = c2;
521
    fprintf(fdd, "%c", buff);
522
  }
523
  /* close files and return */
524
  fclose(fdd);
525
  fclose(fds);
526
}
527
 
528
 
67 mv_fox 529
static void bootfilesgen(int targetdrv, struct slocales *locales, int cdromdrv) {
28 mv_fox 530
  char buff[128];
96 mv_fox 531
  char buff2[16];
532
  char buff3[16];
28 mv_fox 533
  FILE *fd;
53 mv_fox 534
  /*** CONFIG.SYS ***/
55 mv_fox 535
  snprintf(buff, sizeof(buff), "%c:\\CONFIG.SYS", targetdrv);
53 mv_fox 536
  fd = fopen(buff, "wb");
537
  if (fd == NULL) return;
101 mv_fox 538
  fprintf(fd, "DOS=UMB,HIGH\r\n"
539
              "LASTDRIVE=Z\r\n"
540
              "FILES=50\r\n");
53 mv_fox 541
  fprintf(fd, "DEVICE=%c:\\SYSTEM\\SVAROG.386\\BIN\\HIMEMX.EXE\r\n", targetdrv);
77 mv_fox 542
  if (strcmp(locales->lang, "EN") == 0) {
95 mv_fox 543
    strcpy(buff, "COMMAND");
77 mv_fox 544
  } else {
545
    snprintf(buff, sizeof(buff), "CMD-%s", locales->lang);
546
  }
547
  fprintf(fd, "SHELLHIGH=%c:\\SYSTEM\\SVAROG.386\\BIN\\%s.COM /E:512 /P\r\n", targetdrv, buff);
53 mv_fox 548
  fprintf(fd, "REM COUNTRY=001,437,%c:\\SYSTEM\\CONF\\COUNTRY.SYS\r\n", targetdrv);
549
  fprintf(fd, "DEVICE=%c:\\SYSTEM\\DRIVERS\\UDVD2\\UDVD2.SYS /D:SVCD0001 /H\r\n", targetdrv);
550
  fclose(fd);
28 mv_fox 551
  /*** AUTOEXEC.BAT ***/
55 mv_fox 552
  snprintf(buff, sizeof(buff), "%c:\\AUTOEXEC.BAT", targetdrv);
28 mv_fox 553
  fd = fopen(buff, "wb");
554
  if (fd == NULL) return;
555
  fprintf(fd, "@ECHO OFF\r\n");
36 mv_fox 556
  fprintf(fd, "SET TEMP=%c:\\TEMP\r\n", targetdrv);
557
  fprintf(fd, "SET DOSDIR=%c:\\SYSTEM\\SVAROG.386\r\n", targetdrv);
49 mv_fox 558
  fprintf(fd, "SET NLSPATH=%%DOSDIR%%\\NLS\r\n");
67 mv_fox 559
  fprintf(fd, "SET LANG=%s\r\n", locales->lang);
53 mv_fox 560
  fprintf(fd, "SET DIRCMD=/OGNE/P/4\r\n");
561
  fprintf(fd, "SET FDNPKG.CFG=%c:\\SYSTEM\\CFG\\FDNPKG.CFG\r\n", targetdrv);
562
  fprintf(fd, "SET WATTCP.CFG=%c:\\SYSTEM\\CFG\\WATTCP.CFG\r\n", targetdrv);
563
  fprintf(fd, "PATH %%DOSDIR%%\\BIN;%c:\\SYSTEM\\LINKS\r\n", targetdrv);
28 mv_fox 564
  fprintf(fd, "PROMPT $P$G\r\n");
30 mv_fox 565
  fprintf(fd, "ALIAS REBOOT=FDAPM COLDBOOT\r\n");
566
  fprintf(fd, "ALIAS HALT=FDAPM POWEROFF\r\n");
56 mv_fox 567
  fprintf(fd, "FDAPM APMDOS\r\n");
28 mv_fox 568
  fprintf(fd, "\r\n");
67 mv_fox 569
  if (locales->egafile > 0) {
55 mv_fox 570
    fprintf(fd, "DISPLAY CON=(EGA,,1)\r\n");
67 mv_fox 571
    if (locales->egafile == 1) {
572
      fprintf(fd, "MODE CON CP PREPARE=((%u) %c:\\SYSTEM\\SVAROG.386\\CPI\\EGA.CPX)\r\n", locales->codepage, targetdrv);
49 mv_fox 573
    } else {
67 mv_fox 574
      fprintf(fd, "MODE CON CP PREPARE=((%u) %c:\\SYSTEM\\SVAROG.386\\CPI\\EGA%d.CPX)\r\n", locales->codepage, targetdrv, locales->egafile);
49 mv_fox 575
    }
67 mv_fox 576
    fprintf(fd, "MODE CON CP SELECT=%u\r\n", locales->codepage);
74 mv_fox 577
  }
578
  if (locales->keybfile > 0) {
67 mv_fox 579
    if (locales->keybfile == 1) {
96 mv_fox 580
      snprintf(buff2, sizeof(buff2), "KEYBOARD.SYS");
67 mv_fox 581
    } else {
96 mv_fox 582
      snprintf(buff2, sizeof(buff2), "KEYBRD%d.SYS", locales->keybfile);
67 mv_fox 583
    }
98 mv_fox 584
    if (locales->keybid == 0) {
96 mv_fox 585
      buff3[0] = 0;
586
    } else {
587
      snprintf(buff3, sizeof(buff3), " /ID:%d", locales->keybid);
588
    }
589
    fprintf(fd, "KEYB %s,%d,%c:\\SYSTEM\\SVAROG.386\\BIN\\%s%s\r\n", locales->keybcode, locales->codepage, targetdrv, buff2, buff3);
49 mv_fox 590
    fprintf(fd, "\r\n");
591
  }
592
  fprintf(fd, "SHSUCDX /d:SVCD0001\r\n");
593
  fprintf(fd, "\r\n");
594
  fprintf(fd, "REM Uncomment the line below for automatic mouse support\r\n");
595
  fprintf(fd, "REM CTMOUSE\r\n");
596
  fprintf(fd, "\r\n");
53 mv_fox 597
  fprintf(fd, "ECHO.\r\n");
74 mv_fox 598
  fprintf(fd, "ECHO %s\r\n", kittengets(6, 0, "Welcome to Svarog386! Type 'HELP' if you need help."));
28 mv_fox 599
  fclose(fd);
53 mv_fox 600
  /*** CREATE DIRECTORY FOR OTHER CONFIGURATION FILES ***/
601
  snprintf(buff, sizeof(buff), "%c:\\SYSTEM\\CFG", targetdrv);
602
  mkdir(buff);
603
  /*** FDNPKG.CFG ***/
604
  snprintf(buff, sizeof(buff), "%c:\\SYSTEM\\CFG\\FDNPKG.CFG", targetdrv);
605
  fcopysub(buff, "A:\\DAT\\FDNPKG.CFG", '$', cdromdrv);
606
  /*** COUNTRY.SYS ***/
607
  /*** PICOTCP ***/
608
  /*** WATTCP ***/
28 mv_fox 609
}
610
 
611
 
53 mv_fox 612
static void installpackages(int targetdrv, int cdromdrv) {
28 mv_fox 613
  char *pkglist[] = {
55 mv_fox 614
    "A:\\UDVD2", /* this one's not part of CORE, hence it's stored right on the floppy */
28 mv_fox 615
    "APPEND",
616
    "ASSIGN",
617
    "ATTRIB",
618
    "CHKDSK",
619
    "CHOICE",
620
    "COMMAND",
621
    "COMP",
622
    "CPIDOS",
623
    "CTMOUSE",
624
    "DEBUG",
625
    "DEFRAG",
626
    "DELTREE",
627
    "DEVLOAD",
628
    "DISKCOMP",
629
    "DISKCOPY",
630
    "DISPLAY",
631
    "DOSFSCK",
632
    "EDIT",
633
    "EDLIN",
634
    "EXE2BIN",
635
    "FC",
636
    "FDAPM",
637
    "FDISK",
638
    "FDNPKG",
639
    "FIND",
640
    "FORMAT",
641
    "HELP",
642
    "HIMEMX",
643
    "KERNEL",
644
    "KEYB",
65 mv_fox 645
    "KEYB_LAY",
28 mv_fox 646
    "LABEL",
647
    "LBACACHE",
648
    "MEM",
649
    "MIRROR",
650
    "MODE",
651
    "MORE",
652
    "MOVE",
653
    "NANSI",
654
    "NLSFUNC",
655
    "PRINT",
656
    "RDISK",
657
    "RECOVER",
658
    "REPLACE",
659
    "SHARE",
660
    "SHSUCDX",
661
    "SORT",
662
    "SWSUBST",
663
    "TREE",
664
    "UNDELETE",
665
    "XCOPY",
666
    NULL
667
  };
30 mv_fox 668
  int i, pkglistlen;
46 mv_fox 669
  char buff[64];
79 mv_fox 670
  newscreen(3);
30 mv_fox 671
  /* count how long the pkg list is */
672
  for (pkglistlen = 0; pkglist[pkglistlen] != NULL; pkglistlen++);
46 mv_fox 673
  /* set DOSDIR and friends */
674
  snprintf(buff, sizeof(buff), "%c:\\SYSTEM\\SVAROG.386", targetdrv);
675
  setenv("DOSDIR", buff, 1);
676
  snprintf(buff, sizeof(buff), "%c:\\TEMP", targetdrv);
677
  setenv("TEMP", buff, 1);
30 mv_fox 678
  /* install packages */
28 mv_fox 679
  for (i = 0; pkglist[i] != NULL; i++) {
36 mv_fox 680
    char buff[128];
42 mv_fox 681
    snprintf(buff, sizeof(buff), kittengets(4, 0, "Installing package %d/%d: %s"), i+1, pkglistlen, pkglist[i]);
36 mv_fox 682
    strcat(buff, "       ");
61 mv_fox 683
    video_putstring(10, 1, COLOR_BODY[mono], buff, -1);
55 mv_fox 684
    if (pkglist[i][1] == ':') {
685
      snprintf(buff, sizeof(buff), "FDINST INSTALL %s.ZIP > NUL", pkglist[i]);
686
    } else {
687
      snprintf(buff, sizeof(buff), "FDINST INSTALL %c:\\CORE\\%s.ZIP > NUL", cdromdrv, pkglist[i]);
688
    }
28 mv_fox 689
    system(buff);
690
  }
691
}
692
 
693
 
42 mv_fox 694
static void finalreboot(void) {
56 mv_fox 695
  int y = 9;
79 mv_fox 696
  newscreen(2);
73 mv_fox 697
  y += putstringnls(y, 1, COLOR_BODY[mono], 5, 0, "Svarog386 installation is over. Your computer will reboot now.\nPlease remove the installation disk from your drive.");
61 mv_fox 698
  putstringnls(++y, 1, COLOR_BODY[mono], 0, 5, "Press any key...");
42 mv_fox 699
  input_getkey();
700
  reboot();
701
}
702
 
703
 
67 mv_fox 704
static void loadcp(struct slocales *locales) {
42 mv_fox 705
  char buff[64];
67 mv_fox 706
  if (locales->codepage == 437) return;
42 mv_fox 707
  video_movecursor(1, 0);
67 mv_fox 708
  if (locales->egafile == 1) {
709
    snprintf(buff, sizeof(buff), "MODE CON CP PREP=((%u) A:\\EGA.CPX) > NUL", locales->codepage);
42 mv_fox 710
  } else {
67 mv_fox 711
    snprintf(buff, sizeof(buff), "MODE CON CP PREP=((%u) A:\\EGA%d.CPX) > NUL", locales->codepage, locales->egafile);
42 mv_fox 712
  }
713
  system(buff);
67 mv_fox 714
  snprintf(buff, sizeof(buff), "MODE CON CP SEL=%u > NUL", locales->codepage);
42 mv_fox 715
  system(buff);
716
  /* below I re-init the video controller - apparently this is required if
65 mv_fox 717
   * I want the new glyph symbols to be actually applied, at least some
718
   * (broken?) BIOSes, like VBox, apply glyphs only at next video mode change */
42 mv_fox 719
  {
720
  union REGS r;
721
  r.h.ah = 0x0F; /* get current video mode */
722
  int86(0x10, &r, &r); /* r.h.al contains the current video mode now */
56 mv_fox 723
  r.h.al |= 128; /* set the high bit of AL to instruct BIOS not to flush VRAM's content (EGA+) */
724
  r.h.ah = 0; /* re-set video mode (to whatever is set in AL) */
42 mv_fox 725
  int86(0x10, &r, &r);
726
  }
727
}
728
 
65 mv_fox 729
/* checks CD drive drv for the presence of the Svarog386 install CD
730
 * returns 0 if found, non-zero otherwise */
69 mv_fox 731
static int checkcd(char drv) {
65 mv_fox 732
  FILE *fd;
733
  char fname[32];
734
  snprintf(fname, sizeof(fname), "%c:\\CORE\\MEM.ZIP", drv);
735
  fd = fopen(fname, "rb");
736
  if (fd == NULL) return(-1);
737
  fclose(fd);
738
  return(0);
69 mv_fox 739
}
65 mv_fox 740
 
741
 
28 mv_fox 742
int main(void) {
67 mv_fox 743
  struct slocales locales;
28 mv_fox 744
  int targetdrv;
53 mv_fox 745
  int cdromdrv;
73 mv_fox 746
  int action;
28 mv_fox 747
 
53 mv_fox 748
  /* find where the cdrom drive is */
749
  cdromdrv = cdrom_findfirst();
750
  if (cdromdrv < 0) {
751
    printf("ERROR: CD-ROM DRIVE NOT FOUND\r\n");
752
    return(1);
753
  }
754
  cdromdrv += 'A'; /* convert the cdrom 'id' (A=0) to an actual drive letter */
69 mv_fox 755
  if (checkcd(cdromdrv) != 0) {
65 mv_fox 756
    printf("ERROR: SVAROG386 INSTALLATION CD NOT FOUND IN THE DRIVE.\r\n");
757
    return(1);
69 mv_fox 758
  }
53 mv_fox 759
 
29 mv_fox 760
  /* init screen and detect mono status */
761
  mono = video_init();
762
 
73 mv_fox 763
  kittenopen("INSTALL"); /* load initial NLS support */
764
 
765
 SelectLang:
766
  action = selectlang(&locales); /* welcome to svarog, select your language */
767
  if (action != MENUNEXT) goto Quit;
768
  setenv("LANG", locales.lang, 1);
769
  loadcp(&locales);
770
  kittenclose(); /* reload NLS with new language */
771
  kittenopen("INSTALL"); /* NLS support */
772
  action = selectkeyb(&locales);  /* what keyb layout should we use? */
773
  if (action == MENUQUIT) goto Quit;
774
  if (action == MENUPREV) goto SelectLang;
775
 
776
 WelcomeScreen:
777
  action = welcomescreen(); /* what svarog386 is, ask whether to run live dos or install */
778
  if (action == MENUQUIT) goto Quit;
779
  if (action == MENUPREV) goto SelectLang;
780
  targetdrv = preparedrive(); /* what drive should we install to? check avail. space */
781
  if (targetdrv == MENUQUIT) goto Quit;
782
  if (targetdrv == MENUPREV) goto WelcomeScreen;
783
  /*askaboutsources();*/ /* IF sources are available, ask if installing with them */
784
  installpackages(targetdrv, cdromdrv);    /* install packages */
785
  bootfilesgen(targetdrv, &locales, cdromdrv); /* generate boot files and other configurations */
786
  /*localcfg();*/ /* show local params (currency, etc), and propose to change them (based on localcfg) */
787
  /*netcfg();*/ /* basic networking config */
788
  finalreboot(); /* remove the CD and reboot */
789
 
790
 Quit:
42 mv_fox 791
  kittenclose(); /* close NLS support */
81 mv_fox 792
  video_clear(0x0700, 0, 0);
28 mv_fox 793
  video_movecursor(0, 0);
794
  return(0);
795
}