WebSVN – SvarDOS – Diff – /install/trunk/install.c


/*
 * SVAROG386 INSTALL
 * COPYRIGHT (C) 2016 MATEUSZ VISTE
 *
 * http://svarog386.sf.net
 */
 
#include <dos.h>
#include <direct.h>  /* mkdir() */
#include <stdio.h>   /* printf() and friends */
#include <stdlib.h>  /* system() */
#include <string.h>  /* memcpy() */
#include <unistd.h>
 
#include "kitten\kitten.h"
 
#include "input.h"
#include "video.h"
 
 
/* color scheme (color, mono) */
static unsigned short COLOR_TITLEBAR[2] = {0x7000,0x7000};
static unsigned short COLOR_BODY[2] = {0x1700,0x0700};
static unsigned short COLOR_SELECT[2] = {0x7000,0x7000};
static unsigned short COLOR_SELECTCUR[2] = {0x1F00,0x0700};
 
/* mono flag */
static int mono = 0;
 
 
/* reboot the computer */
static void reboot(void) {
  void ((far *bootroutine)()) = (void (far *)()) 0xFFFF0000L;
  int far *rstaddr = (int far *)0x00400072L; /* BIOS boot flag is at 0040:0072 */
  *rstaddr = 0x1234; /* 0x1234 = warm boot, 0 = cold boot */
  (*bootroutine)(); /* jump to the BIOS reboot routine at FFFF:0000 */
}
 
 
/* an NLS wrapper around video_putstring() */
static void putstringnls(int y, int x, unsigned short attr, int nlsmaj, int nlsmin, char *s) {
  s = kittengets(nlsmaj, nlsmin, s);
  video_putstring(y, x, attr, s);
}
 
 
#define LDEC(x,y) (((unsigned short)x << 8) | (unsigned short)y)
/* provides codepage and country files required by lang */
static int getnlscp(char *lang, int *egafile) {
  unsigned short l;
  l = lang[0];
  l <<= 8;
  l |= lang[1];
  switch (l) {
    case LDEC('E','N'):
      *egafile = 0;
      return(437);
    case LDEC('P','L'):
      *egafile = 10;
      return(991);
  }
  *egafile = 0;
  return(437);
}
 
 
static int menuselect(int ypos, int xpos, int height, char **list) {
  int i, offset = 0, res = 0, count, width = 0;
  /* count how many languages there is */
  for (count = 0; list[count] != NULL; count++) {
    int len = strlen(list[count]);
    if (len > width) width = len;
  }
 
  /* if xpos negative, means 'center out' */
  if (xpos < 0) xpos = 39 - (width >> 1);
 
  video_putchar(ypos, xpos+width+2, COLOR_SELECT[mono], 0xBF);         /*       \ */
  video_putchar(ypos, xpos-1, COLOR_SELECT[mono], 0xDA);               /*  /      */
  video_putchar(ypos+height-1, xpos-1, COLOR_SELECT[mono], 0xC0);      /*  \      */
  video_putchar(ypos+height-1, xpos+width+2, COLOR_SELECT[mono], 0xD9);/*      /  */
  video_putcharmulti(ypos, xpos, COLOR_SELECT[mono], 0xC4, width + 2, 1);
  video_putcharmulti(ypos+height-1, xpos, COLOR_SELECT[mono], 0xC4, width + 2, 1);
  video_putcharmulti(ypos+1, xpos-1, COLOR_SELECT[mono], 0xB3, height - 2, 80);
  video_putcharmulti(ypos+1, xpos+width+2, COLOR_SELECT[mono], 0xB3, height - 2, 80);
 
  for (;;) {
    int key;
    /* list of selectable items */
    for (i = 0; i < height - 2; i++) {
      if (i + offset == res) {
        video_putchar(ypos + 1 + i, xpos, COLOR_SELECTCUR[mono], 16);
        video_putchar(ypos + 1 + i, xpos+width+1, COLOR_SELECTCUR[mono], 17);
        video_movecursor(ypos + 1 + i, xpos);
        video_putstringfix(ypos + 1 + i, xpos+1, COLOR_SELECTCUR[mono], list[i + offset], width);
      } else if (i + offset < count) {
        video_putchar(ypos + 1 + i, xpos, COLOR_SELECT[mono], ' ');
        video_putchar(ypos + 1 + i, xpos+width+1, COLOR_SELECT[mono], ' ');
        video_putstringfix(ypos + 1 + i, xpos+1, COLOR_SELECT[mono], list[i + offset], width);
      } else {
        video_putcharmulti(ypos + 1 + i, xpos, COLOR_SELECT[mono], ' ', width+2, 1);
      }
    }
    key = input_getkey();
    if (key == 0x0D) { /* ENTER */
      return(res);
    } else if (key == 0x148) { /* up */
      if (res > 0) {
        res--;
        if (res < offset) offset = res;
      }
    } else if (key == 0x150) { /* down */
      if (res+1 < count) {
        res++;
        if (res > offset + height - 3) offset = res - (height - 3);
      }
    } else if (key == 0x147) { /* home */
      res = 0;
      offset = 0;
    } else if (key == 0x14F) { /* end */
      res = count - 1;
      if (res > offset + height - 3) offset = res - (height - 3);
    } else if (key == 0x1B) {  /* ESC */
      return(-1);
    } else {
      char buf[8];
      sprintf(buf, "0x%02X ", key);
      video_putstring(1, 0, COLOR_BODY[mono], buf);
    }
  }
}
 
static void newscreen(void) {
  int x;
  char *title;
  title = kittengets(0, 0, "SVAROG386 INSTALLATION");
  for (x = 0; x < 80; x++) video_putchar(0, x, COLOR_TITLEBAR[mono], ' ');
  video_putstring(0, 40 - (strlen(title) >> 1), COLOR_TITLEBAR[mono], title);
  video_clear(COLOR_BODY[mono], 80);
  video_movecursor(25,0);
}
 
static int selectlang(char *lang) {
  int choice;
  int x;
  char *msg;
  char *code;
  char *langlist[] = {
    "English\0EN",
    "French\0FR",
    "German\0DE",
    "Italian\0IT",
    "Polish\0PL",
    "Russian\0RU",
    "Slovenian\0SL",
    "Spanish\0ES",
    "Turkish\0TR",
    NULL
  };
 
  newscreen();
  msg = kittengets(1, 0, "Welcome to Svarog386");
  x = 40 - (strlen(msg) >> 1);
  video_putstring(4, x, COLOR_BODY[mono], msg);
  video_putcharmulti(5, x, COLOR_BODY[mono], '=', strlen(msg), 1);
  putstringnls(8, 2, COLOR_BODY[mono], 1, 1, "Please select your language from the list below:");
  choice = menuselect(10, -1, 12, langlist);
  if (choice < 0) return(-1);
  /* write short language code into lang */
  for (code = langlist[choice]; *code != 0; code++);
  memcpy(lang, code + 1, 2);
  lang[2] = 0;
  return(0);
}
 
 
/* returns 0 if installation must proceed, non-zero otherwise */
static int welcomescreen(void) {
  char *choice[] = {"Install Svarog386 to disk", "Quit to DOS", NULL};
  choice[0] = kittengets(0, 1, choice[0]);
  choice[1] = kittengets(0, 2, choice[1]);
  newscreen();
  putstringnls(4, 1, COLOR_BODY[mono], 2, 0, "You are about to install Svarog386: a free, MSDOS-compatible operating system");
  putstringnls(5, 1, COLOR_BODY[mono], 2, 1, "based on the FreeDOS kernel. Svarog386 targets 386+ computers and comes with a");
  putstringnls(6, 1, COLOR_BODY[mono], 2, 2, "variety of third-party applications.");
  putstringnls(8, 1, COLOR_BODY[mono], 2, 3, "WARNING: If your PC has another operating system installed, this other system");
  putstringnls(9, 1, COLOR_BODY[mono], 2, 4, "         might be unable to boot once Svarog386 is installed.");
  return(menuselect(13, -1, 4, choice));
}
 
 
/* returns 1 if drive is removable, 0 if not, -1 on error */
static int isdriveremovable(int drv) {
  union REGS r;
  r.x.ax = 0x4408;
  r.h.bl = drv;
  int86(0x21, &r, &r);
  /* CF set on error, AX set to 0 if removable, 1 if fixed */
  if (r.x.cflag != 0) return(-1);
  if (r.x.ax == 0) return(1);
  return(0);
}
 
 
/* returns total disk space of drive drv (in MiB, max 2048), or -1 if drive invalid */
static int disksize(int drv) {
  long res;
  union REGS r;
  r.h.ah = 0x36; /* DOS 2+ get free disk space */
  r.h.dl = drv;
  int86(0x21, &r, &r);
  if (r.x.ax == 0xffffu) return(-1); /* AX set to FFFFh if drive invalid */
  res = r.x.ax;
  res *= r.x.bx;
  res *= r.x.cx;
  return(res >> 20); /* return result after converting bytes to MiB */
}
 
 
/* returns 0 if disk is empty, non-zero otherwise */
static int diskempty(int drv) {
  unsigned int rc;
  int res;
  char buff[8];
  struct find_t fileinfo;
  sprintf(buff, "%c:\\*.*", 'A' + drv - 1);
  rc = _dos_findfirst(buff, _A_NORMAL | _A_SUBDIR | _A_HIDDEN | _A_SYSTEM, &fileinfo);
  if (rc == 0) {
    res = 1; /* call successfull means disk is not empty */
  } else {
    res = 0;
  }
  /* _dos_findclose(&fileinfo); */ /* apparently required only on OS/2 */
  return(res);
}
 
 
static int preparedrive(void) {
  int driveremovable;
  int selecteddrive = 3; /* hardcoded to 'C:' for now */
  int cselecteddrive;
  int ds;
  char buff[128];
  cselecteddrive = 'A' + selecteddrive - 1;
  for (;;) {
    newscreen();
    driveremovable = isdriveremovable(selecteddrive);
    if (driveremovable < 0) {
      char *list[] = { "Create an automatic partition", "Run the FDISK partitioning tool", "Quit to DOS", NULL};
      list[0] = kittengets(0, 3, list[0]);
      list[1] = kittengets(0, 4, list[1]);
      list[2] = kittengets(0, 2, list[2]);
      sprintf(buff, kittengets(3, 0, "ERROR: Drive %c: could not be found. Perhaps your hard disk needs to be"), cselecteddrive);
      video_putstring(4, 2, COLOR_BODY[mono], buff);
      putstringnls(5, 2, COLOR_BODY[mono], 3, 1, "       partitioned first. Please create at least one partition on your");
      putstringnls(6, 2, COLOR_BODY[mono], 3, 2, "       hard disk, so Svarog386 can be installed on it. Note, that");
      sprintf(buff, kittengets(3, 3, "       Svarog386 requires at least %d MiB of available disk space."), 16);
      video_putstring(7, 2, COLOR_BODY[mono], buff);
      putstringnls(9, 2, COLOR_BODY[mono], 3, 4, "You can use the FDISK partitioning tool for creating the required partition");
      putstringnls(10, 2, COLOR_BODY[mono], 3, 5, "manually, or you can let the installer partitioning your disk");
      putstringnls(11, 2, COLOR_BODY[mono], 3, 6, "automatically. You can also abort the installation to use any other");
      putstringnls(12, 2, COLOR_BODY[mono], 3, 7, "partition manager of your choice.");
      switch (menuselect(14, -1, 5, list)) {
        case 0:
          system("FDISK /AUTO");
          break;
        case 1:
          video_clear(0x0700, 0);
          video_movecursor(0, 0);
          system("FDISK");
          break;
        case 2:
          return(-1);
      }
      newscreen();
      putstringnls(11, 10, COLOR_BODY[mono], 3, 8, "Your computer will reboot now.");
      putstringnls(12, 10, COLOR_BODY[mono], 0, 5, "Press any key...");
      input_getkey();
      reboot();
      return(-1);
    } else if (driveremovable > 0) {
      sprintf(buff, kittengets(3, 9, "ERROR: Drive %c: is a removable device. Installation aborted."), cselecteddrive);
      video_putstring(9, 2, COLOR_BODY[mono], buff);
      putstringnls(11, 2, COLOR_BODY[mono], 0, 5, "Press any key...");
      return(-1);
    }
    /* if not formatted, propose to format it right away (try to create a directory) */
    sprintf(buff, "%c:\\SVWRTEST.123", cselecteddrive);
    if (mkdir(buff) != 0) {
      char *list[] = { "Proceed with formatting", "Quit to DOS", NULL};
      list[0] = kittengets(0, 6, list[0]);
      list[1] = kittengets(0, 2, list[1]);
      sprintf(buff, kittengets(3, 10, "ERROR: Drive %c: seems to be unformated."), cselecteddrive);
      video_putstring(7, 2, COLOR_BODY[mono], buff);
      putstringnls(8, 2, COLOR_BODY[mono], 3, 11, "       Do you wish to format it?");
      if (menuselect(12, -1, 4, list) != 0) return(-1);
      video_clear(0x0700, 0);
      video_movecursor(0, 0);
      sprintf(buff, "FORMAT %c: /Q /U /Z:seriously /V:SVAROG386", cselecteddrive);
      system(buff);
      continue;
    }
    sprintf(buff, "%c:\\SVWRTEST.123", cselecteddrive);
    rmdir(buff);
    /* check total disk space */
    ds = disksize(selecteddrive);
    if (ds < 16) {
      sprintf(buff, kittengets(3, 12, "ERROR: Drive %c: is not big enough!"), cselecteddrive);
      video_putstring(9, 2, COLOR_BODY[mono], buff);
      sprintf(buff, kittengets(3, 13, "      Svarog386 requires a disk of at least %d MiB."), 16);
      video_putstring(10, 2, COLOR_BODY[mono], buff);
      putstringnls(12, 2, COLOR_BODY[mono], 0, 5, "Press any key...");
      input_getkey();
      return(-1);
    }
    /* is the disk empty? */
    if (diskempty(selecteddrive) != 0) {
      char *list[] = { "Proceed with formatting", "Quit to DOS", NULL};
      list[0] = kittengets(0, 6, list[0]);
      list[1] = kittengets(0, 2, list[1]);
      sprintf(buff, kittengets(3, 14, "ERROR: Drive %c: is not empty. Svarog386 must be installed on an empty disk."), cselecteddrive);
      video_putstring(7, 2, COLOR_BODY[mono], buff);
      putstringnls(8, 2, COLOR_BODY[mono], 3, 15, "       You can format the disk now, to make it empty. Note however, that");
      putstringnls(9, 2, COLOR_BODY[mono], 3, 16, "       this will ERASE ALL CURRENT DATA on your disk.");
      if (menuselect(12, -1, 4, list) != 0) return(-1);
      video_clear(0x0700, 0);
      video_movecursor(0, 0);
      sprintf(buff, "FORMAT %c: /Q /U /Z:seriously /V:SVAROG386", cselecteddrive);
      system(buff);
      continue;
    } else {
      /* final confirmation */
      char *list[] = { "Install Svarog386", "Quit to DOS", NULL};
      list[0] = kittengets(0, 1, list[0]);
      list[1] = kittengets(0, 2, list[1]);
      sprintf(buff, kittengets(3, 17, "The installation of Svarog386 to %c: is about to begin."), cselecteddrive);
      video_putstring(7, 2, COLOR_BODY[mono], buff);
      if (menuselect(10, -1, 4, list) != 0) return(-1);
      sprintf(buff, "SYS A: %c:", cselecteddrive);
      system(buff);
      sprintf(buff, "%c:\\TEMP", cselecteddrive);
      mkdir(buff);
      return(cselecteddrive);
    }
  }
}
 
 
static void bootfilesgen(int targetdrv, char *lang) {
  char buff[128];
  FILE *fd;
  /*** AUTOEXEC.BAT ***/
  sprintf(buff, "%c:\\AUTOEXEC.BAT", targetdrv);
  fd = fopen(buff, "wb");
  if (fd == NULL) return;
  fprintf(fd, "@ECHO OFF\r\n");
  fprintf(fd, "SET TEMP=%c:\\TEMP\r\n", targetdrv);
  fprintf(fd, "SET DOSDIR=%c:\\SYSTEM\\SVAROG.386\r\n", targetdrv);
  fprintf(fd, "SET NLSPATH=%%DOSDIR%%\\NLS\r\n", targetdrv);
  fprintf(fd, "SET LANG=%s\r\n", lang);
  fprintf(fd, "SET DIRCMD=/OGNE/P\r\n");
  fprintf(fd, "SET FDNPKG.CFG=%c:\\SYSTEM\\CFG\\FDNPKG.CFG\r\n");
  fprintf(fd, "SET WATTCP.CFG=%c:\\SYSTEM\\CFG\\WATTCP.CFG\r\n");
  fprintf(fd, "PATH %%DOSDIR%%\\BIN;%%DOSDIR%%\\LINKS\r\n");
  fprintf(fd, "PROMPT $P$G\r\n");
  fprintf(fd, "ALIAS REBOOT=FDAPM COLDBOOT\r\n");
  fprintf(fd, "ALIAS HALT=FDAPM POWEROFF\r\n");
  fprintf(fd, "\r\n\r\n");
  fprintf(fd, "MODE CON CP PREPARE=((991) %c:\\SYSTEM\\SVAROG.386\\CPI\\EGA10.CPX)\r\n");
  fprintf(fd, "MODE CON CP SELECT=991\r\n");
  fprintf(fd, "\r\n");
  fprintf(fd, "SHSUCDX /d:FDCD0001\r\n");
  fclose(fd);
  /*** CONFIG.SYS ***/
  sprintf(buff, "%c:\\CONFIG.SYS", targetdrv);
  fd = fopen(buff, "wb");
  if (fd == NULL) return;
  fprintf(fd, "DOS=UMB,HIGH\r\n");
  fprintf(fd, "FILES=50\r\n");
  fprintf(fd, "DEVICE=%c:\\SYSTEM\\SVAROG.386\\BIN\\HIMEM.EXE\r\n", targetdrv);
  fprintf(fd, "SHELLHIGH=%c:\\SYSTEM\\SVAROG.386\\BIN\\COMMAND.COM /E:512", targetdrv);
  fprintf(fd, "REM COUNTRY=001,437,%c:\\SYSTEM\\SVAROG.386\r\n", targetdrv);
  fprintf(fd, "DEVICE=%c:\\SYSTEM\\SVAROG.386\\BIN\\CDROM.SYS /D:FDCD0001\r\n", targetdrv);
  fclose(fd);
}
 
 
static void installpackages(int targetdrv) {
  char *pkglist[] = {
    "APPEND",
    "ASSIGN",
    "ATTRIB",
    "CHKDSK",
    "CHOICE",
    "COMMAND",
    "COMP",
    "CPIDOS",
    "CTMOUSE",
    "DEBUG",
    "DEFRAG",
    "DELTREE",
    "DEVLOAD",
    "DISKCOMP",
    "DISKCOPY",
    "DISPLAY",
    "DOSFSCK",
    "EDIT",
    "EDLIN",
    "EXE2BIN",
    "FC",
    "FDAPM",
    "FDISK",
    "FDNPKG",
    "FIND",
    "FORMAT",
    "HELP",
    "HIMEMX",
    "KERNEL",
    "KEYB",
    "LABEL",
    "LBACACHE",
    "MEM",
    "MIRROR",
    "MODE",
    "MORE",
    "MOVE",
    "NANSI",
    "NLSFUNC",
    "PRINT",
    "RDISK",
    "RECOVER",
    "REPLACE",
    "SHARE",
    "SHSUCDX",
    "SORT",
    "SWSUBST",
    "TREE",
    "UNDELETE",
    "XCOPY",
    NULL
  };
  int i, pkglistlen;
  char buff[64];
  newscreen();
  /* count how long the pkg list is */
  for (pkglistlen = 0; pkglist[pkglistlen] != NULL; pkglistlen++);
  /* set DOSDIR and friends */
  snprintf(buff, sizeof(buff), "%c:\\SYSTEM\\SVAROG.386", targetdrv);
  setenv("DOSDIR", buff, 1);
  snprintf(buff, sizeof(buff), "%c:\\TEMP", targetdrv);
  setenv("TEMP", buff, 1);
  /* install packages */
  for (i = 0; pkglist[i] != NULL; i++) {
    char buff[128];
    snprintf(buff, sizeof(buff), kittengets(4, 0, "Installing package %d/%d: %s"), i+1, pkglistlen, pkglist[i]);
    strcat(buff, "       ");
    video_putstring(10, 2, COLOR_BODY[mono], buff);
    sprintf(buff, "FDINST INSTALL X:\\BASE\\%s.ZIP > NUL", pkglist[i]);
    system(buff);
  }
}
 
 
static void finalreboot(void) {
  newscreen();
  putstringnls(10, 2, COLOR_BODY[mono], 5, 0, "Svarog386 installation is over. Your computer will reboot now.");
  putstringnls(11, 2, COLOR_BODY[mono], 5, 1, "Please remove the installation disk from your drive.");
  putstringnls(13, 2, COLOR_BODY[mono], 0, 5, "Press any key...");
  input_getkey();
  reboot();
}
 
 
static void loadcp(char *lang) {
  int cp, egafile;
  char buff[64];
  cp = getnlscp(lang, &egafile);
  if (cp == 437) return;
  video_movecursor(1, 0);
  if (egafile == 1) {
    sprintf(buff, "MODE CON CP PREP=((%d) A:\\EGA.CPX)", cp);
  } else {
    sprintf(buff, "MODE CON CP PREP=((%d) A:\\EGA%d.CPX)", cp, egafile);
  }
  system(buff);
  sprintf(buff, "MODE CON CP SEL=%d", cp);
  system(buff);
  /* below I re-init the video controller - apparently this is required if
   * I want the new glyph symbols to be actually applied */
  {
  union REGS r;
  r.h.ah = 0x0F; /* get current video mode */
  int86(0x10, &r, &r); /* r.h.al contains the current video mode now */
  r.h.ah = 0; /* set video mode (to whatever is set in AL) */
  int86(0x10, &r, &r);
  }
}
 
 
int main(void) {
  char lang[4];
  int targetdrv;
 
  /* init screen and detect mono status */
  mono = video_init();
 
  for (;;) { /* fake loop, it's here just to break out easily */
    if (selectlang(lang) < 0) break; /* welcome to svarog, select your language */
    setenv("LANG", lang, 1);
    loadcp(lang);
    kittenopen("INSTALL"); /* NLS support */
    /*selectkeyb();*/ /* what keyb layout should we use? */
    if (welcomescreen() != 0) break; /* what svarog386 is, ask whether to run live dos or install */
    targetdrv = preparedrive(); /* what drive should we install to? check avail. space */
    if (targetdrv < 0) break;
    /*askaboutsources();*/ /* IF sources are available, ask if installing with them */
    installpackages(targetdrv);   /* install packages */
    bootfilesgen(targetdrv, lang); /* generate simple boot files */
    /*localcfg();*/ /* show local params (currency, etc), and propose to change them (based on localcfg) */
    /*netcfg();*/ /* basic networking config */
    /* TODO compute a customized FDNPKG file that looks either to local CD or net */
    finalreboot(); /* remove the CD and reboot */
    break;
  }
  kittenclose(); /* close NLS support */
  video_clear(0x0700, 0);
  video_movecursor(0, 0);
  return(0);
}
 

Rev 42	Rev 46
1	`/*`	1	`/*`
2	`* SVAROG386 INSTALL`	2	`* SVAROG386 INSTALL`
3	`* COPYRIGHT (C) 2016 MATEUSZ VISTE`	3	`* COPYRIGHT (C) 2016 MATEUSZ VISTE`
4	`*`	4	`*`
5	`* http://svarog386.sf.net`	5	`* http://svarog386.sf.net`
6	`*/`	6	`*/`
7		7
8	`#include <dos.h>`	8	`#include <dos.h>`
9	`#include <direct.h> /* mkdir() */`	9	`#include <direct.h> /* mkdir() */`
10	`#include <stdio.h> /* printf() and friends */`	10	`#include <stdio.h> /* printf() and friends */`
11	`#include <stdlib.h> /* system() */`	11	`#include <stdlib.h> /* system() */`
12	`#include <string.h> /* memcpy() */`	12	`#include <string.h> /* memcpy() */`
13	`#include <unistd.h>`	13	`#include <unistd.h>`
14		14
15	`#include "kitten\kitten.h"`	15	`#include "kitten\kitten.h"`
16		16
17	`#include "input.h"`	17	`#include "input.h"`
18	`#include "video.h"`	18	`#include "video.h"`
19		19
20		20
21	`/* color scheme (color, mono) */`	21	`/* color scheme (color, mono) */`
22	`static unsigned short COLOR_TITLEBAR[2] = {0x7000,0x7000};`	22	`static unsigned short COLOR_TITLEBAR[2] = {0x7000,0x7000};`
23	`static unsigned short COLOR_BODY[2] = {0x1700,0x0700};`	23	`static unsigned short COLOR_BODY[2] = {0x1700,0x0700};`
24	`static unsigned short COLOR_SELECT[2] = {0x7000,0x7000};`	24	`static unsigned short COLOR_SELECT[2] = {0x7000,0x7000};`
25	`static unsigned short COLOR_SELECTCUR[2] = {0x1F00,0x0700};`	25	`static unsigned short COLOR_SELECTCUR[2] = {0x1F00,0x0700};`
26		26
27	`/* mono flag */`	27	`/* mono flag */`
28	`static int mono = 0;`	28	`static int mono = 0;`
29		29
30		30
31	`/* reboot the computer */`	31	`/* reboot the computer */`
32	`static void reboot(void) {`	32	`static void reboot(void) {`
33	`void ((far bootroutine)()) = (void (far )()) 0xFFFF0000L;`	33	`void ((far bootroutine)()) = (void (far )()) 0xFFFF0000L;`
34	`int far rstaddr = (int far )0x00400072L; /* BIOS boot flag is at 0040:0072 */`	34	`int far rstaddr = (int far )0x00400072L; /* BIOS boot flag is at 0040:0072 */`
35	`rstaddr = 0x1234; / 0x1234 = warm boot, 0 = cold boot */`	35	`rstaddr = 0x1234; / 0x1234 = warm boot, 0 = cold boot */`
36	`(bootroutine)(); / jump to the BIOS reboot routine at FFFF:0000 */`	36	`(bootroutine)(); / jump to the BIOS reboot routine at FFFF:0000 */`
37	`}`	37	`}`
38		38
39		39
40	`/* an NLS wrapper around video_putstring() */`	40	`/* an NLS wrapper around video_putstring() */`
41	`static void putstringnls(int y, int x, unsigned short attr, int nlsmaj, int nlsmin, char *s) {`	41	`static void putstringnls(int y, int x, unsigned short attr, int nlsmaj, int nlsmin, char *s) {`
42	`s = kittengets(nlsmaj, nlsmin, s);`	42	`s = kittengets(nlsmaj, nlsmin, s);`
43	`video_putstring(y, x, attr, s);`	43	`video_putstring(y, x, attr, s);`
44	`}`	44	`}`
45		45
46		46
47	`#define LDEC(x,y) (((unsigned short)x << 8) \| (unsigned short)y)`	47	`#define LDEC(x,y) (((unsigned short)x << 8) \| (unsigned short)y)`
48	`/* provides codepage and country files required by lang */`	48	`/* provides codepage and country files required by lang */`
49	`static int getnlscp(char lang, int egafile) {`	49	`static int getnlscp(char lang, int egafile) {`
50	`unsigned short l;`	50	`unsigned short l;`
51	`l = lang[0];`	51	`l = lang[0];`
52	`l <<= 8;`	52	`l <<= 8;`
53	`l \|= lang[1];`	53	`l \|= lang[1];`
54	`switch (l) {`	54	`switch (l) {`
55	`case LDEC('E','N'):`	55	`case LDEC('E','N'):`
56	`*egafile = 0;`	56	`*egafile = 0;`
57	`return(437);`	57	`return(437);`
58	`case LDEC('P','L'):`	58	`case LDEC('P','L'):`
59	`*egafile = 10;`	59	`*egafile = 10;`
60	`return(991);`	60	`return(991);`
61	`}`	61	`}`
62	`*egafile = 0;`	62	`*egafile = 0;`
63	`return(437);`	63	`return(437);`
64	`}`	64	`}`
65		65
66		66
67	`static int menuselect(int ypos, int xpos, int height, char **list) {`	67	`static int menuselect(int ypos, int xpos, int height, char **list) {`
68	`int i, offset = 0, res = 0, count, width = 0;`	68	`int i, offset = 0, res = 0, count, width = 0;`
69	`/* count how many languages there is */`	69	`/* count how many languages there is */`
70	`for (count = 0; list[count] != NULL; count++) {`	70	`for (count = 0; list[count] != NULL; count++) {`
71	`int len = strlen(list[count]);`	71	`int len = strlen(list[count]);`
72	`if (len > width) width = len;`	72	`if (len > width) width = len;`
73	`}`	73	`}`
74		74
75	`/* if xpos negative, means 'center out' */`	75	`/* if xpos negative, means 'center out' */`
76	`if (xpos < 0) xpos = 39 - (width >> 1);`	76	`if (xpos < 0) xpos = 39 - (width >> 1);`
77		77
78	`video_putchar(ypos, xpos+width+2, COLOR_SELECT[mono], 0xBF); /* \ */`	78	`video_putchar(ypos, xpos+width+2, COLOR_SELECT[mono], 0xBF); /* \ */`
79	`video_putchar(ypos, xpos-1, COLOR_SELECT[mono], 0xDA); /* / */`	79	`video_putchar(ypos, xpos-1, COLOR_SELECT[mono], 0xDA); /* / */`
80	`video_putchar(ypos+height-1, xpos-1, COLOR_SELECT[mono], 0xC0); /* \ */`	80	`video_putchar(ypos+height-1, xpos-1, COLOR_SELECT[mono], 0xC0); /* \ */`
81	`video_putchar(ypos+height-1, xpos+width+2, COLOR_SELECT[mono], 0xD9);/* / */`	81	`video_putchar(ypos+height-1, xpos+width+2, COLOR_SELECT[mono], 0xD9);/* / */`
82	`video_putcharmulti(ypos, xpos, COLOR_SELECT[mono], 0xC4, width + 2, 1);`	82	`video_putcharmulti(ypos, xpos, COLOR_SELECT[mono], 0xC4, width + 2, 1);`
83	`video_putcharmulti(ypos+height-1, xpos, COLOR_SELECT[mono], 0xC4, width + 2, 1);`	83	`video_putcharmulti(ypos+height-1, xpos, COLOR_SELECT[mono], 0xC4, width + 2, 1);`
84	`video_putcharmulti(ypos+1, xpos-1, COLOR_SELECT[mono], 0xB3, height - 2, 80);`	84	`video_putcharmulti(ypos+1, xpos-1, COLOR_SELECT[mono], 0xB3, height - 2, 80);`
85	`video_putcharmulti(ypos+1, xpos+width+2, COLOR_SELECT[mono], 0xB3, height - 2, 80);`	85	`video_putcharmulti(ypos+1, xpos+width+2, COLOR_SELECT[mono], 0xB3, height - 2, 80);`
86		86
87	`for (;;) {`	87	`for (;;) {`
88	`int key;`	88	`int key;`
89	`/* list of selectable items */`	89	`/* list of selectable items */`
90	`for (i = 0; i < height - 2; i++) {`	90	`for (i = 0; i < height - 2; i++) {`
91	`if (i + offset == res) {`	91	`if (i + offset == res) {`
92	`video_putchar(ypos + 1 + i, xpos, COLOR_SELECTCUR[mono], 16);`	92	`video_putchar(ypos + 1 + i, xpos, COLOR_SELECTCUR[mono], 16);`
93	`video_putchar(ypos + 1 + i, xpos+width+1, COLOR_SELECTCUR[mono], 17);`	93	`video_putchar(ypos + 1 + i, xpos+width+1, COLOR_SELECTCUR[mono], 17);`
94	`video_movecursor(ypos + 1 + i, xpos);`	94	`video_movecursor(ypos + 1 + i, xpos);`
95	`video_putstringfix(ypos + 1 + i, xpos+1, COLOR_SELECTCUR[mono], list[i + offset], width);`	95	`video_putstringfix(ypos + 1 + i, xpos+1, COLOR_SELECTCUR[mono], list[i + offset], width);`
96	`} else if (i + offset < count) {`	96	`} else if (i + offset < count) {`
97	`video_putchar(ypos + 1 + i, xpos, COLOR_SELECT[mono], ' ');`	97	`video_putchar(ypos + 1 + i, xpos, COLOR_SELECT[mono], ' ');`
98	`video_putchar(ypos + 1 + i, xpos+width+1, COLOR_SELECT[mono], ' ');`	98	`video_putchar(ypos + 1 + i, xpos+width+1, COLOR_SELECT[mono], ' ');`
99	`video_putstringfix(ypos + 1 + i, xpos+1, COLOR_SELECT[mono], list[i + offset], width);`	99	`video_putstringfix(ypos + 1 + i, xpos+1, COLOR_SELECT[mono], list[i + offset], width);`
100	`} else {`	100	`} else {`
101	`video_putcharmulti(ypos + 1 + i, xpos, COLOR_SELECT[mono], ' ', width+2, 1);`	101	`video_putcharmulti(ypos + 1 + i, xpos, COLOR_SELECT[mono], ' ', width+2, 1);`
102	`}`	102	`}`
103	`}`	103	`}`
104	`key = input_getkey();`	104	`key = input_getkey();`
105	`if (key == 0x0D) { /* ENTER */`	105	`if (key == 0x0D) { /* ENTER */`
106	`return(res);`	106	`return(res);`
107	`} else if (key == 0x148) { /* up */`	107	`} else if (key == 0x148) { /* up */`
108	`if (res > 0) {`	108	`if (res > 0) {`
109	`res--;`	109	`res--;`
110	`if (res < offset) offset = res;`	110	`if (res < offset) offset = res;`
111	`}`	111	`}`
112	`} else if (key == 0x150) { /* down */`	112	`} else if (key == 0x150) { /* down */`
113	`if (res+1 < count) {`	113	`if (res+1 < count) {`
114	`res++;`	114	`res++;`
115	`if (res > offset + height - 3) offset = res - (height - 3);`	115	`if (res > offset + height - 3) offset = res - (height - 3);`
116	`}`	116	`}`
117	`} else if (key == 0x147) { /* home */`	117	`} else if (key == 0x147) { /* home */`
118	`res = 0;`	118	`res = 0;`
119	`offset = 0;`	119	`offset = 0;`
120	`} else if (key == 0x14F) { /* end */`	120	`} else if (key == 0x14F) { /* end */`
121	`res = count - 1;`	121	`res = count - 1;`
122	`if (res > offset + height - 3) offset = res - (height - 3);`	122	`if (res > offset + height - 3) offset = res - (height - 3);`
123	`} else if (key == 0x1B) { /* ESC */`	123	`} else if (key == 0x1B) { /* ESC */`
124	`return(-1);`	124	`return(-1);`
125	`} else {`	125	`} else {`
126	`char buf[8];`	126	`char buf[8];`
127	`sprintf(buf, "0x%02X ", key);`	127	`sprintf(buf, "0x%02X ", key);`
128	`video_putstring(1, 0, COLOR_BODY[mono], buf);`	128	`video_putstring(1, 0, COLOR_BODY[mono], buf);`
129	`}`	129	`}`
130	`}`	130	`}`
131	`}`	131	`}`
132		132
133	`static void newscreen(void) {`	133	`static void newscreen(void) {`
134	`int x;`	134	`int x;`
135	`char *title;`	135	`char *title;`
136	`title = kittengets(0, 0, "SVAROG386 INSTALLATION");`	136	`title = kittengets(0, 0, "SVAROG386 INSTALLATION");`
137	`for (x = 0; x < 80; x++) video_putchar(0, x, COLOR_TITLEBAR[mono], ' ');`	137	`for (x = 0; x < 80; x++) video_putchar(0, x, COLOR_TITLEBAR[mono], ' ');`
138	`video_putstring(0, 40 - (strlen(title) >> 1), COLOR_TITLEBAR[mono], title);`	138	`video_putstring(0, 40 - (strlen(title) >> 1), COLOR_TITLEBAR[mono], title);`
139	`video_clear(COLOR_BODY[mono], 80);`	139	`video_clear(COLOR_BODY[mono], 80);`
140	`video_movecursor(25,0);`	140	`video_movecursor(25,0);`
141	`}`	141	`}`
142		142
143	`static int selectlang(char *lang) {`	143	`static int selectlang(char *lang) {`
144	`int choice;`	144	`int choice;`
145	`int x;`	145	`int x;`
146	`char *msg;`	146	`char *msg;`
147	`char *code;`	147	`char *code;`
148	`char *langlist[] = {`	148	`char *langlist[] = {`
149	`"English\0EN",`	149	`"English\0EN",`
150	`"French\0FR",`	150	`"French\0FR",`
151	`"German\0DE",`	151	`"German\0DE",`
152	`"Italian\0IT",`	152	`"Italian\0IT",`
153	`"Polish\0PL",`	153	`"Polish\0PL",`
154	`"Russian\0RU",`	154	`"Russian\0RU",`
155	`"Slovenian\0SL",`	155	`"Slovenian\0SL",`
156	`"Spanish\0ES",`	156	`"Spanish\0ES",`
157	`"Turkish\0TR",`	157	`"Turkish\0TR",`
158	`NULL`	158	`NULL`
159	`};`	159	`};`
160		160
161	`newscreen();`	161	`newscreen();`
162	`msg = kittengets(1, 0, "Welcome to Svarog386");`	162	`msg = kittengets(1, 0, "Welcome to Svarog386");`
163	`x = 40 - (strlen(msg) >> 1);`	163	`x = 40 - (strlen(msg) >> 1);`
164	`video_putstring(4, x, COLOR_BODY[mono], msg);`	164	`video_putstring(4, x, COLOR_BODY[mono], msg);`
165	`video_putcharmulti(5, x, COLOR_BODY[mono], '=', strlen(msg), 1);`	165	`video_putcharmulti(5, x, COLOR_BODY[mono], '=', strlen(msg), 1);`
166	`putstringnls(8, 2, COLOR_BODY[mono], 1, 1, "Please select your language from the list below:");`	166	`putstringnls(8, 2, COLOR_BODY[mono], 1, 1, "Please select your language from the list below:");`
167	`choice = menuselect(10, -1, 12, langlist);`	167	`choice = menuselect(10, -1, 12, langlist);`
168	`if (choice < 0) return(-1);`	168	`if (choice < 0) return(-1);`
169	`/* write short language code into lang */`	169	`/* write short language code into lang */`
170	`for (code = langlist[choice]; *code != 0; code++);`	170	`for (code = langlist[choice]; *code != 0; code++);`
171	`memcpy(lang, code + 1, 2);`	171	`memcpy(lang, code + 1, 2);`
172	`lang[2] = 0;`	172	`lang[2] = 0;`
173	`return(0);`	173	`return(0);`
174	`}`	174	`}`
175		175
176		176
177	`/* returns 0 if installation must proceed, non-zero otherwise */`	177	`/* returns 0 if installation must proceed, non-zero otherwise */`
178	`static int welcomescreen(void) {`	178	`static int welcomescreen(void) {`
179	`char *choice[] = {"Install Svarog386 to disk", "Quit to DOS", NULL};`	179	`char *choice[] = {"Install Svarog386 to disk", "Quit to DOS", NULL};`
180	`choice[0] = kittengets(0, 1, choice[0]);`	180	`choice[0] = kittengets(0, 1, choice[0]);`
181	`choice[1] = kittengets(0, 2, choice[1]);`	181	`choice[1] = kittengets(0, 2, choice[1]);`
182	`newscreen();`	182	`newscreen();`
183	`putstringnls(4, 1, COLOR_BODY[mono], 2, 0, "You are about to install Svarog386: a free, MSDOS-compatible operating system");`	183	`putstringnls(4, 1, COLOR_BODY[mono], 2, 0, "You are about to install Svarog386: a free, MSDOS-compatible operating system");`
184	`putstringnls(5, 1, COLOR_BODY[mono], 2, 1, "based on the FreeDOS kernel. Svarog386 targets 386+ computers and comes with a");`	184	`putstringnls(5, 1, COLOR_BODY[mono], 2, 1, "based on the FreeDOS kernel. Svarog386 targets 386+ computers and comes with a");`
185	`putstringnls(6, 1, COLOR_BODY[mono], 2, 2, "variety of third-party applications.");`	185	`putstringnls(6, 1, COLOR_BODY[mono], 2, 2, "variety of third-party applications.");`
186	`putstringnls(8, 1, COLOR_BODY[mono], 2, 3, "WARNING: If your PC has another operating system installed, this other system");`	186	`putstringnls(8, 1, COLOR_BODY[mono], 2, 3, "WARNING: If your PC has another operating system installed, this other system");`
187	`putstringnls(9, 1, COLOR_BODY[mono], 2, 4, " might be unable to boot once Svarog386 is installed.");`	187	`putstringnls(9, 1, COLOR_BODY[mono], 2, 4, " might be unable to boot once Svarog386 is installed.");`
188	`return(menuselect(13, -1, 4, choice));`	188	`return(menuselect(13, -1, 4, choice));`
189	`}`	189	`}`
190		190
191		191
192	`/* returns 1 if drive is removable, 0 if not, -1 on error */`	192	`/* returns 1 if drive is removable, 0 if not, -1 on error */`
193	`static int isdriveremovable(int drv) {`	193	`static int isdriveremovable(int drv) {`
194	`union REGS r;`	194	`union REGS r;`
195	`r.x.ax = 0x4408;`	195	`r.x.ax = 0x4408;`
196	`r.h.bl = drv;`	196	`r.h.bl = drv;`
197	`int86(0x21, &r, &r);`	197	`int86(0x21, &r, &r);`
198	`/* CF set on error, AX set to 0 if removable, 1 if fixed */`	198	`/* CF set on error, AX set to 0 if removable, 1 if fixed */`
199	`if (r.x.cflag != 0) return(-1);`	199	`if (r.x.cflag != 0) return(-1);`
200	`if (r.x.ax == 0) return(1);`	200	`if (r.x.ax == 0) return(1);`
201	`return(0);`	201	`return(0);`
202	`}`	202	`}`
203		203
204		204
205	`/* returns total disk space of drive drv (in MiB, max 2048), or -1 if drive invalid */`	205	`/* returns total disk space of drive drv (in MiB, max 2048), or -1 if drive invalid */`
206	`static int disksize(int drv) {`	206	`static int disksize(int drv) {`
207	`long res;`	207	`long res;`
208	`union REGS r;`	208	`union REGS r;`
209	`r.h.ah = 0x36; /* DOS 2+ get free disk space */`	209	`r.h.ah = 0x36; /* DOS 2+ get free disk space */`
210	`r.h.dl = drv;`	210	`r.h.dl = drv;`
211	`int86(0x21, &r, &r);`	211	`int86(0x21, &r, &r);`
212	`if (r.x.ax == 0xffffu) return(-1); /* AX set to FFFFh if drive invalid */`	212	`if (r.x.ax == 0xffffu) return(-1); /* AX set to FFFFh if drive invalid */`
213	`res = r.x.ax;`	213	`res = r.x.ax;`
214	`res *= r.x.bx;`	214	`res *= r.x.bx;`
215	`res *= r.x.cx;`	215	`res *= r.x.cx;`
216	`return(res >> 20); /* return result after converting bytes to MiB */`	216	`return(res >> 20); /* return result after converting bytes to MiB */`
217	`}`	217	`}`
218		218
219		219
220	`/* returns 0 if disk is empty, non-zero otherwise */`	220	`/* returns 0 if disk is empty, non-zero otherwise */`
221	`static int diskempty(int drv) {`	221	`static int diskempty(int drv) {`
222	`unsigned int rc;`	222	`unsigned int rc;`
223	`int res;`	223	`int res;`
224	`char buff[8];`	224	`char buff[8];`
225	`struct find_t fileinfo;`	225	`struct find_t fileinfo;`
226	`sprintf(buff, "%c:\\.", 'A' + drv - 1);`	226	`sprintf(buff, "%c:\\.", 'A' + drv - 1);`
227	`rc = _dos_findfirst(buff, _A_NORMAL \| _A_SUBDIR \| _A_HIDDEN \| _A_SYSTEM, &fileinfo);`	227	`rc = _dos_findfirst(buff, _A_NORMAL \| _A_SUBDIR \| _A_HIDDEN \| _A_SYSTEM, &fileinfo);`
228	`if (rc == 0) {`	228	`if (rc == 0) {`
229	`res = 1; /* call successfull means disk is not empty */`	229	`res = 1; /* call successfull means disk is not empty */`
230	`} else {`	230	`} else {`
231	`res = 0;`	231	`res = 0;`
232	`}`	232	`}`
233	`/* _dos_findclose(&fileinfo); / / apparently required only on OS/2 */`	233	`/* _dos_findclose(&fileinfo); / / apparently required only on OS/2 */`
234	`return(res);`	234	`return(res);`
235	`}`	235	`}`
236		236
237		237
238	`static int preparedrive(void) {`	238	`static int preparedrive(void) {`
239	`int driveremovable;`	239	`int driveremovable;`
240	`int selecteddrive = 3; /* hardcoded to 'C:' for now */`	240	`int selecteddrive = 3; /* hardcoded to 'C:' for now */`
241	`int cselecteddrive;`	241	`int cselecteddrive;`
242	`int ds;`	242	`int ds;`
243	`char buff[128];`	243	`char buff[128];`
244	`cselecteddrive = 'A' + selecteddrive - 1;`	244	`cselecteddrive = 'A' + selecteddrive - 1;`
245	`for (;;) {`	245	`for (;;) {`
246	`newscreen();`	246	`newscreen();`
247	`driveremovable = isdriveremovable(selecteddrive);`	247	`driveremovable = isdriveremovable(selecteddrive);`
248	`if (driveremovable < 0) {`	248	`if (driveremovable < 0) {`
249	`char *list[] = { "Create an automatic partition", "Run the FDISK partitioning tool", "Quit to DOS", NULL};`	249	`char *list[] = { "Create an automatic partition", "Run the FDISK partitioning tool", "Quit to DOS", NULL};`
250	`list[0] = kittengets(0, 3, list[0]);`	250	`list[0] = kittengets(0, 3, list[0]);`
251	`list[1] = kittengets(0, 4, list[1]);`	251	`list[1] = kittengets(0, 4, list[1]);`
252	`list[2] = kittengets(0, 2, list[2]);`	252	`list[2] = kittengets(0, 2, list[2]);`
253	`sprintf(buff, kittengets(3, 0, "ERROR: Drive %c: could not be found. Perhaps your hard disk needs to be"), cselecteddrive);`	253	`sprintf(buff, kittengets(3, 0, "ERROR: Drive %c: could not be found. Perhaps your hard disk needs to be"), cselecteddrive);`
254	`video_putstring(4, 2, COLOR_BODY[mono], buff);`	254	`video_putstring(4, 2, COLOR_BODY[mono], buff);`
255	`putstringnls(5, 2, COLOR_BODY[mono], 3, 1, " partitioned first. Please create at least one partition on your");`	255	`putstringnls(5, 2, COLOR_BODY[mono], 3, 1, " partitioned first. Please create at least one partition on your");`
256	`putstringnls(6, 2, COLOR_BODY[mono], 3, 2, " hard disk, so Svarog386 can be installed on it. Note, that");`	256	`putstringnls(6, 2, COLOR_BODY[mono], 3, 2, " hard disk, so Svarog386 can be installed on it. Note, that");`
257	`sprintf(buff, kittengets(3, 3, " Svarog386 requires at least %d MiB of available disk space."), 16);`	257	`sprintf(buff, kittengets(3, 3, " Svarog386 requires at least %d MiB of available disk space."), 16);`
258	`video_putstring(7, 2, COLOR_BODY[mono], buff);`	258	`video_putstring(7, 2, COLOR_BODY[mono], buff);`
259	`putstringnls(9, 2, COLOR_BODY[mono], 3, 4, "You can use the FDISK partitioning tool for creating the required partition");`	259	`putstringnls(9, 2, COLOR_BODY[mono], 3, 4, "You can use the FDISK partitioning tool for creating the required partition");`
260	`putstringnls(10, 2, COLOR_BODY[mono], 3, 5, "manually, or you can let the installer partitioning your disk");`	260	`putstringnls(10, 2, COLOR_BODY[mono], 3, 5, "manually, or you can let the installer partitioning your disk");`
261	`putstringnls(11, 2, COLOR_BODY[mono], 3, 6, "automatically. You can also abort the installation to use any other");`	261	`putstringnls(11, 2, COLOR_BODY[mono], 3, 6, "automatically. You can also abort the installation to use any other");`
262	`putstringnls(12, 2, COLOR_BODY[mono], 3, 7, "partition manager of your choice.");`	262	`putstringnls(12, 2, COLOR_BODY[mono], 3, 7, "partition manager of your choice.");`
263	`switch (menuselect(14, -1, 5, list)) {`	263	`switch (menuselect(14, -1, 5, list)) {`
264	`case 0:`	264	`case 0:`
265	`system("FDISK /AUTO");`	265	`system("FDISK /AUTO");`
266	`break;`	266	`break;`
267	`case 1:`	267	`case 1:`
268	`video_clear(0x0700, 0);`	268	`video_clear(0x0700, 0);`
269	`video_movecursor(0, 0);`	269	`video_movecursor(0, 0);`
270	`system("FDISK");`	270	`system("FDISK");`
271	`break;`	271	`break;`
272	`case 2:`	272	`case 2:`
273	`return(-1);`	273	`return(-1);`
274	`}`	274	`}`
275	`newscreen();`	275	`newscreen();`
276	`putstringnls(11, 10, COLOR_BODY[mono], 3, 8, "Your computer will reboot now.");`	276	`putstringnls(11, 10, COLOR_BODY[mono], 3, 8, "Your computer will reboot now.");`
277	`putstringnls(12, 10, COLOR_BODY[mono], 0, 5, "Press any key...");`	277	`putstringnls(12, 10, COLOR_BODY[mono], 0, 5, "Press any key...");`
278	`input_getkey();`	278	`input_getkey();`
279	`reboot();`	279	`reboot();`
280	`return(-1);`	280	`return(-1);`
281	`} else if (driveremovable > 0) {`	281	`} else if (driveremovable > 0) {`
282	`sprintf(buff, kittengets(3, 9, "ERROR: Drive %c: is a removable device. Installation aborted."), cselecteddrive);`	282	`sprintf(buff, kittengets(3, 9, "ERROR: Drive %c: is a removable device. Installation aborted."), cselecteddrive);`
283	`video_putstring(9, 2, COLOR_BODY[mono], buff);`	283	`video_putstring(9, 2, COLOR_BODY[mono], buff);`
284	`putstringnls(11, 2, COLOR_BODY[mono], 0, 5, "Press any key...");`	284	`putstringnls(11, 2, COLOR_BODY[mono], 0, 5, "Press any key...");`
285	`return(-1);`	285	`return(-1);`
286	`}`	286	`}`
287	`/* if not formatted, propose to format it right away (try to create a directory) */`	287	`/* if not formatted, propose to format it right away (try to create a directory) */`
288	`sprintf(buff, "%c:\\SVWRTEST.123", cselecteddrive);`	288	`sprintf(buff, "%c:\\SVWRTEST.123", cselecteddrive);`
289	`if (mkdir(buff) != 0) {`	289	`if (mkdir(buff) != 0) {`
290	`char *list[] = { "Proceed with formatting", "Quit to DOS", NULL};`	290	`char *list[] = { "Proceed with formatting", "Quit to DOS", NULL};`
291	`list[0] = kittengets(0, 6, list[0]);`	291	`list[0] = kittengets(0, 6, list[0]);`
292	`list[1] = kittengets(0, 2, list[1]);`	292	`list[1] = kittengets(0, 2, list[1]);`
293	`sprintf(buff, kittengets(3, 10, "ERROR: Drive %c: seems to be unformated."), cselecteddrive);`	293	`sprintf(buff, kittengets(3, 10, "ERROR: Drive %c: seems to be unformated."), cselecteddrive);`
294	`video_putstring(7, 2, COLOR_BODY[mono], buff);`	294	`video_putstring(7, 2, COLOR_BODY[mono], buff);`
295	`putstringnls(8, 2, COLOR_BODY[mono], 3, 11, " Do you wish to format it?");`	295	`putstringnls(8, 2, COLOR_BODY[mono], 3, 11, " Do you wish to format it?");`
296	`if (menuselect(12, -1, 4, list) != 0) return(-1);`	296	`if (menuselect(12, -1, 4, list) != 0) return(-1);`
297	`video_clear(0x0700, 0);`	297	`video_clear(0x0700, 0);`
298	`video_movecursor(0, 0);`	298	`video_movecursor(0, 0);`
299	`sprintf(buff, "FORMAT %c: /Q /U /Z:seriously /V:SVAROG386", cselecteddrive);`	299	`sprintf(buff, "FORMAT %c: /Q /U /Z:seriously /V:SVAROG386", cselecteddrive);`
300	`system(buff);`	300	`system(buff);`
301	`continue;`	301	`continue;`
302	`}`	302	`}`
303	`sprintf(buff, "%c:\\SVWRTEST.123", cselecteddrive);`	303	`sprintf(buff, "%c:\\SVWRTEST.123", cselecteddrive);`
304	`rmdir(buff);`	304	`rmdir(buff);`
305	`/* check total disk space */`	305	`/* check total disk space */`
306	`ds = disksize(selecteddrive);`	306	`ds = disksize(selecteddrive);`
307	`if (ds < 16) {`	307	`if (ds < 16) {`
308	`sprintf(buff, kittengets(3, 12, "ERROR: Drive %c: is not big enough!"), cselecteddrive);`	308	`sprintf(buff, kittengets(3, 12, "ERROR: Drive %c: is not big enough!"), cselecteddrive);`
309	`video_putstring(9, 2, COLOR_BODY[mono], buff);`	309	`video_putstring(9, 2, COLOR_BODY[mono], buff);`
310	`sprintf(buff, kittengets(3, 13, " Svarog386 requires a disk of at least %d MiB."), 16);`	310	`sprintf(buff, kittengets(3, 13, " Svarog386 requires a disk of at least %d MiB."), 16);`
311	`video_putstring(10, 2, COLOR_BODY[mono], buff);`	311	`video_putstring(10, 2, COLOR_BODY[mono], buff);`
312	`putstringnls(12, 2, COLOR_BODY[mono], 0, 5, "Press any key...");`	312	`putstringnls(12, 2, COLOR_BODY[mono], 0, 5, "Press any key...");`
313	`input_getkey();`	313	`input_getkey();`
314	`return(-1);`	314	`return(-1);`
315	`}`	315	`}`
316	`/* is the disk empty? */`	316	`/* is the disk empty? */`
317	`if (diskempty(selecteddrive) != 0) {`	317	`if (diskempty(selecteddrive) != 0) {`
318	`char *list[] = { "Proceed with formatting", "Quit to DOS", NULL};`	318	`char *list[] = { "Proceed with formatting", "Quit to DOS", NULL};`
319	`list[0] = kittengets(0, 6, list[0]);`	319	`list[0] = kittengets(0, 6, list[0]);`
320	`list[1] = kittengets(0, 2, list[1]);`	320	`list[1] = kittengets(0, 2, list[1]);`
321	`sprintf(buff, kittengets(3, 14, "ERROR: Drive %c: is not empty. Svarog386 must be installed on an empty disk."), cselecteddrive);`	321	`sprintf(buff, kittengets(3, 14, "ERROR: Drive %c: is not empty. Svarog386 must be installed on an empty disk."), cselecteddrive);`
322	`video_putstring(7, 2, COLOR_BODY[mono], buff);`	322	`video_putstring(7, 2, COLOR_BODY[mono], buff);`
323	`putstringnls(8, 2, COLOR_BODY[mono], 3, 15, " You can format the disk now, to make it empty. Note however, that");`	323	`putstringnls(8, 2, COLOR_BODY[mono], 3, 15, " You can format the disk now, to make it empty. Note however, that");`
324	`putstringnls(9, 2, COLOR_BODY[mono], 3, 16, " this will ERASE ALL CURRENT DATA on your disk.");`	324	`putstringnls(9, 2, COLOR_BODY[mono], 3, 16, " this will ERASE ALL CURRENT DATA on your disk.");`
325	`if (menuselect(12, -1, 4, list) != 0) return(-1);`	325	`if (menuselect(12, -1, 4, list) != 0) return(-1);`
326	`video_clear(0x0700, 0);`	326	`video_clear(0x0700, 0);`
327	`video_movecursor(0, 0);`	327	`video_movecursor(0, 0);`
328	`sprintf(buff, "FORMAT %c: /Q /U /Z:seriously /V:SVAROG386", cselecteddrive);`	328	`sprintf(buff, "FORMAT %c: /Q /U /Z:seriously /V:SVAROG386", cselecteddrive);`
329	`system(buff);`	329	`system(buff);`
330	`continue;`	330	`continue;`
331	`} else {`	331	`} else {`
332	`/* final confirmation */`	332	`/* final confirmation */`
333	`char *list[] = { "Install Svarog386", "Quit to DOS", NULL};`	333	`char *list[] = { "Install Svarog386", "Quit to DOS", NULL};`
334	`list[0] = kittengets(0, 1, list[0]);`	334	`list[0] = kittengets(0, 1, list[0]);`
335	`list[1] = kittengets(0, 2, list[1]);`	335	`list[1] = kittengets(0, 2, list[1]);`
336	`sprintf(buff, kittengets(3, 17, "The installation of Svarog386 to %c: is about to begin."), cselecteddrive);`	336	`sprintf(buff, kittengets(3, 17, "The installation of Svarog386 to %c: is about to begin."), cselecteddrive);`
337	`video_putstring(7, 2, COLOR_BODY[mono], buff);`	337	`video_putstring(7, 2, COLOR_BODY[mono], buff);`
338	`if (menuselect(10, -1, 4, list) != 0) return(-1);`	338	`if (menuselect(10, -1, 4, list) != 0) return(-1);`
339	`sprintf(buff, "SYS A: %c:", cselecteddrive);`	339	`sprintf(buff, "SYS A: %c:", cselecteddrive);`
340	`system(buff);`	340	`system(buff);`
341	`sprintf(buff, "%c:\\TEMP", cselecteddrive);`	341	`sprintf(buff, "%c:\\TEMP", cselecteddrive);`
342	`mkdir(buff);`	342	`mkdir(buff);`
343	`return(cselecteddrive);`	343	`return(cselecteddrive);`
344	`}`	344	`}`
345	`}`	345	`}`
346	`}`	346	`}`
347		347
348		348
349	`static void bootfilesgen(int targetdrv, char *lang) {`	349	`static void bootfilesgen(int targetdrv, char *lang) {`
350	`char buff[128];`	350	`char buff[128];`
351	`FILE *fd;`	351	`FILE *fd;`
352	`/* AUTOEXEC.BAT */`	352	`/* AUTOEXEC.BAT */`
353	`sprintf(buff, "%c:\\AUTOEXEC.BAT", targetdrv);`	353	`sprintf(buff, "%c:\\AUTOEXEC.BAT", targetdrv);`
354	`fd = fopen(buff, "wb");`	354	`fd = fopen(buff, "wb");`
355	`if (fd == NULL) return;`	355	`if (fd == NULL) return;`
356	`fprintf(fd, "@ECHO OFF\r\n");`	356	`fprintf(fd, "@ECHO OFF\r\n");`
357	`fprintf(fd, "SET TEMP=%c:\\TEMP\r\n", targetdrv);`	357	`fprintf(fd, "SET TEMP=%c:\\TEMP\r\n", targetdrv);`
358	`fprintf(fd, "SET DOSDIR=%c:\\SYSTEM\\SVAROG.386\r\n", targetdrv);`	358	`fprintf(fd, "SET DOSDIR=%c:\\SYSTEM\\SVAROG.386\r\n", targetdrv);`
359	`fprintf(fd, "SET NLSPATH=%%DOSDIR%%\\NLS\r\n", targetdrv);`	359	`fprintf(fd, "SET NLSPATH=%%DOSDIR%%\\NLS\r\n", targetdrv);`
360	`fprintf(fd, "SET LANG=%s\r\n", lang);`	360	`fprintf(fd, "SET LANG=%s\r\n", lang);`
361	`fprintf(fd, "SET DIRCMD=/OGNE/P\r\n");`	361	`fprintf(fd, "SET DIRCMD=/OGNE/P\r\n");`
362	`fprintf(fd, "SET FDNPKG.CFG=%c:\\SYSTEM\\CFG\\FDNPKG.CFG\r\n");`	362	`fprintf(fd, "SET FDNPKG.CFG=%c:\\SYSTEM\\CFG\\FDNPKG.CFG\r\n");`
363	`fprintf(fd, "SET WATTCP.CFG=%c:\\SYSTEM\\CFG\\WATTCP.CFG\r\n");`	363	`fprintf(fd, "SET WATTCP.CFG=%c:\\SYSTEM\\CFG\\WATTCP.CFG\r\n");`
364	`fprintf(fd, "PATH %%DOSDIR%%\\BIN;%%DOSDIR%%\\LINKS\r\n");`	364	`fprintf(fd, "PATH %%DOSDIR%%\\BIN;%%DOSDIR%%\\LINKS\r\n");`
365	`fprintf(fd, "PROMPT $P$G\r\n");`	365	`fprintf(fd, "PROMPT $P$G\r\n");`
366	`fprintf(fd, "ALIAS REBOOT=FDAPM COLDBOOT\r\n");`	366	`fprintf(fd, "ALIAS REBOOT=FDAPM COLDBOOT\r\n");`
367	`fprintf(fd, "ALIAS HALT=FDAPM POWEROFF\r\n");`	367	`fprintf(fd, "ALIAS HALT=FDAPM POWEROFF\r\n");`
368	`fprintf(fd, "\r\n\r\n");`	368	`fprintf(fd, "\r\n\r\n");`
369	`fprintf(fd, "MODE CON CP PREPARE=((991) %c:\\SYSTEM\\SVAROG.386\\CPI\\EGA10.CPX)\r\n");`	369	`fprintf(fd, "MODE CON CP PREPARE=((991) %c:\\SYSTEM\\SVAROG.386\\CPI\\EGA10.CPX)\r\n");`
370	`fprintf(fd, "MODE CON CP SELECT=991\r\n");`	370	`fprintf(fd, "MODE CON CP SELECT=991\r\n");`
371	`fprintf(fd, "\r\n");`	371	`fprintf(fd, "\r\n");`
372	`fprintf(fd, "SHSUCDX /d:FDCD0001\r\n");`	372	`fprintf(fd, "SHSUCDX /d:FDCD0001\r\n");`
373	`fclose(fd);`	373	`fclose(fd);`
374	`/* CONFIG.SYS */`	374	`/* CONFIG.SYS */`
375	`sprintf(buff, "%c:\\CONFIG.SYS", targetdrv);`	375	`sprintf(buff, "%c:\\CONFIG.SYS", targetdrv);`
376	`fd = fopen(buff, "wb");`	376	`fd = fopen(buff, "wb");`
377	`if (fd == NULL) return;`	377	`if (fd == NULL) return;`
378	`fprintf(fd, "DOS=UMB,HIGH\r\n");`	378	`fprintf(fd, "DOS=UMB,HIGH\r\n");`
379	`fprintf(fd, "FILES=50\r\n");`	379	`fprintf(fd, "FILES=50\r\n");`
380	`fprintf(fd, "DEVICE=%c:\\SYSTEM\\SVAROG.386\\BIN\\HIMEM.EXE\r\n", targetdrv);`	380	`fprintf(fd, "DEVICE=%c:\\SYSTEM\\SVAROG.386\\BIN\\HIMEM.EXE\r\n", targetdrv);`
381	`fprintf(fd, "SHELLHIGH=%c:\\SYSTEM\\SVAROG.386\\BIN\\COMMAND.COM /E:512", targetdrv);`	381	`fprintf(fd, "SHELLHIGH=%c:\\SYSTEM\\SVAROG.386\\BIN\\COMMAND.COM /E:512", targetdrv);`
382	`fprintf(fd, "REM COUNTRY=001,437,%c:\\SYSTEM\\SVAROG.386\r\n", targetdrv);`	382	`fprintf(fd, "REM COUNTRY=001,437,%c:\\SYSTEM\\SVAROG.386\r\n", targetdrv);`
383	`fprintf(fd, "DEVICE=%c:\\SYSTEM\\SVAROG.386\\BIN\\CDROM.SYS /D:FDCD0001\r\n", targetdrv);`	383	`fprintf(fd, "DEVICE=%c:\\SYSTEM\\SVAROG.386\\BIN\\CDROM.SYS /D:FDCD0001\r\n", targetdrv);`
384	`fclose(fd);`	384	`fclose(fd);`
385	`}`	385	`}`
386		386
387		387
388	`static void installpackages(void) {`	388	`static void installpackages(int targetdrv) {`
389	`char *pkglist[] = {`	389	`char *pkglist[] = {`
390	`"APPEND",`	390	`"APPEND",`
391	`"ASSIGN",`	391	`"ASSIGN",`
392	`"ATTRIB",`	392	`"ATTRIB",`
393	`"CHKDSK",`	393	`"CHKDSK",`
394	`"CHOICE",`	394	`"CHOICE",`
395	`"COMMAND",`	395	`"COMMAND",`
396	`"COMP",`	396	`"COMP",`
397	`"CPIDOS",`	397	`"CPIDOS",`
398	`"CTMOUSE",`	398	`"CTMOUSE",`
399	`"DEBUG",`	399	`"DEBUG",`
400	`"DEFRAG",`	400	`"DEFRAG",`
401	`"DELTREE",`	401	`"DELTREE",`
402	`"DEVLOAD",`	402	`"DEVLOAD",`
403	`"DISKCOMP",`	403	`"DISKCOMP",`
404	`"DISKCOPY",`	404	`"DISKCOPY",`
405	`"DISPLAY",`	405	`"DISPLAY",`
406	`"DOSFSCK",`	406	`"DOSFSCK",`
407	`"EDIT",`	407	`"EDIT",`
408	`"EDLIN",`	408	`"EDLIN",`
409	`"EXE2BIN",`	409	`"EXE2BIN",`
410	`"FC",`	410	`"FC",`
411	`"FDAPM",`	411	`"FDAPM",`
412	`"FDISK",`	412	`"FDISK",`
413	`"FDNPKG",`	413	`"FDNPKG",`
414	`"FIND",`	414	`"FIND",`
415	`"FORMAT",`	415	`"FORMAT",`
416	`"HELP",`	416	`"HELP",`
417	`"HIMEMX",`	417	`"HIMEMX",`
418	`"KERNEL",`	418	`"KERNEL",`
419	`"KEYB",`	419	`"KEYB",`
420	`"LABEL",`	420	`"LABEL",`
421	`"LBACACHE",`	421	`"LBACACHE",`
422	`"MEM",`	422	`"MEM",`
423	`"MIRROR",`	423	`"MIRROR",`
424	`"MODE",`	424	`"MODE",`
425	`"MORE",`	425	`"MORE",`
426	`"MOVE",`	426	`"MOVE",`
427	`"NANSI",`	427	`"NANSI",`
428	`"NLSFUNC",`	428	`"NLSFUNC",`
429	`"PRINT",`	429	`"PRINT",`
430	`"RDISK",`	430	`"RDISK",`
431	`"RECOVER",`	431	`"RECOVER",`
432	`"REPLACE",`	432	`"REPLACE",`
433	`"SHARE",`	433	`"SHARE",`
434	`"SHSUCDX",`	434	`"SHSUCDX",`
435	`"SORT",`	435	`"SORT",`
436	`"SWSUBST",`	436	`"SWSUBST",`
437	`"TREE",`	437	`"TREE",`
438	`"UNDELETE",`	438	`"UNDELETE",`
439	`"XCOPY",`	439	`"XCOPY",`
440	`NULL`	440	`NULL`
441	`};`	441	`};`
442	`int i, pkglistlen;`	442	`int i, pkglistlen;`
-		443	`char buff[64];`
443	`newscreen();`	444	`newscreen();`
444	`/* count how long the pkg list is */`	445	`/* count how long the pkg list is */`
445	`for (pkglistlen = 0; pkglist[pkglistlen] != NULL; pkglistlen++);`	446	`for (pkglistlen = 0; pkglist[pkglistlen] != NULL; pkglistlen++);`
-		447	`/* set DOSDIR and friends */`
-		448	`snprintf(buff, sizeof(buff), "%c:\\SYSTEM\\SVAROG.386", targetdrv);`
-		449	`setenv("DOSDIR", buff, 1);`
-		450	`snprintf(buff, sizeof(buff), "%c:\\TEMP", targetdrv);`
-		451	`setenv("TEMP", buff, 1);`
446	`/* install packages */`	452	`/* install packages */`
447	`for (i = 0; pkglist[i] != NULL; i++) {`	453	`for (i = 0; pkglist[i] != NULL; i++) {`
448	`char buff[128];`	454	`char buff[128];`
449	`snprintf(buff, sizeof(buff), kittengets(4, 0, "Installing package %d/%d: %s"), i+1, pkglistlen, pkglist[i]);`	455	`snprintf(buff, sizeof(buff), kittengets(4, 0, "Installing package %d/%d: %s"), i+1, pkglistlen, pkglist[i]);`
450	`strcat(buff, " ");`	456	`strcat(buff, " ");`
451	`video_putstring(10, 2, COLOR_BODY[mono], buff);`	457	`video_putstring(10, 2, COLOR_BODY[mono], buff);`
452	`sprintf(buff, "FDNPKG INSTALL %s > NUL");`	458	`sprintf(buff, "FDINST INSTALL X:\\BASE\\%s.ZIP > NUL", pkglist[i]);`
453	`system(buff);`	459	`system(buff);`
454	`}`	460	`}`
455	`}`	461	`}`
456		462
457		463
458	`static void finalreboot(void) {`	464	`static void finalreboot(void) {`
459	`newscreen();`	465	`newscreen();`
460	`putstringnls(10, 2, COLOR_BODY[mono], 5, 0, "Svarog386 installation is over. Your computer will reboot now.");`	466	`putstringnls(10, 2, COLOR_BODY[mono], 5, 0, "Svarog386 installation is over. Your computer will reboot now.");`
461	`putstringnls(11, 2, COLOR_BODY[mono], 5, 1, "Please remove the installation disk from your drive.");`	467	`putstringnls(11, 2, COLOR_BODY[mono], 5, 1, "Please remove the installation disk from your drive.");`
462	`putstringnls(13, 2, COLOR_BODY[mono], 0, 5, "Press any key...");`	468	`putstringnls(13, 2, COLOR_BODY[mono], 0, 5, "Press any key...");`
463	`input_getkey();`	469	`input_getkey();`
464	`reboot();`	470	`reboot();`
465	`}`	471	`}`
466		472
467		473
468	`static void loadcp(char *lang) {`	474	`static void loadcp(char *lang) {`
469	`int cp, egafile;`	475	`int cp, egafile;`
470	`char buff[64];`	476	`char buff[64];`
471	`cp = getnlscp(lang, &egafile);`	477	`cp = getnlscp(lang, &egafile);`
472	`if (cp == 437) return;`	478	`if (cp == 437) return;`
473	`video_movecursor(1, 0);`	479	`video_movecursor(1, 0);`
474	`if (egafile == 1) {`	480	`if (egafile == 1) {`
475	`sprintf(buff, "MODE CON CP PREP=((%d) A:\\EGA.CPX)", cp);`	481	`sprintf(buff, "MODE CON CP PREP=((%d) A:\\EGA.CPX)", cp);`
476	`} else {`	482	`} else {`
477	`sprintf(buff, "MODE CON CP PREP=((%d) A:\\EGA%d.CPX)", cp, egafile);`	483	`sprintf(buff, "MODE CON CP PREP=((%d) A:\\EGA%d.CPX)", cp, egafile);`
478	`}`	484	`}`
479	`system(buff);`	485	`system(buff);`
480	`sprintf(buff, "MODE CON CP SEL=%d", cp);`	486	`sprintf(buff, "MODE CON CP SEL=%d", cp);`
481	`system(buff);`	487	`system(buff);`
482	`/* below I re-init the video controller - apparently this is required if`	488	`/* below I re-init the video controller - apparently this is required if`
483	`* I want the new glyph symbols to be actually applied */`	489	`* I want the new glyph symbols to be actually applied */`
484	`{`	490	`{`
485	`union REGS r;`	491	`union REGS r;`
486	`r.h.ah = 0x0F; /* get current video mode */`	492	`r.h.ah = 0x0F; /* get current video mode */`
487	`int86(0x10, &r, &r); /* r.h.al contains the current video mode now */`	493	`int86(0x10, &r, &r); /* r.h.al contains the current video mode now */`
488	`r.h.ah = 0; /* set video mode (to whatever is set in AL) */`	494	`r.h.ah = 0; /* set video mode (to whatever is set in AL) */`
489	`int86(0x10, &r, &r);`	495	`int86(0x10, &r, &r);`
490	`}`	496	`}`
491	`}`	497	`}`
492		498
493		499
494	`int main(void) {`	500	`int main(void) {`

Subversion Repositories SvarDOS

(root)/install/trunk/install.c @ 999 – Rev 42 → 46