home *** CD-ROM | disk | FTP | other *** search
/ Fresh Fish 2 / FFMCD02.bin / useful / lib / emacs / 18.59 / etc / emacstool.c < prev    next >
C/C++ Source or Header  |  1992-10-21  |  17KB  |  521 lines
  1. /* Copyright (C) 1986, 1988, 1990, 1991 Free Software Foundation, Inc.
  2.  
  3. This file is part of GNU Emacs.
  4.  
  5. GNU Emacs is free software; you can redistribute it and/or modify
  6. it under the terms of the GNU General Public License as published by
  7. the Free Software Foundation; either version 1, or (at your option)
  8. any later version.
  9.  
  10. GNU Emacs is distributed in the hope that it will be useful,
  11. but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. GNU General Public License for more details.
  14.  
  15. You should have received a copy of the GNU General Public License
  16. along with GNU Emacs; see the file COPYING.  If not, write to
  17. the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  18.  
  19. /* For Emacs in SunView/Sun-Windows: (supported by Sun Unix v3.2 or greater)
  20.  * Insert a notifier filter-function to convert all useful input 
  21.  * to "key" sequences that emacs can understand.  See: Emacstool(1).
  22.  *
  23.  * Author: Jeff Peck, Sun Microsystems, Inc. <peck@eng.sun.com>
  24.  *
  25.  * Original Idea: Ian Batten
  26.  * Updated 15-Mar-88, Jeff Peck: set IN_EMACSTOOL, TERM, TERMCAP
  27.  * Updated 10-Sep-88, Jeff Peck: add XVIEW and JLE support
  28.  * Updated  8-Oct-90, Jeff Peck: add Meta-bit for Xview
  29.  * Updated  6-Mar-91, Jeff Peck: Hack to detect -Wt invocation
  30.  *    [note, TTYSW limitation means you must Click-To-Type in Openwin]
  31.  *    [fixed in OW3 or use local/tty.o]
  32.  *    for better results, this should move to using TERMSW.
  33.  * Updated 30-Mar-91, Jeff Peck, et al: Enable using TERMSW (-DTTERM)
  34.  *    TERMSW understands point-to-type, even in OW2.
  35.  * Updated  5-Jun-91, Jeff Peck: Meta-key support fixed for OWv3
  36.  *                 Better event diagnostics for DEBUGEMACSTOOL
  37.  *
  38.  *     [note: xvetool should be started with the "-nw" flag for emacs!]
  39.  */
  40.  
  41. #ifdef XVIEW
  42. #include <xview/xview.h>
  43. #include <xview/panel.h>
  44. #include <xview/attr.h>
  45. #include <xview/tty.h>
  46. #include <xview/ttysw.h>        /* private defines */
  47. #include <xview/termsw.h>        /* -DTTERM */
  48. #include <xview/font.h>            /* for testing */
  49. #else
  50. #include <suntool/sunview.h>
  51. #include <suntool/tty.h>
  52. #include <suntool/ttysw.h>
  53. #endif /* XVIEW */
  54.  
  55. #ifdef JLE
  56. # include <locale.h>
  57. #endif /* JLE */
  58.  
  59. #include <stdio.h>
  60. #include <sys/file.h>
  61.  
  62. #define BUFFER_SIZE 128                   /* Size of all the buffers */
  63.  
  64. /* define WANT_CAPS_LOCK to make f-key T1 (aka F1) behave as CapsLock */
  65. #define WANT_CAPS_LOCK
  66. #ifdef WANT_CAPS_LOCK
  67. int caps_lock;        /* toggle indicater for f-key T1 caps lock */
  68. static char *Caps = "[CAPS] ";        /* Caps Lock prefix string */
  69. #define CAPS_LEN 7            /* strlen (Caps) */
  70. #endif
  71.  
  72. static char *mouse_prefix = "\030\000";    /* C-x C-@ */
  73. static int   m_prefix_length = 2;       /* mouse_prefix length */
  74.  
  75. static char *key_prefix = "\030*";      /* C-x *   */
  76. static int   k_prefix_length = 2;       /* key_prefix length */
  77.  
  78. #ifdef JLE
  79. static char *emacs_name = "nemacs";    /* default run command */
  80. static char *title = "NEmacstool - ";    /* initial title */
  81. #else
  82. static char *emacs_name = "emacs";    /* default run command */
  83. static char *title = "Emacstool - ";    /* initial title */
  84. #endif /* JLE */
  85.  
  86. static char buffer[BUFFER_SIZE];    /* send to ttysw_input */
  87. static char *bold_name = 0;         /* for -bold option */
  88.  
  89. Frame frame;                            /* Base frame for system */
  90.  
  91. #ifndef TTERM
  92. #define SWTYPE TTY
  93. Tty tty_win;                /* Where emacs is reading */
  94. #else
  95. #define SWTYPE TERMSW
  96. Termsw tty_win;                /* Termsw does follow-mouse */
  97. #endif /* TTERM */
  98.  
  99. #ifdef XVIEW
  100. Xv_Window tty_view;            /* Where the events are in Xview*/
  101. #else
  102. Tty tty_view;                /* SunView place filler */
  103. #endif /* XVIEW */
  104.  
  105. int font_width, font_height;            /* For translating pixels to chars */
  106. int left_margin = 0;        /* default window -- frame offset */
  107.  
  108. int console_fd = 0;        /* for debugging: setenv DEBUGEMACSTOOL */
  109. FILE *console;            /* for debugging: setenv DEBUGEMACSTOOL */
  110.  
  111. Icon frame_icon;
  112. /* make an icon_image for the default frame_icon */
  113. static short default_image[258] = 
  114. {
  115. #include <images/terminal.icon>
  116. };
  117. mpr_static(icon_image, 64, 64, 1, default_image);
  118.  
  119. /*
  120.  * Assign a value to a set of keys
  121.  */
  122. int
  123. button_value (event)
  124.      Event *event;
  125. {
  126.   int retval = 0;
  127.   /*
  128.    * Code up the current situation:
  129.    *
  130.    * 1 = MS_LEFT;
  131.    * 2 = MS_MIDDLE;
  132.    * 4 = MS_RIGHT;
  133.    * 8 = SHIFT;
  134.    * 16 = CONTROL;
  135.    * 32 = META;
  136.    * 64 = DOUBLE;
  137.    * 128 = UP;
  138.    */
  139.  
  140.   if (MS_LEFT   == (event_id (event))) retval = 1;
  141.   if (MS_MIDDLE == (event_id (event))) retval = 2;
  142.   if (MS_RIGHT  == (event_id (event))) retval = 4;
  143.  
  144.   if (event_shift_is_down (event)) retval += 8;
  145.   if (event_ctrl_is_down  (event)) retval += 16;
  146.   if (event_meta_is_down  (event)) retval += 32;
  147.   if (event_is_up         (event)) retval += 128;
  148.   return retval;
  149. }
  150.  
  151. /*
  152.  *  Variables to store the time of the previous mouse event that was
  153.  *  sent to emacs.
  154.  *
  155.  *  The theory is that to time double clicks while ignoreing UP buttons,
  156.  *  we must keep track of the accumulated time.
  157.  *
  158.  *  If someone writes a SUN-SET-INPUT-MASK for emacstool,
  159.  *  That could be used to selectively disable UP events, 
  160.  *  and then this cruft wouldn't be necessary.
  161.  */
  162. static long prev_event_sec = 0;
  163. static long prev_event_usec = 0;
  164.  
  165. /*
  166.  *  Give the time difference in milliseconds, where one second
  167.  *  is considered infinite.
  168.  */
  169. int
  170. time_delta (now_sec, now_usec, prev_sec, prev_usec)
  171.      long now_sec, now_usec, prev_sec, prev_usec;
  172. {
  173.   long sec_delta = now_sec - prev_sec;
  174.   long usec_delta = now_usec - prev_usec;
  175.   
  176.   if (usec_delta < 0) {        /* "borrow" a second */
  177.     usec_delta += 1000000;
  178.     --sec_delta;
  179.   }
  180.   
  181.   if (sec_delta >= 10) 
  182.     return (9999);        /* Infinity */
  183.   else
  184.     return ((sec_delta * 1000) + (usec_delta / 1000));
  185. }
  186.  
  187.  
  188. /*
  189.  * Filter function to translate selected input events for emacs
  190.  * Mouse button events become ^X^@(button x-col y-line time-delta) .
  191.  * Function keys: ESC-*{c}{lrt} l,r,t for Left, Right, Top; 
  192.  * {c} encodes the keynumber as a character [a-o]
  193.  */
  194. static Notify_value
  195. input_event_filter_function (window, event, arg, type)
  196. #ifdef XVIEW
  197.      Xv_Window window;
  198. #else /* not XVIEW */
  199.      Window window;
  200. #endif /* XVIEW */
  201.      Event *event;
  202.      Notify_arg arg;
  203.      Notify_event_type type;
  204. {
  205.   struct timeval time_stamp;
  206.  
  207.   /* if DEBUGEMACSTOOL is set, printout event information */
  208.   if (console_fd) {
  209.       fprintf(console, "Event: %s%s%c %d %d\n",
  210.           (event_ctrl_is_down(event) ? "C-" : "  "),
  211.           (event_meta_is_down(event) ? "M-" : "  "),
  212.           (((event_is_button    (event)) ? 'M' :
  213.         ((event_is_key_left  (event)) ? 'L' : 
  214.          ((event_is_key_right (event)) ? 'R' : 
  215.           ((event_is_key_top   (event)) ? 'T' :
  216.            (((ASCII_FIRST <= event_id(event))
  217.              && (event_id(event) <= ASCII_LAST)) ? 
  218.             (((127 & event_id(event)) < 32) ?
  219.              ((127 & event_id(event)) + 64) :
  220.              ((127 & event_id(event)))) : '?')))))),
  221.           event_id(event),
  222.           event_action(event));
  223.   }
  224.   /* UP L1 is the STOP key */
  225.   if (event_id(event) == WIN_STOP) {
  226.       ttysw_input(tty_win, "\007\007\007\007\007\007\007", 7);
  227.       return NOTIFY_IGNORED;
  228.   }
  229.  
  230.   /* UP L5 & L7 is Expose & Open, let them pass to sunview */
  231.   if (event_id(event) == KEY_LEFT(5) || event_id(event) == KEY_LEFT(7)) 
  232.       if (event_is_up (event)) 
  233.       return notify_next_event_func (window, event, arg, type);
  234.       else 
  235.       return NOTIFY_IGNORED;
  236.  
  237.  
  238.   { /* Do the mouse == button events */
  239.       if (event_is_button (event)) { /* do Mouse Button events */
  240.       time_stamp = event_time (event);
  241.       ttysw_input (tty_win, mouse_prefix, m_prefix_length);
  242.       sprintf (buffer, "(%d %d %d %d)\015", 
  243.            button_value (event),
  244.            (event_x (event) - left_margin) / font_width,
  245.            event_y (event) / font_height,
  246.            time_delta (time_stamp.tv_sec, time_stamp.tv_usec,
  247.                    prev_event_sec, prev_event_usec)
  248.            );
  249.       ttysw_input (tty_win, buffer, strlen(buffer));
  250.       prev_event_sec = time_stamp.tv_sec;
  251.       prev_event_usec = time_stamp.tv_usec;
  252.       return NOTIFY_IGNORED; 
  253.       }
  254.   }
  255.   { /* Do the function key events */
  256.       int d;
  257.       char c = (char) 0;
  258.       if ((event_is_key_left  (event)) ?
  259.       ((d = event_id(event) - KEY_LEFT(1)   + 'a'), c='l') : 
  260.       ((event_is_key_right (event)) ?
  261.        ((d = event_id(event) -