Mercurial > emacs
view lib-src/emacstool.c @ 4872:628cbf7e7005
(comint-after-partial-file-name-command):
Renamed from comint-after-partial-pathname-command.
(comint-match-partial-file-name, comint-after-partial-file-name):
Renamed from comint-match-partial-pathname, etc.
(comint-last-output-start): New variable to record
where most recent process output started from.
(comint-mode): Initialise it.
(comint-output-filter): Set it.
(comint-previous-matching-input-string): Moved to
comint-previous-matching-input-position.
(comint-previous-matching-input-string): Use it.
(comint-search-arg, comint-search-start,
comint-previous-input-string): New subroutines.
(comint-previous-input, comint-next-input,
comint-previous-matching-input, comint-next-matching-input,
comint-previous-matching-input-from-input,
comint-next-matching-input-from-input): Use them.
(comint-mode-map): Added signal menu-bar. Moved
comint-backward/forward-matching-input to output menu-bar, since
they move within the buffer rather than do input.
(comint-send-input, comint-after-pmark-p,
comint-kill-input, comint-proc-query): Removed serialisation of
obtaining the process mark's marker-position.
Commented out comint-load-hooks.
(comint-dynamic-simple-complete): New subroutine.
(comint-dynamic-complete-filename-command): New variable.
(comint-after-partial-pathname-command): New variable.
(comint-after-partial-pathname): New subroutine.
(comint-dynamic-complete): Use them.
(comint-mode): Make them local.
Renamed comint-dynamic-complete-command to
comint-dynamic-complete-command-command for consistency.
Renamed comint-file-name-addsuffix/autolist/recexact to
comint-completion-addsuffix/autolist/recexact for consistency.
(comint-replace-by-expanded-history): Check if input
ring size is not big enough for relative reference.
(comint-read-input-ring, comint-input-ring-file-name):
From shell.el.
(shell-write-input-ring): New subroutine.
(comint-file-name-prefix): New variable.
(comint-directory): New inline subroutine.
(comint-dynamic-complete-filename, comint-dynamic-complete-variable,
comint-dynamic-list-filename-completions): Use it.
(comint-dynamic-complete-filename,
comint-dynamic-complete-variable,
comint-dynamic-list-filename-completions): Make sure local
completion-ignore-case is nil.
(comint-next-prompt, comint-previous-prompt): Use
paragraph-start and paragraph motion commands rather than
re-search-forward and re-search-backward commands.
(comint-dynamic-list-input-ring,
comint-previous-matching-input-string): Use ring-empty-p rather
than zerop and ring-length.
(comint-input-ignoredups): New variable.
(comint-send-input, shell-read-input-ring): Use it.
(comint-mode): Make comint-input-ignoredups local. Doc fix.
(comint-scroll-to-bottom-on-input): New variable.
(comint-scroll-to-bottom-on-output): New variable.
(comint-scroll-show-maximum-output): New variable.
(comint-output-filter-hook): New variable, defaults to
comint-postoutput-scroll-to-bottom.
(comint-output-filter): Renamed from comint-filter
for consistency. Now calls comint-output-filter-hook.
(comint-preinput-scroll-to-bottom): New subroutine.
(comint-postoutput-scroll-to-bottom): New subroutine.
(comint-show-maximum-output): New command.
(comint-copy-old-input): New command.
(comint-send-input): Run comint-output-filter-hook if
necessary as a kludge to prevent messy redisplays.
(comint-mode-map): Added comint-show-maximum-output to
C-c C-e and menu-bar output, and comint-copy-old-input to C-c C-i
and menu-bar input.
(comint-mode): Make local variables
comint-scroll-to-bottom-on-input, before-change-function,
comint-scroll-to-bottom-on-output, comint-scroll-show-maximum-output,
and comint-output-filter-hook.
(comint-version): Deleted--no need for separate version.
(comint-input-ring-index): Make this a permanent local.
(comint-mode): Don't alter comint-input-ring-index or comint-input-ring
if already set meaningfully.
(comint-mode-map): Added keys M-R/S for
comint-previous/next-matching-input-from-input and to completion
menu-bar. Added comint-forward/backward-matching-input and
comint-previous/next-matching-input to completion menu-bar.
(comint-mode): Doc fix for functionality.
(comint-exec-1): Uses setenv.
(comint-update-env): Removed.
(comint-input-ring-size): Incremented to 32, as with
command history.
(comint-dynamic-list-input-ring): Check for zero
length ring. Use ring length, not ring size, when generating
list. Use buffer " *Input History*".
(comint-previous-matching-input-string): Check for zero-length ring.
Check last item in case at end of cycle and it's a match.
(comint-searching-input-ring): New subroutine.
(comint-regexp-arg): New subroutine.
(comint-previous-matching-input-from-input): New command.
(comint-next-matching-input-from-input): New command.
(comint-replace-by-expanded-history): Fix for matching
inside quotes. Fix to allow argument subrange specifiers. Fix to
identify and reject absolute input number references.
(comint-within-quotes): New subroutine.
(comint-how-many-region): New subroutine.
(comint-args): New subroutine.
(comint-delim-arg): New subroutine.
(comint-arguments): New subroutine.
(comint-delimiter-argument-list): New variable.
(comint-send-input): Inserts input arguments into ring
separated by single spaces.
(comint-filter): Checks the buffer's process to make
sure it's still there. Otherwise, set-buffer will fail.
(comint-backward-matching-input): New command.
(comint-forward-matching-input): New command.
(comint-next-prompt, comint-previous-prompt):
Error if reach beg/end of buffer.
(comint-dynamic-complete): Fix for absolute input
number references.
(comint-dynamic-complete-filename): Changed listings
function to comint-dynamic-list-filename-completions. Uses
file-directory-p rather than string-match to test for directories.
(comint-dynamic-list-completions): Changed to list the
list of completions supplied as the function argument. Use buffer
" *Completions*".
(comint-match-partial-pathname): New subroutine.
(comint-dynamic-complete-variable): New command.
(comint-dynamic-list-filename-completions): New function.
(comint-previous-input):
Don't use replace-match; just insert before deleting.
(comint-magic-space): Use self-insert command.
(comint-history-file-name): New variable.
(comint-mode): Initialize comint-input-ring before
running comint-mode-hook.
(comint-input-autoexpand): New variable.
(comint-dynamic-complete-command): New variable.
(comint-get-current-command): New variable.
(comint-read-input-ring): New function.
(comint-send-input): Handle history expansion.
(comint-input-sentinel): Doc fix.
(comint-mode-map): Added key binding for C-c C-h.
Added menu bars for completion, input and output.
(comint-dynamic-list-input-ring): New function.
(comint-previous-input-string): New subroutine.
(comint-previous-input): Use it.
(comint-previous-matching-input-string): New subroutine.
(comint-previous-matching-input): Use it.
(comint-replace-by-expanded-history): New command.
(comint-magic-space): New command.
(comint-replace-by-expanded-filename): Now replaces
expanded match for a filename, and then calls filename completion
comint-dynamic-complete-filename to do file name completion.
(comint-kill-output): Don't kill prompt.
(comint-show-output): Don't move point if it's
visible where it is, and if point is moved, put it after prompt.
(comint-dynamic-complete): Totally new definition.
(comint-dynamic-complete-filename): New name for old
function comint-dynamic-complete, completes files and lists
candidates, souped up for configurability.
(comint-dynamic-complete-variable): New command.
(comint-file-name-autolist): New variable.
(comint-file-name-addsuffix): New variable,
(comint-file-name-recexact): New variable.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Fri, 22 Oct 1993 02:57:36 +0000 |
parents | 507f64624555 |
children | 617c0b6a50c0 |
line wrap: on
line source
/* * * Copyright (C) 1986, 1988, 1990, 1991 Free Software Foundation, Inc. * * This file is part of GNU Emacs. * * 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 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); /* * 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; } /* * Variables to store the time of the previous mouse event that was * sent to emacs. * * The theory is that to time double clicks while ignoreing 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)); } /* * 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); } 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 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, 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