[bpt/emacs.git] / lib-src / emacstool.c

/*
   Copyright (C) 1986, 1988, 1990, 1991 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software; you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation; either version 2, or (at your option)
any later version.

GNU Emacs is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU Emacs; see the file COPYING.  If not, write to
the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
Boston, MA 02111-1307, USA.  */

/*
 * For Emacs in SunView/Sun-Windows: (supported by Sun Unix v3.2 or greater)
 * Insert a notifier filter-function to convert all useful input
 * to "key" sequences that emacs can understand.  See: Emacstool(1).
 *
 * Author: Jeff Peck, Sun Microsystems, Inc. <peck@eng.sun.com>
 *
 * Original Idea: Ian Batten
 * Updated 15-Mar-88, Jeff Peck: set IN_EMACSTOOL, TERM, TERMCAP
 * Updated 10-Sep-88, Jeff Peck: add XVIEW and JLE support
 * Updated  8-Oct-90, Jeff Peck: add Meta-bit for Xview
 * Updated  6-Mar-91, Jeff Peck: Hack to detect -Wt invocation
 *	[note, TTYSW limitation means you must Click-To-Type in Openwin]
 *	[fixed in OW3 or use local/tty.o]
 *	for better results, this should move to using TERMSW.
 * Updated 10-Mar-91, Jeff Peck, et al: support for TERMSW (TTERM)
 *	allows point-to-type even in OW2
 *
 * 	[note: xvetool should be started with the "-nw" flag for emacs!]
 */

#ifdef XVIEW
#include <xview/xview.h>
#include <xview/panel.h>
#include <xview/attr.h>
#include <xview/tty.h>
#include <xview/ttysw.h>		/* private defines */
#include <xview/termsw.h>		/* -DTTERM */
#include <xview/font.h>			/* for testing */
#else
#include <suntool/sunview.h>
#include <suntool/tty.h>
#include <suntool/ttysw.h>
#endif XVIEW

#ifdef JLE
# include <locale.h>
#endif JLE

#include <stdio.h>
#include <sys/file.h>

#define BUFFER_SIZE 128               /* Size of all the buffers */

/* define WANT_CAPS_LOCK to make f-key T1 (aka F1) behave as CapsLock */
#define WANT_CAPS_LOCK
#ifdef WANT_CAPS_LOCK
int caps_lock;		/* toggle indicator for f-key T1 caps lock */
static char *Caps = "[CAPS] ";		/* Caps Lock prefix string */
#define CAPS_LEN 7			/* strlen (Caps) */
#endif

static char *mouse_prefix = "\030\000";	/* C-x C-@ */
static int   m_prefix_length = 2;       /* mouse_prefix length */

static char *key_prefix = "\030*";  	/* C-x *   */
static int   k_prefix_length = 2;       /* key_prefix length */

#ifdef JLE
static char *emacs_name = "nemacs";	/* default run command */
static char *title = "NEmacstool - ";	/* initial title */
#else
static char *emacs_name = "emacs";	/* default run command */
static char *title = "Emacstool - ";	/* initial title */
#endif JLE

static char buffer[BUFFER_SIZE];	/* send to ttysw_input */
static char *bold_name = 0;	 	/* for -bold option */

Frame frame;                            /* Base frame for system */

#ifndef TTERM
#define SWTYPE TTY
Tty tty_win;				/* Where emacs is reading */
#else
#define SWTYPE TERMSW
Termsw tty_win;				/* Termsw does follow-mouse */
#endif TTERM

#ifdef XVIEW
Xv_Window tty_view;			/* Where the events are in Xview*/
#else
Tty tty_view;				/* SunView place filler */
#endif XVIEW

int font_width, font_height;            /* For translating pixels to chars */
int left_margin = 0;		/* default window -- frame offset */

int console_fd = 0;		/* for debugging: setenv DEBUGEMACSTOOL */
FILE *console;			/* for debugging: setenv DEBUGEMACSTOOL */

Icon frame_icon;
/* make an icon_image for the default frame_icon */
static short default_image[258] =
{
#include <images/terminal.icon>
};
mpr_static(icon_image, 64, 64, 1, default_image);
\f
/*
 * Assign a value to a set of keys
 */
int
button_value (event)
     Event *event;
{
  int retval = 0;
  /*
   * Code up the current situation:
   *
   * 1 = MS_LEFT;
   * 2 = MS_MIDDLE;
   * 4 = MS_RIGHT;
   * 8 = SHIFT;
   * 16 = CONTROL;
   * 32 = META;
   * 64 = DOUBLE;
   * 128 = UP;
   */

  if (MS_LEFT   == (event_id (event))) retval = 1;
  if (MS_MIDDLE == (event_id (event))) retval = 2;
  if (MS_RIGHT  == (event_id (event))) retval = 4;

  if (event_shift_is_down (event)) retval += 8;
  if (event_ctrl_is_down  (event)) retval += 16;
  if (event_meta_is_down  (event)) retval += 32;
  if (event_is_up         (event)) retval += 128;
  return retval;
}
\f
/*
 *  Variables to store the time of the previous mouse event that was
 *  sent to emacs.
 *
 *  The theory is that to time double clicks while ignoring UP buttons,
 *  we must keep track of the accumulated time.
 *
 *  If someone writes a SUN-SET-INPUT-MASK for emacstool,
 *  That could be used to selectively disable UP events,
 *  and then this cruft wouldn't be necessary.
 */
static long prev_event_sec = 0;
static long prev_event_usec = 0;

/*
 *  Give the time difference in milliseconds, where one second
 *  is considered infinite.
 */
int
time_delta (now_sec, now_usec, prev_sec, prev_usec)
     long now_sec, now_usec, prev_sec, prev_usec;
{
  long sec_delta = now_sec - prev_sec;
  long usec_delta = now_usec - prev_usec;

  if (usec_delta < 0) {		/* "borrow" a second */
    usec_delta += 1000000;
    --sec_delta;
  }

  if (sec_delta >= 10)
    return (9999);		/* Infinity */
  else
    return ((sec_delta * 1000) + (usec_delta / 1000));
}

\f
/*
 * Filter function to translate selected input events for emacs
 * Mouse button events become ^X^@(button x-col y-line time-delta) .
 * Function keys: ESC-*{c}{lrt} l,r,t for Left, Right, Top;
 * {c} encodes the keynumber as a character [a-o]
 */
static Notify_value
input_event_filter_function (window, event, arg, type)
#ifdef XVIEW
     Xv_Window window;
#else
     Window window;
#endif XVIEW
     Event *event;
     Notify_arg arg;
     Notify_event_type type;
{
  struct timeval time_stamp;

  if (console_fd) fprintf(console, "Event: %d\n", event_id(event));

  /* UP L1 is the STOP key */
  if (event_id(event) == WIN_STOP) {
    ttysw_input(tty_win, "\007\007\007\007\007\007\007", 7);
    return NOTIFY_IGNORED;
  }

  /* UP L5 & L7 is Expose & Open, let them pass to sunview */
  if (event_id(event) == KEY_LEFT(5) || event_id(event) == KEY_LEFT(7))
    if(event_is_up (event))
      return notify_next_event_func (window, event, arg, type);
    else return NOTIFY_IGNORED;

  if (event_is_button (event)) { 	      /* do Mouse Button events */
/* Commented out so that we send mouse up events too.
   if (event_is_up (event))
      return notify_next_event_func (window, event, arg, type);
*/
    time_stamp = event_time (event);
    ttysw_input (tty_win, mouse_prefix, m_prefix_length);
    sprintf (buffer, "(%d %d %d %d)\015",
	     button_value (event),
	     (event_x (event) - left_margin) / font_width,
	     event_y (event) / font_height,
	     time_delta (time_stamp.tv_sec, time_stamp.tv_usec,
			 prev_event_sec, prev_event_usec)
	     );
    ttysw_input (tty_win, buffer, strlen(buffer));
    prev_event_sec = time_stamp.tv_sec;
    prev_event_usec = time_stamp.tv_usec;
    return NOTIFY_IGNORED;
  }

  { /* Do the function key events */
    int d;
    char c = (char) 0;
    if ((event_is_key_left  (event)) ?
	((d = event_id(event) - KEY_LEFT(1)   + 'a'), c='l') :
	((event_is_key_right (event)) ?
	 ((d = event_id(event) - KEY_RIGHT(1) + 'a'), c='r') :
	 ((event_is_key_top   (event)) ?
	  ((d = event_id(event) - KEY_TOP(1)  + 'a'), c='t') : 0)))
      {
	if (event_is_up(event)) return NOTIFY_IGNORED;
	if (event_shift_is_down (event)) c = c -  32;
	/* this will give a non-{lrt} for unshifted keys */
	if (event_ctrl_is_down  (event)) c = c -  64;
	if (event_meta_is_down  (event)) c = c + 128;
#ifdef WANT_CAPS_LOCK
/* set a toggle and relabel window so T1 can act like caps-lock */
	if (event_id(event) == KEY_TOP(1))
	  {
	    /* make a frame label with and without CAPS */
	    strcpy (buffer, Caps);
	    title = &buffer[CAPS_LEN];
	    strncpy (title, (char *)window_get (frame, FRAME_LABEL),
		     BUFFER_SIZE - CAPS_LEN);
	    buffer[BUFFER_SIZE] = (char) 0;
	    if (strncmp (title, Caps, CAPS_LEN) == 0)
	      title += CAPS_LEN; 		 /* already Caps */
	    caps_lock =  (caps_lock ? 0 : CAPS_LEN);
	    window_set(frame, FRAME_LABEL, (title -= caps_lock), 0);
	    return NOTIFY_IGNORED;
	  }
#endif
	ttysw_input (tty_win, key_prefix, k_prefix_length);
	sprintf (buffer, "%c%c", d, c);
	ttysw_input(tty_win, buffer, strlen(buffer));

	return NOTIFY_IGNORED;
      }
  }
  if ((event_is_ascii(event) || event_is_meta(event))
      && event_is_up(event)) return NOTIFY_IGNORED;
#ifdef WANT_CAPS_LOCK
/* shift alpha chars to upper case if toggle is set */
  if ((caps_lock) && event_is_ascii(event)
      && (event_id(event) >= 'a') && (event_id(event) <= 'z'))
    event_set_id(event, (event_id(event) - 32));
/* crufty, but it works for now. is there an UPCASE(event)? */
#endif
#ifndef NO_META_BIT
/* under Openwindows/X, the meta bit is not set in the key event,
 * emacs expects this so we add it in here:
 */
  if (event_is_ascii(event) && event_meta_is_down(event))
    event_set_id(event, 128 | event_id(event));
#endif
  return notify_next_event_func (window, event, arg, type);
}
\f
main (argc, argv)
     int argc;
     char **argv;
{
  int error_code;	/* Error codes */

#ifdef JLE
  setlocale(LC_ALL, "");
#endif JLE

  if(getenv("DEBUGEMACSTOOL"))
    console = fdopen (console_fd = open("/dev/console",O_WRONLY), "w");

  putenv("IN_EMACSTOOL=t");	/* notify subprocess that it is in emacstool */

  if (putenv("TERM=sun") != 0)	/* TTY_WIN will be a TERM=sun window */
    {fprintf (stderr, "%s: Could not set TERM=sun, using `%s'\n",
	     argv[0], (char *)getenv("TERM")) ;};
  /*
   * If TERMCAP starts with a slash, it is the pathname of the
   * termcap file, not an entry extracted from it, so KEEP it!
   * Otherwise, it may not relate to the new TERM, so Nuke-It.
   * If there is no TERMCAP environment variable, don't make one.
   */
  {
    char *termcap ;	/* Current TERMCAP value */
    termcap = (char *)getenv("TERMCAP") ;
    if (termcap && (*termcap != '/'))
      {
	if (putenv("TERMCAP=") != 0)
	  {fprintf (stderr, "%s: Could not clear TERMCAP\n", argv[0]) ;} ;
      } ;
  } ;

  /* find command to run as subprocess in window */
  if (!(argv[0] = (char *)getenv("EMACSTOOL")))	/*  Set emacs command name */
      argv[0] = emacs_name;
  /* Emacstool recognizes two special args: -rc <file> and -bold <bold-name> */
  for (argc = 1; argv[argc]; argc++)		/* Use last one on line */
    {
      if(!(strcmp ("-rc", argv[argc])))		/* Override if -rc given */
	{int i = argc;
	 argv[argc--]=0;		/* kill the -rc argument */
	 if (argv[i+1]) {	/* move to argv[0] and squeeze the rest */
	   argv[0]=argv[i+1];
	   for (; argv[i+2]; (argv[i]=argv[i+2],argv[++i]=0));
	 }
       }

      if (!(strcmp ("-bold", argv[argc])))
	  {int i = argc;
	   argv[argc--]=0;		/* kill the -bold argument */
	   if (argv[i+1]) {	/* move to bold_name and squeeze the rest */
	       bold_name = argv[i+1];
	       for (; argv[i+2]; (argv[i]=argv[i+2],argv[++i]=0));
	   }
       }
  };

  strcpy (buffer, title);
  strncat (buffer, argv[0],		 /* append run command name */
	   (BUFFER_SIZE - (strlen (buffer)) - (strlen (argv[0]))) - 1);

  error_code = interpose_on_window(argc,argv);
  if (error_code != 0) {		/* Barf */
      fprintf (stderr, "notify_interpose_event_func returns %d.\n", error_code);
      exit (1);
  }

#ifdef XVIEW
  xv_main_loop (frame);                  /* And away we go */
#else
  window_main_loop (frame);
#endif XVIEW
}

#ifdef XVIEW
int interpose_on_window(argc,argv)
    int argc;
    char **argv;
{
#ifndef TTERM
    int i, font_width_adjust = 1; /* hackery, and heuristics */
    /* if -Wt is not supplied, then font comes out as lucida-14 (width=8)
     * rather than the screen.r.12 (width=7) typically used
     * this hack attempts to workaround it.
     * could use a env var EMACSTOOL_DEFAULT_FONT_WIDTH instead */
    for (i = 1; argv[i]; i++) {
	if (!(strcmp ("-Wt", argv[i])))
	    {font_width_adjust = 0;
	     if (console_fd) fprintf(console, "-Wt = %d\n", font_width_adjust);
	     break;}
    }
#endif TTERM
    /* initialize Xview, and strip window args */
    xv_init(XV_INIT_ARGC_PTR_ARGV, &argc, argv, 0);

    /* do this first, so arglist can override it */
    frame_icon = icon_create (ICON_LABEL, "Emacstool",
			      ICON_IMAGE, &icon_image,
			      0);

    /* Build a frame to run in */
    frame = xv_create ((Xv_Window)NULL, FRAME,
		       FRAME_LABEL, buffer,
		       FRAME_ICON, frame_icon,
		       0);

    /* Create a tty with emacs in it */
    tty_win = xv_create (frame, SWTYPE, WIN_IS_CLIENT_PANE,
			 TTY_QUIT_ON_CHILD_DEATH, TRUE,
			 TTY_BOLDSTYLE, TTYSW_BOLD_INVERT,
			 TTY_ARGV, argv,
			 0);

    if (bold_name) {
	(void)xv_set(tty_win, TTY_BOLDSTYLE_NAME, bold_name, 0);
    }

    {
	Xv_font font;		/* declare temp font variable */
	font = (Xv_font)xv_get (tty_win, XV_FONT);
	font_height = (int)xv_get (font, FONT_DEFAULT_CHAR_HEIGHT);
	font_width  = (int)xv_get (font, FONT_DEFAULT_CHAR_WIDTH);
    }
    if (console_fd) fprintf(console, "Width = %d\n", font_width);

#ifndef TTERM
    font_width -= font_width_adjust; /* A guess! font bug in ttysw*/
#else
    /* make the termsw act as a tty */
    xv_set(tty_win, TERMSW_MODE, TTYSW_MODE_TYPE, 0);
    /* termsw has variable offset depending on scrollbar size/location */
    left_margin = (int)xv_get (tty_win, TEXTSW_LEFT_MARGIN);
#endif TTERM

    tty_view = (Xv_Window) xv_get (tty_win, OPENWIN_NTH_VIEW, 0);
    xv_set(tty_view,
	   WIN_CONSUME_EVENTS,
	   WIN_MOUSE_BUTTONS, WIN_UP_EVENTS,
	   ACTION_ADJUST, ACTION_MENU,
	   WIN_ASCII_EVENTS,
	   WIN_LEFT_KEYS, WIN_TOP_KEYS, WIN_RIGHT_KEYS,
	   0,
	   0);
    /* Interpose my event function */
    return (int) notify_interpose_event_func
	(tty_view, input_event_filter_function, NOTIFY_SAFE);
}
#else
int interpose_on_window (argc, argv)
 int argc;
 char **argv;
{
    /* do this first, so arglist can override it */
    frame_icon = icon_create (ICON_LABEL, "Emacstool",
			      ICON_IMAGE, &icon_image,
			      0);

    /* Build a frame to run in */
    frame = window_create ((Window)NULL, FRAME,
			   FRAME_LABEL, buffer,
			   FRAME_ICON, frame_icon,
			   FRAME_ARGC_PTR_ARGV, &argc, argv,
			   0);

    /* Create a tty with emacs in it */
    tty_win = window_create (frame, TTY,
			     TTY_QUIT_ON_CHILD_DEATH, TRUE,
			     TTY_BOLDSTYLE, TTYSW_BOLD_INVERT,
			     TTY_ARGV, argv,
			     0);

    if (bold_name) {
	(void)window_set(tty_win, TTY_BOLDSTYLE_NAME, bold_name, 0);
    }

    /* ttysw uses pf_default, one must set WIN_FONT explicitly */
                       window_set (tty_win, WIN_FONT, pf_default(), 0);
    font_height = (int)window_get (tty_win, WIN_ROW_HEIGHT);
    font_width  = (int)window_get (tty_win, WIN_COLUMN_WIDTH);

    tty_view = tty_win;
    window_set(tty_view,
	       WIN_CONSUME_PICK_EVENTS,
	       WIN_STOP,
	       WIN_MOUSE_BUTTONS, WIN_UP_EVENTS,
	       /* LOC_WINENTER, LOC_WINEXIT, LOC_MOVE, */
	       0,
	       WIN_CONSUME_KBD_EVENTS,
	       WIN_STOP,
	       WIN_ASCII_EVENTS,
	       WIN_LEFT_KEYS, WIN_TOP_KEYS, WIN_RIGHT_KEYS,
	       /* WIN_UP_ASCII_EVENTS, */
	       0,
	       0);
    /* Interpose my event function */
    return (int) notify_interpose_event_func
	(tty_view, input_event_filter_function, NOTIFY_SAFE);
}
#endif XVIEW
Commit	Line	Data
a2535589	1	/*
91264a4a	2	Copyright (C) 1986, 1988, 1990, 1991 Free Software Foundation, Inc.
3b48c1f4	3
3b7ad313	4	This file is part of GNU Emacs.
91264a4a	5
3b7ad313 EN	6	GNU Emacs is free software; you can redistribute it and/or modify
	7	it under the terms of the GNU General Public License as published by
	8	the Free Software Foundation; either version 2, or (at your option)
	9	any later version.
91264a4a	10
3b7ad313 EN	11	GNU Emacs is distributed in the hope that it will be useful,
	12	but WITHOUT ANY WARRANTY; without even the implied warranty of
	13	MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	14	GNU General Public License for more details.
	15
	16	You should have received a copy of the GNU General Public License
	17	along with GNU Emacs; see the file COPYING. If not, write to
	18	the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
	19	Boston, MA 02111-1307, USA. */
91264a4a DM	20
91264a4a DM	21	/*
b92a7437	22	* For Emacs in SunView/Sun-Windows: (supported by Sun Unix v3.2 or greater)
5b2b0b72	23	* Insert a notifier filter-function to convert all useful input
a2535589 JA	24	* to "key" sequences that emacs can understand. See: Emacstool(1).
a2535589 JA	25	*
b92a7437	26	* Author: Jeff Peck, Sun Microsystems, Inc. <peck@eng.sun.com>
a2535589 JA	27	*
	28	* Original Idea: Ian Batten
	29	* Updated 15-Mar-88, Jeff Peck: set IN_EMACSTOOL, TERM, TERMCAP
b92a7437 JB	30	* Updated 10-Sep-88, Jeff Peck: add XVIEW and JLE support
	31	* Updated 8-Oct-90, Jeff Peck: add Meta-bit for Xview
	32	* Updated 6-Mar-91, Jeff Peck: Hack to detect -Wt invocation
	33	* [note, TTYSW limitation means you must Click-To-Type in Openwin]
	34	* [fixed in OW3 or use local/tty.o]
	35	* for better results, this should move to using TERMSW.
	36	* Updated 10-Mar-91, Jeff Peck, et al: support for TERMSW (TTERM)
	37	* allows point-to-type even in OW2
	38	*
	39	* [note: xvetool should be started with the "-nw" flag for emacs!]
a2535589 JA	40	*/
a2535589 JA	41
b92a7437 JB	42	#ifdef XVIEW
	43	#include <xview/xview.h>
	44	#include <xview/panel.h>
	45	#include <xview/attr.h>
	46	#include <xview/tty.h>
	47	#include <xview/ttysw.h> /* private defines */
	48	#include <xview/termsw.h> /* -DTTERM */
	49	#include <xview/font.h> /* for testing */
	50	#else
a2535589 JA	51	#include <suntool/sunview.h>
a2535589 JA	52	#include <suntool/tty.h>
b92a7437 JB	53	#include <suntool/ttysw.h>
	54	#endif XVIEW
	55
	56	#ifdef JLE
	57	# include <locale.h>
	58	#endif JLE
	59
a2535589 JA	60	#include <stdio.h>
	61	#include <sys/file.h>
	62
	63	#define BUFFER_SIZE 128 /* Size of all the buffers */
	64
	65	/* define WANT_CAPS_LOCK to make f-key T1 (aka F1) behave as CapsLock */
	66	#define WANT_CAPS_LOCK
	67	#ifdef WANT_CAPS_LOCK
eb8c3be9	68	int caps_lock; /* toggle indicator for f-key T1 caps lock */
a2535589 JA	69	static char Caps = "[CAPS] "; / Caps Lock prefix string */
	70	#define CAPS_LEN 7 /* strlen (Caps) */
	71	#endif
	72
	73	static char mouse_prefix = "\030\000"; / C-x C-@ */
	74	static int m_prefix_length = 2; /* mouse_prefix length */
	75
	76	static char key_prefix = "\030"; /* C-x * */
	77	static int k_prefix_length = 2; /* key_prefix length */
	78
b92a7437 JB	79	#ifdef JLE
	80	static char emacs_name = "nemacs"; / default run command */
	81	static char title = "NEmacstool - "; / initial title */
	82	#else
a2535589	83	static char emacs_name = "emacs"; / default run command */
a2535589	84	static char title = "Emacstool - "; / initial title */
b92a7437 JB	85	#endif JLE
	86
	87	static char buffer[BUFFER_SIZE]; /* send to ttysw_input */
	88	static char bold_name = 0; / for -bold option */
a2535589 JA	89
a2535589 JA	90	Frame frame; /* Base frame for system */
b92a7437 JB	91
	92	#ifndef TTERM
	93	#define SWTYPE TTY
	94	Tty tty_win; /* Where emacs is reading */
	95	#else
	96	#define SWTYPE TERMSW
	97	Termsw tty_win; /* Termsw does follow-mouse */
	98	#endif TTERM
	99
	100	#ifdef XVIEW
	101	Xv_Window tty_view; /* Where the events are in Xview*/
	102	#else
	103	Tty tty_view; /* SunView place filler */
	104	#endif XVIEW
	105
a2535589	106	int font_width, font_height; /* For translating pixels to chars */
b92a7437	107	int left_margin = 0; /* default window -- frame offset */
a2535589 JA	108
	109	int console_fd = 0; /* for debugging: setenv DEBUGEMACSTOOL */
	110	FILE console; / for debugging: setenv DEBUGEMACSTOOL */
	111
	112	Icon frame_icon;
	113	/* make an icon_image for the default frame_icon */
5b2b0b72	114	static short default_image[258] =
a2535589 JA	115	{
	116	#include <images/terminal.icon>
	117	};
	118	mpr_static(icon_image, 64, 64, 1, default_image);
a2535589 JA	119	\f
	120	/*
	121	* Assign a value to a set of keys
	122	*/
	123	int
	124	button_value (event)
	125	Event *event;
	126	{
	127	int retval = 0;
	128	/*
	129	* Code up the current situation:
	130	*
	131	* 1 = MS_LEFT;
	132	* 2 = MS_MIDDLE;
	133	* 4 = MS_RIGHT;
	134	* 8 = SHIFT;
	135	* 16 = CONTROL;
	136	* 32 = META;
	137	* 64 = DOUBLE;
	138	* 128 = UP;
	139	*/
	140
	141	if (MS_LEFT == (event_id (event))) retval = 1;
	142	if (MS_MIDDLE == (event_id (event))) retval = 2;
	143	if (MS_RIGHT == (event_id (event))) retval = 4;
	144
	145	if (event_shift_is_down (event)) retval += 8;
	146	if (event_ctrl_is_down (event)) retval += 16;
	147	if (event_meta_is_down (event)) retval += 32;
	148	if (event_is_up (event)) retval += 128;
	149	return retval;
	150	}
	151	\f
	152	/*
	153	* Variables to store the time of the previous mouse event that was
	154	* sent to emacs.
	155	*
8e6208c5	156	* The theory is that to time double clicks while ignoring UP buttons,
a2535589 JA	157	* we must keep track of the accumulated time.
	158	*
	159	* If someone writes a SUN-SET-INPUT-MASK for emacstool,
5b2b0b72	160	* That could be used to selectively disable UP events,
a2535589 JA	161	* and then this cruft wouldn't be necessary.
	162	*/
	163	static long prev_event_sec = 0;
	164	static long prev_event_usec = 0;
	165
	166	/*
	167	* Give the time difference in milliseconds, where one second
	168	* is considered infinite.
	169	*/
	170	int
	171	time_delta (now_sec, now_usec, prev_sec, prev_usec)
	172	long now_sec, now_usec, prev_sec, prev_usec;
	173	{
	174	long sec_delta = now_sec - prev_sec;
	175	long usec_delta = now_usec - prev_usec;
5b2b0b72	176
a2535589 JA	177	if (usec_delta < 0) { /* "borrow" a second */
	178	usec_delta += 1000000;
	179	--sec_delta;
	180	}
5b2b0b72 PJ	181
5b2b0b72 PJ	182	if (sec_delta >= 10)
a2535589 JA	183	return (9999); /* Infinity */
	184	else
	185	return ((sec_delta * 1000) + (usec_delta / 1000));
	186	}
	187
	188	\f
	189	/*
	190	* Filter function to translate selected input events for emacs
	191	* Mouse button events become ^X^@(button x-col y-line time-delta) .
177c0ea7	192	* Function keys: ESC-*{c}{lrt} l,r,t for Left, Right, Top;
a2535589 JA	193	* {c} encodes the keynumber as a character [a-o]
	194	*/
	195	static Notify_value
	196	input_event_filter_function (window, event, arg, type)
b92a7437 JB	197	#ifdef XVIEW
	198	Xv_Window window;
	199	#else
a2535589	200	Window window;
b92a7437	201	#endif XVIEW
a2535589 JA	202	Event *event;
	203	Notify_arg arg;
	204	Notify_event_type type;
	205	{
	206	struct timeval time_stamp;
	207
	208	if (console_fd) fprintf(console, "Event: %d\n", event_id(event));
	209
	210	/* UP L1 is the STOP key */
	211	if (event_id(event) == WIN_STOP) {
b92a7437	212	ttysw_input(tty_win, "\007\007\007\007\007\007\007", 7);
a2535589 JA	213	return NOTIFY_IGNORED;
	214	}
	215
	216	/* UP L5 & L7 is Expose & Open, let them pass to sunview */
	217	if (event_id(event) == KEY_LEFT(5) \|\| event_id(event) == KEY_LEFT(7))
5b2b0b72	218	if(event_is_up (event))
a2535589 JA	219	return notify_next_event_func (window, event, arg, type);
	220	else return NOTIFY_IGNORED;
	221
	222	if (event_is_button (event)) { /* do Mouse Button events */
	223	/* Commented out so that we send mouse up events too.
5b2b0b72	224	if (event_is_up (event))
a2535589 JA	225	return notify_next_event_func (window, event, arg, type);
	226	*/
	227	time_stamp = event_time (event);
b92a7437	228	ttysw_input (tty_win, mouse_prefix, m_prefix_length);
5b2b0b72	229	sprintf (buffer, "(%d %d %d %d)\015",
a2535589	230	button_value (event),
b92a7437	231	(event_x (event) - left_margin) / font_width,
a2535589 JA	232	event_y (event) / font_height,
	233	time_delta (time_stamp.tv_sec, time_stamp.tv_usec,
	234	prev_event_sec, prev_event_usec)
	235	);
b92a7437	236	ttysw_input (tty_win, buffer, strlen(buffer));
a2535589 JA	237	prev_event_sec = time_stamp.tv_sec;
	238	prev_event_usec = time_stamp.tv_usec;
	239	return NOTIFY_IGNORED;
	240	}
5b2b0b72	241
a2535589 JA	242	{ /* Do the function key events */
	243	int d;
	244	char c = (char) 0;
	245	if ((event_is_key_left (event)) ?
5b2b0b72	246	((d = event_id(event) - KEY_LEFT(1) + 'a'), c='l') :
a2535589	247	((event_is_key_right (event)) ?
5b2b0b72	248	((d = event_id(event) - KEY_RIGHT(1) + 'a'), c='r') :
a2535589 JA	249	((event_is_key_top (event)) ?
	250	((d = event_id(event) - KEY_TOP(1) + 'a'), c='t') : 0)))
	251	{
	252	if (event_is_up(event)) return NOTIFY_IGNORED;
	253	if (event_shift_is_down (event)) c = c - 32;
	254	/* this will give a non-{lrt} for unshifted keys */
	255	if (event_ctrl_is_down (event)) c = c - 64;
	256	if (event_meta_is_down (event)) c = c + 128;
	257	#ifdef WANT_CAPS_LOCK
	258	/* set a toggle and relabel window so T1 can act like caps-lock */
5b2b0b72	259	if (event_id(event) == KEY_TOP(1))
a2535589 JA	260	{
a2535589 JA	261	/* make a frame label with and without CAPS */
5b2b0b72	262	strcpy (buffer, Caps);
a2535589 JA	263	title = &buffer[CAPS_LEN];
	264	strncpy (title, (char *)window_get (frame, FRAME_LABEL),
	265	BUFFER_SIZE - CAPS_LEN);
5b2b0b72	266	buffer[BUFFER_SIZE] = (char) 0;
a2535589 JA	267	if (strncmp (title, Caps, CAPS_LEN) == 0)
	268	title += CAPS_LEN; /* already Caps */
	269	caps_lock = (caps_lock ? 0 : CAPS_LEN);
	270	window_set(frame, FRAME_LABEL, (title -= caps_lock), 0);
	271	return NOTIFY_IGNORED;
	272	}
	273	#endif
b92a7437	274	ttysw_input (tty_win, key_prefix, k_prefix_length);
a2535589	275	sprintf (buffer, "%c%c", d, c);
b92a7437	276	ttysw_input(tty_win, buffer, strlen(buffer));
a2535589 JA	277
	278	return NOTIFY_IGNORED;
	279	}
	280	}
5b2b0b72	281	if ((event_is_ascii(event) \|\| event_is_meta(event))
a2535589 JA	282	&& event_is_up(event)) return NOTIFY_IGNORED;
	283	#ifdef WANT_CAPS_LOCK
	284	/* shift alpha chars to upper case if toggle is set */
	285	if ((caps_lock) && event_is_ascii(event)
	286	&& (event_id(event) >= 'a') && (event_id(event) <= 'z'))
	287	event_set_id(event, (event_id(event) - 32));
	288	/* crufty, but it works for now. is there an UPCASE(event)? */
b92a7437 JB	289	#endif
	290	#ifndef NO_META_BIT
	291	/* under Openwindows/X, the meta bit is not set in the key event,
	292	* emacs expects this so we add it in here:
	293	*/
	294	if (event_is_ascii(event) && event_meta_is_down(event))
	295	event_set_id(event, 128 \| event_id(event));
a2535589 JA	296	#endif
	297	return notify_next_event_func (window, event, arg, type);
	298	}
	299	\f
	300	main (argc, argv)
	301	int argc;
	302	char **argv;
	303	{
	304	int error_code; /* Error codes */
5b2b0b72	305
b92a7437 JB	306	#ifdef JLE
	307	setlocale(LC_ALL, "");
	308	#endif JLE
	309
a2535589 JA	310	if(getenv("DEBUGEMACSTOOL"))
	311	console = fdopen (console_fd = open("/dev/console",O_WRONLY), "w");
	312
a2535589 JA	313	putenv("IN_EMACSTOOL=t"); /* notify subprocess that it is in emacstool */
a2535589 JA	314
b92a7437	315	if (putenv("TERM=sun") != 0) /* TTY_WIN will be a TERM=sun window */
a2535589 JA	316	{fprintf (stderr, "%s: Could not set TERM=sun, using `%s'\n",
	317	argv[0], (char *)getenv("TERM")) ;};
	318	/*
	319	* If TERMCAP starts with a slash, it is the pathname of the
	320	* termcap file, not an entry extracted from it, so KEEP it!
	321	* Otherwise, it may not relate to the new TERM, so Nuke-It.
	322	* If there is no TERMCAP environment variable, don't make one.
	323	*/
	324	{
	325	char termcap ; / Current TERMCAP value */
	326	termcap = (char *)getenv("TERMCAP") ;
	327	if (termcap && (*termcap != '/'))
	328	{
	329	if (putenv("TERMCAP=") != 0)
	330	{fprintf (stderr, "%s: Could not clear TERMCAP\n", argv[0]) ;} ;
	331	} ;
	332	} ;
5b2b0b72	333
a2535589	334	/* find command to run as subprocess in window */
b92a7437	335	if (!(argv[0] = (char )getenv("EMACSTOOL"))) / Set emacs command name */
5b2b0b72	336	argv[0] = emacs_name;
b92a7437	337	/* Emacstool recognizes two special args: -rc <file> and -bold <bold-name> */
a2535589	338	for (argc = 1; argv[argc]; argc++) /* Use last one on line */
b92a7437 JB	339	{
	340	if(!(strcmp ("-rc", argv[argc]))) /* Override if -rc given */
	341	{int i = argc;
	342	argv[argc--]=0; /* kill the -rc argument */
	343	if (argv[i+1]) { /* move to argv[0] and squeeze the rest */
	344	argv[0]=argv[i+1];
	345	for (; argv[i+2]; (argv[i]=argv[i+2],argv[++i]=0));
	346	}
	347	}
	348
5b2b0b72	349	if (!(strcmp ("-bold", argv[argc])))
b92a7437 JB	350	{int i = argc;
	351	argv[argc--]=0; /* kill the -bold argument */
	352	if (argv[i+1]) { /* move to bold_name and squeeze the rest */
	353	bold_name = argv[i+1];
	354	for (; argv[i+2]; (argv[i]=argv[i+2],argv[++i]=0));
	355	}
	356	}
	357	};
a2535589 JA	358
	359	strcpy (buffer, title);
	360	strncat (buffer, argv[0], /* append run command name */
	361	(BUFFER_SIZE - (strlen (buffer)) - (strlen (argv[0]))) - 1);
	362
b92a7437 JB	363	error_code = interpose_on_window(argc,argv);
	364	if (error_code != 0) { /* Barf */
	365	fprintf (stderr, "notify_interpose_event_func returns %d.\n", error_code);
	366	exit (1);
	367	}
	368
	369	#ifdef XVIEW
	370	xv_main_loop (frame); /* And away we go */
	371	#else
	372	window_main_loop (frame);
	373	#endif XVIEW
	374	}
a2535589	375
b92a7437 JB	376	#ifdef XVIEW
	377	int interpose_on_window(argc,argv)
	378	int argc;
	379	char **argv;
	380	{
	381	#ifndef TTERM
8e6208c5	382	int i, font_width_adjust = 1; /* hackery, and heuristics */
b92a7437 JB	383	/* if -Wt is not supplied, then font comes out as lucida-14 (width=8)
	384	* rather than the screen.r.12 (width=7) typically used
	385	* this hack attempts to workaround it.
	386	* could use a env var EMACSTOOL_DEFAULT_FONT_WIDTH instead */
	387	for (i = 1; argv[i]; i++) {
	388	if (!(strcmp ("-Wt", argv[i])))
	389	{font_width_adjust = 0;
	390	if (console_fd) fprintf(console, "-Wt = %d\n", font_width_adjust);
	391	break;}
	392	}
	393	#endif TTERM
	394	/* initialize Xview, and strip window args */
	395	xv_init(XV_INIT_ARGC_PTR_ARGV, &argc, argv, 0);
	396
	397	/* do this first, so arglist can override it */
	398	frame_icon = icon_create (ICON_LABEL, "Emacstool",
	399	ICON_IMAGE, &icon_image,
	400	0);
	401
	402	/* Build a frame to run in */
	403	frame = xv_create ((Xv_Window)NULL, FRAME,
	404	FRAME_LABEL, buffer,
	405	FRAME_ICON, frame_icon,
	406	0);
	407
	408	/* Create a tty with emacs in it */
	409	tty_win = xv_create (frame, SWTYPE, WIN_IS_CLIENT_PANE,
5b2b0b72	410	TTY_QUIT_ON_CHILD_DEATH, TRUE,
b92a7437	411	TTY_BOLDSTYLE, TTYSW_BOLD_INVERT,
5b2b0b72	412	TTY_ARGV, argv,
a2535589 JA	413	0);
a2535589 JA	414
b92a7437 JB	415	if (bold_name) {
	416	(void)xv_set(tty_win, TTY_BOLDSTYLE_NAME, bold_name, 0);
	417	}
	418
a2535589	419	{
b92a7437 JB	420	Xv_font font; /* declare temp font variable */
	421	font = (Xv_font)xv_get (tty_win, XV_FONT);
	422	font_height = (int)xv_get (font, FONT_DEFAULT_CHAR_HEIGHT);
	423	font_width = (int)xv_get (font, FONT_DEFAULT_CHAR_WIDTH);
	424	}
	425	if (console_fd) fprintf(console, "Width = %d\n", font_width);
	426
	427	#ifndef TTERM
	428	font_width -= font_width_adjust; /* A guess! font bug in ttysw*/
	429	#else
	430	/* make the termsw act as a tty */
	431	xv_set(tty_win, TERMSW_MODE, TTYSW_MODE_TYPE, 0);
	432	/* termsw has variable offset depending on scrollbar size/location */
	433	left_margin = (int)xv_get (tty_win, TEXTSW_LEFT_MARGIN);
	434	#endif TTERM
	435
	436	tty_view = (Xv_Window) xv_get (tty_win, OPENWIN_NTH_VIEW, 0);
	437	xv_set(tty_view,
5b2b0b72	438	WIN_CONSUME_EVENTS,
b92a7437 JB	439	WIN_MOUSE_BUTTONS, WIN_UP_EVENTS,
b92a7437 JB	440	ACTION_ADJUST, ACTION_MENU,
5b2b0b72	441	WIN_ASCII_EVENTS,
b92a7437 JB	442	WIN_LEFT_KEYS, WIN_TOP_KEYS, WIN_RIGHT_KEYS,
	443	0,
	444	0);
	445	/* Interpose my event function */
5b2b0b72	446	return (int) notify_interpose_event_func
b92a7437 JB	447	(tty_view, input_event_filter_function, NOTIFY_SAFE);
	448	}
	449	#else
	450	int interpose_on_window (argc, argv)
	451	int argc;
	452	char **argv;
	453	{
	454	/* do this first, so arglist can override it */
	455	frame_icon = icon_create (ICON_LABEL, "Emacstool",
	456	ICON_IMAGE, &icon_image,
	457	0);
	458
	459	/* Build a frame to run in */
	460	frame = window_create ((Window)NULL, FRAME,
	461	FRAME_LABEL, buffer,
	462	FRAME_ICON, frame_icon,
	463	FRAME_ARGC_PTR_ARGV, &argc, argv,
	464	0);
	465
	466	/* Create a tty with emacs in it */
f22d4785 PJ	467	tty_win = window_create (frame, TTY,
f22d4785 PJ	468	TTY_QUIT_ON_CHILD_DEATH, TRUE,
b92a7437	469	TTY_BOLDSTYLE, TTYSW_BOLD_INVERT,
f22d4785	470	TTY_ARGV, argv,
b92a7437 JB	471	0);
	472
	473	if (bold_name) {
	474	(void)window_set(tty_win, TTY_BOLDSTYLE_NAME, bold_name, 0);
a2535589 JA	475	}
a2535589 JA	476
b92a7437 JB	477	/* ttysw uses pf_default, one must set WIN_FONT explicitly */
	478	window_set (tty_win, WIN_FONT, pf_default(), 0);
	479	font_height = (int)window_get (tty_win, WIN_ROW_HEIGHT);
	480	font_width = (int)window_get (tty_win, WIN_COLUMN_WIDTH);
	481
	482	tty_view = tty_win;
	483	window_set(tty_view,
5b2b0b72	484	WIN_CONSUME_PICK_EVENTS,
b92a7437 JB	485	WIN_STOP,
	486	WIN_MOUSE_BUTTONS, WIN_UP_EVENTS,
	487	/* LOC_WINENTER, LOC_WINEXIT, LOC_MOVE, */
	488	0,
5b2b0b72	489	WIN_CONSUME_KBD_EVENTS,
b92a7437	490	WIN_STOP,
5b2b0b72	491	WIN_ASCII_EVENTS,
b92a7437 JB	492	WIN_LEFT_KEYS, WIN_TOP_KEYS, WIN_RIGHT_KEYS,
	493	/* WIN_UP_ASCII_EVENTS, */
	494	0,
	495	0);
	496	/* Interpose my event function */
5b2b0b72	497	return (int) notify_interpose_event_func
b92a7437	498	(tty_view, input_event_filter_function, NOTIFY_SAFE);
a2535589	499	}
b92a7437	500	#endif XVIEW