#include <config.h>
#ifdef MSDOS
#include <stdio.h>
#include <string.h>
#include <dos.h>
#include "lisp.h"
#include "buffer.h"
#include "termchar.h"
#include "termhooks.h"
#include "frame.h"
#include "blockinput.h"
#include "window.h"
#include "dosfns.h"
#include "msdos.h"
#include "dispextern.h"
#include "charset.h"
#include "coding.h"
#include <dpmi.h>
#include <go32.h>
#include <dirent.h>
#include <sys/vfs.h>
#ifndef __DJGPP_MINOR__
# define __tb _go32_info_block.linear_address_of_transfer_buffer;
#endif
DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
doc: )
(interrupt, registers)
Lisp_Object interrupt, registers;
{
register int i;
int no;
union REGS inregs, outregs;
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]);
inregs.x.bx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[1]);
inregs.x.cx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[2]);
inregs.x.dx = (unsigned long) XFASTINT (XVECTOR (registers)->contents[3]);
inregs.x.si = (unsigned long) XFASTINT (XVECTOR (registers)->contents[4]);
inregs.x.di = (unsigned long) XFASTINT (XVECTOR (registers)->contents[5]);
inregs.x.cflag = (unsigned long) XFASTINT (XVECTOR (registers)->contents[6]);
inregs.x.flags = (unsigned long) XFASTINT (XVECTOR (registers)->contents[7]);
int86 (no, &inregs, &outregs);
XVECTOR (registers)->contents[0] = make_number (outregs.x.ax);
XVECTOR (registers)->contents[1] = make_number (outregs.x.bx);
XVECTOR (registers)->contents[2] = make_number (outregs.x.cx);
XVECTOR (registers)->contents[3] = make_number (outregs.x.dx);
XVECTOR (registers)->contents[4] = make_number (outregs.x.si);
XVECTOR (registers)->contents[5] = make_number (outregs.x.di);
XVECTOR (registers)->contents[6] = make_number (outregs.x.cflag);
XVECTOR (registers)->contents[7] = make_number (outregs.x.flags);
return registers;
}
DEFUN ("msdos-memget", Fdos_memget, Sdos_memget, 2, 2, 0,
doc: )
(address, vector)
Lisp_Object address, vector;
{
register int i;
int offs, len;
char *buf;
Lisp_Object val;
CHECK_NUMBER (address);
offs = (unsigned long) XINT (address);
CHECK_VECTOR (vector);
len = XVECTOR (vector)-> size;
if (len < 1 || len > 2048 || offs < 0 || offs > 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;
}
DEFUN ("msdos-memput", Fdos_memput, Sdos_memput, 2, 2, 0,
doc: )
(address, vector)
Lisp_Object address, vector;
{
register int i;
int offs, len;
char *buf;
Lisp_Object val;
CHECK_NUMBER (address);
offs = (unsigned long) XINT (address);
CHECK_VECTOR (vector);
len = XVECTOR (vector)-> size;
if (len < 1 || len > 2048 || offs < 0 || offs > 0xfffff - len)
return Qnil;
buf = alloca (len);
for (i = 0; i < len; i++)
{
CHECK_NUMBER (XVECTOR (vector)->contents[i]);
buf[i] = (unsigned char) XFASTINT (XVECTOR (vector)->contents[i]) & 0xFF;
}
dosmemput (buf, len, offs);
return Qt;
}
DEFUN ("msdos-set-keyboard", Fmsdos_set_keyboard, Smsdos_set_keyboard, 1, 2, 0,
doc: )
(country_code, allkeys)
Lisp_Object country_code, allkeys;
{
CHECK_NUMBER (country_code);
if (!dos_set_keyboard (XINT (country_code), !NILP (allkeys)))
return Qnil;
return Qt;
}
#ifndef HAVE_X_WINDOWS
DEFUN ("msdos-mouse-p", Fmsdos_mouse_p, Smsdos_mouse_p, 0, 0, 0,
doc: )
()
{
if (have_mouse)
return Qt;
else
return Qnil;
}
#endif
DEFUN ("msdos-mouse-init", Fmsdos_mouse_init, Smsdos_mouse_init, 0, 0, "",
doc: )
()
{
if (have_mouse)
{
have_mouse = 1;
mouse_init ();
return Qt;
}
return Qnil;
}
DEFUN ("msdos-mouse-enable", Fmsdos_mouse_enable, Smsdos_mouse_enable, 0, 0, "",
doc: )
()
{
if (have_mouse)
{
have_mouse = 1;
mouse_on ();
}
return have_mouse ? Qt : Qnil;
}
DEFUN ("msdos-mouse-disable", Fmsdos_mouse_disable, Smsdos_mouse_disable, 0, 0, "",
doc: )
()
{
mouse_off ();
if (have_mouse) have_mouse = -1;
return Qnil;
}
DEFUN ("insert-startup-screen", Finsert_startup_screen, Sinsert_startup_screen, 0, 0, "",
doc: )
()
{
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);
s += 2;
}
insert_char ('\n');
}
return Qt;
}
EMACS_INT dos_country_code;
EMACS_INT dos_codepage;
EMACS_INT dos_timezone_offset;
EMACS_INT dos_decimal_point;
EMACS_INT dos_keyboard_layout;
unsigned char dos_country_info[DOS_COUNTRY_INFO];
static unsigned char usa_country_info[DOS_COUNTRY_INFO] = {
0, 0,
'$', 0, 0, 0, 0,
',', 0,
'.', 0,
'/', 0,
':', 0,
0,
2,
0,
0, 0, 0, 0,
' ', 0,
0, 0, 0, 0, 0, 0, 0, 0, 0, 0
};
EMACS_INT dos_hyper_key;
EMACS_INT dos_super_key;
EMACS_INT dos_keypad_mode;
Lisp_Object Vdos_version;
Lisp_Object Vdos_display_scancodes;
#ifndef HAVE_X_WINDOWS
static unsigned dos_windows_version;
Lisp_Object Vdos_windows_version;
char parent_vm_title[50];
int w95_set_virtual_machine_title (const char *);
void
restore_parent_vm_title (void)
{
if (NILP (Vdos_windows_version))
return;
if ((dos_windows_version & 0xff) >= 4 && parent_vm_title[0])
w95_set_virtual_machine_title (parent_vm_title);
delay (50);
}
#endif
void
init_dosfns ()
{
union REGS regs;
_go32_dpmi_registers dpmiregs;
unsigned long xbuf = _go32_info_block.linear_address_of_transfer_buffer;
#ifndef SYSTEM_MALLOC
get_lim_data ();
#endif
regs.x.ax = 0x3000;
intdos (®s, ®s);
Vdos_version = Fcons (make_number (regs.h.al), make_number (regs.h.ah));
dpmiregs.x.ax = 0x3800;
dpmiregs.x.ds = xbuf >> 4;
dpmiregs.x.dx = 0;
dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0;
_go32_dpmi_simulate_int (0x21, &dpmiregs);
if (dpmiregs.x.flags & 1)
{
dos_country_code = 1;
memcpy (dos_country_info, usa_country_info, DOS_COUNTRY_INFO);
}
else
{
dos_country_code = dpmiregs.x.bx;
dosmemget (xbuf, DOS_COUNTRY_INFO, dos_country_info);
}
dos_set_keyboard (dos_country_code, 0);
regs.x.ax = 0x6601;
intdos (®s, ®s);
if (regs.x.cflag)
switch (dos_country_code)
{
case 45:
case 47:
dos_codepage = 865;
break;
default:
dos_codepage = 437;
}
else
dos_codepage = regs.x.bx & 0xffff;
#ifndef HAVE_X_WINDOWS
parent_vm_title[0] = '\0';
dpmiregs.x.ax = 0x1600;
dpmiregs.x.ss = dpmiregs.x.sp = dpmiregs.x.flags = 0;
_go32_dpmi_simulate_int (0x2f, &dpmiregs);
if (dpmiregs.h.al > 2 && dpmiregs.h.al != 0x80 && dpmiregs.h.al != 0xff
&& (dpmiregs.h.al > 3 || dpmiregs.h.ah > 0))
{
dos_windows_version = dpmiregs.x.ax;
Vdos_windows_version =
Fcons (make_number (dpmiregs.h.al), make_number (dpmiregs.h.ah));
if (dpmiregs.h.al >= 4)
{
dpmiregs.x.ax = 0x168e;
dpmiregs.x.dx = 3;
dpmiregs.x.cx = sizeof(parent_vm_title) - 1;
dpmiregs.x.es = __tb >> 4;
dpmiregs.x.di = __tb & 15;
dpmiregs.x.sp = dpmiregs.x.ss = dpmiregs.x.flags = 0;
_go32_dpmi_simulate_int (0x2f, &dpmiregs);
if (dpmiregs.x.ax == 1)
dosmemget (__tb, sizeof(parent_vm_title), parent_vm_title);
}
}
else
{
dos_windows_version = 0;
Vdos_windows_version = Qnil;
}
#endif
#if __DJGPP__ >= 2
__opendir_flags = __OPENDIR_FIND_HIDDEN;
#if __DJGPP_MINOR__ == 0
if (!NILP (Fmsdos_long_file_names ()))
__opendir_flags |= __OPENDIR_PRESERVE_CASE;
#endif
#endif
}
#ifndef HAVE_X_WINDOWS
static char *vga_colors[16] = {
"black", "blue", "green", "cyan", "red", "magenta", "brown",
"lightgray", "darkgray", "lightblue", "lightgreen", "lightcyan",
"lightred", "lightmagenta", "yellow", "white"
};
int
msdos_stdcolor_idx (const char *name)
{
int i;
for (i = 0; i < sizeof (vga_colors) / sizeof (vga_colors[0]); i++)
if (strcasecmp (name, vga_colors[i]) == 0)
return i;
return
strcmp (name, unspecified_fg) == 0 ? FACE_TTY_DEFAULT_FG_COLOR
: strcmp (name, unspecified_bg) == 0 ? FACE_TTY_DEFAULT_BG_COLOR
: FACE_TTY_DEFAULT_COLOR;
}
Lisp_Object
msdos_stdcolor_name (int idx)
{
extern Lisp_Object Qunspecified;
if (idx == FACE_TTY_DEFAULT_FG_COLOR)
return build_string (unspecified_fg);
else if (idx == FACE_TTY_DEFAULT_BG_COLOR)
return build_string (unspecified_bg);
else if (idx >= 0 && idx < sizeof (vga_colors) / sizeof (vga_colors[0]))
return build_string (vga_colors[idx]);
else
return Qunspecified;
}
int
ms_windows_version (void)
{
return dos_windows_version;
}
int
w95_set_virtual_machine_title (const char *title_string)
{
if (!NILP (Vdos_windows_version)
&& (dos_windows_version & 0xff) >= 4)
{
_go32_dpmi_registers regs;
dosmemput (title_string, strlen (title_string) + 1, __tb);
regs.x.ax = 0x168e;
regs.x.dx = 1;
regs.x.es = __tb >> 4;
regs.x.di = __tb & 15;
regs.x.sp = regs.x.ss = regs.x.flags = 0;
_go32_dpmi_simulate_int (0x2f, ®s);
return regs.x.ax == 1;
}
return 0;
}
void
x_set_title (f, name)
struct frame *f;
Lisp_Object name;
{
if (EQ (name, f->title))
return;
update_mode_lines = 1;
f->title = name;
if (NILP (name))
name = f->name;
if (FRAME_MSDOS_P (f))
{
BLOCK_INPUT;
w95_set_virtual_machine_title (SDATA (name));
UNBLOCK_INPUT;
}
}
#endif
DEFUN ("file-system-info", Ffile_system_info, Sfile_system_info, 1, 1, 0,
doc: )
(filename)
Lisp_Object filename;
{
struct statfs stfs;
Lisp_Object encoded, value;
CHECK_STRING (filename);
filename = Fexpand_file_name (filename, Qnil);
encoded = ENCODE_FILE (filename);
if (statfs (SDATA (encoded), &stfs))
value = Qnil;
else
value = list3 (make_float ((double) stfs.f_bsize * stfs.f_blocks),
make_float ((double) stfs.f_bsize * stfs.f_bfree),
make_float ((double) stfs.f_bsize * stfs.f_bavail));
return value;
}
void
dos_cleanup (void)
{
#ifndef HAVE_X_WINDOWS
restore_parent_vm_title ();
#endif
if (termscript)
{
fflush (termscript);
fsync (fileno (termscript));
}
}
syms_of_dosfns ()
{
defsubr (&Sint86);
defsubr (&Sdos_memget);
defsubr (&Sdos_memput);
defsubr (&Smsdos_mouse_init);
defsubr (&Smsdos_mouse_enable);
defsubr (&Smsdos_set_keyboard);
defsubr (&Sinsert_startup_screen);
defsubr (&Smsdos_mouse_disable);
defsubr (&Sfile_system_info);
#ifndef HAVE_X_WINDOWS
defsubr (&Smsdos_mouse_p);
#endif
DEFVAR_INT ("dos-country-code", &dos_country_code,
doc: );
DEFVAR_INT ("dos-codepage", &dos_codepage,
doc: );
DEFVAR_INT ("dos-timezone-offset", &dos_timezone_offset,
doc: );
DEFVAR_LISP ("dos-version", &Vdos_version,
doc: );
#ifndef HAVE_X_WINDOWS
DEFVAR_LISP ("dos-windows-version", &Vdos_windows_version,
doc: );
#endif
DEFVAR_LISP ("dos-display-scancodes", &Vdos_display_scancodes,
doc: );
Vdos_display_scancodes = Qnil;
DEFVAR_INT ("dos-hyper-key", &dos_hyper_key,
doc: );
dos_hyper_key = 0;
DEFVAR_INT ("dos-super-key", &dos_super_key,
doc: );
dos_super_key = 0;
DEFVAR_INT ("dos-keypad-mode", &dos_keypad_mode,
doc: );
dos_keypad_mode = 0x75;
DEFVAR_INT ("dos-keyboard-layout", &dos_keyboard_layout,
doc: );
dos_keyboard_layout = 1;
DEFVAR_INT ("dos-decimal-point", &dos_decimal_point,
doc: );
dos_decimal_point = 0;
}
#endif