# HG changeset patch # User Jim Blandy # Date 675649625 0 # Node ID 1616777eaae5029320d7fbe9a7666aca1439d288 # Parent 8a40ab4a424f7ef77dc7c30488ebc7aa96f4c12d entered into RCS diff -r 8a40ab4a424f -r 1616777eaae5 lib-src/emacstool.c --- a/lib-src/emacstool.c Sat May 25 06:46:10 1991 +0000 +++ b/lib-src/emacstool.c Fri May 31 00:27:05 1991 +0000 @@ -1,37 +1,62 @@ /* * - * Copyright (C) 1986 Free Software Foundation, Inc. + * 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 1, 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, 675 Mass Ave, Cambridge, MA 02139, USA. */ + * + * GNU Emacs is distributed in the hope that it will be useful, + * but without any warranty. No author or distributor + * accepts responsibility to anyone for the consequences of using it + * or for whether it serves any particular purpose or works at all, + * unless he says so in writing. + * + * Everyone is granted permission to copy, modify and redistribute + * GNU Emacs, but only under the conditions described in the + * document "GNU Emacs copying permission notice". An exact copy + * of the document is supposed to have been given to you along with + * GNU Emacs so that you can know how you may redistribute it all. + * It should be in a file named COPYING. Among other things, the + * copyright notice and this notice must be preserved on all copies. * * - * For Emacs in SunView/Sun-Windows: (supported by Sun Unix v3.2) + * 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. + * Author: Jeff Peck, Sun Microsystems, Inc. * * 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 +#include +#include +#include +#include /* private defines */ +#include /* -DTTERM */ +#include /* for testing */ +#else #include #include +#include +#endif XVIEW + +#ifdef JLE +# include +#endif JLE + #include #include @@ -51,13 +76,35 @@ 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 *title = "Emacstool - "; /* initial title */ +static char *bold_name = 0; /* for -bold option */ Frame frame; /* Base frame for system */ -Tty ttysw; /* Where emacs is */ + +#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 */ @@ -69,7 +116,6 @@ #include }; mpr_static(icon_image, 64, 64, 1, default_image); - /* * Assign a value to a set of keys @@ -148,7 +194,11 @@ */ 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; @@ -159,7 +209,7 @@ /* UP L1 is the STOP key */ if (event_id(event) == WIN_STOP) { - ttysw_input(ttysw, "\007\007\007\007\007\007\007", 7); + ttysw_input(tty_win, "\007\007\007\007\007\007\007", 7); return NOTIFY_IGNORED; } @@ -175,15 +225,15 @@ return notify_next_event_func (window, event, arg, type); */ time_stamp = event_time (event); - ttysw_input (ttysw, mouse_prefix, m_prefix_length); + ttysw_input (tty_win, mouse_prefix, m_prefix_length); sprintf (buffer, "(%d %d %d %d)\015", button_value (event), - event_x (event) / font_width, + (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 (ttysw, buffer, strlen(buffer)); + ttysw_input (tty_win, buffer, strlen(buffer)); prev_event_sec = time_stamp.tv_sec; prev_event_usec = time_stamp.tv_usec; return NOTIFY_IGNORED; @@ -221,9 +271,9 @@ return NOTIFY_IGNORED; } #endif - ttysw_input (ttysw, key_prefix, k_prefix_length); + ttysw_input (tty_win, key_prefix, k_prefix_length); sprintf (buffer, "%c%c", d, c); - ttysw_input(ttysw, buffer, strlen(buffer)); + ttysw_input(tty_win, buffer, strlen(buffer)); return NOTIFY_IGNORED; } @@ -237,6 +287,13 @@ 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); } @@ -246,17 +303,16 @@ { 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"); - /* do this first, so arglist can override it */ - frame_icon = icon_create (ICON_LABEL, "Emacstool", - ICON_IMAGE, &icon_image, - 0); - putenv("IN_EMACSTOOL=t"); /* notify subprocess that it is in emacstool */ - if (putenv("TERM=sun") != 0) /* TTYSW will be a TERM=sun window */ + 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")) ;}; /* @@ -276,65 +332,169 @@ } ; /* find command to run as subprocess in window */ - if (!(argv[0] = (char *)getenv("EMACSTOOL"))) /* Set emacs command name */ + if (!(argv[0] = (char *)getenv("EMACSTOOL"))) /* Set emacs command name */ argv[0] = emacs_name; + /* Emacstool recognizes two special args: -rc and -bold */ 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 agrv[0] and squeeze the rest */ - argv[0]=argv[i+1]; - for (; argv[i+2]; (argv[i]=argv[i+2],argv[++i]=0)); - } - } + { + 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); - /* 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); + 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 +} - /* Create a tty with emacs in it */ - ttysw = window_create (frame, TTY, +#ifdef XVIEW +int interpose_on_window(argc,argv) + int argc; + char **argv; +{ +#ifndef TTERM + int i, font_width_adjust = 1; /* hackery, and hueristics */ + /* 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, 8, + TTY_BOLDSTYLE, TTYSW_BOLD_INVERT, TTY_ARGV, argv, 0); - window_set(ttysw, - 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); - - font_height = (int)window_get (ttysw, WIN_ROW_HEIGHT); - font_width = (int)window_get (ttysw, WIN_COLUMN_WIDTH); - - /* Interpose my event function */ - error_code = (int) notify_interpose_event_func - (ttysw, input_event_filter_function, NOTIFY_SAFE); - - if (error_code != 0) /* Barf */ - { - fprintf (stderr, "notify_interpose_event_func got %d.\n", error_code); - exit (1); + if (bold_name) { + (void)xv_set(tty_win, TTY_BOLDSTYLE_NAME, bold_name, 0); } - window_main_loop (frame); /* And away we go */ + { + 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