1 /* vi:set ts=8 sts=4 sw=4:
3 * VIM - Vi IMproved by Bram Moolenaar
4 * OS/2 port by Paul Slootman
5 * VMS merge by Zoltan Arpadffy
7 * Do ":help uganda" in Vim to read copying and usage conditions.
8 * Do ":help credits" in Vim to see a list of people who contributed.
9 * See README.txt for an overview of the Vim source code.
13 * os_unix.c -- code for all flavors of Unix (BSD, SYSV, SVR4, POSIX, ...)
14 * Also for OS/2, using the excellent EMX package!!!
15 * Also for BeOS and Atari MiNT.
17 * A lot of this file was originally written by Juergen Weigert and later
18 * changed beyond recognition.
22 * Some systems have a prototype for select() that has (int *) instead of
23 * (fd_set *), which is wrong. This define removes that prototype. We define
24 * our own prototype below.
25 * Don't use it for the Mac, it causes a warning for precompiled headers.
26 * TODO: use a configure check for precompiled headers?
28 #if !defined(__APPLE__) && !defined(__TANDEM)
29 # define select select_declared_wrong
35 # include "if_mzsch.h"
38 #include "os_unixx.h" /* unix includes for os_unix.c only */
41 # include <X11/SM/SMlib.h>
45 # include <selinux/selinux.h>
46 static int selinux_enabled
= -1;
50 * Use this prototype for select, some include files have a wrong prototype
55 # define select beos_select
61 # include <cygwin/version.h>
62 # include <sys/cygwin.h> /* for cygwin_conv_to_posix_path() and/or
63 * for cygwin_conv_path() */
67 #if defined(HAVE_SELECT)
68 extern int select
__ARGS((int, fd_set
*, fd_set
*, fd_set
*, struct timeval
*));
73 /* <linux/keyboard.h> contains defines conflicting with "keymap.h",
74 * I just copied relevant defines here. A cleaner solution would be to put gpm
75 * code into separate file and include there linux/keyboard.h
77 /* #include <linux/keyboard.h> */
86 # define KG_CAPSSHIFT 8
88 static void gpm_close
__ARGS((void));
89 static int gpm_open
__ARGS((void));
90 static int mch_gpm_process
__ARGS((void));
94 # include <sys/consio.h>
95 # include <sys/fbio.h>
97 static int sysmouse_open
__ARGS((void));
98 static void sysmouse_close
__ARGS((void));
99 static RETSIGTYPE sig_sysmouse
__ARGS(SIGPROTOARG
);
103 * end of autoconf section. To be extended...
106 /* Are the following #ifdefs still required? And why? Is that for X11? */
108 #if defined(ESIX) || defined(M_UNIX) && !defined(SCO)
117 #if defined(SIGWINDOW) && !defined(SIGWINCH) /* hpux 9.01 has it */
118 # define SIGWINCH SIGWINDOW
122 # include <X11/Xlib.h>
123 # include <X11/Xutil.h>
124 # include <X11/Xatom.h>
125 # ifdef FEAT_XCLIPBOARD
126 # include <X11/Intrinsic.h>
127 # include <X11/Shell.h>
128 # include <X11/StringDefs.h>
129 static Widget xterm_Shell
= (Widget
)0;
130 static void xterm_update
__ARGS((void));
133 # if defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE)
134 Window x11_window
= 0;
136 Display
*x11_display
= NULL
;
139 static int get_x11_windis
__ARGS((void));
140 static void set_x11_title
__ARGS((char_u
*));
141 static void set_x11_icon
__ARGS((char_u
*));
146 static int get_x11_title
__ARGS((int));
147 static int get_x11_icon
__ARGS((int));
149 static char_u
*oldtitle
= NULL
;
150 static int did_set_title
= FALSE
;
151 static char_u
*oldicon
= NULL
;
152 static int did_set_icon
= FALSE
;
155 static void may_core_dump
__ARGS((void));
157 static int WaitForChar
__ARGS((long));
158 #if defined(__BEOS__)
159 int RealWaitForChar
__ARGS((int, long, int *));
161 static int RealWaitForChar
__ARGS((int, long, int *));
164 #ifdef FEAT_XCLIPBOARD
165 static int do_xterm_trace
__ARGS((void));
166 # define XT_TRACE_DELAY 50 /* delay for xterm tracing */
169 static void handle_resize
__ARGS((void));
171 #if defined(SIGWINCH)
172 static RETSIGTYPE sig_winch
__ARGS(SIGPROTOARG
);
175 static RETSIGTYPE catch_sigint
__ARGS(SIGPROTOARG
);
178 static RETSIGTYPE catch_sigpwr
__ARGS(SIGPROTOARG
);
180 #if defined(SIGALRM) && defined(FEAT_X11) \
181 && defined(FEAT_TITLE) && !defined(FEAT_GUI_GTK)
182 # define SET_SIG_ALARM
183 static RETSIGTYPE sig_alarm
__ARGS(SIGPROTOARG
);
184 static int sig_alarm_called
;
186 static RETSIGTYPE deathtrap
__ARGS(SIGPROTOARG
);
188 static void catch_int_signal
__ARGS((void));
189 static void set_signals
__ARGS((void));
190 static void catch_signals
__ARGS((RETSIGTYPE (*func_deadly
)(), RETSIGTYPE (*func_other
)()));
192 static int have_wildcard
__ARGS((int, char_u
**));
193 static int have_dollars
__ARGS((int, char_u
**));
197 static int save_patterns
__ARGS((int num_pat
, char_u
**pat
, int *num_file
, char_u
***file
));
201 # define SIG_ERR ((RETSIGTYPE (*)())-1)
204 static int do_resize
= FALSE
;
206 static char_u
*extra_shell_arg
= NULL
;
207 static int show_shell_mess
= TRUE
;
209 static int deadly_signal
= 0; /* The signal we caught */
210 static int in_mch_delay
= FALSE
; /* sleeping in mch_delay() */
212 static int curr_tmode
= TMODE_COOK
; /* contains current terminal mode */
217 SmcConn smcconn
; /* The SM connection ID */
218 IceConn iceconn
; /* The ICE connection ID */
219 char *clientid
; /* The client ID for the current smc session */
220 Bool save_yourself
; /* If we're in the middle of a save_yourself */
221 Bool shutdown
; /* If we're in shutdown mode */
224 static xsmp_config_T xsmp
;
227 #ifdef SYS_SIGLIST_DECLARED
230 * extern char *_sys_siglist[NSIG];
231 * on Irix, Linux, NetBSD and Solaris. It contains a nice list of strings
232 * that describe the signals. That is nearly what we want here. But
233 * autoconf does only check for sys_siglist (without the underscore), I
234 * do not want to change everything today.... jw.
235 * This is why AC_DECL_SYS_SIGLIST is commented out in configure.in
239 static struct signalinfo
241 int sig
; /* Signal number, eg. SIGSEGV etc */
242 char *name
; /* Signal name (not char_u!). */
243 char deadly
; /* Catch as a deadly signal? */
247 {SIGHUP
, "HUP", TRUE
},
250 {SIGQUIT
, "QUIT", TRUE
},
253 {SIGILL
, "ILL", TRUE
},
256 {SIGTRAP
, "TRAP", TRUE
},
259 {SIGABRT
, "ABRT", TRUE
},
262 {SIGEMT
, "EMT", TRUE
},
265 {SIGFPE
, "FPE", TRUE
},
268 {SIGBUS
, "BUS", TRUE
},
271 {SIGSEGV
, "SEGV", TRUE
},
274 {SIGSYS
, "SYS", TRUE
},
277 {SIGALRM
, "ALRM", FALSE
}, /* Perl's alarm() can trigger it */
280 {SIGTERM
, "TERM", TRUE
},
283 {SIGVTALRM
, "VTALRM", TRUE
},
285 #if defined(SIGPROF) && !defined(FEAT_MZSCHEME) && !defined(WE_ARE_PROFILING)
286 /* MzScheme uses SIGPROF for its own needs; On Linux with profiling
287 * this makes Vim exit. WE_ARE_PROFILING is defined in Makefile. */
288 {SIGPROF
, "PROF", TRUE
},
291 {SIGXCPU
, "XCPU", TRUE
},
294 {SIGXFSZ
, "XFSZ", TRUE
},
297 {SIGUSR1
, "USR1", TRUE
},
299 #if defined(SIGUSR2) && !defined(FEAT_SYSMOUSE)
300 /* Used for sysmouse handling */
301 {SIGUSR2
, "USR2", TRUE
},
304 {SIGINT
, "INT", FALSE
},
307 {SIGWINCH
, "WINCH", FALSE
},
310 {SIGTSTP
, "TSTP", FALSE
},
313 {SIGPIPE
, "PIPE", FALSE
},
315 {-1, "Unknown!", FALSE
}
323 write(1, (char *)s
, len
);
324 if (p_wd
) /* Unix is too fast, slow down a bit more */
325 RealWaitForChar(read_cmd_fd
, p_wd
, NULL
);
329 * mch_inchar(): low level input function.
330 * Get a characters from the keyboard.
331 * Return the number of characters that are available.
332 * If wtime == 0 do not wait for characters.
333 * If wtime == n wait a short time for characters.
334 * If wtime == -1 wait forever for characters.
337 mch_inchar(buf
, maxlen
, wtime
, tb_change_cnt
)
340 long wtime
; /* don't use "time", MIPS cannot handle it */
345 /* Check if window changed size while we were busy, perhaps the ":set
346 * columns=99" command was used. */
352 while (WaitForChar(wtime
) == 0) /* no character available */
354 if (!do_resize
) /* return if not interrupted by resize */
359 else /* wtime == -1 */
362 * If there is no character available within 'updatetime' seconds
363 * flush all the swap files to disk.
364 * Also done when interrupted by SIGWINCH.
366 if (WaitForChar(p_ut
) == 0)
369 if (trigger_cursorhold() && maxlen
>= 3
370 && !typebuf_changed(tb_change_cnt
))
374 buf
[2] = (int)KE_CURSORHOLD
;
382 for (;;) /* repeat until we got a character */
384 while (do_resize
) /* window changed size */
387 * we want to be interrupted by the winch signal
390 if (do_resize
) /* interrupted by SIGWINCH signal */
393 /* If input was put directly in typeahead buffer bail out here. */
394 if (typebuf_changed(tb_change_cnt
))
398 * For some terminals we only get one character at a time.
399 * We want the get all available characters, so we could keep on
400 * trying until none is available
401 * For some other terminals this is quite slow, that's why we don't do
404 len
= read_from_input_buf(buf
, (long)maxlen
);
410 for (i
= 0; i
< len
; i
++)
427 * return non-zero if a character is available
432 return WaitForChar(0L);
435 #if defined(HAVE_TOTAL_MEM) || defined(PROTO)
436 # ifdef HAVE_SYS_RESOURCE_H
437 # include <sys/resource.h>
439 # if defined(HAVE_SYS_SYSCTL_H) && defined(HAVE_SYSCTL)
440 # include <sys/sysctl.h>
442 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
443 # include <sys/sysinfo.h>
447 * Return total amount of memory available in Kbyte.
448 * Doesn't change when memory has been allocated.
452 mch_total_mem(special
)
456 return ulimit(3, 0L) >> 10; /* always 32MB? */
459 long_u shiftright
= 10; /* how much to shift "mem" right for Kbyte */
465 /* BSD way of getting the amount of RAM available. */
468 len
= sizeof(physmem
);
469 if (sysctl(mib
, 2, &physmem
, &len
, NULL
, 0) == 0)
470 mem
= (long_u
)physmem
;
473 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
476 struct sysinfo sinfo
;
478 /* Linux way of getting amount of RAM available */
479 if (sysinfo(&sinfo
) == 0)
481 # ifdef HAVE_SYSINFO_MEM_UNIT
482 /* avoid overflow as much as possible */
483 while (shiftright
> 0 && (sinfo
.mem_unit
& 1) == 0)
485 sinfo
.mem_unit
= sinfo
.mem_unit
>> 1;
488 mem
= sinfo
.totalram
* sinfo
.mem_unit
;
490 mem
= sinfo
.totalram
;
499 long pagesize
, pagecount
;
501 /* Solaris way of getting amount of RAM available */
502 pagesize
= sysconf(_SC_PAGESIZE
);
503 pagecount
= sysconf(_SC_PHYS_PAGES
);
504 if (pagesize
> 0 && pagecount
> 0)
506 /* avoid overflow as much as possible */
507 while (shiftright
> 0 && (pagesize
& 1) == 0)
509 pagesize
= (long_u
)pagesize
>> 1;
512 mem
= (long_u
)pagesize
* pagecount
;
517 /* Return the minimum of the physical memory and the user limit, because
518 * using more than the user limit may cause Vim to be terminated. */
519 # if defined(HAVE_SYS_RESOURCE_H) && defined(HAVE_GETRLIMIT)
523 if (getrlimit(RLIMIT_DATA
, &rlp
) == 0
524 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
525 # ifdef RLIM_INFINITY
526 && rlp
.rlim_cur
!= RLIM_INFINITY
528 && ((long_u
)rlp
.rlim_cur
>> 10) < (mem
>> shiftright
)
531 mem
= (long_u
)rlp
.rlim_cur
;
538 return mem
>> shiftright
;
539 return (long_u
)0x1fffff;
545 mch_delay(msec
, ignoreinput
)
551 long total
= msec
; /* remember original value */
556 /* Go to cooked mode without echo, to allow SIGINT interrupting us
557 * here. But we don't want QUIT to kill us (CTRL-\ used in a
558 * shell may produce SIGQUIT). */
560 old_tmode
= curr_tmode
;
561 if (curr_tmode
== TMODE_RAW
)
562 settmode(TMODE_SLEEP
);
565 * Everybody sleeps in a different way...
566 * Prefer nanosleep(), some versions of usleep() can only sleep up to
572 /* if total is large enough, wait by portions in p_mzq */
579 #ifdef HAVE_NANOSLEEP
583 ts
.tv_sec
= msec
/ 1000;
584 ts
.tv_nsec
= (msec
% 1000) * 1000000;
585 (void)nanosleep(&ts
, NULL
);
591 usleep((unsigned int)(999 * 1000));
594 usleep((unsigned int)(msec
* 1000));
597 poll(NULL
, 0, (int)msec
);
605 tv
.tv_sec
= msec
/ 1000;
606 tv
.tv_usec
= (msec
% 1000) * 1000;
608 * NOTE: Solaris 2.6 has a bug that makes select() hang here. Get
609 * a patch from Sun to fix this. Reported by Gunnar Pedersen.
611 select(0, NULL
, NULL
, NULL
, &tv
);
613 # endif /* __EMX__ */
614 # endif /* HAVE_SELECT */
615 # endif /* HAVE_NANOSLEEP */
616 #endif /* HAVE_USLEEP */
623 in_mch_delay
= FALSE
;
629 #if 0 /* disabled, no longer needed now that regmatch() is not recursive */
630 # if defined(HAVE_GETRLIMIT)
631 # define HAVE_STACK_LIMIT
635 #if defined(HAVE_STACK_LIMIT) \
636 || (!defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGSTACK))
637 # define HAVE_CHECK_STACK_GROWTH
639 * Support for checking for an almost-out-of-stack-space situation.
643 * Return a pointer to an item on the stack. Used to find out if the stack
646 static void check_stack_growth
__ARGS((char *p
));
647 static int stack_grows_downwards
;
650 * Find out if the stack grows upwards or downwards.
651 * "p" points to a variable on the stack of the caller.
654 check_stack_growth(p
)
659 stack_grows_downwards
= (p
> (char *)&i
);
663 #if defined(HAVE_STACK_LIMIT) || defined(PROTO)
664 static char *stack_limit
= NULL
;
666 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
667 # include <pthread.h>
668 # include <pthread_np.h>
672 * Find out until how var the stack can grow without getting into trouble.
673 * Called when starting up and when switching to the signal stack in
683 /* Set the stack limit to 15/16 of the allowable size. Skip this when the
684 * limit doesn't fit in a long (rlim_cur might be "long long"). */
685 if (getrlimit(RLIMIT_STACK
, &rlp
) == 0
686 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
687 # ifdef RLIM_INFINITY
688 && rlp
.rlim_cur
!= RLIM_INFINITY
692 lim
= (long)rlp
.rlim_cur
;
693 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
698 /* On FreeBSD the initial thread always has a fixed stack size, no
699 * matter what the limits are set to. Normally it's 1 Mbyte. */
700 pthread_attr_init(&attr
);
701 if (pthread_attr_get_np(pthread_self(), &attr
) == 0)
703 pthread_attr_getstacksize(&attr
, &size
);
704 if (lim
> (long)size
)
707 pthread_attr_destroy(&attr
);
710 if (stack_grows_downwards
)
712 stack_limit
= (char *)((long)&i
- (lim
/ 16L * 15L));
713 if (stack_limit
>= (char *)&i
)
714 /* overflow, set to 1/16 of current stack position */
715 stack_limit
= (char *)((long)&i
/ 16L);
719 stack_limit
= (char *)((long)&i
+ (lim
/ 16L * 15L));
720 if (stack_limit
<= (char *)&i
)
721 stack_limit
= NULL
; /* overflow */
727 * Return FAIL when running out of stack space.
728 * "p" must point to any variable local to the caller that's on the stack.
734 if (stack_limit
!= NULL
)
736 if (stack_grows_downwards
)
741 else if (p
> stack_limit
)
748 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
750 * Support for using the signal stack.
751 * This helps when we run out of stack space, which causes a SIGSEGV. The
752 * signal handler then must run on another stack, since the normal stack is
757 # define SIGSTKSZ 8000 /* just a guess of how much stack is needed... */
760 # ifdef HAVE_SIGALTSTACK
761 static stack_t sigstk
; /* for sigaltstack() */
763 static struct sigstack sigstk
; /* for sigstack() */
766 static void init_signal_stack
__ARGS((void));
767 static char *signal_stack
;
772 if (signal_stack
!= NULL
)
774 # ifdef HAVE_SIGALTSTACK
775 # if defined(__APPLE__) && (!defined(MAC_OS_X_VERSION_MAX_ALLOWED) \
776 || MAC_OS_X_VERSION_MAX_ALLOWED <= 1040)
777 /* missing prototype. Adding it to osdef?.h.in doesn't work, because
778 * "struct sigaltstack" needs to be declared. */
779 extern int sigaltstack
__ARGS((const struct sigaltstack
*ss
, struct sigaltstack
*oss
));
783 sigstk
.ss_base
= signal_stack
;
785 sigstk
.ss_sp
= signal_stack
;
787 sigstk
.ss_size
= SIGSTKSZ
;
789 (void)sigaltstack(&sigstk
, NULL
);
791 sigstk
.ss_sp
= signal_stack
;
792 if (stack_grows_downwards
)
793 sigstk
.ss_sp
+= SIGSTKSZ
- 1;
794 sigstk
.ss_onstack
= 0;
795 (void)sigstack(&sigstk
, NULL
);
802 * We need correct potatotypes for a signal function, otherwise mean compilers
803 * will barf when the second argument to signal() is ``wrong''.
804 * Let me try it with a few tricky defines from my own osdef.h (jw).
806 #if defined(SIGWINCH)
809 sig_winch
SIGDEFARG(sigarg
)
811 /* this is not required on all systems, but it doesn't hurt anybody */
812 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
821 catch_sigint
SIGDEFARG(sigarg
)
823 /* this is not required on all systems, but it doesn't hurt anybody */
824 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
833 catch_sigpwr
SIGDEFARG(sigarg
)
835 /* this is not required on all systems, but it doesn't hurt anybody */
836 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
838 * I'm not sure we get the SIGPWR signal when the system is really going
839 * down or when the batteries are almost empty. Just preserve the swap
840 * files and don't exit, that can't do any harm.
842 ml_sync_all(FALSE
, FALSE
);
849 * signal function for alarm().
853 sig_alarm
SIGDEFARG(sigarg
)
855 /* doesn't do anything, just to break a system call */
856 sig_alarm_called
= TRUE
;
861 #if (defined(HAVE_SETJMP_H) \
862 && ((defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) \
863 || defined(FEAT_LIBCALL))) \
866 * A simplistic version of setjmp() that only allows one level of using.
867 * Don't call twice before calling mch_endjmp()!.
870 * if (SETJMP(lc_jump_env) != 0)
880 * Note: Can't move SETJMP() here, because a function calling setjmp() must
881 * not return before the saved environment is used.
882 * Returns OK for normal return, FAIL when the protected code caused a
883 * problem and LONGJMP() was used.
903 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
904 /* On FreeBSD the signal stack has to be reset after using siglongjmp(),
905 * otherwise catching the signal only works once. */
912 * This function handles deadly signals.
913 * It tries to preserve any swap file and exit properly.
914 * (partly from Elvis).
917 deathtrap
SIGDEFARG(sigarg
)
919 static int entered
= 0; /* count the number of times we got here.
920 Note: when memory has been corrupted
921 this may get an arbitrary value! */
926 #if defined(HAVE_SETJMP_H)
928 * Catch a crash in protected code.
929 * Restores the environment saved in lc_jump_env, which looks like
930 * SETJMP() returns 1.
934 # if defined(SIGHASARG)
937 lc_active
= FALSE
; /* don't jump again */
938 LONGJMP(lc_jump_env
, 1);
945 /* While in mch_delay() we go to cooked mode to allow a CTRL-C to
946 * interrupt us. But in cooked mode we may also get SIGQUIT, e.g., when
947 * pressing CTRL-\, but we don't want Vim to exit then. */
948 if (in_mch_delay
&& sigarg
== SIGQUIT
)
952 /* When SIGHUP, SIGQUIT, etc. are blocked: postpone the effect and return
953 * here. This avoids that a non-reentrant function is interrupted, e.g.,
954 * free(). Calling free() again may then cause a crash. */
976 && !vim_handle_signal(sigarg
))
980 /* Remember how often we have been called. */
984 /* Set the v:dying variable. */
985 set_vim_var_nr(VV_DYING
, (long)entered
);
988 #ifdef HAVE_STACK_LIMIT
989 /* Since we are now using the signal stack, need to reset the stack
990 * limit. Otherwise using a regexp will fail. */
995 /* This is for opening gdb the moment Vim crashes.
996 * You need to manually adjust the file name and Vim executable name.
997 * Suggested by SungHyun Nam. */
999 # define VI_GDB_FILE "/tmp/vimgdb"
1000 # define VIM_NAME "/usr/bin/vim"
1001 FILE *fp
= fopen(VI_GDB_FILE
, "w");
1009 , VIM_NAME
, getpid());
1011 system("xterm -e gdb -x "VI_GDB_FILE
);
1012 unlink(VI_GDB_FILE
);
1018 /* try to find the name of this signal */
1019 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1020 if (sigarg
== signal_info
[i
].sig
)
1022 deadly_signal
= sigarg
;
1025 full_screen
= FALSE
; /* don't write message to the GUI, it might be
1026 * part of the problem... */
1028 * If something goes wrong after entering here, we may get here again.
1029 * When this happens, give a message and try to exit nicely (resetting the
1030 * terminal mode, etc.)
1031 * When this happens twice, just exit, don't even try to give a message,
1032 * stack may be corrupt or something weird.
1033 * When this still happens again (or memory was corrupted in such a way
1034 * that "entered" was clobbered) use _exit(), don't try freeing resources.
1038 reset_signals(); /* don't catch any signals anymore */
1046 OUT_STR(_("Vim: Double signal, exiting\n"));
1052 sprintf((char *)IObuff
, _("Vim: Caught deadly signal %s\n"),
1053 signal_info
[i
].name
);
1055 sprintf((char *)IObuff
, _("Vim: Caught deadly signal\n"));
1057 preserve_exit(); /* preserve files and exit */
1070 * On Solaris with multi-threading, suspending might not work immediately.
1071 * Catch the SIGCONT signal, which will be used as an indication whether the
1072 * suspending has been done or not.
1074 static int sigcont_received
;
1075 static RETSIGTYPE sigcont_handler
__ARGS(SIGPROTOARG
);
1078 * signal handler for SIGCONT
1082 sigcont_handler
SIGDEFARG(sigarg
)
1084 sigcont_received
= TRUE
;
1090 * If the machine has job control, use it to suspend the program,
1091 * otherwise fake it by starting a new shell.
1096 /* BeOS does have SIGTSTP, but it doesn't work. */
1097 #if defined(SIGTSTP) && !defined(__BEOS__)
1098 out_flush(); /* needed to make cursor visible on some systems */
1099 settmode(TMODE_COOK
);
1100 out_flush(); /* needed to disable mouse on some systems */
1102 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
1103 /* Since we are going to sleep, we can't respond to requests for the X
1104 * selections. Lose them, otherwise other applications will hang. But
1105 * first copy the text to cut buffer 0. */
1106 if (clip_star
.owned
|| clip_plus
.owned
)
1108 x11_export_final_selection();
1109 if (clip_star
.owned
)
1110 clip_lose_selection(&clip_star
);
1111 if (clip_plus
.owned
)
1112 clip_lose_selection(&clip_plus
);
1113 if (x11_display
!= NULL
)
1114 XFlush(x11_display
);
1119 sigcont_received
= FALSE
;
1121 kill(0, SIGTSTP
); /* send ourselves a STOP signal */
1123 /* When we didn't suspend immediately in the kill(), do it now. Happens
1124 * on multi-threaded Solaris. */
1125 if (!sigcont_received
)
1131 * Set oldtitle to NULL, so the current title is obtained again.
1136 settmode(TMODE_RAW
);
1137 need_check_timestamps
= TRUE
;
1138 did_check_timestamps
= FALSE
;
1153 #ifdef MACOS_CONVERT
1161 #if defined(SIGWINCH)
1163 * WINDOW CHANGE signal is handled with sig_winch().
1165 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
1169 * We want the STOP signal to work, to make mch_suspend() work.
1170 * For "rvim" the STOP signal is ignored.
1173 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
1176 signal(SIGCONT
, sigcont_handler
);
1180 * We want to ignore breaking of PIPEs.
1183 signal(SIGPIPE
, SIG_IGN
);
1191 * Ignore alarm signals (Perl's alarm() generates it).
1194 signal(SIGALRM
, SIG_IGN
);
1198 * Catch SIGPWR (power failure?) to preserve the swap files, so that no
1199 * work will be lost.
1202 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
1206 * Arrange for other signals to gracefully shutdown Vim.
1208 catch_signals(deathtrap
, SIG_ERR
);
1210 #if defined(FEAT_GUI) && defined(SIGHUP)
1212 * When the GUI is running, ignore the hangup signal.
1215 signal(SIGHUP
, SIG_IGN
);
1219 #if defined(SIGINT) || defined(PROTO)
1221 * Catch CTRL-C (only works while in Cooked mode).
1226 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
1233 catch_signals(SIG_DFL
, SIG_DFL
);
1235 /* SIGCONT isn't in the list, because its default action is ignore */
1236 signal(SIGCONT
, SIG_DFL
);
1241 catch_signals(func_deadly
, func_other
)
1242 RETSIGTYPE (*func_deadly
)();
1243 RETSIGTYPE (*func_other
)();
1247 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1248 if (signal_info
[i
].deadly
)
1250 #if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGACTION)
1251 struct sigaction sa
;
1253 /* Setup to use the alternate stack for the signal function. */
1254 sa
.sa_handler
= func_deadly
;
1255 sigemptyset(&sa
.sa_mask
);
1256 # if defined(__linux__) && defined(_REENTRANT)
1257 /* On Linux, with glibc compiled for kernel 2.2, there is a bug in
1258 * thread handling in combination with using the alternate stack:
1259 * pthread library functions try to use the stack pointer to
1260 * identify the current thread, causing a SEGV signal, which
1261 * recursively calls deathtrap() and hangs. */
1264 sa
.sa_flags
= SA_ONSTACK
;
1266 sigaction(signal_info
[i
].sig
, &sa
, NULL
);
1268 # if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGVEC)
1271 /* Setup to use the alternate stack for the signal function. */
1272 sv
.sv_handler
= func_deadly
;
1274 sv
.sv_flags
= SV_ONSTACK
;
1275 sigvec(signal_info
[i
].sig
, &sv
, NULL
);
1277 signal(signal_info
[i
].sig
, func_deadly
);
1281 else if (func_other
!= SIG_ERR
)
1282 signal(signal_info
[i
].sig
, func_other
);
1286 * Handling of SIGHUP, SIGQUIT and SIGTERM:
1287 * "when" == a signal: when busy, postpone and return FALSE, otherwise
1289 * "when" == SIGNAL_BLOCK: Going to be busy, block signals
1290 * "when" == SIGNAL_UNBLOCK: Going to wait, unblock signals, use postponed
1292 * Returns TRUE when Vim should exit.
1295 vim_handle_signal(sig
)
1298 static int got_signal
= 0;
1299 static int blocked
= TRUE
;
1303 case SIGNAL_BLOCK
: blocked
= TRUE
;
1306 case SIGNAL_UNBLOCK
: blocked
= FALSE
;
1307 if (got_signal
!= 0)
1309 kill(getpid(), got_signal
);
1314 default: if (!blocked
)
1315 return TRUE
; /* exit! */
1320 got_int
= TRUE
; /* break any loops */
1327 * Check_win checks whether we have an interactive stdout.
1331 mch_check_win(argc
, argv
)
1337 * Store argv[0], may be used for $VIM. Only use it if it is an absolute
1338 * name, mostly it's just "vim" and found in the path, which is unusable.
1340 if (mch_isFullName(argv
[0]))
1341 exe_name
= vim_strsave((char_u
*)argv
[0]);
1349 * Return TRUE if the input comes from a terminal, FALSE otherwise.
1354 if (isatty(read_cmd_fd
))
1361 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H) \
1362 && (defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE))
1364 static void xopen_message
__ARGS((struct timeval
*tvp
));
1367 * Give a message about the elapsed time for opening the X window.
1371 struct timeval
*tvp
; /* must contain start time */
1373 struct timeval end_tv
;
1375 /* Compute elapsed time. */
1376 gettimeofday(&end_tv
, NULL
);
1377 smsg((char_u
*)_("Opening the X display took %ld msec"),
1378 (end_tv
.tv_sec
- tvp
->tv_sec
) * 1000L
1379 + (end_tv
.tv_usec
- tvp
->tv_usec
) / 1000L);
1384 #if defined(FEAT_X11) && (defined(FEAT_TITLE) || defined(FEAT_XCLIPBOARD))
1386 * A few functions shared by X11 title and clipboard code.
1388 static int x_error_handler
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1389 static int x_error_check
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1390 static int x_connect_to_server
__ARGS((void));
1391 static int test_x11_window
__ARGS((Display
*dpy
));
1393 static int got_x_error
= FALSE
;
1396 * X Error handler, otherwise X just exits! (very rude) -- webb
1399 x_error_handler(dpy
, error_event
)
1401 XErrorEvent
*error_event
;
1403 XGetErrorText(dpy
, error_event
->error_code
, (char *)IObuff
, IOSIZE
);
1404 STRCAT(IObuff
, _("\nVim: Got X error\n"));
1406 /* We cannot print a message and continue, because no X calls are allowed
1407 * here (causes my system to hang). Silently continuing might be an
1409 preserve_exit(); /* preserve files and exit */
1411 return 0; /* NOTREACHED */
1415 * Another X Error handler, just used to check for errors.
1419 x_error_check(dpy
, error_event
)
1421 XErrorEvent
*error_event
;
1427 #if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
1428 # if defined(HAVE_SETJMP_H)
1430 * An X IO Error handler, used to catch error while opening the display.
1432 static int x_IOerror_check
__ARGS((Display
*dpy
));
1436 x_IOerror_check(dpy
)
1439 /* This function should not return, it causes exit(). Longjump instead. */
1440 LONGJMP(lc_jump_env
, 1);
1447 * An X IO Error handler, used to catch terminal errors.
1449 static int x_IOerror_handler
__ARGS((Display
*dpy
));
1453 x_IOerror_handler(dpy
)
1459 xterm_Shell
= (Widget
)0;
1461 /* This function should not return, it causes exit(). Longjump instead. */
1462 LONGJMP(x_jump_env
, 1);
1469 * Return TRUE when connection to the X server is desired.
1472 x_connect_to_server()
1474 regmatch_T regmatch
;
1476 #if defined(FEAT_CLIENTSERVER)
1477 if (x_force_connect
)
1483 /* Check for a match with "exclude:" from 'clipboard'. */
1484 if (clip_exclude_prog
!= NULL
)
1486 regmatch
.rm_ic
= FALSE
; /* Don't ignore case */
1487 regmatch
.regprog
= clip_exclude_prog
;
1488 if (vim_regexec(®match
, T_NAME
, (colnr_T
)0))
1495 * Test if "dpy" and x11_window are valid by getting the window title.
1496 * I don't actually want it yet, so there may be a simpler call to use, but
1497 * this will cause the error handler x_error_check() to be called if anything
1498 * is wrong, such as the window pointer being invalid (as can happen when the
1499 * user changes his DISPLAY, but not his WINDOWID) -- webb
1502 test_x11_window(dpy
)
1505 int (*old_handler
)();
1506 XTextProperty text_prop
;
1508 old_handler
= XSetErrorHandler(x_error_check
);
1509 got_x_error
= FALSE
;
1510 if (XGetWMName(dpy
, x11_window
, &text_prop
))
1511 XFree((void *)text_prop
.value
);
1513 (void)XSetErrorHandler(old_handler
);
1515 if (p_verbose
> 0 && got_x_error
)
1516 verb_msg((char_u
*)_("Testing the X display failed"));
1518 return (got_x_error
? FAIL
: OK
);
1526 static int get_x11_thing
__ARGS((int get_title
, int test_only
));
1529 * try to get x11 window and display
1531 * return FAIL for failure, OK otherwise
1537 static int result
= -1;
1538 #define XD_NONE 0 /* x11_display not set here */
1539 #define XD_HERE 1 /* x11_display opened here */
1540 #define XD_GUI 2 /* x11_display used from gui.dpy */
1541 #define XD_XTERM 3 /* x11_display used from xterm_dpy */
1542 static int x11_display_from
= XD_NONE
;
1543 static int did_set_error_handler
= FALSE
;
1545 if (!did_set_error_handler
)
1547 /* X just exits if it finds an error otherwise! */
1548 (void)XSetErrorHandler(x_error_handler
);
1549 did_set_error_handler
= TRUE
;
1552 #if defined(FEAT_GUI_X11) || defined(FEAT_GUI_GTK)
1556 * If the X11 display was opened here before, for the window where Vim
1557 * was started, close that one now to avoid a memory leak.
1559 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1561 XCloseDisplay(x11_display
);
1562 x11_display_from
= XD_NONE
;
1564 if (gui_get_x11_windis(&x11_window
, &x11_display
) == OK
)
1566 x11_display_from
= XD_GUI
;
1572 else if (x11_display_from
== XD_GUI
)
1574 /* GUI must have stopped somehow, clear x11_display */
1577 x11_display_from
= XD_NONE
;
1581 /* When started with the "-X" argument, don't try connecting. */
1582 if (!x_connect_to_server())
1586 * If WINDOWID not set, should try another method to find out
1587 * what the current window number is. The only code I know for
1588 * this is very complicated.
1589 * We assume that zero is invalid for WINDOWID.
1591 if (x11_window
== 0 && (winid
= getenv("WINDOWID")) != NULL
)
1592 x11_window
= (Window
)atol(winid
);
1594 #ifdef FEAT_XCLIPBOARD
1595 if (xterm_dpy
!= NULL
&& x11_window
!= 0)
1597 /* We may have checked it already, but Gnome terminal can move us to
1598 * another window, so we need to check every time. */
1599 if (x11_display_from
!= XD_XTERM
)
1602 * If the X11 display was opened here before, for the window where
1603 * Vim was started, close that one now to avoid a memory leak.
1605 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1606 XCloseDisplay(x11_display
);
1607 x11_display
= xterm_dpy
;
1608 x11_display_from
= XD_XTERM
;
1610 if (test_x11_window(x11_display
) == FAIL
)
1612 /* probably bad $WINDOWID */
1615 x11_display_from
= XD_NONE
;
1622 if (x11_window
== 0 || x11_display
== NULL
)
1625 if (result
!= -1) /* Have already been here and set this */
1626 return result
; /* Don't do all these X calls again */
1628 if (x11_window
!= 0 && x11_display
== NULL
)
1630 #ifdef SET_SIG_ALARM
1631 RETSIGTYPE (*sig_save
)();
1633 #if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1634 struct timeval start_tv
;
1637 gettimeofday(&start_tv
, NULL
);
1640 #ifdef SET_SIG_ALARM
1642 * Opening the Display may hang if the DISPLAY setting is wrong, or
1643 * the network connection is bad. Set an alarm timer to get out.
1645 sig_alarm_called
= FALSE
;
1646 sig_save
= (RETSIGTYPE (*)())signal(SIGALRM
,
1647 (RETSIGTYPE (*)())sig_alarm
);
1650 x11_display
= XOpenDisplay(NULL
);
1652 #ifdef SET_SIG_ALARM
1654 signal(SIGALRM
, (RETSIGTYPE (*)())sig_save
);
1655 if (p_verbose
> 0 && sig_alarm_called
)
1656 verb_msg((char_u
*)_("Opening the X display timed out"));
1658 if (x11_display
!= NULL
)
1660 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1664 xopen_message(&start_tv
);
1668 if (test_x11_window(x11_display
) == FAIL
)
1670 /* Maybe window id is bad */
1672 XCloseDisplay(x11_display
);
1676 x11_display_from
= XD_HERE
;
1679 if (x11_window
== 0 || x11_display
== NULL
)
1680 return (result
= FAIL
);
1681 return (result
= OK
);
1685 * Determine original x11 Window Title
1688 get_x11_title(test_only
)
1691 return get_x11_thing(TRUE
, test_only
);
1695 * Determine original x11 Window icon
1698 get_x11_icon(test_only
)
1703 retval
= get_x11_thing(FALSE
, test_only
);
1705 /* could not get old icon, use terminal name */
1706 if (oldicon
== NULL
&& !test_only
)
1708 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1709 oldicon
= T_NAME
+ 8;
1718 get_x11_thing(get_title
, test_only
)
1719 int get_title
; /* get title string */
1722 XTextProperty text_prop
;
1726 if (get_x11_windis() == OK
)
1728 /* Get window/icon name if any */
1730 status
= XGetWMName(x11_display
, x11_window
, &text_prop
);
1732 status
= XGetWMIconName(x11_display
, x11_window
, &text_prop
);
1735 * If terminal is xterm, then x11_window may be a child window of the
1736 * outer xterm window that actually contains the window/icon name, so
1737 * keep traversing up the tree until a window with a title/icon is
1740 /* Previously this was only done for xterm and alikes. I don't see a
1741 * reason why it would fail for other terminal emulators.
1742 * if (term_is_xterm) */
1746 Window win
= x11_window
;
1748 unsigned int num_children
;
1750 while (!status
|| text_prop
.value
== NULL
)
1752 if (!XQueryTree(x11_display
, win
, &root
, &parent
, &children
,
1756 XFree((void *)children
);
1757 if (parent
== root
|| parent
== 0)
1762 status
= XGetWMName(x11_display
, win
, &text_prop
);
1764 status
= XGetWMIconName(x11_display
, win
, &text_prop
);
1767 if (status
&& text_prop
.value
!= NULL
)
1772 #ifdef FEAT_XFONTSET
1773 if (text_prop
.encoding
== XA_STRING
)
1777 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1779 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1780 #ifdef FEAT_XFONTSET
1785 Status transform_status
;
1788 transform_status
= XmbTextPropertyToTextList(x11_display
,
1791 if (transform_status
>= Success
&& n
> 0 && cl
[0])
1794 oldtitle
= vim_strsave((char_u
*) cl
[0]);
1796 oldicon
= vim_strsave((char_u
*) cl
[0]);
1797 XFreeStringList(cl
);
1802 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1804 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1809 XFree((void *)text_prop
.value
);
1815 /* Are Xutf8 functions available? Avoid error from old compilers. */
1816 #if defined(X_HAVE_UTF8_STRING) && defined(FEAT_MBYTE)
1817 # if X_HAVE_UTF8_STRING
1818 # define USE_UTF8_STRING
1823 * Set x11 Window Title
1825 * get_x11_windis() must be called before this and have returned OK
1828 set_x11_title(title
)
1831 /* XmbSetWMProperties() and Xutf8SetWMProperties() should use a STRING
1832 * when possible, COMPOUND_TEXT otherwise. COMPOUND_TEXT isn't
1833 * supported everywhere and STRING doesn't work for multi-byte titles.
1835 #ifdef USE_UTF8_STRING
1837 Xutf8SetWMProperties(x11_display
, x11_window
, (const char *)title
,
1838 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1842 #if XtSpecificationRelease >= 4
1843 # ifdef FEAT_XFONTSET
1844 XmbSetWMProperties(x11_display
, x11_window
, (const char *)title
,
1845 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1847 XTextProperty text_prop
;
1848 char *c_title
= (char *)title
;
1850 /* directly from example 3-18 "basicwin" of Xlib Programming Manual */
1851 (void)XStringListToTextProperty(&c_title
, 1, &text_prop
);
1852 XSetWMProperties(x11_display
, x11_window
, &text_prop
,
1853 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1856 XStoreName(x11_display
, x11_window
, (char *)title
);
1859 XFlush(x11_display
);
1863 * Set x11 Window icon
1865 * get_x11_windis() must be called before this and have returned OK
1871 /* See above for comments about using X*SetWMProperties(). */
1872 #ifdef USE_UTF8_STRING
1874 Xutf8SetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1875 NULL
, 0, NULL
, NULL
, NULL
);
1879 #if XtSpecificationRelease >= 4
1880 # ifdef FEAT_XFONTSET
1881 XmbSetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1882 NULL
, 0, NULL
, NULL
, NULL
);
1884 XTextProperty text_prop
;
1885 char *c_icon
= (char *)icon
;
1887 (void)XStringListToTextProperty(&c_icon
, 1, &text_prop
);
1888 XSetWMProperties(x11_display
, x11_window
, NULL
, &text_prop
,
1889 NULL
, 0, NULL
, NULL
, NULL
);
1892 XSetIconName(x11_display
, x11_window
, (char *)icon
);
1895 XFlush(x11_display
);
1898 #else /* FEAT_X11 */
1902 get_x11_title(test_only
)
1909 get_x11_icon(test_only
)
1914 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1915 oldicon
= T_NAME
+ 8;
1922 #endif /* FEAT_X11 */
1925 mch_can_restore_title()
1927 return get_x11_title(TRUE
);
1931 mch_can_restore_icon()
1933 return get_x11_icon(TRUE
);
1937 * Set the window title and icon.
1940 mch_settitle(title
, icon
)
1945 static int recursive
= 0;
1947 if (T_NAME
== NULL
) /* no terminal name (yet) */
1949 if (title
== NULL
&& icon
== NULL
) /* nothing to do */
1952 /* When one of the X11 functions causes a deadly signal, we get here again
1953 * recursively. Avoid hanging then (something is probably locked). */
1959 * if the window ID and the display is known, we may use X11 calls
1962 if (get_x11_windis() == OK
)
1965 # if defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) \
1966 || defined(FEAT_GUI_GTK) || defined(FEAT_GUI_MACVIM)
1973 * Note: if "t_TS" is set, title is set with escape sequence rather
1974 * than x11 calls, because the x11 calls don't always work
1976 if ((type
|| *T_TS
!= NUL
) && title
!= NULL
)
1978 if (oldtitle
== NULL
1982 ) /* first call but not in GUI, save title */
1983 (void)get_x11_title(FALSE
);
1985 if (*T_TS
!= NUL
) /* it's OK if t_fs is empty */
1986 term_settitle(title
);
1989 # ifdef FEAT_GUI_GTK
1990 if (!gui
.in_use
) /* don't do this if GTK+ is running */
1992 set_x11_title(title
); /* x11 */
1994 #if defined(FEAT_GUI_GTK) \
1995 || defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) \
1996 || defined(FEAT_GUI_MACVIM)
1998 gui_mch_settitle(title
, icon
);
2000 did_set_title
= TRUE
;
2003 if ((type
|| *T_CIS
!= NUL
) && icon
!= NULL
)
2009 ) /* first call, save icon */
2010 get_x11_icon(FALSE
);
2014 out_str(T_CIS
); /* set icon start */
2016 out_str(T_CIE
); /* set icon end */
2021 # ifdef FEAT_GUI_GTK
2022 if (!gui
.in_use
) /* don't do this if GTK+ is running */
2024 set_x11_icon(icon
); /* x11 */
2026 did_set_icon
= TRUE
;
2032 * Restore the window/icon title.
2033 * "which" is one of:
2034 * 1 only restore title
2035 * 2 only restore icon
2036 * 3 restore title and icon
2039 mch_restore_title(which
)
2042 /* only restore the title or icon when it has been set */
2043 mch_settitle(((which
& 1) && did_set_title
) ?
2044 (oldtitle
? oldtitle
: p_titleold
) : NULL
,
2045 ((which
& 2) && did_set_icon
) ? oldicon
: NULL
);
2048 #endif /* FEAT_TITLE */
2051 * Return TRUE if "name" looks like some xterm name.
2052 * Seiichi Sato mentioned that "mlterm" works like xterm.
2060 return (STRNICMP(name
, "xterm", 5) == 0
2061 || STRNICMP(name
, "nxterm", 6) == 0
2062 || STRNICMP(name
, "kterm", 5) == 0
2063 || STRNICMP(name
, "mlterm", 6) == 0
2064 || STRNICMP(name
, "rxvt", 4) == 0
2065 || STRCMP(name
, "builtin_xterm") == 0);
2068 #if defined(FEAT_MOUSE_XTERM) || defined(PROTO)
2070 * Return TRUE if "name" appears to be that of a terminal
2071 * known to support the xterm-style mouse protocol.
2072 * Relies on term_is_xterm having been set to its correct value.
2075 use_xterm_like_mouse(name
)
2078 return (name
!= NULL
2079 && (term_is_xterm
|| STRNICMP(name
, "screen", 6) == 0));
2083 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
2085 * Return non-zero when using an xterm mouse, according to 'ttymouse'.
2086 * Return 1 for "xterm".
2087 * Return 2 for "xterm2".
2092 if (ttym_flags
== TTYM_XTERM2
)
2094 if (ttym_flags
== TTYM_XTERM
)
2106 return (STRNICMP(name
, "iris-ansi", 9) == 0
2107 || STRCMP(name
, "builtin_iris-ansi") == 0);
2115 return FALSE
; /* actually all ANSI comp. terminals should be here */
2116 /* catch VT100 - VT5xx */
2117 return ((STRNICMP(name
, "vt", 2) == 0
2118 && vim_strchr((char_u
*)"12345", name
[2]) != NULL
)
2119 || STRCMP(name
, "builtin_vt320") == 0);
2123 * Return TRUE if "name" is a terminal for which 'ttyfast' should be set.
2124 * This should include all windowed terminal emulators.
2127 vim_is_fastterm(name
)
2132 if (vim_is_xterm(name
) || vim_is_vt300(name
) || vim_is_iris(name
))
2134 return ( STRNICMP(name
, "hpterm", 6) == 0
2135 || STRNICMP(name
, "sun-cmd", 7) == 0
2136 || STRNICMP(name
, "screen", 6) == 0
2137 || STRNICMP(name
, "dtterm", 6) == 0);
2141 * Insert user name in s[len].
2142 * Return OK if a name found.
2145 mch_get_user_name(s
, len
)
2150 vim_strncpy(s
, (char_u
*)cuserid(NULL
), len
- 1);
2153 return mch_get_uname(getuid(), s
, len
);
2158 * Insert user name for "uid" in s[len].
2159 * Return OK if a name found.
2162 mch_get_uname(uid
, s
, len
)
2167 #if defined(HAVE_PWD_H) && defined(HAVE_GETPWUID)
2170 if ((pw
= getpwuid(uid
)) != NULL
2171 && pw
->pw_name
!= NULL
&& *(pw
->pw_name
) != NUL
)
2173 vim_strncpy(s
, (char_u
*)pw
->pw_name
, len
- 1);
2177 sprintf((char *)s
, "%d", (int)uid
); /* assumes s is long enough */
2178 return FAIL
; /* a number is not a name */
2182 * Insert host name is s[len].
2185 #ifdef HAVE_SYS_UTSNAME_H
2187 mch_get_host_name(s
, len
)
2191 struct utsname vutsname
;
2193 if (uname(&vutsname
) < 0)
2196 vim_strncpy(s
, (char_u
*)vutsname
.nodename
, len
- 1);
2198 #else /* HAVE_SYS_UTSNAME_H */
2200 # ifdef HAVE_SYS_SYSTEMINFO_H
2201 # define gethostname(nam, len) sysinfo(SI_HOSTNAME, nam, len)
2205 mch_get_host_name(s
, len
)
2210 vaxc$
gethostname((char *)s
, len
);
2212 gethostname((char *)s
, len
);
2214 s
[len
- 1] = NUL
; /* make sure it's terminated */
2216 #endif /* HAVE_SYS_UTSNAME_H */
2224 return (long)getpid();
2227 #if !defined(HAVE_STRERROR) && defined(USE_GETCWD)
2228 static char *strerror
__ARGS((int));
2234 extern int sys_nerr
;
2235 extern char *sys_errlist
[];
2238 if (err
> 0 && err
< sys_nerr
)
2239 return (sys_errlist
[err
]);
2240 sprintf(er
, "Error %d", err
);
2246 * Get name of current directory into buffer 'buf' of length 'len' bytes.
2247 * Return OK for success, FAIL for failure.
2250 mch_dirname(buf
, len
)
2254 #if defined(USE_GETCWD)
2255 if (getcwd((char *)buf
, len
) == NULL
)
2257 STRCPY(buf
, strerror(errno
));
2262 return (getwd((char *)buf
) != NULL
? OK
: FAIL
);
2266 #if defined(OS2) || defined(PROTO)
2268 * Replace all slashes by backslashes.
2269 * When 'shellslash' set do it the other way around.
2285 * Get absolute file name into "buf[len]".
2287 * return FAIL for failure, OK for success
2290 mch_FullName(fname
, buf
, len
, force
)
2291 char_u
*fname
, *buf
;
2293 int force
; /* also expand when already absolute path */
2297 int only_drive
; /* file name is only a drive letter */
2301 static int dont_fchdir
= FALSE
; /* TRUE when fchdir() doesn't work */
2303 char_u olddir
[MAXPATHL
];
2307 char_u posix_fname
[MAXPATHL
]; /* Cygwin docs mention MAX_PATH, but
2308 it's not always defined */
2312 fname
= vms_fixfilename(fname
);
2317 * This helps for when "/etc/hosts" is a symlink to "c:/something/hosts".
2319 # if CYGWIN_VERSION_DLL_MAJOR >= 1007
2320 cygwin_conv_path(CCP_WIN_A_TO_POSIX
, fname
, posix_fname
, MAXPATHL
);
2322 cygwin_conv_to_posix_path(fname
, posix_fname
);
2324 fname
= posix_fname
;
2327 /* expand it if forced or not an absolute path */
2328 if (force
|| !mch_isFullName(fname
))
2331 * If the file name has a path, change to that directory for a moment,
2332 * and then do the getwd() (and get back to where we were).
2333 * This will get the correct path name with "../" things.
2337 if (((p
= vim_strrchr(fname
, '/')) != NULL
)
2338 || ((p
= vim_strrchr(fname
, '\\')) != NULL
)
2339 || (((p
= vim_strchr(fname
, ':')) != NULL
) && ++only_drive
))
2341 if ((p
= vim_strrchr(fname
, '/')) != NULL
)
2346 * Use fchdir() if possible, it's said to be faster and more
2347 * reliable. But on SunOS 4 it might not work. Check this by
2348 * doing a fchdir() right now.
2352 fd
= open(".", O_RDONLY
| O_EXTRA
, 0);
2353 if (fd
>= 0 && fchdir(fd
) < 0)
2357 dont_fchdir
= TRUE
; /* don't try again */
2362 /* Only change directory when we are sure we can return to where
2363 * we are now. After doing "su" chdir(".") might not work. */
2368 (mch_dirname(olddir
, MAXPATHL
) == FAIL
2369 || mch_chdir((char *)olddir
) != 0))
2371 p
= NULL
; /* can't get current dir: don't chdir */
2378 * compensate for case where ':' from "D:" was the only
2379 * path separator detected in the file name; the _next_
2380 * character has to be removed, and then restored later.
2385 /* The directory is copied into buf[], to be able to remove
2386 * the file name without changing it (could be a string in
2387 * read-only memory) */
2388 if (p
- fname
>= len
)
2392 vim_strncpy(buf
, fname
, p
- fname
);
2393 if (mch_chdir((char *)buf
))
2409 if (mch_dirname(buf
, len
) == FAIL
)
2424 l
= mch_chdir((char *)olddir
);
2426 EMSG(_(e_prev_dir
));
2435 if (l
> 0 && buf
[l
- 1] != '/' && *fname
!= NUL
2436 && STRCMP(fname
, ".") != 0)
2442 /* Catch file names which are too long. */
2443 if (retval
== FAIL
|| STRLEN(buf
) + STRLEN(fname
) >= len
)
2446 /* Do not append ".", "/dir/." is equal to "/dir". */
2447 if (STRCMP(fname
, ".") != 0)
2454 * Return TRUE if "fname" does not depend on the current directory.
2457 mch_isFullName(fname
)
2461 return _fnisabs(fname
);
2464 return ( fname
[0] == '/' || fname
[0] == '.' ||
2465 strchr((char *)fname
,':') || strchr((char *)fname
,'"') ||
2466 (strchr((char *)fname
,'[') && strchr((char *)fname
,']'))||
2467 (strchr((char *)fname
,'<') && strchr((char *)fname
,'>')) );
2469 return (*fname
== '/' || *fname
== '~');
2474 #if defined(USE_FNAME_CASE) || defined(PROTO)
2476 * Set the case of the file name, if it already exists. This will cause the
2477 * file name to remain exactly the same.
2478 * Only required for file systems where case is ignored and preserved.
2482 fname_case(name
, len
)
2484 int len
; /* buffer size, only used when name gets longer */
2487 char_u
*slash
, *tail
;
2491 if (lstat((char *)name
, &st
) >= 0)
2493 /* Open the directory where the file is located. */
2494 slash
= vim_strrchr(name
, '/');
2497 dirp
= opendir(".");
2503 dirp
= opendir((char *)name
);
2510 while ((dp
= readdir(dirp
)) != NULL
)
2512 /* Only accept names that differ in case and are the same byte
2513 * length. TODO: accept different length name. */
2514 if (STRICMP(tail
, dp
->d_name
) == 0
2515 && STRLEN(tail
) == STRLEN(dp
->d_name
))
2517 char_u newname
[MAXPATHL
+ 1];
2520 /* Verify the inode is equal. */
2521 vim_strncpy(newname
, name
, MAXPATHL
);
2522 vim_strncpy(newname
+ (tail
- name
), (char_u
*)dp
->d_name
,
2523 MAXPATHL
- (tail
- name
));
2524 if (lstat((char *)newname
, &st2
) >= 0
2525 && st
.st_ino
== st2
.st_ino
2526 && st
.st_dev
== st2
.st_dev
)
2528 STRCPY(tail
, dp
->d_name
);
2541 * Get file permissions for 'name'.
2542 * Returns -1 when it doesn't exist.
2550 /* Keep the #ifdef outside of stat(), it may be a macro. */
2552 if (stat((char *)vms_fixfilename(name
), &statb
))
2554 if (stat((char *)name
, &statb
))
2558 /* The top bit makes the value negative, which means the file doesn't
2559 * exist. Remove the bit, we don't use it. */
2560 return statb
.st_mode
& ~S_ADDACE
;
2562 return statb
.st_mode
;
2567 * set file permission for 'name' to 'perm'
2569 * return FAIL for failure, OK otherwise
2572 mch_setperm(name
, perm
)
2576 return (chmod((char *)
2578 vms_fixfilename(name
),
2582 (mode_t
)perm
) == 0 ? OK
: FAIL
);
2585 #if defined(HAVE_ACL) || defined(PROTO)
2586 # ifdef HAVE_SYS_ACL_H
2587 # include <sys/acl.h>
2589 # ifdef HAVE_SYS_ACCESS_H
2590 # include <sys/access.h>
2593 # ifdef HAVE_SOLARIS_ACL
2594 typedef struct vim_acl_solaris_T
{
2596 aclent_t
*acl_entry
;
2597 } vim_acl_solaris_T
;
2600 #if defined(HAVE_SELINUX) || defined(PROTO)
2602 * Copy security info from "from_file" to "to_file".
2605 mch_copy_sec(from_file
, to_file
)
2609 if (from_file
== NULL
)
2612 if (selinux_enabled
== -1)
2613 selinux_enabled
= is_selinux_enabled();
2615 if (selinux_enabled
> 0)
2617 security_context_t from_context
= NULL
;
2618 security_context_t to_context
= NULL
;
2620 if (getfilecon((char *)from_file
, &from_context
) < 0)
2622 /* If the filesystem doesn't support extended attributes,
2623 the original had no special security context and the
2624 target cannot have one either. */
2625 if (errno
== EOPNOTSUPP
)
2628 MSG_PUTS(_("\nCould not get security context for "));
2629 msg_outtrans(from_file
);
2633 if (getfilecon((char *)to_file
, &to_context
) < 0)
2635 MSG_PUTS(_("\nCould not get security context for "));
2636 msg_outtrans(to_file
);
2638 freecon (from_context
);
2641 if (strcmp(from_context
, to_context
) != 0)
2643 if (setfilecon((char *)to_file
, from_context
) < 0)
2645 MSG_PUTS(_("\nCould not set security context for "));
2646 msg_outtrans(to_file
);
2650 freecon(to_context
);
2651 freecon(from_context
);
2654 #endif /* HAVE_SELINUX */
2657 * Return a pointer to the ACL of file "fname" in allocated memory.
2658 * Return NULL if the ACL is not available for whatever reason.
2664 vim_acl_T ret
= NULL
;
2665 #ifdef HAVE_POSIX_ACL
2666 ret
= (vim_acl_T
)acl_get_file((char *)fname
, ACL_TYPE_ACCESS
);
2668 #ifdef HAVE_SOLARIS_ACL
2669 vim_acl_solaris_T
*aclent
;
2671 aclent
= malloc(sizeof(vim_acl_solaris_T
));
2672 if ((aclent
->acl_cnt
= acl((char *)fname
, GETACLCNT
, 0, NULL
)) < 0)
2677 aclent
->acl_entry
= malloc(aclent
->acl_cnt
* sizeof(aclent_t
));
2678 if (acl((char *)fname
, GETACL
, aclent
->acl_cnt
, aclent
->acl_entry
) < 0)
2680 free(aclent
->acl_entry
);
2684 ret
= (vim_acl_T
)aclent
;
2686 #if defined(HAVE_AIX_ACL)
2690 aclsize
= sizeof(struct acl
);
2691 aclent
= malloc(aclsize
);
2692 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2694 if (errno
== ENOSPC
)
2696 aclsize
= aclent
->acl_len
;
2697 aclent
= realloc(aclent
, aclsize
);
2698 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2710 ret
= (vim_acl_T
)aclent
;
2711 #endif /* HAVE_AIX_ACL */
2712 #endif /* HAVE_SOLARIS_ACL */
2713 #endif /* HAVE_POSIX_ACL */
2718 * Set the ACL of file "fname" to "acl" (unless it's NULL).
2721 mch_set_acl(fname
, aclent
)
2727 #ifdef HAVE_POSIX_ACL
2728 acl_set_file((char *)fname
, ACL_TYPE_ACCESS
, (acl_t
)aclent
);
2730 #ifdef HAVE_SOLARIS_ACL
2731 acl((char *)fname
, SETACL
, ((vim_acl_solaris_T
*)aclent
)->acl_cnt
,
2732 ((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2735 chacl((char *)fname
, aclent
, ((struct acl
*)aclent
)->acl_len
);
2736 #endif /* HAVE_AIX_ACL */
2737 #endif /* HAVE_SOLARIS_ACL */
2738 #endif /* HAVE_POSIX_ACL */
2742 mch_free_acl(aclent
)
2747 #ifdef HAVE_POSIX_ACL
2748 acl_free((acl_t
)aclent
);
2750 #ifdef HAVE_SOLARIS_ACL
2751 free(((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2756 #endif /* HAVE_AIX_ACL */
2757 #endif /* HAVE_SOLARIS_ACL */
2758 #endif /* HAVE_POSIX_ACL */
2763 * Set hidden flag for "name".
2770 /* can't hide a file */
2774 * return TRUE if "name" is a directory
2775 * return FALSE if "name" is not a directory
2776 * return FALSE for error
2784 if (*name
== NUL
) /* Some stat()s don't flag "" as an error. */
2786 if (stat((char *)name
, &statb
))
2788 #ifdef _POSIX_SOURCE
2789 return (S_ISDIR(statb
.st_mode
) ? TRUE
: FALSE
);
2791 return ((statb
.st_mode
& S_IFMT
) == S_IFDIR
? TRUE
: FALSE
);
2795 static int executable_file
__ARGS((char_u
*name
));
2798 * Return 1 if "name" is an executable file, 0 if not or it doesn't exist.
2801 executable_file(name
)
2806 if (stat((char *)name
, &st
))
2808 return S_ISREG(st
.st_mode
) && mch_access((char *)name
, X_OK
) == 0;
2812 * Return 1 if "name" can be found in $PATH and executed, 0 if not.
2813 * Return -1 if unknown.
2823 /* If it's an absolute or relative path don't need to use $PATH. */
2824 if (mch_isFullName(name
) || (name
[0] == '.' && (name
[1] == '/'
2825 || (name
[1] == '.' && name
[2] == '/'))))
2826 return executable_file(name
);
2828 p
= (char_u
*)getenv("PATH");
2829 if (p
== NULL
|| *p
== NUL
)
2831 buf
= alloc((unsigned)(STRLEN(name
) + STRLEN(p
) + 2));
2836 * Walk through all entries in $PATH to check if "name" exists there and
2837 * is an executable file.
2841 e
= (char_u
*)strchr((char *)p
, ':');
2844 if (e
- p
<= 1) /* empty entry means current dir */
2848 vim_strncpy(buf
, p
, e
- p
);
2852 retval
= executable_file(buf
);
2866 * Check what "name" is:
2867 * NODE_NORMAL: file or directory (or doesn't exist)
2868 * NODE_WRITABLE: writable device, socket, fifo, etc.
2869 * NODE_OTHER: non-writable things
2877 if (stat((char *)name
, &st
))
2879 if (S_ISREG(st
.st_mode
) || S_ISDIR(st
.st_mode
))
2882 if (S_ISBLK(st
.st_mode
)) /* block device isn't writable */
2885 /* Everything else is writable? */
2886 return NODE_WRITABLE
;
2892 #ifdef HAVE_CHECK_STACK_GROWTH
2895 check_stack_growth((char *)&i
);
2897 # ifdef HAVE_STACK_LIMIT
2904 * Setup an alternative stack for signals. Helps to catch signals when
2905 * running out of stack space.
2906 * Use of sigaltstack() is preferred, it's more portable.
2907 * Ignore any errors.
2909 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2910 signal_stack
= (char *)alloc(SIGSTKSZ
);
2911 init_signal_stack();
2915 #if defined(EXITFREE) || defined(PROTO)
2919 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
2920 if (clip_star
.owned
)
2921 clip_lose_selection(&clip_star
);
2922 if (clip_plus
.owned
)
2923 clip_lose_selection(&clip_plus
);
2925 # if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
2926 if (xterm_Shell
!= (Widget
)0)
2927 XtDestroyWidget(xterm_Shell
);
2928 # ifndef LESSTIF_VERSION
2929 /* Lesstif crashes here, lose some memory */
2930 if (xterm_dpy
!= NULL
)
2931 XtCloseDisplay(xterm_dpy
);
2932 if (app_context
!= (XtAppContext
)NULL
)
2934 XtDestroyApplicationContext(app_context
);
2936 x11_display
= NULL
; /* freed by XtDestroyApplicationContext() */
2941 /* Don't close the display for GTK 1, it is done in exit(). */
2942 # if defined(FEAT_X11) && (!defined(FEAT_GUI_GTK) || defined(HAVE_GTK2))
2943 if (x11_display
!= NULL
2944 # ifdef FEAT_XCLIPBOARD
2945 && x11_display
!= xterm_dpy
2948 XCloseDisplay(x11_display
);
2950 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2951 vim_free(signal_stack
);
2952 signal_stack
= NULL
;
2961 static void exit_scroll
__ARGS((void));
2964 * Output a newline when exiting.
2965 * Make sure the newline goes to the same stream as the text.
2972 if (newline_on_exit
|| msg_didout
)
2974 if (msg_use_printf())
2986 restore_cterm_colors(); /* get original colors back */
2987 msg_clr_eos_force(); /* clear the rest of the display */
2988 windgoto((int)Rows
- 1, 0); /* may have moved the cursor */
2998 #if defined(FEAT_X11) && defined(FEAT_CLIPBOARD)
2999 x11_export_final_selection();
3006 settmode(TMODE_COOK
);
3008 mch_restore_title(3); /* restore xterm title and icon name */
3011 * When t_ti is not empty but it doesn't cause swapping terminal
3012 * pages, need to output a newline when msg_didout is set. But when
3013 * t_ti does swap pages it should not go to the shell page. Do this
3014 * before stoptermcap().
3016 if (swapping_screen() && !newline_on_exit
)
3019 /* Stop termcap: May need to check for T_CRV response, which
3020 * requires RAW mode. */
3024 * A newline is only required after a message in the alternate screen.
3025 * This is set to TRUE by wait_return().
3027 if (!swapping_screen() || newline_on_exit
)
3030 /* Cursor may have been switched off without calling starttermcap()
3031 * when doing "vim -u vimrc" and vimrc contains ":q". */
3036 ml_close_all(TRUE
); /* remove all memfiles */
3043 #ifdef MACOS_CONVERT
3048 /* A core dump won't be created if the signal handler
3049 * doesn't return, so we can't call exit() */
3050 if (deadly_signal
!= 0)
3054 #ifdef FEAT_NETBEANS_INTG
3056 netbeans_send_disconnect();
3069 if (deadly_signal
!= 0)
3071 signal(deadly_signal
, SIG_DFL
);
3072 kill(getpid(), deadly_signal
); /* Die using the signal we caught */
3082 static int first
= TRUE
;
3084 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3085 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3087 * for "new" tty systems
3089 # ifdef HAVE_TERMIOS_H
3090 static struct termios told
;
3091 struct termios tnew
;
3093 static struct termio told
;
3100 # if defined(HAVE_TERMIOS_H)
3101 tcgetattr(read_cmd_fd
, &told
);
3103 ioctl(read_cmd_fd
, TCGETA
, &told
);
3108 if (tmode
== TMODE_RAW
)
3111 * ~ICRNL enables typing ^V^M
3113 tnew
.c_iflag
&= ~ICRNL
;
3114 tnew
.c_lflag
&= ~(ICANON
| ECHO
| ISIG
| ECHOE
3115 # if defined(IEXTEN) && !defined(__MINT__)
3116 | IEXTEN
/* IEXTEN enables typing ^V on SOLARIS */
3117 /* but it breaks function keys on MINT */
3120 # ifdef ONLCR /* don't map NL -> CR NL, we do it ourselves */
3121 tnew
.c_oflag
&= ~ONLCR
;
3123 tnew
.c_cc
[VMIN
] = 1; /* return after 1 char */
3124 tnew
.c_cc
[VTIME
] = 0; /* don't wait */
3126 else if (tmode
== TMODE_SLEEP
)
3127 tnew
.c_lflag
&= ~(ECHO
);
3129 # if defined(HAVE_TERMIOS_H)
3133 /* A signal may cause tcsetattr() to fail (e.g., SIGCONT). Retry a
3135 while (tcsetattr(read_cmd_fd
, TCSANOW
, &tnew
) == -1
3136 && errno
== EINTR
&& n
> 0)
3140 ioctl(read_cmd_fd
, TCSETA
, &tnew
);
3146 * for "old" tty systems
3149 # define TIOCSETN TIOCSETP /* for hpux 9.0 */
3151 static struct sgttyb ttybold
;
3152 struct sgttyb ttybnew
;
3157 ioctl(read_cmd_fd
, TIOCGETP
, &ttybold
);
3161 if (tmode
== TMODE_RAW
)
3163 ttybnew
.sg_flags
&= ~(CRMOD
| ECHO
);
3164 ttybnew
.sg_flags
|= RAW
;
3166 else if (tmode
== TMODE_SLEEP
)
3167 ttybnew
.sg_flags
&= ~(ECHO
);
3168 ioctl(read_cmd_fd
, TIOCSETN
, &ttybnew
);
3174 * Try to get the code for "t_kb" from the stty setting
3176 * Even if termcap claims a backspace key, the user's setting *should*
3177 * prevail. stty knows more about reality than termcap does, and if
3178 * somebody's usual erase key is DEL (which, for most BSD users, it will
3179 * be), they're going to get really annoyed if their erase key starts
3180 * doing forward deletes for no reason. (Eric Fischer)
3188 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3189 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3190 /* for "new" tty systems */
3191 # ifdef HAVE_TERMIOS_H
3192 struct termios keys
;
3197 # if defined(HAVE_TERMIOS_H)
3198 if (tcgetattr(read_cmd_fd
, &keys
) != -1)
3200 if (ioctl(read_cmd_fd
, TCGETA
, &keys
) != -1)
3203 buf
[0] = keys
.c_cc
[VERASE
];
3204 intr_char
= keys
.c_cc
[VINTR
];
3206 /* for "old" tty systems */
3209 if (ioctl(read_cmd_fd
, TIOCGETP
, &keys
) != -1)
3211 buf
[0] = keys
.sg_erase
;
3212 intr_char
= keys
.sg_kill
;
3215 add_termcode((char_u
*)"kb", buf
, FALSE
);
3218 * If <BS> and <DEL> are now the same, redefine <DEL>.
3220 p
= find_termcode((char_u
*)"kD");
3221 if (p
!= NULL
&& p
[0] == buf
[0] && p
[1] == buf
[1])
3225 } /* to keep cindent happy */
3231 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
3233 * Set mouse clicks on or off.
3239 static int ison
= FALSE
;
3240 int xterm_mouse_vers
;
3242 if (on
== ison
) /* return quickly if nothing to do */
3245 xterm_mouse_vers
= use_xterm_mouse();
3246 if (xterm_mouse_vers
> 0)
3248 if (on
) /* enable mouse events, use mouse tracking if available */
3249 out_str_nf((char_u
*)
3250 (xterm_mouse_vers
> 1
3251 ? IF_EB("\033[?1002h", ESC_STR
"[?1002h")
3252 : IF_EB("\033[?1000h", ESC_STR
"[?1000h")));
3253 else /* disable mouse events, could probably always send the same */
3254 out_str_nf((char_u
*)
3255 (xterm_mouse_vers
> 1
3256 ? IF_EB("\033[?1002l", ESC_STR
"[?1002l")
3257 : IF_EB("\033[?1000l", ESC_STR
"[?1000l")));
3261 # ifdef FEAT_MOUSE_DEC
3262 else if (ttym_flags
== TTYM_DEC
)
3264 if (on
) /* enable mouse events */
3265 out_str_nf((char_u
*)"\033[1;2'z\033[1;3'{");
3266 else /* disable mouse events */
3267 out_str_nf((char_u
*)"\033['z");
3272 # ifdef FEAT_MOUSE_GPM
3288 # ifdef FEAT_SYSMOUSE
3293 if (sysmouse_open() == OK
)
3304 # ifdef FEAT_MOUSE_JSB
3309 /* D - Enable Mouse up/down messages
3310 * L - Enable Left Button Reporting
3311 * M - Enable Middle Button Reporting
3312 * R - Enable Right Button Reporting
3313 * K - Enable SHIFT and CTRL key Reporting
3314 * + - Enable Advanced messaging of mouse moves and up/down messages
3316 * # - Numeric value of mouse pointer required
3317 * 0 = Multiview 2000 cursor, used as standard
3319 * 2 = Windows I Beam
3320 * 3 = Windows Hour Glass
3321 * 4 = Windows Cross Hair
3322 * 5 = Windows UP Arrow
3324 #ifdef JSBTERM_MOUSE_NONADVANCED /* Disables full feedback of pointer movements */
3325 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK1Q\033\\",
3326 ESC_STR
"[0~ZwLMRK1Q" ESC_STR
"\\"));
3328 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK+1Q\033\\",
3329 ESC_STR
"[0~ZwLMRK+1Q" ESC_STR
"\\"));
3335 out_str_nf((char_u
*)IF_EB("\033[0~ZwQ\033\\",
3336 ESC_STR
"[0~ZwQ" ESC_STR
"\\"));
3341 # ifdef FEAT_MOUSE_PTERM
3344 /* 1 = button press, 6 = release, 7 = drag, 1h...9l = right button */
3346 out_str_nf("\033[>1h\033[>6h\033[>7h\033[>1h\033[>9l");
3348 out_str_nf("\033[>1l\033[>6l\033[>7l\033[>1l\033[>9h");
3355 * Set the mouse termcode, depending on the 'term' and 'ttymouse' options.
3358 check_mouse_termcode()
3360 # ifdef FEAT_MOUSE_XTERM
3361 if (use_xterm_mouse()
3367 set_mouse_termcode(KS_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3368 ? IF_EB("\233M", CSI_STR
"M")
3369 : IF_EB("\033[M", ESC_STR
"[M")));
3370 if (*p_mouse
!= NUL
)
3372 /* force mouse off and maybe on to send possibly new mouse
3373 * activation sequence to the xterm, with(out) drag tracing. */
3374 mch_setmouse(FALSE
);
3379 del_mouse_termcode(KS_MOUSE
);
3382 # ifdef FEAT_MOUSE_GPM
3383 if (!use_xterm_mouse()
3388 set_mouse_termcode(KS_MOUSE
, (char_u
*)IF_EB("\033MG", ESC_STR
"MG"));
3391 # ifdef FEAT_SYSMOUSE
3392 if (!use_xterm_mouse()
3397 set_mouse_termcode(KS_MOUSE
, (char_u
*)IF_EB("\033MS", ESC_STR
"MS"));
3400 # ifdef FEAT_MOUSE_JSB
3401 /* conflicts with xterm mouse: "\033[" and "\033[M" ??? */
3402 if (!use_xterm_mouse()
3407 set_mouse_termcode(KS_JSBTERM_MOUSE
,
3408 (char_u
*)IF_EB("\033[0~zw", ESC_STR
"[0~zw"));
3410 del_mouse_termcode(KS_JSBTERM_MOUSE
);
3413 # ifdef FEAT_MOUSE_NET
3414 /* There is no conflict, but one may type "ESC }" from Insert mode. Don't
3415 * define it in the GUI or when using an xterm. */
3416 if (!use_xterm_mouse()
3421 set_mouse_termcode(KS_NETTERM_MOUSE
,
3422 (char_u
*)IF_EB("\033}", ESC_STR
"}"));
3424 del_mouse_termcode(KS_NETTERM_MOUSE
);
3427 # ifdef FEAT_MOUSE_DEC
3428 /* conflicts with xterm mouse: "\033[" and "\033[M" */
3429 if (!use_xterm_mouse()
3434 set_mouse_termcode(KS_DEC_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3435 ? IF_EB("\233", CSI_STR
) : IF_EB("\033[", ESC_STR
"[")));
3437 del_mouse_termcode(KS_DEC_MOUSE
);
3439 # ifdef FEAT_MOUSE_PTERM
3440 /* same as the dec mouse */
3441 if (!use_xterm_mouse()
3446 set_mouse_termcode(KS_PTERM_MOUSE
,
3447 (char_u
*) IF_EB("\033[", ESC_STR
"["));
3449 del_mouse_termcode(KS_PTERM_MOUSE
);
3455 * set screen mode, always fails.
3462 EMSG(_(e_screenmode
));
3469 * Try to get the current window size:
3470 * 1. with an ioctl(), most accurate method
3471 * 2. from the environment variables LINES and COLUMNS
3472 * 3. from the termcap
3473 * 4. keep using the old values
3474 * Return OK when size could be determined, FAIL otherwise.
3484 * For OS/2 use _scrsize().
3497 * 1. try using an ioctl. It is the most accurate method.
3499 * Try using TIOCGWINSZ first, some systems that have it also define
3500 * TIOCGSIZE but don't have a struct ttysize.
3507 /* When stdout is not a tty, use stdin for the ioctl(). */
3508 if (!isatty(fd
) && isatty(read_cmd_fd
))
3510 if (ioctl(fd
, TIOCGWINSZ
, &ws
) == 0)
3512 columns
= ws
.ws_col
;
3516 # else /* TIOCGWINSZ */
3522 /* When stdout is not a tty, use stdin for the ioctl(). */
3523 if (!isatty(fd
) && isatty(read_cmd_fd
))
3525 if (ioctl(fd
, TIOCGSIZE
, &ts
) == 0)
3527 columns
= ts
.ts_cols
;
3531 # endif /* TIOCGSIZE */
3532 # endif /* TIOCGWINSZ */
3535 * 2. get size from environment
3536 * When being POSIX compliant ('|' flag in 'cpoptions') this overrules
3537 * the ioctl() values!
3539 if (columns
== 0 || rows
== 0 || vim_strchr(p_cpo
, CPO_TSIZE
) != NULL
)
3541 if ((p
= (char_u
*)getenv("LINES")))
3542 rows
= atoi((char *)p
);
3543 if ((p
= (char_u
*)getenv("COLUMNS")))
3544 columns
= atoi((char *)p
);
3549 * 3. try reading "co" and "li" entries from termcap
3551 if (columns
== 0 || rows
== 0)
3552 getlinecol(&columns
, &rows
);
3556 * 4. If everything fails, use the old values
3558 if (columns
<= 0 || rows
<= 0)
3567 * Try to set the window size to Rows and Columns.
3575 * NOTE: if you get an error here that term_set_winsize() is
3576 * undefined, check the output of configure. It could probably not
3577 * find a ncurses, termcap or termlib library.
3579 term_set_winsize((int)Rows
, (int)Columns
);
3581 screen_start(); /* don't know where cursor is now */
3588 * Rows and/or Columns has changed.
3593 /* Nothing to do. */
3597 static void append_ga_line
__ARGS((garray_T
*gap
));
3600 * Append the text in "gap" below the cursor line and clear "gap".
3606 /* Remove trailing CR. */
3609 && ((char_u
*)gap
->ga_data
)[gap
->ga_len
- 1] == CAR
)
3611 ga_append(gap
, NUL
);
3612 ml_append(curwin
->w_cursor
.lnum
++, gap
->ga_data
, 0, FALSE
);
3618 mch_call_shell(cmd
, options
)
3620 int options
; /* SHELL_*, see vim.h */
3626 int tmode
= cur_tmode
;
3627 #ifdef USE_SYSTEM /* use system() to start the shell: simple but slow */
3630 char_u
*newcmd
; /* only needed for unix */
3633 * Set the preferred shell in the EMXSHELL environment variable (but
3634 * only if it is different from what is already in the environment).
3635 * Emx then takes care of whether to use "/c" or "-c" in an
3636 * intelligent way. Simply pass the whole thing to emx's system() call.
3637 * Emx also starts an interactive shell if system() is passed an empty
3642 if (((old
= (char_u
*)getenv("EMXSHELL")) == NULL
) || STRCMP(old
, p_sh
))
3644 /* should check HAVE_SETENV, but I know we don't have it. */
3645 p
= alloc(10 + strlen(p_sh
));
3648 sprintf((char *)p
, "EMXSHELL=%s", p_sh
);
3649 putenv((char *)p
); /* don't free the pointer! */
3656 if (options
& SHELL_COOKED
)
3657 settmode(TMODE_COOK
); /* set to normal mode */
3661 x
= system(""); /* this starts an interactive shell in emx */
3663 x
= system((char *)cmd
);
3664 /* system() returns -1 when error occurs in starting shell */
3665 if (x
== -1 && !emsg_silent
)
3667 MSG_PUTS(_("\nCannot execute shell "));
3671 # else /* not __EMX__ */
3673 x
= system((char *)p_sh
);
3677 if (ofn
= strchr((char *)cmd
, '>'))
3679 if (ifn
= strchr((char *)cmd
, '<'))
3684 p
= strchr(ifn
,' '); /* chop off any trailing spaces */
3689 x
= vms_sys((char *)cmd
, ofn
, ifn
);
3691 x
= system((char *)cmd
);
3693 newcmd
= lalloc(STRLEN(p_sh
)
3694 + (extra_shell_arg
== NULL
? 0 : STRLEN(extra_shell_arg
))
3695 + STRLEN(p_shcf
) + STRLEN(cmd
) + 4, TRUE
);
3700 sprintf((char *)newcmd
, "%s %s %s %s", p_sh
,
3701 extra_shell_arg
== NULL
? "" : (char *)extra_shell_arg
,
3704 x
= system((char *)newcmd
);
3710 x
= vms_sys_status(x
);
3715 MSG_PUTS(_("\nCannot execute shell sh\n"));
3716 # endif /* __EMX__ */
3717 else if (x
&& !(options
& SHELL_SILENT
))
3719 MSG_PUTS(_("\nshell returned "));
3720 msg_outnum((long)x
);
3724 if (tmode
== TMODE_RAW
)
3725 settmode(TMODE_RAW
); /* set to raw mode */
3731 #else /* USE_SYSTEM */ /* don't use system(), use fork()/exec() */
3733 # define EXEC_FAILED 122 /* Exit code when shell didn't execute. Don't use
3734 127, some shells use that already */
3736 char_u
*newcmd
= NULL
;
3740 # ifdef HAVE_UNION_WAIT
3751 int pty_master_fd
= -1; /* for pty's */
3753 int pty_slave_fd
= -1;
3756 int fd_toshell
[2]; /* for pipes */
3757 int fd_fromshell
[2];
3758 int pipe_error
= FALSE
;
3762 static char envbuf_Rows
[20];
3763 static char envbuf_Columns
[20];
3765 int did_settmode
= FALSE
; /* settmode(TMODE_RAW) called */
3768 if (options
& SHELL_COOKED
)
3769 settmode(TMODE_COOK
); /* set to normal mode */
3771 newcmd
= vim_strsave(p_sh
);
3772 if (newcmd
== NULL
) /* out of memory */
3776 * Do this loop twice:
3777 * 1: find number of arguments
3778 * 2: separate them and build argv[]
3780 for (i
= 0; i
< 2; ++i
)
3788 argv
[argc
] = (char *)p
;
3790 while (*p
&& (inquote
|| (*p
!= ' ' && *p
!= TAB
)))
3804 argv
= (char **)alloc((unsigned)((argc
+ 4) * sizeof(char *)));
3805 if (argv
== NULL
) /* out of memory */
3811 if (extra_shell_arg
!= NULL
)
3812 argv
[argc
++] = (char *)extra_shell_arg
;
3813 argv
[argc
++] = (char *)p_shcf
;
3814 argv
[argc
++] = (char *)cmd
;
3819 * For the GUI, when writing the output into the buffer and when reading
3820 * input from the buffer: Try using a pseudo-tty to get the stdin/stdout
3821 * of the executed command into the Vim window. Or use a pipe.
3823 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3825 || (gui
.in_use
&& show_shell_mess
)
3831 * Try to open a master pty.
3832 * If this works, open the slave pty.
3833 * If the slave can't be opened, close the master pty.
3835 if (p_guipty
&& !(options
& (SHELL_READ
|SHELL_WRITE
)))
3837 pty_master_fd
= OpenPTY(&tty_name
); /* open pty */
3838 if (pty_master_fd
>= 0 && ((pty_slave_fd
=
3839 open(tty_name
, O_RDWR
| O_EXTRA
, 0)) < 0))
3841 close(pty_master_fd
);
3846 * If not opening a pty or it didn't work, try using pipes.
3848 if (pty_master_fd
< 0)
3851 pipe_error
= (pipe(fd_toshell
) < 0);
3852 if (!pipe_error
) /* pipe create OK */
3854 pipe_error
= (pipe(fd_fromshell
) < 0);
3855 if (pipe_error
) /* pipe create failed */
3857 close(fd_toshell
[0]);
3858 close(fd_toshell
[1]);
3863 MSG_PUTS(_("\nCannot create pipes\n"));
3869 if (!pipe_error
) /* pty or pipe opened or not used */
3872 beos_cleanup_read_thread();
3875 if ((pid
= fork()) == -1) /* maybe we should use vfork() */
3877 MSG_PUTS(_("\nCannot fork\n"));
3878 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3880 || (gui
.in_use
&& show_shell_mess
)
3885 if (pty_master_fd
>= 0) /* close the pseudo tty */
3887 close(pty_master_fd
);
3888 close(pty_slave_fd
);
3890 else /* close the pipes */
3893 close(fd_toshell
[0]);
3894 close(fd_toshell
[1]);
3895 close(fd_fromshell
[0]);
3896 close(fd_fromshell
[1]);
3900 else if (pid
== 0) /* child */
3902 reset_signals(); /* handle signals normally */
3904 if (!show_shell_mess
|| (options
& SHELL_EXPAND
))
3909 * Don't want to show any message from the shell. Can't just
3910 * close stdout and stderr though, because some systems will
3911 * break if you try to write to them after that, so we must
3912 * use dup() to replace them with something else -- webb
3913 * Connect stdin to /dev/null too, so ":n `cat`" doesn't hang,
3914 * waiting for input.
3916 fd
= open("/dev/null", O_RDWR
| O_EXTRA
, 0);
3922 * If any of these open()'s and dup()'s fail, we just continue
3923 * anyway. It's not fatal, and on most systems it will make
3924 * no difference at all. On a few it will cause the execvp()
3925 * to exit with a non-zero status even when the completion
3926 * could be done, which is nothing too serious. If the open()
3927 * or dup() failed we'd just do the same thing ourselves
3932 dup(fd
); /* To replace stdin (file descriptor 0) */
3933 dup(fd
); /* To replace stdout (file descriptor 1) */
3934 dup(fd
); /* To replace stderr (file descriptor 2) */
3936 /* Don't need this now that we've duplicated it */
3940 else if ((options
& (SHELL_READ
|SHELL_WRITE
))
3948 /* Create our own process group, so that the child and all its
3949 * children can be kill()ed. Don't do this when using pipes,
3950 * because stdin is not a tty, we would lose /dev/tty. */
3955 if (pty_slave_fd
>= 0)
3957 /* push stream discipline modules */
3958 if (options
& SHELL_COOKED
)
3959 SetupSlavePTY(pty_slave_fd
);
3960 # if defined(TIOCSCTTY) && !defined(FEAT_GUI_MACVIM)
3961 /* Try to become controlling tty (probably doesn't work,
3962 * unless run by root) */
3963 ioctl(pty_slave_fd
, TIOCSCTTY
, (char *)NULL
);
3967 /* Simulate to have a dumb terminal (for now) */
3969 setenv("TERM", "dumb", 1);
3970 sprintf((char *)envbuf
, "%ld", Rows
);
3971 setenv("ROWS", (char *)envbuf
, 1);
3972 sprintf((char *)envbuf
, "%ld", Rows
);
3973 setenv("LINES", (char *)envbuf
, 1);
3974 sprintf((char *)envbuf
, "%ld", Columns
);
3975 setenv("COLUMNS", (char *)envbuf
, 1);
3978 * Putenv does not copy the string, it has to remain valid.
3979 * Use a static array to avoid losing allocated memory.
3981 putenv("TERM=dumb");
3982 sprintf(envbuf_Rows
, "ROWS=%ld", Rows
);
3983 putenv(envbuf_Rows
);
3984 sprintf(envbuf_Rows
, "LINES=%ld", Rows
);
3985 putenv(envbuf_Rows
);
3986 sprintf(envbuf_Columns
, "COLUMNS=%ld", Columns
);
3987 putenv(envbuf_Columns
);
3991 * stderr is only redirected when using the GUI, so that a
3992 * program like gpg can still access the terminal to get a
3993 * passphrase using stderr.
3996 if (pty_master_fd
>= 0)
3998 close(pty_master_fd
); /* close master side of pty */
4000 /* set up stdin/stdout/stderr for the child */
4011 close(pty_slave_fd
); /* has been dupped, close it now */
4016 /* set up stdin for the child */
4017 close(fd_toshell
[1]);
4020 close(fd_toshell
[0]);
4022 /* set up stdout for the child */
4023 close(fd_fromshell
[0]);
4025 dup(fd_fromshell
[1]);
4026 close(fd_fromshell
[1]);
4031 /* set up stderr for the child */
4040 * There is no type cast for the argv, because the type may be
4041 * different on different machines. This may cause a warning
4042 * message with strict compilers, don't worry about it.
4043 * Call _exit() instead of exit() to avoid closing the connection
4044 * to the X server (esp. with GTK, which uses atexit()).
4046 execvp(argv
[0], argv
);
4047 _exit(EXEC_FAILED
); /* exec failed, return failure code */
4052 * While child is running, ignore terminating signals.
4053 * Do catch CTRL-C, so that "got_int" is set.
4055 catch_signals(SIG_IGN
, SIG_ERR
);
4059 * For the GUI we redirect stdin, stdout and stderr to our window.
4060 * This is also used to pipe stdin/stdout to/from the external
4063 if ((options
& (SHELL_READ
|SHELL_WRITE
))
4065 || (gui
.in_use
&& show_shell_mess
)
4069 # define BUFLEN 100 /* length for buffer, pseudo tty limit is 128 */
4070 char_u buffer
[BUFLEN
+ 1];
4072 int buffer_off
= 0; /* valid bytes in buffer[] */
4074 char_u ta_buf
[BUFLEN
+ 1]; /* TypeAHead */
4075 int ta_len
= 0; /* valid bytes in ta_buf[] */
4086 if (pty_master_fd
>= 0)
4088 close(pty_slave_fd
); /* close slave side of pty */
4089 fromshell_fd
= pty_master_fd
;
4090 toshell_fd
= dup(pty_master_fd
);
4095 close(fd_toshell
[0]);
4096 close(fd_fromshell
[1]);
4097 toshell_fd
= fd_toshell
[1];
4098 fromshell_fd
= fd_fromshell
[0];
4102 * Write to the child if there are typed characters.
4103 * Read from the child if there are characters available.
4104 * Repeat the reading a few times if more characters are
4105 * available. Need to check for typed keys now and then, but
4106 * not too often (delays when no chars are available).
4107 * This loop is quit if no characters can be read from the pty
4108 * (WaitForChar detected special condition), or there are no
4109 * characters available and the child has exited.
4110 * Only check if the child has exited when there is no more
4111 * output. The child may exit before all the output has
4114 * Currently this busy loops!
4115 * This can probably dead-lock when the write blocks!
4117 p_more_save
= p_more
;
4120 State
= EXTERNCMD
; /* don't redraw at window resize */
4122 if ((options
& SHELL_WRITE
) && toshell_fd
>= 0)
4124 /* Fork a process that will write the lines to the
4125 * external program. */
4126 if ((wpid
= fork()) == -1)
4128 MSG_PUTS(_("\nCannot fork\n"));
4132 linenr_T lnum
= curbuf
->b_op_start
.lnum
;
4134 char_u
*lp
= ml_get(lnum
);
4139 close(fromshell_fd
);
4142 l
= STRLEN(lp
+ written
);
4145 else if (lp
[written
] == NL
)
4146 /* NL -> NUL translation */
4147 len
= write(toshell_fd
, "", (size_t)1);
4150 s
= vim_strchr(lp
+ written
, NL
);
4151 len
= write(toshell_fd
, (char *)lp
+ written
,
4152 s
== NULL
? l
: s
- (lp
+ written
));
4156 /* Finished a line, add a NL, unless this line
4157 * should not have one. */
4158 if (lnum
!= curbuf
->b_op_end
.lnum
4160 || (lnum
!= write_no_eol_lnum
4162 curbuf
->b_ml
.ml_line_count
4163 || curbuf
->b_p_eol
)))
4164 write(toshell_fd
, "\n", (size_t)1);
4166 if (lnum
> curbuf
->b_op_end
.lnum
)
4168 /* finished all the lines, close pipe */
4188 if (options
& SHELL_READ
)
4189 ga_init2(&ga
, 1, BUFLEN
);
4196 * Check if keys have been typed, write them to the child
4198 * Don't do this if we are expanding wild cards (would eat
4200 * Don't do this when filtering and terminal is in cooked
4201 * mode, the shell command will handle the I/O. Avoids
4202 * that a typed password is echoed for ssh or gpg command.
4203 * Don't get characters when the child has already
4204 * finished (wait_pid == 0).
4205 * Don't get extra characters when we already have one.
4206 * Don't read characters unless we didn't get output for a
4207 * while, avoids that ":r !ls" eats typeahead.
4210 if (!(options
& SHELL_EXPAND
)
4212 (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
))
4213 != (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
)
4221 && (len
= ui_inchar(ta_buf
,
4222 BUFLEN
, 10L, 0)) > 0)))
4226 * Check for CTRL-C: send interrupt signal to child.
4227 * Check for CTRL-D: EOF, close pipe to child.
4229 if (len
== 1 && (pty_master_fd
< 0 || cmd
!= NULL
))
4233 * Send SIGINT to the child's group or all
4234 * processes in our group.
4236 if (ta_buf
[ta_len
] == Ctrl_C
4237 || ta_buf
[ta_len
] == intr_char
)
4248 if (pty_master_fd
< 0 && toshell_fd
>= 0
4249 && ta_buf
[ta_len
] == Ctrl_D
)
4256 /* replace K_BS by <BS> and K_DEL by <DEL> */
4257 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4259 if (ta_buf
[i
] == CSI
&& len
- i
> 2)
4261 c
= TERMCAP2KEY(ta_buf
[i
+ 1], ta_buf
[i
+ 2]);
4262 if (c
== K_DEL
|| c
== K_KDEL
|| c
== K_BS
)
4264 mch_memmove(ta_buf
+ i
+ 1, ta_buf
+ i
+ 3,
4265 (size_t)(len
- i
- 2));
4266 if (c
== K_DEL
|| c
== K_KDEL
)
4273 else if (ta_buf
[i
] == '\r')
4277 i
+= (*mb_ptr2len
)(ta_buf
+ i
) - 1;
4282 * For pipes: echo the typed characters.
4283 * For a pty this does not seem to work.
4285 if (pty_master_fd
< 0)
4287 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4289 if (ta_buf
[i
] == '\n' || ta_buf
[i
] == '\b')
4290 msg_putchar(ta_buf
[i
]);
4294 int l
= (*mb_ptr2len
)(ta_buf
+ i
);
4296 msg_outtrans_len(ta_buf
+ i
, l
);
4301 msg_outtrans_len(ta_buf
+ i
, 1);
4303 windgoto(msg_row
, msg_col
);
4310 * Write the characters to the child, unless EOF has
4311 * been typed for pipes. Write one character at a
4312 * time, to avoid losing too much typeahead.
4313 * When writing buffer lines, drop the typed
4314 * characters (only check for CTRL-C).
4316 if (options
& SHELL_WRITE
)
4318 else if (toshell_fd
>= 0)
4320 len
= write(toshell_fd
, (char *)ta_buf
, (size_t)1);
4324 mch_memmove(ta_buf
, ta_buf
+ len
, ta_len
);
4332 /* CTRL-C sends a signal to the child, we ignore it
4345 * Check if the child has any characters to be printed.
4346 * Read them and write them to our window. Repeat this as
4347 * long as there is something to do, avoid the 10ms wait
4348 * for mch_inchar(), or sending typeahead characters to
4349 * the external process.
4350 * TODO: This should handle escape sequences, compatible
4351 * to some terminal (vt52?).
4354 while (RealWaitForChar(fromshell_fd
, 10L, NULL
))
4356 len
= read(fromshell_fd
, (char *)buffer
4358 + buffer_off
, (size_t)(BUFLEN
- buffer_off
)
4363 if (len
<= 0) /* end of file or error */
4367 if (options
& SHELL_READ
)
4369 /* Do NUL -> NL translation, append NL separated
4370 * lines to the current buffer. */
4371 for (i
= 0; i
< len
; ++i
)
4373 if (buffer
[i
] == NL
)
4374 append_ga_line(&ga
);
4375 else if (buffer
[i
] == NUL
)
4378 ga_append(&ga
, buffer
[i
]);
4389 /* Check if the last character in buffer[] is
4390 * incomplete, keep these bytes for the next
4392 for (p
= buffer
; p
< buffer
+ len
; p
+= l
)
4396 l
= 1; /* NUL byte? */
4397 else if (MB_BYTE2LEN(*p
) != l
)
4400 if (p
== buffer
) /* no complete character */
4402 /* avoid getting stuck at an illegal byte */
4414 if (p
< buffer
+ len
)
4417 buffer_off
= (buffer
+ len
) - p
;
4418 mch_memmove(buffer
, p
, buffer_off
);
4423 # endif /* FEAT_MBYTE */
4430 windgoto(msg_row
, msg_col
);
4437 /* If we already detected the child has finished break the
4439 if (wait_pid
== pid
)
4443 * Check if the child still exists, before checking for
4444 * typed characters (otherwise we would lose typeahead).
4447 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*) 0);
4449 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4451 if ((wait_pid
== (pid_t
)-1 && errno
== ECHILD
)
4452 || (wait_pid
== pid
&& WIFEXITED(status
)))
4454 /* Don't break the loop yet, try reading more
4455 * characters from "fromshell_fd" first. When using
4456 * pipes there might still be something to read and
4457 * then we'll break the loop at the "break" above. */
4464 p_more
= p_more_save
;
4465 if (options
& SHELL_READ
)
4469 append_ga_line(&ga
);
4470 /* remember that the NL was missing */
4471 write_no_eol_lnum
= curwin
->w_cursor
.lnum
;
4474 write_no_eol_lnum
= 0;
4479 * Give all typeahead that wasn't used back to ui_inchar().
4482 ui_inchar_undo(ta_buf
, ta_len
);
4484 if (toshell_fd
>= 0)
4486 close(fromshell_fd
);
4490 * Wait until our child has exited.
4491 * Ignore wait() returning pids of other children and returning
4492 * because of some signal like SIGWINCH.
4493 * Don't wait if wait_pid was already set above, indicating the
4494 * child already exited.
4496 while (wait_pid
!= pid
)
4498 # ifdef _THREAD_SAFE
4499 /* Ugly hack: when compiled with Python threads are probably
4500 * used, in which case wait() sometimes hangs for no obvious
4501 * reason. Use waitpid() instead and loop (like the GUI). */
4503 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*)0);
4505 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4509 /* Wait for 1/100 sec before trying again. */
4510 mch_delay(10L, TRUE
);
4514 wait_pid
= wait(&status
);
4524 /* Make sure the child that writes to the external program is
4527 kill(wpid
, SIGKILL
);
4530 * Set to raw mode right now, otherwise a CTRL-C after
4531 * catch_signals() will kill Vim.
4533 if (tmode
== TMODE_RAW
)
4534 settmode(TMODE_RAW
);
4535 did_settmode
= TRUE
;
4538 if (WIFEXITED(status
))
4540 /* LINTED avoid "bitwise operation on signed value" */
4541 retval
= WEXITSTATUS(status
);
4542 if (retval
&& !emsg_silent
)
4544 if (retval
== EXEC_FAILED
)
4546 MSG_PUTS(_("\nCannot execute shell "));
4550 else if (!(options
& SHELL_SILENT
))
4552 MSG_PUTS(_("\nshell returned "));
4553 msg_outnum((long)retval
);
4559 MSG_PUTS(_("\nCommand terminated\n"));
4566 if (tmode
== TMODE_RAW
)
4567 settmode(TMODE_RAW
); /* set to raw mode */
4575 #endif /* USE_SYSTEM */
4579 * Check for CTRL-C typed by reading all available characters.
4580 * In cooked mode we should get SIGINT, no need to check.
4585 if (curr_tmode
== TMODE_RAW
&& RealWaitForChar(read_cmd_fd
, 0L, NULL
))
4586 fill_input_buf(FALSE
);
4590 * Wait "msec" msec until a character is available from the keyboard or from
4591 * inbuf[]. msec == -1 will block forever.
4592 * When a GUI is being used, this will never get called -- webb
4598 #ifdef FEAT_MOUSE_GPM
4599 int gpm_process_wanted
;
4601 #ifdef FEAT_XCLIPBOARD
4606 if (input_available()) /* something in inbuf[] */
4609 #if defined(FEAT_MOUSE_DEC)
4610 /* May need to query the mouse position. */
4613 WantQueryMouse
= FALSE
;
4614 mch_write((char_u
*)IF_EB("\033[1'|", ESC_STR
"[1'|"), 5);
4619 * For FEAT_MOUSE_GPM and FEAT_XCLIPBOARD we loop here to process mouse
4620 * events. This is a bit complicated, because they might both be defined.
4622 #if defined(FEAT_MOUSE_GPM) || defined(FEAT_XCLIPBOARD)
4623 # ifdef FEAT_XCLIPBOARD
4625 if (do_xterm_trace())
4630 # ifdef FEAT_XCLIPBOARD
4633 msec
= XT_TRACE_DELAY
;
4634 if (rest
>= 0 && rest
< XT_TRACE_DELAY
)
4640 # ifdef FEAT_MOUSE_GPM
4641 gpm_process_wanted
= 0;
4642 avail
= RealWaitForChar(read_cmd_fd
, msec
, &gpm_process_wanted
);
4644 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4648 if (input_available())
4650 # ifdef FEAT_XCLIPBOARD
4651 if (rest
== 0 || !do_xterm_trace())
4657 # ifdef FEAT_MOUSE_GPM
4658 || (gpm_process_wanted
&& mch_gpm_process() == 0)
4660 # ifdef FEAT_XCLIPBOARD
4661 || (!avail
&& rest
!= 0)
4666 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4672 * Wait "msec" msec until a character is available from file descriptor "fd".
4673 * Time == -1 will block forever.
4674 * When a GUI is being used, this will not be used for input -- webb
4675 * Returns also, when a request from Sniff is waiting -- toni.
4676 * Or when a Linux GPM mouse event is waiting.
4679 #if defined(__BEOS__)
4684 RealWaitForChar(fd
, msec
, check_for_gpm
)
4690 #if defined(FEAT_XCLIPBOARD) || defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4691 static int busy
= FALSE
;
4693 /* May retry getting characters after an event was handled. */
4696 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4697 /* Remember at what time we started, so that we know how much longer we
4698 * should wait after being interrupted. */
4699 # define USE_START_TV
4700 struct timeval start_tv
;
4703 # ifdef FEAT_XCLIPBOARD
4704 xterm_Shell
!= (Widget
)0
4705 # if defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4711 # ifdef FEAT_MZSCHEME
4715 # ifdef FEAT_MZSCHEME
4716 (mzthreads_allowed() && p_mzq
> 0)
4719 gettimeofday(&start_tv
, NULL
);
4722 /* Handle being called recursively. This may happen for the session
4723 * manager stuff, it may save the file, which does a breakcheck. */
4733 int finished
= TRUE
; /* default is to 'loop' just once */
4734 # ifdef FEAT_MZSCHEME
4735 int mzquantum_used
= FALSE
;
4739 struct pollfd fds
[5];
4741 # ifdef FEAT_XCLIPBOARD
4744 # ifdef FEAT_MOUSE_GPM
4750 int towait
= (int)msec
;
4752 # ifdef FEAT_MZSCHEME
4753 mzvim_check_threads();
4754 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4756 towait
= (int)p_mzq
; /* don't wait longer than 'mzquantum' */
4757 mzquantum_used
= TRUE
;
4761 fds
[0].events
= POLLIN
;
4765 # define SNIFF_IDX 1
4766 if (want_sniff_request
)
4768 fds
[SNIFF_IDX
].fd
= fd_from_sniff
;
4769 fds
[SNIFF_IDX
].events
= POLLIN
;
4773 # ifdef FEAT_XCLIPBOARD
4774 if (xterm_Shell
!= (Widget
)0)
4777 fds
[nfd
].fd
= ConnectionNumber(xterm_dpy
);
4778 fds
[nfd
].events
= POLLIN
;
4782 # ifdef FEAT_MOUSE_GPM
4783 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4786 fds
[nfd
].fd
= gpm_fd
;
4787 fds
[nfd
].events
= POLLIN
;
4792 if (xsmp_icefd
!= -1)
4795 fds
[nfd
].fd
= xsmp_icefd
;
4796 fds
[nfd
].events
= POLLIN
;
4801 ret
= poll(fds
, nfd
, towait
);
4802 # ifdef FEAT_MZSCHEME
4803 if (ret
== 0 && mzquantum_used
)
4804 /* MzThreads scheduling is required and timeout occurred */
4810 sniff_disconnect(1);
4811 else if (want_sniff_request
)
4813 if (fds
[SNIFF_IDX
].revents
& POLLHUP
)
4814 sniff_disconnect(1);
4815 if (fds
[SNIFF_IDX
].revents
& POLLIN
)
4816 sniff_request_waiting
= 1;
4819 # ifdef FEAT_XCLIPBOARD
4820 if (xterm_Shell
!= (Widget
)0 && (fds
[xterm_idx
].revents
& POLLIN
))
4822 xterm_update(); /* Maybe we should hand out clipboard */
4823 if (--ret
== 0 && !input_available())
4828 # ifdef FEAT_MOUSE_GPM
4829 if (gpm_idx
>= 0 && (fds
[gpm_idx
].revents
& POLLIN
))
4835 if (xsmp_idx
>= 0 && (fds
[xsmp_idx
].revents
& (POLLIN
| POLLHUP
)))
4837 if (fds
[xsmp_idx
].revents
& POLLIN
)
4840 xsmp_handle_requests();
4843 else if (fds
[xsmp_idx
].revents
& POLLHUP
)
4846 verb_msg((char_u
*)_("XSMP lost ICE connection"));
4850 finished
= FALSE
; /* Try again */
4855 #else /* HAVE_SELECT */
4858 struct timeval
*tvp
;
4863 # ifdef FEAT_MZSCHEME
4864 mzvim_check_threads();
4865 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4867 towait
= p_mzq
; /* don't wait longer than 'mzquantum' */
4868 mzquantum_used
= TRUE
;
4872 /* don't check for incoming chars if not in raw mode, because select()
4873 * always returns TRUE then (in some version of emx.dll) */
4874 if (curr_tmode
!= TMODE_RAW
)
4880 tv
.tv_sec
= towait
/ 1000;
4881 tv
.tv_usec
= (towait
% 1000) * (1000000/1000);
4888 * Select on ready for reading and exceptional condition (end of file).
4890 FD_ZERO(&rfds
); /* calls bzero() on a sun */
4893 # if !defined(__QNX__) && !defined(__CYGWIN32__)
4894 /* For QNX select() always returns 1 if this is set. Why? */
4900 if (want_sniff_request
)
4902 FD_SET(fd_from_sniff
, &rfds
);
4903 FD_SET(fd_from_sniff
, &efds
);
4904 if (maxfd
< fd_from_sniff
)
4905 maxfd
= fd_from_sniff
;
4908 # ifdef FEAT_XCLIPBOARD
4909 if (xterm_Shell
!= (Widget
)0)
4911 FD_SET(ConnectionNumber(xterm_dpy
), &rfds
);
4912 if (maxfd
< ConnectionNumber(xterm_dpy
))
4913 maxfd
= ConnectionNumber(xterm_dpy
);
4916 # ifdef FEAT_MOUSE_GPM
4917 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4919 FD_SET(gpm_fd
, &rfds
);
4920 FD_SET(gpm_fd
, &efds
);
4926 if (xsmp_icefd
!= -1)
4928 FD_SET(xsmp_icefd
, &rfds
);
4929 FD_SET(xsmp_icefd
, &efds
);
4930 if (maxfd
< xsmp_icefd
)
4936 /* Old VMS as v6.2 and older have broken select(). It waits more than
4937 * required. Should not be used */
4940 ret
= select(maxfd
+ 1, &rfds
, NULL
, &efds
, tvp
);
4943 if (ret
== -1 && errno
== ENOTSUP
)
4950 # ifdef FEAT_MZSCHEME
4951 if (ret
== 0 && mzquantum_used
)
4952 /* loop if MzThreads must be scheduled and timeout occurred */
4958 sniff_disconnect(1);
4959 else if (ret
> 0 && want_sniff_request
)
4961 if (FD_ISSET(fd_from_sniff
, &efds
))
4962 sniff_disconnect(1);
4963 if (FD_ISSET(fd_from_sniff
, &rfds
))
4964 sniff_request_waiting
= 1;
4967 # ifdef FEAT_XCLIPBOARD
4968 if (ret
> 0 && xterm_Shell
!= (Widget
)0
4969 && FD_ISSET(ConnectionNumber(xterm_dpy
), &rfds
))
4971 xterm_update(); /* Maybe we should hand out clipboard */
4972 /* continue looping when we only got the X event and the input
4973 * buffer is empty */
4974 if (--ret
== 0 && !input_available())
4981 # ifdef FEAT_MOUSE_GPM
4982 if (ret
> 0 && gpm_flag
&& check_for_gpm
!= NULL
&& gpm_fd
>= 0)
4984 if (FD_ISSET(gpm_fd
, &efds
))
4986 else if (FD_ISSET(gpm_fd
, &rfds
))
4991 if (ret
> 0 && xsmp_icefd
!= -1)
4993 if (FD_ISSET(xsmp_icefd
, &efds
))
4996 verb_msg((char_u
*)_("XSMP lost ICE connection"));
4999 finished
= FALSE
; /* keep going if event was only one */
5001 else if (FD_ISSET(xsmp_icefd
, &rfds
))
5004 xsmp_handle_requests();
5007 finished
= FALSE
; /* keep going if event was only one */
5012 #endif /* HAVE_SELECT */
5015 if (finished
|| msec
== 0)
5018 /* We're going to loop around again, find out for how long */
5021 # ifdef USE_START_TV
5024 /* Compute remaining wait time. */
5025 gettimeofday(&mtv
, NULL
);
5026 msec
-= (mtv
.tv_sec
- start_tv
.tv_sec
) * 1000L
5027 + (mtv
.tv_usec
- start_tv
.tv_usec
) / 1000L;
5029 /* Guess we got interrupted halfway. */
5033 break; /* waited long enough */
5043 #ifndef NO_EXPANDPATH
5045 * Expand a path into all matching files and/or directories. Handles "*",
5046 * "?", "[a-z]", "**", etc.
5047 * "path" has backslashes before chars that are not to be expanded.
5048 * Returns the number of matches found.
5051 mch_expandpath(gap
, path
, flags
)
5054 int flags
; /* EW_* flags */
5056 return unix_expandpath(gap
, path
, 0, flags
, FALSE
);
5061 * mch_expand_wildcards() - this code does wild-card pattern matching using
5064 * return OK for success, FAIL for error (you may lose some memory) and put
5065 * an error message in *file.
5067 * num_pat is number of input patterns
5068 * pat is array of pointers to input patterns
5069 * num_file is pointer to number of matched file names
5070 * file is pointer to array of pointers to matched file names
5080 #define SHELL_SPECIAL (char_u *)"\t \"&'$;<>()\\|"
5084 mch_expand_wildcards(num_pat
, pat
, num_file
, file
, flags
)
5089 int flags
; /* EW_* flags */
5097 * This is the OS/2 implementation.
5099 # define EXPL_ALLOC_INC 16
5100 char_u
**expl_files
;
5101 size_t files_alloced
, files_free
;
5105 *num_file
= 0; /* default: no files found */
5106 files_alloced
= EXPL_ALLOC_INC
; /* how much space is allocated */
5107 files_free
= EXPL_ALLOC_INC
; /* how much space is not used */
5108 *file
= (char_u
**)alloc(sizeof(char_u
**) * files_alloced
);
5112 for (; num_pat
> 0; num_pat
--, pat
++)
5115 if (vim_strchr(*pat
, '$') || vim_strchr(*pat
, '~'))
5116 /* expand environment var or home dir */
5117 buf
= expand_env_save(*pat
);
5119 buf
= vim_strsave(*pat
);
5121 has_wildcard
= mch_has_exp_wildcard(buf
); /* (still) wildcards? */
5122 if (has_wildcard
) /* yes, so expand them */
5123 expl_files
= (char_u
**)_fnexplode(buf
);
5126 * return value of buf if no wildcards left,
5127 * OR if no match AND EW_NOTFOUND is set.
5129 if ((!has_wildcard
&& ((flags
& EW_NOTFOUND
) || mch_getperm(buf
) >= 0))
5130 || (expl_files
== NULL
&& (flags
& EW_NOTFOUND
)))
5131 { /* simply save the current contents of *buf */
5132 expl_files
= (char_u
**)alloc(sizeof(char_u
**) * 2);
5133 if (expl_files
!= NULL
)
5135 expl_files
[0] = vim_strsave(buf
);
5136 expl_files
[1] = NULL
;
5142 * Count number of names resulting from expansion,
5143 * At the same time add a backslash to the end of names that happen to
5144 * be directories, and replace slashes with backslashes.
5148 for (i
= 0; (p
= expl_files
[i
]) != NULL
; i
++)
5151 /* If we don't want dirs and this is one, skip it */
5152 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5155 /* Skip files that are not executable if we check for that. */
5156 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe(p
))
5159 if (--files_free
== 0)
5161 /* need more room in table of pointers */
5162 files_alloced
+= EXPL_ALLOC_INC
;
5163 *file
= (char_u
**)vim_realloc(*file
,
5164 sizeof(char_u
**) * files_alloced
);
5167 EMSG(_(e_outofmem
));
5171 files_free
= EXPL_ALLOC_INC
;
5176 /* For a directory we add a '/', unless it's already
5179 if (((*file
)[*num_file
] = alloc(len
+ 2)) != NULL
)
5181 STRCPY((*file
)[*num_file
], p
);
5182 if (!after_pathsep((*file
)[*num_file
],
5183 (*file
)[*num_file
] + len
))
5185 (*file
)[*num_file
][len
] = psepc
;
5186 (*file
)[*num_file
][len
+ 1] = NUL
;
5192 (*file
)[*num_file
] = vim_strsave(p
);
5196 * Error message already given by either alloc or vim_strsave.
5197 * Should return FAIL, but returning OK works also.
5199 if ((*file
)[*num_file
] == NULL
)
5203 _fnexplodefree((char **)expl_files
);
5210 * This is the non-OS/2 implementation (really Unix).
5217 #define STYLE_ECHO 0 /* use "echo", the default */
5218 #define STYLE_GLOB 1 /* use "glob", for csh */
5219 #define STYLE_VIMGLOB 2 /* use "vimglob", for Posix sh */
5220 #define STYLE_PRINT 3 /* use "print -N", for zsh */
5221 #define STYLE_BT 4 /* `cmd` expansion, execute the pattern
5223 int shell_style
= STYLE_ECHO
;
5225 static int did_find_nul
= FALSE
;
5226 int ampersent
= FALSE
;
5227 /* vimglob() function to define for Posix shell */
5228 static char *sh_vimglob_func
= "vimglob() { while [ $# -ge 1 ]; do echo \"$1\"; shift; done }; vimglob >";
5230 *num_file
= 0; /* default: no files found */
5234 * If there are no wildcards, just copy the names to allocated memory.
5235 * Saves a lot of time, because we don't have to start a new shell.
5237 if (!have_wildcard(num_pat
, pat
))
5238 return save_patterns(num_pat
, pat
, num_file
, file
);
5240 # ifdef HAVE_SANDBOX
5241 /* Don't allow any shell command in the sandbox. */
5242 if (sandbox
!= 0 && check_secure())
5247 * Don't allow the use of backticks in secure and restricted mode.
5249 if (secure
|| restricted
)
5250 for (i
= 0; i
< num_pat
; ++i
)
5251 if (vim_strchr(pat
[i
], '`') != NULL
5252 && (check_restricted() || check_secure()))
5256 * get a name for the temp file
5258 if ((tempname
= vim_tempname('o')) == NULL
)
5265 * Let the shell expand the patterns and write the result into the temp
5267 * STYLE_BT: NL separated
5268 * If expanding `cmd` execute it directly.
5269 * STYLE_GLOB: NUL separated
5270 * If we use *csh, "glob" will work better than "echo".
5271 * STYLE_PRINT: NL or NUL separated
5272 * If we use *zsh, "print -N" will work better than "glob".
5273 * STYLE_VIMGLOB: NL separated
5274 * If we use *sh*, we define "vimglob()".
5275 * STYLE_ECHO: space separated.
5276 * A shell we don't know, stay safe and use "echo".
5278 if (num_pat
== 1 && *pat
[0] == '`'
5279 && (len
= STRLEN(pat
[0])) > 2
5280 && *(pat
[0] + len
- 1) == '`')
5281 shell_style
= STYLE_BT
;
5282 else if ((len
= STRLEN(p_sh
)) >= 3)
5284 if (STRCMP(p_sh
+ len
- 3, "csh") == 0)
5285 shell_style
= STYLE_GLOB
;
5286 else if (STRCMP(p_sh
+ len
- 3, "zsh") == 0)
5287 shell_style
= STYLE_PRINT
;
5289 if (shell_style
== STYLE_ECHO
&& strstr((char *)gettail(p_sh
),
5291 shell_style
= STYLE_VIMGLOB
;
5293 /* Compute the length of the command. We need 2 extra bytes: for the
5294 * optional '&' and for the NUL.
5295 * Worst case: "unset nonomatch; print -N >" plus two is 29 */
5296 len
= STRLEN(tempname
) + 29;
5297 if (shell_style
== STYLE_VIMGLOB
)
5298 len
+= STRLEN(sh_vimglob_func
);
5300 for (i
= 0; i
< num_pat
; ++i
)
5302 /* Count the length of the patterns in the same way as they are put in
5303 * "command" below. */
5305 len
+= STRLEN(pat
[i
]) + 3; /* add space and two quotes */
5307 ++len
; /* add space */
5308 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5310 if (vim_strchr(SHELL_SPECIAL
, pat
[i
][j
]) != NULL
)
5311 ++len
; /* may add a backslash */
5316 command
= alloc(len
);
5317 if (command
== NULL
)
5325 * Build the shell command:
5326 * - Set $nonomatch depending on EW_NOTFOUND (hopefully the shell
5328 * - Add the shell command to print the expanded names.
5329 * - Add the temp file name.
5330 * - Add the file name patterns.
5332 if (shell_style
== STYLE_BT
)
5334 /* change `command; command& ` to (command; command ) */
5335 STRCPY(command
, "(");
5336 STRCAT(command
, pat
[0] + 1); /* exclude first backtick */
5337 p
= command
+ STRLEN(command
) - 1;
5338 *p
-- = ')'; /* remove last backtick */
5339 while (p
> command
&& vim_iswhite(*p
))
5341 if (*p
== '&') /* remove trailing '&' */
5346 STRCAT(command
, ">");
5350 if (flags
& EW_NOTFOUND
)
5351 STRCPY(command
, "set nonomatch; ");
5353 STRCPY(command
, "unset nonomatch; ");
5354 if (shell_style
== STYLE_GLOB
)
5355 STRCAT(command
, "glob >");
5356 else if (shell_style
== STYLE_PRINT
)
5357 STRCAT(command
, "print -N >");
5358 else if (shell_style
== STYLE_VIMGLOB
)
5359 STRCAT(command
, sh_vimglob_func
);
5361 STRCAT(command
, "echo >");
5364 STRCAT(command
, tempname
);
5366 if (shell_style
!= STYLE_BT
)
5367 for (i
= 0; i
< num_pat
; ++i
)
5369 /* When using system() always add extra quotes, because the shell
5370 * is started twice. Otherwise put a backslash before special
5371 * characters, except inside ``. */
5373 STRCAT(command
, " \"");
5374 STRCAT(command
, pat
[i
]);
5375 STRCAT(command
, "\"");
5379 p
= command
+ STRLEN(command
);
5381 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5383 if (pat
[i
][j
] == '`')
5385 else if (pat
[i
][j
] == '\\' && pat
[i
][j
+ 1] != NUL
)
5387 /* Remove a backslash, take char literally. But keep
5388 * backslash inside backticks, before a special character
5389 * and before a backtick. */
5391 || vim_strchr(SHELL_SPECIAL
, pat
[i
][j
+ 1]) != NULL
5392 || pat
[i
][j
+ 1] == '`')
5396 else if (!intick
&& vim_strchr(SHELL_SPECIAL
,
5398 /* Put a backslash before a special character, but not
5399 * when inside ``. */
5402 /* Copy one character. */
5408 if (flags
& EW_SILENT
)
5409 show_shell_mess
= FALSE
;
5411 STRCAT(command
, "&"); /* put the '&' after the redirection */
5414 * Using zsh -G: If a pattern has no matches, it is just deleted from
5415 * the argument list, otherwise zsh gives an error message and doesn't
5416 * expand any other pattern.
5418 if (shell_style
== STYLE_PRINT
)
5419 extra_shell_arg
= (char_u
*)"-G"; /* Use zsh NULL_GLOB option */
5422 * If we use -f then shell variables set in .cshrc won't get expanded.
5423 * vi can do it, so we will too, but it is only necessary if there is a "$"
5424 * in one of the patterns, otherwise we can still use the fast option.
5426 else if (shell_style
== STYLE_GLOB
&& !have_dollars(num_pat
, pat
))
5427 extra_shell_arg
= (char_u
*)"-f"; /* Use csh fast option */
5430 * execute the shell command
5432 i
= call_shell(command
, SHELL_EXPAND
| SHELL_SILENT
);
5434 /* When running in the background, give it some time to create the temp
5435 * file, but don't wait for it to finish. */
5437 mch_delay(10L, TRUE
);
5439 extra_shell_arg
= NULL
; /* cleanup */
5440 show_shell_mess
= TRUE
;
5443 if (i
!= 0) /* mch_call_shell() failed */
5445 mch_remove(tempname
);
5448 * With interactive completion, the error message is not printed.
5449 * However with USE_SYSTEM, I don't know how to turn off error messages
5450 * from the shell, so screen may still get messed up -- webb.
5453 if (!(flags
& EW_SILENT
))
5456 redraw_later_clear(); /* probably messed up screen */
5457 msg_putchar('\n'); /* clear bottom line quickly */
5458 cmdline_row
= Rows
- 1; /* continue on last line */
5460 if (!(flags
& EW_SILENT
))
5463 MSG(_(e_wildexpand
));
5464 msg_start(); /* don't overwrite this message */
5467 /* If a `cmd` expansion failed, don't list `cmd` as a match, even when
5468 * EW_NOTFOUND is given */
5469 if (shell_style
== STYLE_BT
)
5475 * read the names from the file into memory
5477 fd
= fopen((char *)tempname
, READBIN
);
5480 /* Something went wrong, perhaps a file name with a special char. */
5481 if (!(flags
& EW_SILENT
))
5483 MSG(_(e_wildexpand
));
5484 msg_start(); /* don't overwrite this message */
5489 fseek(fd
, 0L, SEEK_END
);
5490 len
= ftell(fd
); /* get size of temp file */
5491 fseek(fd
, 0L, SEEK_SET
);
5492 buffer
= alloc(len
+ 1);
5496 mch_remove(tempname
);
5501 i
= fread((char *)buffer
, 1, len
, fd
);
5503 mch_remove(tempname
);
5506 /* unexpected read error */
5507 EMSG2(_(e_notread
), tempname
);
5514 # if defined(__CYGWIN__) || defined(__CYGWIN32__)
5515 /* Translate <CR><NL> into <NL>. Caution, buffer may contain NUL. */
5517 for (i
= 0; i
< len
; ++i
)
5518 if (!(buffer
[i
] == CAR
&& buffer
[i
+ 1] == NL
))
5524 /* file names are separated with Space */
5525 if (shell_style
== STYLE_ECHO
)
5527 buffer
[len
] = '\n'; /* make sure the buffer ends in NL */
5529 for (i
= 0; *p
!= '\n'; ++i
) /* count number of entries */
5531 while (*p
!= ' ' && *p
!= '\n')
5533 p
= skipwhite(p
); /* skip to next entry */
5536 /* file names are separated with NL */
5537 else if (shell_style
== STYLE_BT
|| shell_style
== STYLE_VIMGLOB
)
5539 buffer
[len
] = NUL
; /* make sure the buffer ends in NUL */
5541 for (i
= 0; *p
!= NUL
; ++i
) /* count number of entries */
5543 while (*p
!= '\n' && *p
!= NUL
)
5547 p
= skipwhite(p
); /* skip leading white space */
5550 /* file names are separated with NUL */
5554 * Some versions of zsh use spaces instead of NULs to separate
5555 * results. Only do this when there is no NUL before the end of the
5556 * buffer, otherwise we would never be able to use file names with
5557 * embedded spaces when zsh does use NULs.
5558 * When we found a NUL once, we know zsh is OK, set did_find_nul and
5559 * don't check for spaces again.
5561 check_spaces
= FALSE
;
5562 if (shell_style
== STYLE_PRINT
&& !did_find_nul
)
5564 /* If there is a NUL, set did_find_nul, else set check_spaces */
5565 if (len
&& (int)STRLEN(buffer
) < len
- 1)
5566 did_find_nul
= TRUE
;
5568 check_spaces
= TRUE
;
5572 * Make sure the buffer ends with a NUL. For STYLE_PRINT there
5573 * already is one, for STYLE_GLOB it needs to be added.
5575 if (len
&& buffer
[len
- 1] == NUL
)
5580 for (p
= buffer
; p
< buffer
+ len
; ++p
)
5581 if (*p
== NUL
|| (*p
== ' ' && check_spaces
)) /* count entry */
5587 ++i
; /* count last entry */
5592 * Can happen when using /bin/sh and typing ":e $NO_SUCH_VAR^I".
5593 * /bin/sh will happily expand it to nothing rather than returning an
5594 * error; and hey, it's good to check anyway -- webb.
5600 *file
= (char_u
**)alloc(sizeof(char_u
*) * i
);
5609 * Isolate the individual file names.
5612 for (i
= 0; i
< *num_file
; ++i
)
5615 /* Space or NL separates */
5616 if (shell_style
== STYLE_ECHO
|| shell_style
== STYLE_BT
5617 || shell_style
== STYLE_VIMGLOB
)
5619 while (!(shell_style
== STYLE_ECHO
&& *p
== ' ')
5620 && *p
!= '\n' && *p
!= NUL
)
5622 if (p
== buffer
+ len
) /* last entry */
5627 p
= skipwhite(p
); /* skip to next entry */
5630 else /* NUL separates */
5632 while (*p
&& p
< buffer
+ len
) /* skip entry */
5639 * Move the file names to allocated memory.
5641 for (j
= 0, i
= 0; i
< *num_file
; ++i
)
5643 /* Require the files to exist. Helps when using /bin/sh */
5644 if (!(flags
& EW_NOTFOUND
) && mch_getperm((*file
)[i
]) < 0)
5647 /* check if this entry should be included */
5648 dir
= (mch_isdir((*file
)[i
]));
5649 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5652 /* Skip files that are not executable if we check for that. */
5653 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe((*file
)[i
]))
5656 p
= alloc((unsigned)(STRLEN((*file
)[i
]) + 1 + dir
));
5659 STRCPY(p
, (*file
)[i
]);
5661 add_pathsep(p
); /* add '/' to a directory name */
5668 if (*num_file
== 0) /* rejected all entries */
5678 if (flags
& EW_NOTFOUND
)
5679 return save_patterns(num_pat
, pat
, num_file
, file
);
5682 #endif /* __EMX__ */
5689 save_patterns(num_pat
, pat
, num_file
, file
)
5698 *file
= (char_u
**)alloc(num_pat
* sizeof(char_u
*));
5701 for (i
= 0; i
< num_pat
; i
++)
5703 s
= vim_strsave(pat
[i
]);
5705 /* Be compatible with expand_filename(): halve the number of
5710 *num_file
= num_pat
;
5717 * Return TRUE if the string "p" contains a wildcard that mch_expandpath() can
5721 mch_has_exp_wildcard(p
)
5724 for ( ; *p
; mb_ptr_adv(p
))
5727 if (*p
== '\\' && p
[1] != NUL
)
5731 if (vim_strchr((char_u
*)
5748 * Return TRUE if the string "p" contains a wildcard.
5749 * Don't recognize '~' at the end as a wildcard.
5755 for ( ; *p
; mb_ptr_adv(p
))
5758 if (*p
== '\\' && p
[1] != NUL
)
5762 if (vim_strchr((char_u
*)
5767 # ifdef VIM_BACKTICK
5777 || (*p
== '~' && p
[1] != NUL
))
5785 have_wildcard(num
, file
)
5791 for (i
= 0; i
< num
; i
++)
5792 if (mch_has_wildcard(file
[i
]))
5798 have_dollars(num
, file
)
5804 for (i
= 0; i
< num
; i
++)
5805 if (vim_strchr(file
[i
], '$') != NULL
)
5809 #endif /* ifndef __EMX__ */
5813 * Scaled-down version of rename(), which is missing in Xenix.
5814 * This version can only move regular files and will fail if the
5815 * destination exists.
5818 mch_rename(src
, dest
)
5819 const char *src
, *dest
;
5823 if (stat(dest
, &st
) >= 0) /* fail if destination exists */
5825 if (link(src
, dest
) != 0) /* link file to new name */
5827 if (mch_remove(src
) == 0) /* delete link to old name */
5831 #endif /* !HAVE_RENAME */
5833 #ifdef FEAT_MOUSE_GPM
5835 * Initializes connection with gpm (if it isn't already opened)
5836 * Return 1 if succeeded (or connection already opened), 0 if failed
5841 static Gpm_Connect gpm_connect
; /* Must it be kept till closing ? */
5845 gpm_connect
.eventMask
= (GPM_UP
| GPM_DRAG
| GPM_DOWN
);
5846 gpm_connect
.defaultMask
= ~GPM_HARD
;
5847 /* Default handling for mouse move*/
5848 gpm_connect
.minMod
= 0; /* Handle any modifier keys */
5849 gpm_connect
.maxMod
= 0xffff;
5850 if (Gpm_Open(&gpm_connect
, 0) > 0)
5852 /* gpm library tries to handling TSTP causes
5853 * problems. Anyways, we close connection to Gpm whenever
5854 * we are going to suspend or starting an external process
5855 * so we shouldn't have problem with this
5857 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
5858 return 1; /* succeed */
5861 Gpm_Close(); /* We don't want to talk to xterm via gpm */
5864 return 1; /* already open */
5868 * Closes connection to gpm
5873 if (gpm_flag
&& gpm_fd
>= 0) /* if Open */
5877 /* Reads gpm event and adds special keys to input buf. Returns length of
5878 * generated key sequence.
5879 * This function is made after gui_send_mouse_event
5885 static Gpm_Event gpm_event
;
5887 int_u vim_modifiers
;
5889 unsigned char buttons_mask
;
5890 unsigned char gpm_modifiers
;
5891 static unsigned char old_buttons
= 0;
5893 Gpm_GetEvent(&gpm_event
);
5896 /* Don't put events in the input queue now. */
5897 if (hold_gui_events
)
5901 row
= gpm_event
.y
- 1;
5902 col
= gpm_event
.x
- 1;
5904 string
[0] = ESC
; /* Our termcode */
5907 switch (GPM_BARE_EVENTS(gpm_event
.type
))
5910 string
[3] = MOUSE_DRAG
;
5913 buttons_mask
= gpm_event
.buttons
& ~old_buttons
;
5914 old_buttons
= gpm_event
.buttons
;
5915 switch (buttons_mask
)
5918 button
= MOUSE_LEFT
;
5921 button
= MOUSE_MIDDLE
;
5924 button
= MOUSE_RIGHT
;
5928 /*Don't know what to do. Can more than one button be
5929 * reported in one event? */
5931 string
[3] = (char_u
)(button
| 0x20);
5932 SET_NUM_MOUSE_CLICKS(string
[3], gpm_event
.clicks
+ 1);
5935 string
[3] = MOUSE_RELEASE
;
5936 old_buttons
&= ~gpm_event
.buttons
;
5941 /*This code is based on gui_x11_mouse_cb in gui_x11.c */
5942 gpm_modifiers
= gpm_event
.modifiers
;
5943 vim_modifiers
= 0x0;
5944 /* I ignore capslock stats. Aren't we all just hate capslock mixing with
5945 * Vim commands ? Besides, gpm_event.modifiers is unsigned char, and
5946 * K_CAPSSHIFT is defined 8, so it probably isn't even reported
5948 if (gpm_modifiers
& ((1 << KG_SHIFT
) | (1 << KG_SHIFTR
) | (1 << KG_SHIFTL
)))
5949 vim_modifiers
|= MOUSE_SHIFT
;
5951 if (gpm_modifiers
& ((1 << KG_CTRL
) | (1 << KG_CTRLR
) | (1 << KG_CTRLL
)))
5952 vim_modifiers
|= MOUSE_CTRL
;
5953 if (gpm_modifiers
& ((1 << KG_ALT
) | (1 << KG_ALTGR
)))
5954 vim_modifiers
|= MOUSE_ALT
;
5955 string
[3] |= vim_modifiers
;
5956 string
[4] = (char_u
)(col
+ ' ' + 1);
5957 string
[5] = (char_u
)(row
+ ' ' + 1);
5958 add_to_input_buf(string
, 6);
5961 #endif /* FEAT_MOUSE_GPM */
5963 #ifdef FEAT_SYSMOUSE
5965 * Initialize connection with sysmouse.
5966 * Let virtual console inform us with SIGUSR2 for pending sysmouse
5967 * output, any sysmouse output than will be processed via sig_sysmouse().
5968 * Return OK if succeeded, FAIL if failed.
5973 struct mouse_info mouse
;
5975 mouse
.operation
= MOUSE_MODE
;
5976 mouse
.u
.mode
.mode
= 0;
5977 mouse
.u
.mode
.signal
= SIGUSR2
;
5978 if (ioctl(1, CONS_MOUSECTL
, &mouse
) != -1)
5980 signal(SIGUSR2
, (RETSIGTYPE (*)())sig_sysmouse
);
5981 mouse
.operation
= MOUSE_SHOW
;
5982 ioctl(1, CONS_MOUSECTL
, &mouse
);
5989 * Stop processing SIGUSR2 signals, and also make sure that
5990 * virtual console do not send us any sysmouse related signal.
5995 struct mouse_info mouse
;
5997 signal(SIGUSR2
, restricted
? SIG_IGN
: SIG_DFL
);
5998 mouse
.operation
= MOUSE_MODE
;
5999 mouse
.u
.mode
.mode
= 0;
6000 mouse
.u
.mode
.signal
= 0;
6001 ioctl(1, CONS_MOUSECTL
, &mouse
);
6005 * Gets info from sysmouse and adds special keys to input buf.
6009 sig_sysmouse
SIGDEFARG(sigarg
)
6011 struct mouse_info mouse
;
6012 struct video_info video
;
6017 static int oldbuttons
= 0;
6020 /* Don't put events in the input queue now. */
6021 if (hold_gui_events
)
6025 mouse
.operation
= MOUSE_GETINFO
;
6026 if (ioctl(1, FBIO_GETMODE
, &video
.vi_mode
) != -1
6027 && ioctl(1, FBIO_MODEINFO
, &video
) != -1
6028 && ioctl(1, CONS_MOUSECTL
, &mouse
) != -1
6029 && video
.vi_cheight
> 0 && video
.vi_cwidth
> 0)
6031 row
= mouse
.u
.data
.y
/ video
.vi_cheight
;
6032 col
= mouse
.u
.data
.x
/ video
.vi_cwidth
;
6033 buttons
= mouse
.u
.data
.buttons
;
6034 string
[0] = ESC
; /* Our termcode */
6037 if (oldbuttons
== buttons
&& buttons
!= 0)
6039 button
= MOUSE_DRAG
;
6046 button
= MOUSE_RELEASE
;
6049 button
= MOUSE_LEFT
;
6052 button
= MOUSE_MIDDLE
;
6055 button
= MOUSE_RIGHT
;
6060 oldbuttons
= buttons
;
6062 string
[3] = (char_u
)(button
);
6063 string
[4] = (char_u
)(col
+ ' ' + 1);
6064 string
[5] = (char_u
)(row
+ ' ' + 1);
6065 add_to_input_buf(string
, 6);
6069 #endif /* FEAT_SYSMOUSE */
6071 #if defined(FEAT_LIBCALL) || defined(PROTO)
6072 typedef char_u
* (*STRPROCSTR
)__ARGS((char_u
*));
6073 typedef char_u
* (*INTPROCSTR
)__ARGS((int));
6074 typedef int (*STRPROCINT
)__ARGS((char_u
*));
6075 typedef int (*INTPROCINT
)__ARGS((int));
6078 * Call a DLL routine which takes either a string or int param
6079 * and returns an allocated string.
6082 mch_libcall(libname
, funcname
, argstring
, argint
, string_result
, number_result
)
6085 char_u
*argstring
; /* NULL when using a argint */
6087 char_u
**string_result
;/* NULL when using number_result */
6090 # if defined(USE_DLOPEN)
6097 INTPROCSTR ProcAddI
;
6098 char_u
*retval_str
= NULL
;
6100 int success
= FALSE
;
6103 * Get a handle to the DLL module.
6105 # if defined(USE_DLOPEN)
6106 /* First clear any error, it's not cleared by the dlopen() call. */
6109 hinstLib
= dlopen((char *)libname
, RTLD_LAZY
6114 if (hinstLib
== NULL
)
6116 /* "dlerr" must be used before dlclose() */
6117 dlerr
= (char *)dlerror();
6119 EMSG2(_("dlerror = \"%s\""), dlerr
);
6122 hinstLib
= shl_load((const char*)libname
, BIND_IMMEDIATE
|BIND_VERBOSE
, 0L);
6125 /* If the handle is valid, try to get the function address. */
6126 if (hinstLib
!= NULL
)
6128 # ifdef HAVE_SETJMP_H
6130 * Catch a crash when calling the library function. For example when
6131 * using a number where a string pointer is expected.
6134 if (SETJMP(lc_jump_env
) != 0)
6137 # if defined(USE_DLOPEN)
6148 if (argstring
!= NULL
)
6150 # if defined(USE_DLOPEN)
6151 ProcAdd
= (STRPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
6152 dlerr
= (char *)dlerror();
6154 if (shl_findsym(&hinstLib
, (const char *)funcname
,
6155 TYPE_PROCEDURE
, (void *)&ProcAdd
) < 0)
6158 if ((success
= (ProcAdd
!= NULL
6159 # if defined(USE_DLOPEN)
6164 if (string_result
== NULL
)
6165 retval_int
= ((STRPROCINT
)ProcAdd
)(argstring
);
6167 retval_str
= (ProcAdd
)(argstring
);
6172 # if defined(USE_DLOPEN)
6173 ProcAddI
= (INTPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
6174 dlerr
= (char *)dlerror();
6176 if (shl_findsym(&hinstLib
, (const char *)funcname
,
6177 TYPE_PROCEDURE
, (void *)&ProcAddI
) < 0)
6180 if ((success
= (ProcAddI
!= NULL
6181 # if defined(USE_DLOPEN)
6186 if (string_result
== NULL
)
6187 retval_int
= ((INTPROCINT
)ProcAddI
)(argint
);
6189 retval_str
= (ProcAddI
)(argint
);
6193 /* Save the string before we free the library. */
6194 /* Assume that a "1" or "-1" result is an illegal pointer. */
6195 if (string_result
== NULL
)
6196 *number_result
= retval_int
;
6197 else if (retval_str
!= NULL
6198 && retval_str
!= (char_u
*)1
6199 && retval_str
!= (char_u
*)-1)
6200 *string_result
= vim_strsave(retval_str
);
6203 # ifdef HAVE_SETJMP_H
6210 /* try to find the name of this signal */
6211 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
6212 if (lc_signal
== signal_info
[i
].sig
)
6214 EMSG2("E368: got SIG%s in libcall()", signal_info
[i
].name
);
6219 # if defined(USE_DLOPEN)
6220 /* "dlerr" must be used before dlclose() */
6222 EMSG2(_("dlerror = \"%s\""), dlerr
);
6224 /* Free the DLL module. */
6225 (void)dlclose(hinstLib
);
6227 (void)shl_unload(hinstLib
);
6233 EMSG2(_(e_libcall
), funcname
);
6241 #if (defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) || defined(PROTO)
6242 static int xterm_trace
= -1; /* default: disabled */
6243 static int xterm_button
;
6246 * Setup a dummy window for X selections in a terminal.
6255 if (!x_connect_to_server())
6259 if (app_context
!= NULL
&& xterm_Shell
== (Widget
)0)
6261 int (*oldhandler
)();
6262 #if defined(HAVE_SETJMP_H)
6263 int (*oldIOhandler
)();
6265 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6266 struct timeval start_tv
;
6269 gettimeofday(&start_tv
, NULL
);
6272 /* Ignore X errors while opening the display */
6273 oldhandler
= XSetErrorHandler(x_error_check
);
6275 #if defined(HAVE_SETJMP_H)
6276 /* Ignore X IO errors while opening the display */
6277 oldIOhandler
= XSetIOErrorHandler(x_IOerror_check
);
6279 if (SETJMP(lc_jump_env
) != 0)
6287 xterm_dpy
= XtOpenDisplay(app_context
, xterm_display
,
6288 "vim_xterm", "Vim_xterm", NULL
, 0, &z
, &strp
);
6289 #if defined(HAVE_SETJMP_H)
6294 #if defined(HAVE_SETJMP_H)
6295 /* Now handle X IO errors normally. */
6296 (void)XSetIOErrorHandler(oldIOhandler
);
6298 /* Now handle X errors normally. */
6299 (void)XSetErrorHandler(oldhandler
);
6301 if (xterm_dpy
== NULL
)
6304 verb_msg((char_u
*)_("Opening the X display failed"));
6308 /* Catch terminating error of the X server connection. */
6309 (void)XSetIOErrorHandler(x_IOerror_handler
);
6311 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6315 xopen_message(&start_tv
);
6320 /* Create a Shell to make converters work. */
6321 AppShell
= XtVaAppCreateShell("vim_xterm", "Vim_xterm",
6322 applicationShellWidgetClass
, xterm_dpy
,
6324 if (AppShell
== (Widget
)0)
6326 xterm_Shell
= XtVaCreatePopupShell("VIM",
6327 topLevelShellWidgetClass
, AppShell
,
6328 XtNmappedWhenManaged
, 0,
6332 if (xterm_Shell
== (Widget
)0)
6335 x11_setup_atoms(xterm_dpy
);
6336 if (x11_display
== NULL
)
6337 x11_display
= xterm_dpy
;
6339 XtRealizeWidget(xterm_Shell
);
6340 XSync(xterm_dpy
, False
);
6343 if (xterm_Shell
!= (Widget
)0)
6346 if (x11_window
== 0 && (strp
= getenv("WINDOWID")) != NULL
)
6347 x11_window
= (Window
)atol(strp
);
6348 /* Check if $WINDOWID is valid. */
6349 if (test_x11_window(xterm_dpy
) == FAIL
)
6351 if (x11_window
!= 0)
6357 start_xterm_trace(button
)
6360 if (x11_window
== 0 || xterm_trace
< 0 || xterm_Shell
== (Widget
)0)
6363 xterm_button
= button
;
6371 if (xterm_trace
< 0)
6377 * Query the xterm pointer and generate mouse termcodes if necessary
6378 * return TRUE if dragging is active, else FALSE
6391 static char_u
*mouse_code
;
6392 static char_u mouse_name
[2] = {KS_MOUSE
, KE_FILLER
};
6393 static int prev_row
= 0, prev_col
= 0;
6394 static XSizeHints xterm_hints
;
6396 if (xterm_trace
<= 0)
6399 if (xterm_trace
== 1)
6401 /* Get the hints just before tracking starts. The font size might
6402 * have changed recently. */
6403 if (!XGetWMNormalHints(xterm_dpy
, x11_window
, &xterm_hints
, &got_hints
)
6404 || !(got_hints
& PResizeInc
)
6405 || xterm_hints
.width_inc
<= 1
6406 || xterm_hints
.height_inc
<= 1)
6408 xterm_trace
= -1; /* Not enough data -- disable tracing */
6412 /* Rely on the same mouse code for the duration of this */
6413 mouse_code
= find_termcode(mouse_name
);
6414 prev_row
= mouse_row
;
6415 prev_row
= mouse_col
;
6418 /* Find the offset of the chars, there might be a scrollbar on the
6419 * left of the window and/or a menu on the top (eterm etc.) */
6420 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6421 &win_x
, &win_y
, &mask_return
);
6422 xterm_hints
.y
= win_y
- (xterm_hints
.height_inc
* mouse_row
)
6423 - (xterm_hints
.height_inc
/ 2);
6424 if (xterm_hints
.y
<= xterm_hints
.height_inc
/ 2)
6426 xterm_hints
.x
= win_x
- (xterm_hints
.width_inc
* mouse_col
)
6427 - (xterm_hints
.width_inc
/ 2);
6428 if (xterm_hints
.x
<= xterm_hints
.width_inc
/ 2)
6432 if (mouse_code
== NULL
)
6438 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6439 &win_x
, &win_y
, &mask_return
);
6441 row
= check_row((win_y
- xterm_hints
.y
) / xterm_hints
.height_inc
);
6442 col
= check_col((win_x
- xterm_hints
.x
) / xterm_hints
.width_inc
);
6443 if (row
== prev_row
&& col
== prev_col
)
6446 STRCPY(buf
, mouse_code
);
6447 strp
= buf
+ STRLEN(buf
);
6448 *strp
++ = (xterm_button
| MOUSE_DRAG
) & ~0x20;
6449 *strp
++ = (char_u
)(col
+ ' ' + 1);
6450 *strp
++ = (char_u
)(row
+ ' ' + 1);
6452 add_to_input_buf(buf
, STRLEN(buf
));
6459 # if defined(FEAT_GUI) || defined(PROTO)
6461 * Destroy the display, window and app_context. Required for GTK.
6466 if (xterm_Shell
!= (Widget
)0)
6468 XtDestroyWidget(xterm_Shell
);
6469 xterm_Shell
= (Widget
)0;
6471 if (xterm_dpy
!= NULL
)
6474 /* Lesstif and Solaris crash here, lose some memory */
6475 XtCloseDisplay(xterm_dpy
);
6477 if (x11_display
== xterm_dpy
)
6482 if (app_context
!= (XtAppContext
)NULL
)
6484 /* Lesstif and Solaris crash here, lose some memory */
6485 XtDestroyApplicationContext(app_context
);
6486 app_context
= (XtAppContext
)NULL
;
6493 * Catch up with any queued X events. This may put keyboard input into the
6494 * input buffer, call resize call-backs, trigger timers etc. If there is
6495 * nothing in the X event queue (& no timers pending), then we return
6503 while (XtAppPending(app_context
) && !vim_is_input_buf_full())
6505 XtAppNextEvent(app_context
, &event
);
6506 #ifdef FEAT_CLIENTSERVER
6508 XPropertyEvent
*e
= (XPropertyEvent
*)&event
;
6510 if (e
->type
== PropertyNotify
&& e
->window
== commWindow
6511 && e
->atom
== commProperty
&& e
->state
== PropertyNewValue
)
6512 serverEventProc(xterm_dpy
, &event
);
6515 XtDispatchEvent(&event
);
6520 clip_xterm_own_selection(cbd
)
6523 if (xterm_Shell
!= (Widget
)0)
6524 return clip_x11_own_selection(xterm_Shell
, cbd
);
6529 clip_xterm_lose_selection(cbd
)
6532 if (xterm_Shell
!= (Widget
)0)
6533 clip_x11_lose_selection(xterm_Shell
, cbd
);
6537 clip_xterm_request_selection(cbd
)
6540 if (xterm_Shell
!= (Widget
)0)
6541 clip_x11_request_selection(xterm_Shell
, xterm_dpy
, cbd
);
6545 clip_xterm_set_selection(cbd
)
6548 clip_x11_set_selection(cbd
);
6553 #if defined(USE_XSMP) || defined(PROTO)
6555 * Code for X Session Management Protocol.
6557 static void xsmp_handle_save_yourself
__ARGS((SmcConn smc_conn
, SmPointer client_data
, int save_type
, Bool shutdown
, int interact_style
, Bool fast
));
6558 static void xsmp_die
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6559 static void xsmp_save_complete
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6560 static void xsmp_shutdown_cancelled
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6561 static void xsmp_ice_connection
__ARGS((IceConn iceConn
, IcePointer clientData
, Bool opening
, IcePointer
*watchData
));
6564 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6565 static void xsmp_handle_interaction
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6568 * This is our chance to ask the user if they want to save,
6569 * or abort the logout
6573 xsmp_handle_interaction(smc_conn
, client_data
)
6575 SmPointer client_data
;
6577 cmdmod_T save_cmdmod
;
6578 int cancel_shutdown
= False
;
6580 save_cmdmod
= cmdmod
;
6581 cmdmod
.confirm
= TRUE
;
6582 if (check_changed_any(FALSE
))
6583 /* Mustn't logout */
6584 cancel_shutdown
= True
;
6585 cmdmod
= save_cmdmod
;
6586 setcursor(); /* position cursor */
6589 /* Done interaction */
6590 SmcInteractDone(smc_conn
, cancel_shutdown
);
6593 * Only end save-yourself here if we're not cancelling shutdown;
6594 * we'll get a cancelled callback later in which we'll end it.
6595 * Hopefully get around glitchy SMs (like GNOME-1)
6597 if (!cancel_shutdown
)
6599 xsmp
.save_yourself
= False
;
6600 SmcSaveYourselfDone(smc_conn
, True
);
6606 * Callback that starts save-yourself.
6610 xsmp_handle_save_yourself(smc_conn
, client_data
, save_type
,
6611 shutdown
, interact_style
, fast
)
6613 SmPointer client_data
;
6619 /* Handle already being in saveyourself */
6620 if (xsmp
.save_yourself
)
6621 SmcSaveYourselfDone(smc_conn
, True
);
6622 xsmp
.save_yourself
= True
;
6623 xsmp
.shutdown
= shutdown
;
6625 /* First up, preserve all files */
6627 ml_sync_all(FALSE
, FALSE
); /* preserve all swap files */
6630 verb_msg((char_u
*)_("XSMP handling save-yourself request"));
6632 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6633 /* Now see if we can ask about unsaved files */
6634 if (shutdown
&& !fast
&& gui
.in_use
)
6635 /* Need to interact with user, but need SM's permission */
6636 SmcInteractRequest(smc_conn
, SmDialogError
,
6637 xsmp_handle_interaction
, client_data
);
6641 /* Can stop the cycle here */
6642 SmcSaveYourselfDone(smc_conn
, True
);
6643 xsmp
.save_yourself
= False
;
6649 * Callback to warn us of imminent death.
6653 xsmp_die(smc_conn
, client_data
)
6655 SmPointer client_data
;
6659 /* quit quickly leaving swapfiles for modified buffers behind */
6660 getout_preserve_modified(0);
6665 * Callback to tell us that save-yourself has completed.
6669 xsmp_save_complete(smc_conn
, client_data
)
6671 SmPointer client_data
;
6673 xsmp
.save_yourself
= False
;
6678 * Callback to tell us that an instigated shutdown was cancelled
6679 * (maybe even by us)
6683 xsmp_shutdown_cancelled(smc_conn
, client_data
)
6685 SmPointer client_data
;
6687 if (xsmp
.save_yourself
)
6688 SmcSaveYourselfDone(smc_conn
, True
);
6689 xsmp
.save_yourself
= False
;
6690 xsmp
.shutdown
= False
;
6695 * Callback to tell us that a new ICE connection has been established.
6699 xsmp_ice_connection(iceConn
, clientData
, opening
, watchData
)
6701 IcePointer clientData
;
6703 IcePointer
*watchData
;
6705 /* Intercept creation of ICE connection fd */
6708 xsmp_icefd
= IceConnectionNumber(iceConn
);
6709 IceRemoveConnectionWatch(xsmp_ice_connection
, NULL
);
6714 /* Handle any ICE processing that's required; return FAIL if SM lost */
6716 xsmp_handle_requests()
6720 if (IceProcessMessages(xsmp
.iceconn
, NULL
, &rep
)
6721 == IceProcessMessagesIOError
)
6725 verb_msg((char_u
*)_("XSMP lost ICE connection"));
6735 /* Set up X Session Management Protocol */
6739 char errorstring
[80];
6740 SmcCallbacks smcallbacks
;
6748 verb_msg((char_u
*)_("XSMP opening connection"));
6750 xsmp
.save_yourself
= xsmp
.shutdown
= False
;
6752 /* Set up SM callbacks - must have all, even if they're not used */
6753 smcallbacks
.save_yourself
.callback
= xsmp_handle_save_yourself
;
6754 smcallbacks
.save_yourself
.client_data
= NULL
;
6755 smcallbacks
.die
.callback
= xsmp_die
;
6756 smcallbacks
.die
.client_data
= NULL
;
6757 smcallbacks
.save_complete
.callback
= xsmp_save_complete
;
6758 smcallbacks
.save_complete
.client_data
= NULL
;
6759 smcallbacks
.shutdown_cancelled
.callback
= xsmp_shutdown_cancelled
;
6760 smcallbacks
.shutdown_cancelled
.client_data
= NULL
;
6762 /* Set up a watch on ICE connection creations. The "dummy" argument is
6763 * apparently required for FreeBSD (we get a BUS error when using NULL). */
6764 if (IceAddConnectionWatch(xsmp_ice_connection
, &dummy
) == 0)
6767 verb_msg((char_u
*)_("XSMP ICE connection watch failed"));
6771 /* Create an SM connection */
6772 xsmp
.smcconn
= SmcOpenConnection(
6777 SmcSaveYourselfProcMask
| SmcDieProcMask
6778 | SmcSaveCompleteProcMask
| SmcShutdownCancelledProcMask
,
6782 sizeof(errorstring
),
6784 if (xsmp
.smcconn
== NULL
)
6786 char errorreport
[132];
6790 vim_snprintf(errorreport
, sizeof(errorreport
),
6791 _("XSMP SmcOpenConnection failed: %s"), errorstring
);
6792 verb_msg((char_u
*)errorreport
);
6796 xsmp
.iceconn
= SmcGetIceConnection(xsmp
.smcconn
);
6800 smname
.value
= "vim";
6802 smnameprop
.name
= "SmProgram";
6803 smnameprop
.type
= "SmARRAY8";
6804 smnameprop
.num_vals
= 1;
6805 smnameprop
.vals
= &smname
;
6807 smprops
[0] = &smnameprop
;
6808 SmcSetProperties(xsmp
.smcconn
, 1, smprops
);
6813 /* Shut down XSMP comms. */
6817 if (xsmp_icefd
!= -1)
6819 SmcCloseConnection(xsmp
.smcconn
, 0, NULL
);
6820 if (xsmp
.clientid
!= NULL
)
6821 free(xsmp
.clientid
);
6822 xsmp
.clientid
= NULL
;
6826 #endif /* USE_XSMP */
6830 /* Translate character to its CTRL- value */
6834 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6835 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6836 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6837 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6838 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6839 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6843 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6846 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6857 0, 0, 0, 0, 0, 0, 0,
6868 0, 0, 0, 0, 0, 0, 0, 0,
6881 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6883 /* BE - C0 */ 0, 0, 0,
6893 /* CA - D0 */ 0, 0, 0, 0, 0, 0, 0,
6903 /* DA - DF */ 0, 0, 0, 0, 0, 0,
6914 /* EA - FF*/ 0, 0, 0, 0, 0, 0,
6915 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6918 char MetaCharTable
[]=
6919 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
6920 0, 0, 0, 0,'\\', 0,'F', 0,'W','M','N', 0, 0, 0, 0, 0,
6921 0, 0, 0, 0,']', 0, 0,'G', 0, 0,'R','O', 0, 0, 0, 0,
6922 '@','A','B','C','D','E', 0, 0,'H','I','J','K','L', 0, 0, 0,
6923 'P','Q', 0,'S','T','U','V', 0,'X','Y','Z','[', 0, 0,'^', 0
6927 /* TODO: Use characters NOT numbers!!! */
6928 char CtrlCharTable
[]=
6929 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
6930 124,193,194,195, 0,201, 0, 0, 0, 0, 0,210,211,212,213,214,
6931 215,216,217,226, 0,209,200, 0,231,232, 0, 0,224,189, 95,109,
6932 0, 0, 0, 0, 0, 0,230,173, 0, 0, 0, 0, 0,197,198,199,
6933 0, 0,229, 0, 0, 0, 0,196, 0, 0, 0, 0,227,228, 0,233,