entered into RCS
This commit is contained in:
Jim Blandy
parent
dc6f92b834
commit
b92a743788
1 changed files with 240 additions and 80 deletions
|
|
@ -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. <peck@sun.com>
|
||||
* 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>
|
||||
|
||||
|
|
@ -51,13 +76,35 @@ 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 buffer[BUFFER_SIZE]; /* send to ttysw_input */
|
||||
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 */
|
||||
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 @@ static short default_image[258] =
|
|||
#include <images/terminal.icon>
|
||||
};
|
||||
mpr_static(icon_image, 64, 64, 1, default_image);
|
||||
|
||||
|
||||
/*
|
||||
* Assign a value to a set of keys
|
||||
|
|
@ -148,7 +194,11 @@ time_delta (now_sec, now_usec, prev_sec, prev_usec)
|
|||
*/
|
||||
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 @@ input_event_filter_function (window, event, arg, type)
|
|||
|
||||
/* 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 @@ input_event_filter_function (window, event, arg, type)
|
|||
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 @@ input_event_filter_function (window, event, arg, type)
|
|||
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;
|
||||
}
|
||||
|
|
@ -236,6 +286,13 @@ input_event_filter_function (window, event, arg, type)
|
|||
&& (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);
|
||||
}
|
||||
|
|
@ -246,17 +303,16 @@ main (argc, 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");
|
||||
|
||||
/* 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")) ;};
|
||||
/*
|
||||
|
|
@ -278,21 +334,128 @@ main (argc, argv)
|
|||
/* 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;
|
||||
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 */
|
||||
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 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, 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,
|
||||
|
|
@ -301,40 +464,37 @@ main (argc, argv)
|
|||
0);
|
||||
|
||||
/* Create a tty with emacs in it */
|
||||
ttysw = window_create (frame, TTY,
|
||||
tty_win = window_create (frame, TTY,
|
||||
TTY_QUIT_ON_CHILD_DEATH, TRUE,
|
||||
TTY_BOLDSTYLE, 8,
|
||||
TTY_BOLDSTYLE, TTYSW_BOLD_INVERT,
|
||||
TTY_ARGV, argv,
|
||||
0);
|
||||
|
||||
window_set(ttysw,
|
||||
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);
|
||||
|
||||
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);
|
||||
}
|
||||
|
||||
window_main_loop (frame); /* And away we go */
|
||||
return (int) notify_interpose_event_func
|
||||
(tty_view, input_event_filter_function, NOTIFY_SAFE);
|
||||
}
|
||||
#endif XVIEW
|
||||
|
|
|
|||
Loading…
Add table
Reference in a new issue