comparison src/msdos.c @ 109162:8efd6d04c47a

Convert function definitions in MS-DOS sources to ANSI C. msdos.h: msdos.c: dosfns.c: w16select.c: Convert function definitions to ANSI C. msdos.h (ctrl_break_func, install_ctrl_break_check): Remove unused prototypes.

109161:2f63c33b2618

#endif /* GNU_MALLOC */

#endif /* not SYSTEM_MALLOC */

static unsigned long
event_timestamp ()
{
  struct time t;
  unsigned long s;

  gettime (&t);

static int mouse_button_translate[NUM_MOUSE_BUTTONS];
static int mouse_button_count;

void
mouse_on ()
{
  union REGS regs;

  if (have_mouse > 0 && !mouse_visible)
    {

      mouse_visible = 1;
    }
}

void
mouse_off ()
{
  union REGS regs;

  if (have_mouse > 0 && mouse_visible)
    {

  *x = regs.x.cx / 8;
  *y = regs.x.dx / 8;
}

void
mouse_moveto (x, y)
     int x, y;
{
  union REGS regs;
  struct tty_display_info *tty = CURTTY ();

  if (tty->termscript)

  mouse_last_y = regs.x.dx = y * 8;
  int86 (0x33, &regs, &regs);
}

static int
mouse_pressed (b, xp, yp)
     int b, *xp, *yp;
{
  union REGS regs;

  if (b >= mouse_button_count)
    return 0;

    *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
  return (regs.x.bx != 0);
}

static int
mouse_released (b, xp, yp)
     int b, *xp, *yp;
{
  union REGS regs;

  if (b >= mouse_button_count)
    return 0;

    *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
  return (regs.x.bx != 0);
}

static int
mouse_button_depressed (b, xp, yp)
     int b, *xp, *yp;
{
  union REGS regs;

  if (b >= mouse_button_count)
    return 0;

    }
  return 0;
}

void
mouse_get_pos (f, insist, bar_window, part, x, y, time)
     FRAME_PTR *f;
     int insist;
     Lisp_Object *bar_window, *x, *y;
     enum scroll_bar_part *part;
     unsigned long *time;
{
  int ix, iy;
  Lisp_Object frame, tail;

  /* Clear the mouse-moved flag for every frame on this display.  */

  *x = make_number (mouse_last_x = ix);
  *y = make_number (mouse_last_y = iy);
}

static void
mouse_check_moved ()
{
  int x, y;

  mouse_get_xy (&x, &y);
  SELECTED_FRAME()->mouse_moved |= (x != mouse_last_x || y != mouse_last_y);

      (void) mouse_released (b, &dummy_x, &dummy_y);
    }
}

void
mouse_init ()
{
  union REGS regs;
  struct tty_display_info *tty = CURTTY ();

  if (tty->termscript)

  regs.x.cx = count;
  __dpmi_int (0x10, &regs);
}

static void
dos_direct_output (y, x, buf, len)
     int x, y;
     char *buf;
     int len;
{
  int t0 = 2 * (x + y * screen_size_X);
  int t = t0 + (int) ScreenPrimary;
  int l0 = len;

/* Set the screen dimensions so that it can show no less than
   ROWS x COLS frame.  */

void
dos_set_window_size (rows, cols)
     int *rows, *cols;
{
  char video_name[30];
  union REGS regs;
  Lisp_Object video_mode;
  int video_mode_value, have_vga = 0;

/* If we write a character in the position where the mouse is,
   the mouse cursor may need to be refreshed.  */

static void
mouse_off_maybe ()
{
  int x, y;

  if (!mouse_visible)
    return;

    dosv_refresh_virtual_screen (ypos * screen_size_X * 2, screen_size_X);
}

/* Insert and delete glyphs.  */
static void
IT_insert_glyphs (f, start, len)
     struct frame *f;
     register struct glyph *start;
     register int len;
{
  int shift_by_width = screen_size_X - (new_pos_X + len);

  /* Shift right the glyphs from the nominal cursor position to the
     end of this line.  */

  /* Now write the glyphs to be inserted.  */
  IT_write_glyphs (f, start, len);
}

static void
IT_delete_glyphs (f, n)
     struct frame *f;
     register int n;
{
  abort ();
}

/* set-window-configuration on window.c needs this.  */
void
x_set_menu_bar_lines (f, value, oldval)
     struct frame *f;
     Lisp_Object value, oldval;
{
  set_menu_bar_lines (f, value, oldval);
}

/* This was copied from xfaces.c  */

  initial_screen_colors[0] = FRAME_FOREGROUND_PIXEL (f);
  initial_screen_colors[1] = FRAME_BACKGROUND_PIXEL (f);
}

void
IT_set_frame_parameters (f, alist)
     struct frame *f;
     Lisp_Object alist;
{
  Lisp_Object tail;
  int i, j, length = XINT (Flength (alist));
  Lisp_Object *parms
    = (Lisp_Object *) alloca (length * sizeof (Lisp_Object));

/* Do we need the internal terminal?  */

void
internal_terminal_init ()
{
  static int init_needed = 1;
  char *term = getenv ("TERM"), *colors;
  struct frame *sf = SELECTED_FRAME();
  struct tty_display_info *tty;

  term->redeem_scroll_bar_hook = 0;
  term->judge_scroll_bars_hook = 0;
  term->read_socket_hook = &tty_read_avail_input; /* from keyboard.c */
}

dos_get_saved_screen (screen, rows, cols)
     char **screen;
     int *rows;
     int *cols;
{
#ifndef HAVE_X_WINDOWS
  *screen = startup_screen_buffer;
  *cols = startup_screen_size_X;
  *rows = startup_screen_size_Y;

static struct dos_keyboard_map *keyboard;
static int keyboard_map_all;
static int international_keyboard;

int
dos_set_keyboard (code, always)
     int code;
     int always;
{
  int i;
  _go32_dpmi_registers regs;

  /* See if Keyb.Com is installed (for international keyboard support).

#define ALT_GR_P	0x0800
#define SUPER_P		0x4000	/* pseudo */
#define HYPER_P		0x8000	/* pseudo */

static int
dos_get_modifiers (keymask)
     int *keymask;
{
  union REGS regs;
  int mask, modifiers = 0;

  /* Calculate modifier bits */

}

#define NUM_RECENT_DOSKEYS (100)
int recent_doskeys_index;	/* Index for storing next element into recent_doskeys */
int total_doskeys;		/* Total number of elements stored into recent_doskeys */
Lisp_Object recent_doskeys; /* A vector, holding the last 100 keystrokes */

DEFUN ("recent-doskeys", Frecent_doskeys, Srecent_doskeys, 0, 0, 0,
       doc: /* Return vector of last 100 keyboard input values seen in dos_rawgetc.
Each input key receives two values in this vector: first the ASCII code,
and then the scan code.  */)

    }
}

/* Get a char from keyboard.  Function keys are put into the event queue.  */
static int
dos_rawgetc ()
{
  struct input_event event;
  union REGS regs;
  struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (SELECTED_FRAME());
  EVENT_INIT (event);

}

static int prev_get_char = -1;

/* Return 1 if a key is ready to be read without suspending execution.  */

dos_keysns ()
{
  if (prev_get_char != -1)
    return 1;
  else
    return ((prev_get_char = dos_rawgetc ()) != -1);
}

/* Read a key.  Return -1 if no key is ready.  */

dos_keyread ()
{
  if (prev_get_char != -1)
    {
      int c = prev_get_char;
      prev_get_char = -1;

/* Pane number and item number of the menu item which generated the
   last menu help message.  */
static int menu_help_paneno, menu_help_itemno;

static XMenu *
IT_menu_create ()
{
  XMenu *menu;

  menu = (XMenu *) xmalloc (sizeof (XMenu));
  menu->allocated = menu->count = menu->panecount = menu->width = 0;

/* --------------------------- X Menu emulation ---------------------- */

/* Report availability of menus.  */

int
have_menus_p () {  return 1; }

/* Create a brand new menu structure.  */

XMenu *
XMenuCreate (Display *foo1, Window foo2, char *foo3)

void msdos_downcase_filename (unsigned char *);

/* Destructively turn backslashes into slashes.  */

void
dostounix_filename (p)
     register char *p;
{
  msdos_downcase_filename (p);

  while (*p)
    {

}

/* Destructively turn slashes into backslashes.  */

void
unixtodos_filename (p)
     register char *p;
{
  if (p[1] == ':' && *p >= 'A' && *p <= 'Z')
    {
      *p += 'a' - 'A';
      p += 2;

}

/* Get the default directory for a given drive.  0=def, 1=A, 2=B, ...  */

int
getdefdir (drive, dst)
     int drive;
     char *dst;
{
  char in_path[4], *p = in_path, e = errno;

  /* Generate "X:." (when drive is X) or "." (when drive is 0).  */
  if (drive != 0)

}

/* Remove all CR's that are followed by a LF.  */

int
crlf_to_lf (n, buf)
     register int n;
     register unsigned char *buf;
{
  unsigned char *np = buf, *startp = buf, *endp = buf + n;

  if (n == 0)
    return n;

}

/* Convert alphabetic characters in a filename to lower-case.  */

void
msdos_downcase_filename (p)
     register unsigned char *p;
{
  /* Always lower-case drive letters a-z, even if the filesystem
     preserves case in filenames.
     This is so MSDOS filenames could be compared by string comparison
     functions that are case-sensitive.  Even case-preserving filesystems

/* The Emacs root directory as determined by init_environment.  */

static char emacsroot[MAXPATHLEN];

char *
rootrelativepath (rel)
     char *rel;
{
  static char result[MAXPATHLEN + 10];

  strcpy (result, emacsroot);
  strcat (result, "/");

/* Define a lot of environment variables if not already defined.  Don't
   remove anything unless you know what you're doing -- lots of code will
   break if one or more of these are missing.  */

void
init_environment (argc, argv, skip_args)
     int argc;
     char **argv;
     int skip_args;
{
  char *s, *t, *root;
  int len, i;
  static const char * const tempdirs[] = {
    "$TMPDIR", "$TEMP", "$TMP", "c:/"

}

/*  Restore status of standard input and Ctrl-C checking.  */

int
dos_ttcooked ()
{
  union REGS inregs, outregs;

  setcbrk (break_stat);
  mouse_off ();

/* Run command as specified by ARGV in directory DIR.
   The command is run with input from TEMPIN, output to
   file TEMPOUT and stderr to TEMPERR.  */

int
run_msdos_command (argv, working_dir, tempin, tempout, temperr, envv)
     unsigned char **argv;
     const char *working_dir;
     int tempin, tempout, temperr;
     char **envv;
{
  char *saveargv1, *saveargv2, *lowcase_argv0, *pa, *pl;
  char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS.  */
  int msshell, result = -1, inbak, outbak, errbak, x, y;
  Lisp_Object cmd;

    }
  return result;
}

void
croak (badfunc)
     char *badfunc;
{
  fprintf (stderr, "%s not yet implemented\r\n", badfunc);
  reset_all_sys_modes ();
  exit (1);
}

/*
 * A few unimplemented functions that we silently ignore.
 */
setpgrp () {return 0; }
setpriority (x,y,z) int x,y,z; { return 0; }

#if __DJGPP__ == 2 && __DJGPP_MINOR__ < 2

/* Augment DJGPP library POSIX signal functions.  This is needed
   as of DJGPP v2.01, but might be in the library in later releases. */

static sighandler_t prev_handlers[320];

/* A signal handler which just records that a signal occurred
   (it will be raised later, if and when the signal is unblocked).  */
static void
sig_suspender (signo)
     int signo;
{
  sigaddset (&msdos_pending_signals, signo);
}

int
sigprocmask (how, new_set, old_set)
     int how;
     const sigset_t *new_set;
     sigset_t *old_set;
{
  int signo;
  sigset_t new_mask;

  /* If called for the first time, initialize.  */

/* Only event queue is checked.  */
/* We don't have to call timer_check here
   because wait_reading_process_output takes care of that.  */
int
sys_select (nfds, rfds, wfds, efds, timeout)
     int nfds;
     SELECT_TYPE *rfds, *wfds, *efds;
     EMACS_TIME *timeout;
{
  int check_input;
  struct time t;

  check_input = 0;

 *	abort -> dos_abort
 */

#ifdef chdir
#undef chdir
extern int chdir ();

int
sys_chdir (path)
     const char* path;
{
  int len = strlen (path);
  char *tmp = (char *)path;

  if (*tmp && tmp[1] == ':')

#ifdef tzset
#undef tzset
extern void tzset (void);

void
init_gettimeofday ()
{
  time_t ltm, gtm;
  struct tm *lstm;

  tzset ();

#endif

#ifdef abort
#undef abort
void
dos_abort (file, line)
     char *file;
     int  line;
{
  char buffer1[200], buffer2[400];
  int i, j;

  sprintf (buffer1, "<EMACS FATAL ERROR IN %s LINE %d>", file, line);

  ScreenSetCursor (2, 0);
  abort ();
}
#else
void
abort ()
{
  dos_ttcooked ();
  ScreenSetCursor (10, 0);
  cputs ("\r\n\nEmacs aborted!\r\n");
#if __DJGPP__ == 2 && __DJGPP_MINOR__ < 2

#ifndef subprocesses
/* Nonzero means delete a process right away if it exits (process.c).  */
static int delete_exited_processes;
#endif

syms_of_msdos ()
{
  recent_doskeys = Fmake_vector (make_number (NUM_RECENT_DOSKEYS), Qnil);
  staticpro (&recent_doskeys);

#ifndef HAVE_X_WINDOWS

109162:8efd6d04c47a

#endif /* GNU_MALLOC */

#endif /* not SYSTEM_MALLOC */

static unsigned long
event_timestamp (void)
{
  struct time t;
  unsigned long s;

  gettime (&t);

static int mouse_button_translate[NUM_MOUSE_BUTTONS];
static int mouse_button_count;

void
mouse_on (void)
{
  union REGS regs;

  if (have_mouse > 0 && !mouse_visible)
    {

      mouse_visible = 1;
    }
}

void
mouse_off (void)
{
  union REGS regs;

  if (have_mouse > 0 && mouse_visible)
    {

  *x = regs.x.cx / 8;
  *y = regs.x.dx / 8;
}

void
mouse_moveto (int x, int y)
{
  union REGS regs;
  struct tty_display_info *tty = CURTTY ();

  if (tty->termscript)

  mouse_last_y = regs.x.dx = y * 8;
  int86 (0x33, &regs, &regs);
}

static int
mouse_pressed (int b, int *xp, int *yp)
{
  union REGS regs;

  if (b >= mouse_button_count)
    return 0;

    *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
  return (regs.x.bx != 0);
}

static int
mouse_released (int b, int *xp, int *yp)
{
  union REGS regs;

  if (b >= mouse_button_count)
    return 0;

    *xp = regs.x.cx / 8, *yp = regs.x.dx / 8;
  return (regs.x.bx != 0);
}

static int
mouse_button_depressed (int b, int *xp, int *yp)
{
  union REGS regs;

  if (b >= mouse_button_count)
    return 0;

    }
  return 0;
}

void
mouse_get_pos (FRAME_PTR *f, int insist, Lisp_Object *bar_window,
	       enum scroll_bar_part *part, Lisp_Object *x, Lisp_Object *y,
	       unsigned long *time)
{
  int ix, iy;
  Lisp_Object frame, tail;

  /* Clear the mouse-moved flag for every frame on this display.  */

  *x = make_number (mouse_last_x = ix);
  *y = make_number (mouse_last_y = iy);
}

static void
mouse_check_moved (void)
{
  int x, y;

  mouse_get_xy (&x, &y);
  SELECTED_FRAME()->mouse_moved |= (x != mouse_last_x || y != mouse_last_y);

      (void) mouse_released (b, &dummy_x, &dummy_y);
    }
}

void
mouse_init (void)
{
  union REGS regs;
  struct tty_display_info *tty = CURTTY ();

  if (tty->termscript)

  regs.x.cx = count;
  __dpmi_int (0x10, &regs);
}

static void
dos_direct_output (int y, int x, char *buf, int len)
{
  int t0 = 2 * (x + y * screen_size_X);
  int t = t0 + (int) ScreenPrimary;
  int l0 = len;

/* Set the screen dimensions so that it can show no less than
   ROWS x COLS frame.  */

void
dos_set_window_size (int *rows, int *cols)
{
  char video_name[30];
  union REGS regs;
  Lisp_Object video_mode;
  int video_mode_value, have_vga = 0;

/* If we write a character in the position where the mouse is,
   the mouse cursor may need to be refreshed.  */

static void
mouse_off_maybe (void)
{
  int x, y;

  if (!mouse_visible)
    return;

    dosv_refresh_virtual_screen (ypos * screen_size_X * 2, screen_size_X);
}

/* Insert and delete glyphs.  */
static void
IT_insert_glyphs (struct frame *f, struct glyph *start, int len)
{
  int shift_by_width = screen_size_X - (new_pos_X + len);

  /* Shift right the glyphs from the nominal cursor position to the
     end of this line.  */

  /* Now write the glyphs to be inserted.  */
  IT_write_glyphs (f, start, len);
}

static void
IT_delete_glyphs (struct frame *f, int n)
{
  abort ();
}

/* set-window-configuration on window.c needs this.  */
void
x_set_menu_bar_lines (struct frame *f, Lisp_Object value, Lisp_Object oldval)
{
  set_menu_bar_lines (f, value, oldval);
}

/* This was copied from xfaces.c  */

  initial_screen_colors[0] = FRAME_FOREGROUND_PIXEL (f);
  initial_screen_colors[1] = FRAME_BACKGROUND_PIXEL (f);
}

void
IT_set_frame_parameters (struct frame *f, Lisp_Object alist)
{
  Lisp_Object tail;
  int i, j, length = XINT (Flength (alist));
  Lisp_Object *parms
    = (Lisp_Object *) alloca (length * sizeof (Lisp_Object));

/* Do we need the internal terminal?  */

void
internal_terminal_init (void)
{
  static int init_needed = 1;
  char *term = getenv ("TERM"), *colors;
  struct frame *sf = SELECTED_FRAME();
  struct tty_display_info *tty;

  term->redeem_scroll_bar_hook = 0;
  term->judge_scroll_bars_hook = 0;
  term->read_socket_hook = &tty_read_avail_input; /* from keyboard.c */
}

int
dos_get_saved_screen (char **screen, int *rows, int *cols)
{
#ifndef HAVE_X_WINDOWS
  *screen = startup_screen_buffer;
  *cols = startup_screen_size_X;
  *rows = startup_screen_size_Y;

static struct dos_keyboard_map *keyboard;
static int keyboard_map_all;
static int international_keyboard;

int
dos_set_keyboard (int code, int always)
{
  int i;
  _go32_dpmi_registers regs;

  /* See if Keyb.Com is installed (for international keyboard support).

#define ALT_GR_P	0x0800
#define SUPER_P		0x4000	/* pseudo */
#define HYPER_P		0x8000	/* pseudo */

static int
dos_get_modifiers (int *keymask)
{
  union REGS regs;
  int mask, modifiers = 0;

  /* Calculate modifier bits */

}

#define NUM_RECENT_DOSKEYS (100)
int recent_doskeys_index;	/* Index for storing next element into recent_doskeys */
int total_doskeys;		/* Total number of elements stored into recent_doskeys */
Lisp_Object recent_doskeys;	/* A vector, holding the last 100 keystrokes */

DEFUN ("recent-doskeys", Frecent_doskeys, Srecent_doskeys, 0, 0, 0,
       doc: /* Return vector of last 100 keyboard input values seen in dos_rawgetc.
Each input key receives two values in this vector: first the ASCII code,
and then the scan code.  */)

    }
}

/* Get a char from keyboard.  Function keys are put into the event queue.  */
static int
dos_rawgetc (void)
{
  struct input_event event;
  union REGS regs;
  struct tty_display_info *dpyinfo = FRAME_X_DISPLAY_INFO (SELECTED_FRAME());
  EVENT_INIT (event);

}

static int prev_get_char = -1;

/* Return 1 if a key is ready to be read without suspending execution.  */
int
dos_keysns (void)
{
  if (prev_get_char != -1)
    return 1;
  else
    return ((prev_get_char = dos_rawgetc ()) != -1);
}

/* Read a key.  Return -1 if no key is ready.  */
int
dos_keyread (void)
{
  if (prev_get_char != -1)
    {
      int c = prev_get_char;
      prev_get_char = -1;

/* Pane number and item number of the menu item which generated the
   last menu help message.  */
static int menu_help_paneno, menu_help_itemno;

static XMenu *
IT_menu_create (void)
{
  XMenu *menu;

  menu = (XMenu *) xmalloc (sizeof (XMenu));
  menu->allocated = menu->count = menu->panecount = menu->width = 0;

/* --------------------------- X Menu emulation ---------------------- */

/* Report availability of menus.  */

int
have_menus_p (void) {  return 1; }

/* Create a brand new menu structure.  */

XMenu *
XMenuCreate (Display *foo1, Window foo2, char *foo3)

void msdos_downcase_filename (unsigned char *);

/* Destructively turn backslashes into slashes.  */

void
dostounix_filename (char *p)
{
  msdos_downcase_filename (p);

  while (*p)
    {

}

/* Destructively turn slashes into backslashes.  */

void
unixtodos_filename (char *p)
{
  if (p[1] == ':' && *p >= 'A' && *p <= 'Z')
    {
      *p += 'a' - 'A';
      p += 2;

}

/* Get the default directory for a given drive.  0=def, 1=A, 2=B, ...  */

int
getdefdir (int drive, char *dst)
{
  char in_path[4], *p = in_path, e = errno;

  /* Generate "X:." (when drive is X) or "." (when drive is 0).  */
  if (drive != 0)

}

/* Remove all CR's that are followed by a LF.  */

int
crlf_to_lf (int n, unsigned char *buf)
{
  unsigned char *np = buf, *startp = buf, *endp = buf + n;

  if (n == 0)
    return n;

}

/* Convert alphabetic characters in a filename to lower-case.  */

void
msdos_downcase_filename (unsigned char *p)
{
  /* Always lower-case drive letters a-z, even if the filesystem
     preserves case in filenames.
     This is so MSDOS filenames could be compared by string comparison
     functions that are case-sensitive.  Even case-preserving filesystems

/* The Emacs root directory as determined by init_environment.  */

static char emacsroot[MAXPATHLEN];

char *
rootrelativepath (char *rel)
{
  static char result[MAXPATHLEN + 10];

  strcpy (result, emacsroot);
  strcat (result, "/");

/* Define a lot of environment variables if not already defined.  Don't
   remove anything unless you know what you're doing -- lots of code will
   break if one or more of these are missing.  */

void
init_environment (int argc, char **argv, int skip_args)
{
  char *s, *t, *root;
  int len, i;
  static const char * const tempdirs[] = {
    "$TMPDIR", "$TEMP", "$TMP", "c:/"

}

/*  Restore status of standard input and Ctrl-C checking.  */

int
dos_ttcooked (void)
{
  union REGS inregs, outregs;

  setcbrk (break_stat);
  mouse_off ();

/* Run command as specified by ARGV in directory DIR.
   The command is run with input from TEMPIN, output to
   file TEMPOUT and stderr to TEMPERR.  */

int
run_msdos_command (unsigned char **argv, const char *working_dir,
		   int tempin, int tempout, int temperr, char **envv)
{
  char *saveargv1, *saveargv2, *lowcase_argv0, *pa, *pl;
  char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS.  */
  int msshell, result = -1, inbak, outbak, errbak, x, y;
  Lisp_Object cmd;

    }
  return result;
}

void
croak (char *badfunc)
{
  fprintf (stderr, "%s not yet implemented\r\n", badfunc);
  reset_all_sys_modes ();
  exit (1);
}

/*
 * A few unimplemented functions that we silently ignore.
 */
int setpgrp (void) {return 0; }
int setpriority (int x, int y, int z) { return 0; }

#if __DJGPP__ == 2 && __DJGPP_MINOR__ < 2

/* Augment DJGPP library POSIX signal functions.  This is needed
   as of DJGPP v2.01, but might be in the library in later releases. */

static sighandler_t prev_handlers[320];

/* A signal handler which just records that a signal occurred
   (it will be raised later, if and when the signal is unblocked).  */
static void
sig_suspender (int signo)
{
  sigaddset (&msdos_pending_signals, signo);
}

int
sigprocmask (int how, const sigset_t *new_set, sigset_t *old_set)
{
  int signo;
  sigset_t new_mask;

  /* If called for the first time, initialize.  */

/* Only event queue is checked.  */
/* We don't have to call timer_check here
   because wait_reading_process_output takes care of that.  */
int
sys_select (int nfds, SELECT_TYPE *rfds, SELECT_TYPE *wfds, SELECT_TYPE *efds,
	    EMACS_TIME *timeout)
{
  int check_input;
  struct time t;

  check_input = 0;

 *	abort -> dos_abort
 */

#ifdef chdir
#undef chdir
extern int chdir (const char *);

int
sys_chdir (const char *path)
{
  int len = strlen (path);
  char *tmp = (char *)path;

  if (*tmp && tmp[1] == ':')

#ifdef tzset
#undef tzset
extern void tzset (void);

void
init_gettimeofday (void)
{
  time_t ltm, gtm;
  struct tm *lstm;

  tzset ();

#endif

#ifdef abort
#undef abort
void
dos_abort (char *file, int line)
{
  char buffer1[200], buffer2[400];
  int i, j;

  sprintf (buffer1, "<EMACS FATAL ERROR IN %s LINE %d>", file, line);

  ScreenSetCursor (2, 0);
  abort ();
}
#else
void
abort (void)
{
  dos_ttcooked ();
  ScreenSetCursor (10, 0);
  cputs ("\r\n\nEmacs aborted!\r\n");
#if __DJGPP__ == 2 && __DJGPP_MINOR__ < 2

#ifndef subprocesses
/* Nonzero means delete a process right away if it exits (process.c).  */
static int delete_exited_processes;
#endif

void
syms_of_msdos (void)
{
  recent_doskeys = Fmake_vector (make_number (NUM_RECENT_DOSKEYS), Qnil);
  staticpro (&recent_doskeys);

#ifndef HAVE_X_WINDOWS