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


/*
 * SVARDOS INSTALL PROGRAM
 *
 * PUBLISHED UNDER THE TERMS OF THE MIT LICENSE
 *
 * COPYRIGHT (C) 2016-2024 MATEUSZ VISTE, ALL RIGHTS RESERVED.
 *
 * Permission is hereby granted, free of charge, to any person obtaining a
 * copy of this software and associated documentation files (the "Software"),
 * to deal in the Software without restriction, including without limitation
 * the rights to use, copy, modify, merge, publish, distribute, sublicense,
 * and/or sell copies of the Software, and to permit persons to whom the
 * Software is furnished to do so, subject to the following conditions:
 *
 * The above copyright notice and this permission notice shall be included in
 * all copies or substantial portions of the Software.
 *
 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING
 * FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER
 * DEALINGS IN THE SOFTWARE.
 *
 * http://svardos.org
 */
 
#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 "mdr\cout.h"
#include "mdr\dos.h"
#include "svarlang.lib\svarlang.h"
 
/* keyboard layouts and locales */
#include "keylay.h"
#include "keyoff.h"
 
/* prototype of the int24hdl() function defined in int24hdl.asm */
void int24hdl(void);
 
 
/* color scheme (preset for color) */
static unsigned char COLOR_TITLEBAR  = 0x70;
static unsigned char COLOR_TITLEVER  = 0x78;
static unsigned char COLOR_BODY      = 0x17;
static unsigned char COLOR_SELECT    = 0x70;
static unsigned char COLOR_SELECTCUR = 0x1F;
 
/* build release string, populated at startup by reading floppy's label */
static char BUILDSTRING[13];
 
/* how much disk space does SvarDOS require (in MiB) */
#define SVARDOS_DISK_REQ 8
 
/* menu screens can output only one of these: */
#define MENUNEXT 0
#define MENUPREV -1
#define MENUQUIT -2
 
/* a convenience 'function' used for debugging */
#define DBG(x) { video_putstringfix(24, 0, 0x4F00u, x, 80); }
 
struct slocales {
  char lang[4];
  const char *keybcode;
  unsigned int codepage;
  int egafile;
  int keybfile;
  int keyboff;
  int keyblen;
  unsigned int keybid;
};
 
 
/* put a string on screen and fill it until w chars with whilte space */
static void video_putstringfix(unsigned char y, unsigned char x, unsigned char attr, const char *s, unsigned char w) {
  unsigned char i;
 
  /* print the string up to w characters */
  i = mdr_cout_str(y, x, s, attr, w);
 
  /* fill in left space (if any) with blanks */
  mdr_cout_char_rep(y, x + i, ' ', attr, w - i);
}
 
 
/* 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 */
}
 
 
/* returns 1 if file exists, zero otherwise */
static int fileexists(const char *fname) {
  FILE *fd;
  fd = fopen(fname, "rb");
  if (fd == NULL) return(0);
  fclose(fd);
  return(1);
}
 
 
/* outputs a string to screen with taking care of word wrapping. returns amount of lines. */
static unsigned char putstringwrap(unsigned char y, unsigned char x, unsigned char attr, const char *s) {
  unsigned char linew, lincount;
  linew = 80 - (x << 1);
 
  for (lincount = 1; y+lincount < 25; lincount++) {
    int i, len = linew;
    for (i = 0; i <= linew; i++) {
      if (s[i] == ' ') len = i;
      if (s[i] == '\n') {
        len = i;
        break;
      }
      if (s[i] == 0) {
        len = i;
        break;
      }
    }
    mdr_cout_str(y++, x, s, attr, len);
    s += len;
    if (*s == 0) break;
    s += 1; /* skip the whitespace char */
  }
  return(lincount);
}
 
 
/* an NLS wrapper around video_putstring(), also performs line wrapping when
 * needed. returns the amount of lines that were output */
static unsigned char putstringnls(unsigned char y, unsigned char x, unsigned char attr, unsigned char nlsmaj, unsigned char nlsmin) {
  const char *s = svarlang_str(nlsmaj, nlsmin);
  if (s == NULL) s = "";
  return(putstringwrap(y, x, attr, s));
}
 
 
/* copy file f1 to f2 using buff as a buffer of buffsz bytes. f2 will be overwritten if it
 * exists already! returns 0 on success. */
static int fcopy(const char *f2, const char *f1, void *buff, size_t buffsz) {
  FILE *fd1, *fd2;
  size_t sz;
  int res = -1; /* assume failure */
 
  /* open files */
  fd1 = fopen(f1, "rb");
  fd2 = fopen(f2, "wb");
  if ((fd1 == NULL) || (fd2 == NULL)) goto QUIT;
 
  /* copy data */
  for (;;) {
    sz = fread(buff, 1, buffsz, fd1);
    if (sz == 0) {
      if (feof(fd1) != 0) break;
      goto QUIT;
    }
    if (fwrite(buff, 1, sz, fd2) != sz) goto QUIT;
  }
 
  res = 0; /* success */
 
  QUIT:
  if (fd1 != NULL) fclose(fd1);
  if (fd2 != NULL) fclose(fd2);
  return(res);
}
 
 
/* display a menu with items and return user's choice.
 * ypos: starting line where the menu is drawn
 * height: number of items to display inside the menu
 * list: NULL-terminated list of items
 * maxlistlen: limit list to this many items tops */
static int menuselect(unsigned char ypos, unsigned char height, const char **list, int maxlistlen) {
  int i, offset = 0, res = 0, count;
  unsigned char y, xpos, width = 0;
 
  /* count how many positions there are, and check their width */
  for (count = 0; (list[count] != NULL) && (count != maxlistlen); count++) {
    int len = strlen(list[count]);
    if (len > width) width = len;
  }
  width++; /* it's nice to have a small margin to the right of the widest item */
 
  /* if xpos negative, means 'center out' */
  xpos = 39 - (width >> 1);
 
  mdr_cout_char_rep(ypos, xpos, 0xC4, COLOR_SELECT, width + 2);  /* top line */
  mdr_cout_char(ypos, xpos+width+2, 0xBF, COLOR_SELECT);         /*       \ */
  mdr_cout_char(ypos, xpos-1, 0xDA, COLOR_SELECT);               /*  /      */
  ypos++; /* from now on ypos relates to the position of the content */
  mdr_cout_char(ypos+height, xpos-1, 0xC0, COLOR_SELECT);      /*  \      */
  mdr_cout_char(ypos+height, xpos+width+2, 0xD9, COLOR_SELECT);/*      /  */
  mdr_cout_char_rep(ypos+height, xpos, 0xC4, COLOR_SELECT, width + 2);
 
  for (;;) {
    int key;
 
    /* draw side borders of the menu + the cursor */
    if (count <= height) { /* no need for a cursor, all fits on one page */
      i = 255;
    } else {
      i = offset * (height - 1) / (count - height);
    }
 
    for (y = ypos; y < (ypos + height); y++) {
      mdr_cout_char(y, xpos-1, 0xB3, COLOR_SELECT); /* left side */
      if (y - ypos == i) {
        mdr_cout_char(y, xpos+width+2, '=', COLOR_SELECT); /* cursor */
      } else {
        mdr_cout_char(y, xpos+width+2, 0xB3, COLOR_SELECT); /* right side */
      }
    }
 
    /* list of selectable items */
    for (i = 0; i < height; i++) {
      if (i + offset == res) {
        mdr_cout_char(ypos + i, xpos, 16, COLOR_SELECTCUR);
        mdr_cout_char(ypos + i, xpos+width+1, 17, COLOR_SELECTCUR);
        mdr_cout_locate(ypos + i, xpos);
        video_putstringfix(ypos + i, xpos+1, COLOR_SELECTCUR, list[i + offset], width);
      } else if (i + offset < count) {
        mdr_cout_char(ypos + i, xpos, ' ', COLOR_SELECT);
        mdr_cout_char(ypos + i, xpos+width+1, ' ', COLOR_SELECT);
        video_putstringfix(ypos + i, xpos+1, COLOR_SELECT, list[i + offset], width);
      } else {
        mdr_cout_char_rep(ypos + i, xpos, ' ', COLOR_SELECT, width+2);
      }
    }
    key = mdr_dos_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 - 1) offset = res - (height - 1);
      }
    } else if (key == 0x147) { /* home */
      res = 0;
      offset = 0;
    } else if (key == 0x14F) { /* end */
      res = count - 1;
      if (res > offset + height - 1) offset = res - (height - 1);
    } else if (key == 0x1B) {  /* ESC */
      return(-1);
    }/* else {
      char buf[8];
      snprintf(buf, sizeof(buf), "0x%02X ", key);
      video_putstring(1, 0, COLOR_BODY, buf, -1);
    }*/
  }
}
 
static void newscreen(unsigned char statusbartype) {
  const char *msg;
  mdr_cout_cls(COLOR_BODY);
  msg = svarlang_strid(0x00); /* "SVARDOS INSTALLATION" */
  mdr_cout_char_rep(0, 0, ' ', COLOR_TITLEBAR, 80);
  mdr_cout_str(0, 40 - (strlen(msg) >> 1), msg, COLOR_TITLEBAR, 80);
  mdr_cout_str(0, 80 - strlen(BUILDSTRING), BUILDSTRING, COLOR_TITLEVER, 12);
 
  switch (statusbartype) {
    case 1:
      msg = svarlang_strid(0x000B); /* "Up/Down = Select entry | Enter = Validate your choice | ESC = Quit to DOS" */
      break;
    case 2:
      msg = svarlang_strid(0x0005); /* "Press any key..." */
      break;
    case 3:
      msg = "";
      break;
    default:
      msg = svarlang_strid(0x000A); /* "Up/Down = Select entry | Enter = Validate your choice | ESC = Previous screen" */
      break;
  }
  mdr_cout_char(24, 0, ' ', COLOR_TITLEBAR);
  video_putstringfix(24, 1, COLOR_TITLEBAR, msg, 79);
  mdr_cout_locate(25,0);
}
 
/* fills a slocales struct accordingly to the value of its keyboff member */
static void kblay2slocal(struct slocales *locales) {
  const char *m;
  for (m = kblayouts[locales->keyboff]; *m != 0; m++); /* skip layout name */
  m++;
  /* skip keyb code and copy it to locales.keybcode */
  locales->keybcode = m;
  for (; *m != 0; m++);
  /* */
  locales->codepage = ((unsigned short)m[1] << 8) | m[2];
  locales->egafile = m[3];
  locales->keybfile = m[4];
  locales->keybid = ((unsigned short)m[5] << 8) | m[6];
}
 
static int selectlang(struct slocales *locales) {
  int choice, x;
  const char *msg;
  const char *langlist[] = {
    "English",
    "Brazilian",
    "French",
    "German",
    "Italian",
    "Polish",
    "Russian",
    "Slovene",
    "Swedish",
    "Turkish",
    NULL
  };
 
  /* do not ask for language on non-multilang setups */
  if (!fileexists("INSTALL.LNG")) {
    choice = 0;
    goto SkipLangSelect;
  }
 
  newscreen(1);
  msg = svarlang_strid(0x0100); /* "Welcome to SvarDOS" */
  x = 40 - (strlen(msg) >> 1);
  mdr_cout_str(4, x, msg, COLOR_BODY, 80);
  mdr_cout_char_rep(5, x, '=', COLOR_BODY, strlen(msg));
 
  /* center out the string "Please select your language..." */
  msg = svarlang_str(1, 1); /* "Please select your language from the list below:" */
  if (strlen(msg) > 74) {
    putstringwrap(8, 1, COLOR_BODY, msg);
  } else {
    mdr_cout_str(8, 40 - (strlen(msg) / 2), msg, COLOR_BODY, 80);
  }
 
  choice = menuselect(11, 9, langlist, -1);
  if (choice < 0) return(MENUPREV);
 
  SkipLangSelect:
 
  /* populate locales with default values */
  memset(locales, 0, sizeof(struct slocales));
  switch (choice) {
    case 1:
      strcpy(locales->lang, "BR");
      locales->keyboff = OFFLOC_BR;
      locales->keyblen = OFFLEN_BR;
      break;
    case 2:
      strcpy(locales->lang, "FR");
      locales->keyboff = OFFLOC_FR;
      locales->keyblen = OFFLEN_FR;
      break;
    case 3:
      strcpy(locales->lang, "DE");
      locales->keyboff = OFFLOC_DE;
      locales->keyblen = OFFLEN_DE;
      break;
    case 4:
      strcpy(locales->lang, "IT");
      locales->keyboff = OFFLOC_IT;
      locales->keyblen = OFFLEN_IT;
      break;
    case 5:
      strcpy(locales->lang, "PL");
      locales->keyboff = OFFLOC_PL;
      locales->keyblen = OFFLEN_PL;
      break;
    case 6:
      strcpy(locales->lang, "RU");
      locales->keyboff = OFFLOC_RU;
      locales->keyblen = OFFLEN_RU;
      break;
    case 7:
      strcpy(locales->lang, "SI");
      locales->keyboff = OFFLOC_SI;
      locales->keyblen = OFFLEN_SI;
      break;
    case 8:
      strcpy(locales->lang, "SV");
      locales->keyboff = OFFLOC_SV;
      locales->keyblen = OFFLEN_SV;
      break;
    case 9:
      strcpy(locales->lang, "TR");
      locales->keyboff = OFFLOC_TR;
      locales->keyblen = OFFLEN_TR;
      break;
    default:
      strcpy(locales->lang, "EN");
      locales->keyboff = 0;
      locales->keyblen = OFFCOUNT;
      break;
  }
  /* populate the slocales struct accordingly to the keyboff member */
  kblay2slocal(locales);
  /* */
  return(MENUNEXT);
}
 
 
static int selectkeyb(struct slocales *locales) {
  int menuheight, choice;
  if (locales->keyblen == 1) return(MENUNEXT); /* do not ask for keyboard layout if only one is available for given language */
  newscreen(0);
  putstringnls(5, 1, COLOR_BODY, 1, 5); /* "SvarDOS supports different keyboard layouts */
  menuheight = locales->keyblen;
  if (menuheight > 11) menuheight = 11;
  choice = menuselect(10, menuheight, &(kblayouts[locales->keyboff]), locales->keyblen);
  if (choice < 0) return(MENUPREV);
  /* (re)load the keyboard layout & codepage setup */
  locales->keyboff += choice;
  kblay2slocal(locales);
  return(MENUNEXT);
}
 
 
/* returns 0 if installation must proceed, non-zero otherwise */
static int welcomescreen(void) {
  int c;
  const char *choice[3];
  choice[0] = svarlang_strid(0x0001);
  choice[1] = svarlang_strid(0x0002);
  choice[2] = NULL;
  newscreen(0);
  putstringnls(4, 1, COLOR_BODY, 2, 0); /* "You are about to install SvarDOS */
  c = menuselect(13, 2, choice, -1);
  if (c < 0) return(MENUPREV);
  if (c == 0) return(MENUNEXT);
  return(MENUQUIT);
}
 
 
/* 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;  /* A=1, B=2, etc */
  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);
}
 
#ifdef DEADCODE
/* set new DOS "current drive" to drv ('A', 'B', etc). returns 0 on success */
static int set_cur_drive(char drv) {
  union REGS r;
  if ((drv < 'A') || (drv > 'Z')) return(-1);
  r.h.ah = 0x0E; /* DOS 1+ SELECT DEFAULT DRIVE */
  r.h.dl = drv - 'A';
  int86(0x21, &r, &r);
  if (r.h.al < drv - 'A') return(-1);
  return(0);
}
#endif
 
 
/* get the DOS "current drive" (0=A:, 1=B:, etc) */
static int get_cur_drive(void) {
  union REGS r;
  r.h.ah = 0x19; /* DOS 1+ GET CURRENT DEFAULT DRIVE */
  int86(0x21, &r, &r);
  return(r.h.al);
}
 
 
/* tries to write an empty file to drive.
 * asks DOS to inhibit the int 24h handler for this job, so erros are
 * gracefully reported - unfortunately this does not work under FreeDOS because
 * the DOS-C kernel does not implement the required flag.
 * returns 0 on success (ie. "disk exists and is writeable"). */
static unsigned short test_drive_write(char drive, char *buff) {
  unsigned short result = 0;
  sprintf(buff, "%c:\\SVWRTEST.123", drive);
  _asm {
    push ax
    push bx
    push cx
    push dx
 
    mov ah, 0x6c   /* extended open/create file */
    mov bx, 0x2001 /* open for write + inhibit int 24h handler */
    xor cx, cx     /* file attributes on the created file */
    mov dx, 0x0010 /* create file if does not exist, fail if it exists */
    mov si, buff   /* filename to create */
    int 0x21
    jc FAILURE
    /* close the file (handle in AX) */
    mov bx, ax
    mov ah, 0x3e /* close file */
    int 0x21
    jc FAILURE
    /* delete the file */
    mov ah, 0x41 /* delete file pointed out by DS:DX */
    mov dx, buff
    int 0x21
    jnc DONE
 
    FAILURE:
    mov result, ax
    DONE:
 
    pop dx
    pop cx
    pop bx
    pop ax
  }
  return(result);
}
 
 
static int preparedrive(char sourcedrv) {
  int driveremovable;
  int selecteddrive = 3; /* default to 'C:' */
  int cselecteddrive;
  int ds;
  int choice;
  char buff[1024];
  int driveid = 1; /* fdisk runs on first drive (unless USB boot) */
  if (selecteddrive == get_cur_drive() + 1) { /* get_cur_drive() returns 0-based values (A=0) while selecteddrive is 1-based (A=1) */
    selecteddrive = 4; /* use D: if install is run from C: (typically because it was booted from USB?) */
    driveid = 2; /* primary drive is the emulated USB storage */
  }
  cselecteddrive = 'A' + selecteddrive - 1;
  for (;;) {
    driveremovable = isdriveremovable(selecteddrive);
    if (driveremovable < 0) {
      const char *list[4];
      newscreen(0);
      list[0] = svarlang_str(0, 3); /* Create a partition automatically */
      list[1] = svarlang_str(0, 4); /* Run the FDISK tool */
      list[2] = svarlang_str(0, 2); /* Quit to DOS */
      list[3] = NULL;
      snprintf(buff, sizeof(buff), svarlang_strid(0x0300), cselecteddrive, SVARDOS_DISK_REQ); /* "ERROR: Drive %c: could not be found. Note, that SvarDOS requires at least %d MiB of available disk space */
      switch (menuselect(6 + putstringwrap(4, 1, COLOR_BODY, buff), 3, list, -1)) {
        case 0:
          sprintf(buff, "FDISK /PRI:MAX %d", driveid);
          system(buff);
          break;
        case 1:
          mdr_cout_cls(0x07);
          mdr_cout_locate(0, 0);
          sprintf(buff, "FDISK %d", driveid);
          system(buff);
          break;
        case 2:
          return(MENUQUIT);
        default:
          return(-1);
      }
      /* write a temporary MBR which only skips the drive (in case BIOS would
       * try to boot off the not-yet-ready C: disk) */
      sprintf(buff, "FDISK /LOADIPL %d", driveid);
      system(buff); /* writes BOOT.MBR into actual MBR */
      newscreen(2);
      putstringnls(10, 10, COLOR_BODY, 3, 1); /* "Your computer will reboot now." */
      putstringnls(12, 10, COLOR_BODY, 0, 5); /* "Press any key..." */
      mdr_dos_getkey();
      reboot();
      return(MENUQUIT);
    } else if (driveremovable > 0) {
      newscreen(2);
      snprintf(buff, sizeof(buff), svarlang_strid(0x0302), cselecteddrive); /* "ERROR: Drive %c: is a removable device */
      mdr_cout_str(9, 1, buff, COLOR_BODY, 80);
      putstringnls(11, 2, COLOR_BODY, 0, 5); /* "Press any key..." */
      return(MENUQUIT);
    }
    /* if not formatted, propose to format it right away (try to create a directory) */
    if (test_drive_write(cselecteddrive, buff) != 0) {
      const char *list[3];
      newscreen(0);
      snprintf(buff, sizeof(buff), svarlang_str(3, 3), cselecteddrive); /* "ERROR: Drive %c: seems to be unformated. Do you wish to format it?") */
      mdr_cout_str(7, 1, buff, COLOR_BODY, 80);
 
      snprintf(buff, sizeof(buff), svarlang_strid(0x0007), cselecteddrive); /* "Format drive %c:" */
      list[0] = buff;
      list[1] = svarlang_strid(0x0002); /* "Quit to DOS" */
      list[2] = NULL;
 
      choice = menuselect(12, 2, list, -1);
      if (choice < 0) return(MENUPREV);
      if (choice == 1) return(MENUQUIT);
      mdr_cout_cls(0x07);
      mdr_cout_locate(0, 0);
      snprintf(buff, sizeof(buff), "FORMAT %c: /Q /U /Z:seriously /V:SVARDOS", cselecteddrive);
      system(buff);
      continue;
    }
    /* check total disk space */
    ds = disksize(selecteddrive);
    if (ds < SVARDOS_DISK_REQ) {
      int y = 9;
      newscreen(2);
      snprintf(buff, sizeof(buff), svarlang_strid(0x0304), cselecteddrive, SVARDOS_DISK_REQ); /* "ERROR: Drive %c: is not big enough! SvarDOS requires a disk of at least %d MiB." */
      y += putstringwrap(y, 1, COLOR_BODY, buff);
      putstringnls(++y, 1, COLOR_BODY, 0, 5); /* "Press any key..." */
      mdr_dos_getkey();
      return(MENUQUIT);
    }
    /* is the disk empty? */
    newscreen(0);
    if (diskempty(selecteddrive) != 0) {
      const char *list[3];
      int y = 6;
      snprintf(buff, sizeof(buff), svarlang_strid(0x0305), cselecteddrive); /* "ERROR: Drive %c: not empty" */
      y += putstringwrap(y, 1, COLOR_BODY, buff);
 
      snprintf(buff, sizeof(buff), svarlang_strid(0x0007), cselecteddrive); /* "Format drive %c:" */
      list[0] = buff;
      list[1] = svarlang_strid(0x0002); /* "Quit to DOS" */
      list[2] = NULL;
 
      choice = menuselect(++y, 2, list, -1);
      if (choice < 0) return(MENUPREV);
      if (choice == 1) return(MENUQUIT);
      mdr_cout_cls(0x07);
      mdr_cout_locate(0, 0);
      snprintf(buff, sizeof(buff), "FORMAT %c: /Q /U /Z:seriously /V:SVARDOS", cselecteddrive);
      system(buff);
      continue;
    } else {
      /* final confirmation */
      const char *list[3];
      list[0] = svarlang_strid(0x0001); /* Install SvarDOS */
      list[1] = svarlang_strid(0x0002); /* Quit to DOS */
      list[2] = NULL;
      snprintf(buff, sizeof(buff), svarlang_strid(0x0306), cselecteddrive); /* "The installation of SvarDOS to %c: is about to begin." */
      mdr_cout_str(7, 40 - (strlen(buff) / 2), buff, COLOR_BODY, 80);
      choice = menuselect(10, 2, list, -1);
      if (choice < 0) return(MENUPREV);
      if (choice == 1) return(MENUQUIT);
      snprintf(buff, sizeof(buff), "SYS %c: %c: > NUL", sourcedrv, cselecteddrive);
      system(buff);
      sprintf(buff, "FDISK /MBR %d", driveid);
      system(buff);
      snprintf(buff, sizeof(buff), "%c:\\TEMP", cselecteddrive);
      mkdir(buff);
      return(cselecteddrive);
    }
  }
}
 
 
/* generates locales-related configurations and writes them to file (this
 * is used to compute autoexec.bat content) */
static void genlocalesconf(FILE *fd, const struct slocales *locales) {
  if (locales == NULL) return;
 
  fprintf(fd, "SET LANG=%s\r\n", locales->lang);
 
  if (locales->egafile > 0) {
    fprintf(fd, "DISPLAY CON=(EGA,,1)\r\n");
    if (locales->egafile == 1) {
      fprintf(fd, "MODE CON CP PREPARE=((%u) %%DOSDIR%%\\CPI\\EGA.CPX)\r\n", locales->codepage);
    } else {
      fprintf(fd, "MODE CON CP PREPARE=((%u) %%DOSDIR%%\\CPI\\EGA%d.CPX)\r\n", locales->codepage, locales->egafile);
    }
    fprintf(fd, "MODE CON CP SELECT=%u\r\n", locales->codepage);
  }
 
  if (locales->keybfile > 0) {
    fprintf(fd, "KEYB %s,%d,%%DOSDIR%%\\", locales->keybcode, locales->codepage);
    if (locales->keybfile == 1) {
      fprintf(fd, "KEYBOARD.SYS");
    } else {
      fprintf(fd, "KEYBRD%d.SYS", locales->keybfile);
    }
    if (locales->keybid != 0) fprintf(fd, " /ID:%d", locales->keybid);
    fprintf(fd, "\r\n");
  }
}
 
 
static void bootfilesgen(char targetdrv, const struct slocales *locales) {
  char buff[128];
  FILE *fd;
  /*** CONFIG.SYS ***/
  snprintf(buff, sizeof(buff), "%c:\\TEMP\\CONFIG.SYS", targetdrv);
  fd = fopen(buff, "wb");
  if (fd == NULL) return;
  fprintf(fd, "LASTDRIVE=Z\r\n"
              "FILES=40\r\n");
  fprintf(fd, "DEVICE=C:\\SVARDOS\\HIMEMX.EXE\r\n");
  fprintf(fd, "DOS=UMB,HIGH\r\n");
  fprintf(fd, "SHELL=C:\\COMMAND.COM /E:512 /P\r\n");
  fprintf(fd, "REM COUNTRY=001,%u,C:\\SVARDOS\\CFG\\COUNTRY.SYS\r\n", locales->codepage);
  fprintf(fd, "REM DEVICE=C:\\DRIVERS\\UDVD2\\UDVD2.SYS /D:SVCD0001 /H\r\n");
  fclose(fd);
  /*** AUTOEXEC.BAT ***/
  snprintf(buff, sizeof(buff), "%c:\\TEMP\\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");
  fprintf(fd, "SET DOSDIR=C:\\SVARDOS\r\n");
  fprintf(fd, "SET NLSPATH=%%DOSDIR%%\\NLS;.\r\n");
  fprintf(fd, "SET DIRCMD=/OGNE/P/4\r\n");
  fprintf(fd, "SET WATTCP.CFG=%%DOSDIR%%\\CFG\r\n");
  fprintf(fd, "PATH %%DOSDIR%%\r\n");
  fprintf(fd, "PROMPT $P$G\r\n");
  fprintf(fd, "FDAPM APMDOS\r\n");
  fprintf(fd, "\r\n");
  genlocalesconf(fd, locales);
  fprintf(fd, "\r\n");
  fprintf(fd, "REM Uncomment the line below for CDROM support\r\n");
  fprintf(fd, "REM SHSUCDX /d:SVCD0001\r\n");
  fprintf(fd, "\r\n");
  fprintf(fd, "ECHO.\r\n");
  fprintf(fd, "ECHO %s\r\n", svarlang_strid(0x0600)); /* "Welcome to SvarDOS!" */
  fclose(fd);
  /*** CREATE DIRECTORY FOR CONFIGURATION FILES ***/
  snprintf(buff, sizeof(buff), "%c:\\SVARDOS", targetdrv);
  mkdir(buff);
  snprintf(buff, sizeof(buff), "%c:\\SVARDOS\\CFG", targetdrv);
  mkdir(buff);
  /*** PKG.CFG ***/
  snprintf(buff, sizeof(buff), "%c:\\SVARDOS\\CFG\\PKG.CFG", targetdrv);
  fd = fopen(buff, "wb");
  if (fd == NULL) return;
  fprintf(fd, "# pkg config file - specifies locations where packages should be installed\r\n"
              "\r\n"
              "# DOS core binaries\r\n"
              "DIR BIN C:\\SVARDOS\r\n"
              "\r\n"
              "# Programs\r\n"
              "DIR PROGS C:\\\r\n"
              "\r\n"
              "# Games \r\n"
              "DIR GAMES C:\\\r\n"
              "\r\n"
              "# Drivers\r\n"
              "DIR DRIVERS C:\\DRIVERS\r\n"
              "\r\n"
              "# Development tools\r\n"
              "DIR DEVEL C:\\DEVEL\r\n");
  fclose(fd);
  /*** COUNTRY.SYS ***/
  /*** PICOTCP ***/
  /*** WATTCP ***/
  snprintf(buff, sizeof(buff), "%c:\\SVARDOS\\CFG\\WATTCP.CFG", targetdrv);
  fd = fopen(buff, "wb");
  if (fd == NULL) return;
  fprintf(fd, "my_ip = dhcp\r\n"
              "#my_ip = 192.168.0.7\r\n"
              "#netmask = 255.255.255.0\r\n"
              "#nameserver = 192.168.0.1\r\n"
              "#nameserver = 192.168.0.2\r\n"
              "#gateway = 192.168.0.1\r\n");
  fclose(fd);
}
 
 
static int installpackages(char targetdrv, char srcdrv, const struct slocales *locales) {
  char pkglist[512];
  int i, pkglistlen;
  size_t pkglistflen;
  char buff[1024]; /* must be *at least* 1 sector big for efficient file copying */
  FILE *fd = NULL;
  char *pkgptr;
  newscreen(3);
  /* load pkg list */
  fd = fopen("install.lst", "rb");
  if (fd == NULL) {
    mdr_cout_str(10, 30, "ERROR: INSTALL.LST NOT FOUND", COLOR_BODY, 80);
    mdr_dos_getkey();
    return(-1);
  }
  pkglistflen = fread(pkglist, 1, sizeof(pkglist) - 2, fd);
  fclose(fd);
  if (pkglistflen == sizeof(pkglist) - 2) {
    mdr_cout_str(10, 30, "ERROR: INSTALL.LST TOO LARGE", COLOR_BODY, 80);
    mdr_dos_getkey();
    return(-1);
  }
  /* mark the end of list */
  pkglist[pkglistflen] = 0;
  pkglist[pkglistflen + 1] = 0xff;
  /* replace all \r and \n chars by 0 bytes, and count the number of packages */
  pkglistlen = 0;
  for (i = 0; i < pkglistflen; i++) {
    switch (pkglist[i]) {
      case '\n':
        pkglistlen++;
        /* FALLTHRU */
      case '\r':
        pkglist[i] = 0;
        break;
    }
  }
  /* copy pkg.exe to the new drive, along with all packages */
  snprintf(buff, sizeof(buff), "%c:\\TEMP\\pkg.exe", targetdrv);
  snprintf(buff + 64, sizeof(buff) - 64, "%c:\\pkg.exe", srcdrv);
  fcopy(buff, buff + 64, buff, sizeof(buff));
 
  /* open the post-install autoexec.bat and prepare initial instructions */
  snprintf(buff, sizeof(buff), "%c:\\temp\\postinst.bat", targetdrv);
  fd = fopen(buff, "wb");
  if (fd == NULL) return(-1);
  fprintf(fd, "@ECHO OFF\r\nECHO INSTALLING SVARDOS BUILD %s\r\n", BUILDSTRING);
 
  /* move COMMAND.COM so it does not clashes with the installation of the SVARCOM package */
  fprintf(fd, "COPY \\COMMAND.COM \\CMD.COM\r\n");
  fprintf(fd, "SET COMSPEC=%c:\\CMD.COM\r\n", targetdrv);
  fprintf(fd, "DEL \\COMMAND.COM\r\n");
 
  /* copy packages */
  for (i = 0;; i++) {
    RETRY_ENTIRE_LIST:
 
    /* move forward to nearest entry or end of list */
    for (pkgptr = pkglist; *pkgptr == 0; pkgptr++);
    if (*pkgptr == 0xff) break; /* end of list: means all packages have been processed */
 
    /* is this package present on the floppy disk? */
    TRY_NEXTPKG:
    sprintf(buff, "%s.svp", pkgptr);
    if (!fileexists(buff)) {
      while (*pkgptr != 0) pkgptr++;
      while (*pkgptr == 0) pkgptr++;
      /* end of list? ask for next floppy, there's nothing interesting left on this one */
      if (*pkgptr == 0xff) {
        putstringnls(12, 1, COLOR_BODY, 4, 1); /* "INSERT THE DISK THAT CONTAINS THE REQUIRED FILE AND PRESS ANY KEY" */
        mdr_dos_getkey();
        video_putstringfix(12, 1, COLOR_BODY, "", 80); /* erase the 'insert disk' message */
        goto RETRY_ENTIRE_LIST;
      }
      goto TRY_NEXTPKG;
    }
 
    /* install the package */
    snprintf(buff, sizeof(buff), svarlang_strid(0x0400), i+1, pkglistlen, pkgptr); /* "Installing package %d/%d: %s" */
    strcat(buff, "       ");
    mdr_cout_str(10, 1, buff, COLOR_BODY, 40);
 
    /* proceed with package copy */
    sprintf(buff, "%c:\\temp\\%s.svp", targetdrv, pkgptr);
    if (fcopy(buff, buff + 7, buff, sizeof(buff)) != 0) {
      mdr_cout_str(10, 30, "READ ERROR", COLOR_BODY, 80);
      mdr_dos_getkey();
      fclose(fd);
      return(-1);
    }
    /* write install instruction to post-install script */
    fprintf(fd, "pkg install %s.svp\r\ndel %s.svp\r\n", pkgptr, pkgptr);
    /* jump to next entry or end of list and zero out the pkg name in the process */
    while ((*pkgptr != 0) && (*pkgptr != 0xff)) {
      *pkgptr = 0;
      pkgptr++;
    }
  }
  /* set up locales so the "installation over" message is nicely displayed */
  genlocalesconf(fd, locales);
  /* replace autoexec.bat and config.sys now and write some nice message on screen */
  fprintf(fd, "DEL pkg.exe\r\n"
              "COPY CONFIG.SYS C:\\\r\n"
              "DEL CONFIG.SYS\r\n"
              "DEL C:\\AUTOEXEC.BAT\r\n"
              "COPY AUTOEXEC.BAT C:\\\r\n"
              "DEL AUTOEXEC.BAT\r\n"
              "SET COMSPEC=C:\\COMMAND.COM\r\n"
              "DEL \\CMD.COM\r\n");
  /* print out the "installation over" message */
  fprintf(fd, "ECHO.\r\n"
              "ECHO ");
  fprintf(fd, svarlang_strid(0x0501), BUILDSTRING); /* "SvarDOS installation is over. Please restart your computer now" */
  fprintf(fd, "\r\n"
              "ECHO.\r\n");
  fclose(fd);
 
  /* prepare a dummy autoexec.bat that will call temp\postinst.bat */
  snprintf(buff, sizeof(buff), "%c:\\autoexec.bat", targetdrv);
  fd = fopen(buff, "wb");
  if (fd == NULL) return(-1);
  fprintf(fd, "@ECHO OFF\r\n"
              "SET DOSDIR=C:\\SVARDOS\r\n"
              "SET NLSPATH=%%DOSDIR%%\\NLS\r\n"
              "PATH %%DOSDIR%%\r\n");
  fprintf(fd, "CD TEMP\r\n"
              "postinst.bat\r\n");
  fclose(fd);
 
  return(0);
}
 
 
static void finalreboot(void) {
  int y = 9;
  newscreen(2);
  y += putstringnls(y, 1, COLOR_BODY, 5, 0); /* "Your computer will reboot now.\nPlease remove the installation disk from your drive" */
  putstringnls(++y, 1, COLOR_BODY, 0, 5); /* "Press any key..." */
  mdr_dos_getkey();
  reboot();
}
 
 
static void loadcp(const struct slocales *locales) {
  char buff[64];
  if (locales->codepage == 437) return;
  mdr_cout_locate(1, 0);
  if (locales->egafile == 1) {
    snprintf(buff, sizeof(buff), "MODE CON CP PREP=((%u) EGA.CPX) > NUL", locales->codepage);
  } else {
    snprintf(buff, sizeof(buff), "MODE CON CP PREP=((%u) EGA%d.CPX) > NUL", locales->codepage, locales->egafile);
  }
  system(buff);
  snprintf(buff, sizeof(buff), "MODE CON CP SEL=%u > NUL", locales->codepage);
  system(buff);
  /* below I re-init the video controller - apparently this is required if
   * I want the new glyph symbols to be actually applied, at least some
   * (broken?) BIOSes, like VBox, apply glyphs only at next video mode change */
  {
  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.al |= 128; /* set the high bit of AL to instruct BIOS not to flush VRAM's content (EGA+) */
  r.h.ah = 0; /* re-set video mode (to whatever is set in AL) */
  int86(0x10, &r, &r);
  }
}
 
 
#ifdef DEADCODE
/* checks that drive drv contains SvarDOS packages
 * returns 0 if found, non-zero otherwise */
static int checkinstsrc(char drv) {
  char fname[16];
  snprintf(fname, sizeof(fname), "%c:\\ATTRIB.SVP", drv);
  return(!fileexists(fname));
}
#endif
 
 
int main(void) {
  struct slocales locales;
  int targetdrv;
  int sourcedrv;
  int action;
 
  /* setup the internal int 24h handler ("always fail") */
  int24hdl();
 
  /* read the svardos build revision (from floppy label) */
  {
    const char *fspec = "*.*";
    const char *res = (void*)0x9E; /* default DTA is at PSP:80h, field 1Eh of DTA is the ASCIZ file name */
 
    _asm {
      push cx
      push dx
 
      mov ax, 0x4e00  /* findfirst */
      mov cx, 0x08    /* file attr mask, 0x08 = volume label */
      mov dx, fspec
      int 0x21
      jnc good
 
      mov bx, res
      mov [bx], byte ptr 0
 
      good:
 
      pop dx
      pop cx
    }
 
    memcpy(BUILDSTRING, res, 12);
  }
 
  sourcedrv = get_cur_drive() + 'A';
 
  /* init screen and detect mono adapters */
  if (mdr_cout_init(NULL, NULL) == 0) {
    /* overload color scheme with mono settings */
    COLOR_TITLEBAR = 0x70;
    COLOR_TITLEVER = 0x70;
    COLOR_BODY = 0x07;
    COLOR_SELECT = 0x70;
    COLOR_SELECTCUR = 0x07;
  }
 
 SelectLang:
  action = selectlang(&locales); /* welcome to svardos, select your language */
  if (action != MENUNEXT) goto Quit;
  loadcp(&locales);
  svarlang_load("INSTALL.LNG", locales.lang); /* NLS support */
 
  action = selectkeyb(&locales);  /* what keyb layout should we use? */
  if (action == MENUQUIT) goto Quit;
  if (action == MENUPREV) {
    if (!fileexists("INSTALL.LNG")) goto Quit;
    goto SelectLang;
  }
 
 WelcomeScreen:
  action = welcomescreen(); /* what svardos is, ask whether to run live dos or install */
  if (action == MENUQUIT) goto Quit;
  if (action == MENUPREV) goto SelectLang;
 
  targetdrv = preparedrive(sourcedrv); /* what drive should we install from? check avail. space */
  if (targetdrv == MENUQUIT) goto Quit;
  if (targetdrv == MENUPREV) goto WelcomeScreen;
  bootfilesgen(targetdrv, &locales); /* generate boot files and other configurations */
  if (installpackages(targetdrv, sourcedrv, &locales) != 0) goto Quit;    /* install packages */
  /*localcfg();*/ /* show local params (currency, etc), and propose to change them (based on localcfg) */
  /*netcfg();*/ /* basic networking config */
  finalreboot(); /* remove the CD and reboot */
 
 Quit:
  mdr_cout_locate(0, 0);
  mdr_cout_close();
  return(0);
}
 

Rev 1671	Rev 1672
1	`/*`	1	`/*`
2	`* SVARDOS INSTALL PROGRAM`	2	`* SVARDOS INSTALL PROGRAM`
3	`*`	3	`*`
4	`* PUBLISHED UNDER THE TERMS OF THE MIT LICENSE`	4	`* PUBLISHED UNDER THE TERMS OF THE MIT LICENSE`
5	`*`	5	`*`
6	`* COPYRIGHT (C) 2016-2024 MATEUSZ VISTE, ALL RIGHTS RESERVED.`	6	`* COPYRIGHT (C) 2016-2024 MATEUSZ VISTE, ALL RIGHTS RESERVED.`
7	`*`	7	`*`
8	`* Permission is hereby granted, free of charge, to any person obtaining a`	8	`* Permission is hereby granted, free of charge, to any person obtaining a`
9	`* copy of this software and associated documentation files (the "Software"),`	9	`* copy of this software and associated documentation files (the "Software"),`
10	`* to deal in the Software without restriction, including without limitation`	10	`* to deal in the Software without restriction, including without limitation`
11	`* the rights to use, copy, modify, merge, publish, distribute, sublicense,`	11	`* the rights to use, copy, modify, merge, publish, distribute, sublicense,`
12	`* and/or sell copies of the Software, and to permit persons to whom the`	12	`* and/or sell copies of the Software, and to permit persons to whom the`
13	`* Software is furnished to do so, subject to the following conditions:`	13	`* Software is furnished to do so, subject to the following conditions:`
14	`*`	14	`*`
15	`* The above copyright notice and this permission notice shall be included in`	15	`* The above copyright notice and this permission notice shall be included in`
16	`* all copies or substantial portions of the Software.`	16	`* all copies or substantial portions of the Software.`
17	`*`	17	`*`
18	`* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR`	18	`* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR`
19	`* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,`	19	`* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,`
20	`* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE`	20	`* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE`
21	`* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER`	21	`* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER`
22	`* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING`	22	`* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING`
23	`* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER`	23	`* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER`
24	`* DEALINGS IN THE SOFTWARE.`	24	`* DEALINGS IN THE SOFTWARE.`
25	`*`	25	`*`
26	`* http://svardos.org`	26	`* http://svardos.org`
27	`*/`	27	`*/`
28		28
29	`#include <dos.h>`	29	`#include <dos.h>`
30	`#include <direct.h> /* mkdir() */`	30	`#include <direct.h> /* mkdir() */`
31	`#include <stdio.h> /* printf() and friends */`	31	`#include <stdio.h> /* printf() and friends */`
32	`#include <stdlib.h> /* system() */`	32	`#include <stdlib.h> /* system() */`
33	`#include <string.h> /* memcpy() */`	33	`#include <string.h> /* memcpy() */`
34	`#include <unistd.h>`	34	`#include <unistd.h>`
35		35
36	`#include "mdr\cout.h"`	36	`#include "mdr\cout.h"`
37	`#include "mdr\dos.h"`	37	`#include "mdr\dos.h"`
38	`#include "svarlang.lib\svarlang.h"`	38	`#include "svarlang.lib\svarlang.h"`
39		39
40	`/* keyboard layouts and locales */`	40	`/* keyboard layouts and locales */`
41	`#include "keylay.h"`	41	`#include "keylay.h"`
42	`#include "keyoff.h"`	42	`#include "keyoff.h"`
43		43
44	`/* prototype of the int24hdl() function defined in int24hdl.asm */`	44	`/* prototype of the int24hdl() function defined in int24hdl.asm */`
45	`void int24hdl(void);`	45	`void int24hdl(void);`
46		46
47		47
48	`/* color scheme (preset for color) */`	48	`/* color scheme (preset for color) */`
49	`static unsigned char COLOR_TITLEBAR = 0x70;`	49	`static unsigned char COLOR_TITLEBAR = 0x70;`
50	`static unsigned char COLOR_TITLEVER = 0x78;`	50	`static unsigned char COLOR_TITLEVER = 0x78;`
51	`static unsigned char COLOR_BODY = 0x17;`	51	`static unsigned char COLOR_BODY = 0x17;`
52	`static unsigned char COLOR_SELECT = 0x70;`	52	`static unsigned char COLOR_SELECT = 0x70;`
53	`static unsigned char COLOR_SELECTCUR = 0x1F;`	53	`static unsigned char COLOR_SELECTCUR = 0x1F;`
54		54
55	`/* build release string, populated at startup by reading floppy's label */`	55	`/* build release string, populated at startup by reading floppy's label */`
56	`static char BUILDSTRING[13];`	56	`static char BUILDSTRING[13];`
57		57
58	`/* how much disk space does SvarDOS require (in MiB) */`	58	`/* how much disk space does SvarDOS require (in MiB) */`
59	`#define SVARDOS_DISK_REQ 8`	59	`#define SVARDOS_DISK_REQ 8`
60		60
61	`/* menu screens can output only one of these: */`	61	`/* menu screens can output only one of these: */`
62	`#define MENUNEXT 0`	62	`#define MENUNEXT 0`
63	`#define MENUPREV -1`	63	`#define MENUPREV -1`
64	`#define MENUQUIT -2`	64	`#define MENUQUIT -2`
65		65
66	`/* a convenience 'function' used for debugging */`	66	`/* a convenience 'function' used for debugging */`
67	`#define DBG(x) { video_putstringfix(24, 0, 0x4F00u, x, 80); }`	67	`#define DBG(x) { video_putstringfix(24, 0, 0x4F00u, x, 80); }`
68		68
69	`struct slocales {`	69	`struct slocales {`
70	`char lang[4];`	70	`char lang[4];`
71	`const char *keybcode;`	71	`const char *keybcode;`
72	`unsigned int codepage;`	72	`unsigned int codepage;`
73	`int egafile;`	73	`int egafile;`
74	`int keybfile;`	74	`int keybfile;`
75	`int keyboff;`	75	`int keyboff;`
76	`int keyblen;`	76	`int keyblen;`
77	`unsigned int keybid;`	77	`unsigned int keybid;`
78	`};`	78	`};`
79		79
80		80
81	`/* put a string on screen and fill it until w chars with whilte space */`	81	`/* put a string on screen and fill it until w chars with whilte space */`
82	`static void video_putstringfix(unsigned char y, unsigned char x, unsigned char attr, const char *s, unsigned char w) {`	82	`static void video_putstringfix(unsigned char y, unsigned char x, unsigned char attr, const char *s, unsigned char w) {`
83	`unsigned char i;`	83	`unsigned char i;`
84		84
85	`/* print the string up to w characters */`	85	`/* print the string up to w characters */`
86	`i = mdr_cout_str(y, x, s, attr, w);`	86	`i = mdr_cout_str(y, x, s, attr, w);`
87		87
88	`/* fill in left space (if any) with blanks */`	88	`/* fill in left space (if any) with blanks */`
89	`mdr_cout_char_rep(y, x + i, ' ', attr, w - i);`	89	`mdr_cout_char_rep(y, x + i, ' ', attr, w - i);`
90	`}`	90	`}`
91		91
92		92
93	`/* reboot the computer */`	93	`/* reboot the computer */`
94	`static void reboot(void) {`	94	`static void reboot(void) {`
95	`void ((far bootroutine)()) = (void (far )()) 0xFFFF0000L;`	95	`void ((far bootroutine)()) = (void (far )()) 0xFFFF0000L;`
96	`int far rstaddr = (int far )0x00400072L; /* BIOS boot flag is at 0040:0072 */`	96	`int far rstaddr = (int far )0x00400072L; /* BIOS boot flag is at 0040:0072 */`
97	`rstaddr = 0x1234; / 0x1234 = warm boot, 0 = cold boot */`	97	`rstaddr = 0x1234; / 0x1234 = warm boot, 0 = cold boot */`
98	`(bootroutine)(); / jump to the BIOS reboot routine at FFFF:0000 */`	98	`(bootroutine)(); / jump to the BIOS reboot routine at FFFF:0000 */`
99	`}`	99	`}`
100		100
101		101
102	`/* returns 1 if file exists, zero otherwise */`	102	`/* returns 1 if file exists, zero otherwise */`
103	`static int fileexists(const char *fname) {`	103	`static int fileexists(const char *fname) {`
104	`FILE *fd;`	104	`FILE *fd;`
105	`fd = fopen(fname, "rb");`	105	`fd = fopen(fname, "rb");`
106	`if (fd == NULL) return(0);`	106	`if (fd == NULL) return(0);`
107	`fclose(fd);`	107	`fclose(fd);`
108	`return(1);`	108	`return(1);`
109	`}`	109	`}`
110		110
111		111
112	`/* outputs a string to screen with taking care of word wrapping. returns amount of lines. */`	112	`/* outputs a string to screen with taking care of word wrapping. returns amount of lines. */`
113	`static unsigned char putstringwrap(unsigned char y, unsigned char x, unsigned char attr, const char *s) {`	113	`static unsigned char putstringwrap(unsigned char y, unsigned char x, unsigned char attr, const char *s) {`
114	`unsigned char linew, lincount;`	114	`unsigned char linew, lincount;`
115	`linew = 80 - (x << 1);`	115	`linew = 80 - (x << 1);`
116		116
117	`for (lincount = 1; y+lincount < 25; lincount++) {`	117	`for (lincount = 1; y+lincount < 25; lincount++) {`
118	`int i, len = linew;`	118	`int i, len = linew;`
119	`for (i = 0; i <= linew; i++) {`	119	`for (i = 0; i <= linew; i++) {`
120	`if (s[i] == ' ') len = i;`	120	`if (s[i] == ' ') len = i;`
121	`if (s[i] == '\n') {`	121	`if (s[i] == '\n') {`
122	`len = i;`	122	`len = i;`
123	`break;`	123	`break;`
124	`}`	124	`}`
125	`if (s[i] == 0) {`	125	`if (s[i] == 0) {`
126	`len = i;`	126	`len = i;`
127	`break;`	127	`break;`
128	`}`	128	`}`
129	`}`	129	`}`
130	`mdr_cout_str(y++, x, s, attr, len);`	130	`mdr_cout_str(y++, x, s, attr, len);`
131	`s += len;`	131	`s += len;`
132	`if (*s == 0) break;`	132	`if (*s == 0) break;`
133	`s += 1; /* skip the whitespace char */`	133	`s += 1; /* skip the whitespace char */`
134	`}`	134	`}`
135	`return(lincount);`	135	`return(lincount);`
136	`}`	136	`}`
137		137
138		138
139	`/* an NLS wrapper around video_putstring(), also performs line wrapping when`	139	`/* an NLS wrapper around video_putstring(), also performs line wrapping when`
140	`* needed. returns the amount of lines that were output */`	140	`* needed. returns the amount of lines that were output */`
141	`static unsigned char putstringnls(unsigned char y, unsigned char x, unsigned char attr, unsigned char nlsmaj, unsigned char nlsmin) {`	141	`static unsigned char putstringnls(unsigned char y, unsigned char x, unsigned char attr, unsigned char nlsmaj, unsigned char nlsmin) {`
142	`const char *s = svarlang_str(nlsmaj, nlsmin);`	142	`const char *s = svarlang_str(nlsmaj, nlsmin);`
143	`if (s == NULL) s = "";`	143	`if (s == NULL) s = "";`
144	`return(putstringwrap(y, x, attr, s));`	144	`return(putstringwrap(y, x, attr, s));`
145	`}`	145	`}`
146		146
147		147
148	`/* copy file f1 to f2 using buff as a buffer of buffsz bytes. f2 will be overwritten if it`	148	`/* copy file f1 to f2 using buff as a buffer of buffsz bytes. f2 will be overwritten if it`
149	`* exists already! returns 0 on success. */`	149	`* exists already! returns 0 on success. */`
150	`static int fcopy(const char f2, const char f1, void *buff, size_t buffsz) {`	150	`static int fcopy(const char f2, const char f1, void *buff, size_t buffsz) {`
151	`FILE fd1, fd2;`	151	`FILE fd1, fd2;`
152	`size_t sz;`	152	`size_t sz;`
153	`int res = -1; /* assume failure */`	153	`int res = -1; /* assume failure */`
154		154
155	`/* open files */`	155	`/* open files */`
156	`fd1 = fopen(f1, "rb");`	156	`fd1 = fopen(f1, "rb");`
157	`fd2 = fopen(f2, "wb");`	157	`fd2 = fopen(f2, "wb");`
158	`if ((fd1 == NULL) \|\| (fd2 == NULL)) goto QUIT;`	158	`if ((fd1 == NULL) \|\| (fd2 == NULL)) goto QUIT;`
159		159
160	`/* copy data */`	160	`/* copy data */`
161	`for (;;) {`	161	`for (;;) {`
162	`sz = fread(buff, 1, buffsz, fd1);`	162	`sz = fread(buff, 1, buffsz, fd1);`
163	`if (sz == 0) {`	163	`if (sz == 0) {`
164	`if (feof(fd1) != 0) break;`	164	`if (feof(fd1) != 0) break;`
165	`goto QUIT;`	165	`goto QUIT;`
166	`}`	166	`}`
167	`if (fwrite(buff, 1, sz, fd2) != sz) goto QUIT;`	167	`if (fwrite(buff, 1, sz, fd2) != sz) goto QUIT;`
168	`}`	168	`}`
169		169
170	`res = 0; /* success */`	170	`res = 0; /* success */`
171		171
172	`QUIT:`	172	`QUIT:`
173	`if (fd1 != NULL) fclose(fd1);`	173	`if (fd1 != NULL) fclose(fd1);`
174	`if (fd2 != NULL) fclose(fd2);`	174	`if (fd2 != NULL) fclose(fd2);`
175	`return(res);`	175	`return(res);`
176	`}`	176	`}`
177		177
178		178
179	`/* display a menu with items and return user's choice.`	179	`/* display a menu with items and return user's choice.`
180	`* ypos: starting line where the menu is drawn`	180	`* ypos: starting line where the menu is drawn`
181	`* height: number of items to display inside the menu`	181	`* height: number of items to display inside the menu`
182	`* list: NULL-terminated list of items`	182	`* list: NULL-terminated list of items`
183	`* maxlistlen: limit list to this many items tops */`	183	`* maxlistlen: limit list to this many items tops */`
184	`static int menuselect(unsigned char ypos, unsigned char height, const char **list, int maxlistlen) {`	184	`static int menuselect(unsigned char ypos, unsigned char height, const char **list, int maxlistlen) {`
185	`int i, offset = 0, res = 0, count;`	185	`int i, offset = 0, res = 0, count;`
186	`unsigned char y, xpos, width = 0;`	186	`unsigned char y, xpos, width = 0;`
187		187
188	`/* count how many positions there are, and check their width */`	188	`/* count how many positions there are, and check their width */`
189	`for (count = 0; (list[count] != NULL) && (count != maxlistlen); count++) {`	189	`for (count = 0; (list[count] != NULL) && (count != maxlistlen); count++) {`
190	`int len = strlen(list[count]);`	190	`int len = strlen(list[count]);`
191	`if (len > width) width = len;`	191	`if (len > width) width = len;`
192	`}`	192	`}`
193	`width++; /* it's nice to have a small margin to the right of the widest item */`	193	`width++; /* it's nice to have a small margin to the right of the widest item */`
194		194
195	`/* if xpos negative, means 'center out' */`	195	`/* if xpos negative, means 'center out' */`
196	`xpos = 39 - (width >> 1);`	196	`xpos = 39 - (width >> 1);`
197		197
198	`mdr_cout_char_rep(ypos, xpos, 0xC4, COLOR_SELECT, width + 2); /* top line */`	198	`mdr_cout_char_rep(ypos, xpos, 0xC4, COLOR_SELECT, width + 2); /* top line */`
199	`mdr_cout_char(ypos, xpos+width+2, 0xBF, COLOR_SELECT); /* \ */`	199	`mdr_cout_char(ypos, xpos+width+2, 0xBF, COLOR_SELECT); /* \ */`
200	`mdr_cout_char(ypos, xpos-1, 0xDA, COLOR_SELECT); /* / */`	200	`mdr_cout_char(ypos, xpos-1, 0xDA, COLOR_SELECT); /* / */`
201	`ypos++; /* from now on ypos relates to the position of the content */`	201	`ypos++; /* from now on ypos relates to the position of the content */`
202	`mdr_cout_char(ypos+height, xpos-1, 0xC0, COLOR_SELECT); /* \ */`	202	`mdr_cout_char(ypos+height, xpos-1, 0xC0, COLOR_SELECT); /* \ */`
203	`mdr_cout_char(ypos+height, xpos+width+2, 0xD9, COLOR_SELECT);/* / */`	203	`mdr_cout_char(ypos+height, xpos+width+2, 0xD9, COLOR_SELECT);/* / */`
204	`mdr_cout_char_rep(ypos+height, xpos, 0xC4, COLOR_SELECT, width + 2);`	204	`mdr_cout_char_rep(ypos+height, xpos, 0xC4, COLOR_SELECT, width + 2);`
205		205
206	`for (;;) {`	206	`for (;;) {`
207	`int key;`	207	`int key;`
208		208
209	`/* draw side borders of the menu + the cursor */`	209	`/* draw side borders of the menu + the cursor */`
210	`if (count <= height) { /* no need for a cursor, all fits on one page */`	210	`if (count <= height) { /* no need for a cursor, all fits on one page */`
211	`i = 255;`	211	`i = 255;`
212	`} else {`	212	`} else {`
213	`i = offset * (height - 1) / (count - height);`	213	`i = offset * (height - 1) / (count - height);`
214	`}`	214	`}`
215		215
216	`for (y = ypos; y < (ypos + height); y++) {`	216	`for (y = ypos; y < (ypos + height); y++) {`
217	`mdr_cout_char(y, xpos-1, 0xB3, COLOR_SELECT); /* left side */`	217	`mdr_cout_char(y, xpos-1, 0xB3, COLOR_SELECT); /* left side */`
218	`if (y - ypos == i) {`	218	`if (y - ypos == i) {`
219	`mdr_cout_char(y, xpos+width+2, '=', COLOR_SELECT); /* cursor */`	219	`mdr_cout_char(y, xpos+width+2, '=', COLOR_SELECT); /* cursor */`
220	`} else {`	220	`} else {`
221	`mdr_cout_char(y, xpos+width+2, 0xB3, COLOR_SELECT); /* right side */`	221	`mdr_cout_char(y, xpos+width+2, 0xB3, COLOR_SELECT); /* right side */`
222	`}`	222	`}`
223	`}`	223	`}`
224		224
225	`/* list of selectable items */`	225	`/* list of selectable items */`
226	`for (i = 0; i < height; i++) {`	226	`for (i = 0; i < height; i++) {`
227	`if (i + offset == res) {`	227	`if (i + offset == res) {`
228	`mdr_cout_char(ypos + i, xpos, 16, COLOR_SELECTCUR);`	228	`mdr_cout_char(ypos + i, xpos, 16, COLOR_SELECTCUR);`
229	`mdr_cout_char(ypos + i, xpos+width+1, 17, COLOR_SELECTCUR);`	229	`mdr_cout_char(ypos + i, xpos+width+1, 17, COLOR_SELECTCUR);`
230	`mdr_cout_locate(ypos + i, xpos);`	230	`mdr_cout_locate(ypos + i, xpos);`
231	`video_putstringfix(ypos + i, xpos+1, COLOR_SELECTCUR, list[i + offset], width);`	231	`video_putstringfix(ypos + i, xpos+1, COLOR_SELECTCUR, list[i + offset], width);`
232	`} else if (i + offset < count) {`	232	`} else if (i + offset < count) {`
233	`mdr_cout_char(ypos + i, xpos, ' ', COLOR_SELECT);`	233	`mdr_cout_char(ypos + i, xpos, ' ', COLOR_SELECT);`
234	`mdr_cout_char(ypos + i, xpos+width+1, ' ', COLOR_SELECT);`	234	`mdr_cout_char(ypos + i, xpos+width+1, ' ', COLOR_SELECT);`
235	`video_putstringfix(ypos + i, xpos+1, COLOR_SELECT, list[i + offset], width);`	235	`video_putstringfix(ypos + i, xpos+1, COLOR_SELECT, list[i + offset], width);`
236	`} else {`	236	`} else {`
237	`mdr_cout_char_rep(ypos + i, xpos, ' ', COLOR_SELECT, width+2);`	237	`mdr_cout_char_rep(ypos + i, xpos, ' ', COLOR_SELECT, width+2);`
238	`}`	238	`}`
239	`}`	239	`}`
240	`key = mdr_dos_getkey();`	240	`key = mdr_dos_getkey();`
241	`if (key == 0x0D) { /* ENTER */`	241	`if (key == 0x0D) { /* ENTER */`
242	`return(res);`	242	`return(res);`
243	`} else if (key == 0x148) { /* up */`	243	`} else if (key == 0x148) { /* up */`
244	`if (res > 0) {`	244	`if (res > 0) {`
245	`res--;`	245	`res--;`
246	`if (res < offset) offset = res;`	246	`if (res < offset) offset = res;`
247	`}`	247	`}`
248	`} else if (key == 0x150) { /* down */`	248	`} else if (key == 0x150) { /* down */`
249	`if (res+1 < count) {`	249	`if (res+1 < count) {`
250	`res++;`	250	`res++;`
251	`if (res > offset + height - 1) offset = res - (height - 1);`	251	`if (res > offset + height - 1) offset = res - (height - 1);`
252	`}`	252	`}`
253	`} else if (key == 0x147) { /* home */`	253	`} else if (key == 0x147) { /* home */`
254	`res = 0;`	254	`res = 0;`
255	`offset = 0;`	255	`offset = 0;`
256	`} else if (key == 0x14F) { /* end */`	256	`} else if (key == 0x14F) { /* end */`
257	`res = count - 1;`	257	`res = count - 1;`
258	`if (res > offset + height - 1) offset = res - (height - 1);`	258	`if (res > offset + height - 1) offset = res - (height - 1);`
259	`} else if (key == 0x1B) { /* ESC */`	259	`} else if (key == 0x1B) { /* ESC */`
260	`return(-1);`	260	`return(-1);`
261	`}/* else {`	261	`}/* else {`
262	`char buf[8];`	262	`char buf[8];`
263	`snprintf(buf, sizeof(buf), "0x%02X ", key);`	263	`snprintf(buf, sizeof(buf), "0x%02X ", key);`
264	`video_putstring(1, 0, COLOR_BODY, buf, -1);`	264	`video_putstring(1, 0, COLOR_BODY, buf, -1);`
265	`}*/`	265	`}*/`
266	`}`	266	`}`
267	`}`	267	`}`
268		268
269	`static void newscreen(unsigned char statusbartype) {`	269	`static void newscreen(unsigned char statusbartype) {`
270	`const char *msg;`	270	`const char *msg;`
271	`mdr_cout_cls(COLOR_BODY);`	271	`mdr_cout_cls(COLOR_BODY);`
272	`msg = svarlang_strid(0x00); /* "SVARDOS INSTALLATION" */`	272	`msg = svarlang_strid(0x00); /* "SVARDOS INSTALLATION" */`
273	`mdr_cout_char_rep(0, 0, ' ', COLOR_TITLEBAR, 80);`	273	`mdr_cout_char_rep(0, 0, ' ', COLOR_TITLEBAR, 80);`
274	`mdr_cout_str(0, 40 - (strlen(msg) >> 1), msg, COLOR_TITLEBAR, 80);`	274	`mdr_cout_str(0, 40 - (strlen(msg) >> 1), msg, COLOR_TITLEBAR, 80);`
275	`mdr_cout_str(0, 80 - strlen(BUILDSTRING), BUILDSTRING, COLOR_TITLEVER, 12);`	275	`mdr_cout_str(0, 80 - strlen(BUILDSTRING), BUILDSTRING, COLOR_TITLEVER, 12);`
276		276
277	`switch (statusbartype) {`	277	`switch (statusbartype) {`
278	`case 1:`	278	`case 1:`
279	`msg = svarlang_strid(0x000B); /* "Up/Down = Select entry \| Enter = Validate your choice \| ESC = Quit to DOS" */`	279	`msg = svarlang_strid(0x000B); /* "Up/Down = Select entry \| Enter = Validate your choice \| ESC = Quit to DOS" */`
280	`break;`	280	`break;`
281	`case 2:`	281	`case 2:`
282	`msg = svarlang_strid(0x0005); /* "Press any key..." */`	282	`msg = svarlang_strid(0x0005); /* "Press any key..." */`
283	`break;`	283	`break;`
284	`case 3:`	284	`case 3:`
285	`msg = "";`	285	`msg = "";`
286	`break;`	286	`break;`
287	`default:`	287	`default:`
288	`msg = svarlang_strid(0x000A); /* "Up/Down = Select entry \| Enter = Validate your choice \| ESC = Previous screen" */`	288	`msg = svarlang_strid(0x000A); /* "Up/Down = Select entry \| Enter = Validate your choice \| ESC = Previous screen" */`
289	`break;`	289	`break;`
290	`}`	290	`}`
291	`mdr_cout_char(24, 0, ' ', COLOR_TITLEBAR);`	291	`mdr_cout_char(24, 0, ' ', COLOR_TITLEBAR);`
292	`video_putstringfix(24, 1, COLOR_TITLEBAR, msg, 79);`	292	`video_putstringfix(24, 1, COLOR_TITLEBAR, msg, 79);`
293	`mdr_cout_locate(25,0);`	293	`mdr_cout_locate(25,0);`
294	`}`	294	`}`
295		295
296	`/* fills a slocales struct accordingly to the value of its keyboff member */`	296	`/* fills a slocales struct accordingly to the value of its keyboff member */`
297	`static void kblay2slocal(struct slocales *locales) {`	297	`static void kblay2slocal(struct slocales *locales) {`
298	`const char *m;`	298	`const char *m;`
299	`for (m = kblayouts[locales->keyboff]; m != 0; m++); / skip layout name */`	299	`for (m = kblayouts[locales->keyboff]; m != 0; m++); / skip layout name */`
300	`m++;`	300	`m++;`
301	`/* skip keyb code and copy it to locales.keybcode */`	301	`/* skip keyb code and copy it to locales.keybcode */`
302	`locales->keybcode = m;`	302	`locales->keybcode = m;`
303	`for (; *m != 0; m++);`	303	`for (; *m != 0; m++);`
304	`/* */`	304	`/* */`
305	`locales->codepage = ((unsigned short)m[1] << 8) \| m[2];`	305	`locales->codepage = ((unsigned short)m[1] << 8) \| m[2];`
306	`locales->egafile = m[3];`	306	`locales->egafile = m[3];`
307	`locales->keybfile = m[4];`	307	`locales->keybfile = m[4];`
308	`locales->keybid = ((unsigned short)m[5] << 8) \| m[6];`	308	`locales->keybid = ((unsigned short)m[5] << 8) \| m[6];`
309	`}`	309	`}`
310		310
311	`static int selectlang(struct slocales *locales) {`	311	`static int selectlang(struct slocales *locales) {`
312	`int choice, x;`	312	`int choice, x;`
313	`const char *msg;`	313	`const char *msg;`
314	`const char *langlist[] = {`	314	`const char *langlist[] = {`
315	`"English",`	315	`"English",`
316	`"Brazilian",`	316	`"Brazilian",`
317	`"French",`	317	`"French",`
318	`"German",`	318	`"German",`
319	`"Italian",`	319	`"Italian",`
320	`"Polish",`	320	`"Polish",`
321	`"Russian",`	321	`"Russian",`
322	`"Slovene",`	322	`"Slovene",`
323	`"Swedish",`	323	`"Swedish",`
324	`"Turkish",`	324	`"Turkish",`
325	`NULL`	325	`NULL`
326	`};`	326	`};`
327		327
328	`/* do not ask for language on non-multilang setups */`	328	`/* do not ask for language on non-multilang setups */`
329	`if (!fileexists("INSTALL.LNG")) {`	329	`if (!fileexists("INSTALL.LNG")) {`
330	`choice = 0;`	330	`choice = 0;`
331	`goto SkipLangSelect;`	331	`goto SkipLangSelect;`
332	`}`	332	`}`
333		333
334	`newscreen(1);`	334	`newscreen(1);`
335	`msg = svarlang_strid(0x0100); /* "Welcome to SvarDOS" */`	335	`msg = svarlang_strid(0x0100); /* "Welcome to SvarDOS" */`
336	`x = 40 - (strlen(msg) >> 1);`	336	`x = 40 - (strlen(msg) >> 1);`
337	`mdr_cout_str(4, x, msg, COLOR_BODY, 80);`	337	`mdr_cout_str(4, x, msg, COLOR_BODY, 80);`
338	`mdr_cout_char_rep(5, x, '=', COLOR_BODY, strlen(msg));`	338	`mdr_cout_char_rep(5, x, '=', COLOR_BODY, strlen(msg));`
339		339
340	`/* center out the string "Please select your language..." */`	340	`/* center out the string "Please select your language..." */`
341	`msg = svarlang_str(1, 1); /* "Please select your language from the list below:" */`	341	`msg = svarlang_str(1, 1); /* "Please select your language from the list below:" */`
342	`if (strlen(msg) > 74) {`	342	`if (strlen(msg) > 74) {`
343	`putstringwrap(8, 1, COLOR_BODY, msg);`	343	`putstringwrap(8, 1, COLOR_BODY, msg);`
344	`} else {`	344	`} else {`
345	`mdr_cout_str(8, 40 - (strlen(msg) / 2), msg, COLOR_BODY, 80);`	345	`mdr_cout_str(8, 40 - (strlen(msg) / 2), msg, COLOR_BODY, 80);`
346	`}`	346	`}`
347		347
348	`choice = menuselect(11, 9, langlist, -1);`	348	`choice = menuselect(11, 9, langlist, -1);`
349	`if (choice < 0) return(MENUPREV);`	349	`if (choice < 0) return(MENUPREV);`
350		350
351	`SkipLangSelect:`	351	`SkipLangSelect:`
352		352
353	`/* populate locales with default values */`	353	`/* populate locales with default values */`
354	`memset(locales, 0, sizeof(struct slocales));`	354	`memset(locales, 0, sizeof(struct slocales));`
355	`switch (choice) {`	355	`switch (choice) {`
356	`case 1:`	356	`case 1:`
357	`strcpy(locales->lang, "BR");`	357	`strcpy(locales->lang, "BR");`
358	`locales->keyboff = OFFLOC_BR;`	358	`locales->keyboff = OFFLOC_BR;`
359	`locales->keyblen = OFFLEN_BR;`	359	`locales->keyblen = OFFLEN_BR;`
360	`break;`	360	`break;`
361	`case 2:`	361	`case 2:`
362	`strcpy(locales->lang, "FR");`	362	`strcpy(locales->lang, "FR");`
363	`locales->keyboff = OFFLOC_FR;`	363	`locales->keyboff = OFFLOC_FR;`
364	`locales->keyblen = OFFLEN_FR;`	364	`locales->keyblen = OFFLEN_FR;`
365	`break;`	365	`break;`
366	`case 3:`	366	`case 3:`
367	`strcpy(locales->lang, "DE");`	367	`strcpy(locales->lang, "DE");`
368	`locales->keyboff = OFFLOC_DE;`	368	`locales->keyboff = OFFLOC_DE;`
369	`locales->keyblen = OFFLEN_DE;`	369	`locales->keyblen = OFFLEN_DE;`
370	`break;`	370	`break;`
371	`case 4:`	371	`case 4:`
372	`strcpy(locales->lang, "IT");`	372	`strcpy(locales->lang, "IT");`
373	`locales->keyboff = OFFLOC_IT;`	373	`locales->keyboff = OFFLOC_IT;`
374	`locales->keyblen = OFFLEN_IT;`	374	`locales->keyblen = OFFLEN_IT;`
375	`break;`	375	`break;`
376	`case 5:`	376	`case 5:`
377	`strcpy(locales->lang, "PL");`	377	`strcpy(locales->lang, "PL");`
378	`locales->keyboff = OFFLOC_PL;`	378	`locales->keyboff = OFFLOC_PL;`
379	`locales->keyblen = OFFLEN_PL;`	379	`locales->keyblen = OFFLEN_PL;`
380	`break;`	380	`break;`
381	`case 6:`	381	`case 6:`
382	`strcpy(locales->lang, "RU");`	382	`strcpy(locales->lang, "RU");`
383	`locales->keyboff = OFFLOC_RU;`	383	`locales->keyboff = OFFLOC_RU;`
384	`locales->keyblen = OFFLEN_RU;`	384	`locales->keyblen = OFFLEN_RU;`
385	`break;`	385	`break;`
386	`case 7:`	386	`case 7:`
387	`strcpy(locales->lang, "SI");`	387	`strcpy(locales->lang, "SI");`
388	`locales->keyboff = OFFLOC_SI;`	388	`locales->keyboff = OFFLOC_SI;`
389	`locales->keyblen = OFFLEN_SI;`	389	`locales->keyblen = OFFLEN_SI;`
390	`break;`	390	`break;`
391	`case 8:`	391	`case 8:`
392	`strcpy(locales->lang, "SV");`	392	`strcpy(locales->lang, "SV");`
393	`locales->keyboff = OFFLOC_SV;`	393	`locales->keyboff = OFFLOC_SV;`
394	`locales->keyblen = OFFLEN_SV;`	394	`locales->keyblen = OFFLEN_SV;`
395	`break;`	395	`break;`
396	`case 9:`	396	`case 9:`
397	`strcpy(locales->lang, "TR");`	397	`strcpy(locales->lang, "TR");`
398	`locales->keyboff = OFFLOC_TR;`	398	`locales->keyboff = OFFLOC_TR;`
399	`locales->keyblen = OFFLEN_TR;`	399	`locales->keyblen = OFFLEN_TR;`
400	`break;`	400	`break;`
401	`default:`	401	`default:`
402	`strcpy(locales->lang, "EN");`	402	`strcpy(locales->lang, "EN");`
403	`locales->keyboff = 0;`	403	`locales->keyboff = 0;`
404	`locales->keyblen = OFFCOUNT;`	404	`locales->keyblen = OFFCOUNT;`
405	`break;`	405	`break;`
406	`}`	406	`}`
407	`/* populate the slocales struct accordingly to the keyboff member */`	407	`/* populate the slocales struct accordingly to the keyboff member */`
408	`kblay2slocal(locales);`	408	`kblay2slocal(locales);`
409	`/* */`	409	`/* */`
410	`return(MENUNEXT);`	410	`return(MENUNEXT);`
411	`}`	411	`}`
412		412
413		413
414	`static int selectkeyb(struct slocales *locales) {`	414	`static int selectkeyb(struct slocales *locales) {`
415	`int menuheight, choice;`	415	`int menuheight, choice;`
416	`if (locales->keyblen == 1) return(MENUNEXT); /* do not ask for keyboard layout if only one is available for given language */`	416	`if (locales->keyblen == 1) return(MENUNEXT); /* do not ask for keyboard layout if only one is available for given language */`
417	`newscreen(0);`	417	`newscreen(0);`
418	`putstringnls(5, 1, COLOR_BODY, 1, 5); /* "SvarDOS supports different keyboard layouts */`	418	`putstringnls(5, 1, COLOR_BODY, 1, 5); /* "SvarDOS supports different keyboard layouts */`
419	`menuheight = locales->keyblen;`	419	`menuheight = locales->keyblen;`
420	`if (menuheight > 11) menuheight = 11;`	420	`if (menuheight > 11) menuheight = 11;`
421	`choice = menuselect(10, menuheight, &(kblayouts[locales->keyboff]), locales->keyblen);`	421	`choice = menuselect(10, menuheight, &(kblayouts[locales->keyboff]), locales->keyblen);`
422	`if (choice < 0) return(MENUPREV);`	422	`if (choice < 0) return(MENUPREV);`
423	`/* (re)load the keyboard layout & codepage setup */`	423	`/* (re)load the keyboard layout & codepage setup */`
424	`locales->keyboff += choice;`	424	`locales->keyboff += choice;`
425	`kblay2slocal(locales);`	425	`kblay2slocal(locales);`
426	`return(MENUNEXT);`	426	`return(MENUNEXT);`
427	`}`	427	`}`
428		428
429		429
430	`/* returns 0 if installation must proceed, non-zero otherwise */`	430	`/* returns 0 if installation must proceed, non-zero otherwise */`
431	`static int welcomescreen(void) {`	431	`static int welcomescreen(void) {`
432	`int c;`	432	`int c;`
433	`const char *choice[3];`	433	`const char *choice[3];`
434	`choice[0] = svarlang_strid(0x0001);`	434	`choice[0] = svarlang_strid(0x0001);`
435	`choice[1] = svarlang_strid(0x0002);`	435	`choice[1] = svarlang_strid(0x0002);`
436	`choice[2] = NULL;`	436	`choice[2] = NULL;`
437	`newscreen(0);`	437	`newscreen(0);`
438	`putstringnls(4, 1, COLOR_BODY, 2, 0); /* "You are about to install SvarDOS */`	438	`putstringnls(4, 1, COLOR_BODY, 2, 0); /* "You are about to install SvarDOS */`
439	`c = menuselect(13, 2, choice, -1);`	439	`c = menuselect(13, 2, choice, -1);`
440	`if (c < 0) return(MENUPREV);`	440	`if (c < 0) return(MENUPREV);`
441	`if (c == 0) return(MENUNEXT);`	441	`if (c == 0) return(MENUNEXT);`
442	`return(MENUQUIT);`	442	`return(MENUQUIT);`
443	`}`	443	`}`
444		444
445		445
446	`/* returns 1 if drive is removable, 0 if not, -1 on error */`	446	`/* returns 1 if drive is removable, 0 if not, -1 on error */`
447	`static int isdriveremovable(int drv) {`	447	`static int isdriveremovable(int drv) {`
448	`union REGS r;`	448	`union REGS r;`
449	`r.x.ax = 0x4408;`	449	`r.x.ax = 0x4408;`
450	`r.h.bl = drv;`	450	`r.h.bl = drv;`
451	`int86(0x21, &r, &r);`	451	`int86(0x21, &r, &r);`
452	`/* CF set on error, AX set to 0 if removable, 1 if fixed */`	452	`/* CF set on error, AX set to 0 if removable, 1 if fixed */`
453	`if (r.x.cflag != 0) return(-1);`	453	`if (r.x.cflag != 0) return(-1);`
454	`if (r.x.ax == 0) return(1);`	454	`if (r.x.ax == 0) return(1);`
455	`return(0);`	455	`return(0);`
456	`}`	456	`}`
457		457
458		458
459	`/* returns total disk space of drive drv (in MiB, max 2048), or -1 if drive invalid */`	459	`/* returns total disk space of drive drv (in MiB, max 2048), or -1 if drive invalid */`
460	`static int disksize(int drv) {`	460	`static int disksize(int drv) {`
461	`long res;`	461	`long res;`
462	`union REGS r;`	462	`union REGS r;`
463	`r.h.ah = 0x36; /* DOS 2+ get free disk space */`	463	`r.h.ah = 0x36; /* DOS 2+ get free disk space */`
464	`r.h.dl = drv; /* A=1, B=2, etc */`	464	`r.h.dl = drv; /* A=1, B=2, etc */`
465	`int86(0x21, &r, &r);`	465	`int86(0x21, &r, &r);`
466	`if (r.x.ax == 0xffffu) return(-1); /* AX set to FFFFh if drive invalid */`	466	`if (r.x.ax == 0xffffu) return(-1); /* AX set to FFFFh if drive invalid */`
467	`res = r.x.ax; /* sectors per cluster */`	467	`res = r.x.ax; /* sectors per cluster */`
468	`res = r.x.dx; / dx contains total clusters, bx contains free clusters */`	468	`res = r.x.dx; / dx contains total clusters, bx contains free clusters */`
469	`res = r.x.cx; / bytes per sector */`	469	`res = r.x.cx; / bytes per sector */`
470	`res >>= 20; /* convert bytes to MiB */`	470	`res >>= 20; /* convert bytes to MiB */`
471	`return(res);`	471	`return(res);`
472	`}`	472	`}`
473		473
474		474
475	`/* returns 0 if disk is empty, non-zero otherwise */`	475	`/* returns 0 if disk is empty, non-zero otherwise */`
476	`static int diskempty(int drv) {`	476	`static int diskempty(int drv) {`
477	`unsigned int rc;`	477	`unsigned int rc;`
478	`int res;`	478	`int res;`
479	`char buff[8];`	479	`char buff[8];`
480	`struct find_t fileinfo;`	480	`struct find_t fileinfo;`
481	`snprintf(buff, sizeof(buff), "%c:\\.", 'A' + drv - 1);`	481	`snprintf(buff, sizeof(buff), "%c:\\.", 'A' + drv - 1);`
482	`rc = _dos_findfirst(buff, _A_NORMAL \| _A_SUBDIR \| _A_HIDDEN \| _A_SYSTEM, &fileinfo);`	482	`rc = _dos_findfirst(buff, _A_NORMAL \| _A_SUBDIR \| _A_HIDDEN \| _A_SYSTEM, &fileinfo);`
483	`if (rc == 0) {`	483	`if (rc == 0) {`
484	`res = 1; /* call successfull means disk is not empty */`	484	`res = 1; /* call successfull means disk is not empty */`
485	`} else {`	485	`} else {`
486	`res = 0;`	486	`res = 0;`
487	`}`	487	`}`
488	`/* _dos_findclose(&fileinfo); / / apparently required only on OS/2 */`	488	`/* _dos_findclose(&fileinfo); / / apparently required only on OS/2 */`
489	`return(res);`	489	`return(res);`
490	`}`	490	`}`
491		491
492	`#ifdef DEADCODE`	492	`#ifdef DEADCODE`
493	`/* set new DOS "current drive" to drv ('A', 'B', etc). returns 0 on success */`	493	`/* set new DOS "current drive" to drv ('A', 'B', etc). returns 0 on success */`
494	`static int set_cur_drive(char drv) {`	494	`static int set_cur_drive(char drv) {`
495	`union REGS r;`	495	`union REGS r;`
496	`if ((drv < 'A') \|\| (drv > 'Z')) return(-1);`	496	`if ((drv < 'A') \|\| (drv > 'Z')) return(-1);`
497	`r.h.ah = 0x0E; /* DOS 1+ SELECT DEFAULT DRIVE */`	497	`r.h.ah = 0x0E; /* DOS 1+ SELECT DEFAULT DRIVE */`
498	`r.h.dl = drv - 'A';`	498	`r.h.dl = drv - 'A';`
499	`int86(0x21, &r, &r);`	499	`int86(0x21, &r, &r);`
500	`if (r.h.al < drv - 'A') return(-1);`	500	`if (r.h.al < drv - 'A') return(-1);`

Subversion Repositories SvarDOS

(root)/install/trunk/install.c – Rev 1671 → 1672