From: Kim F. Storm Date: Wed, 11 Oct 1995 15:08:15 +0000 (+0000) Subject: [!HAVE_X_WINDOWS]: X-Git-Tag: emacs-19.34~2681 X-Git-Url: http://git.eshelyaron.com/gitweb/?a=commitdiff_plain;h=f32d40914e7908e043320e7b61dc4f0c9694b113;p=emacs.git [!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. --- diff --git a/src/msdos.c b/src/msdos.c index a72e59a315a..cf064306cec 100644 --- a/src/msdos.c +++ b/src/msdos.c @@ -18,6 +18,7 @@ along with GNU Emacs; see the file COPYING. If not, write to 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 @@ the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ /* 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 */ - - /* --------------- 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 */ - - /* --------------- 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) */ + +/* ------------------------ Mouse control --------------------------- + * + * Coordinates are in screen positions and zero based. + * Mouse buttons are numbered from left to right and also zero based. + */ - /* --------------- 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 */ +int have_mouse; /* 0: no, 1: enabled, -1: disabled */ +static int mouse_visible; - /* --------------- 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 */ -}; +static int mouse_button_translate[NUM_MOUSE_BUTTONS]; +static int mouse_button_count; -/* Get a char from keyboard. Function keys are put into the event queue. */ -static int -dos_rawgetc () +void +mouse_on () { - 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); - - /* 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; - } - - 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) + if (have_mouse > 0 && !mouse_visible) { - 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); - } - } + if (termscript) + fprintf (termscript, ""); + regs.x.ax = 0x0001; + int86 (0x33, ®s, ®s); + mouse_visible = 1; } - - 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); -} + union REGS regs; -/* Read a key. Return -1 if no key is ready. */ -dos_keyread () -{ - if (prev_get_char != -1) + if (have_mouse > 0 && mouse_visible) { - int c = prev_get_char; - prev_get_char = -1; - return c; + if (termscript) + fprintf (termscript, ""); + regs.x.ax = 0x0002; + int86 (0x33, ®s, ®s); + mouse_visible = 0; } - else - return dos_rawgetc (); } -/* 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; +void +mouse_moveto (x, y) + int x, y; { - char *q = egetenv ("HOSTNAME"); + union REGS regs; - if (!q) q = "pc"; - strcpy (p, q); - return 0; + if (termscript) + fprintf (termscript, "", 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); } -/* Destructively turn backslashes into slashes. */ -void -dostounix_filename (p) - register char *p; +static int +mouse_pressed (b, xp, yp) + int b, *xp, *yp; { - while (*p) - { - if (*p == '\\') - *p = '/'; - p++; - } -} + union REGS regs; -/* Destructively turn slashes into backslashes. */ -void -unixtodos_filename (p) - register char *p; -{ - while (*p) - { - if (*p == '/') - *p = '\\'; - p++; - } + 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); } -/* 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_released (b, xp, yp) + int b, *xp, *yp; { union REGS regs; - *dst++ = '/'; - regs.h.dl = drive; - regs.x.si = (int) dst; - regs.h.ah = 0x47; - intdos (®s, ®s); - return !regs.x.cflag; + 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); } -/* Remove all CR's that are followed by a LF. */ -int -crlf_to_lf (n, buf) - register int n; - register unsigned char *buf; +static void +mouse_get_xy (int *x, int *y) { - unsigned char *np = buf; - unsigned char *startp = buf; - unsigned char *endp = buf + n; - unsigned char c; + union REGS regs; - 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; + 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 (); +} -/* 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; +static void +mouse_check_moved () { - 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); + 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; +} - 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); +void +mouse_init () +{ + union REGS regs; - strcpy (argv[2] = p, saveargv2); - while (*p && isspace (*p)) - p++; - while (*p && !isspace (*p)) - if (*p == '/') - *p++ = '\\'; - else - p++; - } - } + if (termscript) + fprintf (termscript, ""); - /* Build the environment array. */ - { - extern Lisp_Object Vprocess_environment; - Lisp_Object tmp, lst; - int i, len; + regs.x.ax = 0x0021; + int86 (0x33, ®s, ®s); - lst = Vprocess_environment; - len = XFASTINT (Flength (lst)); + regs.x.ax = 0x0007; + regs.x.cx = 0; + regs.x.dx = 8 * (ScreenCols () - 1); + int86 (0x33, ®s, ®s); - 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; - } + regs.x.ax = 0x0008; + regs.x.cx = 0; + regs.x.dx = 8 * (ScreenRows () - 1); + int86 (0x33, ®s, ®s); - 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. */ + mouse_moveto (0, 0); + mouse_visible = 0; +} - 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); +/* ------------------------- Screen control ---------------------- + * + */ - result = spawnve (P_WAIT, argv[0], argv, envv); +static int internal_terminal = 0; - dup2 (inbak, 0); - dup2 (outbak, 1); - dup2 (errbak, 2); - close (inbak); - close (outbak); - close (errbak); +#ifndef HAVE_X_WINDOWS +extern unsigned char ScreenAttrib; +static int screen_face; +static int highlight; - 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; -} +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; -croak (badfunc) - char *badfunc; -{ - fprintf (stderr, "%s not yet implemented\r\n", badfunc); - reset_sys_modes (); - exit (1); -} +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; -/* 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 () {} +static int term_setup_done; -#ifdef chdir -#undef chdir -#endif +/* Similar to the_only_frame. */ +struct x_display the_only_x_display; -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 (); +/* This is never dereferenced. */ +Display *x_current_display; - 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); -} -#ifndef HAVE_SELECT -#include "sysselect.h" +#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) -/* Only event queue is checked. */ -int -sys_select (nfds, rfds, wfds, efds, timeout) - int nfds; - SELECT_TYPE *rfds, *wfds, *efds; - EMACS_TIME *timeout; +static +dos_direct_output (y, x, buf, len) + int y; + int x; + char *buf; + int len; { - 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; - } - } + int t = (int) ScreenPrimary + 2 * (x + y * screen_size_X); - 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,558 +312,1669 @@ visible_bell_2: 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) + int x, y; + + if (!mouse_visible) + return; + + mouse_get_xy (&x, &y); + if (y != new_pos_Y || x < new_pos_X) + return; + + mouse_off (); +} + +static +IT_ring_bell () +{ + if (visible_bell) { - fprintf (termscript, "<%d@%dx%d>", c, x, y); - fwrite (s, sizeof (unsigned char), c, termscript); + mouse_off (); + ScreenVisualBell (); } -#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"); + else + write (1, "\007", 1); } -static int internal_terminal = 0; -static int highlight; +static void +IT_set_face (int face) +{ + struct face *fp; + extern struct face *intern_face (/* FRAME_PTR, struct face * */); + + if (face == 1 || (face == 0 && highlight)) + fp = FRAME_MODE_LINE_FACE (foo); + else if (face <= 0 || face >= FRAME_N_COMPUTED_FACES (foo)) + fp = FRAME_DEFAULT_FACE (foo); + else + fp = intern_face (selected_frame, FRAME_COMPUTED_FACES (foo)[face]); + if (termscript) + fprintf (termscript, "", FACE_FOREGROUND (fp), FACE_BACKGROUND (fp)); + screen_face = face; + ScreenAttrib = (FACE_BACKGROUND (fp) << 4) | FACE_FOREGROUND (fp); +} + +static +IT_write_glyphs (GLYPH *str, int len) +{ + int newface; + int ch, l = len; + unsigned char *buf, *bp; -#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 (len == 0) return; - if (!resume) - { - esc_cmd[0] = '\e'; - esc_count = 1; - used++; - } + buf = bp = alloca (len * 2); - while (esc_count < 2) + while (--l >= 0) { - if (used == count) - return -1; - esc_cmd[esc_count++] = *cp++; - used++; + newface = FAST_GLYPH_FACE (*str); + if (newface != screen_face) + IT_set_face (newface); + ch = FAST_GLYPH_CHAR (*str); + *bp++ = (unsigned char)ch; + *bp++ = ScreenAttrib; + + if (termscript) + fputc (ch, termscript); + str++; } - switch (esc_cmd[1]) - { - case '@': - esc_needed = 4; - break; - case 'A': - case 'B': - case 'X': - esc_needed = 3; - break; - default: - esc_needed = 2; - break; - } + mouse_off_maybe (); + dosmemput (buf, 2 * len, + (int)ScreenPrimary + 2 * (new_pos_X + screen_size_X * new_pos_Y)); + new_pos_X += len; +} - while (esc_count < esc_needed) - { - if (used == count) - return -1; - esc_cmd[esc_count++] = *cp++; - used++; - } +static +IT_clear_end_of_line (first_unused) +{ + char *spaces, *sp; + int i, j; + + IT_set_face (0); + if (termscript) + fprintf (termscript, ""); + i = (j = screen_size_X - new_pos_X) * 2; + spaces = sp = alloca (i); - switch (esc_cmd[1]) + while (--j >= 0) { - 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; + *sp++ = ' '; + *sp++ = ScreenAttrib; } - esc_count = 0; - return used; + mouse_off_maybe (); + dosmemput (spaces, i, + (int)ScreenPrimary + 2 * (new_pos_X + screen_size_X * new_pos_Y)); } -int -internal_flush (f) - FILE *f; +static +IT_clear_screen (void) +{ + if (termscript) + fprintf (termscript, ""); + IT_set_face (0); + mouse_off (); + ScreenClear (); + new_pos_X = new_pos_Y = 0; +} + +static +IT_clear_to_end (void) +{ + if (termscript) + fprintf (termscript, ""); + + 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) +{ + if (termscript) + fprintf (termscript, "\n", x, y); + new_pos_X = x; + new_pos_Y = y; +} + +static +IT_reassert_line_highlight (new, vpos) + int new, vpos; +{ + highlight = new; + IT_set_face (0); /* To possibly clear the highlighting. */ +} + +static +IT_change_line_highlight (new_highlight, vpos, first_unused_hpos) { - static int x; - static int y; - static int resume_esc = 0; - unsigned char *cp, *cp0; - int count, i; + highlight = new_highlight; + IT_set_face (0); /* To possibly clear the highlighting. */ + IT_cursor_to (vpos, 0); + IT_clear_end_of_line (first_unused_hpos); +} + +static +IT_update_begin () +{ + highlight = 0; + IT_set_face (0); /* To possibly clear the highlighting. */ + screen_face = -1; +} + +static +IT_update_end () +{ +} - if (!internal_terminal || f != stdout) +/* This was more or less copied from xterm.c */ +static void +IT_set_menu_bar_lines (window, n) + Lisp_Object window; + int n; +{ + struct window *w = XWINDOW (window); + + XSETFASTINT (w->top, XFASTINT (w->top) + n); + XSETFASTINT (w->height, XFASTINT (w->height) - n); + + /* Handle just the top child in a vertical split. */ + if (!NILP (w->vchild)) + IT_set_menu_bar_lines (w->vchild, n); + + /* Adjust all children in a horizontal split. */ + for (window = w->hchild; !NILP (window); window = w->next) { - /* This is a call to the original fflush. */ - fflush (f); - return; + w = XWINDOW (window); + IT_set_menu_bar_lines (window, n); } - - mouse_off (); - cp = stdout->_base; - count = stdout->_ptr - stdout->_base; +} + +/* + * 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; -#ifdef DO_TERMSCRIPT if (termscript) - fprintf (termscript, "\n\n", resume_esc ? " RESUME" : "", count); -#endif + fprintf (termscript, "\n"); + highlight = 0; + + screen_size_X = ScreenCols (); + screen_size_Y = ScreenRows (); + screen_size = screen_size_X * screen_size_Y; - if (resume_esc) - { - i = flush_escape (1, cp, count, &x, &y); - if (i < 0) - count = 0; - else - { - resume_esc = 0; - count -= i; - cp += i; - } - } + new_pos_X = new_pos_Y = 0; + current_pos_X = current_pos_Y = -1; + + if (term_setup_done) + return; + term_setup_done = 1; - 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--; + 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, "\n"); +} + +/* + * IT_reset_terminal_modes is called when emacs is + * suspended or killed. + */ + +static +IT_reset_terminal_modes (void) +{ + if (termscript) + fprintf(termscript, "\n"); + + 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, "\n"); + + term_setup_done = 0; +} + +static +IT_set_terminal_window (void) +{ +} + +void +IT_set_frame_parameters (frame, alist) + FRAME_PTR frame; + Lisp_Object alist; +{ + Lisp_Object tail; + int redraw; + extern unsigned long load_color (); + FRAME_PTR f = (FRAME_PTR) &the_only_frame; + + redraw = 0; + for (tail = alist; CONSP (tail); tail = Fcdr (tail)) + { + Lisp_Object elt, prop, val; + + elt = Fcar (tail); + prop = Fcar (elt); + val = Fcdr (elt); + CHECK_SYMBOL (prop, 1); + + if (EQ (prop, intern ("foreground-color"))) + { + unsigned long new_color = load_color (f, val); + if (new_color != ~0) + { + FRAME_FOREGROUND_PIXEL (f) = new_color; + redraw = 1; + } + } + else if (EQ (prop, intern ("background-color"))) + { + unsigned long new_color = load_color (f, val); + if (new_color != ~0) + { + FRAME_BACKGROUND_PIXEL (f) = new_color & ~8; + redraw = 1; + } + } + else if (EQ (prop, intern ("menu-bar-lines"))) + { + int new; + int old = FRAME_MENU_BAR_LINES (the_only_frame); + + if (INTEGERP (val)) + new = XINT (val); + else + new = 0; + FRAME_MENU_BAR_LINES (f) = new; + IT_set_menu_bar_lines (the_only_frame.root_window, new - old); + } + } + + if (redraw) + { + recompute_basic_faces (f); + Fredraw_frame (Fselected_frame ()); + } +} + +#endif /* !HAVE_X_WINDOWS */ + + +/* Do we need the internal terminal? */ +void +internal_terminal_init () +{ + char *term = getenv ("TERM"); + char *colors; + +#ifdef HAVE_X_WINDOWS + if (!inhibit_window_system) + return; +#endif + + 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) + { + the_only_frame.output_method = output_termcap; + return; + } + + 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; + + 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 +} + +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 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 +dos_set_keyboard (code, always) + int code; + int always; +{ + 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; +} + +#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[] = +{ + /* --------------- 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 */ + + /* --------------- 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 */ +}; + +/* 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; +{ + 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; +} + +/* Get a char from keyboard. Function keys are put into the event queue. */ +static int +dos_rawgetc () +{ + 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) + { + 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; + + 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 + + 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 13: - x = 0; - count--; + + 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; + + 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; + + case 1: + code = 0xff00 | keypad_translate_map[ code ].keypad_code; + break; + + 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 10: - y++; - count--; + + 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; - default: - cp0 = cp - 1; - count--; - while (count > 0 && *cp >= ' ') - cp++, count--; - output_string (x, y, cp0, cp - cp0, ScreenAttrib); - x += (cp - cp0); } + + 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) + { + 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 = 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); + } + } + } + + return -1; +} + +static int prev_get_char = -1; + +/* Return 1 if a key is ready to be read without suspending execution. */ +dos_keysns () +{ + if (prev_get_char != -1) + return 1; + else + return ((prev_get_char = dos_rawgetc ()) != -1); +} + +/* Read a key. Return -1 if no key is ready. */ +dos_keyread () +{ + if (prev_get_char != -1) + { + int c = prev_get_char; + prev_get_char = -1; + return c; + } + else + return dos_rawgetc (); +} + + + +#ifndef HAVE_X_WINDOWS +/* See xterm.c for more info. */ +void +pixel_to_glyph_coords (f, pix_x, pix_y, x, y, bounds, noclip) + FRAME_PTR f; + register int pix_x, pix_y; + register int *x, *y; + void /* XRectangle */ *bounds; + int noclip; +{ + if (bounds) abort (); + + /* Ignore clipping. */ + + *x = pix_x; + *y = pix_y; +} + +void +glyph_to_pixel_coords (f, x, y, pix_x, pix_y) + FRAME_PTR f; + register int x, y; + register int *pix_x, *pix_y; +{ + *pix_x = x; + *pix_y = y; +} + +/* Simulation of X's menus. Nothing too fancy here -- just make it work + for now. + + Actually, I don't know the meaning of all the parameters of the functions + here -- I only know how they are called by xmenu.c. I could of course + grab the nearest Xlib manual (down the hall, second-to-last door on the + left), but I don't think it's worth the effort. */ + +static XMenu * +IT_menu_create () +{ + XMenu *menu; + + menu = (XMenu *) xmalloc (sizeof (XMenu)); + menu->allocated = menu->count = menu->panecount = menu->width = 0; + return menu; +} + +/* Allocate some (more) memory for MENU ensuring that there is room for one + for item. */ + +static void +IT_menu_make_room (XMenu *menu) +{ + if (menu->allocated == 0) + { + int count = menu->allocated = 10; + menu->text = (char **) xmalloc (count * sizeof (char *)); + menu->submenu = (XMenu **) xmalloc (count * sizeof (XMenu *)); + menu->panenumber = (int *) xmalloc (count * sizeof (int)); + } + else if (menu->allocated == menu->count) + { + int count = menu->allocated = menu->allocated + 10; + menu->text + = (char **) xrealloc (menu->text, count * sizeof (char *)); + menu->submenu + = (XMenu **) xrealloc (menu->submenu, count * sizeof (XMenu *)); + menu->panenumber + = (int *) xrealloc (menu->panenumber, count * sizeof (int)); + } +} + +/* Search the given menu structure for a given pane number. */ + +static XMenu * +IT_menu_search_pane (XMenu *menu, int pane) +{ + int i; + XMenu *try; + + for (i = 0; i < menu->count; i++) + if (menu->submenu[i]) + { + if (pane == menu->panenumber[i]) + return menu->submenu[i]; + if ((try = IT_menu_search_pane (menu->submenu[i], pane))) + return try; + } + return (XMenu *) 0; +} + +/* Determine how much screen space a given menu needs. */ + +static void +IT_menu_calc_size (XMenu *menu, int *width, int *height) +{ + int i, h2, w2, maxsubwidth, maxheight; + + maxsubwidth = 0; + maxheight = menu->count; + for (i = 0; i < menu->count; i++) + { + if (menu->submenu[i]) + { + IT_menu_calc_size (menu->submenu[i], &w2, &h2); + if (w2 > maxsubwidth) maxsubwidth = w2; + if (i + h2 > maxheight) maxheight = i + h2; + } + } + *width = menu->width + maxsubwidth; + *height = maxheight; +} + +/* Display MENU at (X,Y) using FACES. */ + +static void +IT_menu_display (XMenu *menu, int y, int x, int *faces) +{ + int i, j, face, width; + GLYPH *text, *p; + char *q; + int mx, my; + int enabled, mousehere; + int row, col; + + width = menu->width; + text = (GLYPH *) xmalloc ((width + 2) * sizeof (GLYPH)); + ScreenGetCursor (&row, &col); + mouse_get_xy (&mx, &my); + IT_update_begin (); + for (i = 0; i < menu->count; i++) + { + 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); + face = faces[enabled + mousehere * 2]; + p = text; + *p++ = FAST_MAKE_GLYPH (' ', face); + for (j = 0, q = menu->text[i]; *q; j++) + *p++ = FAST_MAKE_GLYPH (*q++, face); + for (; j < width; j++) + *p++ = FAST_MAKE_GLYPH (' ', face); + *p++ = FAST_MAKE_GLYPH (menu->submenu[i] ? 16 : ' ', face); + IT_write_glyphs (text, width + 2); + } + IT_update_end (); + IT_cursor_to (row, col); + xfree (text); +} + +/* --------------------------- X Menu emulation ---------------------- */ + +/* Create a brand new menu structure. */ + +XMenu * +XMenuCreate (Display *foo1, Window foo2, char *foo3) +{ + return IT_menu_create (); +} + +/* Create a new pane and place it on the outer-most level. It is not + clear that it should be placed out there, but I don't know what else + to do. */ + +int +XMenuAddPane (Display *foo, XMenu *menu, char *txt, int enable) +{ + int len; + + if (!enable) + abort (); + + IT_menu_make_room (menu); + menu->submenu[menu->count] = IT_menu_create (); + menu->text[menu->count] = txt; + menu->panenumber[menu->count] = ++menu->panecount; + menu->count++; + if ((len = strlen (txt)) > menu->width) + menu->width = len; + return menu->panecount; +} + +/* Create a new item in a menu pane. */ + +int +XMenuAddSelection (Display *bar, XMenu *menu, int pane, + int foo, char *txt, int enable) +{ + int len; + + if (pane) + if (!(menu = IT_menu_search_pane (menu, pane))) + return XM_FAILURE; + IT_menu_make_room (menu); + menu->submenu[menu->count] = (XMenu *) 0; + menu->text[menu->count] = txt; + menu->panenumber[menu->count] = enable; + menu->count++; + if ((len = strlen (txt)) > menu->width) + menu->width = len; + return XM_SUCCESS; +} + +/* Decide where the menu would be placed if requested at (X,Y). */ + +void +XMenuLocate (Display *foo0, XMenu *menu, int foo1, int foo2, int x, int y, + int *ulx, int *uly, int *width, int *height) +{ + if (menu->count == 1 && menu->submenu[0]) + /* Special case: the menu consists of only one pane. */ + IT_menu_calc_size (menu->submenu[0], width, height); + else + IT_menu_calc_size (menu, width, height); + *ulx = x + 1; + *uly = y; + *width += 2; +} + +struct IT_menu_state +{ + void *screen_behind; + XMenu *menu; + int pane; + int x, y; +}; + + +/* Display menu, wait for user's response, and return that response. */ + +int +XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx, + int x0, int y0, unsigned ButtonMask, char **txt) +{ + struct IT_menu_state *state; + int statecount; + int x, y, i, b; + int screensize; + int faces[4], selectface; + int leave, result, onepane; + + /* Just in case we got here without a mouse present... */ + if (have_mouse <= 0) + return XM_IA_SELECT; + + state = alloca (menu->panecount * sizeof (struct IT_menu_state)); + screensize = screen_size * 2; + faces[0] + = compute_glyph_face (&the_only_frame, + face_name_id_number + (&the_only_frame, + intern ("msdos-menu-passive-face")), + 0); + faces[1] + = compute_glyph_face (&the_only_frame, + face_name_id_number + (&the_only_frame, + intern ("msdos-menu-active-face")), + 0); + selectface + = face_name_id_number (&the_only_frame, intern ("msdos-menu-select-face")); + faces[2] = compute_glyph_face (&the_only_frame, selectface, faces[0]); + faces[3] = compute_glyph_face (&the_only_frame, selectface, faces[1]); + + statecount = 1; + state[0].menu = menu; + mouse_off (); + ScreenRetrieve (state[0].screen_behind = xmalloc (screensize)); + if ((onepane = menu->count == 1 && menu->submenu[0])) + { + menu->width = menu->submenu[0]->width; + state[0].menu = menu->submenu[0]; + } + else + { + state[0].menu = menu; + } + state[0].x = x0 - 1; + state[0].y = y0; + state[0].pane = onepane; + + mouse_last_x = -1; /* A hack that forces display. */ + leave = 0; + while (!leave) + { + if (!mouse_visible) mouse_on (); + mouse_check_moved (); + if (selected_frame->mouse_moved) + { + selected_frame->mouse_moved = 0; + result = XM_IA_SELECT; + mouse_get_xy (&x, &y); + for (i = 0; i < statecount; i++) + if (state[i].x <= x && x < state[i].x + state[i].menu->width + 2) + { + int dy = y - state[i].y; + if (0 <= dy && dy < state[i].menu->count) + { + if (!state[i].menu->submenu[dy]) + if (state[i].menu->panenumber[dy]) + result = XM_SUCCESS; + else + result = XM_IA_SELECT; + *pane = state[i].pane - 1; + *selidx = dy; + /* We hit some part of a menu, so drop extra menues that + have been opened. That does not include an open and + active submenu. */ + if (i != statecount - 2 + || state[i].menu->submenu[dy] != state[i+1].menu) + while (i != statecount - 1) + { + statecount--; + mouse_off (); + ScreenUpdate (state[statecount].screen_behind); + xfree (state[statecount].screen_behind); + } + if (i == statecount - 1 && state[i].menu->submenu[dy]) + { + IT_menu_display (state[i].menu, + state[i].y, + state[i].x, + faces); + state[statecount].menu = state[i].menu->submenu[dy]; + state[statecount].pane = state[i].menu->panenumber[dy]; + mouse_off (); + ScreenRetrieve (state[statecount].screen_behind + = xmalloc (screensize)); + state[statecount].x + = state[i].x + state[i].menu->width + 2; + state[statecount].y = y; + statecount++; + } + } + } + IT_menu_display (state[statecount - 1].menu, + state[statecount - 1].y, + state[statecount - 1].x, + faces); + } + for (b = 0; b < mouse_button_count; b++) + { + (void) mouse_pressed (b, &x, &y); + if (mouse_released (b, &x, &y)) + leave = 1; + } + } + + mouse_off (); + ScreenUpdate (state[0].screen_behind); + while (statecount--) + xfree (state[statecount].screen_behind); + return result; +} + +/* Dispose of a menu. */ + +void +XMenuDestroy (Display *foo, XMenu *menu) +{ + int i; + if (menu->allocated) + { + for (i = 0; i < menu->count; i++) + if (menu->submenu[i]) + XMenuDestroy (foo, menu->submenu[i]); + xfree (menu->text); + xfree (menu->submenu); + xfree (menu->panenumber); } - fpurge (stdout); - ScreenSetCursor (y, x); - mouse_on (); + xfree (menu); } -#ifndef HAVE_X_WINDOWS -static void -rien_du_tout () +int +x_pixel_width (struct frame *f) { - /* Rien du tout, cela va sans dire! */ + return FRAME_WIDTH (f); } -static -IT_ring_bell () +int +x_pixel_height (struct frame *f) { - 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 (); - } - 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); + return FRAME_HEIGHT (f); } +#endif /* !HAVE_X_WINDOWS */ -static void -IT_set_face (int face) -{ - struct face *fp; - extern struct face *intern_face (/* FRAME_PTR, struct face * */); - if (face == 1 || (face == 0 && highlight)) - fp = FRAME_MODE_LINE_FACE (foo); - else if (face <= 0 || face >= FRAME_N_COMPUTED_FACES (foo)) - fp = FRAME_DEFAULT_FACE (foo); - else - fp = intern_face (selected_frame, FRAME_COMPUTED_FACES (foo)[face]); -#ifdef DO_TERMSCRIPT - if (termscript) - fprintf (termscript, "", FACE_FOREGROUND (fp), FACE_BACKGROUND (fp)); -#endif - putchar ('\e'); - putchar ('A'); - putchar ((FACE_BACKGROUND (fp) << 4) | FACE_FOREGROUND (fp)); -} +/* ----------------------- DOS / UNIX conversion --------------------- */ -static -IT_write_glyphs (GLYPH *str, int len) +/* Destructively turn backslashes into slashes. */ + +void +dostounix_filename (p) + register char *p; { - int face = -1; - int newface; - int ch; - - while (len > 0) + while (*p) { - newface = FAST_GLYPH_FACE (*str); - if (newface != face) - IT_set_face ((face = newface)); - ch = FAST_GLYPH_CHAR (*str); -#ifdef DO_TERMSCRIPT - if (termscript) - fputc (ch, termscript); -#endif - if (ch == '\e') putchar (ch); /* allow esc to be printed */ - putchar (ch); - str++, len--; + if (*p == '\\') + *p = '/'; + p++; } } -static -IT_clear_end_of_line (first_unused) -{ - IT_set_face (0); -#ifdef DO_TERMSCRIPT - if (termscript) - fprintf (termscript, ""); -#endif - putchar ('\e'); - putchar ('E'); -} +/* Destructively turn slashes into backslashes. */ -static -IT_cursor_to (int y, int x) +void +unixtodos_filename (p) + register char *p; { -#ifdef DO_TERMSCRIPT - if (termscript) - fprintf (termscript, "\n", x, y); -#endif - putchar ('\e'); - putchar ('@'); - putchar (y); - putchar (x); + while (*p) + { + if (*p == '/') + *p = '\\'; + p++; + } } -IT_reassert_line_highlight (new, vpos) - int new, vpos; -{ - highlight = new; - IT_set_face (0); /* To possibly clear the highlighting. */ -} +/* Get the default directory for a given drive. 0=def, 1=A, 2=B, ... */ -static -IT_change_line_highlight (new_highlight, vpos, first_unused_hpos) +int +getdefdir (drive, dst) + int drive; + char *dst; { - highlight = new_highlight; - IT_set_face (0); /* To possibly clear the highlighting. */ - IT_cursor_to (vpos, 0); - IT_clear_end_of_line (first_unused_hpos); -} + union REGS regs; -static -IT_update_begin () -{ - highlight = 0; - IT_set_face (0); /* To possibly clear the highlighting. */ + *dst++ = '/'; + regs.h.dl = drive; + regs.x.si = (int) dst; + regs.h.ah = 0x47; + intdos (®s, ®s); + return !regs.x.cflag; } -/* This was more or less copied from xterm.c */ -static void -IT_set_menu_bar_lines (window, n) - Lisp_Object window; - int n; -{ - struct window *w = XWINDOW (window); - - XSETFASTINT (w->top, XFASTINT (w->top) + n); - XSETFASTINT (w->height, XFASTINT (w->height) - n); +/* Remove all CR's that are followed by a LF. */ - /* Handle just the top child in a vertical split. */ - if (!NILP (w->vchild)) - IT_set_menu_bar_lines (w->vchild, n); +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; - /* Adjust all children in a horizontal split. */ - for (window = w->hchild; !NILP (window); window = w->next) + if (n == 0) + return n; + while (buf < endp - 1) { - w = XWINDOW (window); - IT_set_menu_bar_lines (window, n); + 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. */ -void -IT_set_frame_parameters (frame, alist) - FRAME_PTR frame; - Lisp_Object alist; -{ - Lisp_Object tail; - int redraw; - extern unsigned long load_color (); - FRAME_PTR f = (FRAME_PTR) &the_only_frame; +static char emacsroot[MAXPATHLEN]; - redraw = 0; - for (tail = alist; CONSP (tail); tail = Fcdr (tail)) - { - Lisp_Object elt, prop, val; +char * +rootrelativepath (rel) + char *rel; +{ + static char result[MAXPATHLEN + 10]; - elt = Fcar (tail); - prop = Fcar (elt); - val = Fcdr (elt); - CHECK_SYMBOL (prop, 1); + strcpy (result, emacsroot); + strcat (result, "/"); + strcat (result, rel); + return result; +} - if (EQ (prop, intern ("foreground-color"))) - { - unsigned long new_color = load_color (f, val); - if (new_color != ~0) - { - FRAME_FOREGROUND_PIXEL (f) = new_color; - redraw = 1; - } - } - else if (EQ (prop, intern ("background-color"))) - { - unsigned long new_color = load_color (f, val); - if (new_color != ~0) - { - FRAME_BACKGROUND_PIXEL (f) = new_color & ~8; - redraw = 1; - } - } - else if (EQ (prop, intern ("menu-bar-lines"))) - { - int new; - int old = FRAME_MENU_BAR_LINES (the_only_frame); +/* 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. */ - if (INTEGERP (val)) - new = XINT (val); - else - new = 0; - FRAME_MENU_BAR_LINES (f) = new; - IT_set_menu_bar_lines (the_only_frame.root_window, new - old); - } - } +void +init_environment (argc, argv, skip_args) + int argc; + char **argv; + int skip_args; +{ + char *s, *t, *root; + int len; - if (redraw) - { - recompute_basic_faces (f); - Fredraw_frame (Fselected_frame ()); - } -} + /* 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); -/* Similar to the_only_frame. */ -struct x_display the_only_x_display; + /* We default HOME to our root. */ + setenv ("HOME", root, 0); -/* This is never dereferenced. */ -Display *x_current_display; + /* We default EMACSPATH to root + "/bin". */ + strcpy (root + len, "/bin"); + setenv ("EMACSPATH", root, 0); -#endif /* !HAVE_X_WINDOWS */ + /* I don't expect anybody to ever use other terminals so the internal + terminal is the default. */ + setenv ("TERM", "internal", 0); -/* Do we need the internal terminal? */ -void -internal_terminal_init () -{ - char *term = getenv ("TERM"); - char *colors; - #ifdef HAVE_X_WINDOWS - if (!inhibit_window_system) - return; + /* Emacs expects DISPLAY to be set. */ + setenv ("DISPLAY", "unix:0.0", 0); #endif - internal_terminal - = (!noninteractive) && term && !strcmp (term, "internal"); - -#ifndef HAVE_X_WINDOWS - 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; - - 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; - - /* 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; -#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. */ + /* 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); -static int daylight, gmtoffset; + /* 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); -int -gettimeofday (struct timeval *tp, struct timezone *tzp) -{ - if (tp) - { - struct time t; - struct date d; - struct tm tmrec; + /* In some sense all dos users have root privileges, so... */ + setenv ("USER", "root", 0); + setenv ("NAME", getenv ("USER"), 0); - 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. */ - return 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; + } } -void -init_gettimeofday () -{ - time_t ltm, gtm; - struct tm *lstm; -#undef tzset - extern void tzset (void); - - 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; -} + +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; @@ -1492,584 +1996,483 @@ install_ctrl_break_check () _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. */ - -static int mouse_button_translate[NUM_MOUSE_BUTTONS]; -static int mouse_button_count; - -void -mouse_init () -{ - union REGS regs; - - 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 (ScreenCols () - 1, ScreenRows () - 1); - mouse_on (); -} +/* + * Turn off Dos' Ctrl-C checking and inhibit interpretation of + * control chars by Dos. + * Determine the keyboard type. + */ -void -mouse_on () +int +dos_ttraw () { - union REGS regs; + union REGS inregs, outregs; + static int first_time = 1; + + break_stat = getcbrk (); + setcbrk (0); + install_ctrl_break_check (); - if (have_mouse > 0) + if (first_time) { - regs.x.ax = 0x0001; - int86 (0x33, ®s, ®s); - } -} + inregs.h.ah = 0xc0; + int86 (0x15, &inregs, &outregs); + extended_kbd = (!outregs.x.cflag) && (outregs.h.ah == 0); + + have_mouse = 0; -void -mouse_off () -{ - union REGS regs; + 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 > 0) - { - regs.x.ax = 0x0002; - int86 (0x33, ®s, ®s); + 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; } -} - -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; + inregs.x.ax = 0x4400; /* Get IOCTL status. */ + inregs.x.bx = 0x00; /* 0 = stdin. */ + intdos (&inregs, &outregs); + stdin_stat = outregs.h.dl; - 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); + 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 -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 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; -} - -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; +dos_ttcooked () { - 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 (); -} + union REGS inregs, outregs; -void -mouse_check_moved () -{ - int x, y; + setcbrk (break_stat); + mouse_off (); - 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; + 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 -mouse_init1 () +run_msdos_command (argv, dir, tempin, tempout) + unsigned char **argv; + Lisp_Object dir; + int tempin, tempout; { - 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) - { - /* 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; - } + 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); - if (present) + cmd = Ffile_name_nondirectory (build_string (argv[0])); + msshell = !NILP (Fmember (cmd, Fsymbol_value (intern ("msdos-shells")))) + && !strcmp ("-c", argv[1]); + if (msshell) { - 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 + saveargv1 = argv[1]; + saveargv2 = argv[2]; + argv[1] = "/c"; + if (argv[2]) { - mouse_button_count = 2; - mouse_button_translate[0] = 0; - mouse_button_translate[1] = 1; + 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++; } - mouse_position_hook = &mouse_get_pos; - mouse_init (); } - return present; -} - -#ifndef HAVE_X_WINDOWS -/* See xterm.c for more info. */ -void -pixel_to_glyph_coords (f, pix_x, pix_y, x, y, bounds, noclip) - FRAME_PTR f; - register int pix_x, pix_y; - register int *x, *y; - void /* XRectangle */ *bounds; - int noclip; -{ - if (bounds) abort (); - /* Ignore clipping. */ + /* Build the environment array. */ + { + extern Lisp_Object Vprocess_environment; + Lisp_Object tmp, lst; + int i, len; - *x = pix_x; - *y = pix_y; -} + lst = Vprocess_environment; + len = XFASTINT (Flength (lst)); -void -glyph_to_pixel_coords (f, x, y, pix_x, pix_y) - FRAME_PTR f; - register int x, y; - register int *pix_x, *pix_y; -{ - *pix_x = x; - *pix_y = y; -} - -/* Simulation of X's menus. Nothing too fancy here -- just make it work - for now. + 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; + } - Actually, I don't know the meaning of all the parameters of the functions - here -- I only know how they are called by xmenu.c. I could of course - grab the nearest Xlib manual (down the hall, second-to-last door on the - left), but I don't think it's worth the effort. */ + 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. */ -static XMenu * -IT_menu_create () -{ - XMenu *menu; + if (have_mouse > 0) + mouse_get_xy (&x, &y); - menu = (XMenu *) xmalloc (sizeof (XMenu)); - menu->allocated = menu->count = menu->panecount = menu->width = 0; - return menu; -} + dos_ttcooked (); /* do it here while 0 = stdin */ + + dup2 (tempin, 0); + dup2 (tempout, 1); + dup2 (tempout, 2); -/* Allocate some (more) memory for MENU ensuring that there is room for one - for item. */ + result = spawnve (P_WAIT, argv[0], argv, envv); + + dup2 (inbak, 0); + dup2 (outbak, 1); + dup2 (errbak, 2); + close (inbak); + close (outbak); + close (errbak); -static void -IT_menu_make_room (XMenu *menu) -{ - if (menu->allocated == 0) + dos_ttraw(); + if (have_mouse > 0) { - int count = menu->allocated = 10; - menu->text = (char **) xmalloc (count * sizeof (char *)); - menu->submenu = (XMenu **) xmalloc (count * sizeof (XMenu *)); - menu->panenumber = (int *) xmalloc (count * sizeof (int)); + mouse_init (); + mouse_moveto (x, y); } - else if (menu->allocated == menu->count) + + done: + chdir (oldwd); + if (msshell) { - int count = menu->allocated = menu->allocated + 10; - menu->text - = (char **) xrealloc (menu->text, count * sizeof (char *)); - menu->submenu - = (XMenu **) xrealloc (menu->submenu, count * sizeof (XMenu *)); - menu->panenumber - = (int *) xrealloc (menu->panenumber, count * sizeof (int)); + argv[1] = saveargv1; + argv[2] = saveargv2; } + return result; } -/* Search the given menu structure for a given pane number. */ - -static XMenu * -IT_menu_search_pane (XMenu *menu, int pane) +croak (badfunc) + char *badfunc; { - int i; - XMenu *try; - - for (i = 0; i < menu->count; i++) - if (menu->submenu[i]) - { - if (pane == menu->panenumber[i]) - return menu->submenu[i]; - else if ((try = IT_menu_search_pane (menu->submenu[i], pane))) - return try; - } - return (XMenu *) 0; + fprintf (stderr, "%s not yet implemented\r\n", badfunc); + reset_sys_modes (); + exit (1); } -/* Determine how much screen space a given menu needs. */ - -static void -IT_menu_calc_size (XMenu *menu, int *width, int *height) -{ - int i, h2, w2, maxsubwidth, maxheight; - maxsubwidth = 0; - maxheight = menu->count; - for (i = 0; i < menu->count; i++) - { - if (menu->submenu[i]) - { - IT_menu_calc_size (menu->submenu[i], &w2, &h2); - if (w2 > maxsubwidth) maxsubwidth = w2; - if (i + h2 > maxheight) maxheight = i + h2; - } - } - *width = menu->width + maxsubwidth; - *height = maxheight; -} +/* ------------------------- Compatibility functions ------------------- + * gethostname + * gettimeofday + */ -/* Display MENU at (X,Y) using FACES. */ +/* + * Hostnames for a pc are not really funny, + * but they are used in change log so we emulate the best we can. + */ -static void -IT_menu_display (XMenu *menu, int y, int x, int *faces) +gethostname (p, size) + char *p; + int size; { - int i, j, face, width; - GLYPH *text, *p; - char *q; - int mx, my; - int enabled, mousehere; - int row, col; + char *q = egetenv ("HOSTNAME"); - width = menu->width; - text = (GLYPH *) xmalloc ((width + 2) * sizeof (GLYPH)); - ScreenGetCursor (&row, &col); - mouse_get_xy (&mx, &my); - mouse_off (); - (*update_begin_hook) (); - for (i = 0; i < menu->count; i++) - { - (*cursor_to_hook) (y + i, x); - enabled - = (!menu->submenu[i] && menu->panenumber[i]) || (menu->submenu[i]); - mousehere = (y + i == my && x <= mx && mx < x + width + 2); - face = faces[enabled + mousehere * 2]; - p = text; - *p++ = FAST_MAKE_GLYPH (' ', face); - for (j = 0, q = menu->text[i]; *q; j++) - *p++ = FAST_MAKE_GLYPH (*q++, face); - for (; j < width; j++) - *p++ = FAST_MAKE_GLYPH (' ', face); - *p++ = FAST_MAKE_GLYPH (menu->submenu[i] ? 16 : ' ', face); - (*write_glyphs_hook) (text, width + 2); - } - internal_flush (stdout); - (*update_end_hook) (); - mouse_on (); - ScreenSetCursor (row, col); - xfree (text); + if (!q) q = "pc"; + strcpy (p, q); + return 0; } -/* Create a brand new menu structure. */ - -XMenu * -XMenuCreate (Display *foo1, Window foo2, char *foo3) -{ - return IT_menu_create (); -} +/* 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. */ -/* Create a new pane and place it on the outer-most level. It is not - clear that it should be placed out there, but I don't know what else - to do. */ +static struct tm time_rec; int -XMenuAddPane (Display *foo, XMenu *menu, char *txt, int enable) +gettimeofday (struct timeval *tp, struct timezone *tzp) { - int len; + 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; +} - if (!enable) - abort (); - IT_menu_make_room (menu); - menu->submenu[menu->count] = IT_menu_create (); - menu->text[menu->count] = txt; - menu->panenumber[menu->count] = ++menu->panecount; - menu->count++; - if ((len = strlen (txt)) > menu->width) - menu->width = len; - return menu->panecount; -} +/* + * A list of unimplemented functions that we silently ignore. + */ -/* Create a new item in a menu pane. */ +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 -XMenuAddSelection (Display *bar, XMenu *menu, int pane, - int foo, char *txt, int enable) -{ - int len; +int run_dos_timer_hooks = 0; - if (pane) - if (!(menu = IT_menu_search_pane (menu, pane))) - return XM_FAILURE; - IT_menu_make_room (menu); - menu->submenu[menu->count] = (XMenu *) 0; - menu->text[menu->count] = txt; - menu->panenumber[menu->count] = enable; - menu->count++; - if ((len = strlen (txt)) > menu->width) - menu->width = len; - return XM_SUCCESS; -} +#ifndef HAVE_SELECT +#include "sysselect.h" -/* Decide where the menu would be placed if requested at (X,Y). */ +static int last_ti_sec = -1; -void -XMenuLocate (Display *foo0, XMenu *menu, int foo1, int foo2, int x, int y, - int *ulx, int *uly, int *width, int *height) +static void +check_timer (t) + struct time *t; { - if (menu->count == 1 && menu->submenu[0]) - /* Special case: the menu consists of only one pane. */ - IT_menu_calc_size (menu->submenu[0], width, height); - else - IT_menu_calc_size (menu, width, height); - *ulx = x + 1; - *uly = y; - *width += 2; -} + gettime (t); + + if (t->ti_sec == last_ti_sec) + return; + last_ti_sec = t->ti_sec; -struct IT_menu_state -{ - void *screen_behind; - XMenu *menu; - int pane; - int x, y; -}; + 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; + } -/* Display menu, wait for user's response, and return that response. */ + 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 -XMenuActivate (Display *foo, XMenu *menu, int *pane, int *selidx, - int x0, int y0, unsigned ButtonMask, char **txt) +sys_select (nfds, rfds, wfds, efds, timeout) + int nfds; + SELECT_TYPE *rfds, *wfds, *efds; + EMACS_TIME *timeout; { - struct IT_menu_state *state; - int statecount; - int x, y, i, b; - int screensize; - int faces[4], selectface; - int leave, result, onepane; - - /* Just in case we got here without a mouse present... */ - if (have_mouse <= 0) - return XM_IA_SELECT; + int check_input; + long timeoutval, clnow, cllast; + struct time t; - state = alloca (menu->panecount * sizeof (struct IT_menu_state)); - screensize = ScreenRows () * ScreenCols () * 2; - faces[0] - = compute_glyph_face (&the_only_frame, - face_name_id_number - (&the_only_frame, - intern ("msdos-menu-passive-face")), - 0); - faces[1] - = compute_glyph_face (&the_only_frame, - face_name_id_number - (&the_only_frame, - intern ("msdos-menu-active-face")), - 0); - selectface - = face_name_id_number (&the_only_frame, intern ("msdos-menu-select-face")); - faces[2] = compute_glyph_face (&the_only_frame, selectface, faces[0]); - faces[3] = compute_glyph_face (&the_only_frame, selectface, faces[1]); + check_input = 0; + if (rfds) + { + check_input = FD_ISSET (0, rfds); + FD_ZERO (rfds); + } + if (wfds) + FD_ZERO (wfds); + if (efds) + FD_ZERO (efds); - statecount = 1; - state[0].menu = menu; - mouse_off (); - ScreenRetrieve (state[0].screen_behind = xmalloc (screensize)); - mouse_on (); - if ((onepane = menu->count == 1 && menu->submenu[0])) + 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) { - menu->width = menu->submenu[0]->width; - state[0].menu = menu->submenu[0]; + while (! detect_input_pending ()) + check_timer (&t); } else { - state[0].menu = menu; - } - state[0].x = x0 - 1; - state[0].y = y0; - state[0].pane = onepane; + timeoutval = EMACS_SECS (*timeout) * 100 + EMACS_USECS (*timeout) / 10000; + check_timer (&t); + cllast = t.ti_sec * 100 + t.ti_hund; - mouse_last_x = -1; /* A hack that forces display. */ - leave = 0; - while (!leave) - { - mouse_check_moved (); - if (selected_frame->mouse_moved) - { - selected_frame->mouse_moved = 0; - result = XM_IA_SELECT; - mouse_get_xy (&x, &y); - for (i = 0; i < statecount; i++) - if (state[i].x <= x && x < state[i].x + state[i].menu->width + 2) - { - int dy = y - state[i].y; - if (0 <= dy && dy < state[i].menu->count) - { - if (!state[i].menu->submenu[dy]) - if (state[i].menu->panenumber[dy]) - result = XM_SUCCESS; - else - result = XM_IA_SELECT; - *pane = state[i].pane - 1; - *selidx = dy; - /* We hit some part of a menu, so drop extra menues that - have been opened. That does not include an open and - active submenu. */ - if (i != statecount - 2 - || state[i].menu->submenu[dy] != state[i+1].menu) - while (i != statecount - 1) - { - statecount--; - mouse_off (); - ScreenUpdate (state[statecount].screen_behind); - mouse_on (); - xfree (state[statecount].screen_behind); - } - if (i == statecount - 1 && state[i].menu->submenu[dy]) - { - IT_menu_display (state[i].menu, - state[i].y, - state[i].x, - faces); - state[statecount].menu = state[i].menu->submenu[dy]; - state[statecount].pane = state[i].menu->panenumber[dy]; - 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; - statecount++; - } - } - } - IT_menu_display (state[statecount - 1].menu, - state[statecount - 1].y, - state[statecount - 1].x, - faces); - } - for (b = 0; b < mouse_button_count; b++) + while (!check_input || !detect_input_pending ()) { - (void) mouse_pressed (b, &x, &y); - if (mouse_released (b, &x, &y)) - leave = 1; + 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; } } - - mouse_off (); - ScreenUpdate (state[0].screen_behind); - mouse_on (); - while (statecount--) - xfree (state[statecount].screen_behind); - return result; + + FD_SET (0, rfds); + return 1; } +#endif -/* Dispose of a menu. */ +/* + * Define overlayed functions: + * + * chdir -> sys_chdir + * tzset -> init_gettimeofday + * abort -> dos_abort + */ -void -XMenuDestroy (Display *foo, XMenu *menu) +#ifdef chdir +#undef chdir +extern int chdir (); + +int +sys_chdir (path) + const char* path; { - int i; - if (menu->allocated) + int len = strlen (path); + char *tmp = (char *)path; + + if (*tmp && tmp[1] == ':') { - for (i = 0; i < menu->count; i++) - if (menu->submenu[i]) - XMenuDestroy (foo, menu->submenu[i]); - xfree (menu->text); - xfree (menu->submenu); - xfree (menu->panenumber); + if (getdisk () != tolower (tmp[0]) - 'a') + setdisk (tolower (tmp[0]) - 'a'); + tmp += 2; /* strip drive: KFS 1995-07-06 */ + len -= 2; } - xfree (menu); + + 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 -int -x_pixel_width (struct frame *f) +#ifdef tzset +#undef tzset +extern void tzset (void); + +void +init_gettimeofday () { - return FRAME_WIDTH (f); + 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 -int -x_pixel_height (struct frame *f) +#ifdef abort +#undef abort +void +dos_abort (file, line) + char *file; + int line; { - return FRAME_HEIGHT (f); + char buffer1[200], buffer2[400]; + int i, j; + + sprintf (buffer1, "", 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 /* !HAVE_X_WINDOWS */ +#endif #endif /* MSDOS */