comparison src/dosfns.c @ 45331:425d5cebd73c

Fix whitespace.

45330:28c55da68de5

You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING.  If not, write to
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.  */


#include <config.h>

#ifdef MSDOS
/* The entire file is within this conditional */

  Lisp_Object val;

  CHECK_NUMBER (interrupt);
  no = (unsigned long) XINT (interrupt);
  CHECK_VECTOR (registers);
  if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8) 
    return Qnil;
  for (i = 0; i < 8; i++)
    CHECK_NUMBER (XVECTOR (registers)->contents[i]);

  inregs.x.ax    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]);

  CHECK_NUMBER (address);
  offs = (unsigned long) XINT (address);
  CHECK_VECTOR (vector);
  len = XVECTOR (vector)-> size;
  if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len) 
    return Qnil;
  buf = alloca (len);
  dosmemget (offs, len, buf);
  
  for (i = 0; i < len; i++)
    XVECTOR (vector)->contents[i] = make_number (buf[i]);

  return vector;
}

  CHECK_NUMBER (address);
  offs = (unsigned long) XINT (address);
  CHECK_VECTOR (vector);
  len = XVECTOR (vector)-> size;
  if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len) 
    return Qnil;
  buf = alloca (len);

  for (i = 0; i < len; i++)
    {

  else
    return Qnil;
}
#endif


DEFUN ("msdos-mouse-init", Fmsdos_mouse_init, Smsdos_mouse_init, 0, 0, "",
       doc: /* Initialize and enable mouse if available.  */)
     ()
{
  if (have_mouse)

       doc: /* Insert copy of screen contents prior to starting emacs.
Return nil if startup screen is not available.  */)
     ()
{
  char *s;
  int rows, cols;
  int i, j;
  
  if (!dos_get_saved_screen (&s, &rows, &cols))
    return Qnil;
  
  for (i = 0; i < rows; i++)
    {
      for (j = 0; j < cols; j++)
	{
	  insert_char (*s);

  if ((dos_windows_version & 0xff) >= 4 && parent_vm_title[0])
    w95_set_virtual_machine_title (parent_vm_title);
  delay (50);
}
#endif /* !HAVE_X_WINDOWS */
  
void
init_dosfns ()
{
  union REGS regs;
  _go32_dpmi_registers dpmiregs;

  regs.x.ax = 0x6601;
  intdos (&regs, &regs);
  if (regs.x.cflag)
    /* Estimate code page from country code */
    switch (dos_country_code) 
      {
      case 45: /* Denmark */
      case 47: /* Norway */
	dos_codepage = 865;
	break;

	865	Norway/Denmark  */);

  DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset,
	      doc: /* The current timezone offset to UTC in minutes.
Implicitly modified when the TZ variable is changed.  */);
  
  DEFVAR_LISP ("dos-version", &Vdos_version,
	       doc: /* The (MAJOR . MINOR) Dos version (subject to modification with setver).  */);

#ifndef HAVE_X_WINDOWS
  DEFVAR_LISP ("dos-windows-version", &Vdos_windows_version,

When non-nil, the keyboard scan-codes are displayed at the bottom right
corner of the display (typically at the end of the mode line).
The output format is: scan code:char code*modifiers.  */);

  Vdos_display_scancodes = Qnil;
  
  DEFVAR_INT ("dos-hyper-key", &dos_hyper_key,
	      doc: /* *If set to 1, use right ALT key as hyper key.
If set to 2, use right CTRL key as hyper key.  */);
  dos_hyper_key = 0;
  
  DEFVAR_INT ("dos-super-key", &dos_super_key,
	      doc: /* *If set to 1, use right ALT key as super key.
If set to 2, use right CTRL key as super key.  */);
  dos_super_key = 0;
  
  DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode,
	      doc: /* *Controls what key code is returned by a key in the numeric keypad.
The `numlock ON' action is only taken if no modifier keys are pressed.
The value is an integer constructed by adding the following bits together:

  0x00	Grey key returns char      (if numlock OFF)
  0x40	Grey key returns kp-key    (if numlock OFF)

  0x200	ALT-0..ALT-9 in top-row produces shifted codes.  */);
  dos_keypad_mode = 0x75;
  
  DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout,
	      doc: /* Contains the country code for the current keyboard layout.
Use msdos-set-keyboard to select another keyboard layout.  */);
  dos_keyboard_layout = 1;	/* US */
  
  DEFVAR_INT ("dos-decimal-point", &dos_decimal_point,
	      doc: /* The character to produce when kp-decimal key is pressed.
If non-zero, this variable contains the character to be returned when the
decimal point key in the numeric keypad is pressed when Num Lock is on.
If zero, the decimal point key returns the country code specific value.  */);

45331:425d5cebd73c

You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING.  If not, write to
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.  */

#include <config.h>

#ifdef MSDOS
/* The entire file is within this conditional */

  Lisp_Object val;

  CHECK_NUMBER (interrupt);
  no = (unsigned long) XINT (interrupt);
  CHECK_VECTOR (registers);
  if (no < 0 || no > 0xff || XVECTOR (registers)-> size != 8)
    return Qnil;
  for (i = 0; i < 8; i++)
    CHECK_NUMBER (XVECTOR (registers)->contents[i]);

  inregs.x.ax    = (unsigned long) XFASTINT (XVECTOR (registers)->contents[0]);

  CHECK_NUMBER (address);
  offs = (unsigned long) XINT (address);
  CHECK_VECTOR (vector);
  len = XVECTOR (vector)-> size;
  if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
    return Qnil;
  buf = alloca (len);
  dosmemget (offs, len, buf);

  for (i = 0; i < len; i++)
    XVECTOR (vector)->contents[i] = make_number (buf[i]);

  return vector;
}

  CHECK_NUMBER (address);
  offs = (unsigned long) XINT (address);
  CHECK_VECTOR (vector);
  len = XVECTOR (vector)-> size;
  if (len < 1 || len > 2048 || address < 0 || address > 0xfffff - len)
    return Qnil;
  buf = alloca (len);

  for (i = 0; i < len; i++)
    {

  else
    return Qnil;
}
#endif

DEFUN ("msdos-mouse-init", Fmsdos_mouse_init, Smsdos_mouse_init, 0, 0, "",
       doc: /* Initialize and enable mouse if available.  */)
     ()
{
  if (have_mouse)

       doc: /* Insert copy of screen contents prior to starting emacs.
Return nil if startup screen is not available.  */)
     ()
{
  char *s;
  int rows, cols, i, j;

  if (!dos_get_saved_screen (&s, &rows, &cols))
    return Qnil;

  for (i = 0; i < rows; i++)
    {
      for (j = 0; j < cols; j++)
	{
	  insert_char (*s);

  if ((dos_windows_version & 0xff) >= 4 && parent_vm_title[0])
    w95_set_virtual_machine_title (parent_vm_title);
  delay (50);
}
#endif /* !HAVE_X_WINDOWS */

void
init_dosfns ()
{
  union REGS regs;
  _go32_dpmi_registers dpmiregs;

  regs.x.ax = 0x6601;
  intdos (&regs, &regs);
  if (regs.x.cflag)
    /* Estimate code page from country code */
    switch (dos_country_code)
      {
      case 45: /* Denmark */
      case 47: /* Norway */
	dos_codepage = 865;
	break;

	865	Norway/Denmark  */);

  DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset,
	      doc: /* The current timezone offset to UTC in minutes.
Implicitly modified when the TZ variable is changed.  */);

  DEFVAR_LISP ("dos-version", &Vdos_version,
	       doc: /* The (MAJOR . MINOR) Dos version (subject to modification with setver).  */);

#ifndef HAVE_X_WINDOWS
  DEFVAR_LISP ("dos-windows-version", &Vdos_windows_version,

When non-nil, the keyboard scan-codes are displayed at the bottom right
corner of the display (typically at the end of the mode line).
The output format is: scan code:char code*modifiers.  */);

  Vdos_display_scancodes = Qnil;

  DEFVAR_INT ("dos-hyper-key", &dos_hyper_key,
	      doc: /* *If set to 1, use right ALT key as hyper key.
If set to 2, use right CTRL key as hyper key.  */);
  dos_hyper_key = 0;

  DEFVAR_INT ("dos-super-key", &dos_super_key,
	      doc: /* *If set to 1, use right ALT key as super key.
If set to 2, use right CTRL key as super key.  */);
  dos_super_key = 0;

  DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode,
	      doc: /* *Controls what key code is returned by a key in the numeric keypad.
The `numlock ON' action is only taken if no modifier keys are pressed.
The value is an integer constructed by adding the following bits together:

  0x00	Grey key returns char      (if numlock OFF)
  0x40	Grey key returns kp-key    (if numlock OFF)

  0x200	ALT-0..ALT-9 in top-row produces shifted codes.  */);
  dos_keypad_mode = 0x75;

  DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout,
	      doc: /* Contains the country code for the current keyboard layout.
Use msdos-set-keyboard to select another keyboard layout.  */);
  dos_keyboard_layout = 1;	/* US */

  DEFVAR_INT ("dos-decimal-point", &dos_decimal_point,
	      doc: /* The character to produce when kp-decimal key is pressed.
If non-zero, this variable contains the character to be returned when the
decimal point key in the numeric keypad is pressed when Num Lock is on.
If zero, the decimal point key returns the country code specific value.  */);