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 "cdrom.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;
 
/* how much disk space does Svarog386 require (in MiB) */
#define SVAROG_DISK_REQ 8
 
 
/* 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];
      snprintf(buf, sizeof(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, -1, 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;  /* sectors per cluster */
  res *= r.x.dx; /* dx contains total clusters, bx contains free clusters */
  res *= r.x.cx; /* bytes per sector */
  res >>= 20;    /* convert bytes to MiB */
  return(res);
}
 
 
/* 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;
  snprintf(buff, sizeof(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 a partition automatically", "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]);
      snprintf(buff, sizeof(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");
      snprintf(buff, sizeof(buff), kittengets(3, 3, "       Svarog386 requires at least %d MiB of available disk space."), SVAROG_DISK_REQ);
      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) {
      snprintf(buff, sizeof(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) */
    snprintf(buff, sizeof(buff), "%c:\\SVWRTEST.123", cselecteddrive);
    if (mkdir(buff) == 0) {
      rmdir(buff);
    } else {
      char *list[] = { "Proceed with formatting", "Quit to DOS", NULL};
      list[0] = kittengets(0, 6, list[0]);
      list[1] = kittengets(0, 2, list[1]);
      snprintf(buff, sizeof(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);
      snprintf(buff, sizeof(buff), "FORMAT %c: /Q /U /Z:seriously /V:SVAROG386", cselecteddrive);
      system(buff);
      continue;
    }
    /* check total disk space */
    ds = disksize(selecteddrive);
    if (ds < SVAROG_DISK_REQ) {
      snprintf(buff, sizeof(buff), kittengets(3, 12, "ERROR: Drive %c: is not big enough!"), cselecteddrive);
      video_putstring(9, 2, COLOR_BODY[mono], buff);
      snprintf(buff, sizeof(buff), kittengets(3, 13, "      Svarog386 requires a disk of at least %d MiB."), SVAROG_DISK_REQ);
      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]);
      snprintf(buff, sizeof(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);
      snprintf(buff, sizeof(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]);
      snprintf(buff, sizeof(buff), kittengets(3, 17, "The installation of Svarog386 to %c: is about to begin."), cselecteddrive);
      video_putstring(7, -1, COLOR_BODY[mono], buff);
      if (menuselect(10, -1, 4, list) != 0) return(-1);
      snprintf(buff, sizeof(buff), "SYS A: %c:", cselecteddrive);
      system(buff);
      snprintf(buff, sizeof(buff), "%c:\\TEMP", cselecteddrive);
      mkdir(buff);
      return(cselecteddrive);
    }
  }
}
 
 
/* copy file src into dst, substituting all characters c1 by c2 */
static void fcopysub(char *dst, char *src, char c1, char c2) {
  FILE *fdd, *fds;
  int buff;
  fds = fopen(src, "rb");
  if (fds == NULL) return;
  fdd = fopen(dst, "wb");
  if (fdd == NULL) {
    fclose(fds);
    return;
  }
  /* */
  for (;;) {
    buff = fgetc(fds);
    if (buff == EOF) break;
    if (buff == c1) buff = c2;
    fprintf(fdd, "%c", buff);
  }
  /* close files and return */
  fclose(fdd);
  fclose(fds);
}
 
 
static void bootfilesgen(int targetdrv, char *lang, int cdromdrv) {
  char buff[128];
  int cp, egafile;
  FILE *fd;
  cp = getnlscp(lang, &egafile);
  /*** CONFIG.SYS ***/
  snprintf(buff, sizeof(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\\HIMEMX.EXE\r\n", targetdrv);
  fprintf(fd, "SHELLHIGH=%c:\\SYSTEM\\SVAROG.386\\BIN\\COMMAND.COM /E:512 /P\r\n", targetdrv);
 
  fprintf(fd, "REM COUNTRY=001,437,%c:\\SYSTEM\\CONF\\COUNTRY.SYS\r\n", targetdrv);
  fprintf(fd, "DEVICE=%c:\\SYSTEM\\DRIVERS\\UDVD2\\UDVD2.SYS /D:SVCD0001 /H\r\n", targetdrv);
  fclose(fd);
  /*** AUTOEXEC.BAT ***/
  snprintf(buff, sizeof(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");
  fprintf(fd, "SET LANG=%s\r\n", lang);
  fprintf(fd, "SET DIRCMD=/OGNE/P/4\r\n");
  fprintf(fd, "SET FDNPKG.CFG=%c:\\SYSTEM\\CFG\\FDNPKG.CFG\r\n", targetdrv);
  fprintf(fd, "SET WATTCP.CFG=%c:\\SYSTEM\\CFG\\WATTCP.CFG\r\n", targetdrv);
  fprintf(fd, "PATH %%DOSDIR%%\\BIN;%c:\\SYSTEM\\LINKS\r\n", targetdrv);
  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");
  if (egafile > 0) {
    fprintf(fd, "DISPLAY CON=(EGA,,1)\r\n");
    if (egafile == 1) {
      fprintf(fd, "MODE CON CP PREPARE=((%d) %c:\\SYSTEM\\SVAROG.386\\CPI\\EGA.CPX)\r\n", cp, targetdrv);
    } else {
      fprintf(fd, "MODE CON CP PREPARE=((%d) %c:\\SYSTEM\\SVAROG.386\\CPI\\EGA%d.CPX)\r\n", cp, targetdrv, egafile);
    }
    fprintf(fd, "MODE CON CP SELECT=%d\r\n", cp);
    fprintf(fd, "\r\n");
  }
  fprintf(fd, "SHSUCDX /d:SVCD0001\r\n");
  fprintf(fd, "\r\n");
  fprintf(fd, "REM Uncomment the line below for automatic mouse support\r\n");
  fprintf(fd, "REM CTMOUSE\r\n");
  fprintf(fd, "\r\n");
  fprintf(fd, "ECHO.\r\n");
  fprintf(fd, "ECHO Welcome to Svarog386! Type 'HELP' if you need help.\r\n");
  fclose(fd);
  /*** CREATE DIRECTORY FOR OTHER CONFIGURATION FILES ***/
  snprintf(buff, sizeof(buff), "%c:\\SYSTEM\\CFG", targetdrv);
  mkdir(buff);
  /*** FDNPKG.CFG ***/
  snprintf(buff, sizeof(buff), "%c:\\SYSTEM\\CFG\\FDNPKG.CFG", targetdrv);
  fcopysub(buff, "A:\\DAT\\FDNPKG.CFG", '$', cdromdrv);
  /*** COUNTRY.SYS ***/
  /*** PICOTCP ***/
  /*** WATTCP ***/
}
 
 
static void installpackages(int targetdrv, int cdromdrv) {
  char *pkglist[] = {
    "A:\\UDVD2", /* this one's not part of CORE, hence it's stored right on the floppy */
    "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);
    if (pkglist[i][1] == ':') {
      snprintf(buff, sizeof(buff), "FDINST INSTALL %s.ZIP > NUL", pkglist[i]);
    } else {
      snprintf(buff, sizeof(buff), "FDINST INSTALL %c:\\CORE\\%s.ZIP > NUL", cdromdrv, pkglist[i]);
    }
    system(buff);
  }
}
 
 
static void finalreboot(void) {
  newscreen();
  putstringnls(9, 2, COLOR_BODY[mono], 5, 0, "Svarog386 installation is over. Your computer will reboot now.");
  putstringnls(10, 2, COLOR_BODY[mono], 5, 1, "Please remove the installation disk from your drive.");
  putstringnls(12, 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) {
    snprintf(buff, sizeof(buff), "MODE CON CP PREP=((%d) A:\\EGA.CPX)", cp);
  } else {
    snprintf(buff, sizeof(buff), "MODE CON CP PREP=((%d) A:\\EGA%d.CPX)", cp, egafile);
  }
  system(buff);
  snprintf(buff, sizeof(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;
  int cdromdrv;
 
  /* find where the cdrom drive is */
  cdromdrv = cdrom_findfirst();
  if (cdromdrv < 0) {
    printf("ERROR: CD-ROM DRIVE NOT FOUND\r\n");
    return(1);
  }
  cdromdrv += 'A'; /* convert the cdrom 'id' (A=0) to an actual drive letter */
 
  /* 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, cdromdrv);    /* install packages */
    bootfilesgen(targetdrv, lang, cdromdrv); /* generate boot files and other configurations */
    /*localcfg();*/ /* show local params (currency, etc), and propose to change them (based on localcfg) */
    /*netcfg();*/ /* basic networking config */
    finalreboot(); /* remove the CD and reboot */
    break;
  }
  kittenclose(); /* close NLS support */
  video_clear(0x0700, 0);
  video_movecursor(0, 0);
  return(0);
}
 

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

Subversion Repositories SvarDOS

(root)/install/trunk/install.c @ 908 – Rev 53 → 55