Subversion Repositories SvarDOS

Rev

Rev 30 | 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
3
 * COPYRIGHT (C) 2016 MATEUSZ VISTE
4
 */
5
 
6
#include <dos.h>
30 mv_fox 7
#include <direct.h>  /* mkdir() */
28 mv_fox 8
#include <stdio.h>   /* printf() and friends */
9
#include <stdlib.h>  /* system() */
10
#include <string.h>  /* memcpy() */
11
#include <unistd.h>
12
#include "input.h"
13
#include "video.h"
14
 
29 mv_fox 15
/* color scheme (color, mono) */
16
static unsigned short COLOR_TITLEBAR[2] = {0x7000,0x7000};
17
static unsigned short COLOR_BODY[2] = {0x1700,0x0700};
18
static unsigned short COLOR_SELECT[2] = {0x7000,0x7000};
19
static unsigned short COLOR_SELECTCUR[2] = {0x1F00,0x0700};
28 mv_fox 20
 
29 mv_fox 21
/* mono flag */
22
static int mono = 0;
28 mv_fox 23
 
24
 
25
/* reboot the computer */
26
static void reboot(void) {
27
  void ((far *bootroutine)()) = (void (far *)()) 0xFFFF0000L;
28
  int far *rstaddr = (int far *)0x00400072L; /* BIOS boot flag is at 0040:0072 */
29
  *rstaddr = 0x1234; /* 0x1234 = warm boot, 0 = cold boot */
30
  (*bootroutine)(); /* jump to the BIOS reboot routine at FFFF:0000 */
31
}
32
 
33
static int menuselect(int ypos, int xpos, int height, char **list) {
34
  int i, offset = 0, res = 0, count, width = 0;
35
  /* count how many languages there is */
36
  for (count = 0; list[count] != NULL; count++) {
37
    int len = strlen(list[count]);
38
    if (len > width) width = len;
39
  }
40
 
41
  /* if xpos negative, means 'center out' */
42
  if (xpos < 0) xpos = 39 - (width >> 1);
43
 
29 mv_fox 44
  video_putchar(ypos, xpos+width+2, COLOR_SELECT[mono], 0xBF);         /*       \ */
45
  video_putchar(ypos, xpos-1, COLOR_SELECT[mono], 0xDA);               /*  /      */
46
  video_putchar(ypos+height-1, xpos-1, COLOR_SELECT[mono], 0xC0);      /*  \      */
47
  video_putchar(ypos+height-1, xpos+width+2, COLOR_SELECT[mono], 0xD9);/*      /  */
48
  video_putcharmulti(ypos, xpos, COLOR_SELECT[mono], 0xC4, width + 2, 1);
49
  video_putcharmulti(ypos+height-1, xpos, COLOR_SELECT[mono], 0xC4, width + 2, 1);
50
  video_putcharmulti(ypos+1, xpos-1, COLOR_SELECT[mono], 0xB3, height - 2, 80);
51
  video_putcharmulti(ypos+1, xpos+width+2, COLOR_SELECT[mono], 0xB3, height - 2, 80);
28 mv_fox 52
 
53
  for (;;) {
54
    int key;
55
    /* list of selectable items */
56
    for (i = 0; i < height - 2; i++) {
57
      if (i + offset == res) {
29 mv_fox 58
        video_putchar(ypos + 1 + i, xpos, COLOR_SELECTCUR[mono], 16);
59
        video_putchar(ypos + 1 + i, xpos+width+1, COLOR_SELECTCUR[mono], 17);
28 mv_fox 60
        video_movecursor(ypos + 1 + i, xpos);
29 mv_fox 61
        video_putstringfix(ypos + 1 + i, xpos+1, COLOR_SELECTCUR[mono], list[i + offset], width);
28 mv_fox 62
      } else if (i + offset < count) {
29 mv_fox 63
        video_putchar(ypos + 1 + i, xpos, COLOR_SELECT[mono], ' ');
64
        video_putchar(ypos + 1 + i, xpos+width+1, COLOR_SELECT[mono], ' ');
65
        video_putstringfix(ypos + 1 + i, xpos+1, COLOR_SELECT[mono], list[i + offset], width);
28 mv_fox 66
      } else {
29 mv_fox 67
        video_putcharmulti(ypos + 1 + i, xpos, COLOR_SELECT[mono], ' ', width+2, 1);
28 mv_fox 68
      }
69
    }
70
    key = input_getkey();
71
    if (key == 0x0D) { /* ENTER */
72
      return(res);
73
    } else if (key == 0x148) { /* up */
33 mv_fox 74
      if (res > 0) {
75
        res--;
76
        if (res < offset) offset = res;
77
      }
28 mv_fox 78
    } else if (key == 0x150) { /* down */
33 mv_fox 79
      if (res+1 < count) {
80
        res++;
81
        if (res > offset + height - 3) offset = res - (height - 3);
82
      }
83
    } else if (key == 0x147) { /* home */
84
      res = 0;
85
      offset = 0;
86
    } else if (key == 0x14F) { /* end */
87
      res = count - 1;
88
      if (res > offset + height - 3) offset = res - (height - 3);
28 mv_fox 89
    } else if (key == 0x1B) {  /* ESC */
90
      return(-1);
33 mv_fox 91
    } else {
92
      char buf[8];
93
      sprintf(buf, "0x%02X ", key);
94
      video_putstring(1, 0, COLOR_BODY[mono], buf);
28 mv_fox 95
    }
96
  }
97
}
98
 
99
static void newscreen(void) {
100
  int x;
29 mv_fox 101
  for (x = 0; x < 80; x++) video_putchar(0, x, COLOR_TITLEBAR[mono], ' ');
102
  video_clear(COLOR_BODY[mono], 80);
103
  video_putstring(0, 29, COLOR_TITLEBAR[mono], "SVAROG386 INSTALLATION");
28 mv_fox 104
}
105
 
106
 
107
static int selectlang(char *lang) {
108
  int choice;
109
  char *code;
110
  char *langlist[] = {
111
    "English\0EN",
112
    "French\0FR",
113
    "German\0DE",
114
    "Italian\0IT",
115
    "Polish\0PL",
116
    "Russian\0RU",
117
    "Slovenian\0SL",
118
    "Spanish\0ES",
119
    "Turkish\0TR",
120
    NULL
121
  };
122
 
123
  newscreen();
29 mv_fox 124
  video_putstring(3, 30, COLOR_BODY[mono], "Welcome to Svarog386");
125
  video_putstring(4, 30, COLOR_BODY[mono], "====================");
126
  video_putstring(6, 2, COLOR_BODY[mono], "Svarog386 is an operating system based on the FreeDOS kernel. It targets");
127
  video_putstring(7, 2, COLOR_BODY[mono], "386+ computers and comes with a variety of third-party applications. Before");
128
  video_putstring(8, 2, COLOR_BODY[mono], "we get to serious business, please select your preferred language from the");
129
  video_putstring(9, 2, COLOR_BODY[mono], "list below, and press the ENTER key:");
28 mv_fox 130
  choice = menuselect(11, -1, 12, langlist);
131
  if (choice < 0) return(-1);
132
  /* write short language code into lang */
133
  for (code = langlist[choice]; *code != 0; code++);
134
  memcpy(lang, code + 1, 2);
135
  lang[2] = 0;
136
  return(0);
137
}
138
 
139
 
140
/* returns 0 if installation must proceed, non-zero otherwise */
141
static int welcomescreen(void) {
142
  char *choice[] = {"Install Svarog386 to disk", "Quit to DOS", NULL};
143
  newscreen();
29 mv_fox 144
  video_putstring(4, 1, COLOR_BODY[mono], "You are about to install Svarog386, a free, MSDOS-compatible operating system");
145
  video_putstring(5, 1, COLOR_BODY[mono], "based on the FreeDOS kernel.");
146
  video_putstring(7, 1, COLOR_BODY[mono], "WARNING: If your PC has another operating system installed, this other system");
147
  video_putstring(8, 1, COLOR_BODY[mono], "         might be unable to boot once Svarog386 is installed.");
28 mv_fox 148
  return(menuselect(14, -1, 4, choice));
149
}
150
 
151
 
33 mv_fox 152
/* returns 1 if drive is removable, 0 if not, -1 on error */
153
static int isdriveremovable(int drv) {
28 mv_fox 154
  union REGS r;
33 mv_fox 155
  r.x.ax = 0x4408;
156
  r.h.bl = drv;
28 mv_fox 157
  int86(0x21, &r, &r);
33 mv_fox 158
  /* CF set on error, AX set to 0 if removable, 1 if fixed */
159
  if (r.x.cflag != 0) return(-1);
160
  if (r.x.ax == 0) return(1);
161
  return(0);
28 mv_fox 162
}
163
 
164
 
165
/* returns total disk space of drive drv (in MiB, max 2048), or -1 if drive invalid
166
 * also sets emptyflag to 1 if drive is empty, or to 0 otherwise */
167
static int disksize(int drv, int *emptyflag) {
168
  long res;
169
  union REGS r;
170
  r.h.ah = 0x36; /* DOS 2+ get free disk space */
171
  r.h.dl = drv;
172
  int86(0x21, &r, &r);
173
  if (r.x.ax == 0xffffu) return(-1); /* AX set to FFFFh if drive invalid */
174
  res = r.x.ax;
175
  res *= r.x.bx;
176
  res *= r.x.cx;
177
  res >>= 20; /* bytes to MiB */
178
  if (r.x.dx != r.x.bx) { /* DX is total number of clusters, while BX is only free clusters */
179
    *emptyflag = 0;
180
  } else {
181
    *emptyflag = 1;
182
  }
183
  return(res);
184
}
185
 
186
 
187
static int preparedrive(void) {
33 mv_fox 188
  int driveremovable;
28 mv_fox 189
  int selecteddrive = 3; /* hardcoded to 'C:' */
190
  int ds, emptydriveflag;
191
  for (;;) {
192
    newscreen();
33 mv_fox 193
    driveremovable = isdriveremovable(selecteddrive);
194
    if (driveremovable < 0) {
195
      char *list[] = { "Create an automatic partition", "Run the FDISK partitionning tool", "Quit to DOS", NULL};
29 mv_fox 196
      video_putstring(4, 2, COLOR_BODY[mono], "ERROR: Drive C: could not be found. Perhaps your hard disk needs to be");
197
      video_putstring(5, 2, COLOR_BODY[mono], "       partitionned first. Please create at least one partition on your");
198
      video_putstring(6, 2, COLOR_BODY[mono], "       hard disk, so Svarog386 can be installed on it. Note, that");
199
      video_putstring(7, 2, COLOR_BODY[mono], "       Svarog386 requires at least 16 MiB of available disk space.");
33 mv_fox 200
      video_putstring(9, 2, COLOR_BODY[mono], "You can use the FDISK partitioning tool for creating the required partition");
201
      video_putstring(10, 2, COLOR_BODY[mono], "manually, or you can let the installer partitioning your disk");
202
      video_putstring(11, 2, COLOR_BODY[mono], "automatically. You can also abort the installation to use any other");
203
      video_putstring(12, 2, COLOR_BODY[mono], "partition manager of your choice.");
204
      switch (menuselect(14, -1, 5, list)) {
205
        case 0:
206
          system("FDISK /AUTO");
207
          break;
208
        case 1:
209
          video_clear(0x0700, 0);
210
          video_movecursor(0, 0);
211
          system("FDISK");
212
          break;
213
        case 2:
214
          return(-1);
215
      }
28 mv_fox 216
      newscreen();
33 mv_fox 217
      video_putstring(12, 10, COLOR_BODY[mono], "Your computer will reboot now. Press any key.");
218
      input_getkey();
28 mv_fox 219
      reboot();
220
      return(-1);
33 mv_fox 221
    } else if (driveremovable > 0) {
222
      video_putstring(8, 2, COLOR_BODY[mono], "ERROR: Drive C: appears to be a removable device.");
223
      video_putstring(10, 2, COLOR_BODY[mono], "Installation aborted. Press any key.");
224
      return(-1);
28 mv_fox 225
    }
33 mv_fox 226
    /* if not formatted, propose to format it right away (try to create a directory) */
227
    if (mkdir("C:\\SVWRTEST.123") != 0) {
28 mv_fox 228
      char *list[] = { "Proceed with formatting", "Quit to DOS", NULL};
29 mv_fox 229
      video_putstring(7, 2, COLOR_BODY[mono], "ERROR: Drive C: seems to be unformated.");
230
      video_putstring(8, 2, COLOR_BODY[mono], "       Do you wish to format it?");
28 mv_fox 231
      if (menuselect(12, -1, 4, list) != 0) return(-1);
232
      video_clear(0x0700, 0);
233
      video_movecursor(0, 0);
33 mv_fox 234
      system("FORMAT C: /Q /U /V:SVAROG");
28 mv_fox 235
      continue;
236
    }
33 mv_fox 237
    rmdir("C:\\SVWRTEST.123");
238
    /* check total disk space */
239
    ds = disksize(selecteddrive, &emptydriveflag);
28 mv_fox 240
    if (ds < 16) {
33 mv_fox 241
      video_putstring(9, 2, COLOR_BODY[mono], "ERROR: Drive C: is not big enough!");
242
      video_putstring(10, 2, COLOR_BODY[mono], "      Svarog386 requires a disk of at least 16 MiB.");
243
      video_putstring(12, 2, COLOR_BODY[mono], "Press any key to return to DOS.");
28 mv_fox 244
      input_getkey();
245
      return(-1);
246
    }
247
    /* is the disk empty? */
248
    if (emptydriveflag != 0) {
249
      char *list[] = { "Proceed with formatting", "Quit to DOS", NULL};
29 mv_fox 250
      video_putstring(7, 2, COLOR_BODY[mono], "ERROR: Drive C: is not empty. Svarog386 must be installed on an empty disk.");
251
      video_putstring(8, 2, COLOR_BODY[mono], "       You can format the disk now, to make it empty. Note however, that");
252
      video_putstring(9, 2, COLOR_BODY[mono], "       this will ERASE ALL CURRENT DATA on your disk.");
28 mv_fox 253
      if (menuselect(12, -1, 4, list) != 0) return(-1);
254
      video_clear(0x0700, 0);
255
      video_movecursor(0, 0);
256
      system("FORMAT /Q C:");
257
      continue;
258
    } else {
259
      /* final confirmation */
260
      char *list[] = { "Install Svarog386", "Quit to DOS", NULL};
29 mv_fox 261
      video_putstring(8, 2, COLOR_BODY[mono], "The installation of Svarog386 to your C: disk is about to begin.");
28 mv_fox 262
      if (menuselect(10, -1, 4, list) != 0) return(-1);
263
      system("SYS A: C:");
30 mv_fox 264
      mkdir("C:\\TEMP");
28 mv_fox 265
      return(0);
266
    }
267
  }
268
}
269
 
270
 
271
static void finalreboot(void) {
272
  newscreen();
29 mv_fox 273
  video_putstring(10, 2, COLOR_BODY[mono], "Svarog386 installation is over. Please remove the");
274
  video_putstring(10, 2, COLOR_BODY[mono], "installation diskette and/or CD from the drive.");
275
  video_putstring(13, 2, COLOR_BODY[mono], "Press any key to reboot...");
28 mv_fox 276
  input_getkey();
277
  reboot();
278
}
279
 
280
 
281
static void bootfilesgen(int targetdrv, char *lang) {
282
  char drv = 'A' + targetdrv - 1;
283
  char buff[128];
284
  FILE *fd;
285
  /*** AUTOEXEC.BAT ***/
286
  sprintf(buff, "%c:\\AUTOEXEC.BAT", drv);
287
  fd = fopen(buff, "wb");
288
  if (fd == NULL) return;
289
  fprintf(fd, "@ECHO OFF\r\n");
290
  fprintf(fd, "SET TEMP=%c:\\TEMP\r\n", drv);
291
  fprintf(fd, "SET DOSDIR=%c:\\SYSTEM\\SVAROG.386\r\n", drv);
292
  fprintf(fd, "SET NLSPATH=%%DOSDIR%%\\NLS\r\n", drv);
293
  fprintf(fd, "SET LANG=%s\r\n", lang);
294
  fprintf(fd, "SET DIRCMD=/OGNE/P\r\n");
295
  fprintf(fd, "SET FDNPKG.CFG=%c:\\SYSTEM\\CFG\\FDNPKG.CFG\r\n");
296
  fprintf(fd, "SET WATTCP.CFG=%c:\\SYSTEM\\CFG\\WATTCP.CFG\r\n");
297
  fprintf(fd, "PATH %%DOSDIR%%\\BIN;%%DOSDIR%%\\LINKS\r\n");
298
  fprintf(fd, "PROMPT $P$G\r\n");
30 mv_fox 299
  fprintf(fd, "ALIAS REBOOT=FDAPM COLDBOOT\r\n");
300
  fprintf(fd, "ALIAS HALT=FDAPM POWEROFF\r\n");
28 mv_fox 301
  fprintf(fd, "\r\n\r\n");
302
  fprintf(fd, "MODE CON CP PREPARE=((991) %c:\\SYSTEM\\SVAROG.386\\CPI\\EGA10.CPX\r\n");
303
  fprintf(fd, "MODE CON CP SELECT=991\r\n");
304
  fprintf(fd, "\r\n");
305
  fprintf(fd, "SHSUCDX /d:FDCD0001\r\n");
306
  fclose(fd);
307
  /*** CONFIG.SYS ***/
308
  sprintf(buff, "%c:\\CONFIG.SYS", drv);
309
  fd = fopen(buff, "wb");
310
  if (fd == NULL) return;
311
  fprintf(fd, "DOS=UMB,HIGH\r\n");
312
  fprintf(fd, "FILES=50\r\n");
313
  fprintf(fd, "DEVICE=%c:\\SYSTEM\\SVAROG.386\\BIN\\HIMEM.EXE\r\n", drv);
314
  fprintf(fd, "SHELLHIGH=%c:\\SYSTEM\\SVAROG.386\\BIN\\COMMAND.COM /E:512", drv);
315
  fprintf(fd, "REM COUNTRY=001,437,%c:\\SYSTEM\\SVAROG.386\r\n", drv);
316
  fprintf(fd, "DEVICE=%c:\\SYSTEM\\SVAROG.386\\BIN\\CDROM.SYS /D:FDCD0001\r\n", drv);
317
  fclose(fd);
318
}
319
 
320
 
321
static void installpackages(void) {
322
  char *pkglist[] = {
323
    "APPEND",
324
    "ASSIGN",
325
    "ATTRIB",
326
    "CHKDSK",
327
    "CHOICE",
328
    "COMMAND",
329
    "COMP",
330
    "CPIDOS",
331
    "CTMOUSE",
332
    "DEBUG",
333
    "DEFRAG",
334
    "DELTREE",
335
    "DEVLOAD",
336
    "DISKCOMP",
337
    "DISKCOPY",
338
    "DISPLAY",
339
    "DOSFSCK",
340
    "EDIT",
341
    "EDLIN",
342
    "EXE2BIN",
343
    "FC",
344
    "FDAPM",
345
    "FDISK",
346
    "FDNPKG",
347
    "FIND",
348
    "FORMAT",
349
    "HELP",
350
    "HIMEMX",
351
    "KERNEL",
352
    "KEYB",
353
    "LABEL",
354
    "LBACACHE",
355
    "MEM",
356
    "MIRROR",
357
    "MODE",
358
    "MORE",
359
    "MOVE",
360
    "NANSI",
361
    "NLSFUNC",
362
    "PRINT",
363
    "RDISK",
364
    "RECOVER",
365
    "REPLACE",
366
    "SHARE",
367
    "SHSUCDX",
368
    "SORT",
369
    "SWSUBST",
370
    "TREE",
371
    "UNDELETE",
372
    "XCOPY",
373
    NULL
374
  };
30 mv_fox 375
  int i, pkglistlen;
28 mv_fox 376
  newscreen();
30 mv_fox 377
  /* count how long the pkg list is */
378
  for (pkglistlen = 0; pkglist[pkglistlen] != NULL; pkglistlen++);
379
  /* install packages */
28 mv_fox 380
  for (i = 0; pkglist[i] != NULL; i++) {
30 mv_fox 381
    char buff[16];
382
    sprintf(buff, "Installing package %d/%d: %s", i, pkglistlen, pkglist[i]);
383
    video_putstring(10, 2, COLOR_BODY[mono], buff);
384
    sprintf(buff, "FDNPKG INSTALL %s > NULL");
28 mv_fox 385
    system(buff);
386
  }
387
}
388
 
389
 
390
int main(void) {
391
  char lang[4];
392
  int targetdrv;
393
 
29 mv_fox 394
  /* init screen and detect mono status */
395
  mono = video_init();
396
 
28 mv_fox 397
  for (;;) { /* fake loop, it's here just to break out easily */
398
    if (selectlang(lang) < 0) break; /* welcome to svarog, select your language */
30 mv_fox 399
    /*selectkeyb();*/ /* what keyb layout should we use? */
28 mv_fox 400
    if (welcomescreen() != 0) break; /* what svarog386 is, ask whether to run live dos or install */
401
    targetdrv = preparedrive(); /* what drive should we install to? check avail. space */
402
    if (targetdrv < 0) break;
403
    /*askaboutsources();*/ /* IF sources are available, ask if installing with them */
404
    installpackages();   /* install packages */
405
    bootfilesgen(targetdrv, lang); /* generate simple boot files */
406
    /*localcfg();*/ /* show local params (currency, etc), and propose to change them (based on localcfg) */
407
    /*netcfg();*/ /* basic networking config? */
408
    finalreboot(); /* remove the CD and reboot */
409
    break;
410
  }
411
  video_clear(0x0700, 0);
412
  video_movecursor(0, 0);
413
  return(0);
414
}