1 /* vi:set ts=8 sts=4 sw=4:
3 * VIM - Vi IMproved by Bram Moolenaar
4 * OS/2 port by Paul Slootman
5 * VMS merge by Zoltan Arpadffy
7 * Do ":help uganda" in Vim to read copying and usage conditions.
8 * Do ":help credits" in Vim to see a list of people who contributed.
9 * See README.txt for an overview of the Vim source code.
13 * os_unix.c -- code for all flavors of Unix (BSD, SYSV, SVR4, POSIX, ...)
14 * Also for OS/2, using the excellent EMX package!!!
15 * Also for BeOS and Atari MiNT.
17 * A lot of this file was originally written by Juergen Weigert and later
18 * changed beyond recognition.
22 * Some systems have a prototype for select() that has (int *) instead of
23 * (fd_set *), which is wrong. This define removes that prototype. We define
24 * our own prototype below.
25 * Don't use it for the Mac, it causes a warning for precompiled headers.
26 * TODO: use a configure check for precompiled headers?
28 #if !defined(__APPLE__) && !defined(__TANDEM)
29 # define select select_declared_wrong
35 # include "if_mzsch.h"
38 #include "os_unixx.h" /* unix includes for os_unix.c only */
41 # include <X11/SM/SMlib.h>
45 # include <selinux/selinux.h>
46 static int selinux_enabled
= -1;
50 * Use this prototype for select, some include files have a wrong prototype
55 # define select beos_select
61 # include <cygwin/version.h>
62 # include <sys/cygwin.h> /* for cygwin_conv_to_posix_path() and/or
63 * for cygwin_conv_path() */
67 #if defined(HAVE_SELECT)
68 extern int select
__ARGS((int, fd_set
*, fd_set
*, fd_set
*, struct timeval
*));
73 /* <linux/keyboard.h> contains defines conflicting with "keymap.h",
74 * I just copied relevant defines here. A cleaner solution would be to put gpm
75 * code into separate file and include there linux/keyboard.h
77 /* #include <linux/keyboard.h> */
86 # define KG_CAPSSHIFT 8
88 static void gpm_close
__ARGS((void));
89 static int gpm_open
__ARGS((void));
90 static int mch_gpm_process
__ARGS((void));
94 # include <sys/consio.h>
95 # include <sys/fbio.h>
97 static int sysmouse_open
__ARGS((void));
98 static void sysmouse_close
__ARGS((void));
99 static RETSIGTYPE sig_sysmouse
__ARGS(SIGPROTOARG
);
103 * end of autoconf section. To be extended...
106 /* Are the following #ifdefs still required? And why? Is that for X11? */
108 #if defined(ESIX) || defined(M_UNIX) && !defined(SCO)
117 #if defined(SIGWINDOW) && !defined(SIGWINCH) /* hpux 9.01 has it */
118 # define SIGWINCH SIGWINDOW
122 # include <X11/Xlib.h>
123 # include <X11/Xutil.h>
124 # include <X11/Xatom.h>
125 # ifdef FEAT_XCLIPBOARD
126 # include <X11/Intrinsic.h>
127 # include <X11/Shell.h>
128 # include <X11/StringDefs.h>
129 static Widget xterm_Shell
= (Widget
)0;
130 static void xterm_update
__ARGS((void));
133 # if defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE)
134 Window x11_window
= 0;
136 Display
*x11_display
= NULL
;
139 static int get_x11_windis
__ARGS((void));
140 static void set_x11_title
__ARGS((char_u
*));
141 static void set_x11_icon
__ARGS((char_u
*));
146 static int get_x11_title
__ARGS((int));
147 static int get_x11_icon
__ARGS((int));
149 static char_u
*oldtitle
= NULL
;
150 static int did_set_title
= FALSE
;
151 static char_u
*oldicon
= NULL
;
152 static int did_set_icon
= FALSE
;
155 static void may_core_dump
__ARGS((void));
157 static int WaitForChar
__ARGS((long));
158 #if defined(__BEOS__)
159 int RealWaitForChar
__ARGS((int, long, int *));
161 static int RealWaitForChar
__ARGS((int, long, int *));
164 #ifdef FEAT_XCLIPBOARD
165 static int do_xterm_trace
__ARGS((void));
166 # define XT_TRACE_DELAY 50 /* delay for xterm tracing */
169 static void handle_resize
__ARGS((void));
171 #if defined(SIGWINCH)
172 static RETSIGTYPE sig_winch
__ARGS(SIGPROTOARG
);
175 static RETSIGTYPE catch_sigint
__ARGS(SIGPROTOARG
);
178 static RETSIGTYPE catch_sigpwr
__ARGS(SIGPROTOARG
);
180 #if defined(SIGALRM) && defined(FEAT_X11) \
181 && defined(FEAT_TITLE) && !defined(FEAT_GUI_GTK)
182 # define SET_SIG_ALARM
183 static RETSIGTYPE sig_alarm
__ARGS(SIGPROTOARG
);
184 /* volatile because it is used in signal handler sig_alarm(). */
185 static volatile int sig_alarm_called
;
187 static RETSIGTYPE deathtrap
__ARGS(SIGPROTOARG
);
189 static void catch_int_signal
__ARGS((void));
190 static void set_signals
__ARGS((void));
191 static void catch_signals
__ARGS((RETSIGTYPE (*func_deadly
)(), RETSIGTYPE (*func_other
)()));
193 static int have_wildcard
__ARGS((int, char_u
**));
194 static int have_dollars
__ARGS((int, char_u
**));
198 static int save_patterns
__ARGS((int num_pat
, char_u
**pat
, int *num_file
, char_u
***file
));
202 # define SIG_ERR ((RETSIGTYPE (*)())-1)
205 /* volatile because it is used in signal handler sig_winch(). */
206 static volatile int do_resize
= FALSE
;
208 static char_u
*extra_shell_arg
= NULL
;
209 static int show_shell_mess
= TRUE
;
211 /* volatile because it is used in signal handler deathtrap(). */
212 static volatile int deadly_signal
= 0; /* The signal we caught */
213 /* volatile because it is used in signal handler deathtrap(). */
214 static volatile int in_mch_delay
= FALSE
; /* sleeping in mch_delay() */
216 static int curr_tmode
= TMODE_COOK
; /* contains current terminal mode */
221 SmcConn smcconn
; /* The SM connection ID */
222 IceConn iceconn
; /* The ICE connection ID */
223 char *clientid
; /* The client ID for the current smc session */
224 Bool save_yourself
; /* If we're in the middle of a save_yourself */
225 Bool shutdown
; /* If we're in shutdown mode */
228 static xsmp_config_T xsmp
;
231 #ifdef SYS_SIGLIST_DECLARED
234 * extern char *_sys_siglist[NSIG];
235 * on Irix, Linux, NetBSD and Solaris. It contains a nice list of strings
236 * that describe the signals. That is nearly what we want here. But
237 * autoconf does only check for sys_siglist (without the underscore), I
238 * do not want to change everything today.... jw.
239 * This is why AC_DECL_SYS_SIGLIST is commented out in configure.in
243 static struct signalinfo
245 int sig
; /* Signal number, eg. SIGSEGV etc */
246 char *name
; /* Signal name (not char_u!). */
247 char deadly
; /* Catch as a deadly signal? */
251 {SIGHUP
, "HUP", TRUE
},
254 {SIGQUIT
, "QUIT", TRUE
},
257 {SIGILL
, "ILL", TRUE
},
260 {SIGTRAP
, "TRAP", TRUE
},
263 {SIGABRT
, "ABRT", TRUE
},
266 {SIGEMT
, "EMT", TRUE
},
269 {SIGFPE
, "FPE", TRUE
},
272 {SIGBUS
, "BUS", TRUE
},
275 {SIGSEGV
, "SEGV", TRUE
},
278 {SIGSYS
, "SYS", TRUE
},
281 {SIGALRM
, "ALRM", FALSE
}, /* Perl's alarm() can trigger it */
284 {SIGTERM
, "TERM", TRUE
},
287 {SIGVTALRM
, "VTALRM", TRUE
},
289 #if defined(SIGPROF) && !defined(FEAT_MZSCHEME) && !defined(WE_ARE_PROFILING)
290 /* MzScheme uses SIGPROF for its own needs; On Linux with profiling
291 * this makes Vim exit. WE_ARE_PROFILING is defined in Makefile. */
292 {SIGPROF
, "PROF", TRUE
},
295 {SIGXCPU
, "XCPU", TRUE
},
298 {SIGXFSZ
, "XFSZ", TRUE
},
301 {SIGUSR1
, "USR1", TRUE
},
303 #if defined(SIGUSR2) && !defined(FEAT_SYSMOUSE)
304 /* Used for sysmouse handling */
305 {SIGUSR2
, "USR2", TRUE
},
308 {SIGINT
, "INT", FALSE
},
311 {SIGWINCH
, "WINCH", FALSE
},
314 {SIGTSTP
, "TSTP", FALSE
},
317 {SIGPIPE
, "PIPE", FALSE
},
319 {-1, "Unknown!", FALSE
}
329 smsg((char_u
*)"chdir(%s)", path
);
333 return chdir(vms_fixfilename(path
));
340 * Write s[len] to the screen.
347 ignored
= (int)write(1, (char *)s
, len
);
348 if (p_wd
) /* Unix is too fast, slow down a bit more */
349 RealWaitForChar(read_cmd_fd
, p_wd
, NULL
);
353 * mch_inchar(): low level input function.
354 * Get a characters from the keyboard.
355 * Return the number of characters that are available.
356 * If wtime == 0 do not wait for characters.
357 * If wtime == n wait a short time for characters.
358 * If wtime == -1 wait forever for characters.
361 mch_inchar(buf
, maxlen
, wtime
, tb_change_cnt
)
364 long wtime
; /* don't use "time", MIPS cannot handle it */
369 /* Check if window changed size while we were busy, perhaps the ":set
370 * columns=99" command was used. */
376 while (WaitForChar(wtime
) == 0) /* no character available */
378 if (!do_resize
) /* return if not interrupted by resize */
383 else /* wtime == -1 */
386 * If there is no character available within 'updatetime' seconds
387 * flush all the swap files to disk.
388 * Also done when interrupted by SIGWINCH.
390 if (WaitForChar(p_ut
) == 0)
393 if (trigger_cursorhold() && maxlen
>= 3
394 && !typebuf_changed(tb_change_cnt
))
398 buf
[2] = (int)KE_CURSORHOLD
;
406 for (;;) /* repeat until we got a character */
408 while (do_resize
) /* window changed size */
411 * we want to be interrupted by the winch signal
414 if (do_resize
) /* interrupted by SIGWINCH signal */
417 /* If input was put directly in typeahead buffer bail out here. */
418 if (typebuf_changed(tb_change_cnt
))
422 * For some terminals we only get one character at a time.
423 * We want the get all available characters, so we could keep on
424 * trying until none is available
425 * For some other terminals this is quite slow, that's why we don't do
428 len
= read_from_input_buf(buf
, (long)maxlen
);
434 for (i
= 0; i
< len
; i
++)
451 * return non-zero if a character is available
456 return WaitForChar(0L);
459 #if defined(HAVE_TOTAL_MEM) || defined(PROTO)
460 # ifdef HAVE_SYS_RESOURCE_H
461 # include <sys/resource.h>
463 # if defined(HAVE_SYS_SYSCTL_H) && defined(HAVE_SYSCTL)
464 # include <sys/sysctl.h>
466 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
467 # include <sys/sysinfo.h>
471 * Return total amount of memory available in Kbyte.
472 * Doesn't change when memory has been allocated.
475 mch_total_mem(special
)
479 return ulimit(3, 0L) >> 10; /* always 32MB? */
482 long_u shiftright
= 10; /* how much to shift "mem" right for Kbyte */
488 /* BSD way of getting the amount of RAM available. */
491 len
= sizeof(physmem
);
492 if (sysctl(mib
, 2, &physmem
, &len
, NULL
, 0) == 0)
493 mem
= (long_u
)physmem
;
496 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
499 struct sysinfo sinfo
;
501 /* Linux way of getting amount of RAM available */
502 if (sysinfo(&sinfo
) == 0)
504 # ifdef HAVE_SYSINFO_MEM_UNIT
505 /* avoid overflow as much as possible */
506 while (shiftright
> 0 && (sinfo
.mem_unit
& 1) == 0)
508 sinfo
.mem_unit
= sinfo
.mem_unit
>> 1;
511 mem
= sinfo
.totalram
* sinfo
.mem_unit
;
513 mem
= sinfo
.totalram
;
522 long pagesize
, pagecount
;
524 /* Solaris way of getting amount of RAM available */
525 pagesize
= sysconf(_SC_PAGESIZE
);
526 pagecount
= sysconf(_SC_PHYS_PAGES
);
527 if (pagesize
> 0 && pagecount
> 0)
529 /* avoid overflow as much as possible */
530 while (shiftright
> 0 && (pagesize
& 1) == 0)
532 pagesize
= (long_u
)pagesize
>> 1;
535 mem
= (long_u
)pagesize
* pagecount
;
540 /* Return the minimum of the physical memory and the user limit, because
541 * using more than the user limit may cause Vim to be terminated. */
542 # if defined(HAVE_SYS_RESOURCE_H) && defined(HAVE_GETRLIMIT)
546 if (getrlimit(RLIMIT_DATA
, &rlp
) == 0
547 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
548 # ifdef RLIM_INFINITY
549 && rlp
.rlim_cur
!= RLIM_INFINITY
551 && ((long_u
)rlp
.rlim_cur
>> 10) < (mem
>> shiftright
)
554 mem
= (long_u
)rlp
.rlim_cur
;
561 return mem
>> shiftright
;
562 return (long_u
)0x1fffff;
568 mch_delay(msec
, ignoreinput
)
574 long total
= msec
; /* remember original value */
579 /* Go to cooked mode without echo, to allow SIGINT interrupting us
580 * here. But we don't want QUIT to kill us (CTRL-\ used in a
581 * shell may produce SIGQUIT). */
583 old_tmode
= curr_tmode
;
584 if (curr_tmode
== TMODE_RAW
)
585 settmode(TMODE_SLEEP
);
588 * Everybody sleeps in a different way...
589 * Prefer nanosleep(), some versions of usleep() can only sleep up to
595 /* if total is large enough, wait by portions in p_mzq */
602 #ifdef HAVE_NANOSLEEP
606 ts
.tv_sec
= msec
/ 1000;
607 ts
.tv_nsec
= (msec
% 1000) * 1000000;
608 (void)nanosleep(&ts
, NULL
);
614 usleep((unsigned int)(999 * 1000));
617 usleep((unsigned int)(msec
* 1000));
620 poll(NULL
, 0, (int)msec
);
628 tv
.tv_sec
= msec
/ 1000;
629 tv
.tv_usec
= (msec
% 1000) * 1000;
631 * NOTE: Solaris 2.6 has a bug that makes select() hang here. Get
632 * a patch from Sun to fix this. Reported by Gunnar Pedersen.
634 select(0, NULL
, NULL
, NULL
, &tv
);
636 # endif /* __EMX__ */
637 # endif /* HAVE_SELECT */
638 # endif /* HAVE_NANOSLEEP */
639 #endif /* HAVE_USLEEP */
646 in_mch_delay
= FALSE
;
652 #if 0 /* disabled, no longer needed now that regmatch() is not recursive */
653 # if defined(HAVE_GETRLIMIT)
654 # define HAVE_STACK_LIMIT
658 #if defined(HAVE_STACK_LIMIT) \
659 || (!defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGSTACK))
660 # define HAVE_CHECK_STACK_GROWTH
662 * Support for checking for an almost-out-of-stack-space situation.
666 * Return a pointer to an item on the stack. Used to find out if the stack
669 static void check_stack_growth
__ARGS((char *p
));
670 static int stack_grows_downwards
;
673 * Find out if the stack grows upwards or downwards.
674 * "p" points to a variable on the stack of the caller.
677 check_stack_growth(p
)
682 stack_grows_downwards
= (p
> (char *)&i
);
686 #if defined(HAVE_STACK_LIMIT) || defined(PROTO)
687 static char *stack_limit
= NULL
;
689 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
690 # include <pthread.h>
691 # include <pthread_np.h>
695 * Find out until how var the stack can grow without getting into trouble.
696 * Called when starting up and when switching to the signal stack in
706 /* Set the stack limit to 15/16 of the allowable size. Skip this when the
707 * limit doesn't fit in a long (rlim_cur might be "long long"). */
708 if (getrlimit(RLIMIT_STACK
, &rlp
) == 0
709 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
710 # ifdef RLIM_INFINITY
711 && rlp
.rlim_cur
!= RLIM_INFINITY
715 lim
= (long)rlp
.rlim_cur
;
716 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
721 /* On FreeBSD the initial thread always has a fixed stack size, no
722 * matter what the limits are set to. Normally it's 1 Mbyte. */
723 pthread_attr_init(&attr
);
724 if (pthread_attr_get_np(pthread_self(), &attr
) == 0)
726 pthread_attr_getstacksize(&attr
, &size
);
727 if (lim
> (long)size
)
730 pthread_attr_destroy(&attr
);
733 if (stack_grows_downwards
)
735 stack_limit
= (char *)((long)&i
- (lim
/ 16L * 15L));
736 if (stack_limit
>= (char *)&i
)
737 /* overflow, set to 1/16 of current stack position */
738 stack_limit
= (char *)((long)&i
/ 16L);
742 stack_limit
= (char *)((long)&i
+ (lim
/ 16L * 15L));
743 if (stack_limit
<= (char *)&i
)
744 stack_limit
= NULL
; /* overflow */
750 * Return FAIL when running out of stack space.
751 * "p" must point to any variable local to the caller that's on the stack.
757 if (stack_limit
!= NULL
)
759 if (stack_grows_downwards
)
764 else if (p
> stack_limit
)
771 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
773 * Support for using the signal stack.
774 * This helps when we run out of stack space, which causes a SIGSEGV. The
775 * signal handler then must run on another stack, since the normal stack is
780 # define SIGSTKSZ 8000 /* just a guess of how much stack is needed... */
783 # ifdef HAVE_SIGALTSTACK
784 static stack_t sigstk
; /* for sigaltstack() */
786 static struct sigstack sigstk
; /* for sigstack() */
789 static void init_signal_stack
__ARGS((void));
790 static char *signal_stack
;
795 if (signal_stack
!= NULL
)
797 # ifdef HAVE_SIGALTSTACK
798 # if defined(__APPLE__) && (!defined(MAC_OS_X_VERSION_MAX_ALLOWED) \
799 || MAC_OS_X_VERSION_MAX_ALLOWED <= 1040)
800 /* missing prototype. Adding it to osdef?.h.in doesn't work, because
801 * "struct sigaltstack" needs to be declared. */
802 extern int sigaltstack
__ARGS((const struct sigaltstack
*ss
, struct sigaltstack
*oss
));
806 sigstk
.ss_base
= signal_stack
;
808 sigstk
.ss_sp
= signal_stack
;
810 sigstk
.ss_size
= SIGSTKSZ
;
812 (void)sigaltstack(&sigstk
, NULL
);
814 sigstk
.ss_sp
= signal_stack
;
815 if (stack_grows_downwards
)
816 sigstk
.ss_sp
+= SIGSTKSZ
- 1;
817 sigstk
.ss_onstack
= 0;
818 (void)sigstack(&sigstk
, NULL
);
825 * We need correct prototypes for a signal function, otherwise mean compilers
826 * will barf when the second argument to signal() is ``wrong''.
827 * Let me try it with a few tricky defines from my own osdef.h (jw).
829 #if defined(SIGWINCH)
831 sig_winch
SIGDEFARG(sigarg
)
833 /* this is not required on all systems, but it doesn't hurt anybody */
834 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
842 catch_sigint
SIGDEFARG(sigarg
)
844 /* this is not required on all systems, but it doesn't hurt anybody */
845 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
853 catch_sigpwr
SIGDEFARG(sigarg
)
855 /* this is not required on all systems, but it doesn't hurt anybody */
856 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
858 * I'm not sure we get the SIGPWR signal when the system is really going
859 * down or when the batteries are almost empty. Just preserve the swap
860 * files and don't exit, that can't do any harm.
862 ml_sync_all(FALSE
, FALSE
);
869 * signal function for alarm().
872 sig_alarm
SIGDEFARG(sigarg
)
874 /* doesn't do anything, just to break a system call */
875 sig_alarm_called
= TRUE
;
880 #if (defined(HAVE_SETJMP_H) \
881 && ((defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) \
882 || defined(FEAT_LIBCALL))) \
885 * A simplistic version of setjmp() that only allows one level of using.
886 * Don't call twice before calling mch_endjmp()!.
889 * if (SETJMP(lc_jump_env) != 0)
899 * Note: Can't move SETJMP() here, because a function calling setjmp() must
900 * not return before the saved environment is used.
901 * Returns OK for normal return, FAIL when the protected code caused a
902 * problem and LONGJMP() was used.
922 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
923 /* On FreeBSD the signal stack has to be reset after using siglongjmp(),
924 * otherwise catching the signal only works once. */
931 * This function handles deadly signals.
932 * It tries to preserve any swap file and exit properly.
933 * (partly from Elvis).
936 deathtrap
SIGDEFARG(sigarg
)
938 static int entered
= 0; /* count the number of times we got here.
939 Note: when memory has been corrupted
940 this may get an arbitrary value! */
945 #if defined(HAVE_SETJMP_H)
947 * Catch a crash in protected code.
948 * Restores the environment saved in lc_jump_env, which looks like
949 * SETJMP() returns 1.
953 # if defined(SIGHASARG)
956 lc_active
= FALSE
; /* don't jump again */
957 LONGJMP(lc_jump_env
, 1);
964 /* While in mch_delay() we go to cooked mode to allow a CTRL-C to
965 * interrupt us. But in cooked mode we may also get SIGQUIT, e.g., when
966 * pressing CTRL-\, but we don't want Vim to exit then. */
967 if (in_mch_delay
&& sigarg
== SIGQUIT
)
971 /* When SIGHUP, SIGQUIT, etc. are blocked: postpone the effect and return
972 * here. This avoids that a non-reentrant function is interrupted, e.g.,
973 * free(). Calling free() again may then cause a crash. */
995 && !vim_handle_signal(sigarg
))
999 /* Remember how often we have been called. */
1003 /* Set the v:dying variable. */
1004 set_vim_var_nr(VV_DYING
, (long)entered
);
1007 #ifdef HAVE_STACK_LIMIT
1008 /* Since we are now using the signal stack, need to reset the stack
1009 * limit. Otherwise using a regexp will fail. */
1014 /* This is for opening gdb the moment Vim crashes.
1015 * You need to manually adjust the file name and Vim executable name.
1016 * Suggested by SungHyun Nam. */
1018 # define VI_GDB_FILE "/tmp/vimgdb"
1019 # define VIM_NAME "/usr/bin/vim"
1020 FILE *fp
= fopen(VI_GDB_FILE
, "w");
1028 , VIM_NAME
, getpid());
1030 system("xterm -e gdb -x "VI_GDB_FILE
);
1031 unlink(VI_GDB_FILE
);
1037 /* try to find the name of this signal */
1038 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1039 if (sigarg
== signal_info
[i
].sig
)
1041 deadly_signal
= sigarg
;
1044 full_screen
= FALSE
; /* don't write message to the GUI, it might be
1045 * part of the problem... */
1047 * If something goes wrong after entering here, we may get here again.
1048 * When this happens, give a message and try to exit nicely (resetting the
1049 * terminal mode, etc.)
1050 * When this happens twice, just exit, don't even try to give a message,
1051 * stack may be corrupt or something weird.
1052 * When this still happens again (or memory was corrupted in such a way
1053 * that "entered" was clobbered) use _exit(), don't try freeing resources.
1057 reset_signals(); /* don't catch any signals anymore */
1065 OUT_STR(_("Vim: Double signal, exiting\n"));
1071 sprintf((char *)IObuff
, _("Vim: Caught deadly signal %s\n"),
1072 signal_info
[i
].name
);
1074 sprintf((char *)IObuff
, _("Vim: Caught deadly signal\n"));
1076 preserve_exit(); /* preserve files and exit */
1087 #if defined(_REENTRANT) && defined(SIGCONT)
1089 * On Solaris with multi-threading, suspending might not work immediately.
1090 * Catch the SIGCONT signal, which will be used as an indication whether the
1091 * suspending has been done or not.
1093 * On Linux, signal is not always handled immediately either.
1094 * See https://bugs.launchpad.net/bugs/291373
1096 * volatile because it is used in in signal handler sigcont_handler().
1098 static volatile int sigcont_received
;
1099 static RETSIGTYPE sigcont_handler
__ARGS(SIGPROTOARG
);
1102 * signal handler for SIGCONT
1105 sigcont_handler
SIGDEFARG(sigarg
)
1107 sigcont_received
= TRUE
;
1113 * If the machine has job control, use it to suspend the program,
1114 * otherwise fake it by starting a new shell.
1119 /* BeOS does have SIGTSTP, but it doesn't work. */
1120 #if defined(SIGTSTP) && !defined(__BEOS__)
1121 out_flush(); /* needed to make cursor visible on some systems */
1122 settmode(TMODE_COOK
);
1123 out_flush(); /* needed to disable mouse on some systems */
1125 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
1126 /* Since we are going to sleep, we can't respond to requests for the X
1127 * selections. Lose them, otherwise other applications will hang. But
1128 * first copy the text to cut buffer 0. */
1129 if (clip_star
.owned
|| clip_plus
.owned
)
1131 x11_export_final_selection();
1132 if (clip_star
.owned
)
1133 clip_lose_selection(&clip_star
);
1134 if (clip_plus
.owned
)
1135 clip_lose_selection(&clip_plus
);
1136 if (x11_display
!= NULL
)
1137 XFlush(x11_display
);
1141 # if defined(_REENTRANT) && defined(SIGCONT)
1142 sigcont_received
= FALSE
;
1144 kill(0, SIGTSTP
); /* send ourselves a STOP signal */
1145 # if defined(_REENTRANT) && defined(SIGCONT)
1147 * Wait for the SIGCONT signal to be handled. It generally happens
1148 * immediately, but somehow not all the time. Do not call pause()
1149 * because there would be race condition which would hang Vim if
1150 * signal happened in between the test of sigcont_received and the
1151 * call to pause(). If signal is not yet received, call sleep(0)
1152 * to just yield CPU. Signal should then be received. If somehow
1153 * it's still not received, sleep 1, 2, 3 ms. Don't bother waiting
1154 * further if signal is not received after 1+2+3+4 ms (not expected
1159 for (wait_time
= 0; !sigcont_received
&& wait_time
<= 3L; wait_time
++)
1160 /* Loop is not entered most of the time */
1161 mch_delay(wait_time
, FALSE
);
1167 * Set oldtitle to NULL, so the current title is obtained again.
1172 settmode(TMODE_RAW
);
1173 need_check_timestamps
= TRUE
;
1174 did_check_timestamps
= FALSE
;
1189 #ifdef MACOS_CONVERT
1197 #if defined(SIGWINCH)
1199 * WINDOW CHANGE signal is handled with sig_winch().
1201 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
1205 * We want the STOP signal to work, to make mch_suspend() work.
1206 * For "rvim" the STOP signal is ignored.
1209 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
1211 #if defined(_REENTRANT) && defined(SIGCONT)
1212 signal(SIGCONT
, sigcont_handler
);
1216 * We want to ignore breaking of PIPEs.
1219 signal(SIGPIPE
, SIG_IGN
);
1227 * Ignore alarm signals (Perl's alarm() generates it).
1230 signal(SIGALRM
, SIG_IGN
);
1234 * Catch SIGPWR (power failure?) to preserve the swap files, so that no
1235 * work will be lost.
1238 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
1242 * Arrange for other signals to gracefully shutdown Vim.
1244 catch_signals(deathtrap
, SIG_ERR
);
1246 #if defined(FEAT_GUI) && defined(SIGHUP)
1248 * When the GUI is running, ignore the hangup signal.
1251 signal(SIGHUP
, SIG_IGN
);
1255 #if defined(SIGINT) || defined(PROTO)
1257 * Catch CTRL-C (only works while in Cooked mode).
1262 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
1269 catch_signals(SIG_DFL
, SIG_DFL
);
1270 #if defined(_REENTRANT) && defined(SIGCONT)
1271 /* SIGCONT isn't in the list, because its default action is ignore */
1272 signal(SIGCONT
, SIG_DFL
);
1277 catch_signals(func_deadly
, func_other
)
1278 RETSIGTYPE (*func_deadly
)();
1279 RETSIGTYPE (*func_other
)();
1283 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1284 if (signal_info
[i
].deadly
)
1286 #if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGACTION)
1287 struct sigaction sa
;
1289 /* Setup to use the alternate stack for the signal function. */
1290 sa
.sa_handler
= func_deadly
;
1291 sigemptyset(&sa
.sa_mask
);
1292 # if defined(__linux__) && defined(_REENTRANT)
1293 /* On Linux, with glibc compiled for kernel 2.2, there is a bug in
1294 * thread handling in combination with using the alternate stack:
1295 * pthread library functions try to use the stack pointer to
1296 * identify the current thread, causing a SEGV signal, which
1297 * recursively calls deathtrap() and hangs. */
1300 sa
.sa_flags
= SA_ONSTACK
;
1302 sigaction(signal_info
[i
].sig
, &sa
, NULL
);
1304 # if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGVEC)
1307 /* Setup to use the alternate stack for the signal function. */
1308 sv
.sv_handler
= func_deadly
;
1310 sv
.sv_flags
= SV_ONSTACK
;
1311 sigvec(signal_info
[i
].sig
, &sv
, NULL
);
1313 signal(signal_info
[i
].sig
, func_deadly
);
1317 else if (func_other
!= SIG_ERR
)
1318 signal(signal_info
[i
].sig
, func_other
);
1322 * Handling of SIGHUP, SIGQUIT and SIGTERM:
1323 * "when" == a signal: when busy, postpone and return FALSE, otherwise
1325 * "when" == SIGNAL_BLOCK: Going to be busy, block signals
1326 * "when" == SIGNAL_UNBLOCK: Going to wait, unblock signals, use postponed
1328 * Returns TRUE when Vim should exit.
1331 vim_handle_signal(sig
)
1334 static int got_signal
= 0;
1335 static int blocked
= TRUE
;
1339 case SIGNAL_BLOCK
: blocked
= TRUE
;
1342 case SIGNAL_UNBLOCK
: blocked
= FALSE
;
1343 if (got_signal
!= 0)
1345 kill(getpid(), got_signal
);
1350 default: if (!blocked
)
1351 return TRUE
; /* exit! */
1356 got_int
= TRUE
; /* break any loops */
1363 * Check_win checks whether we have an interactive stdout.
1366 mch_check_win(argc
, argv
)
1372 * Store argv[0], may be used for $VIM. Only use it if it is an absolute
1373 * name, mostly it's just "vim" and found in the path, which is unusable.
1375 if (mch_isFullName(argv
[0]))
1376 exe_name
= vim_strsave((char_u
*)argv
[0]);
1384 * Return TRUE if the input comes from a terminal, FALSE otherwise.
1389 if (isatty(read_cmd_fd
))
1396 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H) \
1397 && (defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE))
1399 static void xopen_message
__ARGS((struct timeval
*tvp
));
1402 * Give a message about the elapsed time for opening the X window.
1406 struct timeval
*tvp
; /* must contain start time */
1408 struct timeval end_tv
;
1410 /* Compute elapsed time. */
1411 gettimeofday(&end_tv
, NULL
);
1412 smsg((char_u
*)_("Opening the X display took %ld msec"),
1413 (end_tv
.tv_sec
- tvp
->tv_sec
) * 1000L
1414 + (end_tv
.tv_usec
- tvp
->tv_usec
) / 1000L);
1419 #if defined(FEAT_X11) && (defined(FEAT_TITLE) || defined(FEAT_XCLIPBOARD))
1421 * A few functions shared by X11 title and clipboard code.
1423 static int x_error_handler
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1424 static int x_error_check
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1425 static int x_connect_to_server
__ARGS((void));
1426 static int test_x11_window
__ARGS((Display
*dpy
));
1428 static int got_x_error
= FALSE
;
1431 * X Error handler, otherwise X just exits! (very rude) -- webb
1434 x_error_handler(dpy
, error_event
)
1436 XErrorEvent
*error_event
;
1438 XGetErrorText(dpy
, error_event
->error_code
, (char *)IObuff
, IOSIZE
);
1439 STRCAT(IObuff
, _("\nVim: Got X error\n"));
1441 /* We cannot print a message and continue, because no X calls are allowed
1442 * here (causes my system to hang). Silently continuing might be an
1444 preserve_exit(); /* preserve files and exit */
1446 return 0; /* NOTREACHED */
1450 * Another X Error handler, just used to check for errors.
1453 x_error_check(dpy
, error_event
)
1454 Display
*dpy UNUSED
;
1455 XErrorEvent
*error_event UNUSED
;
1461 #if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
1462 # if defined(HAVE_SETJMP_H)
1464 * An X IO Error handler, used to catch error while opening the display.
1466 static int x_IOerror_check
__ARGS((Display
*dpy
));
1469 x_IOerror_check(dpy
)
1470 Display
*dpy UNUSED
;
1472 /* This function should not return, it causes exit(). Longjump instead. */
1473 LONGJMP(lc_jump_env
, 1);
1478 * An X IO Error handler, used to catch terminal errors.
1480 static int x_IOerror_handler
__ARGS((Display
*dpy
));
1483 x_IOerror_handler(dpy
)
1484 Display
*dpy UNUSED
;
1489 xterm_Shell
= (Widget
)0;
1491 /* This function should not return, it causes exit(). Longjump instead. */
1492 LONGJMP(x_jump_env
, 1);
1497 * Return TRUE when connection to the X server is desired.
1500 x_connect_to_server()
1502 regmatch_T regmatch
;
1504 #if defined(FEAT_CLIENTSERVER)
1505 if (x_force_connect
)
1511 /* Check for a match with "exclude:" from 'clipboard'. */
1512 if (clip_exclude_prog
!= NULL
)
1514 regmatch
.rm_ic
= FALSE
; /* Don't ignore case */
1515 regmatch
.regprog
= clip_exclude_prog
;
1516 if (vim_regexec(®match
, T_NAME
, (colnr_T
)0))
1523 * Test if "dpy" and x11_window are valid by getting the window title.
1524 * I don't actually want it yet, so there may be a simpler call to use, but
1525 * this will cause the error handler x_error_check() to be called if anything
1526 * is wrong, such as the window pointer being invalid (as can happen when the
1527 * user changes his DISPLAY, but not his WINDOWID) -- webb
1530 test_x11_window(dpy
)
1533 int (*old_handler
)();
1534 XTextProperty text_prop
;
1536 old_handler
= XSetErrorHandler(x_error_check
);
1537 got_x_error
= FALSE
;
1538 if (XGetWMName(dpy
, x11_window
, &text_prop
))
1539 XFree((void *)text_prop
.value
);
1541 (void)XSetErrorHandler(old_handler
);
1543 if (p_verbose
> 0 && got_x_error
)
1544 verb_msg((char_u
*)_("Testing the X display failed"));
1546 return (got_x_error
? FAIL
: OK
);
1554 static int get_x11_thing
__ARGS((int get_title
, int test_only
));
1557 * try to get x11 window and display
1559 * return FAIL for failure, OK otherwise
1565 static int result
= -1;
1566 #define XD_NONE 0 /* x11_display not set here */
1567 #define XD_HERE 1 /* x11_display opened here */
1568 #define XD_GUI 2 /* x11_display used from gui.dpy */
1569 #define XD_XTERM 3 /* x11_display used from xterm_dpy */
1570 static int x11_display_from
= XD_NONE
;
1571 static int did_set_error_handler
= FALSE
;
1573 if (!did_set_error_handler
)
1575 /* X just exits if it finds an error otherwise! */
1576 (void)XSetErrorHandler(x_error_handler
);
1577 did_set_error_handler
= TRUE
;
1580 #if defined(FEAT_GUI_X11) || defined(FEAT_GUI_GTK)
1584 * If the X11 display was opened here before, for the window where Vim
1585 * was started, close that one now to avoid a memory leak.
1587 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1589 XCloseDisplay(x11_display
);
1590 x11_display_from
= XD_NONE
;
1592 if (gui_get_x11_windis(&x11_window
, &x11_display
) == OK
)
1594 x11_display_from
= XD_GUI
;
1600 else if (x11_display_from
== XD_GUI
)
1602 /* GUI must have stopped somehow, clear x11_display */
1605 x11_display_from
= XD_NONE
;
1609 /* When started with the "-X" argument, don't try connecting. */
1610 if (!x_connect_to_server())
1614 * If WINDOWID not set, should try another method to find out
1615 * what the current window number is. The only code I know for
1616 * this is very complicated.
1617 * We assume that zero is invalid for WINDOWID.
1619 if (x11_window
== 0 && (winid
= getenv("WINDOWID")) != NULL
)
1620 x11_window
= (Window
)atol(winid
);
1622 #ifdef FEAT_XCLIPBOARD
1623 if (xterm_dpy
!= NULL
&& x11_window
!= 0)
1625 /* We may have checked it already, but Gnome terminal can move us to
1626 * another window, so we need to check every time. */
1627 if (x11_display_from
!= XD_XTERM
)
1630 * If the X11 display was opened here before, for the window where
1631 * Vim was started, close that one now to avoid a memory leak.
1633 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1634 XCloseDisplay(x11_display
);
1635 x11_display
= xterm_dpy
;
1636 x11_display_from
= XD_XTERM
;
1638 if (test_x11_window(x11_display
) == FAIL
)
1640 /* probably bad $WINDOWID */
1643 x11_display_from
= XD_NONE
;
1650 if (x11_window
== 0 || x11_display
== NULL
)
1653 if (result
!= -1) /* Have already been here and set this */
1654 return result
; /* Don't do all these X calls again */
1656 if (x11_window
!= 0 && x11_display
== NULL
)
1658 #ifdef SET_SIG_ALARM
1659 RETSIGTYPE (*sig_save
)();
1661 #if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1662 struct timeval start_tv
;
1665 gettimeofday(&start_tv
, NULL
);
1668 #ifdef SET_SIG_ALARM
1670 * Opening the Display may hang if the DISPLAY setting is wrong, or
1671 * the network connection is bad. Set an alarm timer to get out.
1673 sig_alarm_called
= FALSE
;
1674 sig_save
= (RETSIGTYPE (*)())signal(SIGALRM
,
1675 (RETSIGTYPE (*)())sig_alarm
);
1678 x11_display
= XOpenDisplay(NULL
);
1680 #ifdef SET_SIG_ALARM
1682 signal(SIGALRM
, (RETSIGTYPE (*)())sig_save
);
1683 if (p_verbose
> 0 && sig_alarm_called
)
1684 verb_msg((char_u
*)_("Opening the X display timed out"));
1686 if (x11_display
!= NULL
)
1688 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1692 xopen_message(&start_tv
);
1696 if (test_x11_window(x11_display
) == FAIL
)
1698 /* Maybe window id is bad */
1700 XCloseDisplay(x11_display
);
1704 x11_display_from
= XD_HERE
;
1707 if (x11_window
== 0 || x11_display
== NULL
)
1708 return (result
= FAIL
);
1709 return (result
= OK
);
1713 * Determine original x11 Window Title
1716 get_x11_title(test_only
)
1719 return get_x11_thing(TRUE
, test_only
);
1723 * Determine original x11 Window icon
1726 get_x11_icon(test_only
)
1731 retval
= get_x11_thing(FALSE
, test_only
);
1733 /* could not get old icon, use terminal name */
1734 if (oldicon
== NULL
&& !test_only
)
1736 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1737 oldicon
= vim_strsave(T_NAME
+ 8);
1739 oldicon
= vim_strsave(T_NAME
);
1746 get_x11_thing(get_title
, test_only
)
1747 int get_title
; /* get title string */
1750 XTextProperty text_prop
;
1754 if (get_x11_windis() == OK
)
1756 /* Get window/icon name if any */
1758 status
= XGetWMName(x11_display
, x11_window
, &text_prop
);
1760 status
= XGetWMIconName(x11_display
, x11_window
, &text_prop
);
1763 * If terminal is xterm, then x11_window may be a child window of the
1764 * outer xterm window that actually contains the window/icon name, so
1765 * keep traversing up the tree until a window with a title/icon is
1768 /* Previously this was only done for xterm and alikes. I don't see a
1769 * reason why it would fail for other terminal emulators.
1770 * if (term_is_xterm) */
1774 Window win
= x11_window
;
1776 unsigned int num_children
;
1778 while (!status
|| text_prop
.value
== NULL
)
1780 if (!XQueryTree(x11_display
, win
, &root
, &parent
, &children
,
1784 XFree((void *)children
);
1785 if (parent
== root
|| parent
== 0)
1790 status
= XGetWMName(x11_display
, win
, &text_prop
);
1792 status
= XGetWMIconName(x11_display
, win
, &text_prop
);
1795 if (status
&& text_prop
.value
!= NULL
)
1800 #ifdef FEAT_XFONTSET
1801 if (text_prop
.encoding
== XA_STRING
)
1805 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1807 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1808 #ifdef FEAT_XFONTSET
1813 Status transform_status
;
1816 transform_status
= XmbTextPropertyToTextList(x11_display
,
1819 if (transform_status
>= Success
&& n
> 0 && cl
[0])
1822 oldtitle
= vim_strsave((char_u
*) cl
[0]);
1824 oldicon
= vim_strsave((char_u
*) cl
[0]);
1825 XFreeStringList(cl
);
1830 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1832 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1837 XFree((void *)text_prop
.value
);
1843 /* Are Xutf8 functions available? Avoid error from old compilers. */
1844 #if defined(X_HAVE_UTF8_STRING) && defined(FEAT_MBYTE)
1845 # if X_HAVE_UTF8_STRING
1846 # define USE_UTF8_STRING
1851 * Set x11 Window Title
1853 * get_x11_windis() must be called before this and have returned OK
1856 set_x11_title(title
)
1859 /* XmbSetWMProperties() and Xutf8SetWMProperties() should use a STRING
1860 * when possible, COMPOUND_TEXT otherwise. COMPOUND_TEXT isn't
1861 * supported everywhere and STRING doesn't work for multi-byte titles.
1863 #ifdef USE_UTF8_STRING
1865 Xutf8SetWMProperties(x11_display
, x11_window
, (const char *)title
,
1866 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1870 #if XtSpecificationRelease >= 4
1871 # ifdef FEAT_XFONTSET
1872 XmbSetWMProperties(x11_display
, x11_window
, (const char *)title
,
1873 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1875 XTextProperty text_prop
;
1876 char *c_title
= (char *)title
;
1878 /* directly from example 3-18 "basicwin" of Xlib Programming Manual */
1879 (void)XStringListToTextProperty(&c_title
, 1, &text_prop
);
1880 XSetWMProperties(x11_display
, x11_window
, &text_prop
,
1881 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1884 XStoreName(x11_display
, x11_window
, (char *)title
);
1887 XFlush(x11_display
);
1891 * Set x11 Window icon
1893 * get_x11_windis() must be called before this and have returned OK
1899 /* See above for comments about using X*SetWMProperties(). */
1900 #ifdef USE_UTF8_STRING
1902 Xutf8SetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1903 NULL
, 0, NULL
, NULL
, NULL
);
1907 #if XtSpecificationRelease >= 4
1908 # ifdef FEAT_XFONTSET
1909 XmbSetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1910 NULL
, 0, NULL
, NULL
, NULL
);
1912 XTextProperty text_prop
;
1913 char *c_icon
= (char *)icon
;
1915 (void)XStringListToTextProperty(&c_icon
, 1, &text_prop
);
1916 XSetWMProperties(x11_display
, x11_window
, NULL
, &text_prop
,
1917 NULL
, 0, NULL
, NULL
, NULL
);
1920 XSetIconName(x11_display
, x11_window
, (char *)icon
);
1923 XFlush(x11_display
);
1926 #else /* FEAT_X11 */
1929 get_x11_title(test_only
)
1930 int test_only UNUSED
;
1936 get_x11_icon(test_only
)
1941 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1942 oldicon
= vim_strsave(T_NAME
+ 8);
1944 oldicon
= vim_strsave(T_NAME
);
1949 #endif /* FEAT_X11 */
1952 mch_can_restore_title()
1954 return get_x11_title(TRUE
);
1958 mch_can_restore_icon()
1960 return get_x11_icon(TRUE
);
1964 * Set the window title and icon.
1967 mch_settitle(title
, icon
)
1972 static int recursive
= 0;
1974 if (T_NAME
== NULL
) /* no terminal name (yet) */
1976 if (title
== NULL
&& icon
== NULL
) /* nothing to do */
1979 /* When one of the X11 functions causes a deadly signal, we get here again
1980 * recursively. Avoid hanging then (something is probably locked). */
1986 * if the window ID and the display is known, we may use X11 calls
1989 if (get_x11_windis() == OK
)
1992 # if defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) \
1993 || defined(FEAT_GUI_GTK) || defined(FEAT_GUI_MACVIM)
2000 * Note: if "t_TS" is set, title is set with escape sequence rather
2001 * than x11 calls, because the x11 calls don't always work
2003 if ((type
|| *T_TS
!= NUL
) && title
!= NULL
)
2005 if (oldtitle
== NULL
2009 ) /* first call but not in GUI, save title */
2010 (void)get_x11_title(FALSE
);
2012 if (*T_TS
!= NUL
) /* it's OK if t_fs is empty */
2013 term_settitle(title
);
2016 # ifdef FEAT_GUI_GTK
2017 if (!gui
.in_use
) /* don't do this if GTK+ is running */
2019 set_x11_title(title
); /* x11 */
2021 #if defined(FEAT_GUI_GTK) \
2022 || defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) \
2023 || defined(FEAT_GUI_MACVIM)
2025 gui_mch_settitle(title
, icon
);
2027 did_set_title
= TRUE
;
2030 if ((type
|| *T_CIS
!= NUL
) && icon
!= NULL
)
2036 ) /* first call, save icon */
2037 get_x11_icon(FALSE
);
2041 out_str(T_CIS
); /* set icon start */
2043 out_str(T_CIE
); /* set icon end */
2048 # ifdef FEAT_GUI_GTK
2049 if (!gui
.in_use
) /* don't do this if GTK+ is running */
2051 set_x11_icon(icon
); /* x11 */
2053 did_set_icon
= TRUE
;
2059 * Restore the window/icon title.
2060 * "which" is one of:
2061 * 1 only restore title
2062 * 2 only restore icon
2063 * 3 restore title and icon
2066 mch_restore_title(which
)
2069 /* only restore the title or icon when it has been set */
2070 mch_settitle(((which
& 1) && did_set_title
) ?
2071 (oldtitle
? oldtitle
: p_titleold
) : NULL
,
2072 ((which
& 2) && did_set_icon
) ? oldicon
: NULL
);
2075 #endif /* FEAT_TITLE */
2078 * Return TRUE if "name" looks like some xterm name.
2079 * Seiichi Sato mentioned that "mlterm" works like xterm.
2087 return (STRNICMP(name
, "xterm", 5) == 0
2088 || STRNICMP(name
, "nxterm", 6) == 0
2089 || STRNICMP(name
, "kterm", 5) == 0
2090 || STRNICMP(name
, "mlterm", 6) == 0
2091 || STRNICMP(name
, "rxvt", 4) == 0
2092 || STRCMP(name
, "builtin_xterm") == 0);
2095 #if defined(FEAT_MOUSE_XTERM) || defined(PROTO)
2097 * Return TRUE if "name" appears to be that of a terminal
2098 * known to support the xterm-style mouse protocol.
2099 * Relies on term_is_xterm having been set to its correct value.
2102 use_xterm_like_mouse(name
)
2105 return (name
!= NULL
2106 && (term_is_xterm
|| STRNICMP(name
, "screen", 6) == 0));
2110 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
2112 * Return non-zero when using an xterm mouse, according to 'ttymouse'.
2113 * Return 1 for "xterm".
2114 * Return 2 for "xterm2".
2119 if (ttym_flags
== TTYM_XTERM2
)
2121 if (ttym_flags
== TTYM_XTERM
)
2133 return (STRNICMP(name
, "iris-ansi", 9) == 0
2134 || STRCMP(name
, "builtin_iris-ansi") == 0);
2142 return FALSE
; /* actually all ANSI comp. terminals should be here */
2143 /* catch VT100 - VT5xx */
2144 return ((STRNICMP(name
, "vt", 2) == 0
2145 && vim_strchr((char_u
*)"12345", name
[2]) != NULL
)
2146 || STRCMP(name
, "builtin_vt320") == 0);
2150 * Return TRUE if "name" is a terminal for which 'ttyfast' should be set.
2151 * This should include all windowed terminal emulators.
2154 vim_is_fastterm(name
)
2159 if (vim_is_xterm(name
) || vim_is_vt300(name
) || vim_is_iris(name
))
2161 return ( STRNICMP(name
, "hpterm", 6) == 0
2162 || STRNICMP(name
, "sun-cmd", 7) == 0
2163 || STRNICMP(name
, "screen", 6) == 0
2164 || STRNICMP(name
, "dtterm", 6) == 0);
2168 * Insert user name in s[len].
2169 * Return OK if a name found.
2172 mch_get_user_name(s
, len
)
2177 vim_strncpy(s
, (char_u
*)cuserid(NULL
), len
- 1);
2180 return mch_get_uname(getuid(), s
, len
);
2185 * Insert user name for "uid" in s[len].
2186 * Return OK if a name found.
2189 mch_get_uname(uid
, s
, len
)
2194 #if defined(HAVE_PWD_H) && defined(HAVE_GETPWUID)
2197 if ((pw
= getpwuid(uid
)) != NULL
2198 && pw
->pw_name
!= NULL
&& *(pw
->pw_name
) != NUL
)
2200 vim_strncpy(s
, (char_u
*)pw
->pw_name
, len
- 1);
2204 sprintf((char *)s
, "%d", (int)uid
); /* assumes s is long enough */
2205 return FAIL
; /* a number is not a name */
2209 * Insert host name is s[len].
2212 #ifdef HAVE_SYS_UTSNAME_H
2214 mch_get_host_name(s
, len
)
2218 struct utsname vutsname
;
2220 if (uname(&vutsname
) < 0)
2223 vim_strncpy(s
, (char_u
*)vutsname
.nodename
, len
- 1);
2225 #else /* HAVE_SYS_UTSNAME_H */
2227 # ifdef HAVE_SYS_SYSTEMINFO_H
2228 # define gethostname(nam, len) sysinfo(SI_HOSTNAME, nam, len)
2232 mch_get_host_name(s
, len
)
2237 vaxc$
gethostname((char *)s
, len
);
2239 gethostname((char *)s
, len
);
2241 s
[len
- 1] = NUL
; /* make sure it's terminated */
2243 #endif /* HAVE_SYS_UTSNAME_H */
2251 return (long)getpid();
2254 #if !defined(HAVE_STRERROR) && defined(USE_GETCWD)
2255 static char *strerror
__ARGS((int));
2261 extern int sys_nerr
;
2262 extern char *sys_errlist
[];
2265 if (err
> 0 && err
< sys_nerr
)
2266 return (sys_errlist
[err
]);
2267 sprintf(er
, "Error %d", err
);
2273 * Get name of current directory into buffer 'buf' of length 'len' bytes.
2274 * Return OK for success, FAIL for failure.
2277 mch_dirname(buf
, len
)
2281 #if defined(USE_GETCWD)
2282 if (getcwd((char *)buf
, len
) == NULL
)
2284 STRCPY(buf
, strerror(errno
));
2289 return (getwd((char *)buf
) != NULL
? OK
: FAIL
);
2293 #if defined(OS2) || defined(PROTO)
2295 * Replace all slashes by backslashes.
2296 * When 'shellslash' set do it the other way around.
2312 * Get absolute file name into "buf[len]".
2314 * return FAIL for failure, OK for success
2317 mch_FullName(fname
, buf
, len
, force
)
2318 char_u
*fname
, *buf
;
2320 int force
; /* also expand when already absolute path */
2324 int only_drive
; /* file name is only a drive letter */
2328 static int dont_fchdir
= FALSE
; /* TRUE when fchdir() doesn't work */
2330 char_u olddir
[MAXPATHL
];
2334 char_u posix_fname
[MAXPATHL
]; /* Cygwin docs mention MAX_PATH, but
2335 it's not always defined */
2339 fname
= vms_fixfilename(fname
);
2344 * This helps for when "/etc/hosts" is a symlink to "c:/something/hosts".
2346 # if CYGWIN_VERSION_DLL_MAJOR >= 1007
2347 cygwin_conv_path(CCP_WIN_A_TO_POSIX
, fname
, posix_fname
, MAXPATHL
);
2349 cygwin_conv_to_posix_path(fname
, posix_fname
);
2351 fname
= posix_fname
;
2354 /* expand it if forced or not an absolute path */
2355 if (force
|| !mch_isFullName(fname
))
2358 * If the file name has a path, change to that directory for a moment,
2359 * and then do the getwd() (and get back to where we were).
2360 * This will get the correct path name with "../" things.
2364 if (((p
= vim_strrchr(fname
, '/')) != NULL
)
2365 || ((p
= vim_strrchr(fname
, '\\')) != NULL
)
2366 || (((p
= vim_strchr(fname
, ':')) != NULL
) && ++only_drive
))
2368 if ((p
= vim_strrchr(fname
, '/')) != NULL
)
2373 * Use fchdir() if possible, it's said to be faster and more
2374 * reliable. But on SunOS 4 it might not work. Check this by
2375 * doing a fchdir() right now.
2379 fd
= open(".", O_RDONLY
| O_EXTRA
, 0);
2380 if (fd
>= 0 && fchdir(fd
) < 0)
2384 dont_fchdir
= TRUE
; /* don't try again */
2389 /* Only change directory when we are sure we can return to where
2390 * we are now. After doing "su" chdir(".") might not work. */
2395 (mch_dirname(olddir
, MAXPATHL
) == FAIL
2396 || mch_chdir((char *)olddir
) != 0))
2398 p
= NULL
; /* can't get current dir: don't chdir */
2405 * compensate for case where ':' from "D:" was the only
2406 * path separator detected in the file name; the _next_
2407 * character has to be removed, and then restored later.
2412 /* The directory is copied into buf[], to be able to remove
2413 * the file name without changing it (could be a string in
2414 * read-only memory) */
2415 if (p
- fname
>= len
)
2419 vim_strncpy(buf
, fname
, p
- fname
);
2420 if (mch_chdir((char *)buf
))
2436 if (mch_dirname(buf
, len
) == FAIL
)
2449 MSG("fchdir() to previous dir");
2457 l
= mch_chdir((char *)olddir
);
2459 EMSG(_(e_prev_dir
));
2468 if (l
> 0 && buf
[l
- 1] != '/' && *fname
!= NUL
2469 && STRCMP(fname
, ".") != 0)
2475 /* Catch file names which are too long. */
2476 if (retval
== FAIL
|| (int)(STRLEN(buf
) + STRLEN(fname
)) >= len
)
2479 /* Do not append ".", "/dir/." is equal to "/dir". */
2480 if (STRCMP(fname
, ".") != 0)
2487 * Return TRUE if "fname" does not depend on the current directory.
2490 mch_isFullName(fname
)
2494 return _fnisabs(fname
);
2497 return ( fname
[0] == '/' || fname
[0] == '.' ||
2498 strchr((char *)fname
,':') || strchr((char *)fname
,'"') ||
2499 (strchr((char *)fname
,'[') && strchr((char *)fname
,']'))||
2500 (strchr((char *)fname
,'<') && strchr((char *)fname
,'>')) );
2502 return (*fname
== '/' || *fname
== '~');
2507 #if defined(USE_FNAME_CASE) || defined(PROTO)
2509 * Set the case of the file name, if it already exists. This will cause the
2510 * file name to remain exactly the same.
2511 * Only required for file systems where case is ignored and preserved.
2514 fname_case(name
, len
)
2516 int len UNUSED
; /* buffer size, only used when name gets longer */
2519 char_u
*slash
, *tail
;
2523 if (lstat((char *)name
, &st
) >= 0)
2525 /* Open the directory where the file is located. */
2526 slash
= vim_strrchr(name
, '/');
2529 dirp
= opendir(".");
2535 dirp
= opendir((char *)name
);
2542 while ((dp
= readdir(dirp
)) != NULL
)
2544 /* Only accept names that differ in case and are the same byte
2545 * length. TODO: accept different length name. */
2546 if (STRICMP(tail
, dp
->d_name
) == 0
2547 && STRLEN(tail
) == STRLEN(dp
->d_name
))
2549 char_u newname
[MAXPATHL
+ 1];
2552 /* Verify the inode is equal. */
2553 vim_strncpy(newname
, name
, MAXPATHL
);
2554 vim_strncpy(newname
+ (tail
- name
), (char_u
*)dp
->d_name
,
2555 MAXPATHL
- (tail
- name
));
2556 if (lstat((char *)newname
, &st2
) >= 0
2557 && st
.st_ino
== st2
.st_ino
2558 && st
.st_dev
== st2
.st_dev
)
2560 STRCPY(tail
, dp
->d_name
);
2573 * Get file permissions for 'name'.
2574 * Returns -1 when it doesn't exist.
2582 /* Keep the #ifdef outside of stat(), it may be a macro. */
2584 if (stat((char *)vms_fixfilename(name
), &statb
))
2586 if (stat((char *)name
, &statb
))
2590 /* The top bit makes the value negative, which means the file doesn't
2591 * exist. Remove the bit, we don't use it. */
2592 return statb
.st_mode
& ~S_ADDACE
;
2594 return statb
.st_mode
;
2599 * set file permission for 'name' to 'perm'
2601 * return FAIL for failure, OK otherwise
2604 mch_setperm(name
, perm
)
2608 return (chmod((char *)
2610 vms_fixfilename(name
),
2614 (mode_t
)perm
) == 0 ? OK
: FAIL
);
2617 #if defined(HAVE_ACL) || defined(PROTO)
2618 # ifdef HAVE_SYS_ACL_H
2619 # include <sys/acl.h>
2621 # ifdef HAVE_SYS_ACCESS_H
2622 # include <sys/access.h>
2625 # ifdef HAVE_SOLARIS_ACL
2626 typedef struct vim_acl_solaris_T
{
2628 aclent_t
*acl_entry
;
2629 } vim_acl_solaris_T
;
2632 #if defined(HAVE_SELINUX) || defined(PROTO)
2634 * Copy security info from "from_file" to "to_file".
2637 mch_copy_sec(from_file
, to_file
)
2641 if (from_file
== NULL
)
2644 if (selinux_enabled
== -1)
2645 selinux_enabled
= is_selinux_enabled();
2647 if (selinux_enabled
> 0)
2649 security_context_t from_context
= NULL
;
2650 security_context_t to_context
= NULL
;
2652 if (getfilecon((char *)from_file
, &from_context
) < 0)
2654 /* If the filesystem doesn't support extended attributes,
2655 the original had no special security context and the
2656 target cannot have one either. */
2657 if (errno
== EOPNOTSUPP
)
2660 MSG_PUTS(_("\nCould not get security context for "));
2661 msg_outtrans(from_file
);
2665 if (getfilecon((char *)to_file
, &to_context
) < 0)
2667 MSG_PUTS(_("\nCould not get security context for "));
2668 msg_outtrans(to_file
);
2670 freecon (from_context
);
2673 if (strcmp(from_context
, to_context
) != 0)
2675 if (setfilecon((char *)to_file
, from_context
) < 0)
2677 MSG_PUTS(_("\nCould not set security context for "));
2678 msg_outtrans(to_file
);
2682 freecon(to_context
);
2683 freecon(from_context
);
2686 #endif /* HAVE_SELINUX */
2689 * Return a pointer to the ACL of file "fname" in allocated memory.
2690 * Return NULL if the ACL is not available for whatever reason.
2694 char_u
*fname UNUSED
;
2696 vim_acl_T ret
= NULL
;
2697 #ifdef HAVE_POSIX_ACL
2698 ret
= (vim_acl_T
)acl_get_file((char *)fname
, ACL_TYPE_ACCESS
);
2700 #ifdef HAVE_SOLARIS_ACL
2701 vim_acl_solaris_T
*aclent
;
2703 aclent
= malloc(sizeof(vim_acl_solaris_T
));
2704 if ((aclent
->acl_cnt
= acl((char *)fname
, GETACLCNT
, 0, NULL
)) < 0)
2709 aclent
->acl_entry
= malloc(aclent
->acl_cnt
* sizeof(aclent_t
));
2710 if (acl((char *)fname
, GETACL
, aclent
->acl_cnt
, aclent
->acl_entry
) < 0)
2712 free(aclent
->acl_entry
);
2716 ret
= (vim_acl_T
)aclent
;
2718 #if defined(HAVE_AIX_ACL)
2722 aclsize
= sizeof(struct acl
);
2723 aclent
= malloc(aclsize
);
2724 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2726 if (errno
== ENOSPC
)
2728 aclsize
= aclent
->acl_len
;
2729 aclent
= realloc(aclent
, aclsize
);
2730 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2742 ret
= (vim_acl_T
)aclent
;
2743 #endif /* HAVE_AIX_ACL */
2744 #endif /* HAVE_SOLARIS_ACL */
2745 #endif /* HAVE_POSIX_ACL */
2750 * Set the ACL of file "fname" to "acl" (unless it's NULL).
2753 mch_set_acl(fname
, aclent
)
2754 char_u
*fname UNUSED
;
2759 #ifdef HAVE_POSIX_ACL
2760 acl_set_file((char *)fname
, ACL_TYPE_ACCESS
, (acl_t
)aclent
);
2762 #ifdef HAVE_SOLARIS_ACL
2763 acl((char *)fname
, SETACL
, ((vim_acl_solaris_T
*)aclent
)->acl_cnt
,
2764 ((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2767 chacl((char *)fname
, aclent
, ((struct acl
*)aclent
)->acl_len
);
2768 #endif /* HAVE_AIX_ACL */
2769 #endif /* HAVE_SOLARIS_ACL */
2770 #endif /* HAVE_POSIX_ACL */
2774 mch_free_acl(aclent
)
2779 #ifdef HAVE_POSIX_ACL
2780 acl_free((acl_t
)aclent
);
2782 #ifdef HAVE_SOLARIS_ACL
2783 free(((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2788 #endif /* HAVE_AIX_ACL */
2789 #endif /* HAVE_SOLARIS_ACL */
2790 #endif /* HAVE_POSIX_ACL */
2795 * Set hidden flag for "name".
2799 char_u
*name UNUSED
;
2801 /* can't hide a file */
2805 * return TRUE if "name" is a directory
2806 * return FALSE if "name" is not a directory
2807 * return FALSE for error
2815 if (*name
== NUL
) /* Some stat()s don't flag "" as an error. */
2817 if (stat((char *)name
, &statb
))
2819 #ifdef _POSIX_SOURCE
2820 return (S_ISDIR(statb
.st_mode
) ? TRUE
: FALSE
);
2822 return ((statb
.st_mode
& S_IFMT
) == S_IFDIR
? TRUE
: FALSE
);
2826 static int executable_file
__ARGS((char_u
*name
));
2829 * Return 1 if "name" is an executable file, 0 if not or it doesn't exist.
2832 executable_file(name
)
2837 if (stat((char *)name
, &st
))
2839 return S_ISREG(st
.st_mode
) && mch_access((char *)name
, X_OK
) == 0;
2843 * Return 1 if "name" can be found in $PATH and executed, 0 if not.
2844 * Return -1 if unknown.
2854 /* If it's an absolute or relative path don't need to use $PATH. */
2855 if (mch_isFullName(name
) || (name
[0] == '.' && (name
[1] == '/'
2856 || (name
[1] == '.' && name
[2] == '/'))))
2857 return executable_file(name
);
2859 p
= (char_u
*)getenv("PATH");
2860 if (p
== NULL
|| *p
== NUL
)
2862 buf
= alloc((unsigned)(STRLEN(name
) + STRLEN(p
) + 2));
2867 * Walk through all entries in $PATH to check if "name" exists there and
2868 * is an executable file.
2872 e
= (char_u
*)strchr((char *)p
, ':');
2875 if (e
- p
<= 1) /* empty entry means current dir */
2879 vim_strncpy(buf
, p
, e
- p
);
2883 retval
= executable_file(buf
);
2897 * Check what "name" is:
2898 * NODE_NORMAL: file or directory (or doesn't exist)
2899 * NODE_WRITABLE: writable device, socket, fifo, etc.
2900 * NODE_OTHER: non-writable things
2908 if (stat((char *)name
, &st
))
2910 if (S_ISREG(st
.st_mode
) || S_ISDIR(st
.st_mode
))
2913 if (S_ISBLK(st
.st_mode
)) /* block device isn't writable */
2916 /* Everything else is writable? */
2917 return NODE_WRITABLE
;
2923 #ifdef HAVE_CHECK_STACK_GROWTH
2926 check_stack_growth((char *)&i
);
2928 # ifdef HAVE_STACK_LIMIT
2935 * Setup an alternative stack for signals. Helps to catch signals when
2936 * running out of stack space.
2937 * Use of sigaltstack() is preferred, it's more portable.
2938 * Ignore any errors.
2940 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2941 signal_stack
= (char *)alloc(SIGSTKSZ
);
2942 init_signal_stack();
2945 #ifdef FEAT_GUI_MACVIM
2946 macvim_early_init();
2950 #if defined(EXITFREE) || defined(PROTO)
2954 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
2955 if (clip_star
.owned
)
2956 clip_lose_selection(&clip_star
);
2957 if (clip_plus
.owned
)
2958 clip_lose_selection(&clip_plus
);
2960 # if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
2961 if (xterm_Shell
!= (Widget
)0)
2962 XtDestroyWidget(xterm_Shell
);
2963 # ifndef LESSTIF_VERSION
2964 /* Lesstif crashes here, lose some memory */
2965 if (xterm_dpy
!= NULL
)
2966 XtCloseDisplay(xterm_dpy
);
2967 if (app_context
!= (XtAppContext
)NULL
)
2969 XtDestroyApplicationContext(app_context
);
2971 x11_display
= NULL
; /* freed by XtDestroyApplicationContext() */
2976 /* Don't close the display for GTK 1, it is done in exit(). */
2977 # if defined(FEAT_X11) && (!defined(FEAT_GUI_GTK) || defined(HAVE_GTK2))
2978 if (x11_display
!= NULL
2979 # ifdef FEAT_XCLIPBOARD
2980 && x11_display
!= xterm_dpy
2983 XCloseDisplay(x11_display
);
2985 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2986 vim_free(signal_stack
);
2987 signal_stack
= NULL
;
2996 static void exit_scroll
__ARGS((void));
2999 * Output a newline when exiting.
3000 * Make sure the newline goes to the same stream as the text.
3007 if (newline_on_exit
|| msg_didout
)
3009 if (msg_use_printf())
3021 restore_cterm_colors(); /* get original colors back */
3022 msg_clr_eos_force(); /* clear the rest of the display */
3023 windgoto((int)Rows
- 1, 0); /* may have moved the cursor */
3033 #if defined(FEAT_X11) && defined(FEAT_CLIPBOARD)
3034 x11_export_final_selection();
3041 settmode(TMODE_COOK
);
3043 mch_restore_title(3); /* restore xterm title and icon name */
3046 * When t_ti is not empty but it doesn't cause swapping terminal
3047 * pages, need to output a newline when msg_didout is set. But when
3048 * t_ti does swap pages it should not go to the shell page. Do this
3049 * before stoptermcap().
3051 if (swapping_screen() && !newline_on_exit
)
3054 /* Stop termcap: May need to check for T_CRV response, which
3055 * requires RAW mode. */
3059 * A newline is only required after a message in the alternate screen.
3060 * This is set to TRUE by wait_return().
3062 if (!swapping_screen() || newline_on_exit
)
3065 /* Cursor may have been switched off without calling starttermcap()
3066 * when doing "vim -u vimrc" and vimrc contains ":q". */
3071 ml_close_all(TRUE
); /* remove all memfiles */
3078 #ifdef MACOS_CONVERT
3083 /* A core dump won't be created if the signal handler
3084 * doesn't return, so we can't call exit() */
3085 if (deadly_signal
!= 0)
3089 #ifdef FEAT_NETBEANS_INTG
3091 netbeans_send_disconnect();
3104 if (deadly_signal
!= 0)
3106 signal(deadly_signal
, SIG_DFL
);
3107 kill(getpid(), deadly_signal
); /* Die using the signal we caught */
3117 static int first
= TRUE
;
3119 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3120 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3122 * for "new" tty systems
3124 # ifdef HAVE_TERMIOS_H
3125 static struct termios told
;
3126 struct termios tnew
;
3128 static struct termio told
;
3135 # if defined(HAVE_TERMIOS_H)
3136 tcgetattr(read_cmd_fd
, &told
);
3138 ioctl(read_cmd_fd
, TCGETA
, &told
);
3143 if (tmode
== TMODE_RAW
)
3146 * ~ICRNL enables typing ^V^M
3148 tnew
.c_iflag
&= ~ICRNL
;
3149 tnew
.c_lflag
&= ~(ICANON
| ECHO
| ISIG
| ECHOE
3150 # if defined(IEXTEN) && !defined(__MINT__)
3151 | IEXTEN
/* IEXTEN enables typing ^V on SOLARIS */
3152 /* but it breaks function keys on MINT */
3155 # ifdef ONLCR /* don't map NL -> CR NL, we do it ourselves */
3156 tnew
.c_oflag
&= ~ONLCR
;
3158 tnew
.c_cc
[VMIN
] = 1; /* return after 1 char */
3159 tnew
.c_cc
[VTIME
] = 0; /* don't wait */
3161 else if (tmode
== TMODE_SLEEP
)
3162 tnew
.c_lflag
&= ~(ECHO
);
3164 # if defined(HAVE_TERMIOS_H)
3168 /* A signal may cause tcsetattr() to fail (e.g., SIGCONT). Retry a
3170 while (tcsetattr(read_cmd_fd
, TCSANOW
, &tnew
) == -1
3171 && errno
== EINTR
&& n
> 0)
3175 ioctl(read_cmd_fd
, TCSETA
, &tnew
);
3181 * for "old" tty systems
3184 # define TIOCSETN TIOCSETP /* for hpux 9.0 */
3186 static struct sgttyb ttybold
;
3187 struct sgttyb ttybnew
;
3192 ioctl(read_cmd_fd
, TIOCGETP
, &ttybold
);
3196 if (tmode
== TMODE_RAW
)
3198 ttybnew
.sg_flags
&= ~(CRMOD
| ECHO
);
3199 ttybnew
.sg_flags
|= RAW
;
3201 else if (tmode
== TMODE_SLEEP
)
3202 ttybnew
.sg_flags
&= ~(ECHO
);
3203 ioctl(read_cmd_fd
, TIOCSETN
, &ttybnew
);
3209 * Try to get the code for "t_kb" from the stty setting
3211 * Even if termcap claims a backspace key, the user's setting *should*
3212 * prevail. stty knows more about reality than termcap does, and if
3213 * somebody's usual erase key is DEL (which, for most BSD users, it will
3214 * be), they're going to get really annoyed if their erase key starts
3215 * doing forward deletes for no reason. (Eric Fischer)
3223 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3224 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3225 /* for "new" tty systems */
3226 # ifdef HAVE_TERMIOS_H
3227 struct termios keys
;
3232 # if defined(HAVE_TERMIOS_H)
3233 if (tcgetattr(read_cmd_fd
, &keys
) != -1)
3235 if (ioctl(read_cmd_fd
, TCGETA
, &keys
) != -1)
3238 buf
[0] = keys
.c_cc
[VERASE
];
3239 intr_char
= keys
.c_cc
[VINTR
];
3241 /* for "old" tty systems */
3244 if (ioctl(read_cmd_fd
, TIOCGETP
, &keys
) != -1)
3246 buf
[0] = keys
.sg_erase
;
3247 intr_char
= keys
.sg_kill
;
3250 add_termcode((char_u
*)"kb", buf
, FALSE
);
3253 * If <BS> and <DEL> are now the same, redefine <DEL>.
3255 p
= find_termcode((char_u
*)"kD");
3256 if (p
!= NULL
&& p
[0] == buf
[0] && p
[1] == buf
[1])
3260 } /* to keep cindent happy */
3266 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
3268 * Set mouse clicks on or off.
3274 static int ison
= FALSE
;
3275 int xterm_mouse_vers
;
3277 if (on
== ison
) /* return quickly if nothing to do */
3280 xterm_mouse_vers
= use_xterm_mouse();
3281 if (xterm_mouse_vers
> 0)
3283 if (on
) /* enable mouse events, use mouse tracking if available */
3284 out_str_nf((char_u
*)
3285 (xterm_mouse_vers
> 1
3286 ? IF_EB("\033[?1002h", ESC_STR
"[?1002h")
3287 : IF_EB("\033[?1000h", ESC_STR
"[?1000h")));
3288 else /* disable mouse events, could probably always send the same */
3289 out_str_nf((char_u
*)
3290 (xterm_mouse_vers
> 1
3291 ? IF_EB("\033[?1002l", ESC_STR
"[?1002l")
3292 : IF_EB("\033[?1000l", ESC_STR
"[?1000l")));
3296 # ifdef FEAT_MOUSE_DEC
3297 else if (ttym_flags
== TTYM_DEC
)
3299 if (on
) /* enable mouse events */
3300 out_str_nf((char_u
*)"\033[1;2'z\033[1;3'{");
3301 else /* disable mouse events */
3302 out_str_nf((char_u
*)"\033['z");
3307 # ifdef FEAT_MOUSE_GPM
3323 # ifdef FEAT_SYSMOUSE
3328 if (sysmouse_open() == OK
)
3339 # ifdef FEAT_MOUSE_JSB
3344 /* D - Enable Mouse up/down messages
3345 * L - Enable Left Button Reporting
3346 * M - Enable Middle Button Reporting
3347 * R - Enable Right Button Reporting
3348 * K - Enable SHIFT and CTRL key Reporting
3349 * + - Enable Advanced messaging of mouse moves and up/down messages
3351 * # - Numeric value of mouse pointer required
3352 * 0 = Multiview 2000 cursor, used as standard
3354 * 2 = Windows I Beam
3355 * 3 = Windows Hour Glass
3356 * 4 = Windows Cross Hair
3357 * 5 = Windows UP Arrow
3359 #ifdef JSBTERM_MOUSE_NONADVANCED /* Disables full feedback of pointer movements */
3360 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK1Q\033\\",
3361 ESC_STR
"[0~ZwLMRK1Q" ESC_STR
"\\"));
3363 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK+1Q\033\\",
3364 ESC_STR
"[0~ZwLMRK+1Q" ESC_STR
"\\"));
3370 out_str_nf((char_u
*)IF_EB("\033[0~ZwQ\033\\",
3371 ESC_STR
"[0~ZwQ" ESC_STR
"\\"));
3376 # ifdef FEAT_MOUSE_PTERM
3379 /* 1 = button press, 6 = release, 7 = drag, 1h...9l = right button */
3381 out_str_nf("\033[>1h\033[>6h\033[>7h\033[>1h\033[>9l");
3383 out_str_nf("\033[>1l\033[>6l\033[>7l\033[>1l\033[>9h");
3390 * Set the mouse termcode, depending on the 'term' and 'ttymouse' options.
3393 check_mouse_termcode()
3395 # ifdef FEAT_MOUSE_XTERM
3396 if (use_xterm_mouse()
3402 set_mouse_termcode(KS_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3403 ? IF_EB("\233M", CSI_STR
"M")
3404 : IF_EB("\033[M", ESC_STR
"[M")));
3405 if (*p_mouse
!= NUL
)
3407 /* force mouse off and maybe on to send possibly new mouse
3408 * activation sequence to the xterm, with(out) drag tracing. */
3409 mch_setmouse(FALSE
);
3414 del_mouse_termcode(KS_MOUSE
);
3417 # ifdef FEAT_MOUSE_GPM
3418 if (!use_xterm_mouse()
3423 set_mouse_termcode(KS_MOUSE
, (char_u
*)IF_EB("\033MG", ESC_STR
"MG"));
3426 # ifdef FEAT_SYSMOUSE
3427 if (!use_xterm_mouse()
3432 set_mouse_termcode(KS_MOUSE
, (char_u
*)IF_EB("\033MS", ESC_STR
"MS"));
3435 # ifdef FEAT_MOUSE_JSB
3436 /* conflicts with xterm mouse: "\033[" and "\033[M" ??? */
3437 if (!use_xterm_mouse()
3442 set_mouse_termcode(KS_JSBTERM_MOUSE
,
3443 (char_u
*)IF_EB("\033[0~zw", ESC_STR
"[0~zw"));
3445 del_mouse_termcode(KS_JSBTERM_MOUSE
);
3448 # ifdef FEAT_MOUSE_NET
3449 /* There is no conflict, but one may type "ESC }" from Insert mode. Don't
3450 * define it in the GUI or when using an xterm. */
3451 if (!use_xterm_mouse()
3456 set_mouse_termcode(KS_NETTERM_MOUSE
,
3457 (char_u
*)IF_EB("\033}", ESC_STR
"}"));
3459 del_mouse_termcode(KS_NETTERM_MOUSE
);
3462 # ifdef FEAT_MOUSE_DEC
3463 /* conflicts with xterm mouse: "\033[" and "\033[M" */
3464 if (!use_xterm_mouse()
3469 set_mouse_termcode(KS_DEC_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3470 ? IF_EB("\233", CSI_STR
) : IF_EB("\033[", ESC_STR
"[")));
3472 del_mouse_termcode(KS_DEC_MOUSE
);
3474 # ifdef FEAT_MOUSE_PTERM
3475 /* same as the dec mouse */
3476 if (!use_xterm_mouse()
3481 set_mouse_termcode(KS_PTERM_MOUSE
,
3482 (char_u
*) IF_EB("\033[", ESC_STR
"["));
3484 del_mouse_termcode(KS_PTERM_MOUSE
);
3490 * set screen mode, always fails.
3496 EMSG(_(e_screenmode
));
3503 * Try to get the current window size:
3504 * 1. with an ioctl(), most accurate method
3505 * 2. from the environment variables LINES and COLUMNS
3506 * 3. from the termcap
3507 * 4. keep using the old values
3508 * Return OK when size could be determined, FAIL otherwise.
3518 * For OS/2 use _scrsize().
3531 * 1. try using an ioctl. It is the most accurate method.
3533 * Try using TIOCGWINSZ first, some systems that have it also define
3534 * TIOCGSIZE but don't have a struct ttysize.
3541 /* When stdout is not a tty, use stdin for the ioctl(). */
3542 if (!isatty(fd
) && isatty(read_cmd_fd
))
3544 if (ioctl(fd
, TIOCGWINSZ
, &ws
) == 0)
3546 columns
= ws
.ws_col
;
3550 # else /* TIOCGWINSZ */
3556 /* When stdout is not a tty, use stdin for the ioctl(). */
3557 if (!isatty(fd
) && isatty(read_cmd_fd
))
3559 if (ioctl(fd
, TIOCGSIZE
, &ts
) == 0)
3561 columns
= ts
.ts_cols
;
3565 # endif /* TIOCGSIZE */
3566 # endif /* TIOCGWINSZ */
3569 * 2. get size from environment
3570 * When being POSIX compliant ('|' flag in 'cpoptions') this overrules
3571 * the ioctl() values!
3573 if (columns
== 0 || rows
== 0 || vim_strchr(p_cpo
, CPO_TSIZE
) != NULL
)
3575 if ((p
= (char_u
*)getenv("LINES")))
3576 rows
= atoi((char *)p
);
3577 if ((p
= (char_u
*)getenv("COLUMNS")))
3578 columns
= atoi((char *)p
);
3583 * 3. try reading "co" and "li" entries from termcap
3585 if (columns
== 0 || rows
== 0)
3586 getlinecol(&columns
, &rows
);
3590 * 4. If everything fails, use the old values
3592 if (columns
<= 0 || rows
<= 0)
3601 * Try to set the window size to Rows and Columns.
3609 * NOTE: if you get an error here that term_set_winsize() is
3610 * undefined, check the output of configure. It could probably not
3611 * find a ncurses, termcap or termlib library.
3613 term_set_winsize((int)Rows
, (int)Columns
);
3615 screen_start(); /* don't know where cursor is now */
3622 * Rows and/or Columns has changed.
3627 /* Nothing to do. */
3631 static void append_ga_line
__ARGS((garray_T
*gap
));
3634 * Append the text in "gap" below the cursor line and clear "gap".
3640 /* Remove trailing CR. */
3643 && ((char_u
*)gap
->ga_data
)[gap
->ga_len
- 1] == CAR
)
3645 ga_append(gap
, NUL
);
3646 ml_append(curwin
->w_cursor
.lnum
++, gap
->ga_data
, 0, FALSE
);
3652 mch_call_shell(cmd
, options
)
3654 int options
; /* SHELL_*, see vim.h */
3660 int tmode
= cur_tmode
;
3661 #ifdef USE_SYSTEM /* use system() to start the shell: simple but slow */
3664 char_u
*newcmd
; /* only needed for unix */
3667 * Set the preferred shell in the EMXSHELL environment variable (but
3668 * only if it is different from what is already in the environment).
3669 * Emx then takes care of whether to use "/c" or "-c" in an
3670 * intelligent way. Simply pass the whole thing to emx's system() call.
3671 * Emx also starts an interactive shell if system() is passed an empty
3676 if (((old
= (char_u
*)getenv("EMXSHELL")) == NULL
) || STRCMP(old
, p_sh
))
3678 /* should check HAVE_SETENV, but I know we don't have it. */
3679 p
= alloc(10 + strlen(p_sh
));
3682 sprintf((char *)p
, "EMXSHELL=%s", p_sh
);
3683 putenv((char *)p
); /* don't free the pointer! */
3690 if (options
& SHELL_COOKED
)
3691 settmode(TMODE_COOK
); /* set to normal mode */
3695 x
= system(""); /* this starts an interactive shell in emx */
3697 x
= system((char *)cmd
);
3698 /* system() returns -1 when error occurs in starting shell */
3699 if (x
== -1 && !emsg_silent
)
3701 MSG_PUTS(_("\nCannot execute shell "));
3705 # else /* not __EMX__ */
3707 x
= system((char *)p_sh
);
3711 if (ofn
= strchr((char *)cmd
, '>'))
3713 if (ifn
= strchr((char *)cmd
, '<'))
3718 p
= strchr(ifn
,' '); /* chop off any trailing spaces */
3723 x
= vms_sys((char *)cmd
, ofn
, ifn
);
3725 x
= system((char *)cmd
);
3727 newcmd
= lalloc(STRLEN(p_sh
)
3728 + (extra_shell_arg
== NULL
? 0 : STRLEN(extra_shell_arg
))
3729 + STRLEN(p_shcf
) + STRLEN(cmd
) + 4, TRUE
);
3734 sprintf((char *)newcmd
, "%s %s %s %s", p_sh
,
3735 extra_shell_arg
== NULL
? "" : (char *)extra_shell_arg
,
3738 x
= system((char *)newcmd
);
3744 x
= vms_sys_status(x
);
3749 MSG_PUTS(_("\nCannot execute shell sh\n"));
3750 # endif /* __EMX__ */
3751 else if (x
&& !(options
& SHELL_SILENT
))
3753 MSG_PUTS(_("\nshell returned "));
3754 msg_outnum((long)x
);
3758 if (tmode
== TMODE_RAW
)
3759 settmode(TMODE_RAW
); /* set to raw mode */
3765 #else /* USE_SYSTEM */ /* don't use system(), use fork()/exec() */
3767 # define EXEC_FAILED 122 /* Exit code when shell didn't execute. Don't use
3768 127, some shells use that already */
3770 char_u
*newcmd
= NULL
;
3774 # ifdef HAVE_UNION_WAIT
3785 int pty_master_fd
= -1; /* for pty's */
3787 int pty_slave_fd
= -1;
3790 int fd_toshell
[2]; /* for pipes */
3791 int fd_fromshell
[2];
3792 int pipe_error
= FALSE
;
3796 static char envbuf_Rows
[20];
3797 static char envbuf_Columns
[20];
3799 int did_settmode
= FALSE
; /* settmode(TMODE_RAW) called */
3802 if (options
& SHELL_COOKED
)
3803 settmode(TMODE_COOK
); /* set to normal mode */
3805 newcmd
= vim_strsave(p_sh
);
3806 if (newcmd
== NULL
) /* out of memory */
3810 * Do this loop twice:
3811 * 1: find number of arguments
3812 * 2: separate them and build argv[]
3814 for (i
= 0; i
< 2; ++i
)
3822 argv
[argc
] = (char *)p
;
3824 while (*p
&& (inquote
|| (*p
!= ' ' && *p
!= TAB
)))
3838 argv
= (char **)alloc((unsigned)((argc
+ 4) * sizeof(char *)));
3839 if (argv
== NULL
) /* out of memory */
3845 if (extra_shell_arg
!= NULL
)
3846 argv
[argc
++] = (char *)extra_shell_arg
;
3847 argv
[argc
++] = (char *)p_shcf
;
3848 argv
[argc
++] = (char *)cmd
;
3853 * For the GUI, when writing the output into the buffer and when reading
3854 * input from the buffer: Try using a pseudo-tty to get the stdin/stdout
3855 * of the executed command into the Vim window. Or use a pipe.
3857 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3859 || (gui
.in_use
&& show_shell_mess
)
3865 * Try to open a master pty.
3866 * If this works, open the slave pty.
3867 * If the slave can't be opened, close the master pty.
3869 if (p_guipty
&& !(options
& (SHELL_READ
|SHELL_WRITE
)))
3871 pty_master_fd
= OpenPTY(&tty_name
); /* open pty */
3872 if (pty_master_fd
>= 0 && ((pty_slave_fd
=
3873 open(tty_name
, O_RDWR
| O_EXTRA
, 0)) < 0))
3875 close(pty_master_fd
);
3880 * If not opening a pty or it didn't work, try using pipes.
3882 if (pty_master_fd
< 0)
3885 pipe_error
= (pipe(fd_toshell
) < 0);
3886 if (!pipe_error
) /* pipe create OK */
3888 pipe_error
= (pipe(fd_fromshell
) < 0);
3889 if (pipe_error
) /* pipe create failed */
3891 close(fd_toshell
[0]);
3892 close(fd_toshell
[1]);
3897 MSG_PUTS(_("\nCannot create pipes\n"));
3903 if (!pipe_error
) /* pty or pipe opened or not used */
3906 beos_cleanup_read_thread();
3909 if ((pid
= fork()) == -1) /* maybe we should use vfork() */
3911 MSG_PUTS(_("\nCannot fork\n"));
3912 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3914 || (gui
.in_use
&& show_shell_mess
)
3919 if (pty_master_fd
>= 0) /* close the pseudo tty */
3921 close(pty_master_fd
);
3922 close(pty_slave_fd
);
3924 else /* close the pipes */
3927 close(fd_toshell
[0]);
3928 close(fd_toshell
[1]);
3929 close(fd_fromshell
[0]);
3930 close(fd_fromshell
[1]);
3934 else if (pid
== 0) /* child */
3936 reset_signals(); /* handle signals normally */
3938 if (!show_shell_mess
|| (options
& SHELL_EXPAND
))
3943 * Don't want to show any message from the shell. Can't just
3944 * close stdout and stderr though, because some systems will
3945 * break if you try to write to them after that, so we must
3946 * use dup() to replace them with something else -- webb
3947 * Connect stdin to /dev/null too, so ":n `cat`" doesn't hang,
3948 * waiting for input.
3950 fd
= open("/dev/null", O_RDWR
| O_EXTRA
, 0);
3956 * If any of these open()'s and dup()'s fail, we just continue
3957 * anyway. It's not fatal, and on most systems it will make
3958 * no difference at all. On a few it will cause the execvp()
3959 * to exit with a non-zero status even when the completion
3960 * could be done, which is nothing too serious. If the open()
3961 * or dup() failed we'd just do the same thing ourselves
3966 ignored
= dup(fd
); /* To replace stdin (fd 0) */
3967 ignored
= dup(fd
); /* To replace stdout (fd 1) */
3968 ignored
= dup(fd
); /* To replace stderr (fd 2) */
3970 /* Don't need this now that we've duplicated it */
3974 else if ((options
& (SHELL_READ
|SHELL_WRITE
))
3982 /* Create our own process group, so that the child and all its
3983 * children can be kill()ed. Don't do this when using pipes,
3984 * because stdin is not a tty, we would lose /dev/tty. */
3988 # if defined(SIGHUP)
3989 /* When doing "!xterm&" and 'shell' is bash: the shell
3990 * will exit and send SIGHUP to all processes in its
3991 * group, killing the just started process. Ignore SIGHUP
3992 * to avoid that. (suggested by Simon Schubert)
3994 signal(SIGHUP
, SIG_IGN
);
3999 if (pty_slave_fd
>= 0)
4001 /* push stream discipline modules */
4002 if (options
& SHELL_COOKED
)
4003 SetupSlavePTY(pty_slave_fd
);
4004 # if defined(TIOCSCTTY) && !defined(FEAT_GUI_MACVIM)
4005 /* Try to become controlling tty (probably doesn't work,
4006 * unless run by root) */
4007 ioctl(pty_slave_fd
, TIOCSCTTY
, (char *)NULL
);
4011 /* Simulate to have a dumb terminal (for now) */
4013 setenv("TERM", "dumb", 1);
4014 sprintf((char *)envbuf
, "%ld", Rows
);
4015 setenv("ROWS", (char *)envbuf
, 1);
4016 sprintf((char *)envbuf
, "%ld", Rows
);
4017 setenv("LINES", (char *)envbuf
, 1);
4018 sprintf((char *)envbuf
, "%ld", Columns
);
4019 setenv("COLUMNS", (char *)envbuf
, 1);
4022 * Putenv does not copy the string, it has to remain valid.
4023 * Use a static array to avoid losing allocated memory.
4025 putenv("TERM=dumb");
4026 sprintf(envbuf_Rows
, "ROWS=%ld", Rows
);
4027 putenv(envbuf_Rows
);
4028 sprintf(envbuf_Rows
, "LINES=%ld", Rows
);
4029 putenv(envbuf_Rows
);
4030 sprintf(envbuf_Columns
, "COLUMNS=%ld", Columns
);
4031 putenv(envbuf_Columns
);
4035 * stderr is only redirected when using the GUI, so that a
4036 * program like gpg can still access the terminal to get a
4037 * passphrase using stderr.
4040 if (pty_master_fd
>= 0)
4042 close(pty_master_fd
); /* close master side of pty */
4044 /* set up stdin/stdout/stderr for the child */
4046 ignored
= dup(pty_slave_fd
);
4048 ignored
= dup(pty_slave_fd
);
4052 ignored
= dup(pty_slave_fd
);
4055 close(pty_slave_fd
); /* has been dupped, close it now */
4060 /* set up stdin for the child */
4061 close(fd_toshell
[1]);
4063 ignored
= dup(fd_toshell
[0]);
4064 close(fd_toshell
[0]);
4066 /* set up stdout for the child */
4067 close(fd_fromshell
[0]);
4069 ignored
= dup(fd_fromshell
[1]);
4070 close(fd_fromshell
[1]);
4075 /* set up stderr for the child */
4084 * There is no type cast for the argv, because the type may be
4085 * different on different machines. This may cause a warning
4086 * message with strict compilers, don't worry about it.
4087 * Call _exit() instead of exit() to avoid closing the connection
4088 * to the X server (esp. with GTK, which uses atexit()).
4090 execvp(argv
[0], argv
);
4091 _exit(EXEC_FAILED
); /* exec failed, return failure code */
4096 * While child is running, ignore terminating signals.
4097 * Do catch CTRL-C, so that "got_int" is set.
4099 catch_signals(SIG_IGN
, SIG_ERR
);
4103 * For the GUI we redirect stdin, stdout and stderr to our window.
4104 * This is also used to pipe stdin/stdout to/from the external
4107 if ((options
& (SHELL_READ
|SHELL_WRITE
))
4109 || (gui
.in_use
&& show_shell_mess
)
4113 # define BUFLEN 100 /* length for buffer, pseudo tty limit is 128 */
4114 char_u buffer
[BUFLEN
+ 1];
4116 int buffer_off
= 0; /* valid bytes in buffer[] */
4118 char_u ta_buf
[BUFLEN
+ 1]; /* TypeAHead */
4119 int ta_len
= 0; /* valid bytes in ta_buf[] */
4128 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4129 struct timeval start_tv
;
4133 if (pty_master_fd
>= 0)
4135 close(pty_slave_fd
); /* close slave side of pty */
4136 fromshell_fd
= pty_master_fd
;
4137 toshell_fd
= dup(pty_master_fd
);
4142 close(fd_toshell
[0]);
4143 close(fd_fromshell
[1]);
4144 toshell_fd
= fd_toshell
[1];
4145 fromshell_fd
= fd_fromshell
[0];
4149 * Write to the child if there are typed characters.
4150 * Read from the child if there are characters available.
4151 * Repeat the reading a few times if more characters are
4152 * available. Need to check for typed keys now and then, but
4153 * not too often (delays when no chars are available).
4154 * This loop is quit if no characters can be read from the pty
4155 * (WaitForChar detected special condition), or there are no
4156 * characters available and the child has exited.
4157 * Only check if the child has exited when there is no more
4158 * output. The child may exit before all the output has
4161 * Currently this busy loops!
4162 * This can probably dead-lock when the write blocks!
4164 p_more_save
= p_more
;
4167 State
= EXTERNCMD
; /* don't redraw at window resize */
4169 if ((options
& SHELL_WRITE
) && toshell_fd
>= 0)
4171 /* Fork a process that will write the lines to the
4172 * external program. */
4173 if ((wpid
= fork()) == -1)
4175 MSG_PUTS(_("\nCannot fork\n"));
4179 linenr_T lnum
= curbuf
->b_op_start
.lnum
;
4181 char_u
*lp
= ml_get(lnum
);
4186 close(fromshell_fd
);
4189 l
= STRLEN(lp
+ written
);
4192 else if (lp
[written
] == NL
)
4193 /* NL -> NUL translation */
4194 len
= write(toshell_fd
, "", (size_t)1);
4197 s
= vim_strchr(lp
+ written
, NL
);
4198 len
= write(toshell_fd
, (char *)lp
+ written
,
4200 : (size_t)(s
- (lp
+ written
)));
4204 /* Finished a line, add a NL, unless this line
4205 * should not have one. */
4206 if (lnum
!= curbuf
->b_op_end
.lnum
4208 || (lnum
!= write_no_eol_lnum
4210 curbuf
->b_ml
.ml_line_count
4211 || curbuf
->b_p_eol
)))
4212 ignored
= write(toshell_fd
, "\n",
4215 if (lnum
> curbuf
->b_op_end
.lnum
)
4217 /* finished all the lines, close pipe */
4237 if (options
& SHELL_READ
)
4238 ga_init2(&ga
, 1, BUFLEN
);
4241 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4242 gettimeofday(&start_tv
, NULL
);
4247 * Check if keys have been typed, write them to the child
4249 * Don't do this if we are expanding wild cards (would eat
4251 * Don't do this when filtering and terminal is in cooked
4252 * mode, the shell command will handle the I/O. Avoids
4253 * that a typed password is echoed for ssh or gpg command.
4254 * Don't get characters when the child has already
4255 * finished (wait_pid == 0).
4256 * Don't read characters unless we didn't get output for a
4257 * while (noread_cnt > 4), avoids that ":r !ls" eats
4261 if (!(options
& SHELL_EXPAND
)
4263 (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
))
4264 != (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
)
4270 && (ta_len
> 0 || noread_cnt
> 4))
4274 /* Get extra characters when we don't have any.
4275 * Reset the counter and timer. */
4277 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4278 gettimeofday(&start_tv
, NULL
);
4280 len
= ui_inchar(ta_buf
, BUFLEN
, 10L, 0);
4282 if (ta_len
> 0 || len
> 0)
4286 * Check for CTRL-C: send interrupt signal to child.
4287 * Check for CTRL-D: EOF, close pipe to child.
4289 if (len
== 1 && (pty_master_fd
< 0 || cmd
!= NULL
))
4293 * Send SIGINT to the child's group or all
4294 * processes in our group.
4296 if (ta_buf
[ta_len
] == Ctrl_C
4297 || ta_buf
[ta_len
] == intr_char
)
4308 if (pty_master_fd
< 0 && toshell_fd
>= 0
4309 && ta_buf
[ta_len
] == Ctrl_D
)
4316 /* replace K_BS by <BS> and K_DEL by <DEL> */
4317 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4319 if (ta_buf
[i
] == CSI
&& len
- i
> 2)
4321 c
= TERMCAP2KEY(ta_buf
[i
+ 1], ta_buf
[i
+ 2]);
4322 if (c
== K_DEL
|| c
== K_KDEL
|| c
== K_BS
)
4324 mch_memmove(ta_buf
+ i
+ 1, ta_buf
+ i
+ 3,
4325 (size_t)(len
- i
- 2));
4326 if (c
== K_DEL
|| c
== K_KDEL
)
4333 else if (ta_buf
[i
] == '\r')
4337 i
+= (*mb_ptr2len_len
)(ta_buf
+ i
,
4338 ta_len
+ len
- i
) - 1;
4343 * For pipes: echo the typed characters.
4344 * For a pty this does not seem to work.
4346 if (pty_master_fd
< 0)
4348 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4350 if (ta_buf
[i
] == '\n' || ta_buf
[i
] == '\b')
4351 msg_putchar(ta_buf
[i
]);
4355 int l
= (*mb_ptr2len
)(ta_buf
+ i
);
4357 msg_outtrans_len(ta_buf
+ i
, l
);
4362 msg_outtrans_len(ta_buf
+ i
, 1);
4364 windgoto(msg_row
, msg_col
);
4371 * Write the characters to the child, unless EOF has
4372 * been typed for pipes. Write one character at a
4373 * time, to avoid losing too much typeahead.
4374 * When writing buffer lines, drop the typed
4375 * characters (only check for CTRL-C).
4377 if (options
& SHELL_WRITE
)
4379 else if (toshell_fd
>= 0)
4381 len
= write(toshell_fd
, (char *)ta_buf
, (size_t)1);
4385 mch_memmove(ta_buf
, ta_buf
+ len
, ta_len
);
4393 /* CTRL-C sends a signal to the child, we ignore it
4406 * Check if the child has any characters to be printed.
4407 * Read them and write them to our window. Repeat this as
4408 * long as there is something to do, avoid the 10ms wait
4409 * for mch_inchar(), or sending typeahead characters to
4410 * the external process.
4411 * TODO: This should handle escape sequences, compatible
4412 * to some terminal (vt52?).
4415 while (RealWaitForChar(fromshell_fd
, 10L, NULL
))
4417 len
= read(fromshell_fd
, (char *)buffer
4419 + buffer_off
, (size_t)(BUFLEN
- buffer_off
)
4424 if (len
<= 0) /* end of file or error */
4428 if (options
& SHELL_READ
)
4430 /* Do NUL -> NL translation, append NL separated
4431 * lines to the current buffer. */
4432 for (i
= 0; i
< len
; ++i
)
4434 if (buffer
[i
] == NL
)
4435 append_ga_line(&ga
);
4436 else if (buffer
[i
] == NUL
)
4439 ga_append(&ga
, buffer
[i
]);
4450 /* Check if the last character in buffer[] is
4451 * incomplete, keep these bytes for the next
4453 for (p
= buffer
; p
< buffer
+ len
; p
+= l
)
4457 l
= 1; /* NUL byte? */
4458 else if (MB_BYTE2LEN(*p
) != l
)
4461 if (p
== buffer
) /* no complete character */
4463 /* avoid getting stuck at an illegal byte */
4475 if (p
< buffer
+ len
)
4478 buffer_off
= (buffer
+ len
) - p
;
4479 mch_memmove(buffer
, p
, buffer_off
);
4484 # endif /* FEAT_MBYTE */
4491 windgoto(msg_row
, msg_col
);
4494 # if FEAT_GUI_MACVIM
4501 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4503 struct timeval now_tv
;
4506 /* Avoid that we keep looping here without
4507 * checking for a CTRL-C for a long time. Don't
4508 * break out too often to avoid losing typeahead. */
4509 gettimeofday(&now_tv
, NULL
);
4510 msec
= (now_tv
.tv_sec
- start_tv
.tv_sec
) * 1000L
4511 + (now_tv
.tv_usec
- start_tv
.tv_usec
) / 1000L;
4521 /* If we already detected the child has finished break the
4523 if (wait_pid
== pid
)
4527 * Check if the child still exists, before checking for
4528 * typed characters (otherwise we would lose typeahead).
4531 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*) 0);
4533 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4535 if ((wait_pid
== (pid_t
)-1 && errno
== ECHILD
)
4536 || (wait_pid
== pid
&& WIFEXITED(status
)))
4538 /* Don't break the loop yet, try reading more
4539 * characters from "fromshell_fd" first. When using
4540 * pipes there might still be something to read and
4541 * then we'll break the loop at the "break" above. */
4548 p_more
= p_more_save
;
4549 if (options
& SHELL_READ
)
4553 append_ga_line(&ga
);
4554 /* remember that the NL was missing */
4555 write_no_eol_lnum
= curwin
->w_cursor
.lnum
;
4558 write_no_eol_lnum
= 0;
4563 * Give all typeahead that wasn't used back to ui_inchar().
4566 ui_inchar_undo(ta_buf
, ta_len
);
4568 if (toshell_fd
>= 0)
4570 close(fromshell_fd
);
4574 * Wait until our child has exited.
4575 * Ignore wait() returning pids of other children and returning
4576 * because of some signal like SIGWINCH.
4577 * Don't wait if wait_pid was already set above, indicating the
4578 * child already exited.
4580 while (wait_pid
!= pid
)
4582 # ifdef _THREAD_SAFE
4583 /* Ugly hack: when compiled with Python threads are probably
4584 * used, in which case wait() sometimes hangs for no obvious
4585 * reason. Use waitpid() instead and loop (like the GUI). */
4587 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*)0);
4589 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4593 /* Wait for 1/100 sec before trying again. */
4594 mch_delay(10L, TRUE
);
4598 wait_pid
= wait(&status
);
4608 /* Make sure the child that writes to the external program is
4611 kill(wpid
, SIGKILL
);
4614 * Set to raw mode right now, otherwise a CTRL-C after
4615 * catch_signals() will kill Vim.
4617 if (tmode
== TMODE_RAW
)
4618 settmode(TMODE_RAW
);
4619 did_settmode
= TRUE
;
4622 if (WIFEXITED(status
))
4624 /* LINTED avoid "bitwise operation on signed value" */
4625 retval
= WEXITSTATUS(status
);
4626 if (retval
&& !emsg_silent
)
4628 if (retval
== EXEC_FAILED
)
4630 MSG_PUTS(_("\nCannot execute shell "));
4634 else if (!(options
& SHELL_SILENT
))
4636 MSG_PUTS(_("\nshell returned "));
4637 msg_outnum((long)retval
);
4643 MSG_PUTS(_("\nCommand terminated\n"));
4650 if (tmode
== TMODE_RAW
)
4651 settmode(TMODE_RAW
); /* set to raw mode */
4659 #endif /* USE_SYSTEM */
4663 * Check for CTRL-C typed by reading all available characters.
4664 * In cooked mode we should get SIGINT, no need to check.
4669 if (curr_tmode
== TMODE_RAW
&& RealWaitForChar(read_cmd_fd
, 0L, NULL
))
4670 fill_input_buf(FALSE
);
4674 * Wait "msec" msec until a character is available from the keyboard or from
4675 * inbuf[]. msec == -1 will block forever.
4676 * When a GUI is being used, this will never get called -- webb
4682 #ifdef FEAT_MOUSE_GPM
4683 int gpm_process_wanted
;
4685 #ifdef FEAT_XCLIPBOARD
4690 if (input_available()) /* something in inbuf[] */
4693 #if defined(FEAT_MOUSE_DEC)
4694 /* May need to query the mouse position. */
4697 WantQueryMouse
= FALSE
;
4698 mch_write((char_u
*)IF_EB("\033[1'|", ESC_STR
"[1'|"), 5);
4703 * For FEAT_MOUSE_GPM and FEAT_XCLIPBOARD we loop here to process mouse
4704 * events. This is a bit complicated, because they might both be defined.
4706 #if defined(FEAT_MOUSE_GPM) || defined(FEAT_XCLIPBOARD)
4707 # ifdef FEAT_XCLIPBOARD
4709 if (do_xterm_trace())
4714 # ifdef FEAT_XCLIPBOARD
4717 msec
= XT_TRACE_DELAY
;
4718 if (rest
>= 0 && rest
< XT_TRACE_DELAY
)
4724 # ifdef FEAT_MOUSE_GPM
4725 gpm_process_wanted
= 0;
4726 avail
= RealWaitForChar(read_cmd_fd
, msec
, &gpm_process_wanted
);
4728 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4732 if (input_available())
4734 # ifdef FEAT_XCLIPBOARD
4735 if (rest
== 0 || !do_xterm_trace())
4741 # ifdef FEAT_MOUSE_GPM
4742 || (gpm_process_wanted
&& mch_gpm_process() == 0)
4744 # ifdef FEAT_XCLIPBOARD
4745 || (!avail
&& rest
!= 0)
4750 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4756 * Wait "msec" msec until a character is available from file descriptor "fd".
4757 * Time == -1 will block forever.
4758 * When a GUI is being used, this will not be used for input -- webb
4759 * Returns also, when a request from Sniff is waiting -- toni.
4760 * Or when a Linux GPM mouse event is waiting.
4762 #if defined(__BEOS__)
4767 RealWaitForChar(fd
, msec
, check_for_gpm
)
4770 int *check_for_gpm UNUSED
;
4773 #if defined(FEAT_XCLIPBOARD) || defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4774 static int busy
= FALSE
;
4776 /* May retry getting characters after an event was handled. */
4779 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4780 /* Remember at what time we started, so that we know how much longer we
4781 * should wait after being interrupted. */
4782 # define USE_START_TV
4783 struct timeval start_tv
;
4786 # ifdef FEAT_XCLIPBOARD
4787 xterm_Shell
!= (Widget
)0
4788 # if defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4794 # ifdef FEAT_MZSCHEME
4798 # ifdef FEAT_MZSCHEME
4799 (mzthreads_allowed() && p_mzq
> 0)
4802 gettimeofday(&start_tv
, NULL
);
4805 /* Handle being called recursively. This may happen for the session
4806 * manager stuff, it may save the file, which does a breakcheck. */
4816 int finished
= TRUE
; /* default is to 'loop' just once */
4817 # ifdef FEAT_MZSCHEME
4818 int mzquantum_used
= FALSE
;
4822 struct pollfd fds
[5];
4824 # ifdef FEAT_XCLIPBOARD
4827 # ifdef FEAT_MOUSE_GPM
4833 int towait
= (int)msec
;
4835 # ifdef FEAT_MZSCHEME
4836 mzvim_check_threads();
4837 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4839 towait
= (int)p_mzq
; /* don't wait longer than 'mzquantum' */
4840 mzquantum_used
= TRUE
;
4844 fds
[0].events
= POLLIN
;
4848 # define SNIFF_IDX 1
4849 if (want_sniff_request
)
4851 fds
[SNIFF_IDX
].fd
= fd_from_sniff
;
4852 fds
[SNIFF_IDX
].events
= POLLIN
;
4856 # ifdef FEAT_XCLIPBOARD
4857 if (xterm_Shell
!= (Widget
)0)
4860 fds
[nfd
].fd
= ConnectionNumber(xterm_dpy
);
4861 fds
[nfd
].events
= POLLIN
;
4865 # ifdef FEAT_MOUSE_GPM
4866 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4869 fds
[nfd
].fd
= gpm_fd
;
4870 fds
[nfd
].events
= POLLIN
;
4875 if (xsmp_icefd
!= -1)
4878 fds
[nfd
].fd
= xsmp_icefd
;
4879 fds
[nfd
].events
= POLLIN
;
4884 ret
= poll(fds
, nfd
, towait
);
4885 # ifdef FEAT_MZSCHEME
4886 if (ret
== 0 && mzquantum_used
)
4887 /* MzThreads scheduling is required and timeout occurred */
4893 sniff_disconnect(1);
4894 else if (want_sniff_request
)
4896 if (fds
[SNIFF_IDX
].revents
& POLLHUP
)
4897 sniff_disconnect(1);
4898 if (fds
[SNIFF_IDX
].revents
& POLLIN
)
4899 sniff_request_waiting
= 1;
4902 # ifdef FEAT_XCLIPBOARD
4903 if (xterm_Shell
!= (Widget
)0 && (fds
[xterm_idx
].revents
& POLLIN
))
4905 xterm_update(); /* Maybe we should hand out clipboard */
4906 if (--ret
== 0 && !input_available())
4911 # ifdef FEAT_MOUSE_GPM
4912 if (gpm_idx
>= 0 && (fds
[gpm_idx
].revents
& POLLIN
))
4918 if (xsmp_idx
>= 0 && (fds
[xsmp_idx
].revents
& (POLLIN
| POLLHUP
)))
4920 if (fds
[xsmp_idx
].revents
& POLLIN
)
4923 xsmp_handle_requests();
4926 else if (fds
[xsmp_idx
].revents
& POLLHUP
)
4929 verb_msg((char_u
*)_("XSMP lost ICE connection"));
4933 finished
= FALSE
; /* Try again */
4938 #else /* HAVE_SELECT */
4941 struct timeval
*tvp
;
4946 # ifdef FEAT_MZSCHEME
4947 mzvim_check_threads();
4948 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4950 towait
= p_mzq
; /* don't wait longer than 'mzquantum' */
4951 mzquantum_used
= TRUE
;
4955 /* don't check for incoming chars if not in raw mode, because select()
4956 * always returns TRUE then (in some version of emx.dll) */
4957 if (curr_tmode
!= TMODE_RAW
)
4963 tv
.tv_sec
= towait
/ 1000;
4964 tv
.tv_usec
= (towait
% 1000) * (1000000/1000);
4971 * Select on ready for reading and exceptional condition (end of file).
4973 FD_ZERO(&rfds
); /* calls bzero() on a sun */
4976 # if !defined(__QNX__) && !defined(__CYGWIN32__)
4977 /* For QNX select() always returns 1 if this is set. Why? */
4983 if (want_sniff_request
)
4985 FD_SET(fd_from_sniff
, &rfds
);
4986 FD_SET(fd_from_sniff
, &efds
);
4987 if (maxfd
< fd_from_sniff
)
4988 maxfd
= fd_from_sniff
;
4991 # ifdef FEAT_XCLIPBOARD
4992 if (xterm_Shell
!= (Widget
)0)
4994 FD_SET(ConnectionNumber(xterm_dpy
), &rfds
);
4995 if (maxfd
< ConnectionNumber(xterm_dpy
))
4996 maxfd
= ConnectionNumber(xterm_dpy
);
4999 # ifdef FEAT_MOUSE_GPM
5000 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
5002 FD_SET(gpm_fd
, &rfds
);
5003 FD_SET(gpm_fd
, &efds
);
5009 if (xsmp_icefd
!= -1)
5011 FD_SET(xsmp_icefd
, &rfds
);
5012 FD_SET(xsmp_icefd
, &efds
);
5013 if (maxfd
< xsmp_icefd
)
5019 /* Old VMS as v6.2 and older have broken select(). It waits more than
5020 * required. Should not be used */
5023 ret
= select(maxfd
+ 1, &rfds
, NULL
, &efds
, tvp
);
5026 if (ret
== -1 && errno
== ENOTSUP
)
5033 # ifdef FEAT_MZSCHEME
5034 if (ret
== 0 && mzquantum_used
)
5035 /* loop if MzThreads must be scheduled and timeout occurred */
5041 sniff_disconnect(1);
5042 else if (ret
> 0 && want_sniff_request
)
5044 if (FD_ISSET(fd_from_sniff
, &efds
))
5045 sniff_disconnect(1);
5046 if (FD_ISSET(fd_from_sniff
, &rfds
))
5047 sniff_request_waiting
= 1;
5050 # ifdef FEAT_XCLIPBOARD
5051 if (ret
> 0 && xterm_Shell
!= (Widget
)0
5052 && FD_ISSET(ConnectionNumber(xterm_dpy
), &rfds
))
5054 xterm_update(); /* Maybe we should hand out clipboard */
5055 /* continue looping when we only got the X event and the input
5056 * buffer is empty */
5057 if (--ret
== 0 && !input_available())
5064 # ifdef FEAT_MOUSE_GPM
5065 if (ret
> 0 && gpm_flag
&& check_for_gpm
!= NULL
&& gpm_fd
>= 0)
5067 if (FD_ISSET(gpm_fd
, &efds
))
5069 else if (FD_ISSET(gpm_fd
, &rfds
))
5074 if (ret
> 0 && xsmp_icefd
!= -1)
5076 if (FD_ISSET(xsmp_icefd
, &efds
))
5079 verb_msg((char_u
*)_("XSMP lost ICE connection"));
5082 finished
= FALSE
; /* keep going if event was only one */
5084 else if (FD_ISSET(xsmp_icefd
, &rfds
))
5087 xsmp_handle_requests();
5090 finished
= FALSE
; /* keep going if event was only one */
5095 #endif /* HAVE_SELECT */
5098 if (finished
|| msec
== 0)
5101 /* We're going to loop around again, find out for how long */
5104 # ifdef USE_START_TV
5107 /* Compute remaining wait time. */
5108 gettimeofday(&mtv
, NULL
);
5109 msec
-= (mtv
.tv_sec
- start_tv
.tv_sec
) * 1000L
5110 + (mtv
.tv_usec
- start_tv
.tv_usec
) / 1000L;
5112 /* Guess we got interrupted halfway. */
5116 break; /* waited long enough */
5126 #ifndef NO_EXPANDPATH
5128 * Expand a path into all matching files and/or directories. Handles "*",
5129 * "?", "[a-z]", "**", etc.
5130 * "path" has backslashes before chars that are not to be expanded.
5131 * Returns the number of matches found.
5134 mch_expandpath(gap
, path
, flags
)
5137 int flags
; /* EW_* flags */
5139 return unix_expandpath(gap
, path
, 0, flags
, FALSE
);
5144 * mch_expand_wildcards() - this code does wild-card pattern matching using
5147 * return OK for success, FAIL for error (you may lose some memory) and put
5148 * an error message in *file.
5150 * num_pat is number of input patterns
5151 * pat is array of pointers to input patterns
5152 * num_file is pointer to number of matched file names
5153 * file is pointer to array of pointers to matched file names
5163 #define SHELL_SPECIAL (char_u *)"\t \"&'$;<>()\\|"
5166 mch_expand_wildcards(num_pat
, pat
, num_file
, file
, flags
)
5171 int flags
; /* EW_* flags */
5179 * This is the OS/2 implementation.
5181 # define EXPL_ALLOC_INC 16
5182 char_u
**expl_files
;
5183 size_t files_alloced
, files_free
;
5187 *num_file
= 0; /* default: no files found */
5188 files_alloced
= EXPL_ALLOC_INC
; /* how much space is allocated */
5189 files_free
= EXPL_ALLOC_INC
; /* how much space is not used */
5190 *file
= (char_u
**)alloc(sizeof(char_u
**) * files_alloced
);
5194 for (; num_pat
> 0; num_pat
--, pat
++)
5197 if (vim_strchr(*pat
, '$') || vim_strchr(*pat
, '~'))
5198 /* expand environment var or home dir */
5199 buf
= expand_env_save(*pat
);
5201 buf
= vim_strsave(*pat
);
5203 has_wildcard
= mch_has_exp_wildcard(buf
); /* (still) wildcards? */
5204 if (has_wildcard
) /* yes, so expand them */
5205 expl_files
= (char_u
**)_fnexplode(buf
);
5208 * return value of buf if no wildcards left,
5209 * OR if no match AND EW_NOTFOUND is set.
5211 if ((!has_wildcard
&& ((flags
& EW_NOTFOUND
) || mch_getperm(buf
) >= 0))
5212 || (expl_files
== NULL
&& (flags
& EW_NOTFOUND
)))
5213 { /* simply save the current contents of *buf */
5214 expl_files
= (char_u
**)alloc(sizeof(char_u
**) * 2);
5215 if (expl_files
!= NULL
)
5217 expl_files
[0] = vim_strsave(buf
);
5218 expl_files
[1] = NULL
;
5224 * Count number of names resulting from expansion,
5225 * At the same time add a backslash to the end of names that happen to
5226 * be directories, and replace slashes with backslashes.
5230 for (i
= 0; (p
= expl_files
[i
]) != NULL
; i
++)
5233 /* If we don't want dirs and this is one, skip it */
5234 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5237 /* Skip files that are not executable if we check for that. */
5238 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe(p
))
5241 if (--files_free
== 0)
5243 /* need more room in table of pointers */
5244 files_alloced
+= EXPL_ALLOC_INC
;
5245 *file
= (char_u
**)vim_realloc(*file
,
5246 sizeof(char_u
**) * files_alloced
);
5249 EMSG(_(e_outofmem
));
5253 files_free
= EXPL_ALLOC_INC
;
5258 /* For a directory we add a '/', unless it's already
5261 if (((*file
)[*num_file
] = alloc(len
+ 2)) != NULL
)
5263 STRCPY((*file
)[*num_file
], p
);
5264 if (!after_pathsep((*file
)[*num_file
],
5265 (*file
)[*num_file
] + len
))
5267 (*file
)[*num_file
][len
] = psepc
;
5268 (*file
)[*num_file
][len
+ 1] = NUL
;
5274 (*file
)[*num_file
] = vim_strsave(p
);
5278 * Error message already given by either alloc or vim_strsave.
5279 * Should return FAIL, but returning OK works also.
5281 if ((*file
)[*num_file
] == NULL
)
5285 _fnexplodefree((char **)expl_files
);
5292 * This is the non-OS/2 implementation (really Unix).
5299 #define STYLE_ECHO 0 /* use "echo", the default */
5300 #define STYLE_GLOB 1 /* use "glob", for csh */
5301 #define STYLE_VIMGLOB 2 /* use "vimglob", for Posix sh */
5302 #define STYLE_PRINT 3 /* use "print -N", for zsh */
5303 #define STYLE_BT 4 /* `cmd` expansion, execute the pattern
5305 int shell_style
= STYLE_ECHO
;
5307 static int did_find_nul
= FALSE
;
5308 int ampersent
= FALSE
;
5309 /* vimglob() function to define for Posix shell */
5310 static char *sh_vimglob_func
= "vimglob() { while [ $# -ge 1 ]; do echo \"$1\"; shift; done }; vimglob >";
5312 *num_file
= 0; /* default: no files found */
5316 * If there are no wildcards, just copy the names to allocated memory.
5317 * Saves a lot of time, because we don't have to start a new shell.
5319 if (!have_wildcard(num_pat
, pat
))
5320 return save_patterns(num_pat
, pat
, num_file
, file
);
5322 # ifdef HAVE_SANDBOX
5323 /* Don't allow any shell command in the sandbox. */
5324 if (sandbox
!= 0 && check_secure())
5329 * Don't allow the use of backticks in secure and restricted mode.
5331 if (secure
|| restricted
)
5332 for (i
= 0; i
< num_pat
; ++i
)
5333 if (vim_strchr(pat
[i
], '`') != NULL
5334 && (check_restricted() || check_secure()))
5338 * get a name for the temp file
5340 if ((tempname
= vim_tempname('o')) == NULL
)
5347 * Let the shell expand the patterns and write the result into the temp
5349 * STYLE_BT: NL separated
5350 * If expanding `cmd` execute it directly.
5351 * STYLE_GLOB: NUL separated
5352 * If we use *csh, "glob" will work better than "echo".
5353 * STYLE_PRINT: NL or NUL separated
5354 * If we use *zsh, "print -N" will work better than "glob".
5355 * STYLE_VIMGLOB: NL separated
5356 * If we use *sh*, we define "vimglob()".
5357 * STYLE_ECHO: space separated.
5358 * A shell we don't know, stay safe and use "echo".
5360 if (num_pat
== 1 && *pat
[0] == '`'
5361 && (len
= STRLEN(pat
[0])) > 2
5362 && *(pat
[0] + len
- 1) == '`')
5363 shell_style
= STYLE_BT
;
5364 else if ((len
= STRLEN(p_sh
)) >= 3)
5366 if (STRCMP(p_sh
+ len
- 3, "csh") == 0)
5367 shell_style
= STYLE_GLOB
;
5368 else if (STRCMP(p_sh
+ len
- 3, "zsh") == 0)
5369 shell_style
= STYLE_PRINT
;
5371 if (shell_style
== STYLE_ECHO
&& strstr((char *)gettail(p_sh
),
5373 shell_style
= STYLE_VIMGLOB
;
5375 /* Compute the length of the command. We need 2 extra bytes: for the
5376 * optional '&' and for the NUL.
5377 * Worst case: "unset nonomatch; print -N >" plus two is 29 */
5378 len
= STRLEN(tempname
) + 29;
5379 if (shell_style
== STYLE_VIMGLOB
)
5380 len
+= STRLEN(sh_vimglob_func
);
5382 for (i
= 0; i
< num_pat
; ++i
)
5384 /* Count the length of the patterns in the same way as they are put in
5385 * "command" below. */
5387 len
+= STRLEN(pat
[i
]) + 3; /* add space and two quotes */
5389 ++len
; /* add space */
5390 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5392 if (vim_strchr(SHELL_SPECIAL
, pat
[i
][j
]) != NULL
)
5393 ++len
; /* may add a backslash */
5398 command
= alloc(len
);
5399 if (command
== NULL
)
5407 * Build the shell command:
5408 * - Set $nonomatch depending on EW_NOTFOUND (hopefully the shell
5410 * - Add the shell command to print the expanded names.
5411 * - Add the temp file name.
5412 * - Add the file name patterns.
5414 if (shell_style
== STYLE_BT
)
5416 /* change `command; command& ` to (command; command ) */
5417 STRCPY(command
, "(");
5418 STRCAT(command
, pat
[0] + 1); /* exclude first backtick */
5419 p
= command
+ STRLEN(command
) - 1;
5420 *p
-- = ')'; /* remove last backtick */
5421 while (p
> command
&& vim_iswhite(*p
))
5423 if (*p
== '&') /* remove trailing '&' */
5428 STRCAT(command
, ">");
5432 if (flags
& EW_NOTFOUND
)
5433 STRCPY(command
, "set nonomatch; ");
5435 STRCPY(command
, "unset nonomatch; ");
5436 if (shell_style
== STYLE_GLOB
)
5437 STRCAT(command
, "glob >");
5438 else if (shell_style
== STYLE_PRINT
)
5439 STRCAT(command
, "print -N >");
5440 else if (shell_style
== STYLE_VIMGLOB
)
5441 STRCAT(command
, sh_vimglob_func
);
5443 STRCAT(command
, "echo >");
5446 STRCAT(command
, tempname
);
5448 if (shell_style
!= STYLE_BT
)
5449 for (i
= 0; i
< num_pat
; ++i
)
5451 /* When using system() always add extra quotes, because the shell
5452 * is started twice. Otherwise put a backslash before special
5453 * characters, except inside ``. */
5455 STRCAT(command
, " \"");
5456 STRCAT(command
, pat
[i
]);
5457 STRCAT(command
, "\"");
5461 p
= command
+ STRLEN(command
);
5463 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5465 if (pat
[i
][j
] == '`')
5467 else if (pat
[i
][j
] == '\\' && pat
[i
][j
+ 1] != NUL
)
5469 /* Remove a backslash, take char literally. But keep
5470 * backslash inside backticks, before a special character
5471 * and before a backtick. */
5473 || vim_strchr(SHELL_SPECIAL
, pat
[i
][j
+ 1]) != NULL
5474 || pat
[i
][j
+ 1] == '`')
5478 else if (!intick
&& vim_strchr(SHELL_SPECIAL
,
5480 /* Put a backslash before a special character, but not
5481 * when inside ``. */
5484 /* Copy one character. */
5490 if (flags
& EW_SILENT
)
5491 show_shell_mess
= FALSE
;
5493 STRCAT(command
, "&"); /* put the '&' after the redirection */
5496 * Using zsh -G: If a pattern has no matches, it is just deleted from
5497 * the argument list, otherwise zsh gives an error message and doesn't
5498 * expand any other pattern.
5500 if (shell_style
== STYLE_PRINT
)
5501 extra_shell_arg
= (char_u
*)"-G"; /* Use zsh NULL_GLOB option */
5504 * If we use -f then shell variables set in .cshrc won't get expanded.
5505 * vi can do it, so we will too, but it is only necessary if there is a "$"
5506 * in one of the patterns, otherwise we can still use the fast option.
5508 else if (shell_style
== STYLE_GLOB
&& !have_dollars(num_pat
, pat
))
5509 extra_shell_arg
= (char_u
*)"-f"; /* Use csh fast option */
5512 * execute the shell command
5514 i
= call_shell(command
, SHELL_EXPAND
| SHELL_SILENT
);
5516 /* When running in the background, give it some time to create the temp
5517 * file, but don't wait for it to finish. */
5519 mch_delay(10L, TRUE
);
5521 extra_shell_arg
= NULL
; /* cleanup */
5522 show_shell_mess
= TRUE
;
5525 if (i
!= 0) /* mch_call_shell() failed */
5527 mch_remove(tempname
);
5530 * With interactive completion, the error message is not printed.
5531 * However with USE_SYSTEM, I don't know how to turn off error messages
5532 * from the shell, so screen may still get messed up -- webb.
5535 if (!(flags
& EW_SILENT
))
5538 redraw_later_clear(); /* probably messed up screen */
5539 msg_putchar('\n'); /* clear bottom line quickly */
5540 cmdline_row
= Rows
- 1; /* continue on last line */
5542 if (!(flags
& EW_SILENT
))
5545 MSG(_(e_wildexpand
));
5546 msg_start(); /* don't overwrite this message */
5549 /* If a `cmd` expansion failed, don't list `cmd` as a match, even when
5550 * EW_NOTFOUND is given */
5551 if (shell_style
== STYLE_BT
)
5557 * read the names from the file into memory
5559 fd
= fopen((char *)tempname
, READBIN
);
5562 /* Something went wrong, perhaps a file name with a special char. */
5563 if (!(flags
& EW_SILENT
))
5565 MSG(_(e_wildexpand
));
5566 msg_start(); /* don't overwrite this message */
5571 fseek(fd
, 0L, SEEK_END
);
5572 len
= ftell(fd
); /* get size of temp file */
5573 fseek(fd
, 0L, SEEK_SET
);
5574 buffer
= alloc(len
+ 1);
5578 mch_remove(tempname
);
5583 i
= fread((char *)buffer
, 1, len
, fd
);
5585 mch_remove(tempname
);
5588 /* unexpected read error */
5589 EMSG2(_(e_notread
), tempname
);
5596 # if defined(__CYGWIN__) || defined(__CYGWIN32__)
5597 /* Translate <CR><NL> into <NL>. Caution, buffer may contain NUL. */
5599 for (i
= 0; i
< len
; ++i
)
5600 if (!(buffer
[i
] == CAR
&& buffer
[i
+ 1] == NL
))
5606 /* file names are separated with Space */
5607 if (shell_style
== STYLE_ECHO
)
5609 buffer
[len
] = '\n'; /* make sure the buffer ends in NL */
5611 for (i
= 0; *p
!= '\n'; ++i
) /* count number of entries */
5613 while (*p
!= ' ' && *p
!= '\n')
5615 p
= skipwhite(p
); /* skip to next entry */
5618 /* file names are separated with NL */
5619 else if (shell_style
== STYLE_BT
|| shell_style
== STYLE_VIMGLOB
)
5621 buffer
[len
] = NUL
; /* make sure the buffer ends in NUL */
5623 for (i
= 0; *p
!= NUL
; ++i
) /* count number of entries */
5625 while (*p
!= '\n' && *p
!= NUL
)
5629 p
= skipwhite(p
); /* skip leading white space */
5632 /* file names are separated with NUL */
5636 * Some versions of zsh use spaces instead of NULs to separate
5637 * results. Only do this when there is no NUL before the end of the
5638 * buffer, otherwise we would never be able to use file names with
5639 * embedded spaces when zsh does use NULs.
5640 * When we found a NUL once, we know zsh is OK, set did_find_nul and
5641 * don't check for spaces again.
5643 check_spaces
= FALSE
;
5644 if (shell_style
== STYLE_PRINT
&& !did_find_nul
)
5646 /* If there is a NUL, set did_find_nul, else set check_spaces */
5647 if (len
&& (int)STRLEN(buffer
) < (int)len
- 1)
5648 did_find_nul
= TRUE
;
5650 check_spaces
= TRUE
;
5654 * Make sure the buffer ends with a NUL. For STYLE_PRINT there
5655 * already is one, for STYLE_GLOB it needs to be added.
5657 if (len
&& buffer
[len
- 1] == NUL
)
5662 for (p
= buffer
; p
< buffer
+ len
; ++p
)
5663 if (*p
== NUL
|| (*p
== ' ' && check_spaces
)) /* count entry */
5669 ++i
; /* count last entry */
5674 * Can happen when using /bin/sh and typing ":e $NO_SUCH_VAR^I".
5675 * /bin/sh will happily expand it to nothing rather than returning an
5676 * error; and hey, it's good to check anyway -- webb.
5682 *file
= (char_u
**)alloc(sizeof(char_u
*) * i
);
5691 * Isolate the individual file names.
5694 for (i
= 0; i
< *num_file
; ++i
)
5697 /* Space or NL separates */
5698 if (shell_style
== STYLE_ECHO
|| shell_style
== STYLE_BT
5699 || shell_style
== STYLE_VIMGLOB
)
5701 while (!(shell_style
== STYLE_ECHO
&& *p
== ' ')
5702 && *p
!= '\n' && *p
!= NUL
)
5704 if (p
== buffer
+ len
) /* last entry */
5709 p
= skipwhite(p
); /* skip to next entry */
5712 else /* NUL separates */
5714 while (*p
&& p
< buffer
+ len
) /* skip entry */
5721 * Move the file names to allocated memory.
5723 for (j
= 0, i
= 0; i
< *num_file
; ++i
)
5725 /* Require the files to exist. Helps when using /bin/sh */
5726 if (!(flags
& EW_NOTFOUND
) && mch_getperm((*file
)[i
]) < 0)
5729 /* check if this entry should be included */
5730 dir
= (mch_isdir((*file
)[i
]));
5731 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5734 /* Skip files that are not executable if we check for that. */
5735 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe((*file
)[i
]))
5738 p
= alloc((unsigned)(STRLEN((*file
)[i
]) + 1 + dir
));
5741 STRCPY(p
, (*file
)[i
]);
5743 add_pathsep(p
); /* add '/' to a directory name */
5750 if (*num_file
== 0) /* rejected all entries */
5760 if (flags
& EW_NOTFOUND
)
5761 return save_patterns(num_pat
, pat
, num_file
, file
);
5764 #endif /* __EMX__ */
5771 save_patterns(num_pat
, pat
, num_file
, file
)
5780 *file
= (char_u
**)alloc(num_pat
* sizeof(char_u
*));
5783 for (i
= 0; i
< num_pat
; i
++)
5785 s
= vim_strsave(pat
[i
]);
5787 /* Be compatible with expand_filename(): halve the number of
5792 *num_file
= num_pat
;
5799 * Return TRUE if the string "p" contains a wildcard that mch_expandpath() can
5803 mch_has_exp_wildcard(p
)
5806 for ( ; *p
; mb_ptr_adv(p
))
5809 if (*p
== '\\' && p
[1] != NUL
)
5813 if (vim_strchr((char_u
*)
5830 * Return TRUE if the string "p" contains a wildcard.
5831 * Don't recognize '~' at the end as a wildcard.
5837 for ( ; *p
; mb_ptr_adv(p
))
5840 if (*p
== '\\' && p
[1] != NUL
)
5844 if (vim_strchr((char_u
*)
5849 # ifdef VIM_BACKTICK
5859 || (*p
== '~' && p
[1] != NUL
))
5867 have_wildcard(num
, file
)
5873 for (i
= 0; i
< num
; i
++)
5874 if (mch_has_wildcard(file
[i
]))
5880 have_dollars(num
, file
)
5886 for (i
= 0; i
< num
; i
++)
5887 if (vim_strchr(file
[i
], '$') != NULL
)
5891 #endif /* ifndef __EMX__ */
5895 * Scaled-down version of rename(), which is missing in Xenix.
5896 * This version can only move regular files and will fail if the
5897 * destination exists.
5900 mch_rename(src
, dest
)
5901 const char *src
, *dest
;
5905 if (stat(dest
, &st
) >= 0) /* fail if destination exists */
5907 if (link(src
, dest
) != 0) /* link file to new name */
5909 if (mch_remove(src
) == 0) /* delete link to old name */
5913 #endif /* !HAVE_RENAME */
5915 #ifdef FEAT_MOUSE_GPM
5917 * Initializes connection with gpm (if it isn't already opened)
5918 * Return 1 if succeeded (or connection already opened), 0 if failed
5923 static Gpm_Connect gpm_connect
; /* Must it be kept till closing ? */
5927 gpm_connect
.eventMask
= (GPM_UP
| GPM_DRAG
| GPM_DOWN
);
5928 gpm_connect
.defaultMask
= ~GPM_HARD
;
5929 /* Default handling for mouse move*/
5930 gpm_connect
.minMod
= 0; /* Handle any modifier keys */
5931 gpm_connect
.maxMod
= 0xffff;
5932 if (Gpm_Open(&gpm_connect
, 0) > 0)
5934 /* gpm library tries to handling TSTP causes
5935 * problems. Anyways, we close connection to Gpm whenever
5936 * we are going to suspend or starting an external process
5937 * so we shouldn't have problem with this
5940 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
5942 return 1; /* succeed */
5945 Gpm_Close(); /* We don't want to talk to xterm via gpm */
5948 return 1; /* already open */
5952 * Closes connection to gpm
5957 if (gpm_flag
&& gpm_fd
>= 0) /* if Open */
5961 /* Reads gpm event and adds special keys to input buf. Returns length of
5962 * generated key sequence.
5963 * This function is made after gui_send_mouse_event
5969 static Gpm_Event gpm_event
;
5971 int_u vim_modifiers
;
5973 unsigned char buttons_mask
;
5974 unsigned char gpm_modifiers
;
5975 static unsigned char old_buttons
= 0;
5977 Gpm_GetEvent(&gpm_event
);
5980 /* Don't put events in the input queue now. */
5981 if (hold_gui_events
)
5985 row
= gpm_event
.y
- 1;
5986 col
= gpm_event
.x
- 1;
5988 string
[0] = ESC
; /* Our termcode */
5991 switch (GPM_BARE_EVENTS(gpm_event
.type
))
5994 string
[3] = MOUSE_DRAG
;
5997 buttons_mask
= gpm_event
.buttons
& ~old_buttons
;
5998 old_buttons
= gpm_event
.buttons
;
5999 switch (buttons_mask
)
6002 button
= MOUSE_LEFT
;
6005 button
= MOUSE_MIDDLE
;
6008 button
= MOUSE_RIGHT
;
6012 /*Don't know what to do. Can more than one button be
6013 * reported in one event? */
6015 string
[3] = (char_u
)(button
| 0x20);
6016 SET_NUM_MOUSE_CLICKS(string
[3], gpm_event
.clicks
+ 1);
6019 string
[3] = MOUSE_RELEASE
;
6020 old_buttons
&= ~gpm_event
.buttons
;
6025 /*This code is based on gui_x11_mouse_cb in gui_x11.c */
6026 gpm_modifiers
= gpm_event
.modifiers
;
6027 vim_modifiers
= 0x0;
6028 /* I ignore capslock stats. Aren't we all just hate capslock mixing with
6029 * Vim commands ? Besides, gpm_event.modifiers is unsigned char, and
6030 * K_CAPSSHIFT is defined 8, so it probably isn't even reported
6032 if (gpm_modifiers
& ((1 << KG_SHIFT
) | (1 << KG_SHIFTR
) | (1 << KG_SHIFTL
)))
6033 vim_modifiers
|= MOUSE_SHIFT
;
6035 if (gpm_modifiers
& ((1 << KG_CTRL
) | (1 << KG_CTRLR
) | (1 << KG_CTRLL
)))
6036 vim_modifiers
|= MOUSE_CTRL
;
6037 if (gpm_modifiers
& ((1 << KG_ALT
) | (1 << KG_ALTGR
)))
6038 vim_modifiers
|= MOUSE_ALT
;
6039 string
[3] |= vim_modifiers
;
6040 string
[4] = (char_u
)(col
+ ' ' + 1);
6041 string
[5] = (char_u
)(row
+ ' ' + 1);
6042 add_to_input_buf(string
, 6);
6045 #endif /* FEAT_MOUSE_GPM */
6047 #ifdef FEAT_SYSMOUSE
6049 * Initialize connection with sysmouse.
6050 * Let virtual console inform us with SIGUSR2 for pending sysmouse
6051 * output, any sysmouse output than will be processed via sig_sysmouse().
6052 * Return OK if succeeded, FAIL if failed.
6057 struct mouse_info mouse
;
6059 mouse
.operation
= MOUSE_MODE
;
6060 mouse
.u
.mode
.mode
= 0;
6061 mouse
.u
.mode
.signal
= SIGUSR2
;
6062 if (ioctl(1, CONS_MOUSECTL
, &mouse
) != -1)
6064 signal(SIGUSR2
, (RETSIGTYPE (*)())sig_sysmouse
);
6065 mouse
.operation
= MOUSE_SHOW
;
6066 ioctl(1, CONS_MOUSECTL
, &mouse
);
6073 * Stop processing SIGUSR2 signals, and also make sure that
6074 * virtual console do not send us any sysmouse related signal.
6079 struct mouse_info mouse
;
6081 signal(SIGUSR2
, restricted
? SIG_IGN
: SIG_DFL
);
6082 mouse
.operation
= MOUSE_MODE
;
6083 mouse
.u
.mode
.mode
= 0;
6084 mouse
.u
.mode
.signal
= 0;
6085 ioctl(1, CONS_MOUSECTL
, &mouse
);
6089 * Gets info from sysmouse and adds special keys to input buf.
6092 sig_sysmouse
SIGDEFARG(sigarg
)
6094 struct mouse_info mouse
;
6095 struct video_info video
;
6100 static int oldbuttons
= 0;
6103 /* Don't put events in the input queue now. */
6104 if (hold_gui_events
)
6108 mouse
.operation
= MOUSE_GETINFO
;
6109 if (ioctl(1, FBIO_GETMODE
, &video
.vi_mode
) != -1
6110 && ioctl(1, FBIO_MODEINFO
, &video
) != -1
6111 && ioctl(1, CONS_MOUSECTL
, &mouse
) != -1
6112 && video
.vi_cheight
> 0 && video
.vi_cwidth
> 0)
6114 row
= mouse
.u
.data
.y
/ video
.vi_cheight
;
6115 col
= mouse
.u
.data
.x
/ video
.vi_cwidth
;
6116 buttons
= mouse
.u
.data
.buttons
;
6117 string
[0] = ESC
; /* Our termcode */
6120 if (oldbuttons
== buttons
&& buttons
!= 0)
6122 button
= MOUSE_DRAG
;
6129 button
= MOUSE_RELEASE
;
6132 button
= MOUSE_LEFT
;
6135 button
= MOUSE_MIDDLE
;
6138 button
= MOUSE_RIGHT
;
6143 oldbuttons
= buttons
;
6145 string
[3] = (char_u
)(button
);
6146 string
[4] = (char_u
)(col
+ ' ' + 1);
6147 string
[5] = (char_u
)(row
+ ' ' + 1);
6148 add_to_input_buf(string
, 6);
6152 #endif /* FEAT_SYSMOUSE */
6154 #if defined(FEAT_LIBCALL) || defined(PROTO)
6155 typedef char_u
* (*STRPROCSTR
)__ARGS((char_u
*));
6156 typedef char_u
* (*INTPROCSTR
)__ARGS((int));
6157 typedef int (*STRPROCINT
)__ARGS((char_u
*));
6158 typedef int (*INTPROCINT
)__ARGS((int));
6161 * Call a DLL routine which takes either a string or int param
6162 * and returns an allocated string.
6165 mch_libcall(libname
, funcname
, argstring
, argint
, string_result
, number_result
)
6168 char_u
*argstring
; /* NULL when using a argint */
6170 char_u
**string_result
;/* NULL when using number_result */
6173 # if defined(USE_DLOPEN)
6180 INTPROCSTR ProcAddI
;
6181 char_u
*retval_str
= NULL
;
6183 int success
= FALSE
;
6186 * Get a handle to the DLL module.
6188 # if defined(USE_DLOPEN)
6189 /* First clear any error, it's not cleared by the dlopen() call. */
6192 hinstLib
= dlopen((char *)libname
, RTLD_LAZY
6197 if (hinstLib
== NULL
)
6199 /* "dlerr" must be used before dlclose() */
6200 dlerr
= (char *)dlerror();
6202 EMSG2(_("dlerror = \"%s\""), dlerr
);
6205 hinstLib
= shl_load((const char*)libname
, BIND_IMMEDIATE
|BIND_VERBOSE
, 0L);
6208 /* If the handle is valid, try to get the function address. */
6209 if (hinstLib
!= NULL
)
6211 # ifdef HAVE_SETJMP_H
6213 * Catch a crash when calling the library function. For example when
6214 * using a number where a string pointer is expected.
6217 if (SETJMP(lc_jump_env
) != 0)
6220 # if defined(USE_DLOPEN)
6231 if (argstring
!= NULL
)
6233 # if defined(USE_DLOPEN)
6234 ProcAdd
= (STRPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
6235 dlerr
= (char *)dlerror();
6237 if (shl_findsym(&hinstLib
, (const char *)funcname
,
6238 TYPE_PROCEDURE
, (void *)&ProcAdd
) < 0)
6241 if ((success
= (ProcAdd
!= NULL
6242 # if defined(USE_DLOPEN)
6247 if (string_result
== NULL
)
6248 retval_int
= ((STRPROCINT
)ProcAdd
)(argstring
);
6250 retval_str
= (ProcAdd
)(argstring
);
6255 # if defined(USE_DLOPEN)
6256 ProcAddI
= (INTPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
6257 dlerr
= (char *)dlerror();
6259 if (shl_findsym(&hinstLib
, (const char *)funcname
,
6260 TYPE_PROCEDURE
, (void *)&ProcAddI
) < 0)
6263 if ((success
= (ProcAddI
!= NULL
6264 # if defined(USE_DLOPEN)
6269 if (string_result
== NULL
)
6270 retval_int
= ((INTPROCINT
)ProcAddI
)(argint
);
6272 retval_str
= (ProcAddI
)(argint
);
6276 /* Save the string before we free the library. */
6277 /* Assume that a "1" or "-1" result is an illegal pointer. */
6278 if (string_result
== NULL
)
6279 *number_result
= retval_int
;
6280 else if (retval_str
!= NULL
6281 && retval_str
!= (char_u
*)1
6282 && retval_str
!= (char_u
*)-1)
6283 *string_result
= vim_strsave(retval_str
);
6286 # ifdef HAVE_SETJMP_H
6293 /* try to find the name of this signal */
6294 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
6295 if (lc_signal
== signal_info
[i
].sig
)
6297 EMSG2("E368: got SIG%s in libcall()", signal_info
[i
].name
);
6302 # if defined(USE_DLOPEN)
6303 /* "dlerr" must be used before dlclose() */
6305 EMSG2(_("dlerror = \"%s\""), dlerr
);
6307 /* Free the DLL module. */
6308 (void)dlclose(hinstLib
);
6310 (void)shl_unload(hinstLib
);
6316 EMSG2(_(e_libcall
), funcname
);
6324 #if (defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) || defined(PROTO)
6325 static int xterm_trace
= -1; /* default: disabled */
6326 static int xterm_button
;
6329 * Setup a dummy window for X selections in a terminal.
6338 if (!x_connect_to_server())
6342 if (app_context
!= NULL
&& xterm_Shell
== (Widget
)0)
6344 int (*oldhandler
)();
6345 #if defined(HAVE_SETJMP_H)
6346 int (*oldIOhandler
)();
6348 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6349 struct timeval start_tv
;
6352 gettimeofday(&start_tv
, NULL
);
6355 /* Ignore X errors while opening the display */
6356 oldhandler
= XSetErrorHandler(x_error_check
);
6358 #if defined(HAVE_SETJMP_H)
6359 /* Ignore X IO errors while opening the display */
6360 oldIOhandler
= XSetIOErrorHandler(x_IOerror_check
);
6362 if (SETJMP(lc_jump_env
) != 0)
6370 xterm_dpy
= XtOpenDisplay(app_context
, xterm_display
,
6371 "vim_xterm", "Vim_xterm", NULL
, 0, &z
, &strp
);
6372 #if defined(HAVE_SETJMP_H)
6377 #if defined(HAVE_SETJMP_H)
6378 /* Now handle X IO errors normally. */
6379 (void)XSetIOErrorHandler(oldIOhandler
);
6381 /* Now handle X errors normally. */
6382 (void)XSetErrorHandler(oldhandler
);
6384 if (xterm_dpy
== NULL
)
6387 verb_msg((char_u
*)_("Opening the X display failed"));
6391 /* Catch terminating error of the X server connection. */
6392 (void)XSetIOErrorHandler(x_IOerror_handler
);
6394 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6398 xopen_message(&start_tv
);
6403 /* Create a Shell to make converters work. */
6404 AppShell
= XtVaAppCreateShell("vim_xterm", "Vim_xterm",
6405 applicationShellWidgetClass
, xterm_dpy
,
6407 if (AppShell
== (Widget
)0)
6409 xterm_Shell
= XtVaCreatePopupShell("VIM",
6410 topLevelShellWidgetClass
, AppShell
,
6411 XtNmappedWhenManaged
, 0,
6415 if (xterm_Shell
== (Widget
)0)
6418 x11_setup_atoms(xterm_dpy
);
6419 if (x11_display
== NULL
)
6420 x11_display
= xterm_dpy
;
6422 XtRealizeWidget(xterm_Shell
);
6423 XSync(xterm_dpy
, False
);
6426 if (xterm_Shell
!= (Widget
)0)
6429 if (x11_window
== 0 && (strp
= getenv("WINDOWID")) != NULL
)
6430 x11_window
= (Window
)atol(strp
);
6431 /* Check if $WINDOWID is valid. */
6432 if (test_x11_window(xterm_dpy
) == FAIL
)
6434 if (x11_window
!= 0)
6440 start_xterm_trace(button
)
6443 if (x11_window
== 0 || xterm_trace
< 0 || xterm_Shell
== (Widget
)0)
6446 xterm_button
= button
;
6454 if (xterm_trace
< 0)
6460 * Query the xterm pointer and generate mouse termcodes if necessary
6461 * return TRUE if dragging is active, else FALSE
6474 static char_u
*mouse_code
;
6475 static char_u mouse_name
[2] = {KS_MOUSE
, KE_FILLER
};
6476 static int prev_row
= 0, prev_col
= 0;
6477 static XSizeHints xterm_hints
;
6479 if (xterm_trace
<= 0)
6482 if (xterm_trace
== 1)
6484 /* Get the hints just before tracking starts. The font size might
6485 * have changed recently. */
6486 if (!XGetWMNormalHints(xterm_dpy
, x11_window
, &xterm_hints
, &got_hints
)
6487 || !(got_hints
& PResizeInc
)
6488 || xterm_hints
.width_inc
<= 1
6489 || xterm_hints
.height_inc
<= 1)
6491 xterm_trace
= -1; /* Not enough data -- disable tracing */
6495 /* Rely on the same mouse code for the duration of this */
6496 mouse_code
= find_termcode(mouse_name
);
6497 prev_row
= mouse_row
;
6498 prev_row
= mouse_col
;
6501 /* Find the offset of the chars, there might be a scrollbar on the
6502 * left of the window and/or a menu on the top (eterm etc.) */
6503 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6504 &win_x
, &win_y
, &mask_return
);
6505 xterm_hints
.y
= win_y
- (xterm_hints
.height_inc
* mouse_row
)
6506 - (xterm_hints
.height_inc
/ 2);
6507 if (xterm_hints
.y
<= xterm_hints
.height_inc
/ 2)
6509 xterm_hints
.x
= win_x
- (xterm_hints
.width_inc
* mouse_col
)
6510 - (xterm_hints
.width_inc
/ 2);
6511 if (xterm_hints
.x
<= xterm_hints
.width_inc
/ 2)
6515 if (mouse_code
== NULL
)
6521 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6522 &win_x
, &win_y
, &mask_return
);
6524 row
= check_row((win_y
- xterm_hints
.y
) / xterm_hints
.height_inc
);
6525 col
= check_col((win_x
- xterm_hints
.x
) / xterm_hints
.width_inc
);
6526 if (row
== prev_row
&& col
== prev_col
)
6529 STRCPY(buf
, mouse_code
);
6530 strp
= buf
+ STRLEN(buf
);
6531 *strp
++ = (xterm_button
| MOUSE_DRAG
) & ~0x20;
6532 *strp
++ = (char_u
)(col
+ ' ' + 1);
6533 *strp
++ = (char_u
)(row
+ ' ' + 1);
6535 add_to_input_buf(buf
, STRLEN(buf
));
6542 # if defined(FEAT_GUI) || defined(PROTO)
6544 * Destroy the display, window and app_context. Required for GTK.
6549 if (xterm_Shell
!= (Widget
)0)
6551 XtDestroyWidget(xterm_Shell
);
6552 xterm_Shell
= (Widget
)0;
6554 if (xterm_dpy
!= NULL
)
6557 /* Lesstif and Solaris crash here, lose some memory */
6558 XtCloseDisplay(xterm_dpy
);
6560 if (x11_display
== xterm_dpy
)
6565 if (app_context
!= (XtAppContext
)NULL
)
6567 /* Lesstif and Solaris crash here, lose some memory */
6568 XtDestroyApplicationContext(app_context
);
6569 app_context
= (XtAppContext
)NULL
;
6576 * Catch up with any queued X events. This may put keyboard input into the
6577 * input buffer, call resize call-backs, trigger timers etc. If there is
6578 * nothing in the X event queue (& no timers pending), then we return
6586 while (XtAppPending(app_context
) && !vim_is_input_buf_full())
6588 XtAppNextEvent(app_context
, &event
);
6589 #ifdef FEAT_CLIENTSERVER
6591 XPropertyEvent
*e
= (XPropertyEvent
*)&event
;
6593 if (e
->type
== PropertyNotify
&& e
->window
== commWindow
6594 && e
->atom
== commProperty
&& e
->state
== PropertyNewValue
)
6595 serverEventProc(xterm_dpy
, &event
);
6598 XtDispatchEvent(&event
);
6603 clip_xterm_own_selection(cbd
)
6606 if (xterm_Shell
!= (Widget
)0)
6607 return clip_x11_own_selection(xterm_Shell
, cbd
);
6612 clip_xterm_lose_selection(cbd
)
6615 if (xterm_Shell
!= (Widget
)0)
6616 clip_x11_lose_selection(xterm_Shell
, cbd
);
6620 clip_xterm_request_selection(cbd
)
6623 if (xterm_Shell
!= (Widget
)0)
6624 clip_x11_request_selection(xterm_Shell
, xterm_dpy
, cbd
);
6628 clip_xterm_set_selection(cbd
)
6631 clip_x11_set_selection(cbd
);
6636 #if defined(USE_XSMP) || defined(PROTO)
6638 * Code for X Session Management Protocol.
6640 static void xsmp_handle_save_yourself
__ARGS((SmcConn smc_conn
, SmPointer client_data
, int save_type
, Bool shutdown
, int interact_style
, Bool fast
));
6641 static void xsmp_die
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6642 static void xsmp_save_complete
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6643 static void xsmp_shutdown_cancelled
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6644 static void xsmp_ice_connection
__ARGS((IceConn iceConn
, IcePointer clientData
, Bool opening
, IcePointer
*watchData
));
6647 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6648 static void xsmp_handle_interaction
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6651 * This is our chance to ask the user if they want to save,
6652 * or abort the logout
6655 xsmp_handle_interaction(smc_conn
, client_data
)
6657 SmPointer client_data UNUSED
;
6659 cmdmod_T save_cmdmod
;
6660 int cancel_shutdown
= False
;
6662 save_cmdmod
= cmdmod
;
6663 cmdmod
.confirm
= TRUE
;
6664 if (check_changed_any(FALSE
))
6665 /* Mustn't logout */
6666 cancel_shutdown
= True
;
6667 cmdmod
= save_cmdmod
;
6668 setcursor(); /* position cursor */
6671 /* Done interaction */
6672 SmcInteractDone(smc_conn
, cancel_shutdown
);
6675 * Only end save-yourself here if we're not cancelling shutdown;
6676 * we'll get a cancelled callback later in which we'll end it.
6677 * Hopefully get around glitchy SMs (like GNOME-1)
6679 if (!cancel_shutdown
)
6681 xsmp
.save_yourself
= False
;
6682 SmcSaveYourselfDone(smc_conn
, True
);
6688 * Callback that starts save-yourself.
6691 xsmp_handle_save_yourself(smc_conn
, client_data
, save_type
,
6692 shutdown
, interact_style
, fast
)
6694 SmPointer client_data UNUSED
;
6695 int save_type UNUSED
;
6697 int interact_style UNUSED
;
6700 /* Handle already being in saveyourself */
6701 if (xsmp
.save_yourself
)
6702 SmcSaveYourselfDone(smc_conn
, True
);
6703 xsmp
.save_yourself
= True
;
6704 xsmp
.shutdown
= shutdown
;
6706 /* First up, preserve all files */
6708 ml_sync_all(FALSE
, FALSE
); /* preserve all swap files */
6711 verb_msg((char_u
*)_("XSMP handling save-yourself request"));
6713 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6714 /* Now see if we can ask about unsaved files */
6715 if (shutdown
&& !fast
&& gui
.in_use
)
6716 /* Need to interact with user, but need SM's permission */
6717 SmcInteractRequest(smc_conn
, SmDialogError
,
6718 xsmp_handle_interaction
, client_data
);
6722 /* Can stop the cycle here */
6723 SmcSaveYourselfDone(smc_conn
, True
);
6724 xsmp
.save_yourself
= False
;
6730 * Callback to warn us of imminent death.
6733 xsmp_die(smc_conn
, client_data
)
6734 SmcConn smc_conn UNUSED
;
6735 SmPointer client_data UNUSED
;
6739 /* quit quickly leaving swapfiles for modified buffers behind */
6740 getout_preserve_modified(0);
6745 * Callback to tell us that save-yourself has completed.
6748 xsmp_save_complete(smc_conn
, client_data
)
6749 SmcConn smc_conn UNUSED
;
6750 SmPointer client_data UNUSED
;
6752 xsmp
.save_yourself
= False
;
6757 * Callback to tell us that an instigated shutdown was cancelled
6758 * (maybe even by us)
6761 xsmp_shutdown_cancelled(smc_conn
, client_data
)
6763 SmPointer client_data UNUSED
;
6765 if (xsmp
.save_yourself
)
6766 SmcSaveYourselfDone(smc_conn
, True
);
6767 xsmp
.save_yourself
= False
;
6768 xsmp
.shutdown
= False
;
6773 * Callback to tell us that a new ICE connection has been established.
6776 xsmp_ice_connection(iceConn
, clientData
, opening
, watchData
)
6778 IcePointer clientData UNUSED
;
6780 IcePointer
*watchData UNUSED
;
6782 /* Intercept creation of ICE connection fd */
6785 xsmp_icefd
= IceConnectionNumber(iceConn
);
6786 IceRemoveConnectionWatch(xsmp_ice_connection
, NULL
);
6791 /* Handle any ICE processing that's required; return FAIL if SM lost */
6793 xsmp_handle_requests()
6797 if (IceProcessMessages(xsmp
.iceconn
, NULL
, &rep
)
6798 == IceProcessMessagesIOError
)
6802 verb_msg((char_u
*)_("XSMP lost ICE connection"));
6812 /* Set up X Session Management Protocol */
6816 char errorstring
[80];
6817 SmcCallbacks smcallbacks
;
6825 verb_msg((char_u
*)_("XSMP opening connection"));
6827 xsmp
.save_yourself
= xsmp
.shutdown
= False
;
6829 /* Set up SM callbacks - must have all, even if they're not used */
6830 smcallbacks
.save_yourself
.callback
= xsmp_handle_save_yourself
;
6831 smcallbacks
.save_yourself
.client_data
= NULL
;
6832 smcallbacks
.die
.callback
= xsmp_die
;
6833 smcallbacks
.die
.client_data
= NULL
;
6834 smcallbacks
.save_complete
.callback
= xsmp_save_complete
;
6835 smcallbacks
.save_complete
.client_data
= NULL
;
6836 smcallbacks
.shutdown_cancelled
.callback
= xsmp_shutdown_cancelled
;
6837 smcallbacks
.shutdown_cancelled
.client_data
= NULL
;
6839 /* Set up a watch on ICE connection creations. The "dummy" argument is
6840 * apparently required for FreeBSD (we get a BUS error when using NULL). */
6841 if (IceAddConnectionWatch(xsmp_ice_connection
, &dummy
) == 0)
6844 verb_msg((char_u
*)_("XSMP ICE connection watch failed"));
6848 /* Create an SM connection */
6849 xsmp
.smcconn
= SmcOpenConnection(
6854 SmcSaveYourselfProcMask
| SmcDieProcMask
6855 | SmcSaveCompleteProcMask
| SmcShutdownCancelledProcMask
,
6859 sizeof(errorstring
),
6861 if (xsmp
.smcconn
== NULL
)
6863 char errorreport
[132];
6867 vim_snprintf(errorreport
, sizeof(errorreport
),
6868 _("XSMP SmcOpenConnection failed: %s"), errorstring
);
6869 verb_msg((char_u
*)errorreport
);
6873 xsmp
.iceconn
= SmcGetIceConnection(xsmp
.smcconn
);
6877 smname
.value
= "vim";
6879 smnameprop
.name
= "SmProgram";
6880 smnameprop
.type
= "SmARRAY8";
6881 smnameprop
.num_vals
= 1;
6882 smnameprop
.vals
= &smname
;
6884 smprops
[0] = &smnameprop
;
6885 SmcSetProperties(xsmp
.smcconn
, 1, smprops
);
6890 /* Shut down XSMP comms. */
6894 if (xsmp_icefd
!= -1)
6896 SmcCloseConnection(xsmp
.smcconn
, 0, NULL
);
6897 if (xsmp
.clientid
!= NULL
)
6898 free(xsmp
.clientid
);
6899 xsmp
.clientid
= NULL
;
6903 #endif /* USE_XSMP */
6907 /* Translate character to its CTRL- value */
6911 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6912 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6913 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6914 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6915 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6916 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6920 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6923 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6934 0, 0, 0, 0, 0, 0, 0,
6945 0, 0, 0, 0, 0, 0, 0, 0,
6958 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6960 /* BE - C0 */ 0, 0, 0,
6970 /* CA - D0 */ 0, 0, 0, 0, 0, 0, 0,
6980 /* DA - DF */ 0, 0, 0, 0, 0, 0,
6991 /* EA - FF*/ 0, 0, 0, 0, 0, 0,
6992 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6995 char MetaCharTable
[]=
6996 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
6997 0, 0, 0, 0,'\\', 0,'F', 0,'W','M','N', 0, 0, 0, 0, 0,
6998 0, 0, 0, 0,']', 0, 0,'G', 0, 0,'R','O', 0, 0, 0, 0,
6999 '@','A','B','C','D','E', 0, 0,'H','I','J','K','L', 0, 0, 0,
7000 'P','Q', 0,'S','T','U','V', 0,'X','Y','Z','[', 0, 0,'^', 0
7004 /* TODO: Use characters NOT numbers!!! */
7005 char CtrlCharTable
[]=
7006 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
7007 124,193,194,195, 0,201, 0, 0, 0, 0, 0,210,211,212,213,214,
7008 215,216,217,226, 0,209,200, 0,231,232, 0, 0,224,189, 95,109,
7009 0, 0, 0, 0, 0, 0,230,173, 0, 0, 0, 0, 0,197,198,199,
7010 0, 0,229, 0, 0, 0, 0,196, 0, 0, 0, 0,227,228, 0,233,