Mercurial > emacs
changeset 13179:b0de215331ba
[!HAVE_X_WINDOWS]:
Reworked display code to perform immediate screen output.
Added menu-bar clock.
Reworked keyboard code to support international keyboards.
Improved keypad handling (see dos-keypad-mode).
Properly distinguish between C-end and C-kp-1 etc.
Corrected M-return & M-kp-enter.
Added support for hyper and super keys.
Reworked mouse code to avoid mouse flicker.
Saves and restores DOS-screen prior to emacs startup.
(sys_select): Would abort if rfds = NULL.
(dos_direct_output): New function.
(dos_dump_scancodes): New variable.
| author | Kim F. Storm <storm@cua.dk> |
|---|---|
| date | Wed, 11 Oct 1995 15:08:15 +0000 |
| parents | 74b4edb62cf0 |
| children | 59663cba4b02 |
| files | src/msdos.c |
| diffstat | 1 files changed, 1743 insertions(+), 1340 deletions(-) [+] |
line wrap: on
line diff
--- a/src/msdos.c Wed Oct 11 15:00:58 1995 +0000 +++ b/src/msdos.c Wed Oct 11 15:08:15 1995 +0000 @@ -18,6 +18,7 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* Contributed by Morten Welinder */ +/* New display, keyboard, and mouse control by Kim F. Storm */ /* Note: some of the stuff here was taken from end of sysdep.c in demacs. */ @@ -45,850 +46,242 @@ /* Damn that local process.h! Instead we can define P_WAIT ourselves. */ #define P_WAIT 1 -static int break_stat; /* BREAK check mode status. */ -static int stdin_stat; /* stdin IOCTL status. */ -static int extended_kbd; /* 101 (102) keyboard present. */ - -int have_mouse; /* Mouse present? */ -static int mouse_last_x; -static int mouse_last_y; - -#define DO_TERMSCRIPT /* define if you want open-termscript to work on msdos */ - -/* Standard putchar may call _flsbuf which doesn't go through - fflush's overlayed internal_flush routine. */ -#undef putchar -#define putchar(x) \ - (--(stdout)->_cnt>=0? \ - ((int)((unsigned char)((*(stdout)->_ptr++=(unsigned)(x))))): \ - (internal_flush (stdout), --(stdout)->_cnt, *(stdout)->_ptr++=(unsigned)(x))) - -static void -mouse_get_xy (int *x, int *y); - -/* Turn off Dos' Ctrl-C checking and inhibit interpretation of control chars - by Dos. Determine the keyboard type. */ -int -dos_ttraw () -{ - union REGS inregs, outregs; - static int only_once = 1; - - if (only_once) { - inregs.h.ah = 0xc0; - int86 (0x15, &inregs, &outregs); - extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0); - } - - break_stat = getcbrk (); - setcbrk (0); - install_ctrl_break_check (); - - if (only_once) - have_mouse = mouse_init1 (); - - inregs.x.ax = 0x4400; /* Get IOCTL status. */ - inregs.x.bx = 0x00; /* 0 = stdin. */ - intdos (&inregs, &outregs); - stdin_stat = outregs.h.dl; - - only_once = 0; - - inregs.x.dx = stdin_stat | 0x0020; /* raw mode */ - inregs.x.ax = 0x4401; /* Set IOCTL status */ - intdos (&inregs, &outregs); - return !outregs.x.cflag; -} - -/* Restore status of standard input and Ctrl-C checking. */ -int -dos_ttcooked () -{ - union REGS inregs, outregs; - - setcbrk (break_stat); - mouse_off (); - - inregs.x.ax = 0x4401; /* Set IOCTL status. */ - inregs.x.bx = 0x00; /* 0 = stdin. */ - inregs.x.dx = stdin_stat; - intdos (&inregs, &outregs); - return !outregs.x.cflag; -} - -/* generate a reliable event timestamp, KFS 1995-07-06 */ static unsigned long event_timestamp () { struct time t; unsigned long s; - + gettime (&t); s = t.ti_min; s *= 60; s += t.ti_sec; s *= 1000; s += t.ti_hund * 10; - + return s; } -static unsigned short -ibmpc_translate_map[] = -{ - /* --------------- 00 to 0f --------------- */ - 0, /* Ctrl Break */ - 0xff1b, /* Escape */ - 0xffb1, /* Keypad 1 */ - 0xffb2, /* Keypad 2 */ - 0xffb3, /* Keypad 3 */ - 0xffb4, /* Keypad 4 */ - 0xffb5, /* Keypad 5 */ - 0xffb6, /* Keypad 6 */ - 0xffb7, /* Keypad 7 */ - 0xffb8, /* Keypad 8 */ - 0xffb9, /* Keypad 9 */ - 0xffb0, /* Keypad 0 */ - '-', '=', - 0xff08, /* Backspace */ - 0xff74, /* (Shift) Tab [Tab doesn't use this table] */ - - /* --------------- 10 to 1f --------------- */ - 'q', 'w', 'e', 'r', 't', 'y', 'u', 'i', 'o', 'p', '[', ']', - 0xff8d, /* Keypad Enter */ - 0, /* Ctrl */ - 'a', 's', - - /* --------------- 20 to 2f --------------- */ - 'd', 'f', 'g', 'h', 'j', 'k', 'l', ';', '\'', '`', - 0, /* Left shift */ - '\\', 'z', 'x', 'c', 'v', - - /* --------------- 30 to 3f --------------- */ - 'b', 'n', 'm', ',', '.', - 0xffaf, /* Grey / */ - 0, /* Right shift */ - 0xffaa, /* Grey * */ - 0, /* Alt */ - ' ', - 0, /* Caps Lock */ - 0xffbe, /* F1 */ - 0xffbf, /* F2 */ - 0xffc0, /* F3 */ - 0xffc1, /* F4 */ - 0xffc2, /* F5 */ - - /* --------------- 40 to 4f --------------- */ - 0xffc3, /* F6 */ - 0xffc4, /* F7 */ - 0xffc5, /* F8 */ - 0xffc6, /* F9 */ - 0xffc7, /* F10 */ - 0, /* Num Lock */ - 0, /* Scroll Lock */ - 0xff50, /* Home */ - 0xff52, /* Up */ - 0xff55, /* Page Up */ - 0xffad, /* Grey - */ - 0xff51, /* Left */ - 0xffb5, /* Keypad 5 */ - 0xff53, /* Right */ - 0xffab, /* Grey + */ - 0xff57, /* End */ + +/* ------------------------ Mouse control --------------------------- + * + * Coordinates are in screen positions and zero based. + * Mouse buttons are numbered from left to right and also zero based. + */ - /* --------------- 50 to 5f --------------- */ - 0xff54, /* Down */ - 0xff56, /* Page Down */ - 0xff63, /* Insert */ - 0xffff, /* Delete */ - 0xffbe, /* (Shift) F1 */ - 0xffbf, /* (Shift) F2 */ - 0xffc0, /* (Shift) F3 */ - 0xffc1, /* (Shift) F4 */ - 0xffc2, /* (Shift) F5 */ - 0xffc3, /* (Shift) F6 */ - 0xffc4, /* (Shift) F7 */ - 0xffc5, /* (Shift) F8 */ - 0xffc6, /* (Shift) F9 */ - 0xffc7, /* (Shift) F10 */ - 0xffbe, /* (Ctrl) F1 */ - 0xffbf, /* (Ctrl) F2 */ - - /* --------------- 60 to 6f --------------- */ - 0xffc0, /* (Ctrl) F3 */ - 0xffc1, /* (Ctrl) F4 */ - 0xffc2, /* (Ctrl) F5 */ - 0xffc3, /* (Ctrl) F6 */ - 0xffc4, /* (Ctrl) F7 */ - 0xffc5, /* (Ctrl) F8 */ - 0xffc6, /* (Ctrl) F9 */ - 0xffc7, /* (Ctrl) F10 */ - 0xffbe, /* (Alt) F1 */ - 0xffbf, /* (Alt) F2 */ - 0xffc0, /* (Alt) F3 */ - 0xffc1, /* (Alt) F4 */ - 0xffc2, /* (Alt) F5 */ - 0xffc3, /* (Alt) F6 */ - 0xffc4, /* (Alt) F7 */ - 0xffc5, /* (Alt) F8 */ +int have_mouse; /* 0: no, 1: enabled, -1: disabled */ +static int mouse_visible; - /* --------------- 70 to 7f --------------- */ - 0xffc6, /* (Alt) F9 */ - 0xffc7, /* (Alt) F10 */ - 0xff6d, /* (Ctrl) Sys Rq */ - 0xff51, /* (Ctrl) Left */ - 0xff53, /* (Ctrl) Right */ - 0xff57, /* (Ctrl) End */ - 0xff56, /* (Ctrl) Page Down */ - 0xff50, /* (Ctrl) Home */ - '1', '2', '3', '4', '5', '6', '7', '8', /* (Alt) */ - - /* --------------- 80 to 8f --------------- */ - '9', '0', '-', '=', /* (Alt) */ - 0xff55, /* (Ctrl) Page Up */ - 0xffc8, /* F11 */ - 0xffc9, /* F12 */ - 0xffc8, /* (Shift) F11 */ - 0xffc9, /* (Shift) F12 */ - 0xffc8, /* (Ctrl) F11 */ - 0xffc9, /* (Ctrl) F12 */ - 0xffc8, /* (Alt) F11 */ - 0xffc9, /* (Alt) F12 */ - 0xff52, /* (Ctrl) Up */ - 0xffae, /* (Ctrl) Grey - */ - 0xffb5, /* (Ctrl) Keypad 5 */ - - /* --------------- 90 to 9f --------------- */ - 0xffab, /* (Ctrl) Grey + */ - 0xff54, /* (Ctrl) Down */ - 0xff63, /* (Ctrl) Insert */ - 0xffff, /* (Ctrl) Delete */ - 0xff09, /* (Ctrl) Tab */ - 0xffaf, /* (Ctrl) Grey / */ - 0xffaa, /* (Ctrl) Grey * */ - 0xff50, /* (Alt) Home */ - 0xff52, /* (Alt) Up */ - 0xff55, /* (Alt) Page Up */ - 0, /* NO KEY */ - 0xff51, /* (Alt) Left */ - 0, /* NO KEY */ - 0xff53, /* (Alt) Right */ - 0, /* NO KEY */ - 0xff57, /* (Alt) End */ +static int mouse_last_x; +static int mouse_last_y; - /* --------------- a0 to af --------------- */ - 0xff54, /* (Alt) Down */ - 0xff56, /* (Alt) Page Down */ - 0xff63, /* (Alt) Insert */ - 0xffff, /* (Alt) Delete */ - 0xffaf, /* (Alt) Grey / */ - 0xff09, /* (Alt) Tab */ - 0xff0d /* (Alt) Enter */ -}; - -/* Get a char from keyboard. Function keys are put into the event queue. */ -static int -dos_rawgetc () -{ - struct input_event event; - union REGS regs; - int ctrl_p, alt_p, shift_p; - - /* Calculate modifier bits */ - regs.h.ah = extended_kbd ? 0x12 : 0x02; - int86 (0x16, ®s, ®s); - ctrl_p = ((regs.h.al & 4) != 0); - shift_p = ((regs.h.al & 3) != 0); - /* Please be very careful here not to break international keyboard support. - When Keyb.Com is loaded, the key marked `Alt Gr' is used for accessing - characters like { and } if their positions are overlaid. */ - alt_p = ((extended_kbd ? (regs.h.ah & 2) : (regs.h.al & 8)) != 0); +static int mouse_button_translate[NUM_MOUSE_BUTTONS]; +static int mouse_button_count; - /* The following condition is equivalent to `kbhit ()', except that - it uses the bios to do its job. This pleases DESQview/X. */ - while ((regs.h.ah = extended_kbd ? 0x11 : 0x01), - int86 (0x16, ®s, ®s), - (regs.x.flags & 0x40) == 0) - { - union REGS regs; - register unsigned char c; - int sc, code; - - regs.h.ah = extended_kbd ? 0x10 : 0x00; - int86 (0x16, ®s, ®s); - c = regs.h.al; - sc = regs.h.ah; - - /* Determine from the scan code if a keypad key was pressed. */ - if (c >= '0' && c <= '9' && sc > 0xb) - sc = (c == '0') ? 0xb : (c - '0' + 1), c = 0; - else if (sc == 0x53 && c != 0xe0) - { - code = 0xffae; /* Keypad decimal point/comma. */ - goto nonascii; - } - else if (sc == 0xe0) - { - switch (c) - { - case 10: /* Ctrl Enter */ - case 13: - sc = 0x1c; - break; - case '/': - sc = 0x35; - break; - default: - sc = 0; - }; - c = 0; - } +void +mouse_on () +{ + union REGS regs; - if (c == 0 - || c == ' ' - || alt_p - || (ctrl_p && shift_p) - || (c == 0xe0 && sc != 0) /* Pseudo-key */ - || sc == 0x37 /* Grey * */ - || sc == 0x4a /* Grey - */ - || sc == 0x4e /* Grey + */ - || sc == 0x0e) /* Back space *key*, not Ctrl-h */ - { - if (sc >= (sizeof (ibmpc_translate_map) / sizeof (short))) - code = 0; - else - code = ibmpc_translate_map[sc]; - if (code != 0) - { - if (code >= 0x100) - { - nonascii: - event.kind = non_ascii_keystroke; - event.code = (code & 0xff) + 0xff00; - } - else - { - /* Don't return S- if we don't have to. `shifted' is - supposed to be the shifted versions of the characters - in `unshifted'. Unfortunately, this is only true for - US keyboard layout. If anyone knows how to do this - right, please tell us. */ - static char *unshifted - = "abcdefghijklmnopqrstuvwxyz,./=;[\\]'-`0123456789"; - static char *shifted - = "ABCDEFGHIJKLMNOPQRSTUVWXYZ<>?+:{|}\"_~)!@#$%^&*("; - char *pos; - - if (shift_p && (pos = strchr (unshifted, code))) - { - c = shifted[pos - unshifted]; - shift_p = 0; - } - else - if (c == 0) c = code; - event.kind = ascii_keystroke; - event.code = c; - } - event.modifiers - = (shift_p ? shift_modifier : 0) - + (ctrl_p ? ctrl_modifier : 0) - + (alt_p ? meta_modifier : 0); - /* EMACS == Enter Meta Alt Control Shift */ - XSETFRAME (event.frame_or_window, selected_frame); - event.timestamp = event_timestamp (); - kbd_buffer_store_event (&event); - } - } else - return c; + if (have_mouse > 0 && !mouse_visible) + { + if (termscript) + fprintf (termscript, "<M_ON>"); + regs.x.ax = 0x0001; + int86 (0x33, ®s, ®s); + mouse_visible = 1; } - - if (have_mouse > 0) - { - int but, press, x, y, ok; - - /* Check for mouse movement *before* buttons. */ - mouse_check_moved (); - - for (but = 0; but < NUM_MOUSE_BUTTONS; but++) - for (press = 0; press < 2; press++) - { - if (press) - ok = mouse_pressed (but, &x, &y); - else - ok = mouse_released (but, &x, &y); - if (ok) - { - event.kind = mouse_click; - event.code = but; - event.modifiers - = (shift_p ? shift_modifier : 0) - + (ctrl_p ? ctrl_modifier : 0) - + (alt_p ? meta_modifier : 0) - + (press ? down_modifier : up_modifier); - event.x = x; - event.y = y; - XSETFRAME (event.frame_or_window, selected_frame); - event.timestamp = event_timestamp (); - kbd_buffer_store_event (&event); - } - } - } - - return -1; } -static int prev_get_char = -1; - -/* Return 1 if a key is ready to be read without suspending execution. */ -dos_keysns () +void +mouse_off () { - 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; - return c; - } - else - return dos_rawgetc (); -} + union REGS regs; -/* Hostnames for a pc are not really funny, but they are used in change log - so we emulate the best we can. */ -gethostname (p, size) - char *p; - int size; -{ - char *q = egetenv ("HOSTNAME"); - - if (!q) q = "pc"; - strcpy (p, q); - return 0; -} - -/* Destructively turn backslashes into slashes. */ -void -dostounix_filename (p) - register char *p; -{ - while (*p) + if (have_mouse > 0 && mouse_visible) { - if (*p == '\\') - *p = '/'; - p++; + if (termscript) + fprintf (termscript, "<M_OFF>"); + regs.x.ax = 0x0002; + int86 (0x33, ®s, ®s); + mouse_visible = 0; } } -/* Destructively turn slashes into backslashes. */ void -unixtodos_filename (p) - register char *p; +mouse_moveto (x, y) + int x, y; { - while (*p) - { - if (*p == '/') - *p = '\\'; - p++; - } + union REGS regs; + + if (termscript) + fprintf (termscript, "<M_XY=%dx%d>", x, y); + regs.x.ax = 0x0004; + mouse_last_x = regs.x.cx = x * 8; + mouse_last_y = regs.x.dx = y * 8; + int86 (0x33, ®s, ®s); } -/* Get the default directory for a given drive. 0=def, 1=A, 2=B, ... */ -int -getdefdir (drive, dst) - int drive; - char *dst; +static int +mouse_pressed (b, xp, yp) + int b, *xp, *yp; +{ + union REGS regs; + + if (b >= mouse_button_count) + return 0; + regs.x.ax = 0x0005; + regs.x.bx = mouse_button_translate[b]; + int86 (0x33, ®s, ®s); + if (regs.x.bx) + *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; + regs.x.ax = 0x0006; + regs.x.bx = mouse_button_translate[b]; + int86 (0x33, ®s, ®s); + if (regs.x.bx) + *xp = regs.x.cx / 8, *yp = regs.x.dx / 8; + return (regs.x.bx != 0); +} + +static void +mouse_get_xy (int *x, int *y) { union REGS regs; - *dst++ = '/'; - regs.h.dl = drive; - regs.x.si = (int) dst; - regs.h.ah = 0x47; - intdos (®s, ®s); - return !regs.x.cflag; + regs.x.ax = 0x0003; + int86 (0x33, ®s, ®s); + *x = regs.x.cx / 8; + *y = regs.x.dx / 8; +} + +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; + union REGS regs; + + regs.x.ax = 0x0003; + int86 (0x33, ®s, ®s); + *f = selected_frame; + *bar_window = Qnil; + mouse_get_xy (&ix, &iy); + selected_frame->mouse_moved = 0; + *x = make_number (ix); + *y = make_number (iy); + *time = event_timestamp (); +} + +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); + mouse_last_x = x; + mouse_last_y = y; } -/* Remove all CR's that are followed by a LF. */ -int -crlf_to_lf (n, buf) - register int n; - register unsigned char *buf; +void +mouse_init () { - unsigned char *np = buf; - unsigned char *startp = buf; - unsigned char *endp = buf + n; - unsigned char c; + union REGS regs; + + if (termscript) + fprintf (termscript, "<M_INIT>"); + + regs.x.ax = 0x0021; + int86 (0x33, ®s, ®s); + + regs.x.ax = 0x0007; + regs.x.cx = 0; + regs.x.dx = 8 * (ScreenCols () - 1); + int86 (0x33, ®s, ®s); + + regs.x.ax = 0x0008; + regs.x.cx = 0; + regs.x.dx = 8 * (ScreenRows () - 1); + int86 (0x33, ®s, ®s); + + mouse_moveto (0, 0); + mouse_visible = 0; +} + +/* ------------------------- Screen control ---------------------- + * + */ - if (n == 0) - return n; - while (buf < endp - 1) - { - if (*buf == 0x0d) - { - if (*(++buf) != 0x0a) - *np++ = 0x0d; - } - else - *np++ = *buf++; - } - if (buf < endp) - *np++ = *buf++; - return np - startp; -} +static int internal_terminal = 0; + +#ifndef HAVE_X_WINDOWS +extern unsigned char ScreenAttrib; +static int screen_face; +static int highlight; + +static int screen_size_X; +static int screen_size_Y; +static int screen_size; + +static int current_pos_X; +static int current_pos_Y; +static int new_pos_X; +static int new_pos_Y; + +static void *startup_screen_buffer; +static int startup_screen_size_X; +static int startup_screen_size_Y; +static int startup_pos_X; +static int startup_pos_Y; + +static int term_setup_done; + +/* Similar to the_only_frame. */ +struct x_display the_only_x_display; + +/* This is never dereferenced. */ +Display *x_current_display; -/* Run command as specified by ARGV in directory DIR. - The command is run with input from TEMPIN and output to file TEMPOUT. */ -int -run_msdos_command (argv, dir, tempin, tempout) - unsigned char **argv; - Lisp_Object dir; - int tempin, tempout; -{ - char *saveargv1, *saveargv2, **envv; - char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS. */ - int msshell, result = -1; - int in, out, inbak, outbak, errbak; - int x, y; - Lisp_Object cmd; - - /* Get current directory as MSDOS cwd is not per-process. */ - getwd (oldwd); - - cmd = Ffile_name_nondirectory (build_string (argv[0])); - msshell = !NILP (Fmember (cmd, Fsymbol_value (intern ("msdos-shells")))) - && !strcmp ("-c", argv[1]); - if (msshell) - { - saveargv1 = argv[1]; - saveargv2 = argv[2]; - argv[1] = "/c"; - if (argv[2]) - { - char *p = alloca (strlen (argv[2]) + 1); - - strcpy (argv[2] = p, saveargv2); - while (*p && isspace (*p)) - p++; - while (*p && !isspace (*p)) - if (*p == '/') - *p++ = '\\'; - else - p++; - } - } - - /* Build the environment array. */ - { - extern Lisp_Object Vprocess_environment; - Lisp_Object tmp, lst; - int i, len; - - lst = Vprocess_environment; - len = XFASTINT (Flength (lst)); - - envv = alloca ((len + 1) * sizeof (char *)); - for (i = 0; i < len; i++) - { - tmp = Fcar (lst); - lst = Fcdr (lst); - CHECK_STRING (tmp, 0); - envv[i] = alloca (XSTRING (tmp)->size + 1); - strcpy (envv[i], XSTRING (tmp)->data); - } - envv[len] = (char *) 0; - } - - if (STRINGP (dir)) - chdir (XSTRING (dir)->data); - inbak = dup (0); - outbak = dup (1); - errbak = dup (2); - if (inbak < 0 || outbak < 0 || errbak < 0) - goto done; /* Allocation might fail due to lack of descriptors. */ - - if (have_mouse > 0) - { - mouse_get_xy (&x, &y); - mouse_off (); - } - dos_ttcooked(); /* do it here while 0 = stdin */ - - dup2 (tempin, 0); - dup2 (tempout, 1); - dup2 (tempout, 2); - - result = spawnve (P_WAIT, argv[0], argv, envv); - - dup2 (inbak, 0); - dup2 (outbak, 1); - dup2 (errbak, 2); - close (inbak); - close (outbak); - close (errbak); - - dos_ttraw(); - if (have_mouse > 0) { - mouse_init (); - mouse_moveto (x, y); - } - - done: - chdir (oldwd); - if (msshell) - { - argv[1] = saveargv1; - argv[2] = saveargv2; - } - return result; -} - +#define SCREEN_SET_CURSOR() \ + if (current_pos_X != new_pos_X || current_pos_Y != new_pos_Y) \ + ScreenSetCursor (current_pos_Y = new_pos_Y, current_pos_X = new_pos_X) -croak (badfunc) - char *badfunc; +static +dos_direct_output (y, x, buf, len) + int y; + int x; + char *buf; + int len; { - fprintf (stderr, "%s not yet implemented\r\n", badfunc); - reset_sys_modes (); - exit (1); -} - -/* A list of unimplemented functions that we silently ignore. */ -unsigned alarm (s) unsigned s; {} -fork () { return 0; } -int kill (x, y) int x, y; { return -1; } -nice (p) int p; {} -void volatile pause () {} -request_sigio () {} -setpgrp () {return 0; } -setpriority (x,y,z) int x,y,z; { return 0; } -sigsetmask (x) int x; { return 0; } -unrequest_sigio () {} - -#ifdef chdir -#undef chdir -#endif - -int -sys_chdir (path) - const char* path; -{ - int len = strlen (path); - char *tmp = (char *)path; - /* Gotta do this extern here due to the corresponding #define: */ - extern int chdir (); - - if (*tmp && tmp[1] == ':') - { - if (getdisk () != tolower (tmp[0]) - 'a') - setdisk (tolower (tmp[0]) - 'a'); - tmp += 2; /* strip drive: KFS 1995-07-06 */ - len -= 2; - } + int t = (int) ScreenPrimary + 2 * (x + y * screen_size_X); - if (len > 1 && (tmp[len - 1] == '/')) - { - char *tmp1 = (char *) alloca (len + 1); - strcpy (tmp1, tmp); - tmp1[len - 1] = 0; - tmp = tmp1; - } - return chdir (tmp); -} - -#ifndef HAVE_SELECT -#include "sysselect.h" - -/* Only event queue is checked. */ -int -sys_select (nfds, rfds, wfds, efds, timeout) - int nfds; - SELECT_TYPE *rfds, *wfds, *efds; - EMACS_TIME *timeout; -{ - SELECT_TYPE orfds; - long timeoutval, clnow, cllast; - struct time t; - - FD_ZERO (&orfds); - if (rfds) - { - orfds = *rfds; - FD_ZERO (rfds); - } - if (wfds) - FD_ZERO (wfds); - if (efds) - FD_ZERO (efds); - - if (nfds != 1 || !FD_ISSET (0, &orfds)) - abort (); - - /* If we are looking only for the terminal, with no timeout, - just read it and wait -- that's more efficient. */ - if (!timeout) - { - while (! detect_input_pending ()); - } - else - { - timeoutval = EMACS_SECS (*timeout) * 100 + EMACS_USECS (*timeout) / 10000; - gettime (&t); - cllast = t.ti_sec * 100 + t.ti_hund; - - while (!detect_input_pending ()) - { - gettime (&t); - clnow = t.ti_sec * 100 + t.ti_hund; - if (clnow < cllast) /* time wrap */ - timeoutval -= clnow + 6000 - cllast; - else - timeoutval -= clnow - cllast; - if (timeoutval <= 0) /* Stop on timer being cleared */ - return 0; - cllast = clnow; - } - } - - FD_SET (0, rfds); - return 1; + while (--len >= 0) { + dosmemput (buf++, 1, t); + t += 2; + } } #endif -/* 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, "/"); - strcat (result, rel); - return 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; - - /* Find our root from argv[0]. Assuming argv[0] is, say, - "c:/emacs/bin/emacs.exe" our root will be "c:/emacs". */ - root = alloca (MAXPATHLEN + 20); - _fixpath (argv[0], root); - strlwr (root); - len = strlen (root); - while (len > 0 && root[len] != '/' && root[len] != ':') - len--; - root[len] = '\0'; - if (len > 4 && strcmp (root + len - 4, "/bin") == 0) - root[len - 4] = '\0'; - else - strcpy (root, "c:/emacs"); /* Only under debuggers, I think. */ - len = strlen (root); - strcpy (emacsroot, root); - - /* We default HOME to our root. */ - setenv ("HOME", root, 0); - - /* We default EMACSPATH to root + "/bin". */ - strcpy (root + len, "/bin"); - setenv ("EMACSPATH", root, 0); - - /* I don't expect anybody to ever use other terminals so the internal - terminal is the default. */ - setenv ("TERM", "internal", 0); - -#ifdef HAVE_X_WINDOWS - /* Emacs expects DISPLAY to be set. */ - setenv ("DISPLAY", "unix:0.0", 0); -#endif - - /* SHELL is a bit tricky -- COMSPEC is the closest we come, but we must - downcase it and mirror the backslashes. */ - s = getenv ("COMSPEC"); - if (!s) s = "c:/command.com"; - t = alloca (strlen (s) + 1); - strcpy (t, s); - strlwr (t); - dostounix_filename (t); - setenv ("SHELL", t, 0); - - /* PATH is also downcased and backslashes mirrored. */ - s = getenv ("PATH"); - if (!s) s = ""; - t = alloca (strlen (s) + 3); - /* Current directory is always considered part of MsDos's path but it is - not normally mentioned. Now it is. */ - strcat (strcpy (t, ".;"), s); - strlwr (t); - dostounix_filename (t); /* Not a single file name, but this should work. */ - setenv ("PATH", t, 1); - - /* In some sense all dos users have root privileges, so... */ - setenv ("USER", "root", 0); - setenv ("NAME", getenv ("USER"), 0); - - /* Time zone determined from country code. To make this possible, the - country code may not span more than one time zone. In other words, - in the USA, you lose. */ - switch (dos_country_code) - { - case 31: /* Belgium */ - case 32: /* The Netherlands */ - case 33: /* France */ - case 34: /* Spain */ - case 36: /* Hungary */ - case 38: /* Yugoslavia (or what's left of it?) */ - case 39: /* Italy */ - case 41: /* Switzerland */ - case 42: /* Tjekia */ - case 45: /* Denmark */ - case 46: /* Sweden */ - case 47: /* Norway */ - case 48: /* Poland */ - case 49: /* Germany */ - /* Daylight saving from last Sunday in March to last Sunday in - September, both at 2AM. */ - setenv ("TZ", "MET-01METDST-02,M3.5.0/02:00,M9.5.0/02:00", 0); - break; - case 44: /* United Kingdom */ - case 351: /* Portugal */ - case 354: /* Iceland */ - setenv ("TZ", "GMT+00", 0); - break; - case 81: /* Japan */ - case 82: /* Korea */ - setenv ("TZ", "???-09", 0); - break; - case 90: /* Turkey */ - case 358: /* Finland */ - case 972: /* Israel */ - setenv ("TZ", "EET-02", 0); - break; - } -} - /* Flash the screen as a substitute for BEEPs. */ +#if (__DJGPP__ < 2) static void do_visible_bell (xorattr) unsigned char xorattr; @@ -919,241 +312,41 @@ jmp visible_bell_0 visible_bell_3:" : /* no output */ - : "m" (xorattr), "g" (ScreenCols () * ScreenRows ()) + : "m" (xorattr), "g" (screen_size) : "%eax", "%ebx", /* "%gs",*/ "%ecx", "%edx"); } -/* At screen position (X,Y), output C characters from string S with - attribute A. Do it fast! */ +static void +ScreenVisualBell (void) +{ + /* This creates an xor-mask that will swap the default fore- and + background colors. */ + do_visible_bell (((the_only_x_display.foreground_pixel + ^ the_only_x_display.background_pixel) + * 0x11) & 0x7f); +} +#endif + +#ifndef HAVE_X_WINDOWS + +/* + * If we write a character in the position where the mouse is, + * the mouse cursor may need to be refreshed. + */ static void -output_string (x, y, s, c, a) - int x, y, c; - unsigned char *s; - unsigned char a; +mouse_off_maybe () { - char *t = (char *)ScreenPrimary + 2 * (x + ScreenCols () * y); -#ifdef DO_TERMSCRIPT - if (termscript) - { - fprintf (termscript, "<%d@%dx%d>", c, x, y); - fwrite (s, sizeof (unsigned char), c, termscript); - } -#endif - asm volatile - (" movl %1,%%eax - call dosmemsetup - movl %%eax,%%edi - movb %0,%%ah - movl %2,%%ecx - movl %3,%%esi -output_string1: - movb (%%esi),%%al - movw %%ax,%%gs:(%%edi) - addl $2,%%edi - incl %%esi - decl %%ecx - jne output_string1" - : /* no output */ - : "m" (a), "g" (t), "g" (c), "g" (s) - : "%eax", "%ecx", /* "%gs",*/ "%esi", "%edi"); -} - -static int internal_terminal = 0; -static int highlight; - -#undef fflush - -static int /* number of characters used by escape; -1 if incomplete */ -flush_escape (resume, cp, count, xp, yp) - int resume; - unsigned char *cp; - int count; - int *xp; - int *yp; -{ - static char spaces[] = " "; - static unsigned char esc_cmd[8]; - static int esc_count = 0; - int esc_needed; - int i, j, used = 0; - - if (!resume) - { - esc_cmd[0] = '\e'; - esc_count = 1; - used++; - } + int x, y; - while (esc_count < 2) - { - if (used == count) - return -1; - esc_cmd[esc_count++] = *cp++; - used++; - } - - switch (esc_cmd[1]) - { - case '@': - esc_needed = 4; - break; - case 'A': - case 'B': - case 'X': - esc_needed = 3; - break; - default: - esc_needed = 2; - break; - } - - while (esc_count < esc_needed) - { - if (used == count) - return -1; - esc_cmd[esc_count++] = *cp++; - used++; - } + if (!mouse_visible) + return; - switch (esc_cmd[1]) - { - case '@': - *yp = esc_cmd[2]; - *xp = esc_cmd[3]; - break; - case 'A': - ScreenAttrib = esc_cmd[2]; - break; - case 'B': - do_visible_bell (esc_cmd[2]); - break; - case 'C': - ScreenClear (); - *xp = *yp = 0; - break; - case 'E': - i = ScreenCols () - *xp; - j = *xp; - while (i >= sizeof spaces) - { - output_string (j, *yp, spaces, sizeof spaces, ScreenAttrib); - j += sizeof spaces; - i -= sizeof spaces; - } - if (i > 0) - output_string (j, *yp, spaces, i, ScreenAttrib); - break; - case 'R': - ++*xp; - break; - case 'U': - --*yp; - break; - case 'X': - ScreenAttrib ^= esc_cmd[2]; - break; - case '\e': - output_string (*xp, *yp, &esc_cmd[1], 1, ScreenAttrib); - ++*xp; - break; - } - - esc_count = 0; - return used; -} - -int -internal_flush (f) - FILE *f; -{ - static int x; - static int y; - static int resume_esc = 0; - unsigned char *cp, *cp0; - int count, i; - - if (!internal_terminal || f != stdout) - { - /* This is a call to the original fflush. */ - fflush (f); - return; - } + mouse_get_xy (&x, &y); + if (y != new_pos_Y || x < new_pos_X) + return; mouse_off (); - cp = stdout->_base; - count = stdout->_ptr - stdout->_base; - -#ifdef DO_TERMSCRIPT - if (termscript) - fprintf (termscript, "\n<FLUSH%s %d>\n", resume_esc ? " RESUME" : "", count); -#endif - - if (resume_esc) - { - i = flush_escape (1, cp, count, &x, &y); - if (i < 0) - count = 0; - else - { - resume_esc = 0; - count -= i; - cp += i; - } - } - - while (count > 0) - { - switch (*cp++) - { - case 27: - i = flush_escape (0, cp, count, &x, &y); - if (i < 0) - { - resume_esc = 1; - count = 0; - } - else - { - count -= i; - cp += i - 1; - } - break; - case 7: - write (1, "\007", 1); - count--; - break; - case 8: - x--; - count--; - break; - case 13: - x = 0; - count--; - break; - case 10: - y++; - count--; - break; - default: - cp0 = cp - 1; - count--; - while (count > 0 && *cp >= ' ') - cp++, count--; - output_string (x, y, cp0, cp - cp0, ScreenAttrib); - x += (cp - cp0); - } - } - fpurge (stdout); - ScreenSetCursor (y, x); - mouse_on (); -} - -#ifndef HAVE_X_WINDOWS -static void -rien_du_tout () -{ - /* Rien du tout, cela va sans dire! */ } static @@ -1161,17 +354,10 @@ { if (visible_bell) { - /* This creates an xor-mask that will swap the default fore- and - background colors. */ mouse_off (); - do_visible_bell (((the_only_x_display.foreground_pixel - ^ the_only_x_display.background_pixel) - * 0x11) & 0x7f); - mouse_on (); + ScreenVisualBell (); } else - /* Write it directly to ms-dos -- don't let it go through our terminal - emulator. This way the mouse cursor won't blink. */ write (1, "\007", 1); } @@ -1187,63 +373,100 @@ fp = FRAME_DEFAULT_FACE (foo); else fp = intern_face (selected_frame, FRAME_COMPUTED_FACES (foo)[face]); -#ifdef DO_TERMSCRIPT if (termscript) fprintf (termscript, "<FACE:%d:%d>", FACE_FOREGROUND (fp), FACE_BACKGROUND (fp)); -#endif - putchar ('\e'); - putchar ('A'); - putchar ((FACE_BACKGROUND (fp) << 4) | FACE_FOREGROUND (fp)); + screen_face = face; + ScreenAttrib = (FACE_BACKGROUND (fp) << 4) | FACE_FOREGROUND (fp); } static IT_write_glyphs (GLYPH *str, int len) { - int face = -1; int newface; - int ch; + int ch, l = len; + unsigned char *buf, *bp; + + if (len == 0) return; - while (len > 0) + buf = bp = alloca (len * 2); + + while (--l >= 0) { newface = FAST_GLYPH_FACE (*str); - if (newface != face) - IT_set_face ((face = newface)); + if (newface != screen_face) + IT_set_face (newface); ch = FAST_GLYPH_CHAR (*str); -#ifdef DO_TERMSCRIPT + *bp++ = (unsigned char)ch; + *bp++ = ScreenAttrib; + if (termscript) fputc (ch, termscript); -#endif - if (ch == '\e') putchar (ch); /* allow esc to be printed */ - putchar (ch); - str++, len--; + str++; } + + mouse_off_maybe (); + dosmemput (buf, 2 * len, + (int)ScreenPrimary + 2 * (new_pos_X + screen_size_X * new_pos_Y)); + new_pos_X += len; } static IT_clear_end_of_line (first_unused) { + char *spaces, *sp; + int i, j; + IT_set_face (0); -#ifdef DO_TERMSCRIPT if (termscript) fprintf (termscript, "<CLR:EOL>"); -#endif - putchar ('\e'); - putchar ('E'); + i = (j = screen_size_X - new_pos_X) * 2; + spaces = sp = alloca (i); + + while (--j >= 0) + { + *sp++ = ' '; + *sp++ = ScreenAttrib; + } + + mouse_off_maybe (); + dosmemput (spaces, i, + (int)ScreenPrimary + 2 * (new_pos_X + screen_size_X * new_pos_Y)); +} + +static +IT_clear_screen (void) +{ + if (termscript) + fprintf (termscript, "<CLR:SCR>"); + IT_set_face (0); + mouse_off (); + ScreenClear (); + new_pos_X = new_pos_Y = 0; +} + +static +IT_clear_to_end (void) +{ + if (termscript) + fprintf (termscript, "<CLR:EOS>"); + + while (new_pos_Y < screen_size_Y) { + new_pos_X = 0; + IT_clear_end_of_line (0); + new_pos_Y++; + } } static IT_cursor_to (int y, int x) { -#ifdef DO_TERMSCRIPT if (termscript) fprintf (termscript, "\n<XY=%dx%d>", x, y); -#endif - putchar ('\e'); - putchar ('@'); - putchar (y); - putchar (x); + new_pos_X = x; + new_pos_Y = y; } +static IT_reassert_line_highlight (new, vpos) int new, vpos; { @@ -1265,6 +488,12 @@ { highlight = 0; IT_set_face (0); /* To possibly clear the highlighting. */ + screen_face = -1; +} + +static +IT_update_end () +{ } /* This was more or less copied from xterm.c */ @@ -1290,6 +519,74 @@ } } +/* + * IT_set_terminal_modes is called when emacs is started, + * resumed, and whenever the screen is redrawn! + */ + +static +IT_set_terminal_modes (void) +{ + char *colors; + FRAME_PTR f; + struct face *fp; + + if (termscript) + fprintf (termscript, "\n<SET_TERM>"); + highlight = 0; + + screen_size_X = ScreenCols (); + screen_size_Y = ScreenRows (); + screen_size = screen_size_X * screen_size_Y; + + new_pos_X = new_pos_Y = 0; + current_pos_X = current_pos_Y = -1; + + if (term_setup_done) + return; + term_setup_done = 1; + + startup_screen_size_X = screen_size_X; + startup_screen_size_Y = screen_size_Y; + + ScreenGetCursor (&startup_pos_Y, &startup_pos_X); + ScreenRetrieve (startup_screen_buffer = xmalloc (screen_size * 2)); + + if (termscript) + fprintf (termscript, "<SCREEN SAVED>\n"); +} + +/* + * IT_reset_terminal_modes is called when emacs is + * suspended or killed. + */ + +static +IT_reset_terminal_modes (void) +{ + if (termscript) + fprintf(termscript, "\n<RESET_TERM>"); + + highlight = 0; + + if (!term_setup_done) + return; + + ScreenUpdate (startup_screen_buffer); + ScreenSetCursor (startup_pos_Y, startup_pos_X); + xfree (startup_screen_buffer); + + if (termscript) + fprintf (termscript, "<SCREEN RESTORED>\n"); + + term_setup_done = 0; +} + +static +IT_set_terminal_window (void) +{ +} + void IT_set_frame_parameters (frame, alist) FRAME_PTR frame; @@ -1349,13 +646,8 @@ } } -/* Similar to the_only_frame. */ -struct x_display the_only_x_display; +#endif /* !HAVE_X_WINDOWS */ -/* This is never dereferenced. */ -Display *x_current_display; - -#endif /* !HAVE_X_WINDOWS */ /* Do we need the internal terminal? */ void @@ -1363,7 +655,7 @@ { char *term = getenv ("TERM"); char *colors; - + #ifdef HAVE_X_WINDOWS if (!inhibit_window_system) return; @@ -1372,315 +664,714 @@ internal_terminal = (!noninteractive) && term && !strcmp (term, "internal"); + if (getenv ("EMACSTEST")) + termscript = fopen(getenv ("EMACSTEST"), "wt"); + #ifndef HAVE_X_WINDOWS - if (internal_terminal && !inhibit_window_system) + if (!internal_terminal || inhibit_window_system) { - Vwindow_system = intern ("pc"); - Vwindow_system_version = make_number (1); - - bzero (&the_only_x_display, sizeof the_only_x_display); - the_only_x_display.background_pixel = 7; /* White */ - the_only_x_display.foreground_pixel = 0; /* Black */ - colors = getenv ("EMACSCOLORS"); - if (colors && strlen (colors) >=2) - { - the_only_x_display.foreground_pixel = colors[0] & 0x07; - the_only_x_display.background_pixel = colors[1] & 0x07; - } - the_only_x_display.line_height = 1; - the_only_frame.display.x = &the_only_x_display; - the_only_frame.output_method = output_msdos_raw; + the_only_frame.output_method = output_termcap; + return; + } - init_frame_faces ((FRAME_PTR) &the_only_frame); - - ring_bell_hook = IT_ring_bell; - write_glyphs_hook = IT_write_glyphs; - cursor_to_hook = raw_cursor_to_hook = IT_cursor_to; - clear_end_of_line_hook = IT_clear_end_of_line; - change_line_highlight_hook = IT_change_line_highlight; - update_begin_hook = IT_update_begin; - reassert_line_highlight_hook = IT_reassert_line_highlight; + Vwindow_system = intern ("pc"); + Vwindow_system_version = make_number (1); + + bzero (&the_only_x_display, sizeof the_only_x_display); + the_only_x_display.background_pixel = 7; /* White */ + the_only_x_display.foreground_pixel = 0; /* Black */ + colors = getenv("EMACSCOLORS"); + if (colors && strlen (colors) >= 2) + { + the_only_x_display.foreground_pixel = colors[0] & 0x07; + the_only_x_display.background_pixel = colors[1] & 0x07; + } + the_only_x_display.line_height = 1; + the_only_frame.display.x = &the_only_x_display; + the_only_frame.output_method = output_msdos_raw; - /* These hooks are called by term.c without being checked. */ - set_terminal_modes_hook - = reset_terminal_modes_hook - = update_end_hook - = set_terminal_window_hook - = (void *)rien_du_tout; - } - else - the_only_frame.output_method = output_termcap; + init_frame_faces ((FRAME_PTR) &the_only_frame); + + ring_bell_hook = IT_ring_bell; + write_glyphs_hook = IT_write_glyphs; + cursor_to_hook = raw_cursor_to_hook = IT_cursor_to; + clear_to_end_hook = IT_clear_to_end; + clear_end_of_line_hook = IT_clear_end_of_line; + clear_frame_hook = IT_clear_screen; + change_line_highlight_hook = IT_change_line_highlight; + update_begin_hook = IT_update_begin; + update_end_hook = IT_update_end; + reassert_line_highlight_hook = IT_reassert_line_highlight; + + /* These hooks are called by term.c without being checked. */ + set_terminal_modes_hook = IT_set_terminal_modes; + reset_terminal_modes_hook = IT_reset_terminal_modes; + set_terminal_window_hook = IT_set_terminal_window; #endif } - -/* When time zones are set from Ms-Dos too may C-libraries are playing - tricks with time values. We solve this by defining our own version - of `gettimeofday' bypassing GO32. Our version needs to be initialized - once and after each call to `tzset' with TZ changed. */ + +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; + return 1; +#else + return 0; +#endif +} + + +/* ----------------------- Keyboard control ---------------------- + * + * Keymaps reflect the following keyboard layout: + * + * 0 1 2 3 4 5 6 7 8 9 10 11 12 BS + * TAB 15 16 17 18 19 20 21 22 23 24 25 26 (41) + * CLOK 30 31 32 33 34 35 36 37 38 39 40 (41) RET + * SH () 45 46 47 48 49 50 51 52 53 54 SHIFT + * SPACE + */ + +static int extended_kbd; /* 101 (102) keyboard present. */ + +struct dos_keyboard_map +{ + char *unshifted; + char *shifted; + char *alt_gr; +}; + -static int daylight, gmtoffset; +static struct dos_keyboard_map us_keyboard = { +/* 0 1 2 3 4 5 */ +/* 01234567890123456789012345678901234567890 12345678901234 */ + "`1234567890-= qwertyuiop[] asdfghjkl;'\\ zxcvbnm,./ ", +/* 0123456789012345678901234567890123456789 012345678901234 */ + "~!@#$%^&*()_+ QWERTYUIOP{} ASDFGHJKL:\"| ZXCVBNM<>? ", + 0 /* no Alt-Gr key */ +}; + +static struct dos_keyboard_map fr_keyboard = { +/* 0 1 2 3 4 5 */ +/* 012 3456789012345678901234567890123456789012345678901234 */ + "ý&‚\",(-Š_€…)= azertyuiop^$ qsdfghjklm—* wxcvbnm;:! ", +/* 0123456789012345678901234567890123456789012345678901234 */ + " 1234567890ø+ AZERTYUIOPùœ QSDFGHJKLM%æ WXCVBN?./õ ", +/* 01234567 89012345678901234567890123456789012345678901234 */ + " ~#{[|`\\^@]} Ï " +}; + +static struct dos_keyboard_map dk_keyboard = { +/* 0 1 2 3 4 5 */ +/* 0123456789012345678901234567890123456789012345678901234 */ + "«1234567890+| qwertyuiop†~ asdfghjkl‘›' zxcvbnm,.- ", +/* 01 23456789012345678901234567890123456789012345678901234 */ + "õ!\"#$%&/()=?` QWERTYUIOP^ ASDFGHJKL’* ZXCVBNM;:_ ", +/* 0123456789012345678901234567890123456789012345678901234 */ + " @œ$ {[]} | " +}; + +static struct keyboard_layout_list +{ + int country_code; + struct dos_keyboard_map *keyboard_map; +} keyboard_layout_list[] = { + 1, &us_keyboard, + 33, &fr_keyboard, + 45, &dk_keyboard +}; + +static struct dos_keyboard_map *keyboard; +static int keyboard_map_all; int -gettimeofday (struct timeval *tp, struct timezone *tzp) +dos_set_keyboard (code, always) + int code; + int always; { - if (tp) - { - struct time t; - struct date d; - struct tm tmrec; - - gettime (&t); - /* If midnight occurs here, the results can be incorrect. */ - getdate (&d); - tmrec.tm_year = d.da_year - 1900; - tmrec.tm_mon = d.da_mon - 1; - tmrec.tm_mday = d.da_day; - tmrec.tm_hour = t.ti_hour; - tmrec.tm_min = t.ti_min; - tmrec.tm_sec = t.ti_sec; - tmrec.tm_gmtoff = gmtoffset; - tmrec.tm_isdst = daylight; - tp->tv_sec = mktime (&tmrec); - tp->tv_usec = t.ti_hund * (1000000 / 100); - } - /* Ignore tzp; it's obsolescent. */ + int i; + for (i = 0; i < (sizeof (keyboard_layout_list)/sizeof (struct keyboard_layout_list)); i++) + if (code == keyboard_layout_list[i].country_code) + { + keyboard = keyboard_layout_list[i].keyboard_map; + keyboard_map_all = always; + dos_keyboard_layout = code; + return 1; + } return 0; } -void -init_gettimeofday () +#define Ignore 0x0000 +#define Normal 0x0000 /* normal key - alt changes scan-code */ +#define FctKey 0x1000 /* func key if c == 0, else c */ +#define Special 0x2000 /* func key even if c != 0 */ +#define ModFct 0x3000 /* special if mod-keys, else 'c' */ +#define Map 0x4000 /* alt scan-code, map to unshift/shift key */ +#define KeyPad 0x5000 /* map to insert/kp-0 depending on c == 0xe0 */ +#define Grey 0x6000 /* Grey keypad key */ + +#define Alt 0x0100 /* alt scan-code */ +#define Ctrl 0x0200 /* ctrl scan-code */ +#define Shift 0x0400 /* shift scan-code */ + +static struct +{ + unsigned char char_code; /* normal code */ + unsigned char meta_code; /* M- code */ + unsigned char keypad_code; /* keypad code */ + unsigned char editkey_code; /* edit key */ +} keypad_translate_map[] = { + '0', '0', 0xb0, /* kp-0 */ 0x63, /* insert */ + '1', '1', 0xb1, /* kp-1 */ 0x57, /* end */ + '2', '2', 0xb2, /* kp-2 */ 0x54, /* down */ + '3', '3', 0xb3, /* kp-3 */ 0x56, /* next */ + '4', '4', 0xb4, /* kp-4 */ 0x51, /* left */ + '5', '5', 0xb5, /* kp-5 */ 0xb5, /* kp-5 */ + '6', '6', 0xb6, /* kp-6 */ 0x53, /* right */ + '7', '7', 0xb7, /* kp-7 */ 0x50, /* home */ + '8', '8', 0xb8, /* kp-8 */ 0x52, /* up */ + '9', '9', 0xb9, /* kp-9 */ 0x55, /* prior */ + '.', '-', 0xae, /* kp-decimal */ 0xff /* delete */ +}; + +static struct +{ + unsigned char char_code; /* normal code */ + unsigned char keypad_code; /* keypad code */ +} grey_key_translate_map[] = { + '/', 0xaf, /* kp-decimal */ + '*', 0xaa, /* kp-multiply */ + '-', 0xad, /* kp-subtract */ + '+', 0xab, /* kp-add */ + '\r', 0x8d /* kp-enter */ +}; + +static unsigned short +ibmpc_translate_map[] = { - time_t ltm, gtm; - struct tm *lstm; -#undef tzset - extern void tzset (void); + /* --------------- 00 to 0f --------------- */ + Normal | 0xff, /* Ctrl Break + Alt-NNN */ + Alt | ModFct | 0x1b, /* Escape */ + Normal | 1, /* '1' */ + Normal | 2, /* '2' */ + Normal | 3, /* '3' */ + Normal | 4, /* '4' */ + Normal | 5, /* '5' */ + Normal | 6, /* '6' */ + Normal | 7, /* '7' */ + Normal | 8, /* '8' */ + Normal | 9, /* '9' */ + Normal | 10, /* '0' */ + Normal | 11, /* '-' */ + Normal | 12, /* '=' */ + Special | 0x08, /* Backspace */ + ModFct | 0x74, /* Tab/Backtab */ + + /* --------------- 10 to 1f --------------- */ + Map | 15, /* 'q' */ + Map | 16, /* 'w' */ + Map | 17, /* 'e' */ + Map | 18, /* 'r' */ + Map | 19, /* 't' */ + Map | 20, /* 'y' */ + Map | 21, /* 'u' */ + Map | 22, /* 'i' */ + Map | 23, /* 'o' */ + Map | 24, /* 'p' */ + Map | 25, /* '[' */ + Map | 26, /* ']' */ + ModFct | 0x0d, /* Return */ + Ignore, /* Ctrl */ + Map | 30, /* 'a' */ + Map | 31, /* 's' */ + + /* --------------- 20 to 2f --------------- */ + Map | 32, /* 'd' */ + Map | 33, /* 'f' */ + Map | 34, /* 'g' */ + Map | 35, /* 'h' */ + Map | 36, /* 'j' */ + Map | 37, /* 'k' */ + Map | 38, /* 'l' */ + Map | 39, /* ';' */ + Map | 40, /* '\'' */ + Map | 0, /* '`' */ + Ignore, /* Left shift */ + Map | 41, /* '\\' */ + Map | 45, /* 'z' */ + Map | 46, /* 'x' */ + Map | 47, /* 'c' */ + Map | 48, /* 'v' */ + + /* --------------- 30 to 3f --------------- */ + Map | 49, /* 'b' */ + Map | 50, /* 'n' */ + Map | 51, /* 'm' */ + Map | 52, /* ',' */ + Map | 53, /* '.' */ + Map | 54, /* '/' */ + Ignore, /* Right shift */ + Grey | 1, /* Grey * */ + Ignore, /* Alt */ + Normal | ' ', /* ' ' */ + Ignore, /* Caps Lock */ + FctKey | 0xbe, /* F1 */ + FctKey | 0xbf, /* F2 */ + FctKey | 0xc0, /* F3 */ + FctKey | 0xc1, /* F4 */ + FctKey | 0xc2, /* F5 */ + + /* --------------- 40 to 4f --------------- */ + FctKey | 0xc3, /* F6 */ + FctKey | 0xc4, /* F7 */ + FctKey | 0xc5, /* F8 */ + FctKey | 0xc6, /* F9 */ + FctKey | 0xc7, /* F10 */ + Ignore, /* Num Lock */ + Ignore, /* Scroll Lock */ + KeyPad | 7, /* Home */ + KeyPad | 8, /* Up */ + KeyPad | 9, /* Page Up */ + Grey | 2, /* Grey - */ + KeyPad | 4, /* Left */ + KeyPad | 5, /* Keypad 5 */ + KeyPad | 6, /* Right */ + Grey | 3, /* Grey + */ + KeyPad | 1, /* End */ + + /* --------------- 50 to 5f --------------- */ + KeyPad | 2, /* Down */ + KeyPad | 3, /* Page Down */ + KeyPad | 0, /* Insert */ + KeyPad | 10, /* Delete */ + Shift | FctKey | 0xbe, /* (Shift) F1 */ + Shift | FctKey | 0xbf, /* (Shift) F2 */ + Shift | FctKey | 0xc0, /* (Shift) F3 */ + Shift | FctKey | 0xc1, /* (Shift) F4 */ + Shift | FctKey | 0xc2, /* (Shift) F5 */ + Shift | FctKey | 0xc3, /* (Shift) F6 */ + Shift | FctKey | 0xc4, /* (Shift) F7 */ + Shift | FctKey | 0xc5, /* (Shift) F8 */ + Shift | FctKey | 0xc6, /* (Shift) F9 */ + Shift | FctKey | 0xc7, /* (Shift) F10 */ + Ctrl | FctKey | 0xbe, /* (Ctrl) F1 */ + Ctrl | FctKey | 0xbf, /* (Ctrl) F2 */ - tzset (); - daylight = 0; - gmtoffset = 0; - ltm = gtm = time (NULL); - ltm = mktime (lstm = localtime (<m)); - gtm = mktime (gmtime (>m)); - daylight = lstm->tm_isdst; - gmtoffset = (int)(gtm - ltm) / 60; -} - -/* These must be global. */ -static _go32_dpmi_seginfo ctrl_break_vector; -static _go32_dpmi_registers ctrl_break_regs; -static int ctrlbreakinstalled = 0; + /* --------------- 60 to 6f --------------- */ + Ctrl | FctKey | 0xc0, /* (Ctrl) F3 */ + Ctrl | FctKey | 0xc1, /* (Ctrl) F4 */ + Ctrl | FctKey | 0xc2, /* (Ctrl) F5 */ + Ctrl | FctKey | 0xc3, /* (Ctrl) F6 */ + Ctrl | FctKey | 0xc4, /* (Ctrl) F7 */ + Ctrl | FctKey | 0xc5, /* (Ctrl) F8 */ + Ctrl | FctKey | 0xc6, /* (Ctrl) F9 */ + Ctrl | FctKey | 0xc7, /* (Ctrl) F10 */ + Alt | FctKey | 0xbe, /* (Alt) F1 */ + Alt | FctKey | 0xbf, /* (Alt) F2 */ + Alt | FctKey | 0xc0, /* (Alt) F3 */ + Alt | FctKey | 0xc1, /* (Alt) F4 */ + Alt | FctKey | 0xc2, /* (Alt) F5 */ + Alt | FctKey | 0xc3, /* (Alt) F6 */ + Alt | FctKey | 0xc4, /* (Alt) F7 */ + Alt | FctKey | 0xc5, /* (Alt) F8 */ + + /* --------------- 70 to 7f --------------- */ + Alt | FctKey | 0xc6, /* (Alt) F9 */ + Alt | FctKey | 0xc7, /* (Alt) F10 */ + Ctrl | FctKey | 0x6d, /* (Ctrl) Sys Rq */ + Ctrl | KeyPad | 4, /* (Ctrl) Left */ + Ctrl | KeyPad | 6, /* (Ctrl) Right */ + Ctrl | KeyPad | 1, /* (Ctrl) End */ + Ctrl | KeyPad | 3, /* (Ctrl) Page Down */ + Ctrl | KeyPad | 7, /* (Ctrl) Home */ + Alt | Map | 1, /* '1' */ + Alt | Map | 2, /* '2' */ + Alt | Map | 3, /* '3' */ + Alt | Map | 4, /* '4' */ + Alt | Map | 5, /* '5' */ + Alt | Map | 6, /* '6' */ + Alt | Map | 7, /* '7' */ + Alt | Map | 8, /* '8' */ + + /* --------------- 80 to 8f --------------- */ + Alt | Map | 9, /* '9' */ + Alt | Map | 10, /* '0' */ + Alt | Map | 11, /* '-' */ + Alt | Map | 12, /* '=' */ + Ctrl | KeyPad | 9, /* (Ctrl) Page Up */ + FctKey | 0xc8, /* F11 */ + FctKey | 0xc9, /* F12 */ + Shift | FctKey | 0xc8, /* (Shift) F11 */ + Shift | FctKey | 0xc9, /* (Shift) F12 */ + Ctrl | FctKey | 0xc8, /* (Ctrl) F11 */ + Ctrl | FctKey | 0xc9, /* (Ctrl) F12 */ + Alt | FctKey | 0xc8, /* (Alt) F11 */ + Alt | FctKey | 0xc9, /* (Alt) F12 */ + Ctrl | KeyPad | 8, /* (Ctrl) Up */ + Ctrl | Grey | 2, /* (Ctrl) Grey - */ + Ctrl | KeyPad | 5, /* (Ctrl) Keypad 5 */ + + /* --------------- 90 to 9f --------------- */ + Ctrl | Grey | 3, /* (Ctrl) Grey + */ + Ctrl | KeyPad | 2, /* (Ctrl) Down */ + Ctrl | KeyPad | 0, /* (Ctrl) Insert */ + Ctrl | KeyPad | 10, /* (Ctrl) Delete */ + Ctrl | FctKey | 0x09, /* (Ctrl) Tab */ + Ctrl | Grey | 0, /* (Ctrl) Grey / */ + Ctrl | Grey | 1, /* (Ctrl) Grey * */ + Alt | FctKey | 0x50, /* (Alt) Home */ + Alt | FctKey | 0x52, /* (Alt) Up */ + Alt | FctKey | 0x55, /* (Alt) Page Up */ + Ignore, /* NO KEY */ + Alt | FctKey | 0x51, /* (Alt) Left */ + Ignore, /* NO KEY */ + Alt | FctKey | 0x53, /* (Alt) Right */ + Ignore, /* NO KEY */ + Alt | FctKey | 0x57, /* (Alt) End */ + + /* --------------- a0 to af --------------- */ + Alt | KeyPad | 2, /* (Alt) Down */ + Alt | KeyPad | 3, /* (Alt) Page Down */ + Alt | KeyPad | 0, /* (Alt) Insert */ + Alt | KeyPad | 10, /* (Alt) Delete */ + Alt | Grey | 0, /* (Alt) Grey / */ + Alt | FctKey | 0x09, /* (Alt) Tab */ + Alt | Grey | 4 /* (Alt) Keypad Enter */ +}; -/* Interrupt level detection of Ctrl-Break. Don't do anything fancy here! */ -void -ctrl_break_func (regs) - _go32_dpmi_registers *regs; +/* These bit-positions corresponds to values returned by BIOS */ +#define SHIFT_P 0x0003 /* two bits! */ +#define CTRL_P 0x0004 +#define ALT_P 0x0008 +#define SCRLOCK_P 0x0010 +#define NUMLOCK_P 0x0020 +#define CAPSLOCK_P 0x0040 +#define ALT_GR_P 0x0800 +#define SUPER_P 0x4000 /* pseudo */ +#define HYPER_P 0x8000 /* pseudo */ + +static int +dos_get_modifiers (keymask) + int *keymask; { - Vquit_flag = Qt; + union REGS regs; + int mask; + int modifiers = 0; + + /* Calculate modifier bits */ + regs.h.ah = extended_kbd ? 0x12 : 0x02; + int86 (0x16, ®s, ®s); + + if (!extended_kbd) + { + mask = regs.h.al & (SHIFT_P | CTRL_P | ALT_P | + SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P); + } + else + { + mask = regs.h.al & (SHIFT_P | + SCRLOCK_P | NUMLOCK_P | CAPSLOCK_P); + + /* Do not break international keyboard support. */ + /* When Keyb.Com is loaded, the right Alt key is */ + /* used for accessing characters like { and } */ + if (regs.h.ah & 2) /* Left ALT pressed ? */ + mask |= ALT_P; + + if ((regs.h.ah & 8) != 0) /* Right ALT pressed ? */ + { + mask |= ALT_GR_P; + if (dos_hyper_key == 1) + { + mask |= HYPER_P; + modifiers |= hyper_modifier; + } + else if (dos_super_key == 1) + { + mask |= SUPER_P; + modifiers |= super_modifier; + } + } + + if (regs.h.ah & 1) /* Left CTRL pressed + mask |= CTRL_P; + + if (regs.h.ah & 4) /* Right CTRL pressed ? */ + { + if (dos_hyper_key == 2) + { + mask |= HYPER_P; + modifiers |= hyper_modifier; + } + else if (dos_super_key == 2) + { + mask |= SUPER_P; + modifiers |= super_modifier; + } + else + mask |= CTRL_P; + } + } + + if (mask & SHIFT_P) + modifiers |= shift_modifier; + if (mask & CTRL_P) + modifiers |= ctrl_modifier; + if (mask & ALT_P) + modifiers |= meta_modifier; + + if (keymask) + *keymask = mask; + return modifiers; } -void -install_ctrl_break_check () +/* Get a char from keyboard. Function keys are put into the event queue. */ +static int +dos_rawgetc () { - if (!ctrlbreakinstalled) + struct input_event event; + union REGS regs; + +#ifndef HAVE_X_WINDOWS + SCREEN_SET_CURSOR(); + if (!mouse_visible) mouse_on (); +#endif + + /* The following condition is equivalent to `kbhit ()', except that + it uses the bios to do its job. This pleases DESQview/X. */ + while ((regs.h.ah = extended_kbd ? 0x11 : 0x01), + int86 (0x16, ®s, ®s), + (regs.x.flags & 0x40) == 0) { - /* Don't press Ctrl-Break if you don't have either DPMI or Emacs - was compiler with Djgpp 1.11 maintenance level 5 or later! */ - ctrlbreakinstalled = 1; - ctrl_break_vector.pm_offset = (int) ctrl_break_func; - _go32_dpmi_allocate_real_mode_callback_iret (&ctrl_break_vector, - &ctrl_break_regs); - _go32_dpmi_set_real_mode_interrupt_vector (0x1b, &ctrl_break_vector); - } -} - -/* Mouse routines follow. Coordinates are in screen positions and zero - based. Mouse buttons are numbered from left to right and also zero - based. */ + union REGS regs; + register unsigned char c; + int sc, code, mask, kp_mode; + int modifiers; + + regs.h.ah = extended_kbd ? 0x10 : 0x00; + int86 (0x16, ®s, ®s); + c = regs.h.al; + sc = regs.h.ah; -static int mouse_button_translate[NUM_MOUSE_BUTTONS]; -static int mouse_button_count; + modifiers = dos_get_modifiers( &mask ); + +#ifndef HAVE_X_WINDOWS + if (!NILP(Vdos_display_scancodes)) + { + char buf[10]; + sprintf (buf, "%02x:%02x*%04x", + (unsigned) (sc&0xff), (unsigned) c, mask); + dos_direct_output (screen_size_Y - 2, screen_size_X - 12, buf, 10); + } +#endif -void -mouse_init () -{ - union REGS regs; - - regs.x.ax = 0x0007; - regs.x.cx = 0; - regs.x.dx = 8 * (ScreenCols () - 1); - int86 (0x33, ®s, ®s); + if (sc == 0xe0) + { + switch (c) + { + case 10: /* Ctrl Grey Enter */ + code = Ctrl | Grey | 4; + break; + case 13: /* Grey Enter */ + code = Grey | 4; + break; + case '/': /* Grey / */ + code = Grey | 0; + break; + default: + continue; + }; + c = 0; + } + else + { + if (sc >= (sizeof (ibmpc_translate_map) / sizeof (short))) + continue; + if ((code = ibmpc_translate_map[sc]) == Ignore) + continue; + } + + if (c == 0) + { + if (code & Alt) + modifiers |= meta_modifier; + if (code & Ctrl) + modifiers |= ctrl_modifier; + if (code & Shift) + modifiers |= shift_modifier; + } + + switch (code & 0xf000) + { + case ModFct: + if (c && !(mask & (SHIFT_P | ALT_P | CTRL_P | HYPER_P | SUPER_P))) + return c; + c = 0; /* Special */ + + case FctKey: + if (c != 0) + return c; + + case Special: + code |= 0xff00; + break; + + case Normal: + if (sc == 0) + { + if (c == 0) /* ctrl-break */ + continue; + return c; /* ALT-nnn */ + } + if (!keyboard_map_all) + { + if (c != ' ') + return c; + code = c; + break; + } + + case Map: + if (c && !(mask & ALT_P) && !((mask & SHIFT_P) && (mask & CTRL_P))) + if (!keyboard_map_all) + return c; - regs.x.ax = 0x0008; - regs.x.cx = 0; - regs.x.dx = 8 * (ScreenRows () - 1); - int86 (0x33, ®s, ®s); + code &= 0xff; + if (mask & ALT_P && code <= 10 && code > 0 && dos_keypad_mode & 0x200) + mask |= SHIFT_P; /* ALT-1 => M-! etc. */ + + if (mask & SHIFT_P) + { + code = keyboard->shifted[ code ]; + mask -= SHIFT_P; + modifiers &= ~shift_modifier; + } + else + if ((mask & ALT_GR_P) && keyboard->alt_gr && keyboard->alt_gr[ code ] != ' ') + code = keyboard->alt_gr[ code ]; + else + code = keyboard->unshifted[ code ]; + break; + + case KeyPad: + code &= 0xff; + if (c == 0xe0) /* edit key */ + kp_mode = 3; + else + if ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) /* numlock on */ + kp_mode = dos_keypad_mode & 0x03; + else + kp_mode = (dos_keypad_mode >> 4) & 0x03; + + switch (kp_mode) + { + case 0: + if (code == 10 && dos_decimal_point) + return dos_decimal_point; + return keypad_translate_map[ code ].char_code; - mouse_moveto (ScreenCols () - 1, ScreenRows () - 1); - mouse_on (); -} + case 1: + code = 0xff00 | keypad_translate_map[ code ].keypad_code; + break; -void -mouse_on () -{ - union REGS regs; + case 2: + code = keypad_translate_map[ code ].meta_code; + modifiers = meta_modifier; + break; + + case 3: + code = 0xff00 | keypad_translate_map[ code ].editkey_code; + break; + } + break; + + case Grey: + code &= 0xff; + kp_mode = ((mask & (NUMLOCK_P|CTRL_P|SHIFT_P|ALT_P)) == NUMLOCK_P) ? 0x04 : 0x40; + if (dos_keypad_mode & kp_mode) + code = 0xff00 | grey_key_translate_map[ code ].keypad_code; + else + code = grey_key_translate_map[ code ].char_code; + break; + } + + make_event: + if (code == 0) + continue; + + if (code >= 0x100) + event.kind = non_ascii_keystroke; + else + event.kind = ascii_keystroke; + event.code = code; + event.modifiers = modifiers; + XSETFRAME (event.frame_or_window, selected_frame); + event.timestamp = event_timestamp (); + kbd_buffer_store_event (&event); + } if (have_mouse > 0) { - regs.x.ax = 0x0001; - int86 (0x33, ®s, ®s); - } -} - -void -mouse_off () -{ - union REGS regs; - - if (have_mouse > 0) - { - regs.x.ax = 0x0002; - int86 (0x33, ®s, ®s); - } -} + int but, press, x, y, ok; -void -mouse_moveto (x, y) - int x, y; -{ - union REGS regs; - - regs.x.ax = 0x0004; - mouse_last_x = regs.x.cx = x * 8; - mouse_last_y = regs.x.dx = y * 8; - int86 (0x33, ®s, ®s); -} - -int -mouse_pressed (b, xp, yp) - int b, *xp, *yp; -{ - union REGS regs; + /* Check for mouse movement *before* buttons. */ + mouse_check_moved (); - if (b >= mouse_button_count) - return 0; - regs.x.ax = 0x0005; - regs.x.bx = mouse_button_translate[b]; - int86 (0x33, ®s, ®s); - if (regs.x.bx) - *xp = regs.x.cx / 8, *yp = regs.x.dx / 8; - return (regs.x.bx != 0); -} - -int -mouse_released (b, xp, yp) - int b, *xp, *yp; -{ - union REGS regs; + for (but = 0; but < NUM_MOUSE_BUTTONS; but++) + for (press = 0; press < 2; press++) + { + if (press) + ok = mouse_pressed (but, &x, &y); + else + ok = mouse_released (but, &x, &y); + if (ok) + { + event.kind = mouse_click; + event.code = but; + event.modifiers = dos_get_modifiers (0) + | (press ? down_modifier : up_modifier); + event.x = x; + event.y = y; + XSETFRAME (event.frame_or_window, selected_frame); + event.timestamp = event_timestamp (); + kbd_buffer_store_event (&event); + } + } + } - if (b >= mouse_button_count) - return 0; - regs.x.ax = 0x0006; - regs.x.bx = mouse_button_translate[b]; - int86 (0x33, ®s, ®s); -#if 0 - if (regs.x.ax & (1 << mouse_button_translate[b])) - regs.x.bx = 0; /* if mouse is still pressed, ignore release */ -#endif - if (regs.x.bx) - *xp = regs.x.cx / 8, *yp = regs.x.dx / 8; - return (regs.x.bx != 0); -} - -static void -mouse_get_xy (int *x, int *y) -{ - union REGS regs; - - regs.x.ax = 0x0003; - int86 (0x33, ®s, ®s); - *x = regs.x.cx / 8; - *y = regs.x.dx / 8; + return -1; } -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; - union REGS regs; +static int prev_get_char = -1; - regs.x.ax = 0x0003; - int86 (0x33, ®s, ®s); - *f = selected_frame; - *bar_window = Qnil; - mouse_get_xy (&ix, &iy); - selected_frame->mouse_moved = 0; - *x = make_number (ix); - *y = make_number (iy); - *time = event_timestamp (); -} - -void -mouse_check_moved () +/* Return 1 if a key is ready to be read without suspending execution. */ +dos_keysns () { - int x, y; - - mouse_get_xy (&x, &y); - selected_frame->mouse_moved |= (x != mouse_last_x || y != mouse_last_y); - mouse_last_x = x; - mouse_last_y = y; + if (prev_get_char != -1) + return 1; + else + return ((prev_get_char = dos_rawgetc ()) != -1); } -int -mouse_init1 () +/* Read a key. Return -1 if no key is ready. */ +dos_keyread () { - union REGS regs; - int present; - -#ifdef HAVE_X_WINDOWS - if (!inhibit_window_system) - return 0; -#endif - if (!internal_terminal) - return 0; - - regs.x.ax = 0x0021; - int86 (0x33, ®s, ®s); - present = (regs.x.ax & 0xffff) == 0xffff; - if (!present) + if (prev_get_char != -1) { - /* Reportedly, the above doesn't work for some mouse drivers. There - is an additional detection method that should work, but might be - a little slower. Use that as an alternative. */ - regs.x.ax = 0x0000; - int86 (0x33, ®s, ®s); - present = (regs.x.ax & 0xffff) == 0xffff; + int c = prev_get_char; + prev_get_char = -1; + return c; } + else + return dos_rawgetc (); +} - if (present) - { - if (regs.x.bx == 3) - { - mouse_button_count = 3; - mouse_button_translate[0] = 0; /* Left */ - mouse_button_translate[1] = 2; /* Middle */ - mouse_button_translate[2] = 1; /* Right */ - } - else - { - mouse_button_count = 2; - mouse_button_translate[0] = 0; - mouse_button_translate[1] = 1; - } - mouse_position_hook = &mouse_get_pos; - mouse_init (); - } - return present; -} + #ifndef HAVE_X_WINDOWS /* See xterm.c for more info. */ @@ -1766,7 +1457,7 @@ { if (pane == menu->panenumber[i]) return menu->submenu[i]; - else if ((try = IT_menu_search_pane (menu->submenu[i], pane))) + if ((try = IT_menu_search_pane (menu->submenu[i], pane))) return try; } return (XMenu *) 0; @@ -1810,11 +1501,10 @@ text = (GLYPH *) xmalloc ((width + 2) * sizeof (GLYPH)); ScreenGetCursor (&row, &col); mouse_get_xy (&mx, &my); - mouse_off (); - (*update_begin_hook) (); + IT_update_begin (); for (i = 0; i < menu->count; i++) { - (*cursor_to_hook) (y + i, x); + IT_cursor_to (y + i, x); enabled = (!menu->submenu[i] && menu->panenumber[i]) || (menu->submenu[i]); mousehere = (y + i == my && x <= mx && mx < x + width + 2); @@ -1826,15 +1516,15 @@ for (; j < width; j++) *p++ = FAST_MAKE_GLYPH (' ', face); *p++ = FAST_MAKE_GLYPH (menu->submenu[i] ? 16 : ' ', face); - (*write_glyphs_hook) (text, width + 2); + IT_write_glyphs (text, width + 2); } - internal_flush (stdout); - (*update_end_hook) (); - mouse_on (); - ScreenSetCursor (row, col); + IT_update_end (); + IT_cursor_to (row, col); xfree (text); } +/* --------------------------- X Menu emulation ---------------------- */ + /* Create a brand new menu structure. */ XMenu * @@ -1929,7 +1619,7 @@ return XM_IA_SELECT; state = alloca (menu->panecount * sizeof (struct IT_menu_state)); - screensize = ScreenRows () * ScreenCols () * 2; + screensize = screen_size * 2; faces[0] = compute_glyph_face (&the_only_frame, face_name_id_number @@ -1951,7 +1641,6 @@ state[0].menu = menu; mouse_off (); ScreenRetrieve (state[0].screen_behind = xmalloc (screensize)); - mouse_on (); if ((onepane = menu->count == 1 && menu->submenu[0])) { menu->width = menu->submenu[0]->width; @@ -1969,6 +1658,7 @@ leave = 0; while (!leave) { + if (!mouse_visible) mouse_on (); mouse_check_moved (); if (selected_frame->mouse_moved) { @@ -1998,7 +1688,6 @@ statecount--; mouse_off (); ScreenUpdate (state[statecount].screen_behind); - mouse_on (); xfree (state[statecount].screen_behind); } if (i == statecount - 1 && state[i].menu->submenu[dy]) @@ -2012,7 +1701,6 @@ mouse_off (); ScreenRetrieve (state[statecount].screen_behind = xmalloc (screensize)); - mouse_on (); state[statecount].x = state[i].x + state[i].menu->width + 2; state[statecount].y = y; @@ -2035,7 +1723,6 @@ mouse_off (); ScreenUpdate (state[0].screen_behind); - mouse_on (); while (statecount--) xfree (state[statecount].screen_behind); return result; @@ -2072,4 +1759,720 @@ } #endif /* !HAVE_X_WINDOWS */ + +/* ----------------------- DOS / UNIX conversion --------------------- */ + +/* Destructively turn backslashes into slashes. */ + +void +dostounix_filename (p) + register char *p; +{ + while (*p) + { + if (*p == '\\') + *p = '/'; + p++; + } +} + +/* Destructively turn slashes into backslashes. */ + +void +unixtodos_filename (p) + register char *p; +{ + while (*p) + { + if (*p == '/') + *p = '\\'; + p++; + } +} + +/* Get the default directory for a given drive. 0=def, 1=A, 2=B, ... */ + +int +getdefdir (drive, dst) + int drive; + char *dst; +{ + union REGS regs; + + *dst++ = '/'; + regs.h.dl = drive; + regs.x.si = (int) dst; + regs.h.ah = 0x47; + intdos (®s, ®s); + return !regs.x.cflag; +} + +/* 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; + unsigned char *startp = buf; + unsigned char *endp = buf + n; + unsigned char c; + + if (n == 0) + return n; + while (buf < endp - 1) + { + if (*buf == 0x0d) + { + if (*(++buf) != 0x0a) + *np++ = 0x0d; + } + else + *np++ = *buf++; + } + if (buf < endp) + *np++ = *buf++; + return np - startp; +} + +/* 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, "/"); + strcat (result, rel); + return 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; + + /* Find our root from argv[0]. Assuming argv[0] is, say, + "c:/emacs/bin/emacs.exe" our root will be "c:/emacs". */ + root = alloca (MAXPATHLEN + 20); + _fixpath (argv[0], root); + strlwr (root); + len = strlen (root); + while (len > 0 && root[len] != '/' && root[len] != ':') + len--; + root[len] = '\0'; + if (len > 4 && strcmp (root + len - 4, "/bin") == 0) + root[len - 4] = '\0'; + else + strcpy (root, "c:/emacs"); /* Only under debuggers, I think. */ + len = strlen (root); + strcpy (emacsroot, root); + + /* We default HOME to our root. */ + setenv ("HOME", root, 0); + + /* We default EMACSPATH to root + "/bin". */ + strcpy (root + len, "/bin"); + setenv ("EMACSPATH", root, 0); + + /* I don't expect anybody to ever use other terminals so the internal + terminal is the default. */ + setenv ("TERM", "internal", 0); + +#ifdef HAVE_X_WINDOWS + /* Emacs expects DISPLAY to be set. */ + setenv ("DISPLAY", "unix:0.0", 0); +#endif + + /* SHELL is a bit tricky -- COMSPEC is the closest we come, but we must + downcase it and mirror the backslashes. */ + s = getenv ("COMSPEC"); + if (!s) s = "c:/command.com"; + t = alloca (strlen (s) + 1); + strcpy (t, s); + strlwr (t); + dostounix_filename (t); + setenv ("SHELL", t, 0); + + /* PATH is also downcased and backslashes mirrored. */ + s = getenv ("PATH"); + if (!s) s = ""; + t = alloca (strlen (s) + 3); + /* Current directory is always considered part of MsDos's path but it is + not normally mentioned. Now it is. */ + strcat (strcpy (t, ".;"), s); + strlwr (t); + dostounix_filename (t); /* Not a single file name, but this should work. */ + setenv ("PATH", t, 1); + + /* In some sense all dos users have root privileges, so... */ + setenv ("USER", "root", 0); + setenv ("NAME", getenv ("USER"), 0); + + /* Time zone determined from country code. To make this possible, the + country code may not span more than one time zone. In other words, + in the USA, you lose. */ + if (!getenv("TZ")) + switch (dos_country_code) + { + case 31: /* Belgium */ + case 32: /* The Netherlands */ + case 33: /* France */ + case 34: /* Spain */ + case 36: /* Hungary */ + case 38: /* Yugoslavia (or what's left of it?) */ + case 39: /* Italy */ + case 41: /* Switzerland */ + case 42: /* Tjekia */ + case 45: /* Denmark */ + case 46: /* Sweden */ + case 47: /* Norway */ + case 48: /* Poland */ + case 49: /* Germany */ + /* Daylight saving from last Sunday in March to last Sunday in + September, both at 2AM. */ + setenv ("TZ", "MET" /* "-01METDST-02,M3.5.0/02:00,M9.5.0/02:00" */, 0); + break; + case 44: /* United Kingdom */ + case 351: /* Portugal */ + case 354: /* Iceland */ + setenv ("TZ", "GMT" /* "+00" */, 0); + break; + case 81: /* Japan */ + case 82: /* Korea */ + setenv ("TZ", "JST" /* "-09" */, 0); + break; + case 90: /* Turkey */ + case 358: /* Finland */ + case 972: /* Israel */ + setenv ("TZ", "EET" /* "-02" */, 0); + break; + } +} + + + +static int break_stat; /* BREAK check mode status. */ +static int stdin_stat; /* stdin IOCTL status. */ + +/* These must be global. */ +static _go32_dpmi_seginfo ctrl_break_vector; +static _go32_dpmi_registers ctrl_break_regs; +static int ctrlbreakinstalled = 0; + +/* Interrupt level detection of Ctrl-Break. Don't do anything fancy here! */ + +void +ctrl_break_func (regs) + _go32_dpmi_registers *regs; +{ + Vquit_flag = Qt; +} + +void +install_ctrl_break_check () +{ + if (!ctrlbreakinstalled) + { + /* Don't press Ctrl-Break if you don't have either DPMI or Emacs + was compiler with Djgpp 1.11 maintenance level 5 or later! */ + ctrlbreakinstalled = 1; + ctrl_break_vector.pm_offset = (int) ctrl_break_func; + _go32_dpmi_allocate_real_mode_callback_iret (&ctrl_break_vector, + &ctrl_break_regs); + _go32_dpmi_set_real_mode_interrupt_vector (0x1b, &ctrl_break_vector); + } +} + +/* + * Turn off Dos' Ctrl-C checking and inhibit interpretation of + * control chars by Dos. + * Determine the keyboard type. + */ + +int +dos_ttraw () +{ + union REGS inregs, outregs; + static int first_time = 1; + + break_stat = getcbrk (); + setcbrk (0); + install_ctrl_break_check (); + + if (first_time) + { + inregs.h.ah = 0xc0; + int86 (0x15, &inregs, &outregs); + extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0); + + have_mouse = 0; + + if (internal_terminal +#ifdef HAVE_X_WINDOWS + && inhibit_window_system +#endif + ) + { + inregs.x.ax = 0x0021; + int86 (0x33, &inregs, &outregs); + have_mouse = (outregs.x.ax & 0xffff) == 0xffff; + if (!have_mouse) + { + /* Reportedly, the above doesn't work for some mouse drivers. There + is an additional detection method that should work, but might be + a little slower. Use that as an alternative. */ + inregs.x.ax = 0x0000; + int86 (0x33, &inregs, &outregs); + have_mouse = (outregs.x.ax & 0xffff) == 0xffff; + } + + if (have_mouse) + { + have_mouse = 1; /* enable mouse */ + mouse_visible = 0; + + if (outregs.x.bx == 3) + { + mouse_button_count = 3; + mouse_button_translate[0] = 0; /* Left */ + mouse_button_translate[1] = 2; /* Middle */ + mouse_button_translate[2] = 1; /* Right */ + } + else + { + mouse_button_count = 2; + mouse_button_translate[0] = 0; + mouse_button_translate[1] = 1; + } + mouse_position_hook = &mouse_get_pos; + mouse_init (); + } + } + + first_time = 0; + } + + inregs.x.ax = 0x4400; /* Get IOCTL status. */ + inregs.x.bx = 0x00; /* 0 = stdin. */ + intdos (&inregs, &outregs); + stdin_stat = outregs.h.dl; + + inregs.x.dx = stdin_stat | 0x0020; /* raw mode */ + inregs.x.ax = 0x4401; /* Set IOCTL status */ + intdos (&inregs, &outregs); + return !outregs.x.cflag; +} + +/* Restore status of standard input and Ctrl-C checking. */ +int +dos_ttcooked () +{ + union REGS inregs, outregs; + + setcbrk (break_stat); + mouse_off (); + + inregs.x.ax = 0x4401; /* Set IOCTL status. */ + inregs.x.bx = 0x00; /* 0 = stdin. */ + inregs.x.dx = stdin_stat; + intdos (&inregs, &outregs); + return !outregs.x.cflag; +} + + +/* Run command as specified by ARGV in directory DIR. + The command is run with input from TEMPIN and output to file TEMPOUT. */ +int +run_msdos_command (argv, dir, tempin, tempout) + unsigned char **argv; + Lisp_Object dir; + int tempin, tempout; +{ + char *saveargv1, *saveargv2, **envv; + char oldwd[MAXPATHLEN + 1]; /* Fixed size is safe on MSDOS. */ + int msshell, result = -1; + int in, out, inbak, outbak, errbak; + int x, y; + Lisp_Object cmd; + + /* Get current directory as MSDOS cwd is not per-process. */ + getwd (oldwd); + + cmd = Ffile_name_nondirectory (build_string (argv[0])); + msshell = !NILP (Fmember (cmd, Fsymbol_value (intern ("msdos-shells")))) + && !strcmp ("-c", argv[1]); + if (msshell) + { + saveargv1 = argv[1]; + saveargv2 = argv[2]; + argv[1] = "/c"; + if (argv[2]) + { + char *p = alloca (strlen (argv[2]) + 1); + + strcpy (argv[2] = p, saveargv2); + while (*p && isspace (*p)) + p++; + while (*p && !isspace (*p)) + if (*p == '/') + *p++ = '\\'; + else + p++; + } + } + + /* Build the environment array. */ + { + extern Lisp_Object Vprocess_environment; + Lisp_Object tmp, lst; + int i, len; + + lst = Vprocess_environment; + len = XFASTINT (Flength (lst)); + + envv = alloca ((len + 1) * sizeof (char *)); + for (i = 0; i < len; i++) + { + tmp = Fcar (lst); + lst = Fcdr (lst); + CHECK_STRING (tmp, 0); + envv[i] = alloca (XSTRING (tmp)->size + 1); + strcpy (envv[i], XSTRING (tmp)->data); + } + envv[len] = (char *) 0; + } + + if (STRINGP (dir)) + chdir (XSTRING (dir)->data); + inbak = dup (0); + outbak = dup (1); + errbak = dup (2); + if (inbak < 0 || outbak < 0 || errbak < 0) + goto done; /* Allocation might fail due to lack of descriptors. */ + + if (have_mouse > 0) + mouse_get_xy (&x, &y); + + dos_ttcooked (); /* do it here while 0 = stdin */ + + dup2 (tempin, 0); + dup2 (tempout, 1); + dup2 (tempout, 2); + + result = spawnve (P_WAIT, argv[0], argv, envv); + + dup2 (inbak, 0); + dup2 (outbak, 1); + dup2 (errbak, 2); + close (inbak); + close (outbak); + close (errbak); + + dos_ttraw(); + if (have_mouse > 0) + { + mouse_init (); + mouse_moveto (x, y); + } + + done: + chdir (oldwd); + if (msshell) + { + argv[1] = saveargv1; + argv[2] = saveargv2; + } + return result; +} + +croak (badfunc) + char *badfunc; +{ + fprintf (stderr, "%s not yet implemented\r\n", badfunc); + reset_sys_modes (); + exit (1); +} + + +/* ------------------------- Compatibility functions ------------------- + * gethostname + * gettimeofday + */ + +/* + * Hostnames for a pc are not really funny, + * but they are used in change log so we emulate the best we can. + */ + +gethostname (p, size) + char *p; + int size; +{ + char *q = egetenv ("HOSTNAME"); + + if (!q) q = "pc"; + strcpy (p, q); + return 0; +} + +/* When time zones are set from Ms-Dos too may C-libraries are playing + tricks with time values. We solve this by defining our own version + of `gettimeofday' bypassing GO32. Our version needs to be initialized + once and after each call to `tzset' with TZ changed. That is + accomplished by aliasing tzset to init_gettimeofday. */ + +static struct tm time_rec; + +int +gettimeofday (struct timeval *tp, struct timezone *tzp) +{ + if (tp) + { + struct time t; + struct tm tm; + + gettime (&t); + if (t.ti_hour < time_rec.tm_hour) /* midnight wrap */ + { + struct date d; + getdate (&d); + time_rec.tm_year = d.da_year - 1900; + time_rec.tm_mon = d.da_mon - 1; + time_rec.tm_mday = d.da_day; + } + + time_rec.tm_hour = t.ti_hour; + time_rec.tm_min = t.ti_min; + time_rec.tm_sec = t.ti_sec; + + tm = time_rec; + tm.tm_gmtoff = dos_timezone_offset; + + tp->tv_sec = mktime (&tm); /* may modify tm */ + tp->tv_usec = t.ti_hund * (1000000 / 100); + } + /* Ignore tzp; it's obsolescent. */ + return 0; +} + + +/* + * A list of unimplemented functions that we silently ignore. + */ + +unsigned alarm (s) unsigned s; {} +fork () { return 0; } +int kill (x, y) int x, y; { return -1; } +nice (p) int p; {} +void volatile pause () {} +request_sigio () {} +setpgrp () {return 0; } +setpriority (x,y,z) int x,y,z; { return 0; } +sigsetmask (x) int x; { return 0; } +unrequest_sigio () {} + +int run_dos_timer_hooks = 0; + +#ifndef HAVE_SELECT +#include "sysselect.h" + +static int last_ti_sec = -1; + +static void +check_timer (t) + struct time *t; +{ + gettime (t); + + if (t->ti_sec == last_ti_sec) + return; + last_ti_sec = t->ti_sec; + + if (!NILP (Vdos_menubar_clock)) + { + char clock_str[16]; + int len; + int min = t->ti_min; + int hour = t->ti_hour; + + if (dos_timezone_offset) + { + int tz = dos_timezone_offset; + min -= tz % 60; + if (min < 0) + min += 60, hour--; + else + if (min >= 60) + min -= 60, hour++; + + if ((hour -= (tz / 60)) < 0) + hour += 24; + else + hour %= 24; + } + + if ((dos_country_info[0x11] & 0x01) == 0) /* 12 hour clock */ + { + hour %= 12; + if (hour == 0) hour = 12; + } + + len = sprintf (clock_str, "%2d.%02d.%02d", hour, min, t->ti_sec); + dos_direct_output (0, screen_size_X - len - 1, clock_str, len); + } + + if (!NILP (Vdos_timer_hooks)) + run_dos_timer_hooks++; +} + +/* Only event queue is checked. */ +int +sys_select (nfds, rfds, wfds, efds, timeout) + int nfds; + SELECT_TYPE *rfds, *wfds, *efds; + EMACS_TIME *timeout; +{ + int check_input; + long timeoutval, clnow, cllast; + struct time t; + + check_input = 0; + if (rfds) + { + check_input = FD_ISSET (0, rfds); + FD_ZERO (rfds); + } + if (wfds) + FD_ZERO (wfds); + if (efds) + FD_ZERO (efds); + + if (nfds != 1) + abort (); + + /* If we are looking only for the terminal, with no timeout, + just read it and wait -- that's more efficient. */ + if (!timeout) + { + while (! detect_input_pending ()) + check_timer (&t); + } + else + { + timeoutval = EMACS_SECS (*timeout) * 100 + EMACS_USECS (*timeout) / 10000; + check_timer (&t); + cllast = t.ti_sec * 100 + t.ti_hund; + + while (!check_input || !detect_input_pending ()) + { + check_timer (&t); + clnow = t.ti_sec * 100 + t.ti_hund; + if (clnow < cllast) /* time wrap */ + timeoutval -= clnow + 6000 - cllast; + else + timeoutval -= clnow - cllast; + if (timeoutval <= 0) /* Stop on timer being cleared */ + return 0; + cllast = clnow; + } + } + + FD_SET (0, rfds); + return 1; +} +#endif + +/* + * Define overlayed functions: + * + * chdir -> sys_chdir + * tzset -> init_gettimeofday + * 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] == ':') + { + if (getdisk () != tolower (tmp[0]) - 'a') + setdisk (tolower (tmp[0]) - 'a'); + tmp += 2; /* strip drive: KFS 1995-07-06 */ + len -= 2; + } + + if (len > 1 && (tmp[len - 1] == '/')) + { + char *tmp1 = (char *) alloca (len + 1); + strcpy (tmp1, tmp); + tmp1[len - 1] = 0; + tmp = tmp1; + } + return chdir (tmp); +} +#endif + +#ifdef tzset +#undef tzset +extern void tzset (void); + +void +init_gettimeofday () +{ + time_t ltm, gtm; + struct tm *lstm; + + tzset (); + ltm = gtm = time (NULL); + ltm = mktime (lstm = localtime (<m)); + gtm = mktime (gmtime (>m)); + time_rec.tm_hour = 99; /* force gettimeofday to get date */ + time_rec.tm_isdst = lstm->tm_isdst; + dos_timezone_offset = time_rec.tm_gmtoff = (int)(gtm - ltm) / 60; +} +#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); + for (i = j = 0; buffer1[i]; i++) { + buffer2[j++] = buffer1[i]; + buffer2[j++] = 0x70; + } + dosmemput (buffer2, j, (int)ScreenPrimary); + ScreenSetCursor (2, 0); + abort (); +} +#endif + #endif /* MSDOS */