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 #ifdef HAVE_UNION_WAIT
158 typedef union wait waitstatus;
160 typedef int waitstatus;
162 static pid_t wait4pid __ARGS((pid_t, waitstatus *));
164 static int WaitForChar __ARGS((long));
165 #if defined(__BEOS__)
166 int RealWaitForChar __ARGS((int, long, int *));
168 static int RealWaitForChar __ARGS((int, long, int *));
171 #ifdef FEAT_XCLIPBOARD
172 static int do_xterm_trace __ARGS((void));
173 # define XT_TRACE_DELAY 50 /* delay for xterm tracing */
176 static void handle_resize __ARGS((void));
178 #if defined(SIGWINCH)
179 static RETSIGTYPE sig_winch __ARGS(SIGPROTOARG);
182 static RETSIGTYPE catch_sigint __ARGS(SIGPROTOARG);
185 static RETSIGTYPE catch_sigpwr __ARGS(SIGPROTOARG);
187 #if defined(SIGALRM) && defined(FEAT_X11) \
188 && defined(FEAT_TITLE) && !defined(FEAT_GUI_GTK)
189 # define SET_SIG_ALARM
190 static RETSIGTYPE sig_alarm __ARGS(SIGPROTOARG);
191 /* volatile because it is used in signal handler sig_alarm(). */
192 static volatile int sig_alarm_called;
194 static RETSIGTYPE deathtrap __ARGS(SIGPROTOARG);
196 static void catch_int_signal __ARGS((void));
197 static void set_signals __ARGS((void));
198 static void catch_signals __ARGS((RETSIGTYPE (*func_deadly)(), RETSIGTYPE (*func_other)()));
200 static int have_wildcard __ARGS((int, char_u **));
201 static int have_dollars __ARGS((int, char_u **));
205 static int save_patterns __ARGS((int num_pat, char_u **pat, int *num_file, char_u ***file));
209 # define SIG_ERR ((RETSIGTYPE (*)())-1)
212 /* volatile because it is used in signal handler sig_winch(). */
213 static volatile int do_resize = FALSE;
215 static char_u *extra_shell_arg = NULL;
216 static int show_shell_mess = TRUE;
218 /* volatile because it is used in signal handler deathtrap(). */
219 static volatile int deadly_signal = 0; /* The signal we caught */
220 /* volatile because it is used in signal handler deathtrap(). */
221 static volatile int in_mch_delay = FALSE; /* sleeping in mch_delay() */
223 static int curr_tmode = TMODE_COOK; /* contains current terminal mode */
228 SmcConn smcconn; /* The SM connection ID */
229 IceConn iceconn; /* The ICE connection ID */
230 char *clientid; /* The client ID for the current smc session */
231 Bool save_yourself; /* If we're in the middle of a save_yourself */
232 Bool shutdown; /* If we're in shutdown mode */
235 static xsmp_config_T xsmp;
238 #ifdef SYS_SIGLIST_DECLARED
241 * extern char *_sys_siglist[NSIG];
242 * on Irix, Linux, NetBSD and Solaris. It contains a nice list of strings
243 * that describe the signals. That is nearly what we want here. But
244 * autoconf does only check for sys_siglist (without the underscore), I
245 * do not want to change everything today.... jw.
246 * This is why AC_DECL_SYS_SIGLIST is commented out in configure.in
250 static struct signalinfo
252 int sig; /* Signal number, eg. SIGSEGV etc */
253 char *name; /* Signal name (not char_u!). */
254 char deadly; /* Catch as a deadly signal? */
258 {SIGHUP, "HUP", TRUE},
261 {SIGQUIT, "QUIT", TRUE},
264 {SIGILL, "ILL", TRUE},
267 {SIGTRAP, "TRAP", TRUE},
270 {SIGABRT, "ABRT", TRUE},
273 {SIGEMT, "EMT", TRUE},
276 {SIGFPE, "FPE", TRUE},
279 {SIGBUS, "BUS", TRUE},
282 {SIGSEGV, "SEGV", TRUE},
285 {SIGSYS, "SYS", TRUE},
288 {SIGALRM, "ALRM", FALSE}, /* Perl's alarm() can trigger it */
291 {SIGTERM, "TERM", TRUE},
293 #if defined(SIGVTALRM) && !defined(FEAT_RUBY)
294 {SIGVTALRM, "VTALRM", TRUE},
296 #if defined(SIGPROF) && !defined(FEAT_MZSCHEME) && !defined(WE_ARE_PROFILING)
297 /* MzScheme uses SIGPROF for its own needs; On Linux with profiling
298 * this makes Vim exit. WE_ARE_PROFILING is defined in Makefile. */
299 {SIGPROF, "PROF", TRUE},
302 {SIGXCPU, "XCPU", TRUE},
305 {SIGXFSZ, "XFSZ", TRUE},
308 {SIGUSR1, "USR1", TRUE},
310 #if defined(SIGUSR2) && !defined(FEAT_SYSMOUSE)
311 /* Used for sysmouse handling */
312 {SIGUSR2, "USR2", TRUE},
315 {SIGINT, "INT", FALSE},
318 {SIGWINCH, "WINCH", FALSE},
321 {SIGTSTP, "TSTP", FALSE},
324 {SIGPIPE, "PIPE", FALSE},
326 {-1, "Unknown!", FALSE}
336 smsg((char_u *)"chdir(%s)", path);
340 return chdir(vms_fixfilename(path));
347 * Write s[len] to the screen.
354 ignored = (int)write(1, (char *)s, len);
355 if (p_wd) /* Unix is too fast, slow down a bit more */
356 RealWaitForChar(read_cmd_fd, p_wd, NULL);
360 * mch_inchar(): low level input function.
361 * Get a characters from the keyboard.
362 * Return the number of characters that are available.
363 * If wtime == 0 do not wait for characters.
364 * If wtime == n wait a short time for characters.
365 * If wtime == -1 wait forever for characters.
368 mch_inchar(buf, maxlen, wtime, tb_change_cnt)
371 long wtime; /* don't use "time", MIPS cannot handle it */
376 #ifdef FEAT_NETBEANS_INTG
377 /* Process the queued netbeans messages. */
378 netbeans_parse_messages();
381 /* Check if window changed size while we were busy, perhaps the ":set
382 * columns=99" command was used. */
388 while (WaitForChar(wtime) == 0) /* no character available */
390 if (!do_resize) /* return if not interrupted by resize */
393 #ifdef FEAT_NETBEANS_INTG
394 /* Process the queued netbeans messages. */
395 netbeans_parse_messages();
399 else /* wtime == -1 */
402 * If there is no character available within 'updatetime' seconds
403 * flush all the swap files to disk.
404 * Also done when interrupted by SIGWINCH.
406 if (WaitForChar(p_ut) == 0)
409 if (trigger_cursorhold() && maxlen >= 3
410 && !typebuf_changed(tb_change_cnt))
414 buf[2] = (int)KE_CURSORHOLD;
422 for (;;) /* repeat until we got a character */
424 while (do_resize) /* window changed size */
427 #ifdef FEAT_NETBEANS_INTG
428 /* Process the queued netbeans messages. */
429 netbeans_parse_messages();
431 #ifndef VMS /* VMS: must try reading, WaitForChar() does nothing. */
433 * We want to be interrupted by the winch signal
434 * or by an event on the monitored file descriptors.
436 if (WaitForChar(-1L) == 0)
438 if (do_resize) /* interrupted by SIGWINCH signal */
444 /* If input was put directly in typeahead buffer bail out here. */
445 if (typebuf_changed(tb_change_cnt))
449 * For some terminals we only get one character at a time.
450 * We want the get all available characters, so we could keep on
451 * trying until none is available
452 * For some other terminals this is quite slow, that's why we don't do
455 len = read_from_input_buf(buf, (long)maxlen);
461 for (i = 0; i < len; i++)
478 * return non-zero if a character is available
483 return WaitForChar(0L);
486 #if defined(HAVE_TOTAL_MEM) || defined(PROTO)
487 # ifdef HAVE_SYS_RESOURCE_H
488 # include <sys/resource.h>
490 # if defined(HAVE_SYS_SYSCTL_H) && defined(HAVE_SYSCTL)
491 # include <sys/sysctl.h>
493 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
494 # include <sys/sysinfo.h>
498 * Return total amount of memory available in Kbyte.
499 * Doesn't change when memory has been allocated.
502 mch_total_mem(special)
506 return ulimit(3, 0L) >> 10; /* always 32MB? */
509 long_u shiftright = 10; /* how much to shift "mem" right for Kbyte */
515 /* BSD way of getting the amount of RAM available. */
518 len = sizeof(physmem);
519 if (sysctl(mib, 2, &physmem, &len, NULL, 0) == 0)
520 mem = (long_u)physmem;
523 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
526 struct sysinfo sinfo;
528 /* Linux way of getting amount of RAM available */
529 if (sysinfo(&sinfo) == 0)
531 # ifdef HAVE_SYSINFO_MEM_UNIT
532 /* avoid overflow as much as possible */
533 while (shiftright > 0 && (sinfo.mem_unit & 1) == 0)
535 sinfo.mem_unit = sinfo.mem_unit >> 1;
538 mem = sinfo.totalram * sinfo.mem_unit;
540 mem = sinfo.totalram;
549 long pagesize, pagecount;
551 /* Solaris way of getting amount of RAM available */
552 pagesize = sysconf(_SC_PAGESIZE);
553 pagecount = sysconf(_SC_PHYS_PAGES);
554 if (pagesize > 0 && pagecount > 0)
556 /* avoid overflow as much as possible */
557 while (shiftright > 0 && (pagesize & 1) == 0)
559 pagesize = (long_u)pagesize >> 1;
562 mem = (long_u)pagesize * pagecount;
567 /* Return the minimum of the physical memory and the user limit, because
568 * using more than the user limit may cause Vim to be terminated. */
569 # if defined(HAVE_SYS_RESOURCE_H) && defined(HAVE_GETRLIMIT)
573 if (getrlimit(RLIMIT_DATA, &rlp) == 0
574 && rlp.rlim_cur < ((rlim_t)1 << (sizeof(long_u) * 8 - 1))
575 # ifdef RLIM_INFINITY
576 && rlp.rlim_cur != RLIM_INFINITY
578 && ((long_u)rlp.rlim_cur >> 10) < (mem >> shiftright)
581 mem = (long_u)rlp.rlim_cur;
588 return mem >> shiftright;
589 return (long_u)0x1fffff;
595 mch_delay(msec, ignoreinput)
601 long total = msec; /* remember original value */
606 /* Go to cooked mode without echo, to allow SIGINT interrupting us
607 * here. But we don't want QUIT to kill us (CTRL-\ used in a
608 * shell may produce SIGQUIT). */
610 old_tmode = curr_tmode;
611 if (curr_tmode == TMODE_RAW)
612 settmode(TMODE_SLEEP);
615 * Everybody sleeps in a different way...
616 * Prefer nanosleep(), some versions of usleep() can only sleep up to
622 /* if total is large enough, wait by portions in p_mzq */
629 #ifdef HAVE_NANOSLEEP
633 ts.tv_sec = msec / 1000;
634 ts.tv_nsec = (msec % 1000) * 1000000;
635 (void)nanosleep(&ts, NULL);
641 usleep((unsigned int)(999 * 1000));
644 usleep((unsigned int)(msec * 1000));
647 poll(NULL, 0, (int)msec);
655 tv.tv_sec = msec / 1000;
656 tv.tv_usec = (msec % 1000) * 1000;
658 * NOTE: Solaris 2.6 has a bug that makes select() hang here. Get
659 * a patch from Sun to fix this. Reported by Gunnar Pedersen.
661 select(0, NULL, NULL, NULL, &tv);
663 # endif /* __EMX__ */
664 # endif /* HAVE_SELECT */
665 # endif /* HAVE_NANOSLEEP */
666 #endif /* HAVE_USLEEP */
673 in_mch_delay = FALSE;
679 #if defined(HAVE_STACK_LIMIT) \
680 || (!defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGSTACK))
681 # define HAVE_CHECK_STACK_GROWTH
683 * Support for checking for an almost-out-of-stack-space situation.
687 * Return a pointer to an item on the stack. Used to find out if the stack
690 static void check_stack_growth __ARGS((char *p));
691 static int stack_grows_downwards;
694 * Find out if the stack grows upwards or downwards.
695 * "p" points to a variable on the stack of the caller.
698 check_stack_growth(p)
703 stack_grows_downwards = (p > (char *)&i);
707 #if defined(HAVE_STACK_LIMIT) || defined(PROTO)
708 static char *stack_limit = NULL;
710 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
711 # include <pthread.h>
712 # include <pthread_np.h>
716 * Find out until how var the stack can grow without getting into trouble.
717 * Called when starting up and when switching to the signal stack in
727 /* Set the stack limit to 15/16 of the allowable size. Skip this when the
728 * limit doesn't fit in a long (rlim_cur might be "long long"). */
729 if (getrlimit(RLIMIT_STACK, &rlp) == 0
730 && rlp.rlim_cur < ((rlim_t)1 << (sizeof(long_u) * 8 - 1))
731 # ifdef RLIM_INFINITY
732 && rlp.rlim_cur != RLIM_INFINITY
736 lim = (long)rlp.rlim_cur;
737 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
742 /* On FreeBSD the initial thread always has a fixed stack size, no
743 * matter what the limits are set to. Normally it's 1 Mbyte. */
744 pthread_attr_init(&attr);
745 if (pthread_attr_get_np(pthread_self(), &attr) == 0)
747 pthread_attr_getstacksize(&attr, &size);
748 if (lim > (long)size)
751 pthread_attr_destroy(&attr);
754 if (stack_grows_downwards)
756 stack_limit = (char *)((long)&i - (lim / 16L * 15L));
757 if (stack_limit >= (char *)&i)
758 /* overflow, set to 1/16 of current stack position */
759 stack_limit = (char *)((long)&i / 16L);
763 stack_limit = (char *)((long)&i + (lim / 16L * 15L));
764 if (stack_limit <= (char *)&i)
765 stack_limit = NULL; /* overflow */
771 * Return FAIL when running out of stack space.
772 * "p" must point to any variable local to the caller that's on the stack.
778 if (stack_limit != NULL)
780 if (stack_grows_downwards)
785 else if (p > stack_limit)
792 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
794 * Support for using the signal stack.
795 * This helps when we run out of stack space, which causes a SIGSEGV. The
796 * signal handler then must run on another stack, since the normal stack is
801 # define SIGSTKSZ 8000 /* just a guess of how much stack is needed... */
804 # ifdef HAVE_SIGALTSTACK
805 static stack_t sigstk; /* for sigaltstack() */
807 static struct sigstack sigstk; /* for sigstack() */
810 static void init_signal_stack __ARGS((void));
811 static char *signal_stack;
816 if (signal_stack != NULL)
818 # ifdef HAVE_SIGALTSTACK
819 # if defined(__APPLE__) && (!defined(MAC_OS_X_VERSION_MAX_ALLOWED) \
820 || MAC_OS_X_VERSION_MAX_ALLOWED <= 1040)
821 /* missing prototype. Adding it to osdef?.h.in doesn't work, because
822 * "struct sigaltstack" needs to be declared. */
823 extern int sigaltstack __ARGS((const struct sigaltstack *ss, struct sigaltstack *oss));
827 sigstk.ss_base = signal_stack;
829 sigstk.ss_sp = signal_stack;
831 sigstk.ss_size = SIGSTKSZ;
833 (void)sigaltstack(&sigstk, NULL);
835 sigstk.ss_sp = signal_stack;
836 if (stack_grows_downwards)
837 sigstk.ss_sp += SIGSTKSZ - 1;
838 sigstk.ss_onstack = 0;
839 (void)sigstack(&sigstk, NULL);
846 * We need correct prototypes for a signal function, otherwise mean compilers
847 * will barf when the second argument to signal() is ``wrong''.
848 * Let me try it with a few tricky defines from my own osdef.h (jw).
850 #if defined(SIGWINCH)
852 sig_winch SIGDEFARG(sigarg)
854 /* this is not required on all systems, but it doesn't hurt anybody */
855 signal(SIGWINCH, (RETSIGTYPE (*)())sig_winch);
863 catch_sigint SIGDEFARG(sigarg)
865 /* this is not required on all systems, but it doesn't hurt anybody */
866 signal(SIGINT, (RETSIGTYPE (*)())catch_sigint);
874 catch_sigpwr SIGDEFARG(sigarg)
876 /* this is not required on all systems, but it doesn't hurt anybody */
877 signal(SIGPWR, (RETSIGTYPE (*)())catch_sigpwr);
879 * I'm not sure we get the SIGPWR signal when the system is really going
880 * down or when the batteries are almost empty. Just preserve the swap
881 * files and don't exit, that can't do any harm.
883 ml_sync_all(FALSE, FALSE);
890 * signal function for alarm().
893 sig_alarm SIGDEFARG(sigarg)
895 /* doesn't do anything, just to break a system call */
896 sig_alarm_called = TRUE;
901 #if (defined(HAVE_SETJMP_H) \
902 && ((defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) \
903 || defined(FEAT_LIBCALL))) \
906 * A simplistic version of setjmp() that only allows one level of using.
907 * Don't call twice before calling mch_endjmp()!.
910 * if (SETJMP(lc_jump_env) != 0)
920 * Note: Can't move SETJMP() here, because a function calling setjmp() must
921 * not return before the saved environment is used.
922 * Returns OK for normal return, FAIL when the protected code caused a
923 * problem and LONGJMP() was used.
943 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
944 /* On FreeBSD the signal stack has to be reset after using siglongjmp(),
945 * otherwise catching the signal only works once. */
952 * This function handles deadly signals.
953 * It tries to preserve any swap file and exit properly.
954 * (partly from Elvis).
957 deathtrap SIGDEFARG(sigarg)
959 static int entered = 0; /* count the number of times we got here.
960 Note: when memory has been corrupted
961 this may get an arbitrary value! */
966 #if defined(HAVE_SETJMP_H)
968 * Catch a crash in protected code.
969 * Restores the environment saved in lc_jump_env, which looks like
970 * SETJMP() returns 1.
974 # if defined(SIGHASARG)
977 lc_active = FALSE; /* don't jump again */
978 LONGJMP(lc_jump_env, 1);
985 /* While in mch_delay() we go to cooked mode to allow a CTRL-C to
986 * interrupt us. But in cooked mode we may also get SIGQUIT, e.g., when
987 * pressing CTRL-\, but we don't want Vim to exit then. */
988 if (in_mch_delay && sigarg == SIGQUIT)
992 /* When SIGHUP, SIGQUIT, etc. are blocked: postpone the effect and return
993 * here. This avoids that a non-reentrant function is interrupted, e.g.,
994 * free(). Calling free() again may then cause a crash. */
1001 || sigarg == SIGQUIT
1004 || sigarg == SIGTERM
1010 || sigarg == SIGUSR1
1013 || sigarg == SIGUSR2
1016 && !vim_handle_signal(sigarg))
1020 /* Remember how often we have been called. */
1024 /* Set the v:dying variable. */
1025 set_vim_var_nr(VV_DYING, (long)entered);
1028 #ifdef HAVE_STACK_LIMIT
1029 /* Since we are now using the signal stack, need to reset the stack
1030 * limit. Otherwise using a regexp will fail. */
1035 /* This is for opening gdb the moment Vim crashes.
1036 * You need to manually adjust the file name and Vim executable name.
1037 * Suggested by SungHyun Nam. */
1039 # define VI_GDB_FILE "/tmp/vimgdb"
1040 # define VIM_NAME "/usr/bin/vim"
1041 FILE *fp = fopen(VI_GDB_FILE, "w");
1049 , VIM_NAME, getpid());
1051 system("xterm -e gdb -x "VI_GDB_FILE);
1052 unlink(VI_GDB_FILE);
1058 /* try to find the name of this signal */
1059 for (i = 0; signal_info[i].sig != -1; i++)
1060 if (sigarg == signal_info[i].sig)
1062 deadly_signal = sigarg;
1065 full_screen = FALSE; /* don't write message to the GUI, it might be
1066 * part of the problem... */
1068 * If something goes wrong after entering here, we may get here again.
1069 * When this happens, give a message and try to exit nicely (resetting the
1070 * terminal mode, etc.)
1071 * When this happens twice, just exit, don't even try to give a message,
1072 * stack may be corrupt or something weird.
1073 * When this still happens again (or memory was corrupted in such a way
1074 * that "entered" was clobbered) use _exit(), don't try freeing resources.
1078 reset_signals(); /* don't catch any signals anymore */
1086 OUT_STR(_("Vim: Double signal, exiting\n"));
1092 sprintf((char *)IObuff, _("Vim: Caught deadly signal %s\n"),
1093 signal_info[i].name);
1095 sprintf((char *)IObuff, _("Vim: Caught deadly signal\n"));
1097 preserve_exit(); /* preserve files and exit */
1108 #if defined(_REENTRANT) && defined(SIGCONT)
1110 * On Solaris with multi-threading, suspending might not work immediately.
1111 * Catch the SIGCONT signal, which will be used as an indication whether the
1112 * suspending has been done or not.
1114 * On Linux, signal is not always handled immediately either.
1115 * See https://bugs.launchpad.net/bugs/291373
1117 * volatile because it is used in signal handler sigcont_handler().
1119 static volatile int sigcont_received;
1120 static RETSIGTYPE sigcont_handler __ARGS(SIGPROTOARG);
1123 * signal handler for SIGCONT
1126 sigcont_handler SIGDEFARG(sigarg)
1128 sigcont_received = TRUE;
1133 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
1134 static void loose_clipboard __ARGS((void));
1137 * Called when Vim is going to sleep or execute a shell command.
1138 * We can't respond to requests for the X selections. Lose them, otherwise
1139 * other applications will hang. But first copy the text to cut buffer 0.
1144 if (clip_star.owned || clip_plus.owned)
1146 x11_export_final_selection();
1147 if (clip_star.owned)
1148 clip_lose_selection(&clip_star);
1149 if (clip_plus.owned)
1150 clip_lose_selection(&clip_plus);
1151 if (x11_display != NULL)
1152 XFlush(x11_display);
1158 * If the machine has job control, use it to suspend the program,
1159 * otherwise fake it by starting a new shell.
1164 /* BeOS does have SIGTSTP, but it doesn't work. */
1165 #if defined(SIGTSTP) && !defined(__BEOS__)
1166 out_flush(); /* needed to make cursor visible on some systems */
1167 settmode(TMODE_COOK);
1168 out_flush(); /* needed to disable mouse on some systems */
1170 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
1174 # if defined(_REENTRANT) && defined(SIGCONT)
1175 sigcont_received = FALSE;
1177 kill(0, SIGTSTP); /* send ourselves a STOP signal */
1178 # if defined(_REENTRANT) && defined(SIGCONT)
1180 * Wait for the SIGCONT signal to be handled. It generally happens
1181 * immediately, but somehow not all the time. Do not call pause()
1182 * because there would be race condition which would hang Vim if
1183 * signal happened in between the test of sigcont_received and the
1184 * call to pause(). If signal is not yet received, call sleep(0)
1185 * to just yield CPU. Signal should then be received. If somehow
1186 * it's still not received, sleep 1, 2, 3 ms. Don't bother waiting
1187 * further if signal is not received after 1+2+3+4 ms (not expected
1192 for (wait_time = 0; !sigcont_received && wait_time <= 3L; wait_time++)
1193 /* Loop is not entered most of the time */
1194 mch_delay(wait_time, FALSE);
1200 * Set oldtitle to NULL, so the current title is obtained again.
1205 settmode(TMODE_RAW);
1206 need_check_timestamps = TRUE;
1207 did_check_timestamps = FALSE;
1222 #ifdef MACOS_CONVERT
1230 #if defined(SIGWINCH)
1232 * WINDOW CHANGE signal is handled with sig_winch().
1234 signal(SIGWINCH, (RETSIGTYPE (*)())sig_winch);
1238 * We want the STOP signal to work, to make mch_suspend() work.
1239 * For "rvim" the STOP signal is ignored.
1242 signal(SIGTSTP, restricted ? SIG_IGN : SIG_DFL);
1244 #if defined(_REENTRANT) && defined(SIGCONT)
1245 signal(SIGCONT, sigcont_handler);
1249 * We want to ignore breaking of PIPEs.
1252 signal(SIGPIPE, SIG_IGN);
1260 * Ignore alarm signals (Perl's alarm() generates it).
1263 signal(SIGALRM, SIG_IGN);
1267 * Catch SIGPWR (power failure?) to preserve the swap files, so that no
1268 * work will be lost.
1271 signal(SIGPWR, (RETSIGTYPE (*)())catch_sigpwr);
1275 * Arrange for other signals to gracefully shutdown Vim.
1277 catch_signals(deathtrap, SIG_ERR);
1279 #if defined(FEAT_GUI) && defined(SIGHUP)
1281 * When the GUI is running, ignore the hangup signal.
1284 signal(SIGHUP, SIG_IGN);
1288 #if defined(SIGINT) || defined(PROTO)
1290 * Catch CTRL-C (only works while in Cooked mode).
1295 signal(SIGINT, (RETSIGTYPE (*)())catch_sigint);
1302 catch_signals(SIG_DFL, SIG_DFL);
1303 #if defined(_REENTRANT) && defined(SIGCONT)
1304 /* SIGCONT isn't in the list, because its default action is ignore */
1305 signal(SIGCONT, SIG_DFL);
1310 catch_signals(func_deadly, func_other)
1311 RETSIGTYPE (*func_deadly)();
1312 RETSIGTYPE (*func_other)();
1316 for (i = 0; signal_info[i].sig != -1; i++)
1317 if (signal_info[i].deadly)
1319 #if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGACTION)
1320 struct sigaction sa;
1322 /* Setup to use the alternate stack for the signal function. */
1323 sa.sa_handler = func_deadly;
1324 sigemptyset(&sa.sa_mask);
1325 # if defined(__linux__) && defined(_REENTRANT)
1326 /* On Linux, with glibc compiled for kernel 2.2, there is a bug in
1327 * thread handling in combination with using the alternate stack:
1328 * pthread library functions try to use the stack pointer to
1329 * identify the current thread, causing a SEGV signal, which
1330 * recursively calls deathtrap() and hangs. */
1333 sa.sa_flags = SA_ONSTACK;
1335 sigaction(signal_info[i].sig, &sa, NULL);
1337 # if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGVEC)
1340 /* Setup to use the alternate stack for the signal function. */
1341 sv.sv_handler = func_deadly;
1343 sv.sv_flags = SV_ONSTACK;
1344 sigvec(signal_info[i].sig, &sv, NULL);
1346 signal(signal_info[i].sig, func_deadly);
1350 else if (func_other != SIG_ERR)
1351 signal(signal_info[i].sig, func_other);
1355 * Handling of SIGHUP, SIGQUIT and SIGTERM:
1356 * "when" == a signal: when busy, postpone and return FALSE, otherwise
1358 * "when" == SIGNAL_BLOCK: Going to be busy, block signals
1359 * "when" == SIGNAL_UNBLOCK: Going to wait, unblock signals, use postponed
1361 * Returns TRUE when Vim should exit.
1364 vim_handle_signal(sig)
1367 static int got_signal = 0;
1368 static int blocked = TRUE;
1372 case SIGNAL_BLOCK: blocked = TRUE;
1375 case SIGNAL_UNBLOCK: blocked = FALSE;
1376 if (got_signal != 0)
1378 kill(getpid(), got_signal);
1383 default: if (!blocked)
1384 return TRUE; /* exit! */
1389 got_int = TRUE; /* break any loops */
1396 * Check_win checks whether we have an interactive stdout.
1399 mch_check_win(argc, argv)
1405 * Store argv[0], may be used for $VIM. Only use it if it is an absolute
1406 * name, mostly it's just "vim" and found in the path, which is unusable.
1408 if (mch_isFullName(argv[0]))
1409 exe_name = vim_strsave((char_u *)argv[0]);
1417 * Return TRUE if the input comes from a terminal, FALSE otherwise.
1422 if (isatty(read_cmd_fd))
1429 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H) \
1430 && (defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE))
1432 static void xopen_message __ARGS((struct timeval *tvp));
1435 * Give a message about the elapsed time for opening the X window.
1439 struct timeval *tvp; /* must contain start time */
1441 struct timeval end_tv;
1443 /* Compute elapsed time. */
1444 gettimeofday(&end_tv, NULL);
1445 smsg((char_u *)_("Opening the X display took %ld msec"),
1446 (end_tv.tv_sec - tvp->tv_sec) * 1000L
1447 + (end_tv.tv_usec - tvp->tv_usec) / 1000L);
1452 #if defined(FEAT_X11) && (defined(FEAT_TITLE) || defined(FEAT_XCLIPBOARD))
1454 * A few functions shared by X11 title and clipboard code.
1456 static int x_error_handler __ARGS((Display *dpy, XErrorEvent *error_event));
1457 static int x_error_check __ARGS((Display *dpy, XErrorEvent *error_event));
1458 static int x_connect_to_server __ARGS((void));
1459 static int test_x11_window __ARGS((Display *dpy));
1461 static int got_x_error = FALSE;
1464 * X Error handler, otherwise X just exits! (very rude) -- webb
1467 x_error_handler(dpy, error_event)
1469 XErrorEvent *error_event;
1471 XGetErrorText(dpy, error_event->error_code, (char *)IObuff, IOSIZE);
1472 STRCAT(IObuff, _("\nVim: Got X error\n"));
1474 /* We cannot print a message and continue, because no X calls are allowed
1475 * here (causes my system to hang). Silently continuing might be an
1477 preserve_exit(); /* preserve files and exit */
1479 return 0; /* NOTREACHED */
1483 * Another X Error handler, just used to check for errors.
1486 x_error_check(dpy, error_event)
1487 Display *dpy UNUSED;
1488 XErrorEvent *error_event UNUSED;
1494 #if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
1495 # if defined(HAVE_SETJMP_H)
1497 * An X IO Error handler, used to catch error while opening the display.
1499 static int x_IOerror_check __ARGS((Display *dpy));
1502 x_IOerror_check(dpy)
1503 Display *dpy UNUSED;
1505 /* This function should not return, it causes exit(). Longjump instead. */
1506 LONGJMP(lc_jump_env, 1);
1508 return 0; /* avoid the compiler complains about missing return value */
1514 * An X IO Error handler, used to catch terminal errors.
1516 static int x_IOerror_handler __ARGS((Display *dpy));
1519 x_IOerror_handler(dpy)
1520 Display *dpy UNUSED;
1525 xterm_Shell = (Widget)0;
1527 /* This function should not return, it causes exit(). Longjump instead. */
1528 LONGJMP(x_jump_env, 1);
1530 return 0; /* avoid the compiler complains about missing return value */
1536 * Return TRUE when connection to the X server is desired.
1539 x_connect_to_server()
1541 regmatch_T regmatch;
1543 #if defined(FEAT_CLIENTSERVER)
1544 if (x_force_connect)
1550 /* Check for a match with "exclude:" from 'clipboard'. */
1551 if (clip_exclude_prog != NULL)
1553 regmatch.rm_ic = FALSE; /* Don't ignore case */
1554 regmatch.regprog = clip_exclude_prog;
1555 if (vim_regexec(®match, T_NAME, (colnr_T)0))
1562 * Test if "dpy" and x11_window are valid by getting the window title.
1563 * I don't actually want it yet, so there may be a simpler call to use, but
1564 * this will cause the error handler x_error_check() to be called if anything
1565 * is wrong, such as the window pointer being invalid (as can happen when the
1566 * user changes his DISPLAY, but not his WINDOWID) -- webb
1569 test_x11_window(dpy)
1572 int (*old_handler)();
1573 XTextProperty text_prop;
1575 old_handler = XSetErrorHandler(x_error_check);
1576 got_x_error = FALSE;
1577 if (XGetWMName(dpy, x11_window, &text_prop))
1578 XFree((void *)text_prop.value);
1580 (void)XSetErrorHandler(old_handler);
1582 if (p_verbose > 0 && got_x_error)
1583 verb_msg((char_u *)_("Testing the X display failed"));
1585 return (got_x_error ? FAIL : OK);
1593 static int get_x11_thing __ARGS((int get_title, int test_only));
1596 * try to get x11 window and display
1598 * return FAIL for failure, OK otherwise
1604 static int result = -1;
1605 #define XD_NONE 0 /* x11_display not set here */
1606 #define XD_HERE 1 /* x11_display opened here */
1607 #define XD_GUI 2 /* x11_display used from gui.dpy */
1608 #define XD_XTERM 3 /* x11_display used from xterm_dpy */
1609 static int x11_display_from = XD_NONE;
1610 static int did_set_error_handler = FALSE;
1612 if (!did_set_error_handler)
1614 /* X just exits if it finds an error otherwise! */
1615 (void)XSetErrorHandler(x_error_handler);
1616 did_set_error_handler = TRUE;
1619 #if defined(FEAT_GUI_X11) || defined(FEAT_GUI_GTK)
1623 * If the X11 display was opened here before, for the window where Vim
1624 * was started, close that one now to avoid a memory leak.
1626 if (x11_display_from == XD_HERE && x11_display != NULL)
1628 XCloseDisplay(x11_display);
1629 x11_display_from = XD_NONE;
1631 if (gui_get_x11_windis(&x11_window, &x11_display) == OK)
1633 x11_display_from = XD_GUI;
1639 else if (x11_display_from == XD_GUI)
1641 /* GUI must have stopped somehow, clear x11_display */
1644 x11_display_from = XD_NONE;
1648 /* When started with the "-X" argument, don't try connecting. */
1649 if (!x_connect_to_server())
1653 * If WINDOWID not set, should try another method to find out
1654 * what the current window number is. The only code I know for
1655 * this is very complicated.
1656 * We assume that zero is invalid for WINDOWID.
1658 if (x11_window == 0 && (winid = getenv("WINDOWID")) != NULL)
1659 x11_window = (Window)atol(winid);
1661 #ifdef FEAT_XCLIPBOARD
1662 if (xterm_dpy != NULL && x11_window != 0)
1664 /* We may have checked it already, but Gnome terminal can move us to
1665 * another window, so we need to check every time. */
1666 if (x11_display_from != XD_XTERM)
1669 * If the X11 display was opened here before, for the window where
1670 * Vim was started, close that one now to avoid a memory leak.
1672 if (x11_display_from == XD_HERE && x11_display != NULL)
1673 XCloseDisplay(x11_display);
1674 x11_display = xterm_dpy;
1675 x11_display_from = XD_XTERM;
1677 if (test_x11_window(x11_display) == FAIL)
1679 /* probably bad $WINDOWID */
1682 x11_display_from = XD_NONE;
1689 if (x11_window == 0 || x11_display == NULL)
1692 if (result != -1) /* Have already been here and set this */
1693 return result; /* Don't do all these X calls again */
1695 if (x11_window != 0 && x11_display == NULL)
1697 #ifdef SET_SIG_ALARM
1698 RETSIGTYPE (*sig_save)();
1700 #if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1701 struct timeval start_tv;
1704 gettimeofday(&start_tv, NULL);
1707 #ifdef SET_SIG_ALARM
1709 * Opening the Display may hang if the DISPLAY setting is wrong, or
1710 * the network connection is bad. Set an alarm timer to get out.
1712 sig_alarm_called = FALSE;
1713 sig_save = (RETSIGTYPE (*)())signal(SIGALRM,
1714 (RETSIGTYPE (*)())sig_alarm);
1717 x11_display = XOpenDisplay(NULL);
1719 #ifdef SET_SIG_ALARM
1721 signal(SIGALRM, (RETSIGTYPE (*)())sig_save);
1722 if (p_verbose > 0 && sig_alarm_called)
1723 verb_msg((char_u *)_("Opening the X display timed out"));
1725 if (x11_display != NULL)
1727 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1731 xopen_message(&start_tv);
1735 if (test_x11_window(x11_display) == FAIL)
1737 /* Maybe window id is bad */
1739 XCloseDisplay(x11_display);
1743 x11_display_from = XD_HERE;
1746 if (x11_window == 0 || x11_display == NULL)
1747 return (result = FAIL);
1750 set_vim_var_nr(VV_WINDOWID, (long)x11_window);
1753 return (result = OK);
1757 * Determine original x11 Window Title
1760 get_x11_title(test_only)
1763 return get_x11_thing(TRUE, test_only);
1767 * Determine original x11 Window icon
1770 get_x11_icon(test_only)
1775 retval = get_x11_thing(FALSE, test_only);
1777 /* could not get old icon, use terminal name */
1778 if (oldicon == NULL && !test_only)
1780 if (STRNCMP(T_NAME, "builtin_", 8) == 0)
1781 oldicon = vim_strsave(T_NAME + 8);
1783 oldicon = vim_strsave(T_NAME);
1790 get_x11_thing(get_title, test_only)
1791 int get_title; /* get title string */
1794 XTextProperty text_prop;
1798 if (get_x11_windis() == OK)
1800 /* Get window/icon name if any */
1802 status = XGetWMName(x11_display, x11_window, &text_prop);
1804 status = XGetWMIconName(x11_display, x11_window, &text_prop);
1807 * If terminal is xterm, then x11_window may be a child window of the
1808 * outer xterm window that actually contains the window/icon name, so
1809 * keep traversing up the tree until a window with a title/icon is
1812 /* Previously this was only done for xterm and alikes. I don't see a
1813 * reason why it would fail for other terminal emulators.
1814 * if (term_is_xterm) */
1818 Window win = x11_window;
1820 unsigned int num_children;
1822 while (!status || text_prop.value == NULL)
1824 if (!XQueryTree(x11_display, win, &root, &parent, &children,
1828 XFree((void *)children);
1829 if (parent == root || parent == 0)
1834 status = XGetWMName(x11_display, win, &text_prop);
1836 status = XGetWMIconName(x11_display, win, &text_prop);
1839 if (status && text_prop.value != NULL)
1844 #if defined(FEAT_XFONTSET) || defined(FEAT_MBYTE)
1845 if (text_prop.encoding == XA_STRING
1853 oldtitle = vim_strsave((char_u *)text_prop.value);
1855 oldicon = vim_strsave((char_u *)text_prop.value);
1856 #if defined(FEAT_XFONTSET) || defined(FEAT_MBYTE)
1861 Status transform_status;
1864 transform_status = XmbTextPropertyToTextList(x11_display,
1867 if (transform_status >= Success && n > 0 && cl[0])
1870 oldtitle = vim_strsave((char_u *) cl[0]);
1872 oldicon = vim_strsave((char_u *) cl[0]);
1873 XFreeStringList(cl);
1878 oldtitle = vim_strsave((char_u *)text_prop.value);
1880 oldicon = vim_strsave((char_u *)text_prop.value);
1885 XFree((void *)text_prop.value);
1891 /* Are Xutf8 functions available? Avoid error from old compilers. */
1892 #if defined(X_HAVE_UTF8_STRING) && defined(FEAT_MBYTE)
1893 # if X_HAVE_UTF8_STRING
1894 # define USE_UTF8_STRING
1899 * Set x11 Window Title
1901 * get_x11_windis() must be called before this and have returned OK
1904 set_x11_title(title)
1907 /* XmbSetWMProperties() and Xutf8SetWMProperties() should use a STRING
1908 * when possible, COMPOUND_TEXT otherwise. COMPOUND_TEXT isn't
1909 * supported everywhere and STRING doesn't work for multi-byte titles.
1911 #ifdef USE_UTF8_STRING
1913 Xutf8SetWMProperties(x11_display, x11_window, (const char *)title,
1914 NULL, NULL, 0, NULL, NULL, NULL);
1918 #if XtSpecificationRelease >= 4
1919 # ifdef FEAT_XFONTSET
1920 XmbSetWMProperties(x11_display, x11_window, (const char *)title,
1921 NULL, NULL, 0, NULL, NULL, NULL);
1923 XTextProperty text_prop;
1924 char *c_title = (char *)title;
1926 /* directly from example 3-18 "basicwin" of Xlib Programming Manual */
1927 (void)XStringListToTextProperty(&c_title, 1, &text_prop);
1928 XSetWMProperties(x11_display, x11_window, &text_prop,
1929 NULL, NULL, 0, NULL, NULL, NULL);
1932 XStoreName(x11_display, x11_window, (char *)title);
1935 XFlush(x11_display);
1939 * Set x11 Window icon
1941 * get_x11_windis() must be called before this and have returned OK
1947 /* See above for comments about using X*SetWMProperties(). */
1948 #ifdef USE_UTF8_STRING
1950 Xutf8SetWMProperties(x11_display, x11_window, NULL, (const char *)icon,
1951 NULL, 0, NULL, NULL, NULL);
1955 #if XtSpecificationRelease >= 4
1956 # ifdef FEAT_XFONTSET
1957 XmbSetWMProperties(x11_display, x11_window, NULL, (const char *)icon,
1958 NULL, 0, NULL, NULL, NULL);
1960 XTextProperty text_prop;
1961 char *c_icon = (char *)icon;
1963 (void)XStringListToTextProperty(&c_icon, 1, &text_prop);
1964 XSetWMProperties(x11_display, x11_window, NULL, &text_prop,
1965 NULL, 0, NULL, NULL, NULL);
1968 XSetIconName(x11_display, x11_window, (char *)icon);
1971 XFlush(x11_display);
1974 #else /* FEAT_X11 */
1977 get_x11_title(test_only)
1978 int test_only UNUSED;
1984 get_x11_icon(test_only)
1989 if (STRNCMP(T_NAME, "builtin_", 8) == 0)
1990 oldicon = vim_strsave(T_NAME + 8);
1992 oldicon = vim_strsave(T_NAME);
1997 #endif /* FEAT_X11 */
2000 mch_can_restore_title()
2002 return get_x11_title(TRUE);
2006 mch_can_restore_icon()
2008 return get_x11_icon(TRUE);
2012 * Set the window title and icon.
2015 mch_settitle(title, icon)
2020 static int recursive = 0;
2022 if (T_NAME == NULL) /* no terminal name (yet) */
2024 if (title == NULL && icon == NULL) /* nothing to do */
2027 /* When one of the X11 functions causes a deadly signal, we get here again
2028 * recursively. Avoid hanging then (something is probably locked). */
2034 * if the window ID and the display is known, we may use X11 calls
2037 if (get_x11_windis() == OK)
2040 # if defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) || defined(FEAT_GUI_GTK)
2047 * Note: if "t_ts" is set, title is set with escape sequence rather
2048 * than x11 calls, because the x11 calls don't always work
2050 if ((type || *T_TS != NUL) && title != NULL)
2052 if (oldtitle == NULL
2056 ) /* first call but not in GUI, save title */
2057 (void)get_x11_title(FALSE);
2059 if (*T_TS != NUL) /* it's OK if t_fs is empty */
2060 term_settitle(title);
2063 # ifdef FEAT_GUI_GTK
2064 if (!gui.in_use) /* don't do this if GTK+ is running */
2066 set_x11_title(title); /* x11 */
2068 #if defined(FEAT_GUI_GTK) \
2069 || defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC)
2071 gui_mch_settitle(title, icon);
2073 did_set_title = TRUE;
2076 if ((type || *T_CIS != NUL) && icon != NULL)
2082 ) /* first call, save icon */
2083 get_x11_icon(FALSE);
2087 out_str(T_CIS); /* set icon start */
2089 out_str(T_CIE); /* set icon end */
2094 # ifdef FEAT_GUI_GTK
2095 if (!gui.in_use) /* don't do this if GTK+ is running */
2097 set_x11_icon(icon); /* x11 */
2099 did_set_icon = TRUE;
2105 * Restore the window/icon title.
2106 * "which" is one of:
2107 * 1 only restore title
2108 * 2 only restore icon
2109 * 3 restore title and icon
2112 mch_restore_title(which)
2115 /* only restore the title or icon when it has been set */
2116 mch_settitle(((which & 1) && did_set_title) ?
2117 (oldtitle ? oldtitle : p_titleold) : NULL,
2118 ((which & 2) && did_set_icon) ? oldicon : NULL);
2121 #endif /* FEAT_TITLE */
2124 * Return TRUE if "name" looks like some xterm name.
2125 * Seiichi Sato mentioned that "mlterm" works like xterm.
2133 return (STRNICMP(name, "xterm", 5) == 0
2134 || STRNICMP(name, "nxterm", 6) == 0
2135 || STRNICMP(name, "kterm", 5) == 0
2136 || STRNICMP(name, "mlterm", 6) == 0
2137 || STRNICMP(name, "rxvt", 4) == 0
2138 || STRCMP(name, "builtin_xterm") == 0);
2141 #if defined(FEAT_MOUSE_XTERM) || defined(PROTO)
2143 * Return TRUE if "name" appears to be that of a terminal
2144 * known to support the xterm-style mouse protocol.
2145 * Relies on term_is_xterm having been set to its correct value.
2148 use_xterm_like_mouse(name)
2151 return (name != NULL
2152 && (term_is_xterm || STRNICMP(name, "screen", 6) == 0));
2156 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
2158 * Return non-zero when using an xterm mouse, according to 'ttymouse'.
2159 * Return 1 for "xterm".
2160 * Return 2 for "xterm2".
2161 * Return 3 for "urxvt".
2166 if (ttym_flags == TTYM_URXVT)
2168 if (ttym_flags == TTYM_XTERM2)
2170 if (ttym_flags == TTYM_XTERM)
2182 return (STRNICMP(name, "iris-ansi", 9) == 0
2183 || STRCMP(name, "builtin_iris-ansi") == 0);
2191 return FALSE; /* actually all ANSI comp. terminals should be here */
2192 /* catch VT100 - VT5xx */
2193 return ((STRNICMP(name, "vt", 2) == 0
2194 && vim_strchr((char_u *)"12345", name[2]) != NULL)
2195 || STRCMP(name, "builtin_vt320") == 0);
2199 * Return TRUE if "name" is a terminal for which 'ttyfast' should be set.
2200 * This should include all windowed terminal emulators.
2203 vim_is_fastterm(name)
2208 if (vim_is_xterm(name) || vim_is_vt300(name) || vim_is_iris(name))
2210 return ( STRNICMP(name, "hpterm", 6) == 0
2211 || STRNICMP(name, "sun-cmd", 7) == 0
2212 || STRNICMP(name, "screen", 6) == 0
2213 || STRNICMP(name, "dtterm", 6) == 0);
2217 * Insert user name in s[len].
2218 * Return OK if a name found.
2221 mch_get_user_name(s, len)
2226 vim_strncpy(s, (char_u *)cuserid(NULL), len - 1);
2229 return mch_get_uname(getuid(), s, len);
2234 * Insert user name for "uid" in s[len].
2235 * Return OK if a name found.
2238 mch_get_uname(uid, s, len)
2243 #if defined(HAVE_PWD_H) && defined(HAVE_GETPWUID)
2246 if ((pw = getpwuid(uid)) != NULL
2247 && pw->pw_name != NULL && *(pw->pw_name) != NUL)
2249 vim_strncpy(s, (char_u *)pw->pw_name, len - 1);
2253 sprintf((char *)s, "%d", (int)uid); /* assumes s is long enough */
2254 return FAIL; /* a number is not a name */
2258 * Insert host name is s[len].
2261 #ifdef HAVE_SYS_UTSNAME_H
2263 mch_get_host_name(s, len)
2267 struct utsname vutsname;
2269 if (uname(&vutsname) < 0)
2272 vim_strncpy(s, (char_u *)vutsname.nodename, len - 1);
2274 #else /* HAVE_SYS_UTSNAME_H */
2276 # ifdef HAVE_SYS_SYSTEMINFO_H
2277 # define gethostname(nam, len) sysinfo(SI_HOSTNAME, nam, len)
2281 mch_get_host_name(s, len)
2286 vaxc$gethostname((char *)s, len);
2288 gethostname((char *)s, len);
2290 s[len - 1] = NUL; /* make sure it's terminated */
2292 #endif /* HAVE_SYS_UTSNAME_H */
2300 return (long)getpid();
2303 #if !defined(HAVE_STRERROR) && defined(USE_GETCWD)
2304 static char *strerror __ARGS((int));
2310 extern int sys_nerr;
2311 extern char *sys_errlist[];
2314 if (err > 0 && err < sys_nerr)
2315 return (sys_errlist[err]);
2316 sprintf(er, "Error %d", err);
2322 * Get name of current directory into buffer 'buf' of length 'len' bytes.
2323 * Return OK for success, FAIL for failure.
2326 mch_dirname(buf, len)
2330 #if defined(USE_GETCWD)
2331 if (getcwd((char *)buf, len) == NULL)
2333 STRCPY(buf, strerror(errno));
2338 return (getwd((char *)buf) != NULL ? OK : FAIL);
2342 #if defined(OS2) || defined(PROTO)
2344 * Replace all slashes by backslashes.
2345 * When 'shellslash' set do it the other way around.
2361 * Get absolute file name into "buf[len]".
2363 * return FAIL for failure, OK for success
2366 mch_FullName(fname, buf, len, force)
2367 char_u *fname, *buf;
2369 int force; /* also expand when already absolute path */
2373 int only_drive; /* file name is only a drive letter */
2377 static int dont_fchdir = FALSE; /* TRUE when fchdir() doesn't work */
2379 char_u olddir[MAXPATHL];
2383 char_u posix_fname[MAXPATHL]; /* Cygwin docs mention MAX_PATH, but
2384 it's not always defined */
2388 fname = vms_fixfilename(fname);
2393 * This helps for when "/etc/hosts" is a symlink to "c:/something/hosts".
2395 # if CYGWIN_VERSION_DLL_MAJOR >= 1007
2396 cygwin_conv_path(CCP_WIN_A_TO_POSIX, fname, posix_fname, MAXPATHL);
2398 cygwin_conv_to_posix_path(fname, posix_fname);
2400 fname = posix_fname;
2403 /* expand it if forced or not an absolute path */
2404 if (force || !mch_isFullName(fname))
2407 * If the file name has a path, change to that directory for a moment,
2408 * and then do the getwd() (and get back to where we were).
2409 * This will get the correct path name with "../" things.
2413 if (((p = vim_strrchr(fname, '/')) != NULL)
2414 || ((p = vim_strrchr(fname, '\\')) != NULL)
2415 || (((p = vim_strchr(fname, ':')) != NULL) && ++only_drive))
2417 if ((p = vim_strrchr(fname, '/')) != NULL)
2422 * Use fchdir() if possible, it's said to be faster and more
2423 * reliable. But on SunOS 4 it might not work. Check this by
2424 * doing a fchdir() right now.
2428 fd = open(".", O_RDONLY | O_EXTRA, 0);
2429 if (fd >= 0 && fchdir(fd) < 0)
2433 dont_fchdir = TRUE; /* don't try again */
2438 /* Only change directory when we are sure we can return to where
2439 * we are now. After doing "su" chdir(".") might not work. */
2444 (mch_dirname(olddir, MAXPATHL) == FAIL
2445 || mch_chdir((char *)olddir) != 0))
2447 p = NULL; /* can't get current dir: don't chdir */
2454 * compensate for case where ':' from "D:" was the only
2455 * path separator detected in the file name; the _next_
2456 * character has to be removed, and then restored later.
2461 /* The directory is copied into buf[], to be able to remove
2462 * the file name without changing it (could be a string in
2463 * read-only memory) */
2464 if (p - fname >= len)
2468 vim_strncpy(buf, fname, p - fname);
2469 if (mch_chdir((char *)buf))
2485 if (mch_dirname(buf, len) == FAIL)
2498 MSG("fchdir() to previous dir");
2506 l = mch_chdir((char *)olddir);
2508 EMSG(_(e_prev_dir));
2517 if (l > 0 && buf[l - 1] != '/' && *fname != NUL
2518 && STRCMP(fname, ".") != 0)
2524 /* Catch file names which are too long. */
2525 if (retval == FAIL || (int)(STRLEN(buf) + STRLEN(fname)) >= len)
2528 /* Do not append ".", "/dir/." is equal to "/dir". */
2529 if (STRCMP(fname, ".") != 0)
2536 * Return TRUE if "fname" does not depend on the current directory.
2539 mch_isFullName(fname)
2543 return _fnisabs(fname);
2546 return ( fname[0] == '/' || fname[0] == '.' ||
2547 strchr((char *)fname,':') || strchr((char *)fname,'"') ||
2548 (strchr((char *)fname,'[') && strchr((char *)fname,']'))||
2549 (strchr((char *)fname,'<') && strchr((char *)fname,'>')) );
2551 return (*fname == '/' || *fname == '~');
2556 #if defined(USE_FNAME_CASE) || defined(PROTO)
2558 * Set the case of the file name, if it already exists. This will cause the
2559 * file name to remain exactly the same.
2560 * Only required for file systems where case is ignored and preserved.
2563 fname_case(name, len)
2565 int len UNUSED; /* buffer size, only used when name gets longer */
2568 char_u *slash, *tail;
2572 if (lstat((char *)name, &st) >= 0)
2574 /* Open the directory where the file is located. */
2575 slash = vim_strrchr(name, '/');
2578 dirp = opendir(".");
2584 dirp = opendir((char *)name);
2591 while ((dp = readdir(dirp)) != NULL)
2593 /* Only accept names that differ in case and are the same byte
2594 * length. TODO: accept different length name. */
2595 if (STRICMP(tail, dp->d_name) == 0
2596 && STRLEN(tail) == STRLEN(dp->d_name))
2598 char_u newname[MAXPATHL + 1];
2601 /* Verify the inode is equal. */
2602 vim_strncpy(newname, name, MAXPATHL);
2603 vim_strncpy(newname + (tail - name), (char_u *)dp->d_name,
2604 MAXPATHL - (tail - name));
2605 if (lstat((char *)newname, &st2) >= 0
2606 && st.st_ino == st2.st_ino
2607 && st.st_dev == st2.st_dev)
2609 STRCPY(tail, dp->d_name);
2622 * Get file permissions for 'name'.
2623 * Returns -1 when it doesn't exist.
2631 /* Keep the #ifdef outside of stat(), it may be a macro. */
2633 if (stat((char *)vms_fixfilename(name), &statb))
2635 if (stat((char *)name, &statb))
2639 /* The top bit makes the value negative, which means the file doesn't
2640 * exist. Remove the bit, we don't use it. */
2641 return statb.st_mode & ~S_ADDACE;
2643 return statb.st_mode;
2648 * set file permission for 'name' to 'perm'
2650 * return FAIL for failure, OK otherwise
2653 mch_setperm(name, perm)
2657 return (chmod((char *)
2659 vms_fixfilename(name),
2663 (mode_t)perm) == 0 ? OK : FAIL);
2666 #if defined(HAVE_ACL) || defined(PROTO)
2667 # ifdef HAVE_SYS_ACL_H
2668 # include <sys/acl.h>
2670 # ifdef HAVE_SYS_ACCESS_H
2671 # include <sys/access.h>
2674 # ifdef HAVE_SOLARIS_ACL
2675 typedef struct vim_acl_solaris_T {
2677 aclent_t *acl_entry;
2678 } vim_acl_solaris_T;
2681 #if defined(HAVE_SELINUX) || defined(PROTO)
2683 * Copy security info from "from_file" to "to_file".
2686 mch_copy_sec(from_file, to_file)
2690 if (from_file == NULL)
2693 if (selinux_enabled == -1)
2694 selinux_enabled = is_selinux_enabled();
2696 if (selinux_enabled > 0)
2698 security_context_t from_context = NULL;
2699 security_context_t to_context = NULL;
2701 if (getfilecon((char *)from_file, &from_context) < 0)
2703 /* If the filesystem doesn't support extended attributes,
2704 the original had no special security context and the
2705 target cannot have one either. */
2706 if (errno == EOPNOTSUPP)
2709 MSG_PUTS(_("\nCould not get security context for "));
2710 msg_outtrans(from_file);
2714 if (getfilecon((char *)to_file, &to_context) < 0)
2716 MSG_PUTS(_("\nCould not get security context for "));
2717 msg_outtrans(to_file);
2719 freecon (from_context);
2722 if (strcmp(from_context, to_context) != 0)
2724 if (setfilecon((char *)to_file, from_context) < 0)
2726 MSG_PUTS(_("\nCould not set security context for "));
2727 msg_outtrans(to_file);
2731 freecon(to_context);
2732 freecon(from_context);
2735 #endif /* HAVE_SELINUX */
2738 * Return a pointer to the ACL of file "fname" in allocated memory.
2739 * Return NULL if the ACL is not available for whatever reason.
2743 char_u *fname UNUSED;
2745 vim_acl_T ret = NULL;
2746 #ifdef HAVE_POSIX_ACL
2747 ret = (vim_acl_T)acl_get_file((char *)fname, ACL_TYPE_ACCESS);
2749 #ifdef HAVE_SOLARIS_ACL
2750 vim_acl_solaris_T *aclent;
2752 aclent = malloc(sizeof(vim_acl_solaris_T));
2753 if ((aclent->acl_cnt = acl((char *)fname, GETACLCNT, 0, NULL)) < 0)
2758 aclent->acl_entry = malloc(aclent->acl_cnt * sizeof(aclent_t));
2759 if (acl((char *)fname, GETACL, aclent->acl_cnt, aclent->acl_entry) < 0)
2761 free(aclent->acl_entry);
2765 ret = (vim_acl_T)aclent;
2767 #if defined(HAVE_AIX_ACL)
2771 aclsize = sizeof(struct acl);
2772 aclent = malloc(aclsize);
2773 if (statacl((char *)fname, STX_NORMAL, aclent, aclsize) < 0)
2775 if (errno == ENOSPC)
2777 aclsize = aclent->acl_len;
2778 aclent = realloc(aclent, aclsize);
2779 if (statacl((char *)fname, STX_NORMAL, aclent, aclsize) < 0)
2791 ret = (vim_acl_T)aclent;
2792 #endif /* HAVE_AIX_ACL */
2793 #endif /* HAVE_SOLARIS_ACL */
2794 #endif /* HAVE_POSIX_ACL */
2799 * Set the ACL of file "fname" to "acl" (unless it's NULL).
2802 mch_set_acl(fname, aclent)
2803 char_u *fname UNUSED;
2808 #ifdef HAVE_POSIX_ACL
2809 acl_set_file((char *)fname, ACL_TYPE_ACCESS, (acl_t)aclent);
2811 #ifdef HAVE_SOLARIS_ACL
2812 acl((char *)fname, SETACL, ((vim_acl_solaris_T *)aclent)->acl_cnt,
2813 ((vim_acl_solaris_T *)aclent)->acl_entry);
2816 chacl((char *)fname, aclent, ((struct acl *)aclent)->acl_len);
2817 #endif /* HAVE_AIX_ACL */
2818 #endif /* HAVE_SOLARIS_ACL */
2819 #endif /* HAVE_POSIX_ACL */
2823 mch_free_acl(aclent)
2828 #ifdef HAVE_POSIX_ACL
2829 acl_free((acl_t)aclent);
2831 #ifdef HAVE_SOLARIS_ACL
2832 free(((vim_acl_solaris_T *)aclent)->acl_entry);
2837 #endif /* HAVE_AIX_ACL */
2838 #endif /* HAVE_SOLARIS_ACL */
2839 #endif /* HAVE_POSIX_ACL */
2844 * Set hidden flag for "name".
2848 char_u *name UNUSED;
2850 /* can't hide a file */
2854 * return TRUE if "name" is a directory
2855 * return FALSE if "name" is not a directory
2856 * return FALSE for error
2864 if (*name == NUL) /* Some stat()s don't flag "" as an error. */
2866 if (stat((char *)name, &statb))
2868 #ifdef _POSIX_SOURCE
2869 return (S_ISDIR(statb.st_mode) ? TRUE : FALSE);
2871 return ((statb.st_mode & S_IFMT) == S_IFDIR ? TRUE : FALSE);
2875 static int executable_file __ARGS((char_u *name));
2878 * Return 1 if "name" is an executable file, 0 if not or it doesn't exist.
2881 executable_file(name)
2886 if (stat((char *)name, &st))
2888 return S_ISREG(st.st_mode) && mch_access((char *)name, X_OK) == 0;
2892 * Return 1 if "name" can be found in $PATH and executed, 0 if not.
2893 * Return -1 if unknown.
2903 /* If it's an absolute or relative path don't need to use $PATH. */
2904 if (mch_isFullName(name) || (name[0] == '.' && (name[1] == '/'
2905 || (name[1] == '.' && name[2] == '/'))))
2906 return executable_file(name);
2908 p = (char_u *)getenv("PATH");
2909 if (p == NULL || *p == NUL)
2911 buf = alloc((unsigned)(STRLEN(name) + STRLEN(p) + 2));
2916 * Walk through all entries in $PATH to check if "name" exists there and
2917 * is an executable file.
2921 e = (char_u *)strchr((char *)p, ':');
2924 if (e - p <= 1) /* empty entry means current dir */
2928 vim_strncpy(buf, p, e - p);
2932 retval = executable_file(buf);
2946 * Check what "name" is:
2947 * NODE_NORMAL: file or directory (or doesn't exist)
2948 * NODE_WRITABLE: writable device, socket, fifo, etc.
2949 * NODE_OTHER: non-writable things
2957 if (stat((char *)name, &st))
2959 if (S_ISREG(st.st_mode) || S_ISDIR(st.st_mode))
2962 if (S_ISBLK(st.st_mode)) /* block device isn't writable */
2965 /* Everything else is writable? */
2966 return NODE_WRITABLE;
2972 #ifdef HAVE_CHECK_STACK_GROWTH
2975 check_stack_growth((char *)&i);
2977 # ifdef HAVE_STACK_LIMIT
2984 * Setup an alternative stack for signals. Helps to catch signals when
2985 * running out of stack space.
2986 * Use of sigaltstack() is preferred, it's more portable.
2987 * Ignore any errors.
2989 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2990 signal_stack = (char *)alloc(SIGSTKSZ);
2991 init_signal_stack();
2995 #if defined(EXITFREE) || defined(PROTO)
2999 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
3000 if (clip_star.owned)
3001 clip_lose_selection(&clip_star);
3002 if (clip_plus.owned)
3003 clip_lose_selection(&clip_plus);
3005 # if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
3006 if (xterm_Shell != (Widget)0)
3007 XtDestroyWidget(xterm_Shell);
3008 # ifndef LESSTIF_VERSION
3009 /* Lesstif crashes here, lose some memory */
3010 if (xterm_dpy != NULL)
3011 XtCloseDisplay(xterm_dpy);
3012 if (app_context != (XtAppContext)NULL)
3014 XtDestroyApplicationContext(app_context);
3016 x11_display = NULL; /* freed by XtDestroyApplicationContext() */
3021 # if defined(FEAT_X11)
3022 if (x11_display != NULL
3023 # ifdef FEAT_XCLIPBOARD
3024 && x11_display != xterm_dpy
3027 XCloseDisplay(x11_display);
3029 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
3030 vim_free(signal_stack);
3031 signal_stack = NULL;
3040 static void exit_scroll __ARGS((void));
3043 * Output a newline when exiting.
3044 * Make sure the newline goes to the same stream as the text.
3051 if (newline_on_exit || msg_didout)
3053 if (msg_use_printf())
3065 restore_cterm_colors(); /* get original colors back */
3066 msg_clr_eos_force(); /* clear the rest of the display */
3067 windgoto((int)Rows - 1, 0); /* may have moved the cursor */
3077 #if defined(FEAT_X11) && defined(FEAT_CLIPBOARD)
3078 x11_export_final_selection();
3085 settmode(TMODE_COOK);
3087 mch_restore_title(3); /* restore xterm title and icon name */
3090 * When t_ti is not empty but it doesn't cause swapping terminal
3091 * pages, need to output a newline when msg_didout is set. But when
3092 * t_ti does swap pages it should not go to the shell page. Do this
3093 * before stoptermcap().
3095 if (swapping_screen() && !newline_on_exit)
3098 /* Stop termcap: May need to check for T_CRV response, which
3099 * requires RAW mode. */
3103 * A newline is only required after a message in the alternate screen.
3104 * This is set to TRUE by wait_return().
3106 if (!swapping_screen() || newline_on_exit)
3109 /* Cursor may have been switched off without calling starttermcap()
3110 * when doing "vim -u vimrc" and vimrc contains ":q". */
3115 ml_close_all(TRUE); /* remove all memfiles */
3122 #ifdef MACOS_CONVERT
3127 /* A core dump won't be created if the signal handler
3128 * doesn't return, so we can't call exit() */
3129 if (deadly_signal != 0)
3133 #ifdef FEAT_NETBEANS_INTG
3134 netbeans_send_disconnect();
3147 if (deadly_signal != 0)
3149 signal(deadly_signal, SIG_DFL);
3150 kill(getpid(), deadly_signal); /* Die using the signal we caught */
3160 static int first = TRUE;
3162 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3163 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3165 * for "new" tty systems
3167 # ifdef HAVE_TERMIOS_H
3168 static struct termios told;
3169 struct termios tnew;
3171 static struct termio told;
3178 # if defined(HAVE_TERMIOS_H)
3179 tcgetattr(read_cmd_fd, &told);
3181 ioctl(read_cmd_fd, TCGETA, &told);
3186 if (tmode == TMODE_RAW)
3189 * ~ICRNL enables typing ^V^M
3191 tnew.c_iflag &= ~ICRNL;
3192 tnew.c_lflag &= ~(ICANON | ECHO | ISIG | ECHOE
3193 # if defined(IEXTEN) && !defined(__MINT__)
3194 | IEXTEN /* IEXTEN enables typing ^V on SOLARIS */
3195 /* but it breaks function keys on MINT */
3198 # ifdef ONLCR /* don't map NL -> CR NL, we do it ourselves */
3199 tnew.c_oflag &= ~ONLCR;
3201 tnew.c_cc[VMIN] = 1; /* return after 1 char */
3202 tnew.c_cc[VTIME] = 0; /* don't wait */
3204 else if (tmode == TMODE_SLEEP)
3205 tnew.c_lflag &= ~(ECHO);
3207 # if defined(HAVE_TERMIOS_H)
3211 /* A signal may cause tcsetattr() to fail (e.g., SIGCONT). Retry a
3213 while (tcsetattr(read_cmd_fd, TCSANOW, &tnew) == -1
3214 && errno == EINTR && n > 0)
3218 ioctl(read_cmd_fd, TCSETA, &tnew);
3224 * for "old" tty systems
3227 # define TIOCSETN TIOCSETP /* for hpux 9.0 */
3229 static struct sgttyb ttybold;
3230 struct sgttyb ttybnew;
3235 ioctl(read_cmd_fd, TIOCGETP, &ttybold);
3239 if (tmode == TMODE_RAW)
3241 ttybnew.sg_flags &= ~(CRMOD | ECHO);
3242 ttybnew.sg_flags |= RAW;
3244 else if (tmode == TMODE_SLEEP)
3245 ttybnew.sg_flags &= ~(ECHO);
3246 ioctl(read_cmd_fd, TIOCSETN, &ttybnew);
3252 * Try to get the code for "t_kb" from the stty setting
3254 * Even if termcap claims a backspace key, the user's setting *should*
3255 * prevail. stty knows more about reality than termcap does, and if
3256 * somebody's usual erase key is DEL (which, for most BSD users, it will
3257 * be), they're going to get really annoyed if their erase key starts
3258 * doing forward deletes for no reason. (Eric Fischer)
3266 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3267 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3268 /* for "new" tty systems */
3269 # ifdef HAVE_TERMIOS_H
3270 struct termios keys;
3275 # if defined(HAVE_TERMIOS_H)
3276 if (tcgetattr(read_cmd_fd, &keys) != -1)
3278 if (ioctl(read_cmd_fd, TCGETA, &keys) != -1)
3281 buf[0] = keys.c_cc[VERASE];
3282 intr_char = keys.c_cc[VINTR];
3284 /* for "old" tty systems */
3287 if (ioctl(read_cmd_fd, TIOCGETP, &keys) != -1)
3289 buf[0] = keys.sg_erase;
3290 intr_char = keys.sg_kill;
3293 add_termcode((char_u *)"kb", buf, FALSE);
3296 * If <BS> and <DEL> are now the same, redefine <DEL>.
3298 p = find_termcode((char_u *)"kD");
3299 if (p != NULL && p[0] == buf[0] && p[1] == buf[1])
3303 } /* to keep cindent happy */
3309 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
3311 * Set mouse clicks on or off.
3317 static int ison = FALSE;
3318 int xterm_mouse_vers;
3320 if (on == ison) /* return quickly if nothing to do */
3323 xterm_mouse_vers = use_xterm_mouse();
3325 # ifdef FEAT_MOUSE_URXVT
3326 if (ttym_flags == TTYM_URXVT) {
3327 out_str_nf((char_u *)
3329 ? IF_EB("\033[?1015h", ESC_STR "[?1015h")
3330 : IF_EB("\033[?1015l", ESC_STR "[?1015l")));
3335 if (xterm_mouse_vers > 0)
3337 if (on) /* enable mouse events, use mouse tracking if available */
3338 out_str_nf((char_u *)
3339 (xterm_mouse_vers > 1
3340 ? IF_EB("\033[?1002h", ESC_STR "[?1002h")
3341 : IF_EB("\033[?1000h", ESC_STR "[?1000h")));
3342 else /* disable mouse events, could probably always send the same */
3343 out_str_nf((char_u *)
3344 (xterm_mouse_vers > 1
3345 ? IF_EB("\033[?1002l", ESC_STR "[?1002l")
3346 : IF_EB("\033[?1000l", ESC_STR "[?1000l")));
3350 # ifdef FEAT_MOUSE_DEC
3351 else if (ttym_flags == TTYM_DEC)
3353 if (on) /* enable mouse events */
3354 out_str_nf((char_u *)"\033[1;2'z\033[1;3'{");
3355 else /* disable mouse events */
3356 out_str_nf((char_u *)"\033['z");
3361 # ifdef FEAT_MOUSE_GPM
3377 # ifdef FEAT_SYSMOUSE
3382 if (sysmouse_open() == OK)
3393 # ifdef FEAT_MOUSE_JSB
3398 /* D - Enable Mouse up/down messages
3399 * L - Enable Left Button Reporting
3400 * M - Enable Middle Button Reporting
3401 * R - Enable Right Button Reporting
3402 * K - Enable SHIFT and CTRL key Reporting
3403 * + - Enable Advanced messaging of mouse moves and up/down messages
3405 * # - Numeric value of mouse pointer required
3406 * 0 = Multiview 2000 cursor, used as standard
3408 * 2 = Windows I Beam
3409 * 3 = Windows Hour Glass
3410 * 4 = Windows Cross Hair
3411 * 5 = Windows UP Arrow
3413 #ifdef JSBTERM_MOUSE_NONADVANCED /* Disables full feedback of pointer movements */
3414 out_str_nf((char_u *)IF_EB("\033[0~ZwLMRK1Q\033\\",
3415 ESC_STR "[0~ZwLMRK1Q" ESC_STR "\\"));
3417 out_str_nf((char_u *)IF_EB("\033[0~ZwLMRK+1Q\033\\",
3418 ESC_STR "[0~ZwLMRK+1Q" ESC_STR "\\"));
3424 out_str_nf((char_u *)IF_EB("\033[0~ZwQ\033\\",
3425 ESC_STR "[0~ZwQ" ESC_STR "\\"));
3430 # ifdef FEAT_MOUSE_PTERM
3433 /* 1 = button press, 6 = release, 7 = drag, 1h...9l = right button */
3435 out_str_nf("\033[>1h\033[>6h\033[>7h\033[>1h\033[>9l");
3437 out_str_nf("\033[>1l\033[>6l\033[>7l\033[>1l\033[>9h");
3444 * Set the mouse termcode, depending on the 'term' and 'ttymouse' options.
3447 check_mouse_termcode()
3449 # ifdef FEAT_MOUSE_XTERM
3450 if (use_xterm_mouse()
3451 # ifdef FEAT_MOUSE_URXVT
3452 && use_xterm_mouse() != 3
3459 set_mouse_termcode(KS_MOUSE, (char_u *)(term_is_8bit(T_NAME)
3460 ? IF_EB("\233M", CSI_STR "M")
3461 : IF_EB("\033[M", ESC_STR "[M")));
3462 if (*p_mouse != NUL)
3464 /* force mouse off and maybe on to send possibly new mouse
3465 * activation sequence to the xterm, with(out) drag tracing. */
3466 mch_setmouse(FALSE);
3471 del_mouse_termcode(KS_MOUSE);
3474 # ifdef FEAT_MOUSE_GPM
3475 if (!use_xterm_mouse()
3480 set_mouse_termcode(KS_MOUSE, (char_u *)IF_EB("\033MG", ESC_STR "MG"));
3483 # ifdef FEAT_SYSMOUSE
3484 if (!use_xterm_mouse()
3489 set_mouse_termcode(KS_MOUSE, (char_u *)IF_EB("\033MS", ESC_STR "MS"));
3492 # ifdef FEAT_MOUSE_JSB
3493 /* conflicts with xterm mouse: "\033[" and "\033[M" ??? */
3494 if (!use_xterm_mouse()
3499 set_mouse_termcode(KS_JSBTERM_MOUSE,
3500 (char_u *)IF_EB("\033[0~zw", ESC_STR "[0~zw"));
3502 del_mouse_termcode(KS_JSBTERM_MOUSE);
3505 # ifdef FEAT_MOUSE_NET
3506 /* There is no conflict, but one may type "ESC }" from Insert mode. Don't
3507 * define it in the GUI or when using an xterm. */
3508 if (!use_xterm_mouse()
3513 set_mouse_termcode(KS_NETTERM_MOUSE,
3514 (char_u *)IF_EB("\033}", ESC_STR "}"));
3516 del_mouse_termcode(KS_NETTERM_MOUSE);
3519 # ifdef FEAT_MOUSE_DEC
3520 /* conflicts with xterm mouse: "\033[" and "\033[M" */
3521 if (!use_xterm_mouse()
3526 set_mouse_termcode(KS_DEC_MOUSE, (char_u *)(term_is_8bit(T_NAME)
3527 ? IF_EB("\233", CSI_STR) : IF_EB("\033[", ESC_STR "[")));
3529 del_mouse_termcode(KS_DEC_MOUSE);
3531 # ifdef FEAT_MOUSE_PTERM
3532 /* same as the dec mouse */
3533 if (!use_xterm_mouse()
3538 set_mouse_termcode(KS_PTERM_MOUSE,
3539 (char_u *) IF_EB("\033[", ESC_STR "["));
3541 del_mouse_termcode(KS_PTERM_MOUSE);
3543 # ifdef FEAT_MOUSE_URXVT
3544 /* same as the dec mouse */
3545 if (use_xterm_mouse() == 3
3551 set_mouse_termcode(KS_URXVT_MOUSE, (char_u *)(term_is_8bit(T_NAME)
3552 ? IF_EB("\233", CSI_STR)
3553 : IF_EB("\033[", ESC_STR "[")));
3555 if (*p_mouse != NUL)
3557 mch_setmouse(FALSE);
3562 del_mouse_termcode(KS_URXVT_MOUSE);
3568 * set screen mode, always fails.
3574 EMSG(_(e_screenmode));
3581 * Try to get the current window size:
3582 * 1. with an ioctl(), most accurate method
3583 * 2. from the environment variables LINES and COLUMNS
3584 * 3. from the termcap
3585 * 4. keep using the old values
3586 * Return OK when size could be determined, FAIL otherwise.
3596 * For OS/2 use _scrsize().
3609 * 1. try using an ioctl. It is the most accurate method.
3611 * Try using TIOCGWINSZ first, some systems that have it also define
3612 * TIOCGSIZE but don't have a struct ttysize.
3619 /* When stdout is not a tty, use stdin for the ioctl(). */
3620 if (!isatty(fd) && isatty(read_cmd_fd))
3622 if (ioctl(fd, TIOCGWINSZ, &ws) == 0)
3624 columns = ws.ws_col;
3628 # else /* TIOCGWINSZ */
3634 /* When stdout is not a tty, use stdin for the ioctl(). */
3635 if (!isatty(fd) && isatty(read_cmd_fd))
3637 if (ioctl(fd, TIOCGSIZE, &ts) == 0)
3639 columns = ts.ts_cols;
3643 # endif /* TIOCGSIZE */
3644 # endif /* TIOCGWINSZ */
3647 * 2. get size from environment
3648 * When being POSIX compliant ('|' flag in 'cpoptions') this overrules
3649 * the ioctl() values!
3651 if (columns == 0 || rows == 0 || vim_strchr(p_cpo, CPO_TSIZE) != NULL)
3653 if ((p = (char_u *)getenv("LINES")))
3654 rows = atoi((char *)p);
3655 if ((p = (char_u *)getenv("COLUMNS")))
3656 columns = atoi((char *)p);
3661 * 3. try reading "co" and "li" entries from termcap
3663 if (columns == 0 || rows == 0)
3664 getlinecol(&columns, &rows);
3668 * 4. If everything fails, use the old values
3670 if (columns <= 0 || rows <= 0)
3679 * Try to set the window size to Rows and Columns.
3687 * NOTE: if you get an error here that term_set_winsize() is
3688 * undefined, check the output of configure. It could probably not
3689 * find a ncurses, termcap or termlib library.
3691 term_set_winsize((int)Rows, (int)Columns);
3693 screen_start(); /* don't know where cursor is now */
3700 * Rows and/or Columns has changed.
3705 /* Nothing to do. */
3709 * Wait for process "child" to end.
3710 * Return "child" if it exited properly, <= 0 on error.
3713 wait4pid(child, status)
3719 while (wait_pid != child)
3721 # ifdef _THREAD_SAFE
3722 /* Ugly hack: when compiled with Python threads are probably
3723 * used, in which case wait() sometimes hangs for no obvious
3724 * reason. Use waitpid() instead and loop (like the GUI). */
3726 wait_pid = wait4(child, status, WNOHANG, (struct rusage *)0);
3728 wait_pid = waitpid(child, status, WNOHANG);
3732 /* Wait for 1/100 sec before trying again. */
3733 mch_delay(10L, TRUE);
3737 wait_pid = wait(status);
3750 mch_call_shell(cmd, options)
3752 int options; /* SHELL_*, see vim.h */
3758 int tmode = cur_tmode;
3759 #ifdef USE_SYSTEM /* use system() to start the shell: simple but slow */
3762 char_u *newcmd; /* only needed for unix */
3765 * Set the preferred shell in the EMXSHELL environment variable (but
3766 * only if it is different from what is already in the environment).
3767 * Emx then takes care of whether to use "/c" or "-c" in an
3768 * intelligent way. Simply pass the whole thing to emx's system() call.
3769 * Emx also starts an interactive shell if system() is passed an empty
3774 if (((old = (char_u *)getenv("EMXSHELL")) == NULL) || STRCMP(old, p_sh))
3776 /* should check HAVE_SETENV, but I know we don't have it. */
3777 p = alloc(10 + strlen(p_sh));
3780 sprintf((char *)p, "EMXSHELL=%s", p_sh);
3781 putenv((char *)p); /* don't free the pointer! */
3788 if (options & SHELL_COOKED)
3789 settmode(TMODE_COOK); /* set to normal mode */
3791 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
3797 x = system(""); /* this starts an interactive shell in emx */
3799 x = system((char *)cmd);
3800 /* system() returns -1 when error occurs in starting shell */
3801 if (x == -1 && !emsg_silent)
3803 MSG_PUTS(_("\nCannot execute shell "));
3807 # else /* not __EMX__ */
3809 x = system((char *)p_sh);
3813 if (ofn = strchr((char *)cmd, '>'))
3815 if (ifn = strchr((char *)cmd, '<'))
3820 p = strchr(ifn,' '); /* chop off any trailing spaces */
3825 x = vms_sys((char *)cmd, ofn, ifn);
3827 x = system((char *)cmd);
3829 newcmd = lalloc(STRLEN(p_sh)
3830 + (extra_shell_arg == NULL ? 0 : STRLEN(extra_shell_arg))
3831 + STRLEN(p_shcf) + STRLEN(cmd) + 4, TRUE);
3836 sprintf((char *)newcmd, "%s %s %s %s", p_sh,
3837 extra_shell_arg == NULL ? "" : (char *)extra_shell_arg,
3840 x = system((char *)newcmd);
3846 x = vms_sys_status(x);
3851 MSG_PUTS(_("\nCannot execute shell sh\n"));
3852 # endif /* __EMX__ */
3853 else if (x && !(options & SHELL_SILENT))
3855 MSG_PUTS(_("\nshell returned "));
3856 msg_outnum((long)x);
3860 if (tmode == TMODE_RAW)
3861 settmode(TMODE_RAW); /* set to raw mode */
3867 #else /* USE_SYSTEM */ /* don't use system(), use fork()/exec() */
3869 # define EXEC_FAILED 122 /* Exit code when shell didn't execute. Don't use
3870 127, some shells use that already */
3872 char_u *newcmd = NULL;
3876 # ifdef HAVE_UNION_WAIT
3884 char_u *p_shcf_copy = NULL;
3889 int pty_master_fd = -1; /* for pty's */
3891 int pty_slave_fd = -1;
3894 int fd_toshell[2]; /* for pipes */
3895 int fd_fromshell[2];
3896 int pipe_error = FALSE;
3900 static char envbuf_Rows[20];
3901 static char envbuf_Columns[20];
3903 int did_settmode = FALSE; /* settmode(TMODE_RAW) called */
3905 newcmd = vim_strsave(p_sh);
3906 if (newcmd == NULL) /* out of memory */
3910 if (options & SHELL_COOKED)
3911 settmode(TMODE_COOK); /* set to normal mode */
3913 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
3918 * Do this loop twice:
3919 * 1: find number of arguments
3920 * 2: separate them and build argv[]
3922 for (i = 0; i < 2; ++i)
3930 argv[argc] = (char *)p;
3932 while (*p && (inquote || (*p != ' ' && *p != TAB)))
3947 * Account for possible multiple args in p_shcf.
3959 argv = (char **)alloc((unsigned)((argc + 4) * sizeof(char *)));
3960 if (argv == NULL) /* out of memory */
3966 if (extra_shell_arg != NULL)
3967 argv[argc++] = (char *)extra_shell_arg;
3969 /* Break 'shellcmdflag' into white separated parts. This doesn't
3970 * handle quoted strings, they are very unlikely to appear. */
3971 p_shcf_copy = alloc((unsigned)STRLEN(p_shcf) + 1);
3972 if (p_shcf_copy == NULL) /* out of memory */
3978 argv[argc++] = (char *)s;
3979 while (*p && *p != ' ' && *p != TAB)
3985 argv[argc++] = (char *)cmd;
3990 * For the GUI, when writing the output into the buffer and when reading
3991 * input from the buffer: Try using a pseudo-tty to get the stdin/stdout
3992 * of the executed command into the Vim window. Or use a pipe.
3994 if ((options & (SHELL_READ|SHELL_WRITE))
3996 || (gui.in_use && show_shell_mess)
4002 * Try to open a master pty.
4003 * If this works, open the slave pty.
4004 * If the slave can't be opened, close the master pty.
4006 if (p_guipty && !(options & (SHELL_READ|SHELL_WRITE)))
4008 pty_master_fd = OpenPTY(&tty_name); /* open pty */
4009 if (pty_master_fd >= 0)
4011 /* Leaving out O_NOCTTY may lead to waitpid() always returning
4012 * 0 on Mac OS X 10.7 thereby causing freezes. Let's assume
4013 * adding O_NOCTTY always works when defined. */
4015 pty_slave_fd = open(tty_name, O_RDWR | O_NOCTTY | O_EXTRA, 0);
4017 pty_slave_fd = open(tty_name, O_RDWR | O_EXTRA, 0);
4019 if (pty_slave_fd < 0)
4021 close(pty_master_fd);
4027 * If not opening a pty or it didn't work, try using pipes.
4029 if (pty_master_fd < 0)
4032 pipe_error = (pipe(fd_toshell) < 0);
4033 if (!pipe_error) /* pipe create OK */
4035 pipe_error = (pipe(fd_fromshell) < 0);
4036 if (pipe_error) /* pipe create failed */
4038 close(fd_toshell[0]);
4039 close(fd_toshell[1]);
4044 MSG_PUTS(_("\nCannot create pipes\n"));
4050 if (!pipe_error) /* pty or pipe opened or not used */
4053 beos_cleanup_read_thread();
4056 if ((pid = fork()) == -1) /* maybe we should use vfork() */
4058 MSG_PUTS(_("\nCannot fork\n"));
4059 if ((options & (SHELL_READ|SHELL_WRITE))
4061 || (gui.in_use && show_shell_mess)
4066 if (pty_master_fd >= 0) /* close the pseudo tty */
4068 close(pty_master_fd);
4069 close(pty_slave_fd);
4071 else /* close the pipes */
4074 close(fd_toshell[0]);
4075 close(fd_toshell[1]);
4076 close(fd_fromshell[0]);
4077 close(fd_fromshell[1]);
4081 else if (pid == 0) /* child */
4083 reset_signals(); /* handle signals normally */
4085 if (!show_shell_mess || (options & SHELL_EXPAND))
4090 * Don't want to show any message from the shell. Can't just
4091 * close stdout and stderr though, because some systems will
4092 * break if you try to write to them after that, so we must
4093 * use dup() to replace them with something else -- webb
4094 * Connect stdin to /dev/null too, so ":n `cat`" doesn't hang,
4095 * waiting for input.
4097 fd = open("/dev/null", O_RDWR | O_EXTRA, 0);
4103 * If any of these open()'s and dup()'s fail, we just continue
4104 * anyway. It's not fatal, and on most systems it will make
4105 * no difference at all. On a few it will cause the execvp()
4106 * to exit with a non-zero status even when the completion
4107 * could be done, which is nothing too serious. If the open()
4108 * or dup() failed we'd just do the same thing ourselves
4113 ignored = dup(fd); /* To replace stdin (fd 0) */
4114 ignored = dup(fd); /* To replace stdout (fd 1) */
4115 ignored = dup(fd); /* To replace stderr (fd 2) */
4117 /* Don't need this now that we've duplicated it */
4121 else if ((options & (SHELL_READ|SHELL_WRITE))
4129 /* Create our own process group, so that the child and all its
4130 * children can be kill()ed. Don't do this when using pipes,
4131 * because stdin is not a tty, we would lose /dev/tty. */
4135 # if defined(SIGHUP)
4136 /* When doing "!xterm&" and 'shell' is bash: the shell
4137 * will exit and send SIGHUP to all processes in its
4138 * group, killing the just started process. Ignore SIGHUP
4139 * to avoid that. (suggested by Simon Schubert)
4141 signal(SIGHUP, SIG_IGN);
4146 if (pty_slave_fd >= 0)
4148 /* push stream discipline modules */
4149 if (options & SHELL_COOKED)
4150 SetupSlavePTY(pty_slave_fd);
4152 /* Try to become controlling tty (probably doesn't work,
4153 * unless run by root) */
4154 ioctl(pty_slave_fd, TIOCSCTTY, (char *)NULL);
4158 /* Simulate to have a dumb terminal (for now) */
4160 setenv("TERM", "dumb", 1);
4161 sprintf((char *)envbuf, "%ld", Rows);
4162 setenv("ROWS", (char *)envbuf, 1);
4163 sprintf((char *)envbuf, "%ld", Rows);
4164 setenv("LINES", (char *)envbuf, 1);
4165 sprintf((char *)envbuf, "%ld", Columns);
4166 setenv("COLUMNS", (char *)envbuf, 1);
4169 * Putenv does not copy the string, it has to remain valid.
4170 * Use a static array to avoid losing allocated memory.
4172 putenv("TERM=dumb");
4173 sprintf(envbuf_Rows, "ROWS=%ld", Rows);
4174 putenv(envbuf_Rows);
4175 sprintf(envbuf_Rows, "LINES=%ld", Rows);
4176 putenv(envbuf_Rows);
4177 sprintf(envbuf_Columns, "COLUMNS=%ld", Columns);
4178 putenv(envbuf_Columns);
4182 * stderr is only redirected when using the GUI, so that a
4183 * program like gpg can still access the terminal to get a
4184 * passphrase using stderr.
4187 if (pty_master_fd >= 0)
4189 close(pty_master_fd); /* close master side of pty */
4191 /* set up stdin/stdout/stderr for the child */
4193 ignored = dup(pty_slave_fd);
4195 ignored = dup(pty_slave_fd);
4199 ignored = dup(pty_slave_fd);
4202 close(pty_slave_fd); /* has been dupped, close it now */
4207 /* set up stdin for the child */
4208 close(fd_toshell[1]);
4210 ignored = dup(fd_toshell[0]);
4211 close(fd_toshell[0]);
4213 /* set up stdout for the child */
4214 close(fd_fromshell[0]);
4216 ignored = dup(fd_fromshell[1]);
4217 close(fd_fromshell[1]);
4222 /* set up stderr for the child */
4231 * There is no type cast for the argv, because the type may be
4232 * different on different machines. This may cause a warning
4233 * message with strict compilers, don't worry about it.
4234 * Call _exit() instead of exit() to avoid closing the connection
4235 * to the X server (esp. with GTK, which uses atexit()).
4237 execvp(argv[0], argv);
4238 _exit(EXEC_FAILED); /* exec failed, return failure code */
4243 * While child is running, ignore terminating signals.
4244 * Do catch CTRL-C, so that "got_int" is set.
4246 catch_signals(SIG_IGN, SIG_ERR);
4250 * For the GUI we redirect stdin, stdout and stderr to our window.
4251 * This is also used to pipe stdin/stdout to/from the external
4254 if ((options & (SHELL_READ|SHELL_WRITE))
4256 || (gui.in_use && show_shell_mess)
4260 # define BUFLEN 100 /* length for buffer, pseudo tty limit is 128 */
4261 char_u buffer[BUFLEN + 1];
4263 int buffer_off = 0; /* valid bytes in buffer[] */
4265 char_u ta_buf[BUFLEN + 1]; /* TypeAHead */
4266 int ta_len = 0; /* valid bytes in ta_buf[] */
4275 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4276 struct timeval start_tv;
4280 if (pty_master_fd >= 0)
4282 fromshell_fd = pty_master_fd;
4283 toshell_fd = dup(pty_master_fd);
4288 close(fd_toshell[0]);
4289 close(fd_fromshell[1]);
4290 toshell_fd = fd_toshell[1];
4291 fromshell_fd = fd_fromshell[0];
4295 * Write to the child if there are typed characters.
4296 * Read from the child if there are characters available.
4297 * Repeat the reading a few times if more characters are
4298 * available. Need to check for typed keys now and then, but
4299 * not too often (delays when no chars are available).
4300 * This loop is quit if no characters can be read from the pty
4301 * (WaitForChar detected special condition), or there are no
4302 * characters available and the child has exited.
4303 * Only check if the child has exited when there is no more
4304 * output. The child may exit before all the output has
4307 * Currently this busy loops!
4308 * This can probably dead-lock when the write blocks!
4310 p_more_save = p_more;
4313 State = EXTERNCMD; /* don't redraw at window resize */
4315 if ((options & SHELL_WRITE) && toshell_fd >= 0)
4317 /* Fork a process that will write the lines to the
4318 * external program. */
4319 if ((wpid = fork()) == -1)
4321 MSG_PUTS(_("\nCannot fork\n"));
4323 else if (wpid == 0) /* child */
4325 linenr_T lnum = curbuf->b_op_start.lnum;
4327 char_u *lp = ml_get(lnum);
4331 close(fromshell_fd);
4334 l = STRLEN(lp + written);
4337 else if (lp[written] == NL)
4338 /* NL -> NUL translation */
4339 len = write(toshell_fd, "", (size_t)1);
4342 s = vim_strchr(lp + written, NL);
4343 len = write(toshell_fd, (char *)lp + written,
4345 : (size_t)(s - (lp + written)));
4349 /* Finished a line, add a NL, unless this line
4350 * should not have one. */
4351 if (lnum != curbuf->b_op_end.lnum
4353 || (lnum != curbuf->b_no_eol_lnum
4355 curbuf->b_ml.ml_line_count
4356 || curbuf->b_p_eol)))
4357 ignored = write(toshell_fd, "\n",
4360 if (lnum > curbuf->b_op_end.lnum)
4362 /* finished all the lines, close pipe */
4382 if (options & SHELL_READ)
4383 ga_init2(&ga, 1, BUFLEN);
4386 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4387 gettimeofday(&start_tv, NULL);
4392 * Check if keys have been typed, write them to the child
4394 * Don't do this if we are expanding wild cards (would eat
4396 * Don't do this when filtering and terminal is in cooked
4397 * mode, the shell command will handle the I/O. Avoids
4398 * that a typed password is echoed for ssh or gpg command.
4399 * Don't get characters when the child has already
4400 * finished (wait_pid == 0).
4401 * Don't read characters unless we didn't get output for a
4402 * while (noread_cnt > 4), avoids that ":r !ls" eats
4406 if (!(options & SHELL_EXPAND)
4408 (SHELL_READ|SHELL_WRITE|SHELL_COOKED))
4409 != (SHELL_READ|SHELL_WRITE|SHELL_COOKED)
4415 && (ta_len > 0 || noread_cnt > 4))
4419 /* Get extra characters when we don't have any.
4420 * Reset the counter and timer. */
4422 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4423 gettimeofday(&start_tv, NULL);
4425 len = ui_inchar(ta_buf, BUFLEN, 10L, 0);
4427 if (ta_len > 0 || len > 0)
4431 * Check for CTRL-C: send interrupt signal to child.
4432 * Check for CTRL-D: EOF, close pipe to child.
4434 if (len == 1 && (pty_master_fd < 0 || cmd != NULL))
4438 * Send SIGINT to the child's group or all
4439 * processes in our group.
4441 if (ta_buf[ta_len] == Ctrl_C
4442 || ta_buf[ta_len] == intr_char)
4453 if (pty_master_fd < 0 && toshell_fd >= 0
4454 && ta_buf[ta_len] == Ctrl_D)
4461 /* replace K_BS by <BS> and K_DEL by <DEL> */
4462 for (i = ta_len; i < ta_len + len; ++i)
4464 if (ta_buf[i] == CSI && len - i > 2)
4466 c = TERMCAP2KEY(ta_buf[i + 1], ta_buf[i + 2]);
4467 if (c == K_DEL || c == K_KDEL || c == K_BS)
4469 mch_memmove(ta_buf + i + 1, ta_buf + i + 3,
4470 (size_t)(len - i - 2));
4471 if (c == K_DEL || c == K_KDEL)
4478 else if (ta_buf[i] == '\r')
4482 i += (*mb_ptr2len_len)(ta_buf + i,
4483 ta_len + len - i) - 1;
4488 * For pipes: echo the typed characters.
4489 * For a pty this does not seem to work.
4491 if (pty_master_fd < 0)
4493 for (i = ta_len; i < ta_len + len; ++i)
4495 if (ta_buf[i] == '\n' || ta_buf[i] == '\b')
4496 msg_putchar(ta_buf[i]);
4500 int l = (*mb_ptr2len)(ta_buf + i);
4502 msg_outtrans_len(ta_buf + i, l);
4507 msg_outtrans_len(ta_buf + i, 1);
4509 windgoto(msg_row, msg_col);
4516 * Write the characters to the child, unless EOF has
4517 * been typed for pipes. Write one character at a
4518 * time, to avoid losing too much typeahead.
4519 * When writing buffer lines, drop the typed
4520 * characters (only check for CTRL-C).
4522 if (options & SHELL_WRITE)
4524 else if (toshell_fd >= 0)
4526 len = write(toshell_fd, (char *)ta_buf, (size_t)1);
4530 mch_memmove(ta_buf, ta_buf + len, ta_len);
4538 /* CTRL-C sends a signal to the child, we ignore it
4551 * Check if the child has any characters to be printed.
4552 * Read them and write them to our window. Repeat this as
4553 * long as there is something to do, avoid the 10ms wait
4554 * for mch_inchar(), or sending typeahead characters to
4555 * the external process.
4556 * TODO: This should handle escape sequences, compatible
4557 * to some terminal (vt52?).
4560 while (RealWaitForChar(fromshell_fd, 10L, NULL))
4562 len = read_eintr(fromshell_fd, buffer
4564 + buffer_off, (size_t)(BUFLEN - buffer_off)
4569 if (len <= 0) /* end of file or error */
4573 if (options & SHELL_READ)
4575 /* Do NUL -> NL translation, append NL separated
4576 * lines to the current buffer. */
4577 for (i = 0; i < len; ++i)
4579 if (buffer[i] == NL)
4580 append_ga_line(&ga);
4581 else if (buffer[i] == NUL)
4584 ga_append(&ga, buffer[i]);
4595 /* Check if the last character in buffer[] is
4596 * incomplete, keep these bytes for the next
4598 for (p = buffer; p < buffer + len; p += l)
4602 l = 1; /* NUL byte? */
4603 else if (MB_BYTE2LEN(*p) != l)
4606 if (p == buffer) /* no complete character */
4608 /* avoid getting stuck at an illegal byte */
4620 if (p < buffer + len)
4623 buffer_off = (buffer + len) - p;
4624 mch_memmove(buffer, p, buffer_off);
4629 # endif /* FEAT_MBYTE */
4636 windgoto(msg_row, msg_col);
4642 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4644 struct timeval now_tv;
4647 /* Avoid that we keep looping here without
4648 * checking for a CTRL-C for a long time. Don't
4649 * break out too often to avoid losing typeahead. */
4650 gettimeofday(&now_tv, NULL);
4651 msec = (now_tv.tv_sec - start_tv.tv_sec) * 1000L
4652 + (now_tv.tv_usec - start_tv.tv_usec) / 1000L;
4662 /* If we already detected the child has finished break the
4664 if (wait_pid == pid)
4668 * Check if the child still exists, before checking for
4669 * typed characters (otherwise we would lose typeahead).
4672 wait_pid = wait4(pid, &status, WNOHANG, (struct rusage *)0);
4674 wait_pid = waitpid(pid, &status, WNOHANG);
4676 if ((wait_pid == (pid_t)-1 && errno == ECHILD)
4677 || (wait_pid == pid && WIFEXITED(status)))
4679 /* Don't break the loop yet, try reading more
4680 * characters from "fromshell_fd" first. When using
4681 * pipes there might still be something to read and
4682 * then we'll break the loop at the "break" above. */
4689 p_more = p_more_save;
4690 if (options & SHELL_READ)
4694 append_ga_line(&ga);
4695 /* remember that the NL was missing */
4696 curbuf->b_no_eol_lnum = curwin->w_cursor.lnum;
4699 curbuf->b_no_eol_lnum = 0;
4704 * Give all typeahead that wasn't used back to ui_inchar().
4707 ui_inchar_undo(ta_buf, ta_len);
4709 if (toshell_fd >= 0)
4711 close(fromshell_fd);
4715 * Wait until our child has exited.
4716 * Ignore wait() returning pids of other children and returning
4717 * because of some signal like SIGWINCH.
4718 * Don't wait if wait_pid was already set above, indicating the
4719 * child already exited.
4721 if (wait_pid != pid)
4722 wait_pid = wait4pid(pid, &status);
4725 /* Close slave side of pty. Only do this after the child has
4726 * exited, otherwise the child may hang when it tries to write on
4728 if (pty_master_fd >= 0)
4729 close(pty_slave_fd);
4732 /* Make sure the child that writes to the external program is
4736 kill(wpid, SIGKILL);
4737 wait4pid(wpid, NULL);
4741 * Set to raw mode right now, otherwise a CTRL-C after
4742 * catch_signals() will kill Vim.
4744 if (tmode == TMODE_RAW)
4745 settmode(TMODE_RAW);
4746 did_settmode = TRUE;
4749 if (WIFEXITED(status))
4751 /* LINTED avoid "bitwise operation on signed value" */
4752 retval = WEXITSTATUS(status);
4753 if (retval && !emsg_silent)
4755 if (retval == EXEC_FAILED)
4757 MSG_PUTS(_("\nCannot execute shell "));
4761 else if (!(options & SHELL_SILENT))
4763 MSG_PUTS(_("\nshell returned "));
4764 msg_outnum((long)retval);
4770 MSG_PUTS(_("\nCommand terminated\n"));
4774 vim_free(p_shcf_copy);
4778 if (tmode == TMODE_RAW)
4779 settmode(TMODE_RAW); /* set to raw mode */
4787 #endif /* USE_SYSTEM */
4791 * Check for CTRL-C typed by reading all available characters.
4792 * In cooked mode we should get SIGINT, no need to check.
4797 if (curr_tmode == TMODE_RAW && RealWaitForChar(read_cmd_fd, 0L, NULL))
4798 fill_input_buf(FALSE);
4802 * Wait "msec" msec until a character is available from the keyboard or from
4803 * inbuf[]. msec == -1 will block forever.
4804 * When a GUI is being used, this will never get called -- webb
4810 #ifdef FEAT_MOUSE_GPM
4811 int gpm_process_wanted;
4813 #ifdef FEAT_XCLIPBOARD
4818 if (input_available()) /* something in inbuf[] */
4821 #if defined(FEAT_MOUSE_DEC)
4822 /* May need to query the mouse position. */
4825 WantQueryMouse = FALSE;
4826 mch_write((char_u *)IF_EB("\033[1'|", ESC_STR "[1'|"), 5);
4831 * For FEAT_MOUSE_GPM and FEAT_XCLIPBOARD we loop here to process mouse
4832 * events. This is a bit complicated, because they might both be defined.
4834 #if defined(FEAT_MOUSE_GPM) || defined(FEAT_XCLIPBOARD)
4835 # ifdef FEAT_XCLIPBOARD
4837 if (do_xterm_trace())
4842 # ifdef FEAT_XCLIPBOARD
4845 msec = XT_TRACE_DELAY;
4846 if (rest >= 0 && rest < XT_TRACE_DELAY)
4852 # ifdef FEAT_MOUSE_GPM
4853 gpm_process_wanted = 0;
4854 avail = RealWaitForChar(read_cmd_fd, msec, &gpm_process_wanted);
4856 avail = RealWaitForChar(read_cmd_fd, msec, NULL);
4860 if (input_available())
4862 # ifdef FEAT_XCLIPBOARD
4863 if (rest == 0 || !do_xterm_trace())
4869 # ifdef FEAT_MOUSE_GPM
4870 || (gpm_process_wanted && mch_gpm_process() == 0)
4872 # ifdef FEAT_XCLIPBOARD
4873 || (!avail && rest != 0)
4878 avail = RealWaitForChar(read_cmd_fd, msec, NULL);
4884 * Wait "msec" msec until a character is available from file descriptor "fd".
4885 * "msec" == 0 will check for characters once.
4886 * "msec" == -1 will block until a character is available.
4887 * When a GUI is being used, this will not be used for input -- webb
4888 * Returns also, when a request from Sniff is waiting -- toni.
4889 * Or when a Linux GPM mouse event is waiting.
4891 #if defined(__BEOS__)
4896 RealWaitForChar(fd, msec, check_for_gpm)
4899 int *check_for_gpm UNUSED;
4902 #ifdef FEAT_NETBEANS_INTG
4903 int nb_fd = netbeans_filedesc();
4905 #if defined(FEAT_XCLIPBOARD) || defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4906 static int busy = FALSE;
4908 /* May retry getting characters after an event was handled. */
4911 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4912 /* Remember at what time we started, so that we know how much longer we
4913 * should wait after being interrupted. */
4914 # define USE_START_TV
4915 struct timeval start_tv;
4918 # ifdef FEAT_XCLIPBOARD
4919 xterm_Shell != (Widget)0
4920 # if defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4926 # ifdef FEAT_MZSCHEME
4930 # ifdef FEAT_MZSCHEME
4931 (mzthreads_allowed() && p_mzq > 0)
4934 gettimeofday(&start_tv, NULL);
4937 /* Handle being called recursively. This may happen for the session
4938 * manager stuff, it may save the file, which does a breakcheck. */
4948 int finished = TRUE; /* default is to 'loop' just once */
4949 # ifdef FEAT_MZSCHEME
4950 int mzquantum_used = FALSE;
4954 struct pollfd fds[6];
4956 # ifdef FEAT_XCLIPBOARD
4959 # ifdef FEAT_MOUSE_GPM
4965 # ifdef FEAT_NETBEANS_INTG
4968 int towait = (int)msec;
4970 # ifdef FEAT_MZSCHEME
4971 mzvim_check_threads();
4972 if (mzthreads_allowed() && p_mzq > 0 && (msec < 0 || msec > p_mzq))
4974 towait = (int)p_mzq; /* don't wait longer than 'mzquantum' */
4975 mzquantum_used = TRUE;
4979 fds[0].events = POLLIN;
4983 # define SNIFF_IDX 1
4984 if (want_sniff_request)
4986 fds[SNIFF_IDX].fd = fd_from_sniff;
4987 fds[SNIFF_IDX].events = POLLIN;
4991 # ifdef FEAT_XCLIPBOARD
4992 if (xterm_Shell != (Widget)0)
4995 fds[nfd].fd = ConnectionNumber(xterm_dpy);
4996 fds[nfd].events = POLLIN;
5000 # ifdef FEAT_MOUSE_GPM
5001 if (check_for_gpm != NULL && gpm_flag && gpm_fd >= 0)
5004 fds[nfd].fd = gpm_fd;
5005 fds[nfd].events = POLLIN;
5010 if (xsmp_icefd != -1)
5013 fds[nfd].fd = xsmp_icefd;
5014 fds[nfd].events = POLLIN;
5018 #ifdef FEAT_NETBEANS_INTG
5022 fds[nfd].fd = nb_fd;
5023 fds[nfd].events = POLLIN;
5028 ret = poll(fds, nfd, towait);
5029 # ifdef FEAT_MZSCHEME
5030 if (ret == 0 && mzquantum_used)
5031 /* MzThreads scheduling is required and timeout occurred */
5037 sniff_disconnect(1);
5038 else if (want_sniff_request)
5040 if (fds[SNIFF_IDX].revents & POLLHUP)
5041 sniff_disconnect(1);
5042 if (fds[SNIFF_IDX].revents & POLLIN)
5043 sniff_request_waiting = 1;
5046 # ifdef FEAT_XCLIPBOARD
5047 if (xterm_Shell != (Widget)0 && (fds[xterm_idx].revents & POLLIN))
5049 xterm_update(); /* Maybe we should hand out clipboard */
5050 if (--ret == 0 && !input_available())
5055 # ifdef FEAT_MOUSE_GPM
5056 if (gpm_idx >= 0 && (fds[gpm_idx].revents & POLLIN))
5062 if (xsmp_idx >= 0 && (fds[xsmp_idx].revents & (POLLIN | POLLHUP)))
5064 if (fds[xsmp_idx].revents & POLLIN)
5067 xsmp_handle_requests();
5070 else if (fds[xsmp_idx].revents & POLLHUP)
5073 verb_msg((char_u *)_("XSMP lost ICE connection"));
5077 finished = FALSE; /* Try again */
5080 #ifdef FEAT_NETBEANS_INTG
5081 if (ret > 0 && nb_idx != -1 && fds[nb_idx].revents & POLLIN)
5089 #else /* HAVE_SELECT */
5092 struct timeval *tvp;
5097 # ifdef FEAT_MZSCHEME
5098 mzvim_check_threads();
5099 if (mzthreads_allowed() && p_mzq > 0 && (msec < 0 || msec > p_mzq))
5101 towait = p_mzq; /* don't wait longer than 'mzquantum' */
5102 mzquantum_used = TRUE;
5106 /* don't check for incoming chars if not in raw mode, because select()
5107 * always returns TRUE then (in some version of emx.dll) */
5108 if (curr_tmode != TMODE_RAW)
5114 tv.tv_sec = towait / 1000;
5115 tv.tv_usec = (towait % 1000) * (1000000/1000);
5122 * Select on ready for reading and exceptional condition (end of file).
5128 # if !defined(__QNX__) && !defined(__CYGWIN32__)
5129 /* For QNX select() always returns 1 if this is set. Why? */
5135 if (want_sniff_request)
5137 FD_SET(fd_from_sniff, &rfds);
5138 FD_SET(fd_from_sniff, &efds);
5139 if (maxfd < fd_from_sniff)
5140 maxfd = fd_from_sniff;
5143 # ifdef FEAT_XCLIPBOARD
5144 if (xterm_Shell != (Widget)0)
5146 FD_SET(ConnectionNumber(xterm_dpy), &rfds);
5147 if (maxfd < ConnectionNumber(xterm_dpy))
5148 maxfd = ConnectionNumber(xterm_dpy);
5151 # ifdef FEAT_MOUSE_GPM
5152 if (check_for_gpm != NULL && gpm_flag && gpm_fd >= 0)
5154 FD_SET(gpm_fd, &rfds);
5155 FD_SET(gpm_fd, &efds);
5161 if (xsmp_icefd != -1)
5163 FD_SET(xsmp_icefd, &rfds);
5164 FD_SET(xsmp_icefd, &efds);
5165 if (maxfd < xsmp_icefd)
5169 #ifdef FEAT_NETBEANS_INTG
5172 FD_SET(nb_fd, &rfds);
5179 /* Old VMS as v6.2 and older have broken select(). It waits more than
5180 * required. Should not be used */
5183 ret = select(maxfd + 1, &rfds, NULL, &efds, tvp);
5186 if (ret == -1 && errno == EINTR)
5188 /* Check whether window has been resized, EINTR may be caused by
5193 /* Interrupted by a signal, need to try again. We ignore msec
5194 * here, because we do want to check even after a timeout if
5195 * characters are available. Needed for reading output of an
5196 * external command after the process has finished. */
5201 if (ret == -1 && errno == ENOTSUP)
5208 # ifdef FEAT_MZSCHEME
5209 if (ret == 0 && mzquantum_used)
5210 /* loop if MzThreads must be scheduled and timeout occurred */
5216 sniff_disconnect(1);
5217 else if (ret > 0 && want_sniff_request)
5219 if (FD_ISSET(fd_from_sniff, &efds))
5220 sniff_disconnect(1);
5221 if (FD_ISSET(fd_from_sniff, &rfds))
5222 sniff_request_waiting = 1;
5225 # ifdef FEAT_XCLIPBOARD
5226 if (ret > 0 && xterm_Shell != (Widget)0
5227 && FD_ISSET(ConnectionNumber(xterm_dpy), &rfds))
5229 xterm_update(); /* Maybe we should hand out clipboard */
5230 /* continue looping when we only got the X event and the input
5231 * buffer is empty */
5232 if (--ret == 0 && !input_available())
5239 # ifdef FEAT_MOUSE_GPM
5240 if (ret > 0 && gpm_flag && check_for_gpm != NULL && gpm_fd >= 0)
5242 if (FD_ISSET(gpm_fd, &efds))
5244 else if (FD_ISSET(gpm_fd, &rfds))
5249 if (ret > 0 && xsmp_icefd != -1)
5251 if (FD_ISSET(xsmp_icefd, &efds))
5254 verb_msg((char_u *)_("XSMP lost ICE connection"));
5257 finished = FALSE; /* keep going if event was only one */
5259 else if (FD_ISSET(xsmp_icefd, &rfds))
5262 xsmp_handle_requests();
5265 finished = FALSE; /* keep going if event was only one */
5269 #ifdef FEAT_NETBEANS_INTG
5270 if (ret > 0 && nb_fd != -1 && FD_ISSET(nb_fd, &rfds))
5277 #endif /* HAVE_SELECT */
5280 if (finished || msec == 0)
5283 /* We're going to loop around again, find out for how long */
5286 # ifdef USE_START_TV
5289 /* Compute remaining wait time. */
5290 gettimeofday(&mtv, NULL);
5291 msec -= (mtv.tv_sec - start_tv.tv_sec) * 1000L
5292 + (mtv.tv_usec - start_tv.tv_usec) / 1000L;
5294 /* Guess we got interrupted halfway. */
5298 break; /* waited long enough */
5308 #ifndef NO_EXPANDPATH
5310 * Expand a path into all matching files and/or directories. Handles "*",
5311 * "?", "[a-z]", "**", etc.
5312 * "path" has backslashes before chars that are not to be expanded.
5313 * Returns the number of matches found.
5316 mch_expandpath(gap, path, flags)
5319 int flags; /* EW_* flags */
5321 return unix_expandpath(gap, path, 0, flags, FALSE);
5326 * mch_expand_wildcards() - this code does wild-card pattern matching using
5329 * return OK for success, FAIL for error (you may lose some memory) and put
5330 * an error message in *file.
5332 * num_pat is number of input patterns
5333 * pat is array of pointers to input patterns
5334 * num_file is pointer to number of matched file names
5335 * file is pointer to array of pointers to matched file names
5345 #define SHELL_SPECIAL (char_u *)"\t \"&'$;<>()\\|"
5348 mch_expand_wildcards(num_pat, pat, num_file, file, flags)
5353 int flags; /* EW_* flags */
5361 * This is the OS/2 implementation.
5363 # define EXPL_ALLOC_INC 16
5364 char_u **expl_files;
5365 size_t files_alloced, files_free;
5369 *num_file = 0; /* default: no files found */
5370 files_alloced = EXPL_ALLOC_INC; /* how much space is allocated */
5371 files_free = EXPL_ALLOC_INC; /* how much space is not used */
5372 *file = (char_u **)alloc(sizeof(char_u **) * files_alloced);
5376 for (; num_pat > 0; num_pat--, pat++)
5379 if (vim_strchr(*pat, '$') || vim_strchr(*pat, '~'))
5380 /* expand environment var or home dir */
5381 buf = expand_env_save(*pat);
5383 buf = vim_strsave(*pat);
5385 has_wildcard = mch_has_exp_wildcard(buf); /* (still) wildcards? */
5386 if (has_wildcard) /* yes, so expand them */
5387 expl_files = (char_u **)_fnexplode(buf);
5390 * return value of buf if no wildcards left,
5391 * OR if no match AND EW_NOTFOUND is set.
5393 if ((!has_wildcard && ((flags & EW_NOTFOUND) || mch_getperm(buf) >= 0))
5394 || (expl_files == NULL && (flags & EW_NOTFOUND)))
5395 { /* simply save the current contents of *buf */
5396 expl_files = (char_u **)alloc(sizeof(char_u **) * 2);
5397 if (expl_files != NULL)
5399 expl_files[0] = vim_strsave(buf);
5400 expl_files[1] = NULL;
5406 * Count number of names resulting from expansion,
5407 * At the same time add a backslash to the end of names that happen to
5408 * be directories, and replace slashes with backslashes.
5412 for (i = 0; (p = expl_files[i]) != NULL; i++)
5415 /* If we don't want dirs and this is one, skip it */
5416 if ((dir && !(flags & EW_DIR)) || (!dir && !(flags & EW_FILE)))
5419 /* Skip files that are not executable if we check for that. */
5420 if (!dir && (flags & EW_EXEC) && !mch_can_exe(p))
5423 if (--files_free == 0)
5425 /* need more room in table of pointers */
5426 files_alloced += EXPL_ALLOC_INC;
5427 *file = (char_u **)vim_realloc(*file,
5428 sizeof(char_u **) * files_alloced);
5431 EMSG(_(e_outofmem));
5435 files_free = EXPL_ALLOC_INC;
5440 /* For a directory we add a '/', unless it's already
5443 if (((*file)[*num_file] = alloc(len + 2)) != NULL)
5445 STRCPY((*file)[*num_file], p);
5446 if (!after_pathsep((*file)[*num_file],
5447 (*file)[*num_file] + len))
5449 (*file)[*num_file][len] = psepc;
5450 (*file)[*num_file][len + 1] = NUL;
5456 (*file)[*num_file] = vim_strsave(p);
5460 * Error message already given by either alloc or vim_strsave.
5461 * Should return FAIL, but returning OK works also.
5463 if ((*file)[*num_file] == NULL)
5467 _fnexplodefree((char **)expl_files);
5474 * This is the non-OS/2 implementation (really Unix).
5481 #define STYLE_ECHO 0 /* use "echo", the default */
5482 #define STYLE_GLOB 1 /* use "glob", for csh */
5483 #define STYLE_VIMGLOB 2 /* use "vimglob", for Posix sh */
5484 #define STYLE_PRINT 3 /* use "print -N", for zsh */
5485 #define STYLE_BT 4 /* `cmd` expansion, execute the pattern
5487 int shell_style = STYLE_ECHO;
5489 static int did_find_nul = FALSE;
5490 int ampersent = FALSE;
5491 /* vimglob() function to define for Posix shell */
5492 static char *sh_vimglob_func = "vimglob() { while [ $# -ge 1 ]; do echo \"$1\"; shift; done }; vimglob >";
5494 *num_file = 0; /* default: no files found */
5498 * If there are no wildcards, just copy the names to allocated memory.
5499 * Saves a lot of time, because we don't have to start a new shell.
5501 if (!have_wildcard(num_pat, pat))
5502 return save_patterns(num_pat, pat, num_file, file);
5504 # ifdef HAVE_SANDBOX
5505 /* Don't allow any shell command in the sandbox. */
5506 if (sandbox != 0 && check_secure())
5511 * Don't allow the use of backticks in secure and restricted mode.
5513 if (secure || restricted)
5514 for (i = 0; i < num_pat; ++i)
5515 if (vim_strchr(pat[i], '`') != NULL
5516 && (check_restricted() || check_secure()))
5520 * get a name for the temp file
5522 if ((tempname = vim_tempname('o')) == NULL)
5529 * Let the shell expand the patterns and write the result into the temp
5531 * STYLE_BT: NL separated
5532 * If expanding `cmd` execute it directly.
5533 * STYLE_GLOB: NUL separated
5534 * If we use *csh, "glob" will work better than "echo".
5535 * STYLE_PRINT: NL or NUL separated
5536 * If we use *zsh, "print -N" will work better than "glob".
5537 * STYLE_VIMGLOB: NL separated
5538 * If we use *sh*, we define "vimglob()".
5539 * STYLE_ECHO: space separated.
5540 * A shell we don't know, stay safe and use "echo".
5542 if (num_pat == 1 && *pat[0] == '`'
5543 && (len = STRLEN(pat[0])) > 2
5544 && *(pat[0] + len - 1) == '`')
5545 shell_style = STYLE_BT;
5546 else if ((len = STRLEN(p_sh)) >= 3)
5548 if (STRCMP(p_sh + len - 3, "csh") == 0)
5549 shell_style = STYLE_GLOB;
5550 else if (STRCMP(p_sh + len - 3, "zsh") == 0)
5551 shell_style = STYLE_PRINT;
5553 if (shell_style == STYLE_ECHO && strstr((char *)gettail(p_sh),
5555 shell_style = STYLE_VIMGLOB;
5557 /* Compute the length of the command. We need 2 extra bytes: for the
5558 * optional '&' and for the NUL.
5559 * Worst case: "unset nonomatch; print -N >" plus two is 29 */
5560 len = STRLEN(tempname) + 29;
5561 if (shell_style == STYLE_VIMGLOB)
5562 len += STRLEN(sh_vimglob_func);
5564 for (i = 0; i < num_pat; ++i)
5566 /* Count the length of the patterns in the same way as they are put in
5567 * "command" below. */
5569 len += STRLEN(pat[i]) + 3; /* add space and two quotes */
5571 ++len; /* add space */
5572 for (j = 0; pat[i][j] != NUL; ++j)
5574 if (vim_strchr(SHELL_SPECIAL, pat[i][j]) != NULL)
5575 ++len; /* may add a backslash */
5580 command = alloc(len);
5581 if (command == NULL)
5589 * Build the shell command:
5590 * - Set $nonomatch depending on EW_NOTFOUND (hopefully the shell
5592 * - Add the shell command to print the expanded names.
5593 * - Add the temp file name.
5594 * - Add the file name patterns.
5596 if (shell_style == STYLE_BT)
5598 /* change `command; command& ` to (command; command ) */
5599 STRCPY(command, "(");
5600 STRCAT(command, pat[0] + 1); /* exclude first backtick */
5601 p = command + STRLEN(command) - 1;
5602 *p-- = ')'; /* remove last backtick */
5603 while (p > command && vim_iswhite(*p))
5605 if (*p == '&') /* remove trailing '&' */
5610 STRCAT(command, ">");
5614 if (flags & EW_NOTFOUND)
5615 STRCPY(command, "set nonomatch; ");
5617 STRCPY(command, "unset nonomatch; ");
5618 if (shell_style == STYLE_GLOB)
5619 STRCAT(command, "glob >");
5620 else if (shell_style == STYLE_PRINT)
5621 STRCAT(command, "print -N >");
5622 else if (shell_style == STYLE_VIMGLOB)
5623 STRCAT(command, sh_vimglob_func);
5625 STRCAT(command, "echo >");
5628 STRCAT(command, tempname);
5630 if (shell_style != STYLE_BT)
5631 for (i = 0; i < num_pat; ++i)
5633 /* When using system() always add extra quotes, because the shell
5634 * is started twice. Otherwise put a backslash before special
5635 * characters, except inside ``. */
5637 STRCAT(command, " \"");
5638 STRCAT(command, pat[i]);
5639 STRCAT(command, "\"");
5643 p = command + STRLEN(command);
5645 for (j = 0; pat[i][j] != NUL; ++j)
5647 if (pat[i][j] == '`')
5649 else if (pat[i][j] == '\\' && pat[i][j + 1] != NUL)
5651 /* Remove a backslash, take char literally. But keep
5652 * backslash inside backticks, before a special character
5653 * and before a backtick. */
5655 || vim_strchr(SHELL_SPECIAL, pat[i][j + 1]) != NULL
5656 || pat[i][j + 1] == '`')
5660 else if (!intick && vim_strchr(SHELL_SPECIAL,
5662 /* Put a backslash before a special character, but not
5663 * when inside ``. */
5666 /* Copy one character. */
5672 if (flags & EW_SILENT)
5673 show_shell_mess = FALSE;
5675 STRCAT(command, "&"); /* put the '&' after the redirection */
5678 * Using zsh -G: If a pattern has no matches, it is just deleted from
5679 * the argument list, otherwise zsh gives an error message and doesn't
5680 * expand any other pattern.
5682 if (shell_style == STYLE_PRINT)
5683 extra_shell_arg = (char_u *)"-G"; /* Use zsh NULL_GLOB option */
5686 * If we use -f then shell variables set in .cshrc won't get expanded.
5687 * vi can do it, so we will too, but it is only necessary if there is a "$"
5688 * in one of the patterns, otherwise we can still use the fast option.
5690 else if (shell_style == STYLE_GLOB && !have_dollars(num_pat, pat))
5691 extra_shell_arg = (char_u *)"-f"; /* Use csh fast option */
5694 * execute the shell command
5696 i = call_shell(command, SHELL_EXPAND | SHELL_SILENT);
5698 /* When running in the background, give it some time to create the temp
5699 * file, but don't wait for it to finish. */
5701 mch_delay(10L, TRUE);
5703 extra_shell_arg = NULL; /* cleanup */
5704 show_shell_mess = TRUE;
5707 if (i != 0) /* mch_call_shell() failed */
5709 mch_remove(tempname);
5712 * With interactive completion, the error message is not printed.
5713 * However with USE_SYSTEM, I don't know how to turn off error messages
5714 * from the shell, so screen may still get messed up -- webb.
5717 if (!(flags & EW_SILENT))
5720 redraw_later_clear(); /* probably messed up screen */
5721 msg_putchar('\n'); /* clear bottom line quickly */
5722 cmdline_row = Rows - 1; /* continue on last line */
5724 if (!(flags & EW_SILENT))
5727 MSG(_(e_wildexpand));
5728 msg_start(); /* don't overwrite this message */
5731 /* If a `cmd` expansion failed, don't list `cmd` as a match, even when
5732 * EW_NOTFOUND is given */
5733 if (shell_style == STYLE_BT)
5739 * read the names from the file into memory
5741 fd = fopen((char *)tempname, READBIN);
5744 /* Something went wrong, perhaps a file name with a special char. */
5745 if (!(flags & EW_SILENT))
5747 MSG(_(e_wildexpand));
5748 msg_start(); /* don't overwrite this message */
5753 fseek(fd, 0L, SEEK_END);
5754 len = ftell(fd); /* get size of temp file */
5755 fseek(fd, 0L, SEEK_SET);
5756 buffer = alloc(len + 1);
5760 mch_remove(tempname);
5765 i = fread((char *)buffer, 1, len, fd);
5767 mch_remove(tempname);
5770 /* unexpected read error */
5771 EMSG2(_(e_notread), tempname);
5778 # if defined(__CYGWIN__) || defined(__CYGWIN32__)
5779 /* Translate <CR><NL> into <NL>. Caution, buffer may contain NUL. */
5781 for (i = 0; i < len; ++i)
5782 if (!(buffer[i] == CAR && buffer[i + 1] == NL))
5788 /* file names are separated with Space */
5789 if (shell_style == STYLE_ECHO)
5791 buffer[len] = '\n'; /* make sure the buffer ends in NL */
5793 for (i = 0; *p != '\n'; ++i) /* count number of entries */
5795 while (*p != ' ' && *p != '\n')
5797 p = skipwhite(p); /* skip to next entry */
5800 /* file names are separated with NL */
5801 else if (shell_style == STYLE_BT || shell_style == STYLE_VIMGLOB)
5803 buffer[len] = NUL; /* make sure the buffer ends in NUL */
5805 for (i = 0; *p != NUL; ++i) /* count number of entries */
5807 while (*p != '\n' && *p != NUL)
5811 p = skipwhite(p); /* skip leading white space */
5814 /* file names are separated with NUL */
5818 * Some versions of zsh use spaces instead of NULs to separate
5819 * results. Only do this when there is no NUL before the end of the
5820 * buffer, otherwise we would never be able to use file names with
5821 * embedded spaces when zsh does use NULs.
5822 * When we found a NUL once, we know zsh is OK, set did_find_nul and
5823 * don't check for spaces again.
5825 check_spaces = FALSE;
5826 if (shell_style == STYLE_PRINT && !did_find_nul)
5828 /* If there is a NUL, set did_find_nul, else set check_spaces */
5830 if (len && (int)STRLEN(buffer) < (int)len - 1)
5831 did_find_nul = TRUE;
5833 check_spaces = TRUE;
5837 * Make sure the buffer ends with a NUL. For STYLE_PRINT there
5838 * already is one, for STYLE_GLOB it needs to be added.
5840 if (len && buffer[len - 1] == NUL)
5845 for (p = buffer; p < buffer + len; ++p)
5846 if (*p == NUL || (*p == ' ' && check_spaces)) /* count entry */
5852 ++i; /* count last entry */
5857 * Can happen when using /bin/sh and typing ":e $NO_SUCH_VAR^I".
5858 * /bin/sh will happily expand it to nothing rather than returning an
5859 * error; and hey, it's good to check anyway -- webb.
5865 *file = (char_u **)alloc(sizeof(char_u *) * i);
5874 * Isolate the individual file names.
5877 for (i = 0; i < *num_file; ++i)
5880 /* Space or NL separates */
5881 if (shell_style == STYLE_ECHO || shell_style == STYLE_BT
5882 || shell_style == STYLE_VIMGLOB)
5884 while (!(shell_style == STYLE_ECHO && *p == ' ')
5885 && *p != '\n' && *p != NUL)
5887 if (p == buffer + len) /* last entry */
5892 p = skipwhite(p); /* skip to next entry */
5895 else /* NUL separates */
5897 while (*p && p < buffer + len) /* skip entry */
5904 * Move the file names to allocated memory.
5906 for (j = 0, i = 0; i < *num_file; ++i)
5908 /* Require the files to exist. Helps when using /bin/sh */
5909 if (!(flags & EW_NOTFOUND) && mch_getperm((*file)[i]) < 0)
5912 /* check if this entry should be included */
5913 dir = (mch_isdir((*file)[i]));
5914 if ((dir && !(flags & EW_DIR)) || (!dir && !(flags & EW_FILE)))
5917 /* Skip files that are not executable if we check for that. */
5918 if (!dir && (flags & EW_EXEC) && !mch_can_exe((*file)[i]))
5921 p = alloc((unsigned)(STRLEN((*file)[i]) + 1 + dir));
5924 STRCPY(p, (*file)[i]);
5926 add_pathsep(p); /* add '/' to a directory name */
5933 if (*num_file == 0) /* rejected all entries */
5943 if (flags & EW_NOTFOUND)
5944 return save_patterns(num_pat, pat, num_file, file);
5947 #endif /* __EMX__ */
5954 save_patterns(num_pat, pat, num_file, file)
5963 *file = (char_u **)alloc(num_pat * sizeof(char_u *));
5966 for (i = 0; i < num_pat; i++)
5968 s = vim_strsave(pat[i]);
5970 /* Be compatible with expand_filename(): halve the number of
5975 *num_file = num_pat;
5982 * Return TRUE if the string "p" contains a wildcard that mch_expandpath() can
5986 mch_has_exp_wildcard(p)
5989 for ( ; *p; mb_ptr_adv(p))
5992 if (*p == '\\' && p[1] != NUL)
5996 if (vim_strchr((char_u *)
6013 * Return TRUE if the string "p" contains a wildcard.
6014 * Don't recognize '~' at the end as a wildcard.
6020 for ( ; *p; mb_ptr_adv(p))
6023 if (*p == '\\' && p[1] != NUL)
6027 if (vim_strchr((char_u *)
6032 # ifdef VIM_BACKTICK
6042 || (*p == '~' && p[1] != NUL))
6050 have_wildcard(num, file)
6056 for (i = 0; i < num; i++)
6057 if (mch_has_wildcard(file[i]))
6063 have_dollars(num, file)
6069 for (i = 0; i < num; i++)
6070 if (vim_strchr(file[i], '$') != NULL)
6074 #endif /* ifndef __EMX__ */
6078 * Scaled-down version of rename(), which is missing in Xenix.
6079 * This version can only move regular files and will fail if the
6080 * destination exists.
6083 mch_rename(src, dest)
6084 const char *src, *dest;
6088 if (stat(dest, &st) >= 0) /* fail if destination exists */
6090 if (link(src, dest) != 0) /* link file to new name */
6092 if (mch_remove(src) == 0) /* delete link to old name */
6096 #endif /* !HAVE_RENAME */
6098 #ifdef FEAT_MOUSE_GPM
6100 * Initializes connection with gpm (if it isn't already opened)
6101 * Return 1 if succeeded (or connection already opened), 0 if failed
6106 static Gpm_Connect gpm_connect; /* Must it be kept till closing ? */
6110 gpm_connect.eventMask = (GPM_UP | GPM_DRAG | GPM_DOWN);
6111 gpm_connect.defaultMask = ~GPM_HARD;
6112 /* Default handling for mouse move*/
6113 gpm_connect.minMod = 0; /* Handle any modifier keys */
6114 gpm_connect.maxMod = 0xffff;
6115 if (Gpm_Open(&gpm_connect, 0) > 0)
6117 /* gpm library tries to handling TSTP causes
6118 * problems. Anyways, we close connection to Gpm whenever
6119 * we are going to suspend or starting an external process
6120 * so we shouldn't have problem with this
6123 signal(SIGTSTP, restricted ? SIG_IGN : SIG_DFL);
6125 return 1; /* succeed */
6128 Gpm_Close(); /* We don't want to talk to xterm via gpm */
6131 return 1; /* already open */
6135 * Closes connection to gpm
6140 if (gpm_flag && gpm_fd >= 0) /* if Open */
6144 /* Reads gpm event and adds special keys to input buf. Returns length of
6145 * generated key sequence.
6146 * This function is made after gui_send_mouse_event
6152 static Gpm_Event gpm_event;
6154 int_u vim_modifiers;
6156 unsigned char buttons_mask;
6157 unsigned char gpm_modifiers;
6158 static unsigned char old_buttons = 0;
6160 Gpm_GetEvent(&gpm_event);
6163 /* Don't put events in the input queue now. */
6164 if (hold_gui_events)
6168 row = gpm_event.y - 1;
6169 col = gpm_event.x - 1;
6171 string[0] = ESC; /* Our termcode */
6174 switch (GPM_BARE_EVENTS(gpm_event.type))
6177 string[3] = MOUSE_DRAG;
6180 buttons_mask = gpm_event.buttons & ~old_buttons;
6181 old_buttons = gpm_event.buttons;
6182 switch (buttons_mask)
6185 button = MOUSE_LEFT;
6188 button = MOUSE_MIDDLE;
6191 button = MOUSE_RIGHT;
6195 /*Don't know what to do. Can more than one button be
6196 * reported in one event? */
6198 string[3] = (char_u)(button | 0x20);
6199 SET_NUM_MOUSE_CLICKS(string[3], gpm_event.clicks + 1);
6202 string[3] = MOUSE_RELEASE;
6203 old_buttons &= ~gpm_event.buttons;
6208 /*This code is based on gui_x11_mouse_cb in gui_x11.c */
6209 gpm_modifiers = gpm_event.modifiers;
6210 vim_modifiers = 0x0;
6211 /* I ignore capslock stats. Aren't we all just hate capslock mixing with
6212 * Vim commands ? Besides, gpm_event.modifiers is unsigned char, and
6213 * K_CAPSSHIFT is defined 8, so it probably isn't even reported
6215 if (gpm_modifiers & ((1 << KG_SHIFT) | (1 << KG_SHIFTR) | (1 << KG_SHIFTL)))
6216 vim_modifiers |= MOUSE_SHIFT;
6218 if (gpm_modifiers & ((1 << KG_CTRL) | (1 << KG_CTRLR) | (1 << KG_CTRLL)))
6219 vim_modifiers |= MOUSE_CTRL;
6220 if (gpm_modifiers & ((1 << KG_ALT) | (1 << KG_ALTGR)))
6221 vim_modifiers |= MOUSE_ALT;
6222 string[3] |= vim_modifiers;
6223 string[4] = (char_u)(col + ' ' + 1);
6224 string[5] = (char_u)(row + ' ' + 1);
6225 add_to_input_buf(string, 6);
6228 #endif /* FEAT_MOUSE_GPM */
6230 #ifdef FEAT_SYSMOUSE
6232 * Initialize connection with sysmouse.
6233 * Let virtual console inform us with SIGUSR2 for pending sysmouse
6234 * output, any sysmouse output than will be processed via sig_sysmouse().
6235 * Return OK if succeeded, FAIL if failed.
6240 struct mouse_info mouse;
6242 mouse.operation = MOUSE_MODE;
6243 mouse.u.mode.mode = 0;
6244 mouse.u.mode.signal = SIGUSR2;
6245 if (ioctl(1, CONS_MOUSECTL, &mouse) != -1)
6247 signal(SIGUSR2, (RETSIGTYPE (*)())sig_sysmouse);
6248 mouse.operation = MOUSE_SHOW;
6249 ioctl(1, CONS_MOUSECTL, &mouse);
6256 * Stop processing SIGUSR2 signals, and also make sure that
6257 * virtual console do not send us any sysmouse related signal.
6262 struct mouse_info mouse;
6264 signal(SIGUSR2, restricted ? SIG_IGN : SIG_DFL);
6265 mouse.operation = MOUSE_MODE;
6266 mouse.u.mode.mode = 0;
6267 mouse.u.mode.signal = 0;
6268 ioctl(1, CONS_MOUSECTL, &mouse);
6272 * Gets info from sysmouse and adds special keys to input buf.
6275 sig_sysmouse SIGDEFARG(sigarg)
6277 struct mouse_info mouse;
6278 struct video_info video;
6283 static int oldbuttons = 0;
6286 /* Don't put events in the input queue now. */
6287 if (hold_gui_events)
6291 mouse.operation = MOUSE_GETINFO;
6292 if (ioctl(1, FBIO_GETMODE, &video.vi_mode) != -1
6293 && ioctl(1, FBIO_MODEINFO, &video) != -1
6294 && ioctl(1, CONS_MOUSECTL, &mouse) != -1
6295 && video.vi_cheight > 0 && video.vi_cwidth > 0)
6297 row = mouse.u.data.y / video.vi_cheight;
6298 col = mouse.u.data.x / video.vi_cwidth;
6299 buttons = mouse.u.data.buttons;
6300 string[0] = ESC; /* Our termcode */
6303 if (oldbuttons == buttons && buttons != 0)
6305 button = MOUSE_DRAG;
6312 button = MOUSE_RELEASE;
6315 button = MOUSE_LEFT;
6318 button = MOUSE_MIDDLE;
6321 button = MOUSE_RIGHT;
6326 oldbuttons = buttons;
6328 string[3] = (char_u)(button);
6329 string[4] = (char_u)(col + ' ' + 1);
6330 string[5] = (char_u)(row + ' ' + 1);
6331 add_to_input_buf(string, 6);
6335 #endif /* FEAT_SYSMOUSE */
6337 #if defined(FEAT_LIBCALL) || defined(PROTO)
6338 typedef char_u * (*STRPROCSTR)__ARGS((char_u *));
6339 typedef char_u * (*INTPROCSTR)__ARGS((int));
6340 typedef int (*STRPROCINT)__ARGS((char_u *));
6341 typedef int (*INTPROCINT)__ARGS((int));
6344 * Call a DLL routine which takes either a string or int param
6345 * and returns an allocated string.
6348 mch_libcall(libname, funcname, argstring, argint, string_result, number_result)
6351 char_u *argstring; /* NULL when using a argint */
6353 char_u **string_result;/* NULL when using number_result */
6356 # if defined(USE_DLOPEN)
6363 INTPROCSTR ProcAddI;
6364 char_u *retval_str = NULL;
6366 int success = FALSE;
6369 * Get a handle to the DLL module.
6371 # if defined(USE_DLOPEN)
6372 /* First clear any error, it's not cleared by the dlopen() call. */
6375 hinstLib = dlopen((char *)libname, RTLD_LAZY
6380 if (hinstLib == NULL)
6382 /* "dlerr" must be used before dlclose() */
6383 dlerr = (char *)dlerror();
6385 EMSG2(_("dlerror = \"%s\""), dlerr);
6388 hinstLib = shl_load((const char*)libname, BIND_IMMEDIATE|BIND_VERBOSE, 0L);
6391 /* If the handle is valid, try to get the function address. */
6392 if (hinstLib != NULL)
6394 # ifdef HAVE_SETJMP_H
6396 * Catch a crash when calling the library function. For example when
6397 * using a number where a string pointer is expected.
6400 if (SETJMP(lc_jump_env) != 0)
6403 # if defined(USE_DLOPEN)
6414 if (argstring != NULL)
6416 # if defined(USE_DLOPEN)
6417 ProcAdd = (STRPROCSTR)dlsym(hinstLib, (const char *)funcname);
6418 dlerr = (char *)dlerror();
6420 if (shl_findsym(&hinstLib, (const char *)funcname,
6421 TYPE_PROCEDURE, (void *)&ProcAdd) < 0)
6424 if ((success = (ProcAdd != NULL
6425 # if defined(USE_DLOPEN)
6430 if (string_result == NULL)
6431 retval_int = ((STRPROCINT)ProcAdd)(argstring);
6433 retval_str = (ProcAdd)(argstring);
6438 # if defined(USE_DLOPEN)
6439 ProcAddI = (INTPROCSTR)dlsym(hinstLib, (const char *)funcname);
6440 dlerr = (char *)dlerror();
6442 if (shl_findsym(&hinstLib, (const char *)funcname,
6443 TYPE_PROCEDURE, (void *)&ProcAddI) < 0)
6446 if ((success = (ProcAddI != NULL
6447 # if defined(USE_DLOPEN)
6452 if (string_result == NULL)
6453 retval_int = ((INTPROCINT)ProcAddI)(argint);
6455 retval_str = (ProcAddI)(argint);
6459 /* Save the string before we free the library. */
6460 /* Assume that a "1" or "-1" result is an illegal pointer. */
6461 if (string_result == NULL)
6462 *number_result = retval_int;
6463 else if (retval_str != NULL
6464 && retval_str != (char_u *)1
6465 && retval_str != (char_u *)-1)
6466 *string_result = vim_strsave(retval_str);
6469 # ifdef HAVE_SETJMP_H
6476 /* try to find the name of this signal */
6477 for (i = 0; signal_info[i].sig != -1; i++)
6478 if (lc_signal == signal_info[i].sig)
6480 EMSG2("E368: got SIG%s in libcall()", signal_info[i].name);
6485 # if defined(USE_DLOPEN)
6486 /* "dlerr" must be used before dlclose() */
6488 EMSG2(_("dlerror = \"%s\""), dlerr);
6490 /* Free the DLL module. */
6491 (void)dlclose(hinstLib);
6493 (void)shl_unload(hinstLib);
6499 EMSG2(_(e_libcall), funcname);
6507 #if (defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) || defined(PROTO)
6508 static int xterm_trace = -1; /* default: disabled */
6509 static int xterm_button;
6512 * Setup a dummy window for X selections in a terminal.
6521 if (!x_connect_to_server())
6525 if (app_context != NULL && xterm_Shell == (Widget)0)
6527 int (*oldhandler)();
6528 #if defined(HAVE_SETJMP_H)
6529 int (*oldIOhandler)();
6531 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6532 struct timeval start_tv;
6535 gettimeofday(&start_tv, NULL);
6538 /* Ignore X errors while opening the display */
6539 oldhandler = XSetErrorHandler(x_error_check);
6541 #if defined(HAVE_SETJMP_H)
6542 /* Ignore X IO errors while opening the display */
6543 oldIOhandler = XSetIOErrorHandler(x_IOerror_check);
6545 if (SETJMP(lc_jump_env) != 0)
6553 xterm_dpy = XtOpenDisplay(app_context, xterm_display,
6554 "vim_xterm", "Vim_xterm", NULL, 0, &z, &strp);
6555 #if defined(HAVE_SETJMP_H)
6560 #if defined(HAVE_SETJMP_H)
6561 /* Now handle X IO errors normally. */
6562 (void)XSetIOErrorHandler(oldIOhandler);
6564 /* Now handle X errors normally. */
6565 (void)XSetErrorHandler(oldhandler);
6567 if (xterm_dpy == NULL)
6570 verb_msg((char_u *)_("Opening the X display failed"));
6574 /* Catch terminating error of the X server connection. */
6575 (void)XSetIOErrorHandler(x_IOerror_handler);
6577 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6581 xopen_message(&start_tv);
6586 /* Create a Shell to make converters work. */
6587 AppShell = XtVaAppCreateShell("vim_xterm", "Vim_xterm",
6588 applicationShellWidgetClass, xterm_dpy,
6590 if (AppShell == (Widget)0)
6592 xterm_Shell = XtVaCreatePopupShell("VIM",
6593 topLevelShellWidgetClass, AppShell,
6594 XtNmappedWhenManaged, 0,
6598 if (xterm_Shell == (Widget)0)
6601 x11_setup_atoms(xterm_dpy);
6602 x11_setup_selection(xterm_Shell);
6603 if (x11_display == NULL)
6604 x11_display = xterm_dpy;
6606 XtRealizeWidget(xterm_Shell);
6607 XSync(xterm_dpy, False);
6610 if (xterm_Shell != (Widget)0)
6613 if (x11_window == 0 && (strp = getenv("WINDOWID")) != NULL)
6614 x11_window = (Window)atol(strp);
6615 /* Check if $WINDOWID is valid. */
6616 if (test_x11_window(xterm_dpy) == FAIL)
6618 if (x11_window != 0)
6624 start_xterm_trace(button)
6627 if (x11_window == 0 || xterm_trace < 0 || xterm_Shell == (Widget)0)
6630 xterm_button = button;
6638 if (xterm_trace < 0)
6644 * Query the xterm pointer and generate mouse termcodes if necessary
6645 * return TRUE if dragging is active, else FALSE
6658 static char_u *mouse_code;
6659 static char_u mouse_name[2] = {KS_MOUSE, KE_FILLER};
6660 static int prev_row = 0, prev_col = 0;
6661 static XSizeHints xterm_hints;
6663 if (xterm_trace <= 0)
6666 if (xterm_trace == 1)
6668 /* Get the hints just before tracking starts. The font size might
6669 * have changed recently. */
6670 if (!XGetWMNormalHints(xterm_dpy, x11_window, &xterm_hints, &got_hints)
6671 || !(got_hints & PResizeInc)
6672 || xterm_hints.width_inc <= 1
6673 || xterm_hints.height_inc <= 1)
6675 xterm_trace = -1; /* Not enough data -- disable tracing */
6679 /* Rely on the same mouse code for the duration of this */
6680 mouse_code = find_termcode(mouse_name);
6681 prev_row = mouse_row;
6682 prev_row = mouse_col;
6685 /* Find the offset of the chars, there might be a scrollbar on the
6686 * left of the window and/or a menu on the top (eterm etc.) */
6687 XQueryPointer(xterm_dpy, x11_window, &root, &child, &root_x, &root_y,
6688 &win_x, &win_y, &mask_return);
6689 xterm_hints.y = win_y - (xterm_hints.height_inc * mouse_row)
6690 - (xterm_hints.height_inc / 2);
6691 if (xterm_hints.y <= xterm_hints.height_inc / 2)
6693 xterm_hints.x = win_x - (xterm_hints.width_inc * mouse_col)
6694 - (xterm_hints.width_inc / 2);
6695 if (xterm_hints.x <= xterm_hints.width_inc / 2)
6699 if (mouse_code == NULL || STRLEN(mouse_code) > 45)
6705 XQueryPointer(xterm_dpy, x11_window, &root, &child, &root_x, &root_y,
6706 &win_x, &win_y, &mask_return);
6708 row = check_row((win_y - xterm_hints.y) / xterm_hints.height_inc);
6709 col = check_col((win_x - xterm_hints.x) / xterm_hints.width_inc);
6710 if (row == prev_row && col == prev_col)
6713 STRCPY(buf, mouse_code);
6714 strp = buf + STRLEN(buf);
6715 *strp++ = (xterm_button | MOUSE_DRAG) & ~0x20;
6716 *strp++ = (char_u)(col + ' ' + 1);
6717 *strp++ = (char_u)(row + ' ' + 1);
6719 add_to_input_buf(buf, STRLEN(buf));
6726 # if defined(FEAT_GUI) || defined(PROTO)
6728 * Destroy the display, window and app_context. Required for GTK.
6733 if (xterm_Shell != (Widget)0)
6735 XtDestroyWidget(xterm_Shell);
6736 xterm_Shell = (Widget)0;
6738 if (xterm_dpy != NULL)
6741 /* Lesstif and Solaris crash here, lose some memory */
6742 XtCloseDisplay(xterm_dpy);
6744 if (x11_display == xterm_dpy)
6749 if (app_context != (XtAppContext)NULL)
6751 /* Lesstif and Solaris crash here, lose some memory */
6752 XtDestroyApplicationContext(app_context);
6753 app_context = (XtAppContext)NULL;
6760 * Catch up with any queued X events. This may put keyboard input into the
6761 * input buffer, call resize call-backs, trigger timers etc. If there is
6762 * nothing in the X event queue (& no timers pending), then we return
6770 while (XtAppPending(app_context) && !vim_is_input_buf_full())
6772 XtAppNextEvent(app_context, &event);
6773 #ifdef FEAT_CLIENTSERVER
6775 XPropertyEvent *e = (XPropertyEvent *)&event;
6777 if (e->type == PropertyNotify && e->window == commWindow
6778 && e->atom == commProperty && e->state == PropertyNewValue)
6779 serverEventProc(xterm_dpy, &event);
6782 XtDispatchEvent(&event);
6787 clip_xterm_own_selection(cbd)
6790 if (xterm_Shell != (Widget)0)
6791 return clip_x11_own_selection(xterm_Shell, cbd);
6796 clip_xterm_lose_selection(cbd)
6799 if (xterm_Shell != (Widget)0)
6800 clip_x11_lose_selection(xterm_Shell, cbd);
6804 clip_xterm_request_selection(cbd)
6807 if (xterm_Shell != (Widget)0)
6808 clip_x11_request_selection(xterm_Shell, xterm_dpy, cbd);
6812 clip_xterm_set_selection(cbd)
6815 clip_x11_set_selection(cbd);
6820 #if defined(USE_XSMP) || defined(PROTO)
6822 * Code for X Session Management Protocol.
6824 static void xsmp_handle_save_yourself __ARGS((SmcConn smc_conn, SmPointer client_data, int save_type, Bool shutdown, int interact_style, Bool fast));
6825 static void xsmp_die __ARGS((SmcConn smc_conn, SmPointer client_data));
6826 static void xsmp_save_complete __ARGS((SmcConn smc_conn, SmPointer client_data));
6827 static void xsmp_shutdown_cancelled __ARGS((SmcConn smc_conn, SmPointer client_data));
6828 static void xsmp_ice_connection __ARGS((IceConn iceConn, IcePointer clientData, Bool opening, IcePointer *watchData));
6831 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6832 static void xsmp_handle_interaction __ARGS((SmcConn smc_conn, SmPointer client_data));
6835 * This is our chance to ask the user if they want to save,
6836 * or abort the logout
6839 xsmp_handle_interaction(smc_conn, client_data)
6841 SmPointer client_data UNUSED;
6843 cmdmod_T save_cmdmod;
6844 int cancel_shutdown = False;
6846 save_cmdmod = cmdmod;
6847 cmdmod.confirm = TRUE;
6848 if (check_changed_any(FALSE))
6849 /* Mustn't logout */
6850 cancel_shutdown = True;
6851 cmdmod = save_cmdmod;
6852 setcursor(); /* position cursor */
6855 /* Done interaction */
6856 SmcInteractDone(smc_conn, cancel_shutdown);
6859 * Only end save-yourself here if we're not cancelling shutdown;
6860 * we'll get a cancelled callback later in which we'll end it.
6861 * Hopefully get around glitchy SMs (like GNOME-1)
6863 if (!cancel_shutdown)
6865 xsmp.save_yourself = False;
6866 SmcSaveYourselfDone(smc_conn, True);
6872 * Callback that starts save-yourself.
6875 xsmp_handle_save_yourself(smc_conn, client_data, save_type,
6876 shutdown, interact_style, fast)
6878 SmPointer client_data UNUSED;
6879 int save_type UNUSED;
6881 int interact_style UNUSED;
6884 /* Handle already being in saveyourself */
6885 if (xsmp.save_yourself)
6886 SmcSaveYourselfDone(smc_conn, True);
6887 xsmp.save_yourself = True;
6888 xsmp.shutdown = shutdown;
6890 /* First up, preserve all files */
6892 ml_sync_all(FALSE, FALSE); /* preserve all swap files */
6895 verb_msg((char_u *)_("XSMP handling save-yourself request"));
6897 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6898 /* Now see if we can ask about unsaved files */
6899 if (shutdown && !fast && gui.in_use)
6900 /* Need to interact with user, but need SM's permission */
6901 SmcInteractRequest(smc_conn, SmDialogError,
6902 xsmp_handle_interaction, client_data);
6906 /* Can stop the cycle here */
6907 SmcSaveYourselfDone(smc_conn, True);
6908 xsmp.save_yourself = False;
6914 * Callback to warn us of imminent death.
6917 xsmp_die(smc_conn, client_data)
6918 SmcConn smc_conn UNUSED;
6919 SmPointer client_data UNUSED;
6923 /* quit quickly leaving swapfiles for modified buffers behind */
6924 getout_preserve_modified(0);
6929 * Callback to tell us that save-yourself has completed.
6932 xsmp_save_complete(smc_conn, client_data)
6933 SmcConn smc_conn UNUSED;
6934 SmPointer client_data UNUSED;
6936 xsmp.save_yourself = False;
6941 * Callback to tell us that an instigated shutdown was cancelled
6942 * (maybe even by us)
6945 xsmp_shutdown_cancelled(smc_conn, client_data)
6947 SmPointer client_data UNUSED;
6949 if (xsmp.save_yourself)
6950 SmcSaveYourselfDone(smc_conn, True);
6951 xsmp.save_yourself = False;
6952 xsmp.shutdown = False;
6957 * Callback to tell us that a new ICE connection has been established.
6960 xsmp_ice_connection(iceConn, clientData, opening, watchData)
6962 IcePointer clientData UNUSED;
6964 IcePointer *watchData UNUSED;
6966 /* Intercept creation of ICE connection fd */
6969 xsmp_icefd = IceConnectionNumber(iceConn);
6970 IceRemoveConnectionWatch(xsmp_ice_connection, NULL);
6975 /* Handle any ICE processing that's required; return FAIL if SM lost */
6977 xsmp_handle_requests()
6981 if (IceProcessMessages(xsmp.iceconn, NULL, &rep)
6982 == IceProcessMessagesIOError)
6986 verb_msg((char_u *)_("XSMP lost ICE connection"));
6996 /* Set up X Session Management Protocol */
7000 char errorstring[80];
7001 SmcCallbacks smcallbacks;
7009 verb_msg((char_u *)_("XSMP opening connection"));
7011 xsmp.save_yourself = xsmp.shutdown = False;
7013 /* Set up SM callbacks - must have all, even if they're not used */
7014 smcallbacks.save_yourself.callback = xsmp_handle_save_yourself;
7015 smcallbacks.save_yourself.client_data = NULL;
7016 smcallbacks.die.callback = xsmp_die;
7017 smcallbacks.die.client_data = NULL;
7018 smcallbacks.save_complete.callback = xsmp_save_complete;
7019 smcallbacks.save_complete.client_data = NULL;
7020 smcallbacks.shutdown_cancelled.callback = xsmp_shutdown_cancelled;
7021 smcallbacks.shutdown_cancelled.client_data = NULL;
7023 /* Set up a watch on ICE connection creations. The "dummy" argument is
7024 * apparently required for FreeBSD (we get a BUS error when using NULL). */
7025 if (IceAddConnectionWatch(xsmp_ice_connection, &dummy) == 0)
7028 verb_msg((char_u *)_("XSMP ICE connection watch failed"));
7032 /* Create an SM connection */
7033 xsmp.smcconn = SmcOpenConnection(
7038 SmcSaveYourselfProcMask | SmcDieProcMask
7039 | SmcSaveCompleteProcMask | SmcShutdownCancelledProcMask,
7043 sizeof(errorstring),
7045 if (xsmp.smcconn == NULL)
7047 char errorreport[132];
7051 vim_snprintf(errorreport, sizeof(errorreport),
7052 _("XSMP SmcOpenConnection failed: %s"), errorstring);
7053 verb_msg((char_u *)errorreport);
7057 xsmp.iceconn = SmcGetIceConnection(xsmp.smcconn);
7061 smname.value = "vim";
7063 smnameprop.name = "SmProgram";
7064 smnameprop.type = "SmARRAY8";
7065 smnameprop.num_vals = 1;
7066 smnameprop.vals = &smname;
7068 smprops[0] = &smnameprop;
7069 SmcSetProperties(xsmp.smcconn, 1, smprops);
7074 /* Shut down XSMP comms. */
7078 if (xsmp_icefd != -1)
7080 SmcCloseConnection(xsmp.smcconn, 0, NULL);
7081 if (xsmp.clientid != NULL)
7082 free(xsmp.clientid);
7083 xsmp.clientid = NULL;
7087 #endif /* USE_XSMP */
7091 /* Translate character to its CTRL- value */
7095 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
7096 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
7097 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
7098 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
7099 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
7100 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
7104 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
7107 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
7118 0, 0, 0, 0, 0, 0, 0,
7129 0, 0, 0, 0, 0, 0, 0, 0,
7142 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
7144 /* BE - C0 */ 0, 0, 0,
7154 /* CA - D0 */ 0, 0, 0, 0, 0, 0, 0,
7164 /* DA - DF */ 0, 0, 0, 0, 0, 0,
7175 /* EA - FF*/ 0, 0, 0, 0, 0, 0,
7176 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
7179 char MetaCharTable[]=
7180 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
7181 0, 0, 0, 0,'\\', 0,'F', 0,'W','M','N', 0, 0, 0, 0, 0,
7182 0, 0, 0, 0,']', 0, 0,'G', 0, 0,'R','O', 0, 0, 0, 0,
7183 '@','A','B','C','D','E', 0, 0,'H','I','J','K','L', 0, 0, 0,
7184 'P','Q', 0,'S','T','U','V', 0,'X','Y','Z','[', 0, 0,'^', 0
7188 /* TODO: Use characters NOT numbers!!! */
7189 char CtrlCharTable[]=
7190 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
7191 124,193,194,195, 0,201, 0, 0, 0, 0, 0,210,211,212,213,214,
7192 215,216,217,226, 0,209,200, 0,231,232, 0, 0,224,189, 95,109,
7193 0, 0, 0, 0, 0, 0,230,173, 0, 0, 0, 0, 0,197,198,199,
7194 0, 0,229, 0, 0, 0, 0,196, 0, 0, 0, 0,227,228, 0,233,