![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to emacstool.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / emacs / etc|
Return to emacstool.c CVS log | Up to [Apple XNU] / GNUtools / emacs / etc |
1.1 root 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. <[email protected]>
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) - KEY_RIGHT(1) + 'a'), c='r') :
262: ((event_is_key_top (event)) ?
263: ((d = event_id(event) - KEY_TOP(1) + 'a'), c='t') : 0))) {
264: if (event_is_up(event)) return NOTIFY_IGNORED;
265: if (event_shift_is_down (event)) c = c - 32;
266: /* this will give a non-{lrt} for unshifted keys */
267: if (event_ctrl_is_down (event)) c = c - 64;
268: if (event_meta_is_down (event)) c = c + 128;
269: #ifdef WANT_CAPS_LOCK
270: /* set a toggle and relabel window so T1 can act like caps-lock */
271: if (event_id(event) == KEY_TOP(1)) {
272: /* make a frame label with and without CAPS */
273: strcpy (buffer, Caps);
274: title = &buffer[CAPS_LEN];
275: strncpy (title, (char *)window_get (frame, FRAME_LABEL),
276: BUFFER_SIZE - CAPS_LEN);
277: buffer[BUFFER_SIZE] = (char) 0;
278: if (strncmp (title, Caps, CAPS_LEN) == 0)
279: title += CAPS_LEN; /* already Caps */
280: caps_lock = (caps_lock ? 0 : CAPS_LEN);
281: window_set(frame, FRAME_LABEL, (title -= caps_lock), 0);
282: return NOTIFY_IGNORED;
283: }
284: #endif /* WANT_CAPS_LOCK */
285: ttysw_input (tty_win, key_prefix, k_prefix_length);
286: sprintf (buffer, "%c%c", d, c);
287: ttysw_input(tty_win, buffer, strlen(buffer));
288:
289: return NOTIFY_IGNORED;
290: }
291: }
292:
293: /* handle ascii keyboard events
294: * extract "event_is_ascii(event)" from the event_id, not the event_action
295: */
296: if ((ASCII_FIRST <= event_id(event)) && (event_id(event) <= ASCII_LAST)) {
297: /* ignore key-up events (button events have already been handled) */
298: if (event_is_up(event)) return NOTIFY_IGNORED;
299: #ifdef WANT_CAPS_LOCK
300: /* shift alpha chars to upper case if toggle is set */
301: if ((caps_lock) && (event_id(event) >= 'a') && (event_id(event) <= 'z'))
302: event_set_id(event, (event_id(event) - 32));
303: #endif /* WANT_CAPS_LOCK */
304:
305: #ifndef NO_META_BIT
306: /* under Openwindows/X, the meta bit is not set in the key event,
307: * emacs expects this so we add it in here:
308: */
309: if (event_meta_is_down(event))
310: event_set_id(event, 128 | event_id(event));
311: #endif /* NO_META_BIT */
312: }
313: return notify_next_event_func (window, event, arg, type);
314: }
315:
316: main (argc, argv)
317: int argc;
318: char **argv;
319: {
320: int error_code; /* Error codes */
321:
322: #ifdef JLE
323: setlocale(LC_ALL, "");
324: #endif /* JLE */
325:
326: if(getenv("DEBUGEMACSTOOL"))
327: console = fdopen (console_fd = open("/dev/console",O_WRONLY), "w");
328:
329: putenv("IN_EMACSTOOL=t"); /* notify subprocess that it is in emacstool */
330:
331: if (putenv("TERM=sun") != 0) /* TTY_WIN will be a TERM=sun window */
332: {fprintf (stderr, "%s: Could not set TERM=sun, using `%s'\n",
333: argv[0], (char *)getenv("TERM")) ;};
334: /*
335: * If TERMCAP starts with a slash, it is the pathname of the
336: * termcap file, not an entry extracted from it, so KEEP it!
337: * Otherwise, it may not relate to the new TERM, so Nuke-It.
338: * If there is no TERMCAP environment variable, don't make one.
339: */
340: {
341: char *termcap ; /* Current TERMCAP value */
342: termcap = (char *)getenv("TERMCAP") ;
343: if (termcap && (*termcap != '/'))
344: {
345: if (putenv("TERMCAP=") != 0)
346: {fprintf (stderr, "%s: Could not clear TERMCAP\n", argv[0]) ;} ;
347: } ;
348: } ;
349:
350: /* find command to run as subprocess in window */
351: if (!(argv[0] = (char *)getenv("EMACSTOOL"))) /* Set emacs command name */
352: argv[0] = emacs_name;
353: /* Emacstool recognizes two special args: -rc <file> and -bold <bold-name> */
354: for (argc = 1; argv[argc]; argc++) /* Use last one on line */
355: {
356: if(!(strcmp ("-rc", argv[argc]))) /* Override if -rc given */
357: {int i = argc;
358: argv[argc--]=0; /* kill the -rc argument */
359: if (argv[i+1]) { /* move to argv[0] and squeeze the rest */
360: argv[0]=argv[i+1];
361: for (; argv[i+2]; (argv[i]=argv[i+2],argv[++i]=0));
362: }
363: }
364:
365: if (!(strcmp ("-bold", argv[argc])))
366: {int i = argc;
367: argv[argc--]=0; /* kill the -bold argument */
368: if (argv[i+1]) { /* move to bold_name and squeeze the rest */
369: bold_name = argv[i+1];
370: for (; argv[i+2]; (argv[i]=argv[i+2],argv[++i]=0));
371: }
372: }
373: };
374:
375: strcpy (buffer, title);
376: strncat (buffer, argv[0], /* append run command name */
377: (BUFFER_SIZE - (strlen (buffer)) - (strlen (argv[0]))) - 1);
378:
379: error_code = interpose_on_window(argc,argv);
380: if (error_code != 0) { /* Barf */
381: fprintf (stderr, "notify_interpose_event_func returns %d.\n", error_code);
382: exit (1);
383: }
384:
385: #ifdef XVIEW
386: xv_main_loop (frame); /* And away we go */
387: #else
388: window_main_loop (frame);
389: #endif /* XVIEW */
390: }
391:
392: #ifdef XVIEW
393: int interpose_on_window(argc,argv)
394: int argc;
395: char **argv;
396: {
397: #ifndef TTERM
398: #ifdef FONT_WIDTH_ADJUST
399: int i, font_width_adjust = 1; /* hackery, and hueristics */
400: /* If -Wt is not supplied, OWv2 font defaults as lucidasans-12 (width=8)
401: * rather than the lucidasanstypewriter (width=7) actually used by ttysw.
402: * This hack attempts to workaround it.
403: */
404: for (i = 1; argv[i]; i++) {
405: if (!(strcmp ("-Wt", argv[i])) || !(strcmp ("-font", argv[i])))
406: {font_width_adjust = 0;
407: if (console_fd) fprintf(console, "-Wt = %d\n", font_width_adjust);
408: break;}
409: }
410: #endif /* FONT_WIDTH_ADJUST */
411: #endif /* not TTERM */
412: /* initialize Xview, and strip window args */
413: xv_init(XV_INIT_ARGC_PTR_ARGV, &argc, argv, 0);
414:
415: /* do this first, so arglist can override it */
416: frame_icon = icon_create (ICON_LABEL, "Emacstool",
417: ICON_IMAGE, &icon_image,
418: 0);
419:
420: /* Build a frame to run in */
421: frame = xv_create ((Xv_Window)NULL, FRAME,
422: FRAME_LABEL, buffer,
423: FRAME_ICON, frame_icon,
424: 0);
425:
426: /* Create a tty with emacs in it */
427: tty_win = xv_create (frame, SWTYPE, WIN_IS_CLIENT_PANE,
428: TTY_QUIT_ON_CHILD_DEATH, TRUE,
429: TTY_BOLDSTYLE, TTYSW_BOLD_INVERT,
430: TTY_ARGV, argv,
431: 0);
432:
433: if (bold_name) {
434: (void)xv_set(tty_win, TTY_BOLDSTYLE_NAME, bold_name, 0);
435: }
436:
437: {
438: Xv_font font; /* declare temp font variable */
439: font = (Xv_font)xv_get (tty_win, XV_FONT);
440: font_height = (int)xv_get (font, FONT_DEFAULT_CHAR_HEIGHT);
441: font_width = (int)xv_get (font, FONT_DEFAULT_CHAR_WIDTH);
442: }
443: if (console_fd) fprintf(console, "Width = %d\n", font_width);
444:
445: #ifndef TTERM
446: #ifdef FONT_WIDTH_ADJUST
447: font_width -= font_width_adjust; /* A guess! font cache bug in ttysw*/
448: #endif /* FONT_WIDTH_ADJUST */
449: #else
450: /* make the termsw act as a tty */
451: xv_set(tty_win, TERMSW_MODE, TTYSW_MODE_TYPE, 0);
452: /* termsw has variable offset depending on scrollbar size/location */
453: left_margin = (int)xv_get (tty_win, TEXTSW_LEFT_MARGIN);
454: #endif /* TTERM */
455:
456: tty_view = (Xv_Window) xv_get (tty_win, OPENWIN_NTH_VIEW, 0);
457: xv_set(tty_view,
458: WIN_CONSUME_EVENTS,
459: WIN_MOUSE_BUTTONS, WIN_UP_EVENTS,
460: ACTION_ADJUST, ACTION_MENU,
461: WIN_ASCII_EVENTS,
462: WIN_LEFT_KEYS, WIN_TOP_KEYS, WIN_RIGHT_KEYS,
463: 0,
464: 0);
465: /* Interpose my event function */
466: return (int) notify_interpose_event_func
467: (tty_view, input_event_filter_function, NOTIFY_SAFE);
468: }
469: #else /* not XVIEW */
470: int interpose_on_window (argc, argv)
471: int argc;
472: char **argv;
473: {
474: /* do this first, so arglist can override it */
475: frame_icon = icon_create (ICON_LABEL, "Emacstool",
476: ICON_IMAGE, &icon_image,
477: 0);
478:
479: /* Build a frame to run in */
480: frame = window_create ((Window)NULL, FRAME,
481: FRAME_LABEL, buffer,
482: FRAME_ICON, frame_icon,
483: FRAME_ARGC_PTR_ARGV, &argc, argv,
484: 0);
485:
486: /* Create a tty with emacs in it */
487: tty_win = window_create (frame, TTY,
488: TTY_QUIT_ON_CHILD_DEATH, TRUE,
489: TTY_BOLDSTYLE, TTYSW_BOLD_INVERT,
490: TTY_ARGV, argv,
491: 0);
492:
493: if (bold_name) {
494: (void)window_set(tty_win, TTY_BOLDSTYLE_NAME, bold_name, 0);
495: }
496:
497: /* ttysw uses pf_default, one must set WIN_FONT explicitly */
498: window_set (tty_win, WIN_FONT, pf_default(), 0);
499: font_height = (int)window_get (tty_win, WIN_ROW_HEIGHT);
500: font_width = (int)window_get (tty_win, WIN_COLUMN_WIDTH);
501:
502: tty_view = tty_win;
503: window_set(tty_view,
504: WIN_CONSUME_PICK_EVENTS,
505: WIN_STOP,
506: WIN_MOUSE_BUTTONS, WIN_UP_EVENTS,
507: /* LOC_WINENTER, LOC_WINEXIT, LOC_MOVE, */
508: 0,
509: WIN_CONSUME_KBD_EVENTS,
510: WIN_STOP,
511: WIN_ASCII_EVENTS,
512: WIN_LEFT_KEYS, WIN_TOP_KEYS, WIN_RIGHT_KEYS,
513: /* WIN_UP_ASCII_EVENTS, */
514: 0,
515: 0);
516: /* Interpose my event function */
517: return (int) notify_interpose_event_func
518: (tty_view, input_event_filter_function, NOTIFY_SAFE);
519: }
520: #endif /* XVIEW */
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.