#include "dosfns.h"
#include "msdos.h"
#include <go32.h>
-
-DEFUN ("mode25", Fmode25, Smode25, 0, 0, "", "\
-Changes the number of rows to 25.")
- ()
-{
- union REGS regs;
-
-#ifdef HAVE_X_WINDOWS
- if (!inhibit_window_system)
- return Qnil;
-#endif
- mouse_off ();
- regs.x.ax = 3;
- int86 (0x10, ®s, ®s);
- regs.x.ax = 0x1101;
- regs.h.bl = 0;
- int86 (0x10, ®s, ®s);
- regs.x.ax = 0x1200;
- regs.h.bl = 32;
- int86 (0x10, ®s, ®s);
- regs.x.ax = 3;
- int86 (0x10, ®s, ®s);
- Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
- Frecenter (Qnil);
- Fredraw_display ();
- if (have_mouse) mouse_init ();
- return Qnil;
-}
-
-DEFUN ("mode4350", Fmode4350, Smode4350, 0, 0, "", "\
-Changes the number of rows to 43 (EGA) or 50 (VGA).")
- ()
-{
- union REGS regs;
-
-#ifdef HAVE_X_WINDOWS
- if (!inhibit_window_system)
- return Qnil;
-#endif
- mouse_off ();
- regs.x.ax = 3;
- int86 (0x10, ®s, ®s);
- regs.x.ax = 0x1112;
- regs.h.bl = 0;
- int86 (0x10, ®s, ®s);
- regs.x.ax = 0x1200;
- regs.h.bl = 32;
- int86 (0x10, ®s, ®s);
- regs.x.ax = 0x0100;
- regs.x.cx = 7;
- int86 (0x10, ®s, ®s);
- Fset_frame_size (Fselected_frame (), ScreenCols (), ScreenRows ());
- Frecenter (Qnil);
- Fredraw_display ();
- if (have_mouse) mouse_init ();
- return Qnil;
-}
+#include <dirent.h>
DEFUN ("int86", Fint86, Sint86, 2, 2, 0,
"Call specific MSDOS interrupt number INTERRUPT with REGISTERS.\n\
return Qnil;
}
-DEFUN ("set-mouse-position", Fset_mouse_position, Sset_mouse_position, 3, 3, 0,
- "Move the mouse pointer to the center of character cell (X,Y) in FRAME.\n\
-WARNING: If you use this under X windows,\n\
-you should call `unfocus-frame' afterwards.")
- (frame, x, y)
- Lisp_Object frame, x, y;
-{
- mouse_moveto (XINT (x), XINT (y));
- return Qnil;
-}
-
/* Function to translate colour names to integers. See lisp/term/pc-win.el
for its definition. */
return Qt;
}
-
\f
/* country info */
int dos_country_code;
}
else
dos_codepage = regs.x.bx & 0xffff;
+
+#if __DJGPP__ >= 2
+
+ /* Without this, we never see hidden files.
+ Don't OR it with the previous value, so the value recorded at dump
+ time, possibly with `preserve-case' flags set, won't get through. */
+ __opendir_flags = __OPENDIR_FIND_HIDDEN;
+
+#if __DJGPP_MINOR__ == 0
+ /* Under LFN, preserve the case of files as recorded in the directory
+ (in DJGPP 2.01 and later this is automagically done by the library). */
+ if (!NILP (Fmsdos_long_file_names ()))
+ __opendir_flags |= __OPENDIR_PRESERVE_CASE;
+#endif /* __DJGPP_MINOR__ == 0 */
+#endif /* __DJGPP__ >= 2 */
}
\f
/*
*/
syms_of_dosfns ()
{
- defsubr (&Smode25);
- defsubr (&Smode4350);
defsubr (&Sint86);
defsubr (&Sdos_memget);
defsubr (&Sdos_memput);
defsubr (&Smsdos_mouse_disable);
#ifndef HAVE_X_WINDOWS
defsubr (&Smsdos_mouse_p);
- defsubr (&Sset_mouse_position);
-
Qmsdos_color_translate = intern ("msdos-color-translate");
staticpro (&Qmsdos_color_translate);
#endif