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
));
203 # define SIG_ERR ((RETSIGTYPE (*)())-1)
207 /* volatile because it is used in signal handler sig_winch(). */
208 static volatile int do_resize
= FALSE
;
210 static char_u
*extra_shell_arg
= NULL
;
211 static int show_shell_mess
= TRUE
;
213 /* volatile because it is used in signal handler deathtrap(). */
214 static volatile int deadly_signal
= 0; /* The signal we caught */
215 /* volatile because it is used in signal handler deathtrap(). */
216 static volatile int in_mch_delay
= FALSE
; /* sleeping in mch_delay() */
218 static int curr_tmode
= TMODE_COOK
; /* contains current terminal mode */
223 SmcConn smcconn
; /* The SM connection ID */
224 IceConn iceconn
; /* The ICE connection ID */
225 char *clientid
; /* The client ID for the current smc session */
226 Bool save_yourself
; /* If we're in the middle of a save_yourself */
227 Bool shutdown
; /* If we're in shutdown mode */
230 static xsmp_config_T xsmp
;
233 #ifdef SYS_SIGLIST_DECLARED
236 * extern char *_sys_siglist[NSIG];
237 * on Irix, Linux, NetBSD and Solaris. It contains a nice list of strings
238 * that describe the signals. That is nearly what we want here. But
239 * autoconf does only check for sys_siglist (without the underscore), I
240 * do not want to change everything today.... jw.
241 * This is why AC_DECL_SYS_SIGLIST is commented out in configure.in
245 static struct signalinfo
247 int sig
; /* Signal number, eg. SIGSEGV etc */
248 char *name
; /* Signal name (not char_u!). */
249 char deadly
; /* Catch as a deadly signal? */
253 {SIGHUP
, "HUP", TRUE
},
256 {SIGQUIT
, "QUIT", TRUE
},
259 {SIGILL
, "ILL", TRUE
},
262 {SIGTRAP
, "TRAP", TRUE
},
265 {SIGABRT
, "ABRT", TRUE
},
268 {SIGEMT
, "EMT", TRUE
},
271 {SIGFPE
, "FPE", TRUE
},
274 {SIGBUS
, "BUS", TRUE
},
277 {SIGSEGV
, "SEGV", TRUE
},
280 {SIGSYS
, "SYS", TRUE
},
283 {SIGALRM
, "ALRM", FALSE
}, /* Perl's alarm() can trigger it */
286 {SIGTERM
, "TERM", TRUE
},
289 {SIGVTALRM
, "VTALRM", TRUE
},
291 #if defined(SIGPROF) && !defined(FEAT_MZSCHEME) && !defined(WE_ARE_PROFILING)
292 /* MzScheme uses SIGPROF for its own needs; On Linux with profiling
293 * this makes Vim exit. WE_ARE_PROFILING is defined in Makefile. */
294 {SIGPROF
, "PROF", TRUE
},
297 {SIGXCPU
, "XCPU", TRUE
},
300 {SIGXFSZ
, "XFSZ", TRUE
},
303 {SIGUSR1
, "USR1", TRUE
},
305 #if defined(SIGUSR2) && !defined(FEAT_SYSMOUSE)
306 /* Used for sysmouse handling */
307 {SIGUSR2
, "USR2", TRUE
},
310 {SIGINT
, "INT", FALSE
},
313 {SIGWINCH
, "WINCH", FALSE
},
316 {SIGTSTP
, "TSTP", FALSE
},
319 {SIGPIPE
, "PIPE", FALSE
},
321 {-1, "Unknown!", FALSE
}
325 * Write s[len] to the screen.
332 ignored
= (int)write(1, (char *)s
, len
);
333 if (p_wd
) /* Unix is too fast, slow down a bit more */
334 RealWaitForChar(read_cmd_fd
, p_wd
, NULL
);
338 * mch_inchar(): low level input function.
339 * Get a characters from the keyboard.
340 * Return the number of characters that are available.
341 * If wtime == 0 do not wait for characters.
342 * If wtime == n wait a short time for characters.
343 * If wtime == -1 wait forever for characters.
346 mch_inchar(buf
, maxlen
, wtime
, tb_change_cnt
)
349 long wtime
; /* don't use "time", MIPS cannot handle it */
354 /* Check if window changed size while we were busy, perhaps the ":set
355 * columns=99" command was used. */
361 while (WaitForChar(wtime
) == 0) /* no character available */
363 if (!do_resize
) /* return if not interrupted by resize */
368 else /* wtime == -1 */
371 * If there is no character available within 'updatetime' seconds
372 * flush all the swap files to disk.
373 * Also done when interrupted by SIGWINCH.
375 if (WaitForChar(p_ut
) == 0)
378 if (trigger_cursorhold() && maxlen
>= 3
379 && !typebuf_changed(tb_change_cnt
))
383 buf
[2] = (int)KE_CURSORHOLD
;
391 for (;;) /* repeat until we got a character */
393 while (do_resize
) /* window changed size */
396 * we want to be interrupted by the winch signal
399 if (do_resize
) /* interrupted by SIGWINCH signal */
402 /* If input was put directly in typeahead buffer bail out here. */
403 if (typebuf_changed(tb_change_cnt
))
407 * For some terminals we only get one character at a time.
408 * We want the get all available characters, so we could keep on
409 * trying until none is available
410 * For some other terminals this is quite slow, that's why we don't do
413 len
= read_from_input_buf(buf
, (long)maxlen
);
419 for (i
= 0; i
< len
; i
++)
436 * return non-zero if a character is available
441 return WaitForChar(0L);
444 #if defined(HAVE_TOTAL_MEM) || defined(PROTO)
445 # ifdef HAVE_SYS_RESOURCE_H
446 # ifndef S_SPLINT_S /* splint crashes on bits/resource.h */
447 # include <sys/resource.h>
450 # if defined(HAVE_SYS_SYSCTL_H) && defined(HAVE_SYSCTL)
451 # include <sys/sysctl.h>
453 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
454 # include <sys/sysinfo.h>
458 * Return total amount of memory available in Kbyte.
459 * Doesn't change when memory has been allocated.
463 mch_total_mem(special
)
467 return ulimit(3, 0L) >> 10; /* always 32MB? */
470 long_u shiftright
= 10; /* how much to shift "mem" right for Kbyte */
476 /* BSD way of getting the amount of RAM available. */
479 len
= sizeof(physmem
);
480 if (sysctl(mib
, 2, &physmem
, &len
, NULL
, 0) == 0)
481 mem
= (long_u
)physmem
;
484 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
487 struct sysinfo sinfo
;
489 /* Linux way of getting amount of RAM available */
490 if (sysinfo(&sinfo
) == 0)
492 # ifdef HAVE_SYSINFO_MEM_UNIT
493 /* avoid overflow as much as possible */
494 while (shiftright
> 0 && (sinfo
.mem_unit
& 1) == 0)
496 sinfo
.mem_unit
= sinfo
.mem_unit
>> 1;
499 mem
= sinfo
.totalram
* sinfo
.mem_unit
;
501 mem
= sinfo
.totalram
;
510 long pagesize
, pagecount
;
512 /* Solaris way of getting amount of RAM available */
513 pagesize
= sysconf(_SC_PAGESIZE
);
514 pagecount
= sysconf(_SC_PHYS_PAGES
);
515 if (pagesize
> 0 && pagecount
> 0)
517 /* avoid overflow as much as possible */
518 while (shiftright
> 0 && (pagesize
& 1) == 0)
520 pagesize
= (long_u
)pagesize
>> 1;
523 mem
= (long_u
)pagesize
* pagecount
;
528 /* Return the minimum of the physical memory and the user limit, because
529 * using more than the user limit may cause Vim to be terminated. */
530 # if defined(HAVE_SYS_RESOURCE_H) && defined(HAVE_GETRLIMIT)
534 if (getrlimit(RLIMIT_DATA
, &rlp
) == 0
535 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
536 # ifdef RLIM_INFINITY
537 && rlp
.rlim_cur
!= RLIM_INFINITY
539 && ((long_u
)rlp
.rlim_cur
>> 10) < (mem
>> shiftright
)
542 mem
= (long_u
)rlp
.rlim_cur
;
549 return mem
>> shiftright
;
550 return (long_u
)0x1fffff;
556 mch_delay(msec
, ignoreinput
)
562 long total
= msec
; /* remember original value */
567 /* Go to cooked mode without echo, to allow SIGINT interrupting us
568 * here. But we don't want QUIT to kill us (CTRL-\ used in a
569 * shell may produce SIGQUIT). */
571 old_tmode
= curr_tmode
;
572 if (curr_tmode
== TMODE_RAW
)
573 settmode(TMODE_SLEEP
);
576 * Everybody sleeps in a different way...
577 * Prefer nanosleep(), some versions of usleep() can only sleep up to
583 /* if total is large enough, wait by portions in p_mzq */
590 #ifdef HAVE_NANOSLEEP
594 ts
.tv_sec
= msec
/ 1000;
595 ts
.tv_nsec
= (msec
% 1000) * 1000000;
596 (void)nanosleep(&ts
, NULL
);
602 usleep((unsigned int)(999 * 1000));
605 usleep((unsigned int)(msec
* 1000));
608 poll(NULL
, 0, (int)msec
);
616 tv
.tv_sec
= msec
/ 1000;
617 tv
.tv_usec
= (msec
% 1000) * 1000;
619 * NOTE: Solaris 2.6 has a bug that makes select() hang here. Get
620 * a patch from Sun to fix this. Reported by Gunnar Pedersen.
622 select(0, NULL
, NULL
, NULL
, &tv
);
624 # endif /* __EMX__ */
625 # endif /* HAVE_SELECT */
626 # endif /* HAVE_NANOSLEEP */
627 #endif /* HAVE_USLEEP */
634 in_mch_delay
= FALSE
;
640 #if 0 /* disabled, no longer needed now that regmatch() is not recursive */
641 # if defined(HAVE_GETRLIMIT)
642 # define HAVE_STACK_LIMIT
646 #if defined(HAVE_STACK_LIMIT) \
647 || (!defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGSTACK))
648 # define HAVE_CHECK_STACK_GROWTH
650 * Support for checking for an almost-out-of-stack-space situation.
654 * Return a pointer to an item on the stack. Used to find out if the stack
657 static void check_stack_growth
__ARGS((char *p
));
658 static int stack_grows_downwards
;
661 * Find out if the stack grows upwards or downwards.
662 * "p" points to a variable on the stack of the caller.
665 check_stack_growth(p
)
670 stack_grows_downwards
= (p
> (char *)&i
);
674 #if defined(HAVE_STACK_LIMIT) || defined(PROTO)
675 static char *stack_limit
= NULL
;
677 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
678 # include <pthread.h>
679 # include <pthread_np.h>
683 * Find out until how var the stack can grow without getting into trouble.
684 * Called when starting up and when switching to the signal stack in
694 /* Set the stack limit to 15/16 of the allowable size. Skip this when the
695 * limit doesn't fit in a long (rlim_cur might be "long long"). */
696 if (getrlimit(RLIMIT_STACK
, &rlp
) == 0
697 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
698 # ifdef RLIM_INFINITY
699 && rlp
.rlim_cur
!= RLIM_INFINITY
703 lim
= (long)rlp
.rlim_cur
;
704 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
709 /* On FreeBSD the initial thread always has a fixed stack size, no
710 * matter what the limits are set to. Normally it's 1 Mbyte. */
711 pthread_attr_init(&attr
);
712 if (pthread_attr_get_np(pthread_self(), &attr
) == 0)
714 pthread_attr_getstacksize(&attr
, &size
);
715 if (lim
> (long)size
)
718 pthread_attr_destroy(&attr
);
721 if (stack_grows_downwards
)
723 stack_limit
= (char *)((long)&i
- (lim
/ 16L * 15L));
724 if (stack_limit
>= (char *)&i
)
725 /* overflow, set to 1/16 of current stack position */
726 stack_limit
= (char *)((long)&i
/ 16L);
730 stack_limit
= (char *)((long)&i
+ (lim
/ 16L * 15L));
731 if (stack_limit
<= (char *)&i
)
732 stack_limit
= NULL
; /* overflow */
738 * Return FAIL when running out of stack space.
739 * "p" must point to any variable local to the caller that's on the stack.
745 if (stack_limit
!= NULL
)
747 if (stack_grows_downwards
)
752 else if (p
> stack_limit
)
759 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
761 * Support for using the signal stack.
762 * This helps when we run out of stack space, which causes a SIGSEGV. The
763 * signal handler then must run on another stack, since the normal stack is
768 # define SIGSTKSZ 8000 /* just a guess of how much stack is needed... */
771 # ifdef HAVE_SIGALTSTACK
772 static stack_t sigstk
; /* for sigaltstack() */
774 static struct sigstack sigstk
; /* for sigstack() */
777 static void init_signal_stack
__ARGS((void));
778 static char *signal_stack
;
783 if (signal_stack
!= NULL
)
785 # ifdef HAVE_SIGALTSTACK
786 # if defined(__APPLE__) && (!defined(MAC_OS_X_VERSION_MAX_ALLOWED) \
787 || MAC_OS_X_VERSION_MAX_ALLOWED <= 1040)
788 /* missing prototype. Adding it to osdef?.h.in doesn't work, because
789 * "struct sigaltstack" needs to be declared. */
790 extern int sigaltstack
__ARGS((const struct sigaltstack
*ss
, struct sigaltstack
*oss
));
794 sigstk
.ss_base
= signal_stack
;
796 sigstk
.ss_sp
= signal_stack
;
798 sigstk
.ss_size
= SIGSTKSZ
;
800 (void)sigaltstack(&sigstk
, NULL
);
802 sigstk
.ss_sp
= signal_stack
;
803 if (stack_grows_downwards
)
804 sigstk
.ss_sp
+= SIGSTKSZ
- 1;
805 sigstk
.ss_onstack
= 0;
806 (void)sigstack(&sigstk
, NULL
);
813 * We need correct prototypes for a signal function, otherwise mean compilers
814 * will barf when the second argument to signal() is ``wrong''.
815 * Let me try it with a few tricky defines from my own osdef.h (jw).
817 #if defined(SIGWINCH)
820 sig_winch
SIGDEFARG(sigarg
)
822 /* this is not required on all systems, but it doesn't hurt anybody */
823 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
832 catch_sigint
SIGDEFARG(sigarg
)
834 /* this is not required on all systems, but it doesn't hurt anybody */
835 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
844 catch_sigpwr
SIGDEFARG(sigarg
)
846 /* this is not required on all systems, but it doesn't hurt anybody */
847 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
849 * I'm not sure we get the SIGPWR signal when the system is really going
850 * down or when the batteries are almost empty. Just preserve the swap
851 * files and don't exit, that can't do any harm.
853 ml_sync_all(FALSE
, FALSE
);
860 * signal function for alarm().
864 sig_alarm
SIGDEFARG(sigarg
)
866 /* doesn't do anything, just to break a system call */
867 sig_alarm_called
= TRUE
;
872 #if (defined(HAVE_SETJMP_H) \
873 && ((defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) \
874 || defined(FEAT_LIBCALL))) \
877 * A simplistic version of setjmp() that only allows one level of using.
878 * Don't call twice before calling mch_endjmp()!.
881 * if (SETJMP(lc_jump_env) != 0)
891 * Note: Can't move SETJMP() here, because a function calling setjmp() must
892 * not return before the saved environment is used.
893 * Returns OK for normal return, FAIL when the protected code caused a
894 * problem and LONGJMP() was used.
914 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
915 /* On FreeBSD the signal stack has to be reset after using siglongjmp(),
916 * otherwise catching the signal only works once. */
923 * This function handles deadly signals.
924 * It tries to preserve any swap file and exit properly.
925 * (partly from Elvis).
928 deathtrap
SIGDEFARG(sigarg
)
930 static int entered
= 0; /* count the number of times we got here.
931 Note: when memory has been corrupted
932 this may get an arbitrary value! */
937 #if defined(HAVE_SETJMP_H)
939 * Catch a crash in protected code.
940 * Restores the environment saved in lc_jump_env, which looks like
941 * SETJMP() returns 1.
945 # if defined(SIGHASARG)
948 lc_active
= FALSE
; /* don't jump again */
949 LONGJMP(lc_jump_env
, 1);
956 /* While in mch_delay() we go to cooked mode to allow a CTRL-C to
957 * interrupt us. But in cooked mode we may also get SIGQUIT, e.g., when
958 * pressing CTRL-\, but we don't want Vim to exit then. */
959 if (in_mch_delay
&& sigarg
== SIGQUIT
)
963 /* When SIGHUP, SIGQUIT, etc. are blocked: postpone the effect and return
964 * here. This avoids that a non-reentrant function is interrupted, e.g.,
965 * free(). Calling free() again may then cause a crash. */
987 && !vim_handle_signal(sigarg
))
991 /* Remember how often we have been called. */
995 /* Set the v:dying variable. */
996 set_vim_var_nr(VV_DYING
, (long)entered
);
999 #ifdef HAVE_STACK_LIMIT
1000 /* Since we are now using the signal stack, need to reset the stack
1001 * limit. Otherwise using a regexp will fail. */
1006 /* This is for opening gdb the moment Vim crashes.
1007 * You need to manually adjust the file name and Vim executable name.
1008 * Suggested by SungHyun Nam. */
1010 # define VI_GDB_FILE "/tmp/vimgdb"
1011 # define VIM_NAME "/usr/bin/vim"
1012 FILE *fp
= fopen(VI_GDB_FILE
, "w");
1020 , VIM_NAME
, getpid());
1022 system("xterm -e gdb -x "VI_GDB_FILE
);
1023 unlink(VI_GDB_FILE
);
1029 /* try to find the name of this signal */
1030 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1031 if (sigarg
== signal_info
[i
].sig
)
1033 deadly_signal
= sigarg
;
1036 full_screen
= FALSE
; /* don't write message to the GUI, it might be
1037 * part of the problem... */
1039 * If something goes wrong after entering here, we may get here again.
1040 * When this happens, give a message and try to exit nicely (resetting the
1041 * terminal mode, etc.)
1042 * When this happens twice, just exit, don't even try to give a message,
1043 * stack may be corrupt or something weird.
1044 * When this still happens again (or memory was corrupted in such a way
1045 * that "entered" was clobbered) use _exit(), don't try freeing resources.
1049 reset_signals(); /* don't catch any signals anymore */
1057 OUT_STR(_("Vim: Double signal, exiting\n"));
1063 sprintf((char *)IObuff
, _("Vim: Caught deadly signal %s\n"),
1064 signal_info
[i
].name
);
1066 sprintf((char *)IObuff
, _("Vim: Caught deadly signal\n"));
1068 preserve_exit(); /* preserve files and exit */
1079 #if defined(_REENTRANT) && defined(SIGCONT)
1081 * On Solaris with multi-threading, suspending might not work immediately.
1082 * Catch the SIGCONT signal, which will be used as an indication whether the
1083 * suspending has been done or not.
1085 * On Linux, signal is not always handled immediately either.
1086 * See https://bugs.launchpad.net/bugs/291373
1088 * volatile because it is used in in signal handler sigcont_handler().
1090 static volatile int sigcont_received
;
1091 static RETSIGTYPE sigcont_handler
__ARGS(SIGPROTOARG
);
1094 * signal handler for SIGCONT
1098 sigcont_handler
SIGDEFARG(sigarg
)
1100 sigcont_received
= TRUE
;
1106 * If the machine has job control, use it to suspend the program,
1107 * otherwise fake it by starting a new shell.
1112 /* BeOS does have SIGTSTP, but it doesn't work. */
1113 #if defined(SIGTSTP) && !defined(__BEOS__)
1114 out_flush(); /* needed to make cursor visible on some systems */
1115 settmode(TMODE_COOK
);
1116 out_flush(); /* needed to disable mouse on some systems */
1118 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
1119 /* Since we are going to sleep, we can't respond to requests for the X
1120 * selections. Lose them, otherwise other applications will hang. But
1121 * first copy the text to cut buffer 0. */
1122 if (clip_star
.owned
|| clip_plus
.owned
)
1124 x11_export_final_selection();
1125 if (clip_star
.owned
)
1126 clip_lose_selection(&clip_star
);
1127 if (clip_plus
.owned
)
1128 clip_lose_selection(&clip_plus
);
1129 if (x11_display
!= NULL
)
1130 XFlush(x11_display
);
1134 # if defined(_REENTRANT) && defined(SIGCONT)
1135 sigcont_received
= FALSE
;
1137 kill(0, SIGTSTP
); /* send ourselves a STOP signal */
1138 # if defined(_REENTRANT) && defined(SIGCONT)
1140 * Wait for the SIGCONT signal to be handled. It generally happens
1141 * immediately, but somehow not all the time. Do not call pause()
1142 * because there would be race condition which would hang Vim if
1143 * signal happened in between the test of sigcont_received and the
1144 * call to pause(). If signal is not yet received, call sleep(0)
1145 * to just yield CPU. Signal should then be received. If somehow
1146 * it's still not received, sleep 1, 2, 3 ms. Don't bother waiting
1147 * further if signal is not received after 1+2+3+4 ms (not expected
1152 for (wait
= 0; !sigcont_received
&& wait
<= 3L; wait
++)
1153 /* Loop is not entered most of the time */
1154 mch_delay(wait
, FALSE
);
1160 * Set oldtitle to NULL, so the current title is obtained again.
1165 settmode(TMODE_RAW
);
1166 need_check_timestamps
= TRUE
;
1167 did_check_timestamps
= FALSE
;
1182 #ifdef MACOS_CONVERT
1190 #if defined(SIGWINCH)
1192 * WINDOW CHANGE signal is handled with sig_winch().
1194 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
1198 * We want the STOP signal to work, to make mch_suspend() work.
1199 * For "rvim" the STOP signal is ignored.
1202 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
1204 #if defined(_REENTRANT) && defined(SIGCONT)
1205 signal(SIGCONT
, sigcont_handler
);
1209 * We want to ignore breaking of PIPEs.
1212 signal(SIGPIPE
, SIG_IGN
);
1220 * Ignore alarm signals (Perl's alarm() generates it).
1223 signal(SIGALRM
, SIG_IGN
);
1227 * Catch SIGPWR (power failure?) to preserve the swap files, so that no
1228 * work will be lost.
1231 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
1235 * Arrange for other signals to gracefully shutdown Vim.
1237 catch_signals(deathtrap
, SIG_ERR
);
1239 #if defined(FEAT_GUI) && defined(SIGHUP)
1241 * When the GUI is running, ignore the hangup signal.
1244 signal(SIGHUP
, SIG_IGN
);
1248 #if defined(SIGINT) || defined(PROTO)
1250 * Catch CTRL-C (only works while in Cooked mode).
1255 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
1262 catch_signals(SIG_DFL
, SIG_DFL
);
1263 #if defined(_REENTRANT) && defined(SIGCONT)
1264 /* SIGCONT isn't in the list, because its default action is ignore */
1265 signal(SIGCONT
, SIG_DFL
);
1270 catch_signals(func_deadly
, func_other
)
1271 RETSIGTYPE (*func_deadly
)();
1272 RETSIGTYPE (*func_other
)();
1276 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1277 if (signal_info
[i
].deadly
)
1279 #if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGACTION)
1280 struct sigaction sa
;
1282 /* Setup to use the alternate stack for the signal function. */
1283 sa
.sa_handler
= func_deadly
;
1284 sigemptyset(&sa
.sa_mask
);
1285 # if defined(__linux__) && defined(_REENTRANT)
1286 /* On Linux, with glibc compiled for kernel 2.2, there is a bug in
1287 * thread handling in combination with using the alternate stack:
1288 * pthread library functions try to use the stack pointer to
1289 * identify the current thread, causing a SEGV signal, which
1290 * recursively calls deathtrap() and hangs. */
1293 sa
.sa_flags
= SA_ONSTACK
;
1295 sigaction(signal_info
[i
].sig
, &sa
, NULL
);
1297 # if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGVEC)
1300 /* Setup to use the alternate stack for the signal function. */
1301 sv
.sv_handler
= func_deadly
;
1303 sv
.sv_flags
= SV_ONSTACK
;
1304 sigvec(signal_info
[i
].sig
, &sv
, NULL
);
1306 signal(signal_info
[i
].sig
, func_deadly
);
1310 else if (func_other
!= SIG_ERR
)
1311 signal(signal_info
[i
].sig
, func_other
);
1315 * Handling of SIGHUP, SIGQUIT and SIGTERM:
1316 * "when" == a signal: when busy, postpone and return FALSE, otherwise
1318 * "when" == SIGNAL_BLOCK: Going to be busy, block signals
1319 * "when" == SIGNAL_UNBLOCK: Going to wait, unblock signals, use postponed
1321 * Returns TRUE when Vim should exit.
1324 vim_handle_signal(sig
)
1327 static int got_signal
= 0;
1328 static int blocked
= TRUE
;
1332 case SIGNAL_BLOCK
: blocked
= TRUE
;
1335 case SIGNAL_UNBLOCK
: blocked
= FALSE
;
1336 if (got_signal
!= 0)
1338 kill(getpid(), got_signal
);
1343 default: if (!blocked
)
1344 return TRUE
; /* exit! */
1349 got_int
= TRUE
; /* break any loops */
1356 * Check_win checks whether we have an interactive stdout.
1360 mch_check_win(argc
, argv
)
1366 * Store argv[0], may be used for $VIM. Only use it if it is an absolute
1367 * name, mostly it's just "vim" and found in the path, which is unusable.
1369 if (mch_isFullName(argv
[0]))
1370 exe_name
= vim_strsave((char_u
*)argv
[0]);
1378 * Return TRUE if the input comes from a terminal, FALSE otherwise.
1383 if (isatty(read_cmd_fd
))
1390 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H) \
1391 && (defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE))
1393 static void xopen_message
__ARGS((struct timeval
*tvp
));
1396 * Give a message about the elapsed time for opening the X window.
1400 struct timeval
*tvp
; /* must contain start time */
1402 struct timeval end_tv
;
1404 /* Compute elapsed time. */
1405 gettimeofday(&end_tv
, NULL
);
1406 smsg((char_u
*)_("Opening the X display took %ld msec"),
1407 (end_tv
.tv_sec
- tvp
->tv_sec
) * 1000L
1408 + (end_tv
.tv_usec
- tvp
->tv_usec
) / 1000L);
1413 #if defined(FEAT_X11) && (defined(FEAT_TITLE) || defined(FEAT_XCLIPBOARD))
1415 * A few functions shared by X11 title and clipboard code.
1417 static int x_error_handler
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1418 static int x_error_check
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1419 static int x_connect_to_server
__ARGS((void));
1420 static int test_x11_window
__ARGS((Display
*dpy
));
1422 static int got_x_error
= FALSE
;
1425 * X Error handler, otherwise X just exits! (very rude) -- webb
1428 x_error_handler(dpy
, error_event
)
1430 XErrorEvent
*error_event
;
1432 XGetErrorText(dpy
, error_event
->error_code
, (char *)IObuff
, IOSIZE
);
1433 STRCAT(IObuff
, _("\nVim: Got X error\n"));
1435 /* We cannot print a message and continue, because no X calls are allowed
1436 * here (causes my system to hang). Silently continuing might be an
1438 preserve_exit(); /* preserve files and exit */
1440 return 0; /* NOTREACHED */
1444 * Another X Error handler, just used to check for errors.
1448 x_error_check(dpy
, error_event
)
1450 XErrorEvent
*error_event
;
1456 #if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
1457 # if defined(HAVE_SETJMP_H)
1459 * An X IO Error handler, used to catch error while opening the display.
1461 static int x_IOerror_check
__ARGS((Display
*dpy
));
1465 x_IOerror_check(dpy
)
1468 /* This function should not return, it causes exit(). Longjump instead. */
1469 LONGJMP(lc_jump_env
, 1);
1476 * An X IO Error handler, used to catch terminal errors.
1478 static int x_IOerror_handler
__ARGS((Display
*dpy
));
1482 x_IOerror_handler(dpy
)
1488 xterm_Shell
= (Widget
)0;
1490 /* This function should not return, it causes exit(). Longjump instead. */
1491 LONGJMP(x_jump_env
, 1);
1498 * Return TRUE when connection to the X server is desired.
1501 x_connect_to_server()
1503 regmatch_T regmatch
;
1505 #if defined(FEAT_CLIENTSERVER)
1506 if (x_force_connect
)
1512 /* Check for a match with "exclude:" from 'clipboard'. */
1513 if (clip_exclude_prog
!= NULL
)
1515 regmatch
.rm_ic
= FALSE
; /* Don't ignore case */
1516 regmatch
.regprog
= clip_exclude_prog
;
1517 if (vim_regexec(®match
, T_NAME
, (colnr_T
)0))
1524 * Test if "dpy" and x11_window are valid by getting the window title.
1525 * I don't actually want it yet, so there may be a simpler call to use, but
1526 * this will cause the error handler x_error_check() to be called if anything
1527 * is wrong, such as the window pointer being invalid (as can happen when the
1528 * user changes his DISPLAY, but not his WINDOWID) -- webb
1531 test_x11_window(dpy
)
1534 int (*old_handler
)();
1535 XTextProperty text_prop
;
1537 old_handler
= XSetErrorHandler(x_error_check
);
1538 got_x_error
= FALSE
;
1539 if (XGetWMName(dpy
, x11_window
, &text_prop
))
1540 XFree((void *)text_prop
.value
);
1542 (void)XSetErrorHandler(old_handler
);
1544 if (p_verbose
> 0 && got_x_error
)
1545 verb_msg((char_u
*)_("Testing the X display failed"));
1547 return (got_x_error
? FAIL
: OK
);
1555 static int get_x11_thing
__ARGS((int get_title
, int test_only
));
1558 * try to get x11 window and display
1560 * return FAIL for failure, OK otherwise
1566 static int result
= -1;
1567 #define XD_NONE 0 /* x11_display not set here */
1568 #define XD_HERE 1 /* x11_display opened here */
1569 #define XD_GUI 2 /* x11_display used from gui.dpy */
1570 #define XD_XTERM 3 /* x11_display used from xterm_dpy */
1571 static int x11_display_from
= XD_NONE
;
1572 static int did_set_error_handler
= FALSE
;
1574 if (!did_set_error_handler
)
1576 /* X just exits if it finds an error otherwise! */
1577 (void)XSetErrorHandler(x_error_handler
);
1578 did_set_error_handler
= TRUE
;
1581 #if defined(FEAT_GUI_X11) || defined(FEAT_GUI_GTK)
1585 * If the X11 display was opened here before, for the window where Vim
1586 * was started, close that one now to avoid a memory leak.
1588 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1590 XCloseDisplay(x11_display
);
1591 x11_display_from
= XD_NONE
;
1593 if (gui_get_x11_windis(&x11_window
, &x11_display
) == OK
)
1595 x11_display_from
= XD_GUI
;
1601 else if (x11_display_from
== XD_GUI
)
1603 /* GUI must have stopped somehow, clear x11_display */
1606 x11_display_from
= XD_NONE
;
1610 /* When started with the "-X" argument, don't try connecting. */
1611 if (!x_connect_to_server())
1615 * If WINDOWID not set, should try another method to find out
1616 * what the current window number is. The only code I know for
1617 * this is very complicated.
1618 * We assume that zero is invalid for WINDOWID.
1620 if (x11_window
== 0 && (winid
= getenv("WINDOWID")) != NULL
)
1621 x11_window
= (Window
)atol(winid
);
1623 #ifdef FEAT_XCLIPBOARD
1624 if (xterm_dpy
!= NULL
&& x11_window
!= 0)
1626 /* We may have checked it already, but Gnome terminal can move us to
1627 * another window, so we need to check every time. */
1628 if (x11_display_from
!= XD_XTERM
)
1631 * If the X11 display was opened here before, for the window where
1632 * Vim was started, close that one now to avoid a memory leak.
1634 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1635 XCloseDisplay(x11_display
);
1636 x11_display
= xterm_dpy
;
1637 x11_display_from
= XD_XTERM
;
1639 if (test_x11_window(x11_display
) == FAIL
)
1641 /* probably bad $WINDOWID */
1644 x11_display_from
= XD_NONE
;
1651 if (x11_window
== 0 || x11_display
== NULL
)
1654 if (result
!= -1) /* Have already been here and set this */
1655 return result
; /* Don't do all these X calls again */
1657 if (x11_window
!= 0 && x11_display
== NULL
)
1659 #ifdef SET_SIG_ALARM
1660 RETSIGTYPE (*sig_save
)();
1662 #if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1663 struct timeval start_tv
;
1666 gettimeofday(&start_tv
, NULL
);
1669 #ifdef SET_SIG_ALARM
1671 * Opening the Display may hang if the DISPLAY setting is wrong, or
1672 * the network connection is bad. Set an alarm timer to get out.
1674 sig_alarm_called
= FALSE
;
1675 sig_save
= (RETSIGTYPE (*)())signal(SIGALRM
,
1676 (RETSIGTYPE (*)())sig_alarm
);
1679 x11_display
= XOpenDisplay(NULL
);
1681 #ifdef SET_SIG_ALARM
1683 signal(SIGALRM
, (RETSIGTYPE (*)())sig_save
);
1684 if (p_verbose
> 0 && sig_alarm_called
)
1685 verb_msg((char_u
*)_("Opening the X display timed out"));
1687 if (x11_display
!= NULL
)
1689 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1693 xopen_message(&start_tv
);
1697 if (test_x11_window(x11_display
) == FAIL
)
1699 /* Maybe window id is bad */
1701 XCloseDisplay(x11_display
);
1705 x11_display_from
= XD_HERE
;
1708 if (x11_window
== 0 || x11_display
== NULL
)
1709 return (result
= FAIL
);
1710 return (result
= OK
);
1714 * Determine original x11 Window Title
1717 get_x11_title(test_only
)
1720 return get_x11_thing(TRUE
, test_only
);
1724 * Determine original x11 Window icon
1727 get_x11_icon(test_only
)
1732 retval
= get_x11_thing(FALSE
, test_only
);
1734 /* could not get old icon, use terminal name */
1735 if (oldicon
== NULL
&& !test_only
)
1737 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1738 oldicon
= T_NAME
+ 8;
1747 get_x11_thing(get_title
, test_only
)
1748 int get_title
; /* get title string */
1751 XTextProperty text_prop
;
1755 if (get_x11_windis() == OK
)
1757 /* Get window/icon name if any */
1759 status
= XGetWMName(x11_display
, x11_window
, &text_prop
);
1761 status
= XGetWMIconName(x11_display
, x11_window
, &text_prop
);
1764 * If terminal is xterm, then x11_window may be a child window of the
1765 * outer xterm window that actually contains the window/icon name, so
1766 * keep traversing up the tree until a window with a title/icon is
1769 /* Previously this was only done for xterm and alikes. I don't see a
1770 * reason why it would fail for other terminal emulators.
1771 * if (term_is_xterm) */
1775 Window win
= x11_window
;
1777 unsigned int num_children
;
1779 while (!status
|| text_prop
.value
== NULL
)
1781 if (!XQueryTree(x11_display
, win
, &root
, &parent
, &children
,
1785 XFree((void *)children
);
1786 if (parent
== root
|| parent
== 0)
1791 status
= XGetWMName(x11_display
, win
, &text_prop
);
1793 status
= XGetWMIconName(x11_display
, win
, &text_prop
);
1796 if (status
&& text_prop
.value
!= NULL
)
1801 #ifdef FEAT_XFONTSET
1802 if (text_prop
.encoding
== XA_STRING
)
1806 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1808 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1809 #ifdef FEAT_XFONTSET
1814 Status transform_status
;
1817 transform_status
= XmbTextPropertyToTextList(x11_display
,
1820 if (transform_status
>= Success
&& n
> 0 && cl
[0])
1823 oldtitle
= vim_strsave((char_u
*) cl
[0]);
1825 oldicon
= vim_strsave((char_u
*) cl
[0]);
1826 XFreeStringList(cl
);
1831 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1833 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1838 XFree((void *)text_prop
.value
);
1844 /* Are Xutf8 functions available? Avoid error from old compilers. */
1845 #if defined(X_HAVE_UTF8_STRING) && defined(FEAT_MBYTE)
1846 # if X_HAVE_UTF8_STRING
1847 # define USE_UTF8_STRING
1852 * Set x11 Window Title
1854 * get_x11_windis() must be called before this and have returned OK
1857 set_x11_title(title
)
1860 /* XmbSetWMProperties() and Xutf8SetWMProperties() should use a STRING
1861 * when possible, COMPOUND_TEXT otherwise. COMPOUND_TEXT isn't
1862 * supported everywhere and STRING doesn't work for multi-byte titles.
1864 #ifdef USE_UTF8_STRING
1866 Xutf8SetWMProperties(x11_display
, x11_window
, (const char *)title
,
1867 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1871 #if XtSpecificationRelease >= 4
1872 # ifdef FEAT_XFONTSET
1873 XmbSetWMProperties(x11_display
, x11_window
, (const char *)title
,
1874 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1876 XTextProperty text_prop
;
1877 char *c_title
= (char *)title
;
1879 /* directly from example 3-18 "basicwin" of Xlib Programming Manual */
1880 (void)XStringListToTextProperty(&c_title
, 1, &text_prop
);
1881 XSetWMProperties(x11_display
, x11_window
, &text_prop
,
1882 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1885 XStoreName(x11_display
, x11_window
, (char *)title
);
1888 XFlush(x11_display
);
1892 * Set x11 Window icon
1894 * get_x11_windis() must be called before this and have returned OK
1900 /* See above for comments about using X*SetWMProperties(). */
1901 #ifdef USE_UTF8_STRING
1903 Xutf8SetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1904 NULL
, 0, NULL
, NULL
, NULL
);
1908 #if XtSpecificationRelease >= 4
1909 # ifdef FEAT_XFONTSET
1910 XmbSetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1911 NULL
, 0, NULL
, NULL
, NULL
);
1913 XTextProperty text_prop
;
1914 char *c_icon
= (char *)icon
;
1916 (void)XStringListToTextProperty(&c_icon
, 1, &text_prop
);
1917 XSetWMProperties(x11_display
, x11_window
, NULL
, &text_prop
,
1918 NULL
, 0, NULL
, NULL
, NULL
);
1921 XSetIconName(x11_display
, x11_window
, (char *)icon
);
1924 XFlush(x11_display
);
1927 #else /* FEAT_X11 */
1931 get_x11_title(test_only
)
1938 get_x11_icon(test_only
)
1943 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1944 oldicon
= T_NAME
+ 8;
1951 #endif /* FEAT_X11 */
1954 mch_can_restore_title()
1956 return get_x11_title(TRUE
);
1960 mch_can_restore_icon()
1962 return get_x11_icon(TRUE
);
1966 * Set the window title and icon.
1969 mch_settitle(title
, icon
)
1974 static int recursive
= 0;
1976 if (T_NAME
== NULL
) /* no terminal name (yet) */
1978 if (title
== NULL
&& icon
== NULL
) /* nothing to do */
1981 /* When one of the X11 functions causes a deadly signal, we get here again
1982 * recursively. Avoid hanging then (something is probably locked). */
1988 * if the window ID and the display is known, we may use X11 calls
1991 if (get_x11_windis() == OK
)
1994 # if defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) || defined(FEAT_GUI_GTK)
2001 * Note: if "t_TS" is set, title is set with escape sequence rather
2002 * than x11 calls, because the x11 calls don't always work
2004 if ((type
|| *T_TS
!= NUL
) && title
!= NULL
)
2006 if (oldtitle
== NULL
2010 ) /* first call but not in GUI, save title */
2011 (void)get_x11_title(FALSE
);
2013 if (*T_TS
!= NUL
) /* it's OK if t_fs is empty */
2014 term_settitle(title
);
2017 # ifdef FEAT_GUI_GTK
2018 if (!gui
.in_use
) /* don't do this if GTK+ is running */
2020 set_x11_title(title
); /* x11 */
2022 #if defined(FEAT_GUI_GTK) \
2023 || defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC)
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
)
2451 l
= mch_chdir((char *)olddir
);
2453 EMSG(_(e_prev_dir
));
2462 if (l
> 0 && buf
[l
- 1] != '/' && *fname
!= NUL
2463 && STRCMP(fname
, ".") != 0)
2469 /* Catch file names which are too long. */
2470 if (retval
== FAIL
|| STRLEN(buf
) + STRLEN(fname
) >= len
)
2473 /* Do not append ".", "/dir/." is equal to "/dir". */
2474 if (STRCMP(fname
, ".") != 0)
2481 * Return TRUE if "fname" does not depend on the current directory.
2484 mch_isFullName(fname
)
2488 return _fnisabs(fname
);
2491 return ( fname
[0] == '/' || fname
[0] == '.' ||
2492 strchr((char *)fname
,':') || strchr((char *)fname
,'"') ||
2493 (strchr((char *)fname
,'[') && strchr((char *)fname
,']'))||
2494 (strchr((char *)fname
,'<') && strchr((char *)fname
,'>')) );
2496 return (*fname
== '/' || *fname
== '~');
2501 #if defined(USE_FNAME_CASE) || defined(PROTO)
2503 * Set the case of the file name, if it already exists. This will cause the
2504 * file name to remain exactly the same.
2505 * Only required for file systems where case is ignored and preserved.
2509 fname_case(name
, len
)
2511 int len
; /* buffer size, only used when name gets longer */
2514 char_u
*slash
, *tail
;
2518 if (lstat((char *)name
, &st
) >= 0)
2520 /* Open the directory where the file is located. */
2521 slash
= vim_strrchr(name
, '/');
2524 dirp
= opendir(".");
2530 dirp
= opendir((char *)name
);
2537 while ((dp
= readdir(dirp
)) != NULL
)
2539 /* Only accept names that differ in case and are the same byte
2540 * length. TODO: accept different length name. */
2541 if (STRICMP(tail
, dp
->d_name
) == 0
2542 && STRLEN(tail
) == STRLEN(dp
->d_name
))
2544 char_u newname
[MAXPATHL
+ 1];
2547 /* Verify the inode is equal. */
2548 vim_strncpy(newname
, name
, MAXPATHL
);
2549 vim_strncpy(newname
+ (tail
- name
), (char_u
*)dp
->d_name
,
2550 MAXPATHL
- (tail
- name
));
2551 if (lstat((char *)newname
, &st2
) >= 0
2552 && st
.st_ino
== st2
.st_ino
2553 && st
.st_dev
== st2
.st_dev
)
2555 STRCPY(tail
, dp
->d_name
);
2568 * Get file permissions for 'name'.
2569 * Returns -1 when it doesn't exist.
2577 /* Keep the #ifdef outside of stat(), it may be a macro. */
2579 if (stat((char *)vms_fixfilename(name
), &statb
))
2581 if (stat((char *)name
, &statb
))
2585 /* The top bit makes the value negative, which means the file doesn't
2586 * exist. Remove the bit, we don't use it. */
2587 return statb
.st_mode
& ~S_ADDACE
;
2589 return statb
.st_mode
;
2594 * set file permission for 'name' to 'perm'
2596 * return FAIL for failure, OK otherwise
2599 mch_setperm(name
, perm
)
2603 return (chmod((char *)
2605 vms_fixfilename(name
),
2609 (mode_t
)perm
) == 0 ? OK
: FAIL
);
2612 #if defined(HAVE_ACL) || defined(PROTO)
2613 # ifdef HAVE_SYS_ACL_H
2614 # include <sys/acl.h>
2616 # ifdef HAVE_SYS_ACCESS_H
2617 # include <sys/access.h>
2620 # ifdef HAVE_SOLARIS_ACL
2621 typedef struct vim_acl_solaris_T
{
2623 aclent_t
*acl_entry
;
2624 } vim_acl_solaris_T
;
2627 #if defined(HAVE_SELINUX) || defined(PROTO)
2629 * Copy security info from "from_file" to "to_file".
2632 mch_copy_sec(from_file
, to_file
)
2636 if (from_file
== NULL
)
2639 if (selinux_enabled
== -1)
2640 selinux_enabled
= is_selinux_enabled();
2642 if (selinux_enabled
> 0)
2644 security_context_t from_context
= NULL
;
2645 security_context_t to_context
= NULL
;
2647 if (getfilecon((char *)from_file
, &from_context
) < 0)
2649 /* If the filesystem doesn't support extended attributes,
2650 the original had no special security context and the
2651 target cannot have one either. */
2652 if (errno
== EOPNOTSUPP
)
2655 MSG_PUTS(_("\nCould not get security context for "));
2656 msg_outtrans(from_file
);
2660 if (getfilecon((char *)to_file
, &to_context
) < 0)
2662 MSG_PUTS(_("\nCould not get security context for "));
2663 msg_outtrans(to_file
);
2665 freecon (from_context
);
2668 if (strcmp(from_context
, to_context
) != 0)
2670 if (setfilecon((char *)to_file
, from_context
) < 0)
2672 MSG_PUTS(_("\nCould not set security context for "));
2673 msg_outtrans(to_file
);
2677 freecon(to_context
);
2678 freecon(from_context
);
2681 #endif /* HAVE_SELINUX */
2684 * Return a pointer to the ACL of file "fname" in allocated memory.
2685 * Return NULL if the ACL is not available for whatever reason.
2691 vim_acl_T ret
= NULL
;
2692 #ifdef HAVE_POSIX_ACL
2693 ret
= (vim_acl_T
)acl_get_file((char *)fname
, ACL_TYPE_ACCESS
);
2695 #ifdef HAVE_SOLARIS_ACL
2696 vim_acl_solaris_T
*aclent
;
2698 aclent
= malloc(sizeof(vim_acl_solaris_T
));
2699 if ((aclent
->acl_cnt
= acl((char *)fname
, GETACLCNT
, 0, NULL
)) < 0)
2704 aclent
->acl_entry
= malloc(aclent
->acl_cnt
* sizeof(aclent_t
));
2705 if (acl((char *)fname
, GETACL
, aclent
->acl_cnt
, aclent
->acl_entry
) < 0)
2707 free(aclent
->acl_entry
);
2711 ret
= (vim_acl_T
)aclent
;
2713 #if defined(HAVE_AIX_ACL)
2717 aclsize
= sizeof(struct acl
);
2718 aclent
= malloc(aclsize
);
2719 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2721 if (errno
== ENOSPC
)
2723 aclsize
= aclent
->acl_len
;
2724 aclent
= realloc(aclent
, aclsize
);
2725 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2737 ret
= (vim_acl_T
)aclent
;
2738 #endif /* HAVE_AIX_ACL */
2739 #endif /* HAVE_SOLARIS_ACL */
2740 #endif /* HAVE_POSIX_ACL */
2745 * Set the ACL of file "fname" to "acl" (unless it's NULL).
2748 mch_set_acl(fname
, aclent
)
2754 #ifdef HAVE_POSIX_ACL
2755 acl_set_file((char *)fname
, ACL_TYPE_ACCESS
, (acl_t
)aclent
);
2757 #ifdef HAVE_SOLARIS_ACL
2758 acl((char *)fname
, SETACL
, ((vim_acl_solaris_T
*)aclent
)->acl_cnt
,
2759 ((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2762 chacl((char *)fname
, aclent
, ((struct acl
*)aclent
)->acl_len
);
2763 #endif /* HAVE_AIX_ACL */
2764 #endif /* HAVE_SOLARIS_ACL */
2765 #endif /* HAVE_POSIX_ACL */
2769 mch_free_acl(aclent
)
2774 #ifdef HAVE_POSIX_ACL
2775 acl_free((acl_t
)aclent
);
2777 #ifdef HAVE_SOLARIS_ACL
2778 free(((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2783 #endif /* HAVE_AIX_ACL */
2784 #endif /* HAVE_SOLARIS_ACL */
2785 #endif /* HAVE_POSIX_ACL */
2790 * Set hidden flag for "name".
2797 /* can't hide a file */
2801 * return TRUE if "name" is a directory
2802 * return FALSE if "name" is not a directory
2803 * return FALSE for error
2811 if (*name
== NUL
) /* Some stat()s don't flag "" as an error. */
2813 if (stat((char *)name
, &statb
))
2815 #ifdef _POSIX_SOURCE
2816 return (S_ISDIR(statb
.st_mode
) ? TRUE
: FALSE
);
2818 return ((statb
.st_mode
& S_IFMT
) == S_IFDIR
? TRUE
: FALSE
);
2822 static int executable_file
__ARGS((char_u
*name
));
2825 * Return 1 if "name" is an executable file, 0 if not or it doesn't exist.
2828 executable_file(name
)
2833 if (stat((char *)name
, &st
))
2835 return S_ISREG(st
.st_mode
) && mch_access((char *)name
, X_OK
) == 0;
2839 * Return 1 if "name" can be found in $PATH and executed, 0 if not.
2840 * Return -1 if unknown.
2850 /* If it's an absolute or relative path don't need to use $PATH. */
2851 if (mch_isFullName(name
) || (name
[0] == '.' && (name
[1] == '/'
2852 || (name
[1] == '.' && name
[2] == '/'))))
2853 return executable_file(name
);
2855 p
= (char_u
*)getenv("PATH");
2856 if (p
== NULL
|| *p
== NUL
)
2858 buf
= alloc((unsigned)(STRLEN(name
) + STRLEN(p
) + 2));
2863 * Walk through all entries in $PATH to check if "name" exists there and
2864 * is an executable file.
2868 e
= (char_u
*)strchr((char *)p
, ':');
2871 if (e
- p
<= 1) /* empty entry means current dir */
2875 vim_strncpy(buf
, p
, e
- p
);
2879 retval
= executable_file(buf
);
2893 * Check what "name" is:
2894 * NODE_NORMAL: file or directory (or doesn't exist)
2895 * NODE_WRITABLE: writable device, socket, fifo, etc.
2896 * NODE_OTHER: non-writable things
2904 if (stat((char *)name
, &st
))
2906 if (S_ISREG(st
.st_mode
) || S_ISDIR(st
.st_mode
))
2909 if (S_ISBLK(st
.st_mode
)) /* block device isn't writable */
2912 /* Everything else is writable? */
2913 return NODE_WRITABLE
;
2919 #ifdef HAVE_CHECK_STACK_GROWTH
2922 check_stack_growth((char *)&i
);
2924 # ifdef HAVE_STACK_LIMIT
2931 * Setup an alternative stack for signals. Helps to catch signals when
2932 * running out of stack space.
2933 * Use of sigaltstack() is preferred, it's more portable.
2934 * Ignore any errors.
2936 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2937 signal_stack
= (char *)alloc(SIGSTKSZ
);
2938 init_signal_stack();
2942 #if defined(EXITFREE) || defined(PROTO)
2946 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
2947 if (clip_star
.owned
)
2948 clip_lose_selection(&clip_star
);
2949 if (clip_plus
.owned
)
2950 clip_lose_selection(&clip_plus
);
2952 # if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
2953 if (xterm_Shell
!= (Widget
)0)
2954 XtDestroyWidget(xterm_Shell
);
2955 # ifndef LESSTIF_VERSION
2956 /* Lesstif crashes here, lose some memory */
2957 if (xterm_dpy
!= NULL
)
2958 XtCloseDisplay(xterm_dpy
);
2959 if (app_context
!= (XtAppContext
)NULL
)
2961 XtDestroyApplicationContext(app_context
);
2963 x11_display
= NULL
; /* freed by XtDestroyApplicationContext() */
2968 /* Don't close the display for GTK 1, it is done in exit(). */
2969 # if defined(FEAT_X11) && (!defined(FEAT_GUI_GTK) || defined(HAVE_GTK2))
2970 if (x11_display
!= NULL
2971 # ifdef FEAT_XCLIPBOARD
2972 && x11_display
!= xterm_dpy
2975 XCloseDisplay(x11_display
);
2977 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2978 vim_free(signal_stack
);
2979 signal_stack
= NULL
;
2988 static void exit_scroll
__ARGS((void));
2991 * Output a newline when exiting.
2992 * Make sure the newline goes to the same stream as the text.
2999 if (newline_on_exit
|| msg_didout
)
3001 if (msg_use_printf())
3013 restore_cterm_colors(); /* get original colors back */
3014 msg_clr_eos_force(); /* clear the rest of the display */
3015 windgoto((int)Rows
- 1, 0); /* may have moved the cursor */
3025 #if defined(FEAT_X11) && defined(FEAT_CLIPBOARD)
3026 x11_export_final_selection();
3033 settmode(TMODE_COOK
);
3035 mch_restore_title(3); /* restore xterm title and icon name */
3038 * When t_ti is not empty but it doesn't cause swapping terminal
3039 * pages, need to output a newline when msg_didout is set. But when
3040 * t_ti does swap pages it should not go to the shell page. Do this
3041 * before stoptermcap().
3043 if (swapping_screen() && !newline_on_exit
)
3046 /* Stop termcap: May need to check for T_CRV response, which
3047 * requires RAW mode. */
3051 * A newline is only required after a message in the alternate screen.
3052 * This is set to TRUE by wait_return().
3054 if (!swapping_screen() || newline_on_exit
)
3057 /* Cursor may have been switched off without calling starttermcap()
3058 * when doing "vim -u vimrc" and vimrc contains ":q". */
3063 ml_close_all(TRUE
); /* remove all memfiles */
3070 #ifdef MACOS_CONVERT
3075 /* A core dump won't be created if the signal handler
3076 * doesn't return, so we can't call exit() */
3077 if (deadly_signal
!= 0)
3081 #ifdef FEAT_NETBEANS_INTG
3083 netbeans_send_disconnect();
3096 if (deadly_signal
!= 0)
3098 signal(deadly_signal
, SIG_DFL
);
3099 kill(getpid(), deadly_signal
); /* Die using the signal we caught */
3109 static int first
= TRUE
;
3111 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3112 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3114 * for "new" tty systems
3116 # ifdef HAVE_TERMIOS_H
3117 static struct termios told
;
3118 struct termios tnew
;
3120 static struct termio told
;
3127 # if defined(HAVE_TERMIOS_H)
3128 tcgetattr(read_cmd_fd
, &told
);
3130 ioctl(read_cmd_fd
, TCGETA
, &told
);
3135 if (tmode
== TMODE_RAW
)
3138 * ~ICRNL enables typing ^V^M
3140 tnew
.c_iflag
&= ~ICRNL
;
3141 tnew
.c_lflag
&= ~(ICANON
| ECHO
| ISIG
| ECHOE
3142 # if defined(IEXTEN) && !defined(__MINT__)
3143 | IEXTEN
/* IEXTEN enables typing ^V on SOLARIS */
3144 /* but it breaks function keys on MINT */
3147 # ifdef ONLCR /* don't map NL -> CR NL, we do it ourselves */
3148 tnew
.c_oflag
&= ~ONLCR
;
3150 tnew
.c_cc
[VMIN
] = 1; /* return after 1 char */
3151 tnew
.c_cc
[VTIME
] = 0; /* don't wait */
3153 else if (tmode
== TMODE_SLEEP
)
3154 tnew
.c_lflag
&= ~(ECHO
);
3156 # if defined(HAVE_TERMIOS_H)
3160 /* A signal may cause tcsetattr() to fail (e.g., SIGCONT). Retry a
3162 while (tcsetattr(read_cmd_fd
, TCSANOW
, &tnew
) == -1
3163 && errno
== EINTR
&& n
> 0)
3167 ioctl(read_cmd_fd
, TCSETA
, &tnew
);
3173 * for "old" tty systems
3176 # define TIOCSETN TIOCSETP /* for hpux 9.0 */
3178 static struct sgttyb ttybold
;
3179 struct sgttyb ttybnew
;
3184 ioctl(read_cmd_fd
, TIOCGETP
, &ttybold
);
3188 if (tmode
== TMODE_RAW
)
3190 ttybnew
.sg_flags
&= ~(CRMOD
| ECHO
);
3191 ttybnew
.sg_flags
|= RAW
;
3193 else if (tmode
== TMODE_SLEEP
)
3194 ttybnew
.sg_flags
&= ~(ECHO
);
3195 ioctl(read_cmd_fd
, TIOCSETN
, &ttybnew
);
3201 * Try to get the code for "t_kb" from the stty setting
3203 * Even if termcap claims a backspace key, the user's setting *should*
3204 * prevail. stty knows more about reality than termcap does, and if
3205 * somebody's usual erase key is DEL (which, for most BSD users, it will
3206 * be), they're going to get really annoyed if their erase key starts
3207 * doing forward deletes for no reason. (Eric Fischer)
3215 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3216 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3217 /* for "new" tty systems */
3218 # ifdef HAVE_TERMIOS_H
3219 struct termios keys
;
3224 # if defined(HAVE_TERMIOS_H)
3225 if (tcgetattr(read_cmd_fd
, &keys
) != -1)
3227 if (ioctl(read_cmd_fd
, TCGETA
, &keys
) != -1)
3230 buf
[0] = keys
.c_cc
[VERASE
];
3231 intr_char
= keys
.c_cc
[VINTR
];
3233 /* for "old" tty systems */
3236 if (ioctl(read_cmd_fd
, TIOCGETP
, &keys
) != -1)
3238 buf
[0] = keys
.sg_erase
;
3239 intr_char
= keys
.sg_kill
;
3242 add_termcode((char_u
*)"kb", buf
, FALSE
);
3245 * If <BS> and <DEL> are now the same, redefine <DEL>.
3247 p
= find_termcode((char_u
*)"kD");
3248 if (p
!= NULL
&& p
[0] == buf
[0] && p
[1] == buf
[1])
3252 } /* to keep cindent happy */
3258 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
3260 * Set mouse clicks on or off.
3266 static int ison
= FALSE
;
3267 int xterm_mouse_vers
;
3269 if (on
== ison
) /* return quickly if nothing to do */
3272 xterm_mouse_vers
= use_xterm_mouse();
3273 if (xterm_mouse_vers
> 0)
3275 if (on
) /* enable mouse events, use mouse tracking if available */
3276 out_str_nf((char_u
*)
3277 (xterm_mouse_vers
> 1
3278 ? IF_EB("\033[?1002h", ESC_STR
"[?1002h")
3279 : IF_EB("\033[?1000h", ESC_STR
"[?1000h")));
3280 else /* disable mouse events, could probably always send the same */
3281 out_str_nf((char_u
*)
3282 (xterm_mouse_vers
> 1
3283 ? IF_EB("\033[?1002l", ESC_STR
"[?1002l")
3284 : IF_EB("\033[?1000l", ESC_STR
"[?1000l")));
3288 # ifdef FEAT_MOUSE_DEC
3289 else if (ttym_flags
== TTYM_DEC
)
3291 if (on
) /* enable mouse events */
3292 out_str_nf((char_u
*)"\033[1;2'z\033[1;3'{");
3293 else /* disable mouse events */
3294 out_str_nf((char_u
*)"\033['z");
3299 # ifdef FEAT_MOUSE_GPM
3315 # ifdef FEAT_SYSMOUSE
3320 if (sysmouse_open() == OK
)
3331 # ifdef FEAT_MOUSE_JSB
3336 /* D - Enable Mouse up/down messages
3337 * L - Enable Left Button Reporting
3338 * M - Enable Middle Button Reporting
3339 * R - Enable Right Button Reporting
3340 * K - Enable SHIFT and CTRL key Reporting
3341 * + - Enable Advanced messaging of mouse moves and up/down messages
3343 * # - Numeric value of mouse pointer required
3344 * 0 = Multiview 2000 cursor, used as standard
3346 * 2 = Windows I Beam
3347 * 3 = Windows Hour Glass
3348 * 4 = Windows Cross Hair
3349 * 5 = Windows UP Arrow
3351 #ifdef JSBTERM_MOUSE_NONADVANCED /* Disables full feedback of pointer movements */
3352 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK1Q\033\\",
3353 ESC_STR
"[0~ZwLMRK1Q" ESC_STR
"\\"));
3355 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK+1Q\033\\",
3356 ESC_STR
"[0~ZwLMRK+1Q" ESC_STR
"\\"));
3362 out_str_nf((char_u
*)IF_EB("\033[0~ZwQ\033\\",
3363 ESC_STR
"[0~ZwQ" ESC_STR
"\\"));
3368 # ifdef FEAT_MOUSE_PTERM
3371 /* 1 = button press, 6 = release, 7 = drag, 1h...9l = right button */
3373 out_str_nf("\033[>1h\033[>6h\033[>7h\033[>1h\033[>9l");
3375 out_str_nf("\033[>1l\033[>6l\033[>7l\033[>1l\033[>9h");
3382 * Set the mouse termcode, depending on the 'term' and 'ttymouse' options.
3385 check_mouse_termcode()
3387 # ifdef FEAT_MOUSE_XTERM
3388 if (use_xterm_mouse()
3394 set_mouse_termcode(KS_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3395 ? IF_EB("\233M", CSI_STR
"M")
3396 : IF_EB("\033[M", ESC_STR
"[M")));
3397 if (*p_mouse
!= NUL
)
3399 /* force mouse off and maybe on to send possibly new mouse
3400 * activation sequence to the xterm, with(out) drag tracing. */
3401 mch_setmouse(FALSE
);
3406 del_mouse_termcode(KS_MOUSE
);
3409 # ifdef FEAT_MOUSE_GPM
3410 if (!use_xterm_mouse()
3415 set_mouse_termcode(KS_MOUSE
, (char_u
*)IF_EB("\033MG", ESC_STR
"MG"));
3418 # ifdef FEAT_SYSMOUSE
3419 if (!use_xterm_mouse()
3424 set_mouse_termcode(KS_MOUSE
, (char_u
*)IF_EB("\033MS", ESC_STR
"MS"));
3427 # ifdef FEAT_MOUSE_JSB
3428 /* conflicts with xterm mouse: "\033[" and "\033[M" ??? */
3429 if (!use_xterm_mouse()
3434 set_mouse_termcode(KS_JSBTERM_MOUSE
,
3435 (char_u
*)IF_EB("\033[0~zw", ESC_STR
"[0~zw"));
3437 del_mouse_termcode(KS_JSBTERM_MOUSE
);
3440 # ifdef FEAT_MOUSE_NET
3441 /* There is no conflict, but one may type "ESC }" from Insert mode. Don't
3442 * define it in the GUI or when using an xterm. */
3443 if (!use_xterm_mouse()
3448 set_mouse_termcode(KS_NETTERM_MOUSE
,
3449 (char_u
*)IF_EB("\033}", ESC_STR
"}"));
3451 del_mouse_termcode(KS_NETTERM_MOUSE
);
3454 # ifdef FEAT_MOUSE_DEC
3455 /* conflicts with xterm mouse: "\033[" and "\033[M" */
3456 if (!use_xterm_mouse()
3461 set_mouse_termcode(KS_DEC_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3462 ? IF_EB("\233", CSI_STR
) : IF_EB("\033[", ESC_STR
"[")));
3464 del_mouse_termcode(KS_DEC_MOUSE
);
3466 # ifdef FEAT_MOUSE_PTERM
3467 /* same as the dec mouse */
3468 if (!use_xterm_mouse()
3473 set_mouse_termcode(KS_PTERM_MOUSE
,
3474 (char_u
*) IF_EB("\033[", ESC_STR
"["));
3476 del_mouse_termcode(KS_PTERM_MOUSE
);
3482 * set screen mode, always fails.
3489 EMSG(_(e_screenmode
));
3496 * Try to get the current window size:
3497 * 1. with an ioctl(), most accurate method
3498 * 2. from the environment variables LINES and COLUMNS
3499 * 3. from the termcap
3500 * 4. keep using the old values
3501 * Return OK when size could be determined, FAIL otherwise.
3511 * For OS/2 use _scrsize().
3524 * 1. try using an ioctl. It is the most accurate method.
3526 * Try using TIOCGWINSZ first, some systems that have it also define
3527 * TIOCGSIZE but don't have a struct ttysize.
3534 /* When stdout is not a tty, use stdin for the ioctl(). */
3535 if (!isatty(fd
) && isatty(read_cmd_fd
))
3537 if (ioctl(fd
, TIOCGWINSZ
, &ws
) == 0)
3539 columns
= ws
.ws_col
;
3543 # else /* TIOCGWINSZ */
3549 /* When stdout is not a tty, use stdin for the ioctl(). */
3550 if (!isatty(fd
) && isatty(read_cmd_fd
))
3552 if (ioctl(fd
, TIOCGSIZE
, &ts
) == 0)
3554 columns
= ts
.ts_cols
;
3558 # endif /* TIOCGSIZE */
3559 # endif /* TIOCGWINSZ */
3562 * 2. get size from environment
3563 * When being POSIX compliant ('|' flag in 'cpoptions') this overrules
3564 * the ioctl() values!
3566 if (columns
== 0 || rows
== 0 || vim_strchr(p_cpo
, CPO_TSIZE
) != NULL
)
3568 if ((p
= (char_u
*)getenv("LINES")))
3569 rows
= atoi((char *)p
);
3570 if ((p
= (char_u
*)getenv("COLUMNS")))
3571 columns
= atoi((char *)p
);
3576 * 3. try reading "co" and "li" entries from termcap
3578 if (columns
== 0 || rows
== 0)
3579 getlinecol(&columns
, &rows
);
3583 * 4. If everything fails, use the old values
3585 if (columns
<= 0 || rows
<= 0)
3594 * Try to set the window size to Rows and Columns.
3602 * NOTE: if you get an error here that term_set_winsize() is
3603 * undefined, check the output of configure. It could probably not
3604 * find a ncurses, termcap or termlib library.
3606 term_set_winsize((int)Rows
, (int)Columns
);
3608 screen_start(); /* don't know where cursor is now */
3615 * Rows and/or Columns has changed.
3620 /* Nothing to do. */
3624 static void append_ga_line
__ARGS((garray_T
*gap
));
3627 * Append the text in "gap" below the cursor line and clear "gap".
3633 /* Remove trailing CR. */
3636 && ((char_u
*)gap
->ga_data
)[gap
->ga_len
- 1] == CAR
)
3638 ga_append(gap
, NUL
);
3639 ml_append(curwin
->w_cursor
.lnum
++, gap
->ga_data
, 0, FALSE
);
3645 mch_call_shell(cmd
, options
)
3647 int options
; /* SHELL_*, see vim.h */
3653 int tmode
= cur_tmode
;
3654 #ifdef USE_SYSTEM /* use system() to start the shell: simple but slow */
3657 char_u
*newcmd
; /* only needed for unix */
3660 * Set the preferred shell in the EMXSHELL environment variable (but
3661 * only if it is different from what is already in the environment).
3662 * Emx then takes care of whether to use "/c" or "-c" in an
3663 * intelligent way. Simply pass the whole thing to emx's system() call.
3664 * Emx also starts an interactive shell if system() is passed an empty
3669 if (((old
= (char_u
*)getenv("EMXSHELL")) == NULL
) || STRCMP(old
, p_sh
))
3671 /* should check HAVE_SETENV, but I know we don't have it. */
3672 p
= alloc(10 + strlen(p_sh
));
3675 sprintf((char *)p
, "EMXSHELL=%s", p_sh
);
3676 putenv((char *)p
); /* don't free the pointer! */
3683 if (options
& SHELL_COOKED
)
3684 settmode(TMODE_COOK
); /* set to normal mode */
3688 x
= system(""); /* this starts an interactive shell in emx */
3690 x
= system((char *)cmd
);
3691 /* system() returns -1 when error occurs in starting shell */
3692 if (x
== -1 && !emsg_silent
)
3694 MSG_PUTS(_("\nCannot execute shell "));
3698 # else /* not __EMX__ */
3700 x
= system((char *)p_sh
);
3704 if (ofn
= strchr((char *)cmd
, '>'))
3706 if (ifn
= strchr((char *)cmd
, '<'))
3711 p
= strchr(ifn
,' '); /* chop off any trailing spaces */
3716 x
= vms_sys((char *)cmd
, ofn
, ifn
);
3718 x
= system((char *)cmd
);
3720 newcmd
= lalloc(STRLEN(p_sh
)
3721 + (extra_shell_arg
== NULL
? 0 : STRLEN(extra_shell_arg
))
3722 + STRLEN(p_shcf
) + STRLEN(cmd
) + 4, TRUE
);
3727 sprintf((char *)newcmd
, "%s %s %s %s", p_sh
,
3728 extra_shell_arg
== NULL
? "" : (char *)extra_shell_arg
,
3731 x
= system((char *)newcmd
);
3737 x
= vms_sys_status(x
);
3742 MSG_PUTS(_("\nCannot execute shell sh\n"));
3743 # endif /* __EMX__ */
3744 else if (x
&& !(options
& SHELL_SILENT
))
3746 MSG_PUTS(_("\nshell returned "));
3747 msg_outnum((long)x
);
3751 if (tmode
== TMODE_RAW
)
3752 settmode(TMODE_RAW
); /* set to raw mode */
3758 #else /* USE_SYSTEM */ /* don't use system(), use fork()/exec() */
3760 # define EXEC_FAILED 122 /* Exit code when shell didn't execute. Don't use
3761 127, some shells use that already */
3763 char_u
*newcmd
= NULL
;
3767 # ifdef HAVE_UNION_WAIT
3778 int pty_master_fd
= -1; /* for pty's */
3780 int pty_slave_fd
= -1;
3783 int fd_toshell
[2]; /* for pipes */
3784 int fd_fromshell
[2];
3785 int pipe_error
= FALSE
;
3789 static char envbuf_Rows
[20];
3790 static char envbuf_Columns
[20];
3792 int did_settmode
= FALSE
; /* settmode(TMODE_RAW) called */
3795 if (options
& SHELL_COOKED
)
3796 settmode(TMODE_COOK
); /* set to normal mode */
3798 newcmd
= vim_strsave(p_sh
);
3799 if (newcmd
== NULL
) /* out of memory */
3803 * Do this loop twice:
3804 * 1: find number of arguments
3805 * 2: separate them and build argv[]
3807 for (i
= 0; i
< 2; ++i
)
3815 argv
[argc
] = (char *)p
;
3817 while (*p
&& (inquote
|| (*p
!= ' ' && *p
!= TAB
)))
3831 argv
= (char **)alloc((unsigned)((argc
+ 4) * sizeof(char *)));
3832 if (argv
== NULL
) /* out of memory */
3838 if (extra_shell_arg
!= NULL
)
3839 argv
[argc
++] = (char *)extra_shell_arg
;
3840 argv
[argc
++] = (char *)p_shcf
;
3841 argv
[argc
++] = (char *)cmd
;
3846 * For the GUI, when writing the output into the buffer and when reading
3847 * input from the buffer: Try using a pseudo-tty to get the stdin/stdout
3848 * of the executed command into the Vim window. Or use a pipe.
3850 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3852 || (gui
.in_use
&& show_shell_mess
)
3858 * Try to open a master pty.
3859 * If this works, open the slave pty.
3860 * If the slave can't be opened, close the master pty.
3862 if (p_guipty
&& !(options
& (SHELL_READ
|SHELL_WRITE
)))
3864 pty_master_fd
= OpenPTY(&tty_name
); /* open pty */
3865 if (pty_master_fd
>= 0 && ((pty_slave_fd
=
3866 open(tty_name
, O_RDWR
| O_EXTRA
, 0)) < 0))
3868 close(pty_master_fd
);
3873 * If not opening a pty or it didn't work, try using pipes.
3875 if (pty_master_fd
< 0)
3878 pipe_error
= (pipe(fd_toshell
) < 0);
3879 if (!pipe_error
) /* pipe create OK */
3881 pipe_error
= (pipe(fd_fromshell
) < 0);
3882 if (pipe_error
) /* pipe create failed */
3884 close(fd_toshell
[0]);
3885 close(fd_toshell
[1]);
3890 MSG_PUTS(_("\nCannot create pipes\n"));
3896 if (!pipe_error
) /* pty or pipe opened or not used */
3899 beos_cleanup_read_thread();
3902 if ((pid
= fork()) == -1) /* maybe we should use vfork() */
3904 MSG_PUTS(_("\nCannot fork\n"));
3905 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3907 || (gui
.in_use
&& show_shell_mess
)
3912 if (pty_master_fd
>= 0) /* close the pseudo tty */
3914 close(pty_master_fd
);
3915 close(pty_slave_fd
);
3917 else /* close the pipes */
3920 close(fd_toshell
[0]);
3921 close(fd_toshell
[1]);
3922 close(fd_fromshell
[0]);
3923 close(fd_fromshell
[1]);
3927 else if (pid
== 0) /* child */
3929 reset_signals(); /* handle signals normally */
3931 if (!show_shell_mess
|| (options
& SHELL_EXPAND
))
3936 * Don't want to show any message from the shell. Can't just
3937 * close stdout and stderr though, because some systems will
3938 * break if you try to write to them after that, so we must
3939 * use dup() to replace them with something else -- webb
3940 * Connect stdin to /dev/null too, so ":n `cat`" doesn't hang,
3941 * waiting for input.
3943 fd
= open("/dev/null", O_RDWR
| O_EXTRA
, 0);
3949 * If any of these open()'s and dup()'s fail, we just continue
3950 * anyway. It's not fatal, and on most systems it will make
3951 * no difference at all. On a few it will cause the execvp()
3952 * to exit with a non-zero status even when the completion
3953 * could be done, which is nothing too serious. If the open()
3954 * or dup() failed we'd just do the same thing ourselves
3959 ignored
= dup(fd
); /* To replace stdin (fd 0) */
3960 ignored
= dup(fd
); /* To replace stdout (fd 1) */
3961 ignored
= dup(fd
); /* To replace stderr (fd 2) */
3963 /* Don't need this now that we've duplicated it */
3967 else if ((options
& (SHELL_READ
|SHELL_WRITE
))
3975 /* Create our own process group, so that the child and all its
3976 * children can be kill()ed. Don't do this when using pipes,
3977 * because stdin is not a tty, we would lose /dev/tty. */
3981 # if defined(SIGHUP)
3982 /* When doing "!xterm&" and 'shell' is bash: the shell
3983 * will exit and send SIGHUP to all processes in its
3984 * group, killing the just started process. Ignore SIGHUP
3985 * to avoid that. (suggested by Simon Schubert)
3987 signal(SIGHUP
, SIG_IGN
);
3992 if (pty_slave_fd
>= 0)
3994 /* push stream discipline modules */
3995 if (options
& SHELL_COOKED
)
3996 SetupSlavePTY(pty_slave_fd
);
3998 /* Try to become controlling tty (probably doesn't work,
3999 * unless run by root) */
4000 ioctl(pty_slave_fd
, TIOCSCTTY
, (char *)NULL
);
4004 /* Simulate to have a dumb terminal (for now) */
4006 setenv("TERM", "dumb", 1);
4007 sprintf((char *)envbuf
, "%ld", Rows
);
4008 setenv("ROWS", (char *)envbuf
, 1);
4009 sprintf((char *)envbuf
, "%ld", Rows
);
4010 setenv("LINES", (char *)envbuf
, 1);
4011 sprintf((char *)envbuf
, "%ld", Columns
);
4012 setenv("COLUMNS", (char *)envbuf
, 1);
4015 * Putenv does not copy the string, it has to remain valid.
4016 * Use a static array to avoid losing allocated memory.
4018 putenv("TERM=dumb");
4019 sprintf(envbuf_Rows
, "ROWS=%ld", Rows
);
4020 putenv(envbuf_Rows
);
4021 sprintf(envbuf_Rows
, "LINES=%ld", Rows
);
4022 putenv(envbuf_Rows
);
4023 sprintf(envbuf_Columns
, "COLUMNS=%ld", Columns
);
4024 putenv(envbuf_Columns
);
4028 * stderr is only redirected when using the GUI, so that a
4029 * program like gpg can still access the terminal to get a
4030 * passphrase using stderr.
4033 if (pty_master_fd
>= 0)
4035 close(pty_master_fd
); /* close master side of pty */
4037 /* set up stdin/stdout/stderr for the child */
4039 ignored
= dup(pty_slave_fd
);
4041 ignored
= dup(pty_slave_fd
);
4045 ignored
= dup(pty_slave_fd
);
4048 close(pty_slave_fd
); /* has been dupped, close it now */
4053 /* set up stdin for the child */
4054 close(fd_toshell
[1]);
4056 ignored
= dup(fd_toshell
[0]);
4057 close(fd_toshell
[0]);
4059 /* set up stdout for the child */
4060 close(fd_fromshell
[0]);
4062 ignored
= dup(fd_fromshell
[1]);
4063 close(fd_fromshell
[1]);
4068 /* set up stderr for the child */
4077 * There is no type cast for the argv, because the type may be
4078 * different on different machines. This may cause a warning
4079 * message with strict compilers, don't worry about it.
4080 * Call _exit() instead of exit() to avoid closing the connection
4081 * to the X server (esp. with GTK, which uses atexit()).
4083 execvp(argv
[0], argv
);
4084 _exit(EXEC_FAILED
); /* exec failed, return failure code */
4089 * While child is running, ignore terminating signals.
4090 * Do catch CTRL-C, so that "got_int" is set.
4092 catch_signals(SIG_IGN
, SIG_ERR
);
4096 * For the GUI we redirect stdin, stdout and stderr to our window.
4097 * This is also used to pipe stdin/stdout to/from the external
4100 if ((options
& (SHELL_READ
|SHELL_WRITE
))
4102 || (gui
.in_use
&& show_shell_mess
)
4106 # define BUFLEN 100 /* length for buffer, pseudo tty limit is 128 */
4107 char_u buffer
[BUFLEN
+ 1];
4109 int buffer_off
= 0; /* valid bytes in buffer[] */
4111 char_u ta_buf
[BUFLEN
+ 1]; /* TypeAHead */
4112 int ta_len
= 0; /* valid bytes in ta_buf[] */
4121 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4122 struct timeval start_tv
;
4126 if (pty_master_fd
>= 0)
4128 close(pty_slave_fd
); /* close slave side of pty */
4129 fromshell_fd
= pty_master_fd
;
4130 toshell_fd
= dup(pty_master_fd
);
4135 close(fd_toshell
[0]);
4136 close(fd_fromshell
[1]);
4137 toshell_fd
= fd_toshell
[1];
4138 fromshell_fd
= fd_fromshell
[0];
4142 * Write to the child if there are typed characters.
4143 * Read from the child if there are characters available.
4144 * Repeat the reading a few times if more characters are
4145 * available. Need to check for typed keys now and then, but
4146 * not too often (delays when no chars are available).
4147 * This loop is quit if no characters can be read from the pty
4148 * (WaitForChar detected special condition), or there are no
4149 * characters available and the child has exited.
4150 * Only check if the child has exited when there is no more
4151 * output. The child may exit before all the output has
4154 * Currently this busy loops!
4155 * This can probably dead-lock when the write blocks!
4157 p_more_save
= p_more
;
4160 State
= EXTERNCMD
; /* don't redraw at window resize */
4162 if ((options
& SHELL_WRITE
) && toshell_fd
>= 0)
4164 /* Fork a process that will write the lines to the
4165 * external program. */
4166 if ((wpid
= fork()) == -1)
4168 MSG_PUTS(_("\nCannot fork\n"));
4172 linenr_T lnum
= curbuf
->b_op_start
.lnum
;
4174 char_u
*lp
= ml_get(lnum
);
4179 close(fromshell_fd
);
4182 l
= STRLEN(lp
+ written
);
4185 else if (lp
[written
] == NL
)
4186 /* NL -> NUL translation */
4187 len
= write(toshell_fd
, "", (size_t)1);
4190 s
= vim_strchr(lp
+ written
, NL
);
4191 len
= write(toshell_fd
, (char *)lp
+ written
,
4192 s
== NULL
? l
: s
- (lp
+ written
));
4196 /* Finished a line, add a NL, unless this line
4197 * should not have one. */
4198 if (lnum
!= curbuf
->b_op_end
.lnum
4200 || (lnum
!= write_no_eol_lnum
4202 curbuf
->b_ml
.ml_line_count
4203 || curbuf
->b_p_eol
)))
4204 ignored
= write(toshell_fd
, "\n",
4207 if (lnum
> curbuf
->b_op_end
.lnum
)
4209 /* finished all the lines, close pipe */
4229 if (options
& SHELL_READ
)
4230 ga_init2(&ga
, 1, BUFLEN
);
4233 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4234 gettimeofday(&start_tv
, NULL
);
4239 * Check if keys have been typed, write them to the child
4241 * Don't do this if we are expanding wild cards (would eat
4243 * Don't do this when filtering and terminal is in cooked
4244 * mode, the shell command will handle the I/O. Avoids
4245 * that a typed password is echoed for ssh or gpg command.
4246 * Don't get characters when the child has already
4247 * finished (wait_pid == 0).
4248 * Don't read characters unless we didn't get output for a
4249 * while (noread_cnt > 4), avoids that ":r !ls" eats
4253 if (!(options
& SHELL_EXPAND
)
4255 (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
))
4256 != (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
)
4262 && (ta_len
> 0 || noread_cnt
> 4))
4266 /* Get extra characters when we don't have any.
4267 * Reset the counter and timer. */
4269 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4270 gettimeofday(&start_tv
, NULL
);
4272 len
= ui_inchar(ta_buf
, BUFLEN
, 10L, 0);
4274 if (ta_len
> 0 || len
> 0)
4278 * Check for CTRL-C: send interrupt signal to child.
4279 * Check for CTRL-D: EOF, close pipe to child.
4281 if (len
== 1 && (pty_master_fd
< 0 || cmd
!= NULL
))
4285 * Send SIGINT to the child's group or all
4286 * processes in our group.
4288 if (ta_buf
[ta_len
] == Ctrl_C
4289 || ta_buf
[ta_len
] == intr_char
)
4300 if (pty_master_fd
< 0 && toshell_fd
>= 0
4301 && ta_buf
[ta_len
] == Ctrl_D
)
4308 /* replace K_BS by <BS> and K_DEL by <DEL> */
4309 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4311 if (ta_buf
[i
] == CSI
&& len
- i
> 2)
4313 c
= TERMCAP2KEY(ta_buf
[i
+ 1], ta_buf
[i
+ 2]);
4314 if (c
== K_DEL
|| c
== K_KDEL
|| c
== K_BS
)
4316 mch_memmove(ta_buf
+ i
+ 1, ta_buf
+ i
+ 3,
4317 (size_t)(len
- i
- 2));
4318 if (c
== K_DEL
|| c
== K_KDEL
)
4325 else if (ta_buf
[i
] == '\r')
4329 i
+= (*mb_ptr2len
)(ta_buf
+ i
) - 1;
4334 * For pipes: echo the typed characters.
4335 * For a pty this does not seem to work.
4337 if (pty_master_fd
< 0)
4339 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4341 if (ta_buf
[i
] == '\n' || ta_buf
[i
] == '\b')
4342 msg_putchar(ta_buf
[i
]);
4346 int l
= (*mb_ptr2len
)(ta_buf
+ i
);
4348 msg_outtrans_len(ta_buf
+ i
, l
);
4353 msg_outtrans_len(ta_buf
+ i
, 1);
4355 windgoto(msg_row
, msg_col
);
4362 * Write the characters to the child, unless EOF has
4363 * been typed for pipes. Write one character at a
4364 * time, to avoid losing too much typeahead.
4365 * When writing buffer lines, drop the typed
4366 * characters (only check for CTRL-C).
4368 if (options
& SHELL_WRITE
)
4370 else if (toshell_fd
>= 0)
4372 len
= write(toshell_fd
, (char *)ta_buf
, (size_t)1);
4376 mch_memmove(ta_buf
, ta_buf
+ len
, ta_len
);
4384 /* CTRL-C sends a signal to the child, we ignore it
4397 * Check if the child has any characters to be printed.
4398 * Read them and write them to our window. Repeat this as
4399 * long as there is something to do, avoid the 10ms wait
4400 * for mch_inchar(), or sending typeahead characters to
4401 * the external process.
4402 * TODO: This should handle escape sequences, compatible
4403 * to some terminal (vt52?).
4406 while (RealWaitForChar(fromshell_fd
, 10L, NULL
))
4408 len
= read(fromshell_fd
, (char *)buffer
4410 + buffer_off
, (size_t)(BUFLEN
- buffer_off
)
4415 if (len
<= 0) /* end of file or error */
4419 if (options
& SHELL_READ
)
4421 /* Do NUL -> NL translation, append NL separated
4422 * lines to the current buffer. */
4423 for (i
= 0; i
< len
; ++i
)
4425 if (buffer
[i
] == NL
)
4426 append_ga_line(&ga
);
4427 else if (buffer
[i
] == NUL
)
4430 ga_append(&ga
, buffer
[i
]);
4441 /* Check if the last character in buffer[] is
4442 * incomplete, keep these bytes for the next
4444 for (p
= buffer
; p
< buffer
+ len
; p
+= l
)
4448 l
= 1; /* NUL byte? */
4449 else if (MB_BYTE2LEN(*p
) != l
)
4452 if (p
== buffer
) /* no complete character */
4454 /* avoid getting stuck at an illegal byte */
4466 if (p
< buffer
+ len
)
4469 buffer_off
= (buffer
+ len
) - p
;
4470 mch_memmove(buffer
, p
, buffer_off
);
4475 # endif /* FEAT_MBYTE */
4482 windgoto(msg_row
, msg_col
);
4488 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4490 struct timeval now_tv
;
4493 /* Avoid that we keep looping here without
4494 * checking for a CTRL-C for a long time. Don't
4495 * break out too often to avoid losing typeahead. */
4496 gettimeofday(&now_tv
, NULL
);
4497 msec
= (now_tv
.tv_sec
- start_tv
.tv_sec
) * 1000L
4498 + (now_tv
.tv_usec
- start_tv
.tv_usec
) / 1000L;
4508 /* If we already detected the child has finished break the
4510 if (wait_pid
== pid
)
4514 * Check if the child still exists, before checking for
4515 * typed characters (otherwise we would lose typeahead).
4518 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*) 0);
4520 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4522 if ((wait_pid
== (pid_t
)-1 && errno
== ECHILD
)
4523 || (wait_pid
== pid
&& WIFEXITED(status
)))
4525 /* Don't break the loop yet, try reading more
4526 * characters from "fromshell_fd" first. When using
4527 * pipes there might still be something to read and
4528 * then we'll break the loop at the "break" above. */
4535 p_more
= p_more_save
;
4536 if (options
& SHELL_READ
)
4540 append_ga_line(&ga
);
4541 /* remember that the NL was missing */
4542 write_no_eol_lnum
= curwin
->w_cursor
.lnum
;
4545 write_no_eol_lnum
= 0;
4550 * Give all typeahead that wasn't used back to ui_inchar().
4553 ui_inchar_undo(ta_buf
, ta_len
);
4555 if (toshell_fd
>= 0)
4557 close(fromshell_fd
);
4561 * Wait until our child has exited.
4562 * Ignore wait() returning pids of other children and returning
4563 * because of some signal like SIGWINCH.
4564 * Don't wait if wait_pid was already set above, indicating the
4565 * child already exited.
4567 while (wait_pid
!= pid
)
4569 # ifdef _THREAD_SAFE
4570 /* Ugly hack: when compiled with Python threads are probably
4571 * used, in which case wait() sometimes hangs for no obvious
4572 * reason. Use waitpid() instead and loop (like the GUI). */
4574 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*)0);
4576 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4580 /* Wait for 1/100 sec before trying again. */
4581 mch_delay(10L, TRUE
);
4585 wait_pid
= wait(&status
);
4595 /* Make sure the child that writes to the external program is
4598 kill(wpid
, SIGKILL
);
4601 * Set to raw mode right now, otherwise a CTRL-C after
4602 * catch_signals() will kill Vim.
4604 if (tmode
== TMODE_RAW
)
4605 settmode(TMODE_RAW
);
4606 did_settmode
= TRUE
;
4609 if (WIFEXITED(status
))
4611 /* LINTED avoid "bitwise operation on signed value" */
4612 retval
= WEXITSTATUS(status
);
4613 if (retval
&& !emsg_silent
)
4615 if (retval
== EXEC_FAILED
)
4617 MSG_PUTS(_("\nCannot execute shell "));
4621 else if (!(options
& SHELL_SILENT
))
4623 MSG_PUTS(_("\nshell returned "));
4624 msg_outnum((long)retval
);
4630 MSG_PUTS(_("\nCommand terminated\n"));
4637 if (tmode
== TMODE_RAW
)
4638 settmode(TMODE_RAW
); /* set to raw mode */
4646 #endif /* USE_SYSTEM */
4650 * Check for CTRL-C typed by reading all available characters.
4651 * In cooked mode we should get SIGINT, no need to check.
4656 if (curr_tmode
== TMODE_RAW
&& RealWaitForChar(read_cmd_fd
, 0L, NULL
))
4657 fill_input_buf(FALSE
);
4661 * Wait "msec" msec until a character is available from the keyboard or from
4662 * inbuf[]. msec == -1 will block forever.
4663 * When a GUI is being used, this will never get called -- webb
4669 #ifdef FEAT_MOUSE_GPM
4670 int gpm_process_wanted
;
4672 #ifdef FEAT_XCLIPBOARD
4677 if (input_available()) /* something in inbuf[] */
4680 #if defined(FEAT_MOUSE_DEC)
4681 /* May need to query the mouse position. */
4684 WantQueryMouse
= FALSE
;
4685 mch_write((char_u
*)IF_EB("\033[1'|", ESC_STR
"[1'|"), 5);
4690 * For FEAT_MOUSE_GPM and FEAT_XCLIPBOARD we loop here to process mouse
4691 * events. This is a bit complicated, because they might both be defined.
4693 #if defined(FEAT_MOUSE_GPM) || defined(FEAT_XCLIPBOARD)
4694 # ifdef FEAT_XCLIPBOARD
4696 if (do_xterm_trace())
4701 # ifdef FEAT_XCLIPBOARD
4704 msec
= XT_TRACE_DELAY
;
4705 if (rest
>= 0 && rest
< XT_TRACE_DELAY
)
4711 # ifdef FEAT_MOUSE_GPM
4712 gpm_process_wanted
= 0;
4713 avail
= RealWaitForChar(read_cmd_fd
, msec
, &gpm_process_wanted
);
4715 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4719 if (input_available())
4721 # ifdef FEAT_XCLIPBOARD
4722 if (rest
== 0 || !do_xterm_trace())
4728 # ifdef FEAT_MOUSE_GPM
4729 || (gpm_process_wanted
&& mch_gpm_process() == 0)
4731 # ifdef FEAT_XCLIPBOARD
4732 || (!avail
&& rest
!= 0)
4737 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4743 * Wait "msec" msec until a character is available from file descriptor "fd".
4744 * Time == -1 will block forever.
4745 * When a GUI is being used, this will not be used for input -- webb
4746 * Returns also, when a request from Sniff is waiting -- toni.
4747 * Or when a Linux GPM mouse event is waiting.
4750 #if defined(__BEOS__)
4755 RealWaitForChar(fd
, msec
, check_for_gpm
)
4761 #if defined(FEAT_XCLIPBOARD) || defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4762 static int busy
= FALSE
;
4764 /* May retry getting characters after an event was handled. */
4767 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4768 /* Remember at what time we started, so that we know how much longer we
4769 * should wait after being interrupted. */
4770 # define USE_START_TV
4771 struct timeval start_tv
;
4774 # ifdef FEAT_XCLIPBOARD
4775 xterm_Shell
!= (Widget
)0
4776 # if defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4782 # ifdef FEAT_MZSCHEME
4786 # ifdef FEAT_MZSCHEME
4787 (mzthreads_allowed() && p_mzq
> 0)
4790 gettimeofday(&start_tv
, NULL
);
4793 /* Handle being called recursively. This may happen for the session
4794 * manager stuff, it may save the file, which does a breakcheck. */
4804 int finished
= TRUE
; /* default is to 'loop' just once */
4805 # ifdef FEAT_MZSCHEME
4806 int mzquantum_used
= FALSE
;
4810 struct pollfd fds
[5];
4812 # ifdef FEAT_XCLIPBOARD
4815 # ifdef FEAT_MOUSE_GPM
4821 int towait
= (int)msec
;
4823 # ifdef FEAT_MZSCHEME
4824 mzvim_check_threads();
4825 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4827 towait
= (int)p_mzq
; /* don't wait longer than 'mzquantum' */
4828 mzquantum_used
= TRUE
;
4832 fds
[0].events
= POLLIN
;
4836 # define SNIFF_IDX 1
4837 if (want_sniff_request
)
4839 fds
[SNIFF_IDX
].fd
= fd_from_sniff
;
4840 fds
[SNIFF_IDX
].events
= POLLIN
;
4844 # ifdef FEAT_XCLIPBOARD
4845 if (xterm_Shell
!= (Widget
)0)
4848 fds
[nfd
].fd
= ConnectionNumber(xterm_dpy
);
4849 fds
[nfd
].events
= POLLIN
;
4853 # ifdef FEAT_MOUSE_GPM
4854 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4857 fds
[nfd
].fd
= gpm_fd
;
4858 fds
[nfd
].events
= POLLIN
;
4863 if (xsmp_icefd
!= -1)
4866 fds
[nfd
].fd
= xsmp_icefd
;
4867 fds
[nfd
].events
= POLLIN
;
4872 ret
= poll(fds
, nfd
, towait
);
4873 # ifdef FEAT_MZSCHEME
4874 if (ret
== 0 && mzquantum_used
)
4875 /* MzThreads scheduling is required and timeout occurred */
4881 sniff_disconnect(1);
4882 else if (want_sniff_request
)
4884 if (fds
[SNIFF_IDX
].revents
& POLLHUP
)
4885 sniff_disconnect(1);
4886 if (fds
[SNIFF_IDX
].revents
& POLLIN
)
4887 sniff_request_waiting
= 1;
4890 # ifdef FEAT_XCLIPBOARD
4891 if (xterm_Shell
!= (Widget
)0 && (fds
[xterm_idx
].revents
& POLLIN
))
4893 xterm_update(); /* Maybe we should hand out clipboard */
4894 if (--ret
== 0 && !input_available())
4899 # ifdef FEAT_MOUSE_GPM
4900 if (gpm_idx
>= 0 && (fds
[gpm_idx
].revents
& POLLIN
))
4906 if (xsmp_idx
>= 0 && (fds
[xsmp_idx
].revents
& (POLLIN
| POLLHUP
)))
4908 if (fds
[xsmp_idx
].revents
& POLLIN
)
4911 xsmp_handle_requests();
4914 else if (fds
[xsmp_idx
].revents
& POLLHUP
)
4917 verb_msg((char_u
*)_("XSMP lost ICE connection"));
4921 finished
= FALSE
; /* Try again */
4926 #else /* HAVE_SELECT */
4929 struct timeval
*tvp
;
4934 # ifdef FEAT_MZSCHEME
4935 mzvim_check_threads();
4936 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4938 towait
= p_mzq
; /* don't wait longer than 'mzquantum' */
4939 mzquantum_used
= TRUE
;
4943 /* don't check for incoming chars if not in raw mode, because select()
4944 * always returns TRUE then (in some version of emx.dll) */
4945 if (curr_tmode
!= TMODE_RAW
)
4951 tv
.tv_sec
= towait
/ 1000;
4952 tv
.tv_usec
= (towait
% 1000) * (1000000/1000);
4959 * Select on ready for reading and exceptional condition (end of file).
4961 FD_ZERO(&rfds
); /* calls bzero() on a sun */
4964 # if !defined(__QNX__) && !defined(__CYGWIN32__)
4965 /* For QNX select() always returns 1 if this is set. Why? */
4971 if (want_sniff_request
)
4973 FD_SET(fd_from_sniff
, &rfds
);
4974 FD_SET(fd_from_sniff
, &efds
);
4975 if (maxfd
< fd_from_sniff
)
4976 maxfd
= fd_from_sniff
;
4979 # ifdef FEAT_XCLIPBOARD
4980 if (xterm_Shell
!= (Widget
)0)
4982 FD_SET(ConnectionNumber(xterm_dpy
), &rfds
);
4983 if (maxfd
< ConnectionNumber(xterm_dpy
))
4984 maxfd
= ConnectionNumber(xterm_dpy
);
4987 # ifdef FEAT_MOUSE_GPM
4988 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4990 FD_SET(gpm_fd
, &rfds
);
4991 FD_SET(gpm_fd
, &efds
);
4997 if (xsmp_icefd
!= -1)
4999 FD_SET(xsmp_icefd
, &rfds
);
5000 FD_SET(xsmp_icefd
, &efds
);
5001 if (maxfd
< xsmp_icefd
)
5007 /* Old VMS as v6.2 and older have broken select(). It waits more than
5008 * required. Should not be used */
5011 ret
= select(maxfd
+ 1, &rfds
, NULL
, &efds
, tvp
);
5014 if (ret
== -1 && errno
== ENOTSUP
)
5021 # ifdef FEAT_MZSCHEME
5022 if (ret
== 0 && mzquantum_used
)
5023 /* loop if MzThreads must be scheduled and timeout occurred */
5029 sniff_disconnect(1);
5030 else if (ret
> 0 && want_sniff_request
)
5032 if (FD_ISSET(fd_from_sniff
, &efds
))
5033 sniff_disconnect(1);
5034 if (FD_ISSET(fd_from_sniff
, &rfds
))
5035 sniff_request_waiting
= 1;
5038 # ifdef FEAT_XCLIPBOARD
5039 if (ret
> 0 && xterm_Shell
!= (Widget
)0
5040 && FD_ISSET(ConnectionNumber(xterm_dpy
), &rfds
))
5042 xterm_update(); /* Maybe we should hand out clipboard */
5043 /* continue looping when we only got the X event and the input
5044 * buffer is empty */
5045 if (--ret
== 0 && !input_available())
5052 # ifdef FEAT_MOUSE_GPM
5053 if (ret
> 0 && gpm_flag
&& check_for_gpm
!= NULL
&& gpm_fd
>= 0)
5055 if (FD_ISSET(gpm_fd
, &efds
))
5057 else if (FD_ISSET(gpm_fd
, &rfds
))
5062 if (ret
> 0 && xsmp_icefd
!= -1)
5064 if (FD_ISSET(xsmp_icefd
, &efds
))
5067 verb_msg((char_u
*)_("XSMP lost ICE connection"));
5070 finished
= FALSE
; /* keep going if event was only one */
5072 else if (FD_ISSET(xsmp_icefd
, &rfds
))
5075 xsmp_handle_requests();
5078 finished
= FALSE
; /* keep going if event was only one */
5083 #endif /* HAVE_SELECT */
5086 if (finished
|| msec
== 0)
5089 /* We're going to loop around again, find out for how long */
5092 # ifdef USE_START_TV
5095 /* Compute remaining wait time. */
5096 gettimeofday(&mtv
, NULL
);
5097 msec
-= (mtv
.tv_sec
- start_tv
.tv_sec
) * 1000L
5098 + (mtv
.tv_usec
- start_tv
.tv_usec
) / 1000L;
5100 /* Guess we got interrupted halfway. */
5104 break; /* waited long enough */
5114 #ifndef NO_EXPANDPATH
5116 * Expand a path into all matching files and/or directories. Handles "*",
5117 * "?", "[a-z]", "**", etc.
5118 * "path" has backslashes before chars that are not to be expanded.
5119 * Returns the number of matches found.
5122 mch_expandpath(gap
, path
, flags
)
5125 int flags
; /* EW_* flags */
5127 return unix_expandpath(gap
, path
, 0, flags
, FALSE
);
5132 * mch_expand_wildcards() - this code does wild-card pattern matching using
5135 * return OK for success, FAIL for error (you may lose some memory) and put
5136 * an error message in *file.
5138 * num_pat is number of input patterns
5139 * pat is array of pointers to input patterns
5140 * num_file is pointer to number of matched file names
5141 * file is pointer to array of pointers to matched file names
5151 #define SHELL_SPECIAL (char_u *)"\t \"&'$;<>()\\|"
5155 mch_expand_wildcards(num_pat
, pat
, num_file
, file
, flags
)
5160 int flags
; /* EW_* flags */
5168 * This is the OS/2 implementation.
5170 # define EXPL_ALLOC_INC 16
5171 char_u
**expl_files
;
5172 size_t files_alloced
, files_free
;
5176 *num_file
= 0; /* default: no files found */
5177 files_alloced
= EXPL_ALLOC_INC
; /* how much space is allocated */
5178 files_free
= EXPL_ALLOC_INC
; /* how much space is not used */
5179 *file
= (char_u
**)alloc(sizeof(char_u
**) * files_alloced
);
5183 for (; num_pat
> 0; num_pat
--, pat
++)
5186 if (vim_strchr(*pat
, '$') || vim_strchr(*pat
, '~'))
5187 /* expand environment var or home dir */
5188 buf
= expand_env_save(*pat
);
5190 buf
= vim_strsave(*pat
);
5192 has_wildcard
= mch_has_exp_wildcard(buf
); /* (still) wildcards? */
5193 if (has_wildcard
) /* yes, so expand them */
5194 expl_files
= (char_u
**)_fnexplode(buf
);
5197 * return value of buf if no wildcards left,
5198 * OR if no match AND EW_NOTFOUND is set.
5200 if ((!has_wildcard
&& ((flags
& EW_NOTFOUND
) || mch_getperm(buf
) >= 0))
5201 || (expl_files
== NULL
&& (flags
& EW_NOTFOUND
)))
5202 { /* simply save the current contents of *buf */
5203 expl_files
= (char_u
**)alloc(sizeof(char_u
**) * 2);
5204 if (expl_files
!= NULL
)
5206 expl_files
[0] = vim_strsave(buf
);
5207 expl_files
[1] = NULL
;
5213 * Count number of names resulting from expansion,
5214 * At the same time add a backslash to the end of names that happen to
5215 * be directories, and replace slashes with backslashes.
5219 for (i
= 0; (p
= expl_files
[i
]) != NULL
; i
++)
5222 /* If we don't want dirs and this is one, skip it */
5223 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5226 /* Skip files that are not executable if we check for that. */
5227 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe(p
))
5230 if (--files_free
== 0)
5232 /* need more room in table of pointers */
5233 files_alloced
+= EXPL_ALLOC_INC
;
5234 *file
= (char_u
**)vim_realloc(*file
,
5235 sizeof(char_u
**) * files_alloced
);
5238 EMSG(_(e_outofmem
));
5242 files_free
= EXPL_ALLOC_INC
;
5247 /* For a directory we add a '/', unless it's already
5250 if (((*file
)[*num_file
] = alloc(len
+ 2)) != NULL
)
5252 STRCPY((*file
)[*num_file
], p
);
5253 if (!after_pathsep((*file
)[*num_file
],
5254 (*file
)[*num_file
] + len
))
5256 (*file
)[*num_file
][len
] = psepc
;
5257 (*file
)[*num_file
][len
+ 1] = NUL
;
5263 (*file
)[*num_file
] = vim_strsave(p
);
5267 * Error message already given by either alloc or vim_strsave.
5268 * Should return FAIL, but returning OK works also.
5270 if ((*file
)[*num_file
] == NULL
)
5274 _fnexplodefree((char **)expl_files
);
5281 * This is the non-OS/2 implementation (really Unix).
5288 #define STYLE_ECHO 0 /* use "echo", the default */
5289 #define STYLE_GLOB 1 /* use "glob", for csh */
5290 #define STYLE_VIMGLOB 2 /* use "vimglob", for Posix sh */
5291 #define STYLE_PRINT 3 /* use "print -N", for zsh */
5292 #define STYLE_BT 4 /* `cmd` expansion, execute the pattern
5294 int shell_style
= STYLE_ECHO
;
5296 static int did_find_nul
= FALSE
;
5297 int ampersent
= FALSE
;
5298 /* vimglob() function to define for Posix shell */
5299 static char *sh_vimglob_func
= "vimglob() { while [ $# -ge 1 ]; do echo \"$1\"; shift; done }; vimglob >";
5301 *num_file
= 0; /* default: no files found */
5305 * If there are no wildcards, just copy the names to allocated memory.
5306 * Saves a lot of time, because we don't have to start a new shell.
5308 if (!have_wildcard(num_pat
, pat
))
5309 return save_patterns(num_pat
, pat
, num_file
, file
);
5311 # ifdef HAVE_SANDBOX
5312 /* Don't allow any shell command in the sandbox. */
5313 if (sandbox
!= 0 && check_secure())
5318 * Don't allow the use of backticks in secure and restricted mode.
5320 if (secure
|| restricted
)
5321 for (i
= 0; i
< num_pat
; ++i
)
5322 if (vim_strchr(pat
[i
], '`') != NULL
5323 && (check_restricted() || check_secure()))
5327 * get a name for the temp file
5329 if ((tempname
= vim_tempname('o')) == NULL
)
5336 * Let the shell expand the patterns and write the result into the temp
5338 * STYLE_BT: NL separated
5339 * If expanding `cmd` execute it directly.
5340 * STYLE_GLOB: NUL separated
5341 * If we use *csh, "glob" will work better than "echo".
5342 * STYLE_PRINT: NL or NUL separated
5343 * If we use *zsh, "print -N" will work better than "glob".
5344 * STYLE_VIMGLOB: NL separated
5345 * If we use *sh*, we define "vimglob()".
5346 * STYLE_ECHO: space separated.
5347 * A shell we don't know, stay safe and use "echo".
5349 if (num_pat
== 1 && *pat
[0] == '`'
5350 && (len
= STRLEN(pat
[0])) > 2
5351 && *(pat
[0] + len
- 1) == '`')
5352 shell_style
= STYLE_BT
;
5353 else if ((len
= STRLEN(p_sh
)) >= 3)
5355 if (STRCMP(p_sh
+ len
- 3, "csh") == 0)
5356 shell_style
= STYLE_GLOB
;
5357 else if (STRCMP(p_sh
+ len
- 3, "zsh") == 0)
5358 shell_style
= STYLE_PRINT
;
5360 if (shell_style
== STYLE_ECHO
&& strstr((char *)gettail(p_sh
),
5362 shell_style
= STYLE_VIMGLOB
;
5364 /* Compute the length of the command. We need 2 extra bytes: for the
5365 * optional '&' and for the NUL.
5366 * Worst case: "unset nonomatch; print -N >" plus two is 29 */
5367 len
= STRLEN(tempname
) + 29;
5368 if (shell_style
== STYLE_VIMGLOB
)
5369 len
+= STRLEN(sh_vimglob_func
);
5371 for (i
= 0; i
< num_pat
; ++i
)
5373 /* Count the length of the patterns in the same way as they are put in
5374 * "command" below. */
5376 len
+= STRLEN(pat
[i
]) + 3; /* add space and two quotes */
5378 ++len
; /* add space */
5379 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5381 if (vim_strchr(SHELL_SPECIAL
, pat
[i
][j
]) != NULL
)
5382 ++len
; /* may add a backslash */
5387 command
= alloc(len
);
5388 if (command
== NULL
)
5396 * Build the shell command:
5397 * - Set $nonomatch depending on EW_NOTFOUND (hopefully the shell
5399 * - Add the shell command to print the expanded names.
5400 * - Add the temp file name.
5401 * - Add the file name patterns.
5403 if (shell_style
== STYLE_BT
)
5405 /* change `command; command& ` to (command; command ) */
5406 STRCPY(command
, "(");
5407 STRCAT(command
, pat
[0] + 1); /* exclude first backtick */
5408 p
= command
+ STRLEN(command
) - 1;
5409 *p
-- = ')'; /* remove last backtick */
5410 while (p
> command
&& vim_iswhite(*p
))
5412 if (*p
== '&') /* remove trailing '&' */
5417 STRCAT(command
, ">");
5421 if (flags
& EW_NOTFOUND
)
5422 STRCPY(command
, "set nonomatch; ");
5424 STRCPY(command
, "unset nonomatch; ");
5425 if (shell_style
== STYLE_GLOB
)
5426 STRCAT(command
, "glob >");
5427 else if (shell_style
== STYLE_PRINT
)
5428 STRCAT(command
, "print -N >");
5429 else if (shell_style
== STYLE_VIMGLOB
)
5430 STRCAT(command
, sh_vimglob_func
);
5432 STRCAT(command
, "echo >");
5435 STRCAT(command
, tempname
);
5437 if (shell_style
!= STYLE_BT
)
5438 for (i
= 0; i
< num_pat
; ++i
)
5440 /* When using system() always add extra quotes, because the shell
5441 * is started twice. Otherwise put a backslash before special
5442 * characters, except inside ``. */
5444 STRCAT(command
, " \"");
5445 STRCAT(command
, pat
[i
]);
5446 STRCAT(command
, "\"");
5450 p
= command
+ STRLEN(command
);
5452 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5454 if (pat
[i
][j
] == '`')
5456 else if (pat
[i
][j
] == '\\' && pat
[i
][j
+ 1] != NUL
)
5458 /* Remove a backslash, take char literally. But keep
5459 * backslash inside backticks, before a special character
5460 * and before a backtick. */
5462 || vim_strchr(SHELL_SPECIAL
, pat
[i
][j
+ 1]) != NULL
5463 || pat
[i
][j
+ 1] == '`')
5467 else if (!intick
&& vim_strchr(SHELL_SPECIAL
,
5469 /* Put a backslash before a special character, but not
5470 * when inside ``. */
5473 /* Copy one character. */
5479 if (flags
& EW_SILENT
)
5480 show_shell_mess
= FALSE
;
5482 STRCAT(command
, "&"); /* put the '&' after the redirection */
5485 * Using zsh -G: If a pattern has no matches, it is just deleted from
5486 * the argument list, otherwise zsh gives an error message and doesn't
5487 * expand any other pattern.
5489 if (shell_style
== STYLE_PRINT
)
5490 extra_shell_arg
= (char_u
*)"-G"; /* Use zsh NULL_GLOB option */
5493 * If we use -f then shell variables set in .cshrc won't get expanded.
5494 * vi can do it, so we will too, but it is only necessary if there is a "$"
5495 * in one of the patterns, otherwise we can still use the fast option.
5497 else if (shell_style
== STYLE_GLOB
&& !have_dollars(num_pat
, pat
))
5498 extra_shell_arg
= (char_u
*)"-f"; /* Use csh fast option */
5501 * execute the shell command
5503 i
= call_shell(command
, SHELL_EXPAND
| SHELL_SILENT
);
5505 /* When running in the background, give it some time to create the temp
5506 * file, but don't wait for it to finish. */
5508 mch_delay(10L, TRUE
);
5510 extra_shell_arg
= NULL
; /* cleanup */
5511 show_shell_mess
= TRUE
;
5514 if (i
!= 0) /* mch_call_shell() failed */
5516 mch_remove(tempname
);
5519 * With interactive completion, the error message is not printed.
5520 * However with USE_SYSTEM, I don't know how to turn off error messages
5521 * from the shell, so screen may still get messed up -- webb.
5524 if (!(flags
& EW_SILENT
))
5527 redraw_later_clear(); /* probably messed up screen */
5528 msg_putchar('\n'); /* clear bottom line quickly */
5529 cmdline_row
= Rows
- 1; /* continue on last line */
5531 if (!(flags
& EW_SILENT
))
5534 MSG(_(e_wildexpand
));
5535 msg_start(); /* don't overwrite this message */
5538 /* If a `cmd` expansion failed, don't list `cmd` as a match, even when
5539 * EW_NOTFOUND is given */
5540 if (shell_style
== STYLE_BT
)
5546 * read the names from the file into memory
5548 fd
= fopen((char *)tempname
, READBIN
);
5551 /* Something went wrong, perhaps a file name with a special char. */
5552 if (!(flags
& EW_SILENT
))
5554 MSG(_(e_wildexpand
));
5555 msg_start(); /* don't overwrite this message */
5560 fseek(fd
, 0L, SEEK_END
);
5561 len
= ftell(fd
); /* get size of temp file */
5562 fseek(fd
, 0L, SEEK_SET
);
5563 buffer
= alloc(len
+ 1);
5567 mch_remove(tempname
);
5572 i
= fread((char *)buffer
, 1, len
, fd
);
5574 mch_remove(tempname
);
5577 /* unexpected read error */
5578 EMSG2(_(e_notread
), tempname
);
5585 # if defined(__CYGWIN__) || defined(__CYGWIN32__)
5586 /* Translate <CR><NL> into <NL>. Caution, buffer may contain NUL. */
5588 for (i
= 0; i
< len
; ++i
)
5589 if (!(buffer
[i
] == CAR
&& buffer
[i
+ 1] == NL
))
5595 /* file names are separated with Space */
5596 if (shell_style
== STYLE_ECHO
)
5598 buffer
[len
] = '\n'; /* make sure the buffer ends in NL */
5600 for (i
= 0; *p
!= '\n'; ++i
) /* count number of entries */
5602 while (*p
!= ' ' && *p
!= '\n')
5604 p
= skipwhite(p
); /* skip to next entry */
5607 /* file names are separated with NL */
5608 else if (shell_style
== STYLE_BT
|| shell_style
== STYLE_VIMGLOB
)
5610 buffer
[len
] = NUL
; /* make sure the buffer ends in NUL */
5612 for (i
= 0; *p
!= NUL
; ++i
) /* count number of entries */
5614 while (*p
!= '\n' && *p
!= NUL
)
5618 p
= skipwhite(p
); /* skip leading white space */
5621 /* file names are separated with NUL */
5625 * Some versions of zsh use spaces instead of NULs to separate
5626 * results. Only do this when there is no NUL before the end of the
5627 * buffer, otherwise we would never be able to use file names with
5628 * embedded spaces when zsh does use NULs.
5629 * When we found a NUL once, we know zsh is OK, set did_find_nul and
5630 * don't check for spaces again.
5632 check_spaces
= FALSE
;
5633 if (shell_style
== STYLE_PRINT
&& !did_find_nul
)
5635 /* If there is a NUL, set did_find_nul, else set check_spaces */
5636 if (len
&& (int)STRLEN(buffer
) < len
- 1)
5637 did_find_nul
= TRUE
;
5639 check_spaces
= TRUE
;
5643 * Make sure the buffer ends with a NUL. For STYLE_PRINT there
5644 * already is one, for STYLE_GLOB it needs to be added.
5646 if (len
&& buffer
[len
- 1] == NUL
)
5651 for (p
= buffer
; p
< buffer
+ len
; ++p
)
5652 if (*p
== NUL
|| (*p
== ' ' && check_spaces
)) /* count entry */
5658 ++i
; /* count last entry */
5663 * Can happen when using /bin/sh and typing ":e $NO_SUCH_VAR^I".
5664 * /bin/sh will happily expand it to nothing rather than returning an
5665 * error; and hey, it's good to check anyway -- webb.
5671 *file
= (char_u
**)alloc(sizeof(char_u
*) * i
);
5680 * Isolate the individual file names.
5683 for (i
= 0; i
< *num_file
; ++i
)
5686 /* Space or NL separates */
5687 if (shell_style
== STYLE_ECHO
|| shell_style
== STYLE_BT
5688 || shell_style
== STYLE_VIMGLOB
)
5690 while (!(shell_style
== STYLE_ECHO
&& *p
== ' ')
5691 && *p
!= '\n' && *p
!= NUL
)
5693 if (p
== buffer
+ len
) /* last entry */
5698 p
= skipwhite(p
); /* skip to next entry */
5701 else /* NUL separates */
5703 while (*p
&& p
< buffer
+ len
) /* skip entry */
5710 * Move the file names to allocated memory.
5712 for (j
= 0, i
= 0; i
< *num_file
; ++i
)
5714 /* Require the files to exist. Helps when using /bin/sh */
5715 if (!(flags
& EW_NOTFOUND
) && mch_getperm((*file
)[i
]) < 0)
5718 /* check if this entry should be included */
5719 dir
= (mch_isdir((*file
)[i
]));
5720 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5723 /* Skip files that are not executable if we check for that. */
5724 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe((*file
)[i
]))
5727 p
= alloc((unsigned)(STRLEN((*file
)[i
]) + 1 + dir
));
5730 STRCPY(p
, (*file
)[i
]);
5732 add_pathsep(p
); /* add '/' to a directory name */
5739 if (*num_file
== 0) /* rejected all entries */
5749 if (flags
& EW_NOTFOUND
)
5750 return save_patterns(num_pat
, pat
, num_file
, file
);
5753 #endif /* __EMX__ */
5760 save_patterns(num_pat
, pat
, num_file
, file
)
5769 *file
= (char_u
**)alloc(num_pat
* sizeof(char_u
*));
5772 for (i
= 0; i
< num_pat
; i
++)
5774 s
= vim_strsave(pat
[i
]);
5776 /* Be compatible with expand_filename(): halve the number of
5781 *num_file
= num_pat
;
5788 * Return TRUE if the string "p" contains a wildcard that mch_expandpath() can
5792 mch_has_exp_wildcard(p
)
5795 for ( ; *p
; mb_ptr_adv(p
))
5798 if (*p
== '\\' && p
[1] != NUL
)
5802 if (vim_strchr((char_u
*)
5819 * Return TRUE if the string "p" contains a wildcard.
5820 * Don't recognize '~' at the end as a wildcard.
5826 for ( ; *p
; mb_ptr_adv(p
))
5829 if (*p
== '\\' && p
[1] != NUL
)
5833 if (vim_strchr((char_u
*)
5838 # ifdef VIM_BACKTICK
5848 || (*p
== '~' && p
[1] != NUL
))
5856 have_wildcard(num
, file
)
5862 for (i
= 0; i
< num
; i
++)
5863 if (mch_has_wildcard(file
[i
]))
5869 have_dollars(num
, file
)
5875 for (i
= 0; i
< num
; i
++)
5876 if (vim_strchr(file
[i
], '$') != NULL
)
5880 #endif /* ifndef __EMX__ */
5884 * Scaled-down version of rename(), which is missing in Xenix.
5885 * This version can only move regular files and will fail if the
5886 * destination exists.
5889 mch_rename(src
, dest
)
5890 const char *src
, *dest
;
5894 if (stat(dest
, &st
) >= 0) /* fail if destination exists */
5896 if (link(src
, dest
) != 0) /* link file to new name */
5898 if (mch_remove(src
) == 0) /* delete link to old name */
5902 #endif /* !HAVE_RENAME */
5904 #ifdef FEAT_MOUSE_GPM
5906 * Initializes connection with gpm (if it isn't already opened)
5907 * Return 1 if succeeded (or connection already opened), 0 if failed
5912 static Gpm_Connect gpm_connect
; /* Must it be kept till closing ? */
5916 gpm_connect
.eventMask
= (GPM_UP
| GPM_DRAG
| GPM_DOWN
);
5917 gpm_connect
.defaultMask
= ~GPM_HARD
;
5918 /* Default handling for mouse move*/
5919 gpm_connect
.minMod
= 0; /* Handle any modifier keys */
5920 gpm_connect
.maxMod
= 0xffff;
5921 if (Gpm_Open(&gpm_connect
, 0) > 0)
5923 /* gpm library tries to handling TSTP causes
5924 * problems. Anyways, we close connection to Gpm whenever
5925 * we are going to suspend or starting an external process
5926 * so we shouldn't have problem with this
5929 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
5931 return 1; /* succeed */
5934 Gpm_Close(); /* We don't want to talk to xterm via gpm */
5937 return 1; /* already open */
5941 * Closes connection to gpm
5946 if (gpm_flag
&& gpm_fd
>= 0) /* if Open */
5950 /* Reads gpm event and adds special keys to input buf. Returns length of
5951 * generated key sequence.
5952 * This function is made after gui_send_mouse_event
5958 static Gpm_Event gpm_event
;
5960 int_u vim_modifiers
;
5962 unsigned char buttons_mask
;
5963 unsigned char gpm_modifiers
;
5964 static unsigned char old_buttons
= 0;
5966 Gpm_GetEvent(&gpm_event
);
5969 /* Don't put events in the input queue now. */
5970 if (hold_gui_events
)
5974 row
= gpm_event
.y
- 1;
5975 col
= gpm_event
.x
- 1;
5977 string
[0] = ESC
; /* Our termcode */
5980 switch (GPM_BARE_EVENTS(gpm_event
.type
))
5983 string
[3] = MOUSE_DRAG
;
5986 buttons_mask
= gpm_event
.buttons
& ~old_buttons
;
5987 old_buttons
= gpm_event
.buttons
;
5988 switch (buttons_mask
)
5991 button
= MOUSE_LEFT
;
5994 button
= MOUSE_MIDDLE
;
5997 button
= MOUSE_RIGHT
;
6001 /*Don't know what to do. Can more than one button be
6002 * reported in one event? */
6004 string
[3] = (char_u
)(button
| 0x20);
6005 SET_NUM_MOUSE_CLICKS(string
[3], gpm_event
.clicks
+ 1);
6008 string
[3] = MOUSE_RELEASE
;
6009 old_buttons
&= ~gpm_event
.buttons
;
6014 /*This code is based on gui_x11_mouse_cb in gui_x11.c */
6015 gpm_modifiers
= gpm_event
.modifiers
;
6016 vim_modifiers
= 0x0;
6017 /* I ignore capslock stats. Aren't we all just hate capslock mixing with
6018 * Vim commands ? Besides, gpm_event.modifiers is unsigned char, and
6019 * K_CAPSSHIFT is defined 8, so it probably isn't even reported
6021 if (gpm_modifiers
& ((1 << KG_SHIFT
) | (1 << KG_SHIFTR
) | (1 << KG_SHIFTL
)))
6022 vim_modifiers
|= MOUSE_SHIFT
;
6024 if (gpm_modifiers
& ((1 << KG_CTRL
) | (1 << KG_CTRLR
) | (1 << KG_CTRLL
)))
6025 vim_modifiers
|= MOUSE_CTRL
;
6026 if (gpm_modifiers
& ((1 << KG_ALT
) | (1 << KG_ALTGR
)))
6027 vim_modifiers
|= MOUSE_ALT
;
6028 string
[3] |= vim_modifiers
;
6029 string
[4] = (char_u
)(col
+ ' ' + 1);
6030 string
[5] = (char_u
)(row
+ ' ' + 1);
6031 add_to_input_buf(string
, 6);
6034 #endif /* FEAT_MOUSE_GPM */
6036 #ifdef FEAT_SYSMOUSE
6038 * Initialize connection with sysmouse.
6039 * Let virtual console inform us with SIGUSR2 for pending sysmouse
6040 * output, any sysmouse output than will be processed via sig_sysmouse().
6041 * Return OK if succeeded, FAIL if failed.
6046 struct mouse_info mouse
;
6048 mouse
.operation
= MOUSE_MODE
;
6049 mouse
.u
.mode
.mode
= 0;
6050 mouse
.u
.mode
.signal
= SIGUSR2
;
6051 if (ioctl(1, CONS_MOUSECTL
, &mouse
) != -1)
6053 signal(SIGUSR2
, (RETSIGTYPE (*)())sig_sysmouse
);
6054 mouse
.operation
= MOUSE_SHOW
;
6055 ioctl(1, CONS_MOUSECTL
, &mouse
);
6062 * Stop processing SIGUSR2 signals, and also make sure that
6063 * virtual console do not send us any sysmouse related signal.
6068 struct mouse_info mouse
;
6070 signal(SIGUSR2
, restricted
? SIG_IGN
: SIG_DFL
);
6071 mouse
.operation
= MOUSE_MODE
;
6072 mouse
.u
.mode
.mode
= 0;
6073 mouse
.u
.mode
.signal
= 0;
6074 ioctl(1, CONS_MOUSECTL
, &mouse
);
6078 * Gets info from sysmouse and adds special keys to input buf.
6082 sig_sysmouse
SIGDEFARG(sigarg
)
6084 struct mouse_info mouse
;
6085 struct video_info video
;
6090 static int oldbuttons
= 0;
6093 /* Don't put events in the input queue now. */
6094 if (hold_gui_events
)
6098 mouse
.operation
= MOUSE_GETINFO
;
6099 if (ioctl(1, FBIO_GETMODE
, &video
.vi_mode
) != -1
6100 && ioctl(1, FBIO_MODEINFO
, &video
) != -1
6101 && ioctl(1, CONS_MOUSECTL
, &mouse
) != -1
6102 && video
.vi_cheight
> 0 && video
.vi_cwidth
> 0)
6104 row
= mouse
.u
.data
.y
/ video
.vi_cheight
;
6105 col
= mouse
.u
.data
.x
/ video
.vi_cwidth
;
6106 buttons
= mouse
.u
.data
.buttons
;
6107 string
[0] = ESC
; /* Our termcode */
6110 if (oldbuttons
== buttons
&& buttons
!= 0)
6112 button
= MOUSE_DRAG
;
6119 button
= MOUSE_RELEASE
;
6122 button
= MOUSE_LEFT
;
6125 button
= MOUSE_MIDDLE
;
6128 button
= MOUSE_RIGHT
;
6133 oldbuttons
= buttons
;
6135 string
[3] = (char_u
)(button
);
6136 string
[4] = (char_u
)(col
+ ' ' + 1);
6137 string
[5] = (char_u
)(row
+ ' ' + 1);
6138 add_to_input_buf(string
, 6);
6142 #endif /* FEAT_SYSMOUSE */
6144 #if defined(FEAT_LIBCALL) || defined(PROTO)
6145 typedef char_u
* (*STRPROCSTR
)__ARGS((char_u
*));
6146 typedef char_u
* (*INTPROCSTR
)__ARGS((int));
6147 typedef int (*STRPROCINT
)__ARGS((char_u
*));
6148 typedef int (*INTPROCINT
)__ARGS((int));
6151 * Call a DLL routine which takes either a string or int param
6152 * and returns an allocated string.
6155 mch_libcall(libname
, funcname
, argstring
, argint
, string_result
, number_result
)
6158 char_u
*argstring
; /* NULL when using a argint */
6160 char_u
**string_result
;/* NULL when using number_result */
6163 # if defined(USE_DLOPEN)
6170 INTPROCSTR ProcAddI
;
6171 char_u
*retval_str
= NULL
;
6173 int success
= FALSE
;
6176 * Get a handle to the DLL module.
6178 # if defined(USE_DLOPEN)
6179 /* First clear any error, it's not cleared by the dlopen() call. */
6182 hinstLib
= dlopen((char *)libname
, RTLD_LAZY
6187 if (hinstLib
== NULL
)
6189 /* "dlerr" must be used before dlclose() */
6190 dlerr
= (char *)dlerror();
6192 EMSG2(_("dlerror = \"%s\""), dlerr
);
6195 hinstLib
= shl_load((const char*)libname
, BIND_IMMEDIATE
|BIND_VERBOSE
, 0L);
6198 /* If the handle is valid, try to get the function address. */
6199 if (hinstLib
!= NULL
)
6201 # ifdef HAVE_SETJMP_H
6203 * Catch a crash when calling the library function. For example when
6204 * using a number where a string pointer is expected.
6207 if (SETJMP(lc_jump_env
) != 0)
6210 # if defined(USE_DLOPEN)
6221 if (argstring
!= NULL
)
6223 # if defined(USE_DLOPEN)
6224 ProcAdd
= (STRPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
6225 dlerr
= (char *)dlerror();
6227 if (shl_findsym(&hinstLib
, (const char *)funcname
,
6228 TYPE_PROCEDURE
, (void *)&ProcAdd
) < 0)
6231 if ((success
= (ProcAdd
!= NULL
6232 # if defined(USE_DLOPEN)
6237 if (string_result
== NULL
)
6238 retval_int
= ((STRPROCINT
)ProcAdd
)(argstring
);
6240 retval_str
= (ProcAdd
)(argstring
);
6245 # if defined(USE_DLOPEN)
6246 ProcAddI
= (INTPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
6247 dlerr
= (char *)dlerror();
6249 if (shl_findsym(&hinstLib
, (const char *)funcname
,
6250 TYPE_PROCEDURE
, (void *)&ProcAddI
) < 0)
6253 if ((success
= (ProcAddI
!= NULL
6254 # if defined(USE_DLOPEN)
6259 if (string_result
== NULL
)
6260 retval_int
= ((INTPROCINT
)ProcAddI
)(argint
);
6262 retval_str
= (ProcAddI
)(argint
);
6266 /* Save the string before we free the library. */
6267 /* Assume that a "1" or "-1" result is an illegal pointer. */
6268 if (string_result
== NULL
)
6269 *number_result
= retval_int
;
6270 else if (retval_str
!= NULL
6271 && retval_str
!= (char_u
*)1
6272 && retval_str
!= (char_u
*)-1)
6273 *string_result
= vim_strsave(retval_str
);
6276 # ifdef HAVE_SETJMP_H
6283 /* try to find the name of this signal */
6284 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
6285 if (lc_signal
== signal_info
[i
].sig
)
6287 EMSG2("E368: got SIG%s in libcall()", signal_info
[i
].name
);
6292 # if defined(USE_DLOPEN)
6293 /* "dlerr" must be used before dlclose() */
6295 EMSG2(_("dlerror = \"%s\""), dlerr
);
6297 /* Free the DLL module. */
6298 (void)dlclose(hinstLib
);
6300 (void)shl_unload(hinstLib
);
6306 EMSG2(_(e_libcall
), funcname
);
6314 #if (defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) || defined(PROTO)
6315 static int xterm_trace
= -1; /* default: disabled */
6316 static int xterm_button
;
6319 * Setup a dummy window for X selections in a terminal.
6328 if (!x_connect_to_server())
6332 if (app_context
!= NULL
&& xterm_Shell
== (Widget
)0)
6334 int (*oldhandler
)();
6335 #if defined(HAVE_SETJMP_H)
6336 int (*oldIOhandler
)();
6338 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6339 struct timeval start_tv
;
6342 gettimeofday(&start_tv
, NULL
);
6345 /* Ignore X errors while opening the display */
6346 oldhandler
= XSetErrorHandler(x_error_check
);
6348 #if defined(HAVE_SETJMP_H)
6349 /* Ignore X IO errors while opening the display */
6350 oldIOhandler
= XSetIOErrorHandler(x_IOerror_check
);
6352 if (SETJMP(lc_jump_env
) != 0)
6360 xterm_dpy
= XtOpenDisplay(app_context
, xterm_display
,
6361 "vim_xterm", "Vim_xterm", NULL
, 0, &z
, &strp
);
6362 #if defined(HAVE_SETJMP_H)
6367 #if defined(HAVE_SETJMP_H)
6368 /* Now handle X IO errors normally. */
6369 (void)XSetIOErrorHandler(oldIOhandler
);
6371 /* Now handle X errors normally. */
6372 (void)XSetErrorHandler(oldhandler
);
6374 if (xterm_dpy
== NULL
)
6377 verb_msg((char_u
*)_("Opening the X display failed"));
6381 /* Catch terminating error of the X server connection. */
6382 (void)XSetIOErrorHandler(x_IOerror_handler
);
6384 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6388 xopen_message(&start_tv
);
6393 /* Create a Shell to make converters work. */
6394 AppShell
= XtVaAppCreateShell("vim_xterm", "Vim_xterm",
6395 applicationShellWidgetClass
, xterm_dpy
,
6397 if (AppShell
== (Widget
)0)
6399 xterm_Shell
= XtVaCreatePopupShell("VIM",
6400 topLevelShellWidgetClass
, AppShell
,
6401 XtNmappedWhenManaged
, 0,
6405 if (xterm_Shell
== (Widget
)0)
6408 x11_setup_atoms(xterm_dpy
);
6409 if (x11_display
== NULL
)
6410 x11_display
= xterm_dpy
;
6412 XtRealizeWidget(xterm_Shell
);
6413 XSync(xterm_dpy
, False
);
6416 if (xterm_Shell
!= (Widget
)0)
6419 if (x11_window
== 0 && (strp
= getenv("WINDOWID")) != NULL
)
6420 x11_window
= (Window
)atol(strp
);
6421 /* Check if $WINDOWID is valid. */
6422 if (test_x11_window(xterm_dpy
) == FAIL
)
6424 if (x11_window
!= 0)
6430 start_xterm_trace(button
)
6433 if (x11_window
== 0 || xterm_trace
< 0 || xterm_Shell
== (Widget
)0)
6436 xterm_button
= button
;
6444 if (xterm_trace
< 0)
6450 * Query the xterm pointer and generate mouse termcodes if necessary
6451 * return TRUE if dragging is active, else FALSE
6464 static char_u
*mouse_code
;
6465 static char_u mouse_name
[2] = {KS_MOUSE
, KE_FILLER
};
6466 static int prev_row
= 0, prev_col
= 0;
6467 static XSizeHints xterm_hints
;
6469 if (xterm_trace
<= 0)
6472 if (xterm_trace
== 1)
6474 /* Get the hints just before tracking starts. The font size might
6475 * have changed recently. */
6476 if (!XGetWMNormalHints(xterm_dpy
, x11_window
, &xterm_hints
, &got_hints
)
6477 || !(got_hints
& PResizeInc
)
6478 || xterm_hints
.width_inc
<= 1
6479 || xterm_hints
.height_inc
<= 1)
6481 xterm_trace
= -1; /* Not enough data -- disable tracing */
6485 /* Rely on the same mouse code for the duration of this */
6486 mouse_code
= find_termcode(mouse_name
);
6487 prev_row
= mouse_row
;
6488 prev_row
= mouse_col
;
6491 /* Find the offset of the chars, there might be a scrollbar on the
6492 * left of the window and/or a menu on the top (eterm etc.) */
6493 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6494 &win_x
, &win_y
, &mask_return
);
6495 xterm_hints
.y
= win_y
- (xterm_hints
.height_inc
* mouse_row
)
6496 - (xterm_hints
.height_inc
/ 2);
6497 if (xterm_hints
.y
<= xterm_hints
.height_inc
/ 2)
6499 xterm_hints
.x
= win_x
- (xterm_hints
.width_inc
* mouse_col
)
6500 - (xterm_hints
.width_inc
/ 2);
6501 if (xterm_hints
.x
<= xterm_hints
.width_inc
/ 2)
6505 if (mouse_code
== NULL
)
6511 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6512 &win_x
, &win_y
, &mask_return
);
6514 row
= check_row((win_y
- xterm_hints
.y
) / xterm_hints
.height_inc
);
6515 col
= check_col((win_x
- xterm_hints
.x
) / xterm_hints
.width_inc
);
6516 if (row
== prev_row
&& col
== prev_col
)
6519 STRCPY(buf
, mouse_code
);
6520 strp
= buf
+ STRLEN(buf
);
6521 *strp
++ = (xterm_button
| MOUSE_DRAG
) & ~0x20;
6522 *strp
++ = (char_u
)(col
+ ' ' + 1);
6523 *strp
++ = (char_u
)(row
+ ' ' + 1);
6525 add_to_input_buf(buf
, STRLEN(buf
));
6532 # if defined(FEAT_GUI) || defined(PROTO)
6534 * Destroy the display, window and app_context. Required for GTK.
6539 if (xterm_Shell
!= (Widget
)0)
6541 XtDestroyWidget(xterm_Shell
);
6542 xterm_Shell
= (Widget
)0;
6544 if (xterm_dpy
!= NULL
)
6547 /* Lesstif and Solaris crash here, lose some memory */
6548 XtCloseDisplay(xterm_dpy
);
6550 if (x11_display
== xterm_dpy
)
6555 if (app_context
!= (XtAppContext
)NULL
)
6557 /* Lesstif and Solaris crash here, lose some memory */
6558 XtDestroyApplicationContext(app_context
);
6559 app_context
= (XtAppContext
)NULL
;
6566 * Catch up with any queued X events. This may put keyboard input into the
6567 * input buffer, call resize call-backs, trigger timers etc. If there is
6568 * nothing in the X event queue (& no timers pending), then we return
6576 while (XtAppPending(app_context
) && !vim_is_input_buf_full())
6578 XtAppNextEvent(app_context
, &event
);
6579 #ifdef FEAT_CLIENTSERVER
6581 XPropertyEvent
*e
= (XPropertyEvent
*)&event
;
6583 if (e
->type
== PropertyNotify
&& e
->window
== commWindow
6584 && e
->atom
== commProperty
&& e
->state
== PropertyNewValue
)
6585 serverEventProc(xterm_dpy
, &event
);
6588 XtDispatchEvent(&event
);
6593 clip_xterm_own_selection(cbd
)
6596 if (xterm_Shell
!= (Widget
)0)
6597 return clip_x11_own_selection(xterm_Shell
, cbd
);
6602 clip_xterm_lose_selection(cbd
)
6605 if (xterm_Shell
!= (Widget
)0)
6606 clip_x11_lose_selection(xterm_Shell
, cbd
);
6610 clip_xterm_request_selection(cbd
)
6613 if (xterm_Shell
!= (Widget
)0)
6614 clip_x11_request_selection(xterm_Shell
, xterm_dpy
, cbd
);
6618 clip_xterm_set_selection(cbd
)
6621 clip_x11_set_selection(cbd
);
6626 #if defined(USE_XSMP) || defined(PROTO)
6628 * Code for X Session Management Protocol.
6630 static void xsmp_handle_save_yourself
__ARGS((SmcConn smc_conn
, SmPointer client_data
, int save_type
, Bool shutdown
, int interact_style
, Bool fast
));
6631 static void xsmp_die
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6632 static void xsmp_save_complete
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6633 static void xsmp_shutdown_cancelled
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6634 static void xsmp_ice_connection
__ARGS((IceConn iceConn
, IcePointer clientData
, Bool opening
, IcePointer
*watchData
));
6637 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6638 static void xsmp_handle_interaction
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6641 * This is our chance to ask the user if they want to save,
6642 * or abort the logout
6646 xsmp_handle_interaction(smc_conn
, client_data
)
6648 SmPointer client_data
;
6650 cmdmod_T save_cmdmod
;
6651 int cancel_shutdown
= False
;
6653 save_cmdmod
= cmdmod
;
6654 cmdmod
.confirm
= TRUE
;
6655 if (check_changed_any(FALSE
))
6656 /* Mustn't logout */
6657 cancel_shutdown
= True
;
6658 cmdmod
= save_cmdmod
;
6659 setcursor(); /* position cursor */
6662 /* Done interaction */
6663 SmcInteractDone(smc_conn
, cancel_shutdown
);
6666 * Only end save-yourself here if we're not cancelling shutdown;
6667 * we'll get a cancelled callback later in which we'll end it.
6668 * Hopefully get around glitchy SMs (like GNOME-1)
6670 if (!cancel_shutdown
)
6672 xsmp
.save_yourself
= False
;
6673 SmcSaveYourselfDone(smc_conn
, True
);
6679 * Callback that starts save-yourself.
6683 xsmp_handle_save_yourself(smc_conn
, client_data
, save_type
,
6684 shutdown
, interact_style
, fast
)
6686 SmPointer client_data
;
6692 /* Handle already being in saveyourself */
6693 if (xsmp
.save_yourself
)
6694 SmcSaveYourselfDone(smc_conn
, True
);
6695 xsmp
.save_yourself
= True
;
6696 xsmp
.shutdown
= shutdown
;
6698 /* First up, preserve all files */
6700 ml_sync_all(FALSE
, FALSE
); /* preserve all swap files */
6703 verb_msg((char_u
*)_("XSMP handling save-yourself request"));
6705 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6706 /* Now see if we can ask about unsaved files */
6707 if (shutdown
&& !fast
&& gui
.in_use
)
6708 /* Need to interact with user, but need SM's permission */
6709 SmcInteractRequest(smc_conn
, SmDialogError
,
6710 xsmp_handle_interaction
, client_data
);
6714 /* Can stop the cycle here */
6715 SmcSaveYourselfDone(smc_conn
, True
);
6716 xsmp
.save_yourself
= False
;
6722 * Callback to warn us of imminent death.
6726 xsmp_die(smc_conn
, client_data
)
6728 SmPointer client_data
;
6732 /* quit quickly leaving swapfiles for modified buffers behind */
6733 getout_preserve_modified(0);
6738 * Callback to tell us that save-yourself has completed.
6742 xsmp_save_complete(smc_conn
, client_data
)
6744 SmPointer client_data
;
6746 xsmp
.save_yourself
= False
;
6751 * Callback to tell us that an instigated shutdown was cancelled
6752 * (maybe even by us)
6756 xsmp_shutdown_cancelled(smc_conn
, client_data
)
6758 SmPointer client_data
;
6760 if (xsmp
.save_yourself
)
6761 SmcSaveYourselfDone(smc_conn
, True
);
6762 xsmp
.save_yourself
= False
;
6763 xsmp
.shutdown
= False
;
6768 * Callback to tell us that a new ICE connection has been established.
6772 xsmp_ice_connection(iceConn
, clientData
, opening
, watchData
)
6774 IcePointer clientData
;
6776 IcePointer
*watchData
;
6778 /* Intercept creation of ICE connection fd */
6781 xsmp_icefd
= IceConnectionNumber(iceConn
);
6782 IceRemoveConnectionWatch(xsmp_ice_connection
, NULL
);
6787 /* Handle any ICE processing that's required; return FAIL if SM lost */
6789 xsmp_handle_requests()
6793 if (IceProcessMessages(xsmp
.iceconn
, NULL
, &rep
)
6794 == IceProcessMessagesIOError
)
6798 verb_msg((char_u
*)_("XSMP lost ICE connection"));
6808 /* Set up X Session Management Protocol */
6812 char errorstring
[80];
6813 SmcCallbacks smcallbacks
;
6821 verb_msg((char_u
*)_("XSMP opening connection"));
6823 xsmp
.save_yourself
= xsmp
.shutdown
= False
;
6825 /* Set up SM callbacks - must have all, even if they're not used */
6826 smcallbacks
.save_yourself
.callback
= xsmp_handle_save_yourself
;
6827 smcallbacks
.save_yourself
.client_data
= NULL
;
6828 smcallbacks
.die
.callback
= xsmp_die
;
6829 smcallbacks
.die
.client_data
= NULL
;
6830 smcallbacks
.save_complete
.callback
= xsmp_save_complete
;
6831 smcallbacks
.save_complete
.client_data
= NULL
;
6832 smcallbacks
.shutdown_cancelled
.callback
= xsmp_shutdown_cancelled
;
6833 smcallbacks
.shutdown_cancelled
.client_data
= NULL
;
6835 /* Set up a watch on ICE connection creations. The "dummy" argument is
6836 * apparently required for FreeBSD (we get a BUS error when using NULL). */
6837 if (IceAddConnectionWatch(xsmp_ice_connection
, &dummy
) == 0)
6840 verb_msg((char_u
*)_("XSMP ICE connection watch failed"));
6844 /* Create an SM connection */
6845 xsmp
.smcconn
= SmcOpenConnection(
6850 SmcSaveYourselfProcMask
| SmcDieProcMask
6851 | SmcSaveCompleteProcMask
| SmcShutdownCancelledProcMask
,
6855 sizeof(errorstring
),
6857 if (xsmp
.smcconn
== NULL
)
6859 char errorreport
[132];
6863 vim_snprintf(errorreport
, sizeof(errorreport
),
6864 _("XSMP SmcOpenConnection failed: %s"), errorstring
);
6865 verb_msg((char_u
*)errorreport
);
6869 xsmp
.iceconn
= SmcGetIceConnection(xsmp
.smcconn
);
6873 smname
.value
= "vim";
6875 smnameprop
.name
= "SmProgram";
6876 smnameprop
.type
= "SmARRAY8";
6877 smnameprop
.num_vals
= 1;
6878 smnameprop
.vals
= &smname
;
6880 smprops
[0] = &smnameprop
;
6881 SmcSetProperties(xsmp
.smcconn
, 1, smprops
);
6886 /* Shut down XSMP comms. */
6890 if (xsmp_icefd
!= -1)
6892 SmcCloseConnection(xsmp
.smcconn
, 0, NULL
);
6893 if (xsmp
.clientid
!= NULL
)
6894 free(xsmp
.clientid
);
6895 xsmp
.clientid
= NULL
;
6899 #endif /* USE_XSMP */
6903 /* Translate character to its CTRL- value */
6907 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6908 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6909 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6910 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
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,
6916 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6919 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6930 0, 0, 0, 0, 0, 0, 0,
6941 0, 0, 0, 0, 0, 0, 0, 0,
6954 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6956 /* BE - C0 */ 0, 0, 0,
6966 /* CA - D0 */ 0, 0, 0, 0, 0, 0, 0,
6976 /* DA - DF */ 0, 0, 0, 0, 0, 0,
6987 /* EA - FF*/ 0, 0, 0, 0, 0, 0,
6988 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6991 char MetaCharTable
[]=
6992 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
6993 0, 0, 0, 0,'\\', 0,'F', 0,'W','M','N', 0, 0, 0, 0, 0,
6994 0, 0, 0, 0,']', 0, 0,'G', 0, 0,'R','O', 0, 0, 0, 0,
6995 '@','A','B','C','D','E', 0, 0,'H','I','J','K','L', 0, 0, 0,
6996 'P','Q', 0,'S','T','U','V', 0,'X','Y','Z','[', 0, 0,'^', 0
7000 /* TODO: Use characters NOT numbers!!! */
7001 char CtrlCharTable
[]=
7002 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
7003 124,193,194,195, 0,201, 0, 0, 0, 0, 0,210,211,212,213,214,
7004 215,216,217,226, 0,209,200, 0,231,232, 0, 0,224,189, 95,109,
7005 0, 0, 0, 0, 0, 0,230,173, 0, 0, 0, 0, 0,197,198,199,
7006 0, 0,229, 0, 0, 0, 0,196, 0, 0, 0, 0,227,228, 0,233,