1 /* vi:set ts=8 sts=4 sw=4:
3 * VIM - Vi IMproved by Bram Moolenaar
4 * OS/2 port by Paul Slootman
5 * VMS merge by Zoltan Arpadffy
7 * Do ":help uganda" in Vim to read copying and usage conditions.
8 * Do ":help credits" in Vim to see a list of people who contributed.
9 * See README.txt for an overview of the Vim source code.
13 * os_unix.c -- code for all flavors of Unix (BSD, SYSV, SVR4, POSIX, ...)
14 * Also for OS/2, using the excellent EMX package!!!
15 * Also for BeOS and Atari MiNT.
17 * A lot of this file was originally written by Juergen Weigert and later
18 * changed beyond recognition.
22 * Some systems have a prototype for select() that has (int *) instead of
23 * (fd_set *), which is wrong. This define removes that prototype. We define
24 * our own prototype below.
25 * Don't use it for the Mac, it causes a warning for precompiled headers.
26 * TODO: use a configure check for precompiled headers?
28 #if !defined(__APPLE__) && !defined(__TANDEM)
29 # define select select_declared_wrong
35 # include "if_mzsch.h"
38 #include "os_unixx.h" /* unix includes for os_unix.c only */
41 # include <X11/SM/SMlib.h>
45 # include <selinux/selinux.h>
46 static int selinux_enabled
= -1;
50 * Use this prototype for select, some include files have a wrong prototype
55 # define select beos_select
61 # include <cygwin/version.h>
62 # include <sys/cygwin.h> /* for cygwin_conv_to_posix_path() and/or
63 * for cygwin_conv_path() */
67 #if defined(HAVE_SELECT)
68 extern int select
__ARGS((int, fd_set
*, fd_set
*, fd_set
*, struct timeval
*));
73 /* <linux/keyboard.h> contains defines conflicting with "keymap.h",
74 * I just copied relevant defines here. A cleaner solution would be to put gpm
75 * code into separate file and include there linux/keyboard.h
77 /* #include <linux/keyboard.h> */
86 # define KG_CAPSSHIFT 8
88 static void gpm_close
__ARGS((void));
89 static int gpm_open
__ARGS((void));
90 static int mch_gpm_process
__ARGS((void));
94 # include <sys/consio.h>
95 # include <sys/fbio.h>
97 static int sysmouse_open
__ARGS((void));
98 static void sysmouse_close
__ARGS((void));
99 static RETSIGTYPE sig_sysmouse
__ARGS(SIGPROTOARG
);
103 * end of autoconf section. To be extended...
106 /* Are the following #ifdefs still required? And why? Is that for X11? */
108 #if defined(ESIX) || defined(M_UNIX) && !defined(SCO)
117 #if defined(SIGWINDOW) && !defined(SIGWINCH) /* hpux 9.01 has it */
118 # define SIGWINCH SIGWINDOW
122 # include <X11/Xlib.h>
123 # include <X11/Xutil.h>
124 # include <X11/Xatom.h>
125 # ifdef FEAT_XCLIPBOARD
126 # include <X11/Intrinsic.h>
127 # include <X11/Shell.h>
128 # include <X11/StringDefs.h>
129 static Widget xterm_Shell
= (Widget
)0;
130 static void xterm_update
__ARGS((void));
133 # if defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE)
134 Window x11_window
= 0;
136 Display
*x11_display
= NULL
;
139 static int get_x11_windis
__ARGS((void));
140 static void set_x11_title
__ARGS((char_u
*));
141 static void set_x11_icon
__ARGS((char_u
*));
146 static int get_x11_title
__ARGS((int));
147 static int get_x11_icon
__ARGS((int));
149 static char_u
*oldtitle
= NULL
;
150 static int did_set_title
= FALSE
;
151 static char_u
*oldicon
= NULL
;
152 static int did_set_icon
= FALSE
;
155 static void may_core_dump
__ARGS((void));
157 static int WaitForChar
__ARGS((long));
158 #if defined(__BEOS__)
159 int RealWaitForChar
__ARGS((int, long, int *));
161 static int RealWaitForChar
__ARGS((int, long, int *));
164 #ifdef FEAT_XCLIPBOARD
165 static int do_xterm_trace
__ARGS((void));
166 # define XT_TRACE_DELAY 50 /* delay for xterm tracing */
169 static void handle_resize
__ARGS((void));
171 #if defined(SIGWINCH)
172 static RETSIGTYPE sig_winch
__ARGS(SIGPROTOARG
);
175 static RETSIGTYPE catch_sigint
__ARGS(SIGPROTOARG
);
178 static RETSIGTYPE catch_sigpwr
__ARGS(SIGPROTOARG
);
180 #if defined(SIGALRM) && defined(FEAT_X11) \
181 && defined(FEAT_TITLE) && !defined(FEAT_GUI_GTK)
182 # define SET_SIG_ALARM
183 static RETSIGTYPE sig_alarm
__ARGS(SIGPROTOARG
);
184 /* volatile because it is used in signal handler sig_alarm(). */
185 static volatile int sig_alarm_called
;
187 static RETSIGTYPE deathtrap
__ARGS(SIGPROTOARG
);
189 static void catch_int_signal
__ARGS((void));
190 static void set_signals
__ARGS((void));
191 static void catch_signals
__ARGS((RETSIGTYPE (*func_deadly
)(), RETSIGTYPE (*func_other
)()));
193 static int have_wildcard
__ARGS((int, char_u
**));
194 static int have_dollars
__ARGS((int, char_u
**));
198 static int save_patterns
__ARGS((int num_pat
, char_u
**pat
, int *num_file
, char_u
***file
));
202 # define SIG_ERR ((RETSIGTYPE (*)())-1)
205 /* volatile because it is used in signal handler sig_winch(). */
206 static volatile int do_resize
= FALSE
;
208 static char_u
*extra_shell_arg
= NULL
;
209 static int show_shell_mess
= TRUE
;
211 /* volatile because it is used in signal handler deathtrap(). */
212 static volatile int deadly_signal
= 0; /* The signal we caught */
213 /* volatile because it is used in signal handler deathtrap(). */
214 static volatile int in_mch_delay
= FALSE
; /* sleeping in mch_delay() */
216 static int curr_tmode
= TMODE_COOK
; /* contains current terminal mode */
221 SmcConn smcconn
; /* The SM connection ID */
222 IceConn iceconn
; /* The ICE connection ID */
223 char *clientid
; /* The client ID for the current smc session */
224 Bool save_yourself
; /* If we're in the middle of a save_yourself */
225 Bool shutdown
; /* If we're in shutdown mode */
228 static xsmp_config_T xsmp
;
231 #ifdef SYS_SIGLIST_DECLARED
234 * extern char *_sys_siglist[NSIG];
235 * on Irix, Linux, NetBSD and Solaris. It contains a nice list of strings
236 * that describe the signals. That is nearly what we want here. But
237 * autoconf does only check for sys_siglist (without the underscore), I
238 * do not want to change everything today.... jw.
239 * This is why AC_DECL_SYS_SIGLIST is commented out in configure.in
243 static struct signalinfo
245 int sig
; /* Signal number, eg. SIGSEGV etc */
246 char *name
; /* Signal name (not char_u!). */
247 char deadly
; /* Catch as a deadly signal? */
251 {SIGHUP
, "HUP", TRUE
},
254 {SIGQUIT
, "QUIT", TRUE
},
257 {SIGILL
, "ILL", TRUE
},
260 {SIGTRAP
, "TRAP", TRUE
},
263 {SIGABRT
, "ABRT", TRUE
},
266 {SIGEMT
, "EMT", TRUE
},
269 {SIGFPE
, "FPE", TRUE
},
272 {SIGBUS
, "BUS", TRUE
},
275 {SIGSEGV
, "SEGV", TRUE
},
278 {SIGSYS
, "SYS", TRUE
},
281 {SIGALRM
, "ALRM", FALSE
}, /* Perl's alarm() can trigger it */
284 {SIGTERM
, "TERM", TRUE
},
287 {SIGVTALRM
, "VTALRM", TRUE
},
289 #if defined(SIGPROF) && !defined(FEAT_MZSCHEME) && !defined(WE_ARE_PROFILING)
290 /* MzScheme uses SIGPROF for its own needs; On Linux with profiling
291 * this makes Vim exit. WE_ARE_PROFILING is defined in Makefile. */
292 {SIGPROF
, "PROF", TRUE
},
295 {SIGXCPU
, "XCPU", TRUE
},
298 {SIGXFSZ
, "XFSZ", TRUE
},
301 {SIGUSR1
, "USR1", TRUE
},
303 #if defined(SIGUSR2) && !defined(FEAT_SYSMOUSE)
304 /* Used for sysmouse handling */
305 {SIGUSR2
, "USR2", TRUE
},
308 {SIGINT
, "INT", FALSE
},
311 {SIGWINCH
, "WINCH", FALSE
},
314 {SIGTSTP
, "TSTP", FALSE
},
317 {SIGPIPE
, "PIPE", FALSE
},
319 {-1, "Unknown!", FALSE
}
323 * Write s[len] to the screen.
330 ignored
= (int)write(1, (char *)s
, len
);
331 if (p_wd
) /* Unix is too fast, slow down a bit more */
332 RealWaitForChar(read_cmd_fd
, p_wd
, NULL
);
336 * mch_inchar(): low level input function.
337 * Get a characters from the keyboard.
338 * Return the number of characters that are available.
339 * If wtime == 0 do not wait for characters.
340 * If wtime == n wait a short time for characters.
341 * If wtime == -1 wait forever for characters.
344 mch_inchar(buf
, maxlen
, wtime
, tb_change_cnt
)
347 long wtime
; /* don't use "time", MIPS cannot handle it */
352 /* Check if window changed size while we were busy, perhaps the ":set
353 * columns=99" command was used. */
359 while (WaitForChar(wtime
) == 0) /* no character available */
361 if (!do_resize
) /* return if not interrupted by resize */
366 else /* wtime == -1 */
369 * If there is no character available within 'updatetime' seconds
370 * flush all the swap files to disk.
371 * Also done when interrupted by SIGWINCH.
373 if (WaitForChar(p_ut
) == 0)
376 if (trigger_cursorhold() && maxlen
>= 3
377 && !typebuf_changed(tb_change_cnt
))
381 buf
[2] = (int)KE_CURSORHOLD
;
389 for (;;) /* repeat until we got a character */
391 while (do_resize
) /* window changed size */
394 * we want to be interrupted by the winch signal
397 if (do_resize
) /* interrupted by SIGWINCH signal */
400 /* If input was put directly in typeahead buffer bail out here. */
401 if (typebuf_changed(tb_change_cnt
))
405 * For some terminals we only get one character at a time.
406 * We want the get all available characters, so we could keep on
407 * trying until none is available
408 * For some other terminals this is quite slow, that's why we don't do
411 len
= read_from_input_buf(buf
, (long)maxlen
);
417 for (i
= 0; i
< len
; i
++)
434 * return non-zero if a character is available
439 return WaitForChar(0L);
442 #if defined(HAVE_TOTAL_MEM) || defined(PROTO)
443 # ifdef HAVE_SYS_RESOURCE_H
444 # include <sys/resource.h>
446 # if defined(HAVE_SYS_SYSCTL_H) && defined(HAVE_SYSCTL)
447 # include <sys/sysctl.h>
449 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
450 # include <sys/sysinfo.h>
454 * Return total amount of memory available in Kbyte.
455 * Doesn't change when memory has been allocated.
459 mch_total_mem(special
)
463 return ulimit(3, 0L) >> 10; /* always 32MB? */
466 long_u shiftright
= 10; /* how much to shift "mem" right for Kbyte */
472 /* BSD way of getting the amount of RAM available. */
475 len
= sizeof(physmem
);
476 if (sysctl(mib
, 2, &physmem
, &len
, NULL
, 0) == 0)
477 mem
= (long_u
)physmem
;
480 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
483 struct sysinfo sinfo
;
485 /* Linux way of getting amount of RAM available */
486 if (sysinfo(&sinfo
) == 0)
488 # ifdef HAVE_SYSINFO_MEM_UNIT
489 /* avoid overflow as much as possible */
490 while (shiftright
> 0 && (sinfo
.mem_unit
& 1) == 0)
492 sinfo
.mem_unit
= sinfo
.mem_unit
>> 1;
495 mem
= sinfo
.totalram
* sinfo
.mem_unit
;
497 mem
= sinfo
.totalram
;
506 long pagesize
, pagecount
;
508 /* Solaris way of getting amount of RAM available */
509 pagesize
= sysconf(_SC_PAGESIZE
);
510 pagecount
= sysconf(_SC_PHYS_PAGES
);
511 if (pagesize
> 0 && pagecount
> 0)
513 /* avoid overflow as much as possible */
514 while (shiftright
> 0 && (pagesize
& 1) == 0)
516 pagesize
= (long_u
)pagesize
>> 1;
519 mem
= (long_u
)pagesize
* pagecount
;
524 /* Return the minimum of the physical memory and the user limit, because
525 * using more than the user limit may cause Vim to be terminated. */
526 # if defined(HAVE_SYS_RESOURCE_H) && defined(HAVE_GETRLIMIT)
530 if (getrlimit(RLIMIT_DATA
, &rlp
) == 0
531 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
532 # ifdef RLIM_INFINITY
533 && rlp
.rlim_cur
!= RLIM_INFINITY
535 && ((long_u
)rlp
.rlim_cur
>> 10) < (mem
>> shiftright
)
538 mem
= (long_u
)rlp
.rlim_cur
;
545 return mem
>> shiftright
;
546 return (long_u
)0x1fffff;
552 mch_delay(msec
, ignoreinput
)
558 long total
= msec
; /* remember original value */
563 /* Go to cooked mode without echo, to allow SIGINT interrupting us
564 * here. But we don't want QUIT to kill us (CTRL-\ used in a
565 * shell may produce SIGQUIT). */
567 old_tmode
= curr_tmode
;
568 if (curr_tmode
== TMODE_RAW
)
569 settmode(TMODE_SLEEP
);
572 * Everybody sleeps in a different way...
573 * Prefer nanosleep(), some versions of usleep() can only sleep up to
579 /* if total is large enough, wait by portions in p_mzq */
586 #ifdef HAVE_NANOSLEEP
590 ts
.tv_sec
= msec
/ 1000;
591 ts
.tv_nsec
= (msec
% 1000) * 1000000;
592 (void)nanosleep(&ts
, NULL
);
598 usleep((unsigned int)(999 * 1000));
601 usleep((unsigned int)(msec
* 1000));
604 poll(NULL
, 0, (int)msec
);
612 tv
.tv_sec
= msec
/ 1000;
613 tv
.tv_usec
= (msec
% 1000) * 1000;
615 * NOTE: Solaris 2.6 has a bug that makes select() hang here. Get
616 * a patch from Sun to fix this. Reported by Gunnar Pedersen.
618 select(0, NULL
, NULL
, NULL
, &tv
);
620 # endif /* __EMX__ */
621 # endif /* HAVE_SELECT */
622 # endif /* HAVE_NANOSLEEP */
623 #endif /* HAVE_USLEEP */
630 in_mch_delay
= FALSE
;
636 #if 0 /* disabled, no longer needed now that regmatch() is not recursive */
637 # if defined(HAVE_GETRLIMIT)
638 # define HAVE_STACK_LIMIT
642 #if defined(HAVE_STACK_LIMIT) \
643 || (!defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGSTACK))
644 # define HAVE_CHECK_STACK_GROWTH
646 * Support for checking for an almost-out-of-stack-space situation.
650 * Return a pointer to an item on the stack. Used to find out if the stack
653 static void check_stack_growth
__ARGS((char *p
));
654 static int stack_grows_downwards
;
657 * Find out if the stack grows upwards or downwards.
658 * "p" points to a variable on the stack of the caller.
661 check_stack_growth(p
)
666 stack_grows_downwards
= (p
> (char *)&i
);
670 #if defined(HAVE_STACK_LIMIT) || defined(PROTO)
671 static char *stack_limit
= NULL
;
673 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
674 # include <pthread.h>
675 # include <pthread_np.h>
679 * Find out until how var the stack can grow without getting into trouble.
680 * Called when starting up and when switching to the signal stack in
690 /* Set the stack limit to 15/16 of the allowable size. Skip this when the
691 * limit doesn't fit in a long (rlim_cur might be "long long"). */
692 if (getrlimit(RLIMIT_STACK
, &rlp
) == 0
693 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
694 # ifdef RLIM_INFINITY
695 && rlp
.rlim_cur
!= RLIM_INFINITY
699 lim
= (long)rlp
.rlim_cur
;
700 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
705 /* On FreeBSD the initial thread always has a fixed stack size, no
706 * matter what the limits are set to. Normally it's 1 Mbyte. */
707 pthread_attr_init(&attr
);
708 if (pthread_attr_get_np(pthread_self(), &attr
) == 0)
710 pthread_attr_getstacksize(&attr
, &size
);
711 if (lim
> (long)size
)
714 pthread_attr_destroy(&attr
);
717 if (stack_grows_downwards
)
719 stack_limit
= (char *)((long)&i
- (lim
/ 16L * 15L));
720 if (stack_limit
>= (char *)&i
)
721 /* overflow, set to 1/16 of current stack position */
722 stack_limit
= (char *)((long)&i
/ 16L);
726 stack_limit
= (char *)((long)&i
+ (lim
/ 16L * 15L));
727 if (stack_limit
<= (char *)&i
)
728 stack_limit
= NULL
; /* overflow */
734 * Return FAIL when running out of stack space.
735 * "p" must point to any variable local to the caller that's on the stack.
741 if (stack_limit
!= NULL
)
743 if (stack_grows_downwards
)
748 else if (p
> stack_limit
)
755 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
757 * Support for using the signal stack.
758 * This helps when we run out of stack space, which causes a SIGSEGV. The
759 * signal handler then must run on another stack, since the normal stack is
764 # define SIGSTKSZ 8000 /* just a guess of how much stack is needed... */
767 # ifdef HAVE_SIGALTSTACK
768 static stack_t sigstk
; /* for sigaltstack() */
770 static struct sigstack sigstk
; /* for sigstack() */
773 static void init_signal_stack
__ARGS((void));
774 static char *signal_stack
;
779 if (signal_stack
!= NULL
)
781 # ifdef HAVE_SIGALTSTACK
782 # if defined(__APPLE__) && (!defined(MAC_OS_X_VERSION_MAX_ALLOWED) \
783 || MAC_OS_X_VERSION_MAX_ALLOWED <= 1040)
784 /* missing prototype. Adding it to osdef?.h.in doesn't work, because
785 * "struct sigaltstack" needs to be declared. */
786 extern int sigaltstack
__ARGS((const struct sigaltstack
*ss
, struct sigaltstack
*oss
));
790 sigstk
.ss_base
= signal_stack
;
792 sigstk
.ss_sp
= signal_stack
;
794 sigstk
.ss_size
= SIGSTKSZ
;
796 (void)sigaltstack(&sigstk
, NULL
);
798 sigstk
.ss_sp
= signal_stack
;
799 if (stack_grows_downwards
)
800 sigstk
.ss_sp
+= SIGSTKSZ
- 1;
801 sigstk
.ss_onstack
= 0;
802 (void)sigstack(&sigstk
, NULL
);
809 * We need correct prototypes for a signal function, otherwise mean compilers
810 * will barf when the second argument to signal() is ``wrong''.
811 * Let me try it with a few tricky defines from my own osdef.h (jw).
813 #if defined(SIGWINCH)
816 sig_winch
SIGDEFARG(sigarg
)
818 /* this is not required on all systems, but it doesn't hurt anybody */
819 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
828 catch_sigint
SIGDEFARG(sigarg
)
830 /* this is not required on all systems, but it doesn't hurt anybody */
831 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
840 catch_sigpwr
SIGDEFARG(sigarg
)
842 /* this is not required on all systems, but it doesn't hurt anybody */
843 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
845 * I'm not sure we get the SIGPWR signal when the system is really going
846 * down or when the batteries are almost empty. Just preserve the swap
847 * files and don't exit, that can't do any harm.
849 ml_sync_all(FALSE
, FALSE
);
856 * signal function for alarm().
860 sig_alarm
SIGDEFARG(sigarg
)
862 /* doesn't do anything, just to break a system call */
863 sig_alarm_called
= TRUE
;
868 #if (defined(HAVE_SETJMP_H) \
869 && ((defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) \
870 || defined(FEAT_LIBCALL))) \
873 * A simplistic version of setjmp() that only allows one level of using.
874 * Don't call twice before calling mch_endjmp()!.
877 * if (SETJMP(lc_jump_env) != 0)
887 * Note: Can't move SETJMP() here, because a function calling setjmp() must
888 * not return before the saved environment is used.
889 * Returns OK for normal return, FAIL when the protected code caused a
890 * problem and LONGJMP() was used.
910 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
911 /* On FreeBSD the signal stack has to be reset after using siglongjmp(),
912 * otherwise catching the signal only works once. */
919 * This function handles deadly signals.
920 * It tries to preserve any swap file and exit properly.
921 * (partly from Elvis).
924 deathtrap
SIGDEFARG(sigarg
)
926 static int entered
= 0; /* count the number of times we got here.
927 Note: when memory has been corrupted
928 this may get an arbitrary value! */
933 #if defined(HAVE_SETJMP_H)
935 * Catch a crash in protected code.
936 * Restores the environment saved in lc_jump_env, which looks like
937 * SETJMP() returns 1.
941 # if defined(SIGHASARG)
944 lc_active
= FALSE
; /* don't jump again */
945 LONGJMP(lc_jump_env
, 1);
952 /* While in mch_delay() we go to cooked mode to allow a CTRL-C to
953 * interrupt us. But in cooked mode we may also get SIGQUIT, e.g., when
954 * pressing CTRL-\, but we don't want Vim to exit then. */
955 if (in_mch_delay
&& sigarg
== SIGQUIT
)
959 /* When SIGHUP, SIGQUIT, etc. are blocked: postpone the effect and return
960 * here. This avoids that a non-reentrant function is interrupted, e.g.,
961 * free(). Calling free() again may then cause a crash. */
983 && !vim_handle_signal(sigarg
))
987 /* Remember how often we have been called. */
991 /* Set the v:dying variable. */
992 set_vim_var_nr(VV_DYING
, (long)entered
);
995 #ifdef HAVE_STACK_LIMIT
996 /* Since we are now using the signal stack, need to reset the stack
997 * limit. Otherwise using a regexp will fail. */
1002 /* This is for opening gdb the moment Vim crashes.
1003 * You need to manually adjust the file name and Vim executable name.
1004 * Suggested by SungHyun Nam. */
1006 # define VI_GDB_FILE "/tmp/vimgdb"
1007 # define VIM_NAME "/usr/bin/vim"
1008 FILE *fp
= fopen(VI_GDB_FILE
, "w");
1016 , VIM_NAME
, getpid());
1018 system("xterm -e gdb -x "VI_GDB_FILE
);
1019 unlink(VI_GDB_FILE
);
1025 /* try to find the name of this signal */
1026 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1027 if (sigarg
== signal_info
[i
].sig
)
1029 deadly_signal
= sigarg
;
1032 full_screen
= FALSE
; /* don't write message to the GUI, it might be
1033 * part of the problem... */
1035 * If something goes wrong after entering here, we may get here again.
1036 * When this happens, give a message and try to exit nicely (resetting the
1037 * terminal mode, etc.)
1038 * When this happens twice, just exit, don't even try to give a message,
1039 * stack may be corrupt or something weird.
1040 * When this still happens again (or memory was corrupted in such a way
1041 * that "entered" was clobbered) use _exit(), don't try freeing resources.
1045 reset_signals(); /* don't catch any signals anymore */
1053 OUT_STR(_("Vim: Double signal, exiting\n"));
1059 sprintf((char *)IObuff
, _("Vim: Caught deadly signal %s\n"),
1060 signal_info
[i
].name
);
1062 sprintf((char *)IObuff
, _("Vim: Caught deadly signal\n"));
1064 preserve_exit(); /* preserve files and exit */
1075 #if defined(_REENTRANT) && defined(SIGCONT)
1077 * On Solaris with multi-threading, suspending might not work immediately.
1078 * Catch the SIGCONT signal, which will be used as an indication whether the
1079 * suspending has been done or not.
1081 * On Linux, signal is not always handled immediately either.
1082 * See https://bugs.launchpad.net/bugs/291373
1084 * volatile because it is used in in signal handler sigcont_handler().
1086 static volatile int sigcont_received
;
1087 static RETSIGTYPE sigcont_handler
__ARGS(SIGPROTOARG
);
1090 * signal handler for SIGCONT
1094 sigcont_handler
SIGDEFARG(sigarg
)
1096 sigcont_received
= TRUE
;
1102 * If the machine has job control, use it to suspend the program,
1103 * otherwise fake it by starting a new shell.
1108 /* BeOS does have SIGTSTP, but it doesn't work. */
1109 #if defined(SIGTSTP) && !defined(__BEOS__)
1110 out_flush(); /* needed to make cursor visible on some systems */
1111 settmode(TMODE_COOK
);
1112 out_flush(); /* needed to disable mouse on some systems */
1114 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
1115 /* Since we are going to sleep, we can't respond to requests for the X
1116 * selections. Lose them, otherwise other applications will hang. But
1117 * first copy the text to cut buffer 0. */
1118 if (clip_star
.owned
|| clip_plus
.owned
)
1120 x11_export_final_selection();
1121 if (clip_star
.owned
)
1122 clip_lose_selection(&clip_star
);
1123 if (clip_plus
.owned
)
1124 clip_lose_selection(&clip_plus
);
1125 if (x11_display
!= NULL
)
1126 XFlush(x11_display
);
1130 # if defined(_REENTRANT) && defined(SIGCONT)
1131 sigcont_received
= FALSE
;
1133 kill(0, SIGTSTP
); /* send ourselves a STOP signal */
1134 # if defined(_REENTRANT) && defined(SIGCONT)
1136 * Wait for the SIGCONT signal to be handled. It generally happens
1137 * immediately, but somehow not all the time. Do not call pause()
1138 * because there would be race condition which would hang Vim if
1139 * signal happened in between the test of sigcont_received and the
1140 * call to pause(). If signal is not yet received, call sleep(0)
1141 * to just yield CPU. Signal should then be received. If somehow
1142 * it's still not received, sleep 1, 2, 3 ms. Don't bother waiting
1143 * further if signal is not received after 1+2+3+4 ms (not expected
1148 for (wait
= 0; !sigcont_received
&& wait
<= 3L; wait
++)
1149 /* Loop is not entered most of the time */
1150 mch_delay(wait
, FALSE
);
1156 * Set oldtitle to NULL, so the current title is obtained again.
1161 settmode(TMODE_RAW
);
1162 need_check_timestamps
= TRUE
;
1163 did_check_timestamps
= FALSE
;
1178 #ifdef MACOS_CONVERT
1186 #if defined(SIGWINCH)
1188 * WINDOW CHANGE signal is handled with sig_winch().
1190 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
1194 * We want the STOP signal to work, to make mch_suspend() work.
1195 * For "rvim" the STOP signal is ignored.
1198 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
1200 #if defined(_REENTRANT) && defined(SIGCONT)
1201 signal(SIGCONT
, sigcont_handler
);
1205 * We want to ignore breaking of PIPEs.
1208 signal(SIGPIPE
, SIG_IGN
);
1216 * Ignore alarm signals (Perl's alarm() generates it).
1219 signal(SIGALRM
, SIG_IGN
);
1223 * Catch SIGPWR (power failure?) to preserve the swap files, so that no
1224 * work will be lost.
1227 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
1231 * Arrange for other signals to gracefully shutdown Vim.
1233 catch_signals(deathtrap
, SIG_ERR
);
1235 #if defined(FEAT_GUI) && defined(SIGHUP)
1237 * When the GUI is running, ignore the hangup signal.
1240 signal(SIGHUP
, SIG_IGN
);
1244 #if defined(SIGINT) || defined(PROTO)
1246 * Catch CTRL-C (only works while in Cooked mode).
1251 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
1258 catch_signals(SIG_DFL
, SIG_DFL
);
1259 #if defined(_REENTRANT) && defined(SIGCONT)
1260 /* SIGCONT isn't in the list, because its default action is ignore */
1261 signal(SIGCONT
, SIG_DFL
);
1266 catch_signals(func_deadly
, func_other
)
1267 RETSIGTYPE (*func_deadly
)();
1268 RETSIGTYPE (*func_other
)();
1272 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1273 if (signal_info
[i
].deadly
)
1275 #if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGACTION)
1276 struct sigaction sa
;
1278 /* Setup to use the alternate stack for the signal function. */
1279 sa
.sa_handler
= func_deadly
;
1280 sigemptyset(&sa
.sa_mask
);
1281 # if defined(__linux__) && defined(_REENTRANT)
1282 /* On Linux, with glibc compiled for kernel 2.2, there is a bug in
1283 * thread handling in combination with using the alternate stack:
1284 * pthread library functions try to use the stack pointer to
1285 * identify the current thread, causing a SEGV signal, which
1286 * recursively calls deathtrap() and hangs. */
1289 sa
.sa_flags
= SA_ONSTACK
;
1291 sigaction(signal_info
[i
].sig
, &sa
, NULL
);
1293 # if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGVEC)
1296 /* Setup to use the alternate stack for the signal function. */
1297 sv
.sv_handler
= func_deadly
;
1299 sv
.sv_flags
= SV_ONSTACK
;
1300 sigvec(signal_info
[i
].sig
, &sv
, NULL
);
1302 signal(signal_info
[i
].sig
, func_deadly
);
1306 else if (func_other
!= SIG_ERR
)
1307 signal(signal_info
[i
].sig
, func_other
);
1311 * Handling of SIGHUP, SIGQUIT and SIGTERM:
1312 * "when" == a signal: when busy, postpone and return FALSE, otherwise
1314 * "when" == SIGNAL_BLOCK: Going to be busy, block signals
1315 * "when" == SIGNAL_UNBLOCK: Going to wait, unblock signals, use postponed
1317 * Returns TRUE when Vim should exit.
1320 vim_handle_signal(sig
)
1323 static int got_signal
= 0;
1324 static int blocked
= TRUE
;
1328 case SIGNAL_BLOCK
: blocked
= TRUE
;
1331 case SIGNAL_UNBLOCK
: blocked
= FALSE
;
1332 if (got_signal
!= 0)
1334 kill(getpid(), got_signal
);
1339 default: if (!blocked
)
1340 return TRUE
; /* exit! */
1345 got_int
= TRUE
; /* break any loops */
1352 * Check_win checks whether we have an interactive stdout.
1356 mch_check_win(argc
, argv
)
1362 * Store argv[0], may be used for $VIM. Only use it if it is an absolute
1363 * name, mostly it's just "vim" and found in the path, which is unusable.
1365 if (mch_isFullName(argv
[0]))
1366 exe_name
= vim_strsave((char_u
*)argv
[0]);
1374 * Return TRUE if the input comes from a terminal, FALSE otherwise.
1379 if (isatty(read_cmd_fd
))
1386 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H) \
1387 && (defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE))
1389 static void xopen_message
__ARGS((struct timeval
*tvp
));
1392 * Give a message about the elapsed time for opening the X window.
1396 struct timeval
*tvp
; /* must contain start time */
1398 struct timeval end_tv
;
1400 /* Compute elapsed time. */
1401 gettimeofday(&end_tv
, NULL
);
1402 smsg((char_u
*)_("Opening the X display took %ld msec"),
1403 (end_tv
.tv_sec
- tvp
->tv_sec
) * 1000L
1404 + (end_tv
.tv_usec
- tvp
->tv_usec
) / 1000L);
1409 #if defined(FEAT_X11) && (defined(FEAT_TITLE) || defined(FEAT_XCLIPBOARD))
1411 * A few functions shared by X11 title and clipboard code.
1413 static int x_error_handler
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1414 static int x_error_check
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1415 static int x_connect_to_server
__ARGS((void));
1416 static int test_x11_window
__ARGS((Display
*dpy
));
1418 static int got_x_error
= FALSE
;
1421 * X Error handler, otherwise X just exits! (very rude) -- webb
1424 x_error_handler(dpy
, error_event
)
1426 XErrorEvent
*error_event
;
1428 XGetErrorText(dpy
, error_event
->error_code
, (char *)IObuff
, IOSIZE
);
1429 STRCAT(IObuff
, _("\nVim: Got X error\n"));
1431 /* We cannot print a message and continue, because no X calls are allowed
1432 * here (causes my system to hang). Silently continuing might be an
1434 preserve_exit(); /* preserve files and exit */
1436 return 0; /* NOTREACHED */
1440 * Another X Error handler, just used to check for errors.
1444 x_error_check(dpy
, error_event
)
1446 XErrorEvent
*error_event
;
1452 #if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
1453 # if defined(HAVE_SETJMP_H)
1455 * An X IO Error handler, used to catch error while opening the display.
1457 static int x_IOerror_check
__ARGS((Display
*dpy
));
1461 x_IOerror_check(dpy
)
1464 /* This function should not return, it causes exit(). Longjump instead. */
1465 LONGJMP(lc_jump_env
, 1);
1472 * An X IO Error handler, used to catch terminal errors.
1474 static int x_IOerror_handler
__ARGS((Display
*dpy
));
1478 x_IOerror_handler(dpy
)
1484 xterm_Shell
= (Widget
)0;
1486 /* This function should not return, it causes exit(). Longjump instead. */
1487 LONGJMP(x_jump_env
, 1);
1494 * Return TRUE when connection to the X server is desired.
1497 x_connect_to_server()
1499 regmatch_T regmatch
;
1501 #if defined(FEAT_CLIENTSERVER)
1502 if (x_force_connect
)
1508 /* Check for a match with "exclude:" from 'clipboard'. */
1509 if (clip_exclude_prog
!= NULL
)
1511 regmatch
.rm_ic
= FALSE
; /* Don't ignore case */
1512 regmatch
.regprog
= clip_exclude_prog
;
1513 if (vim_regexec(®match
, T_NAME
, (colnr_T
)0))
1520 * Test if "dpy" and x11_window are valid by getting the window title.
1521 * I don't actually want it yet, so there may be a simpler call to use, but
1522 * this will cause the error handler x_error_check() to be called if anything
1523 * is wrong, such as the window pointer being invalid (as can happen when the
1524 * user changes his DISPLAY, but not his WINDOWID) -- webb
1527 test_x11_window(dpy
)
1530 int (*old_handler
)();
1531 XTextProperty text_prop
;
1533 old_handler
= XSetErrorHandler(x_error_check
);
1534 got_x_error
= FALSE
;
1535 if (XGetWMName(dpy
, x11_window
, &text_prop
))
1536 XFree((void *)text_prop
.value
);
1538 (void)XSetErrorHandler(old_handler
);
1540 if (p_verbose
> 0 && got_x_error
)
1541 verb_msg((char_u
*)_("Testing the X display failed"));
1543 return (got_x_error
? FAIL
: OK
);
1551 static int get_x11_thing
__ARGS((int get_title
, int test_only
));
1554 * try to get x11 window and display
1556 * return FAIL for failure, OK otherwise
1562 static int result
= -1;
1563 #define XD_NONE 0 /* x11_display not set here */
1564 #define XD_HERE 1 /* x11_display opened here */
1565 #define XD_GUI 2 /* x11_display used from gui.dpy */
1566 #define XD_XTERM 3 /* x11_display used from xterm_dpy */
1567 static int x11_display_from
= XD_NONE
;
1568 static int did_set_error_handler
= FALSE
;
1570 if (!did_set_error_handler
)
1572 /* X just exits if it finds an error otherwise! */
1573 (void)XSetErrorHandler(x_error_handler
);
1574 did_set_error_handler
= TRUE
;
1577 #if defined(FEAT_GUI_X11) || defined(FEAT_GUI_GTK)
1581 * If the X11 display was opened here before, for the window where Vim
1582 * was started, close that one now to avoid a memory leak.
1584 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1586 XCloseDisplay(x11_display
);
1587 x11_display_from
= XD_NONE
;
1589 if (gui_get_x11_windis(&x11_window
, &x11_display
) == OK
)
1591 x11_display_from
= XD_GUI
;
1597 else if (x11_display_from
== XD_GUI
)
1599 /* GUI must have stopped somehow, clear x11_display */
1602 x11_display_from
= XD_NONE
;
1606 /* When started with the "-X" argument, don't try connecting. */
1607 if (!x_connect_to_server())
1611 * If WINDOWID not set, should try another method to find out
1612 * what the current window number is. The only code I know for
1613 * this is very complicated.
1614 * We assume that zero is invalid for WINDOWID.
1616 if (x11_window
== 0 && (winid
= getenv("WINDOWID")) != NULL
)
1617 x11_window
= (Window
)atol(winid
);
1619 #ifdef FEAT_XCLIPBOARD
1620 if (xterm_dpy
!= NULL
&& x11_window
!= 0)
1622 /* We may have checked it already, but Gnome terminal can move us to
1623 * another window, so we need to check every time. */
1624 if (x11_display_from
!= XD_XTERM
)
1627 * If the X11 display was opened here before, for the window where
1628 * Vim was started, close that one now to avoid a memory leak.
1630 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1631 XCloseDisplay(x11_display
);
1632 x11_display
= xterm_dpy
;
1633 x11_display_from
= XD_XTERM
;
1635 if (test_x11_window(x11_display
) == FAIL
)
1637 /* probably bad $WINDOWID */
1640 x11_display_from
= XD_NONE
;
1647 if (x11_window
== 0 || x11_display
== NULL
)
1650 if (result
!= -1) /* Have already been here and set this */
1651 return result
; /* Don't do all these X calls again */
1653 if (x11_window
!= 0 && x11_display
== NULL
)
1655 #ifdef SET_SIG_ALARM
1656 RETSIGTYPE (*sig_save
)();
1658 #if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1659 struct timeval start_tv
;
1662 gettimeofday(&start_tv
, NULL
);
1665 #ifdef SET_SIG_ALARM
1667 * Opening the Display may hang if the DISPLAY setting is wrong, or
1668 * the network connection is bad. Set an alarm timer to get out.
1670 sig_alarm_called
= FALSE
;
1671 sig_save
= (RETSIGTYPE (*)())signal(SIGALRM
,
1672 (RETSIGTYPE (*)())sig_alarm
);
1675 x11_display
= XOpenDisplay(NULL
);
1677 #ifdef SET_SIG_ALARM
1679 signal(SIGALRM
, (RETSIGTYPE (*)())sig_save
);
1680 if (p_verbose
> 0 && sig_alarm_called
)
1681 verb_msg((char_u
*)_("Opening the X display timed out"));
1683 if (x11_display
!= NULL
)
1685 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1689 xopen_message(&start_tv
);
1693 if (test_x11_window(x11_display
) == FAIL
)
1695 /* Maybe window id is bad */
1697 XCloseDisplay(x11_display
);
1701 x11_display_from
= XD_HERE
;
1704 if (x11_window
== 0 || x11_display
== NULL
)
1705 return (result
= FAIL
);
1706 return (result
= OK
);
1710 * Determine original x11 Window Title
1713 get_x11_title(test_only
)
1716 return get_x11_thing(TRUE
, test_only
);
1720 * Determine original x11 Window icon
1723 get_x11_icon(test_only
)
1728 retval
= get_x11_thing(FALSE
, test_only
);
1730 /* could not get old icon, use terminal name */
1731 if (oldicon
== NULL
&& !test_only
)
1733 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1734 oldicon
= T_NAME
+ 8;
1743 get_x11_thing(get_title
, test_only
)
1744 int get_title
; /* get title string */
1747 XTextProperty text_prop
;
1751 if (get_x11_windis() == OK
)
1753 /* Get window/icon name if any */
1755 status
= XGetWMName(x11_display
, x11_window
, &text_prop
);
1757 status
= XGetWMIconName(x11_display
, x11_window
, &text_prop
);
1760 * If terminal is xterm, then x11_window may be a child window of the
1761 * outer xterm window that actually contains the window/icon name, so
1762 * keep traversing up the tree until a window with a title/icon is
1765 /* Previously this was only done for xterm and alikes. I don't see a
1766 * reason why it would fail for other terminal emulators.
1767 * if (term_is_xterm) */
1771 Window win
= x11_window
;
1773 unsigned int num_children
;
1775 while (!status
|| text_prop
.value
== NULL
)
1777 if (!XQueryTree(x11_display
, win
, &root
, &parent
, &children
,
1781 XFree((void *)children
);
1782 if (parent
== root
|| parent
== 0)
1787 status
= XGetWMName(x11_display
, win
, &text_prop
);
1789 status
= XGetWMIconName(x11_display
, win
, &text_prop
);
1792 if (status
&& text_prop
.value
!= NULL
)
1797 #ifdef FEAT_XFONTSET
1798 if (text_prop
.encoding
== XA_STRING
)
1802 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1804 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1805 #ifdef FEAT_XFONTSET
1810 Status transform_status
;
1813 transform_status
= XmbTextPropertyToTextList(x11_display
,
1816 if (transform_status
>= Success
&& n
> 0 && cl
[0])
1819 oldtitle
= vim_strsave((char_u
*) cl
[0]);
1821 oldicon
= vim_strsave((char_u
*) cl
[0]);
1822 XFreeStringList(cl
);
1827 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1829 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1834 XFree((void *)text_prop
.value
);
1840 /* Are Xutf8 functions available? Avoid error from old compilers. */
1841 #if defined(X_HAVE_UTF8_STRING) && defined(FEAT_MBYTE)
1842 # if X_HAVE_UTF8_STRING
1843 # define USE_UTF8_STRING
1848 * Set x11 Window Title
1850 * get_x11_windis() must be called before this and have returned OK
1853 set_x11_title(title
)
1856 /* XmbSetWMProperties() and Xutf8SetWMProperties() should use a STRING
1857 * when possible, COMPOUND_TEXT otherwise. COMPOUND_TEXT isn't
1858 * supported everywhere and STRING doesn't work for multi-byte titles.
1860 #ifdef USE_UTF8_STRING
1862 Xutf8SetWMProperties(x11_display
, x11_window
, (const char *)title
,
1863 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1867 #if XtSpecificationRelease >= 4
1868 # ifdef FEAT_XFONTSET
1869 XmbSetWMProperties(x11_display
, x11_window
, (const char *)title
,
1870 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1872 XTextProperty text_prop
;
1873 char *c_title
= (char *)title
;
1875 /* directly from example 3-18 "basicwin" of Xlib Programming Manual */
1876 (void)XStringListToTextProperty(&c_title
, 1, &text_prop
);
1877 XSetWMProperties(x11_display
, x11_window
, &text_prop
,
1878 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1881 XStoreName(x11_display
, x11_window
, (char *)title
);
1884 XFlush(x11_display
);
1888 * Set x11 Window icon
1890 * get_x11_windis() must be called before this and have returned OK
1896 /* See above for comments about using X*SetWMProperties(). */
1897 #ifdef USE_UTF8_STRING
1899 Xutf8SetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1900 NULL
, 0, NULL
, NULL
, NULL
);
1904 #if XtSpecificationRelease >= 4
1905 # ifdef FEAT_XFONTSET
1906 XmbSetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1907 NULL
, 0, NULL
, NULL
, NULL
);
1909 XTextProperty text_prop
;
1910 char *c_icon
= (char *)icon
;
1912 (void)XStringListToTextProperty(&c_icon
, 1, &text_prop
);
1913 XSetWMProperties(x11_display
, x11_window
, NULL
, &text_prop
,
1914 NULL
, 0, NULL
, NULL
, NULL
);
1917 XSetIconName(x11_display
, x11_window
, (char *)icon
);
1920 XFlush(x11_display
);
1923 #else /* FEAT_X11 */
1927 get_x11_title(test_only
)
1934 get_x11_icon(test_only
)
1939 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1940 oldicon
= T_NAME
+ 8;
1947 #endif /* FEAT_X11 */
1950 mch_can_restore_title()
1952 return get_x11_title(TRUE
);
1956 mch_can_restore_icon()
1958 return get_x11_icon(TRUE
);
1962 * Set the window title and icon.
1965 mch_settitle(title
, icon
)
1970 static int recursive
= 0;
1972 if (T_NAME
== NULL
) /* no terminal name (yet) */
1974 if (title
== NULL
&& icon
== NULL
) /* nothing to do */
1977 /* When one of the X11 functions causes a deadly signal, we get here again
1978 * recursively. Avoid hanging then (something is probably locked). */
1984 * if the window ID and the display is known, we may use X11 calls
1987 if (get_x11_windis() == OK
)
1990 # if defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) \
1991 || defined(FEAT_GUI_GTK) || defined(FEAT_GUI_MACVIM)
1998 * Note: if "t_TS" is set, title is set with escape sequence rather
1999 * than x11 calls, because the x11 calls don't always work
2001 if ((type
|| *T_TS
!= NUL
) && title
!= NULL
)
2003 if (oldtitle
== NULL
2007 ) /* first call but not in GUI, save title */
2008 (void)get_x11_title(FALSE
);
2010 if (*T_TS
!= NUL
) /* it's OK if t_fs is empty */
2011 term_settitle(title
);
2014 # ifdef FEAT_GUI_GTK
2015 if (!gui
.in_use
) /* don't do this if GTK+ is running */
2017 set_x11_title(title
); /* x11 */
2019 #if defined(FEAT_GUI_GTK) \
2020 || defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) \
2021 || defined(FEAT_GUI_MACVIM)
2023 gui_mch_settitle(title
, icon
);
2025 did_set_title
= TRUE
;
2028 if ((type
|| *T_CIS
!= NUL
) && icon
!= NULL
)
2034 ) /* first call, save icon */
2035 get_x11_icon(FALSE
);
2039 out_str(T_CIS
); /* set icon start */
2041 out_str(T_CIE
); /* set icon end */
2046 # ifdef FEAT_GUI_GTK
2047 if (!gui
.in_use
) /* don't do this if GTK+ is running */
2049 set_x11_icon(icon
); /* x11 */
2051 did_set_icon
= TRUE
;
2057 * Restore the window/icon title.
2058 * "which" is one of:
2059 * 1 only restore title
2060 * 2 only restore icon
2061 * 3 restore title and icon
2064 mch_restore_title(which
)
2067 /* only restore the title or icon when it has been set */
2068 mch_settitle(((which
& 1) && did_set_title
) ?
2069 (oldtitle
? oldtitle
: p_titleold
) : NULL
,
2070 ((which
& 2) && did_set_icon
) ? oldicon
: NULL
);
2073 #endif /* FEAT_TITLE */
2076 * Return TRUE if "name" looks like some xterm name.
2077 * Seiichi Sato mentioned that "mlterm" works like xterm.
2085 return (STRNICMP(name
, "xterm", 5) == 0
2086 || STRNICMP(name
, "nxterm", 6) == 0
2087 || STRNICMP(name
, "kterm", 5) == 0
2088 || STRNICMP(name
, "mlterm", 6) == 0
2089 || STRNICMP(name
, "rxvt", 4) == 0
2090 || STRCMP(name
, "builtin_xterm") == 0);
2093 #if defined(FEAT_MOUSE_XTERM) || defined(PROTO)
2095 * Return TRUE if "name" appears to be that of a terminal
2096 * known to support the xterm-style mouse protocol.
2097 * Relies on term_is_xterm having been set to its correct value.
2100 use_xterm_like_mouse(name
)
2103 return (name
!= NULL
2104 && (term_is_xterm
|| STRNICMP(name
, "screen", 6) == 0));
2108 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
2110 * Return non-zero when using an xterm mouse, according to 'ttymouse'.
2111 * Return 1 for "xterm".
2112 * Return 2 for "xterm2".
2117 if (ttym_flags
== TTYM_XTERM2
)
2119 if (ttym_flags
== TTYM_XTERM
)
2131 return (STRNICMP(name
, "iris-ansi", 9) == 0
2132 || STRCMP(name
, "builtin_iris-ansi") == 0);
2140 return FALSE
; /* actually all ANSI comp. terminals should be here */
2141 /* catch VT100 - VT5xx */
2142 return ((STRNICMP(name
, "vt", 2) == 0
2143 && vim_strchr((char_u
*)"12345", name
[2]) != NULL
)
2144 || STRCMP(name
, "builtin_vt320") == 0);
2148 * Return TRUE if "name" is a terminal for which 'ttyfast' should be set.
2149 * This should include all windowed terminal emulators.
2152 vim_is_fastterm(name
)
2157 if (vim_is_xterm(name
) || vim_is_vt300(name
) || vim_is_iris(name
))
2159 return ( STRNICMP(name
, "hpterm", 6) == 0
2160 || STRNICMP(name
, "sun-cmd", 7) == 0
2161 || STRNICMP(name
, "screen", 6) == 0
2162 || STRNICMP(name
, "dtterm", 6) == 0);
2166 * Insert user name in s[len].
2167 * Return OK if a name found.
2170 mch_get_user_name(s
, len
)
2175 vim_strncpy(s
, (char_u
*)cuserid(NULL
), len
- 1);
2178 return mch_get_uname(getuid(), s
, len
);
2183 * Insert user name for "uid" in s[len].
2184 * Return OK if a name found.
2187 mch_get_uname(uid
, s
, len
)
2192 #if defined(HAVE_PWD_H) && defined(HAVE_GETPWUID)
2195 if ((pw
= getpwuid(uid
)) != NULL
2196 && pw
->pw_name
!= NULL
&& *(pw
->pw_name
) != NUL
)
2198 vim_strncpy(s
, (char_u
*)pw
->pw_name
, len
- 1);
2202 sprintf((char *)s
, "%d", (int)uid
); /* assumes s is long enough */
2203 return FAIL
; /* a number is not a name */
2207 * Insert host name is s[len].
2210 #ifdef HAVE_SYS_UTSNAME_H
2212 mch_get_host_name(s
, len
)
2216 struct utsname vutsname
;
2218 if (uname(&vutsname
) < 0)
2221 vim_strncpy(s
, (char_u
*)vutsname
.nodename
, len
- 1);
2223 #else /* HAVE_SYS_UTSNAME_H */
2225 # ifdef HAVE_SYS_SYSTEMINFO_H
2226 # define gethostname(nam, len) sysinfo(SI_HOSTNAME, nam, len)
2230 mch_get_host_name(s
, len
)
2235 vaxc$
gethostname((char *)s
, len
);
2237 gethostname((char *)s
, len
);
2239 s
[len
- 1] = NUL
; /* make sure it's terminated */
2241 #endif /* HAVE_SYS_UTSNAME_H */
2249 return (long)getpid();
2252 #if !defined(HAVE_STRERROR) && defined(USE_GETCWD)
2253 static char *strerror
__ARGS((int));
2259 extern int sys_nerr
;
2260 extern char *sys_errlist
[];
2263 if (err
> 0 && err
< sys_nerr
)
2264 return (sys_errlist
[err
]);
2265 sprintf(er
, "Error %d", err
);
2271 * Get name of current directory into buffer 'buf' of length 'len' bytes.
2272 * Return OK for success, FAIL for failure.
2275 mch_dirname(buf
, len
)
2279 #if defined(USE_GETCWD)
2280 if (getcwd((char *)buf
, len
) == NULL
)
2282 STRCPY(buf
, strerror(errno
));
2287 return (getwd((char *)buf
) != NULL
? OK
: FAIL
);
2291 #if defined(OS2) || defined(PROTO)
2293 * Replace all slashes by backslashes.
2294 * When 'shellslash' set do it the other way around.
2310 * Get absolute file name into "buf[len]".
2312 * return FAIL for failure, OK for success
2315 mch_FullName(fname
, buf
, len
, force
)
2316 char_u
*fname
, *buf
;
2318 int force
; /* also expand when already absolute path */
2322 int only_drive
; /* file name is only a drive letter */
2326 static int dont_fchdir
= FALSE
; /* TRUE when fchdir() doesn't work */
2328 char_u olddir
[MAXPATHL
];
2332 char_u posix_fname
[MAXPATHL
]; /* Cygwin docs mention MAX_PATH, but
2333 it's not always defined */
2337 fname
= vms_fixfilename(fname
);
2342 * This helps for when "/etc/hosts" is a symlink to "c:/something/hosts".
2344 # if CYGWIN_VERSION_DLL_MAJOR >= 1007
2345 cygwin_conv_path(CCP_WIN_A_TO_POSIX
, fname
, posix_fname
, MAXPATHL
);
2347 cygwin_conv_to_posix_path(fname
, posix_fname
);
2349 fname
= posix_fname
;
2352 /* expand it if forced or not an absolute path */
2353 if (force
|| !mch_isFullName(fname
))
2356 * If the file name has a path, change to that directory for a moment,
2357 * and then do the getwd() (and get back to where we were).
2358 * This will get the correct path name with "../" things.
2362 if (((p
= vim_strrchr(fname
, '/')) != NULL
)
2363 || ((p
= vim_strrchr(fname
, '\\')) != NULL
)
2364 || (((p
= vim_strchr(fname
, ':')) != NULL
) && ++only_drive
))
2366 if ((p
= vim_strrchr(fname
, '/')) != NULL
)
2371 * Use fchdir() if possible, it's said to be faster and more
2372 * reliable. But on SunOS 4 it might not work. Check this by
2373 * doing a fchdir() right now.
2377 fd
= open(".", O_RDONLY
| O_EXTRA
, 0);
2378 if (fd
>= 0 && fchdir(fd
) < 0)
2382 dont_fchdir
= TRUE
; /* don't try again */
2387 /* Only change directory when we are sure we can return to where
2388 * we are now. After doing "su" chdir(".") might not work. */
2393 (mch_dirname(olddir
, MAXPATHL
) == FAIL
2394 || mch_chdir((char *)olddir
) != 0))
2396 p
= NULL
; /* can't get current dir: don't chdir */
2403 * compensate for case where ':' from "D:" was the only
2404 * path separator detected in the file name; the _next_
2405 * character has to be removed, and then restored later.
2410 /* The directory is copied into buf[], to be able to remove
2411 * the file name without changing it (could be a string in
2412 * read-only memory) */
2413 if (p
- fname
>= len
)
2417 vim_strncpy(buf
, fname
, p
- fname
);
2418 if (mch_chdir((char *)buf
))
2434 if (mch_dirname(buf
, len
) == FAIL
)
2449 l
= mch_chdir((char *)olddir
);
2451 EMSG(_(e_prev_dir
));
2460 if (l
> 0 && buf
[l
- 1] != '/' && *fname
!= NUL
2461 && STRCMP(fname
, ".") != 0)
2467 /* Catch file names which are too long. */
2468 if (retval
== FAIL
|| STRLEN(buf
) + STRLEN(fname
) >= len
)
2471 /* Do not append ".", "/dir/." is equal to "/dir". */
2472 if (STRCMP(fname
, ".") != 0)
2479 * Return TRUE if "fname" does not depend on the current directory.
2482 mch_isFullName(fname
)
2486 return _fnisabs(fname
);
2489 return ( fname
[0] == '/' || fname
[0] == '.' ||
2490 strchr((char *)fname
,':') || strchr((char *)fname
,'"') ||
2491 (strchr((char *)fname
,'[') && strchr((char *)fname
,']'))||
2492 (strchr((char *)fname
,'<') && strchr((char *)fname
,'>')) );
2494 return (*fname
== '/' || *fname
== '~');
2499 #if defined(USE_FNAME_CASE) || defined(PROTO)
2501 * Set the case of the file name, if it already exists. This will cause the
2502 * file name to remain exactly the same.
2503 * Only required for file systems where case is ignored and preserved.
2507 fname_case(name
, len
)
2509 int len
; /* buffer size, only used when name gets longer */
2512 char_u
*slash
, *tail
;
2516 if (lstat((char *)name
, &st
) >= 0)
2518 /* Open the directory where the file is located. */
2519 slash
= vim_strrchr(name
, '/');
2522 dirp
= opendir(".");
2528 dirp
= opendir((char *)name
);
2535 while ((dp
= readdir(dirp
)) != NULL
)
2537 /* Only accept names that differ in case and are the same byte
2538 * length. TODO: accept different length name. */
2539 if (STRICMP(tail
, dp
->d_name
) == 0
2540 && STRLEN(tail
) == STRLEN(dp
->d_name
))
2542 char_u newname
[MAXPATHL
+ 1];
2545 /* Verify the inode is equal. */
2546 vim_strncpy(newname
, name
, MAXPATHL
);
2547 vim_strncpy(newname
+ (tail
- name
), (char_u
*)dp
->d_name
,
2548 MAXPATHL
- (tail
- name
));
2549 if (lstat((char *)newname
, &st2
) >= 0
2550 && st
.st_ino
== st2
.st_ino
2551 && st
.st_dev
== st2
.st_dev
)
2553 STRCPY(tail
, dp
->d_name
);
2566 * Get file permissions for 'name'.
2567 * Returns -1 when it doesn't exist.
2575 /* Keep the #ifdef outside of stat(), it may be a macro. */
2577 if (stat((char *)vms_fixfilename(name
), &statb
))
2579 if (stat((char *)name
, &statb
))
2583 /* The top bit makes the value negative, which means the file doesn't
2584 * exist. Remove the bit, we don't use it. */
2585 return statb
.st_mode
& ~S_ADDACE
;
2587 return statb
.st_mode
;
2592 * set file permission for 'name' to 'perm'
2594 * return FAIL for failure, OK otherwise
2597 mch_setperm(name
, perm
)
2601 return (chmod((char *)
2603 vms_fixfilename(name
),
2607 (mode_t
)perm
) == 0 ? OK
: FAIL
);
2610 #if defined(HAVE_ACL) || defined(PROTO)
2611 # ifdef HAVE_SYS_ACL_H
2612 # include <sys/acl.h>
2614 # ifdef HAVE_SYS_ACCESS_H
2615 # include <sys/access.h>
2618 # ifdef HAVE_SOLARIS_ACL
2619 typedef struct vim_acl_solaris_T
{
2621 aclent_t
*acl_entry
;
2622 } vim_acl_solaris_T
;
2625 #if defined(HAVE_SELINUX) || defined(PROTO)
2627 * Copy security info from "from_file" to "to_file".
2630 mch_copy_sec(from_file
, to_file
)
2634 if (from_file
== NULL
)
2637 if (selinux_enabled
== -1)
2638 selinux_enabled
= is_selinux_enabled();
2640 if (selinux_enabled
> 0)
2642 security_context_t from_context
= NULL
;
2643 security_context_t to_context
= NULL
;
2645 if (getfilecon((char *)from_file
, &from_context
) < 0)
2647 /* If the filesystem doesn't support extended attributes,
2648 the original had no special security context and the
2649 target cannot have one either. */
2650 if (errno
== EOPNOTSUPP
)
2653 MSG_PUTS(_("\nCould not get security context for "));
2654 msg_outtrans(from_file
);
2658 if (getfilecon((char *)to_file
, &to_context
) < 0)
2660 MSG_PUTS(_("\nCould not get security context for "));
2661 msg_outtrans(to_file
);
2663 freecon (from_context
);
2666 if (strcmp(from_context
, to_context
) != 0)
2668 if (setfilecon((char *)to_file
, from_context
) < 0)
2670 MSG_PUTS(_("\nCould not set security context for "));
2671 msg_outtrans(to_file
);
2675 freecon(to_context
);
2676 freecon(from_context
);
2679 #endif /* HAVE_SELINUX */
2682 * Return a pointer to the ACL of file "fname" in allocated memory.
2683 * Return NULL if the ACL is not available for whatever reason.
2689 vim_acl_T ret
= NULL
;
2690 #ifdef HAVE_POSIX_ACL
2691 ret
= (vim_acl_T
)acl_get_file((char *)fname
, ACL_TYPE_ACCESS
);
2693 #ifdef HAVE_SOLARIS_ACL
2694 vim_acl_solaris_T
*aclent
;
2696 aclent
= malloc(sizeof(vim_acl_solaris_T
));
2697 if ((aclent
->acl_cnt
= acl((char *)fname
, GETACLCNT
, 0, NULL
)) < 0)
2702 aclent
->acl_entry
= malloc(aclent
->acl_cnt
* sizeof(aclent_t
));
2703 if (acl((char *)fname
, GETACL
, aclent
->acl_cnt
, aclent
->acl_entry
) < 0)
2705 free(aclent
->acl_entry
);
2709 ret
= (vim_acl_T
)aclent
;
2711 #if defined(HAVE_AIX_ACL)
2715 aclsize
= sizeof(struct acl
);
2716 aclent
= malloc(aclsize
);
2717 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2719 if (errno
== ENOSPC
)
2721 aclsize
= aclent
->acl_len
;
2722 aclent
= realloc(aclent
, aclsize
);
2723 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2735 ret
= (vim_acl_T
)aclent
;
2736 #endif /* HAVE_AIX_ACL */
2737 #endif /* HAVE_SOLARIS_ACL */
2738 #endif /* HAVE_POSIX_ACL */
2743 * Set the ACL of file "fname" to "acl" (unless it's NULL).
2746 mch_set_acl(fname
, aclent
)
2752 #ifdef HAVE_POSIX_ACL
2753 acl_set_file((char *)fname
, ACL_TYPE_ACCESS
, (acl_t
)aclent
);
2755 #ifdef HAVE_SOLARIS_ACL
2756 acl((char *)fname
, SETACL
, ((vim_acl_solaris_T
*)aclent
)->acl_cnt
,
2757 ((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2760 chacl((char *)fname
, aclent
, ((struct acl
*)aclent
)->acl_len
);
2761 #endif /* HAVE_AIX_ACL */
2762 #endif /* HAVE_SOLARIS_ACL */
2763 #endif /* HAVE_POSIX_ACL */
2767 mch_free_acl(aclent
)
2772 #ifdef HAVE_POSIX_ACL
2773 acl_free((acl_t
)aclent
);
2775 #ifdef HAVE_SOLARIS_ACL
2776 free(((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2781 #endif /* HAVE_AIX_ACL */
2782 #endif /* HAVE_SOLARIS_ACL */
2783 #endif /* HAVE_POSIX_ACL */
2788 * Set hidden flag for "name".
2795 /* can't hide a file */
2799 * return TRUE if "name" is a directory
2800 * return FALSE if "name" is not a directory
2801 * return FALSE for error
2809 if (*name
== NUL
) /* Some stat()s don't flag "" as an error. */
2811 if (stat((char *)name
, &statb
))
2813 #ifdef _POSIX_SOURCE
2814 return (S_ISDIR(statb
.st_mode
) ? TRUE
: FALSE
);
2816 return ((statb
.st_mode
& S_IFMT
) == S_IFDIR
? TRUE
: FALSE
);
2820 static int executable_file
__ARGS((char_u
*name
));
2823 * Return 1 if "name" is an executable file, 0 if not or it doesn't exist.
2826 executable_file(name
)
2831 if (stat((char *)name
, &st
))
2833 return S_ISREG(st
.st_mode
) && mch_access((char *)name
, X_OK
) == 0;
2837 * Return 1 if "name" can be found in $PATH and executed, 0 if not.
2838 * Return -1 if unknown.
2848 /* If it's an absolute or relative path don't need to use $PATH. */
2849 if (mch_isFullName(name
) || (name
[0] == '.' && (name
[1] == '/'
2850 || (name
[1] == '.' && name
[2] == '/'))))
2851 return executable_file(name
);
2853 p
= (char_u
*)getenv("PATH");
2854 if (p
== NULL
|| *p
== NUL
)
2856 buf
= alloc((unsigned)(STRLEN(name
) + STRLEN(p
) + 2));
2861 * Walk through all entries in $PATH to check if "name" exists there and
2862 * is an executable file.
2866 e
= (char_u
*)strchr((char *)p
, ':');
2869 if (e
- p
<= 1) /* empty entry means current dir */
2873 vim_strncpy(buf
, p
, e
- p
);
2877 retval
= executable_file(buf
);
2891 * Check what "name" is:
2892 * NODE_NORMAL: file or directory (or doesn't exist)
2893 * NODE_WRITABLE: writable device, socket, fifo, etc.
2894 * NODE_OTHER: non-writable things
2902 if (stat((char *)name
, &st
))
2904 if (S_ISREG(st
.st_mode
) || S_ISDIR(st
.st_mode
))
2907 if (S_ISBLK(st
.st_mode
)) /* block device isn't writable */
2910 /* Everything else is writable? */
2911 return NODE_WRITABLE
;
2917 #ifdef HAVE_CHECK_STACK_GROWTH
2920 check_stack_growth((char *)&i
);
2922 # ifdef HAVE_STACK_LIMIT
2929 * Setup an alternative stack for signals. Helps to catch signals when
2930 * running out of stack space.
2931 * Use of sigaltstack() is preferred, it's more portable.
2932 * Ignore any errors.
2934 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2935 signal_stack
= (char *)alloc(SIGSTKSZ
);
2936 init_signal_stack();
2940 #if defined(EXITFREE) || defined(PROTO)
2944 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
2945 if (clip_star
.owned
)
2946 clip_lose_selection(&clip_star
);
2947 if (clip_plus
.owned
)
2948 clip_lose_selection(&clip_plus
);
2950 # if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
2951 if (xterm_Shell
!= (Widget
)0)
2952 XtDestroyWidget(xterm_Shell
);
2953 # ifndef LESSTIF_VERSION
2954 /* Lesstif crashes here, lose some memory */
2955 if (xterm_dpy
!= NULL
)
2956 XtCloseDisplay(xterm_dpy
);
2957 if (app_context
!= (XtAppContext
)NULL
)
2959 XtDestroyApplicationContext(app_context
);
2961 x11_display
= NULL
; /* freed by XtDestroyApplicationContext() */
2966 /* Don't close the display for GTK 1, it is done in exit(). */
2967 # if defined(FEAT_X11) && (!defined(FEAT_GUI_GTK) || defined(HAVE_GTK2))
2968 if (x11_display
!= NULL
2969 # ifdef FEAT_XCLIPBOARD
2970 && x11_display
!= xterm_dpy
2973 XCloseDisplay(x11_display
);
2975 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2976 vim_free(signal_stack
);
2977 signal_stack
= NULL
;
2986 static void exit_scroll
__ARGS((void));
2989 * Output a newline when exiting.
2990 * Make sure the newline goes to the same stream as the text.
2997 if (newline_on_exit
|| msg_didout
)
2999 if (msg_use_printf())
3011 restore_cterm_colors(); /* get original colors back */
3012 msg_clr_eos_force(); /* clear the rest of the display */
3013 windgoto((int)Rows
- 1, 0); /* may have moved the cursor */
3023 #if defined(FEAT_X11) && defined(FEAT_CLIPBOARD)
3024 x11_export_final_selection();
3031 settmode(TMODE_COOK
);
3033 mch_restore_title(3); /* restore xterm title and icon name */
3036 * When t_ti is not empty but it doesn't cause swapping terminal
3037 * pages, need to output a newline when msg_didout is set. But when
3038 * t_ti does swap pages it should not go to the shell page. Do this
3039 * before stoptermcap().
3041 if (swapping_screen() && !newline_on_exit
)
3044 /* Stop termcap: May need to check for T_CRV response, which
3045 * requires RAW mode. */
3049 * A newline is only required after a message in the alternate screen.
3050 * This is set to TRUE by wait_return().
3052 if (!swapping_screen() || newline_on_exit
)
3055 /* Cursor may have been switched off without calling starttermcap()
3056 * when doing "vim -u vimrc" and vimrc contains ":q". */
3061 ml_close_all(TRUE
); /* remove all memfiles */
3068 #ifdef MACOS_CONVERT
3073 /* A core dump won't be created if the signal handler
3074 * doesn't return, so we can't call exit() */
3075 if (deadly_signal
!= 0)
3079 #ifdef FEAT_NETBEANS_INTG
3081 netbeans_send_disconnect();
3094 if (deadly_signal
!= 0)
3096 signal(deadly_signal
, SIG_DFL
);
3097 kill(getpid(), deadly_signal
); /* Die using the signal we caught */
3107 static int first
= TRUE
;
3109 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3110 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3112 * for "new" tty systems
3114 # ifdef HAVE_TERMIOS_H
3115 static struct termios told
;
3116 struct termios tnew
;
3118 static struct termio told
;
3125 # if defined(HAVE_TERMIOS_H)
3126 tcgetattr(read_cmd_fd
, &told
);
3128 ioctl(read_cmd_fd
, TCGETA
, &told
);
3133 if (tmode
== TMODE_RAW
)
3136 * ~ICRNL enables typing ^V^M
3138 tnew
.c_iflag
&= ~ICRNL
;
3139 tnew
.c_lflag
&= ~(ICANON
| ECHO
| ISIG
| ECHOE
3140 # if defined(IEXTEN) && !defined(__MINT__)
3141 | IEXTEN
/* IEXTEN enables typing ^V on SOLARIS */
3142 /* but it breaks function keys on MINT */
3145 # ifdef ONLCR /* don't map NL -> CR NL, we do it ourselves */
3146 tnew
.c_oflag
&= ~ONLCR
;
3148 tnew
.c_cc
[VMIN
] = 1; /* return after 1 char */
3149 tnew
.c_cc
[VTIME
] = 0; /* don't wait */
3151 else if (tmode
== TMODE_SLEEP
)
3152 tnew
.c_lflag
&= ~(ECHO
);
3154 # if defined(HAVE_TERMIOS_H)
3158 /* A signal may cause tcsetattr() to fail (e.g., SIGCONT). Retry a
3160 while (tcsetattr(read_cmd_fd
, TCSANOW
, &tnew
) == -1
3161 && errno
== EINTR
&& n
> 0)
3165 ioctl(read_cmd_fd
, TCSETA
, &tnew
);
3171 * for "old" tty systems
3174 # define TIOCSETN TIOCSETP /* for hpux 9.0 */
3176 static struct sgttyb ttybold
;
3177 struct sgttyb ttybnew
;
3182 ioctl(read_cmd_fd
, TIOCGETP
, &ttybold
);
3186 if (tmode
== TMODE_RAW
)
3188 ttybnew
.sg_flags
&= ~(CRMOD
| ECHO
);
3189 ttybnew
.sg_flags
|= RAW
;
3191 else if (tmode
== TMODE_SLEEP
)
3192 ttybnew
.sg_flags
&= ~(ECHO
);
3193 ioctl(read_cmd_fd
, TIOCSETN
, &ttybnew
);
3199 * Try to get the code for "t_kb" from the stty setting
3201 * Even if termcap claims a backspace key, the user's setting *should*
3202 * prevail. stty knows more about reality than termcap does, and if
3203 * somebody's usual erase key is DEL (which, for most BSD users, it will
3204 * be), they're going to get really annoyed if their erase key starts
3205 * doing forward deletes for no reason. (Eric Fischer)
3213 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3214 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3215 /* for "new" tty systems */
3216 # ifdef HAVE_TERMIOS_H
3217 struct termios keys
;
3222 # if defined(HAVE_TERMIOS_H)
3223 if (tcgetattr(read_cmd_fd
, &keys
) != -1)
3225 if (ioctl(read_cmd_fd
, TCGETA
, &keys
) != -1)
3228 buf
[0] = keys
.c_cc
[VERASE
];
3229 intr_char
= keys
.c_cc
[VINTR
];
3231 /* for "old" tty systems */
3234 if (ioctl(read_cmd_fd
, TIOCGETP
, &keys
) != -1)
3236 buf
[0] = keys
.sg_erase
;
3237 intr_char
= keys
.sg_kill
;
3240 add_termcode((char_u
*)"kb", buf
, FALSE
);
3243 * If <BS> and <DEL> are now the same, redefine <DEL>.
3245 p
= find_termcode((char_u
*)"kD");
3246 if (p
!= NULL
&& p
[0] == buf
[0] && p
[1] == buf
[1])
3250 } /* to keep cindent happy */
3256 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
3258 * Set mouse clicks on or off.
3264 static int ison
= FALSE
;
3265 int xterm_mouse_vers
;
3267 if (on
== ison
) /* return quickly if nothing to do */
3270 xterm_mouse_vers
= use_xterm_mouse();
3271 if (xterm_mouse_vers
> 0)
3273 if (on
) /* enable mouse events, use mouse tracking if available */
3274 out_str_nf((char_u
*)
3275 (xterm_mouse_vers
> 1
3276 ? IF_EB("\033[?1002h", ESC_STR
"[?1002h")
3277 : IF_EB("\033[?1000h", ESC_STR
"[?1000h")));
3278 else /* disable mouse events, could probably always send the same */
3279 out_str_nf((char_u
*)
3280 (xterm_mouse_vers
> 1
3281 ? IF_EB("\033[?1002l", ESC_STR
"[?1002l")
3282 : IF_EB("\033[?1000l", ESC_STR
"[?1000l")));
3286 # ifdef FEAT_MOUSE_DEC
3287 else if (ttym_flags
== TTYM_DEC
)
3289 if (on
) /* enable mouse events */
3290 out_str_nf((char_u
*)"\033[1;2'z\033[1;3'{");
3291 else /* disable mouse events */
3292 out_str_nf((char_u
*)"\033['z");
3297 # ifdef FEAT_MOUSE_GPM
3313 # ifdef FEAT_SYSMOUSE
3318 if (sysmouse_open() == OK
)
3329 # ifdef FEAT_MOUSE_JSB
3334 /* D - Enable Mouse up/down messages
3335 * L - Enable Left Button Reporting
3336 * M - Enable Middle Button Reporting
3337 * R - Enable Right Button Reporting
3338 * K - Enable SHIFT and CTRL key Reporting
3339 * + - Enable Advanced messaging of mouse moves and up/down messages
3341 * # - Numeric value of mouse pointer required
3342 * 0 = Multiview 2000 cursor, used as standard
3344 * 2 = Windows I Beam
3345 * 3 = Windows Hour Glass
3346 * 4 = Windows Cross Hair
3347 * 5 = Windows UP Arrow
3349 #ifdef JSBTERM_MOUSE_NONADVANCED /* Disables full feedback of pointer movements */
3350 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK1Q\033\\",
3351 ESC_STR
"[0~ZwLMRK1Q" ESC_STR
"\\"));
3353 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK+1Q\033\\",
3354 ESC_STR
"[0~ZwLMRK+1Q" ESC_STR
"\\"));
3360 out_str_nf((char_u
*)IF_EB("\033[0~ZwQ\033\\",
3361 ESC_STR
"[0~ZwQ" ESC_STR
"\\"));
3366 # ifdef FEAT_MOUSE_PTERM
3369 /* 1 = button press, 6 = release, 7 = drag, 1h...9l = right button */
3371 out_str_nf("\033[>1h\033[>6h\033[>7h\033[>1h\033[>9l");
3373 out_str_nf("\033[>1l\033[>6l\033[>7l\033[>1l\033[>9h");
3380 * Set the mouse termcode, depending on the 'term' and 'ttymouse' options.
3383 check_mouse_termcode()
3385 # ifdef FEAT_MOUSE_XTERM
3386 if (use_xterm_mouse()
3392 set_mouse_termcode(KS_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3393 ? IF_EB("\233M", CSI_STR
"M")
3394 : IF_EB("\033[M", ESC_STR
"[M")));
3395 if (*p_mouse
!= NUL
)
3397 /* force mouse off and maybe on to send possibly new mouse
3398 * activation sequence to the xterm, with(out) drag tracing. */
3399 mch_setmouse(FALSE
);
3404 del_mouse_termcode(KS_MOUSE
);
3407 # ifdef FEAT_MOUSE_GPM
3408 if (!use_xterm_mouse()
3413 set_mouse_termcode(KS_MOUSE
, (char_u
*)IF_EB("\033MG", ESC_STR
"MG"));
3416 # ifdef FEAT_SYSMOUSE
3417 if (!use_xterm_mouse()
3422 set_mouse_termcode(KS_MOUSE
, (char_u
*)IF_EB("\033MS", ESC_STR
"MS"));
3425 # ifdef FEAT_MOUSE_JSB
3426 /* conflicts with xterm mouse: "\033[" and "\033[M" ??? */
3427 if (!use_xterm_mouse()
3432 set_mouse_termcode(KS_JSBTERM_MOUSE
,
3433 (char_u
*)IF_EB("\033[0~zw", ESC_STR
"[0~zw"));
3435 del_mouse_termcode(KS_JSBTERM_MOUSE
);
3438 # ifdef FEAT_MOUSE_NET
3439 /* There is no conflict, but one may type "ESC }" from Insert mode. Don't
3440 * define it in the GUI or when using an xterm. */
3441 if (!use_xterm_mouse()
3446 set_mouse_termcode(KS_NETTERM_MOUSE
,
3447 (char_u
*)IF_EB("\033}", ESC_STR
"}"));
3449 del_mouse_termcode(KS_NETTERM_MOUSE
);
3452 # ifdef FEAT_MOUSE_DEC
3453 /* conflicts with xterm mouse: "\033[" and "\033[M" */
3454 if (!use_xterm_mouse()
3459 set_mouse_termcode(KS_DEC_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3460 ? IF_EB("\233", CSI_STR
) : IF_EB("\033[", ESC_STR
"[")));
3462 del_mouse_termcode(KS_DEC_MOUSE
);
3464 # ifdef FEAT_MOUSE_PTERM
3465 /* same as the dec mouse */
3466 if (!use_xterm_mouse()
3471 set_mouse_termcode(KS_PTERM_MOUSE
,
3472 (char_u
*) IF_EB("\033[", ESC_STR
"["));
3474 del_mouse_termcode(KS_PTERM_MOUSE
);
3480 * set screen mode, always fails.
3487 EMSG(_(e_screenmode
));
3494 * Try to get the current window size:
3495 * 1. with an ioctl(), most accurate method
3496 * 2. from the environment variables LINES and COLUMNS
3497 * 3. from the termcap
3498 * 4. keep using the old values
3499 * Return OK when size could be determined, FAIL otherwise.
3509 * For OS/2 use _scrsize().
3522 * 1. try using an ioctl. It is the most accurate method.
3524 * Try using TIOCGWINSZ first, some systems that have it also define
3525 * TIOCGSIZE but don't have a struct ttysize.
3532 /* When stdout is not a tty, use stdin for the ioctl(). */
3533 if (!isatty(fd
) && isatty(read_cmd_fd
))
3535 if (ioctl(fd
, TIOCGWINSZ
, &ws
) == 0)
3537 columns
= ws
.ws_col
;
3541 # else /* TIOCGWINSZ */
3547 /* When stdout is not a tty, use stdin for the ioctl(). */
3548 if (!isatty(fd
) && isatty(read_cmd_fd
))
3550 if (ioctl(fd
, TIOCGSIZE
, &ts
) == 0)
3552 columns
= ts
.ts_cols
;
3556 # endif /* TIOCGSIZE */
3557 # endif /* TIOCGWINSZ */
3560 * 2. get size from environment
3561 * When being POSIX compliant ('|' flag in 'cpoptions') this overrules
3562 * the ioctl() values!
3564 if (columns
== 0 || rows
== 0 || vim_strchr(p_cpo
, CPO_TSIZE
) != NULL
)
3566 if ((p
= (char_u
*)getenv("LINES")))
3567 rows
= atoi((char *)p
);
3568 if ((p
= (char_u
*)getenv("COLUMNS")))
3569 columns
= atoi((char *)p
);
3574 * 3. try reading "co" and "li" entries from termcap
3576 if (columns
== 0 || rows
== 0)
3577 getlinecol(&columns
, &rows
);
3581 * 4. If everything fails, use the old values
3583 if (columns
<= 0 || rows
<= 0)
3592 * Try to set the window size to Rows and Columns.
3600 * NOTE: if you get an error here that term_set_winsize() is
3601 * undefined, check the output of configure. It could probably not
3602 * find a ncurses, termcap or termlib library.
3604 term_set_winsize((int)Rows
, (int)Columns
);
3606 screen_start(); /* don't know where cursor is now */
3613 * Rows and/or Columns has changed.
3618 /* Nothing to do. */
3622 static void append_ga_line
__ARGS((garray_T
*gap
));
3625 * Append the text in "gap" below the cursor line and clear "gap".
3631 /* Remove trailing CR. */
3634 && ((char_u
*)gap
->ga_data
)[gap
->ga_len
- 1] == CAR
)
3636 ga_append(gap
, NUL
);
3637 ml_append(curwin
->w_cursor
.lnum
++, gap
->ga_data
, 0, FALSE
);
3643 mch_call_shell(cmd
, options
)
3645 int options
; /* SHELL_*, see vim.h */
3651 int tmode
= cur_tmode
;
3652 #ifdef USE_SYSTEM /* use system() to start the shell: simple but slow */
3655 char_u
*newcmd
; /* only needed for unix */
3658 * Set the preferred shell in the EMXSHELL environment variable (but
3659 * only if it is different from what is already in the environment).
3660 * Emx then takes care of whether to use "/c" or "-c" in an
3661 * intelligent way. Simply pass the whole thing to emx's system() call.
3662 * Emx also starts an interactive shell if system() is passed an empty
3667 if (((old
= (char_u
*)getenv("EMXSHELL")) == NULL
) || STRCMP(old
, p_sh
))
3669 /* should check HAVE_SETENV, but I know we don't have it. */
3670 p
= alloc(10 + strlen(p_sh
));
3673 sprintf((char *)p
, "EMXSHELL=%s", p_sh
);
3674 putenv((char *)p
); /* don't free the pointer! */
3681 if (options
& SHELL_COOKED
)
3682 settmode(TMODE_COOK
); /* set to normal mode */
3686 x
= system(""); /* this starts an interactive shell in emx */
3688 x
= system((char *)cmd
);
3689 /* system() returns -1 when error occurs in starting shell */
3690 if (x
== -1 && !emsg_silent
)
3692 MSG_PUTS(_("\nCannot execute shell "));
3696 # else /* not __EMX__ */
3698 x
= system((char *)p_sh
);
3702 if (ofn
= strchr((char *)cmd
, '>'))
3704 if (ifn
= strchr((char *)cmd
, '<'))
3709 p
= strchr(ifn
,' '); /* chop off any trailing spaces */
3714 x
= vms_sys((char *)cmd
, ofn
, ifn
);
3716 x
= system((char *)cmd
);
3718 newcmd
= lalloc(STRLEN(p_sh
)
3719 + (extra_shell_arg
== NULL
? 0 : STRLEN(extra_shell_arg
))
3720 + STRLEN(p_shcf
) + STRLEN(cmd
) + 4, TRUE
);
3725 sprintf((char *)newcmd
, "%s %s %s %s", p_sh
,
3726 extra_shell_arg
== NULL
? "" : (char *)extra_shell_arg
,
3729 x
= system((char *)newcmd
);
3735 x
= vms_sys_status(x
);
3740 MSG_PUTS(_("\nCannot execute shell sh\n"));
3741 # endif /* __EMX__ */
3742 else if (x
&& !(options
& SHELL_SILENT
))
3744 MSG_PUTS(_("\nshell returned "));
3745 msg_outnum((long)x
);
3749 if (tmode
== TMODE_RAW
)
3750 settmode(TMODE_RAW
); /* set to raw mode */
3756 #else /* USE_SYSTEM */ /* don't use system(), use fork()/exec() */
3758 # define EXEC_FAILED 122 /* Exit code when shell didn't execute. Don't use
3759 127, some shells use that already */
3761 char_u
*newcmd
= NULL
;
3765 # ifdef HAVE_UNION_WAIT
3776 int pty_master_fd
= -1; /* for pty's */
3778 int pty_slave_fd
= -1;
3781 int fd_toshell
[2]; /* for pipes */
3782 int fd_fromshell
[2];
3783 int pipe_error
= FALSE
;
3787 static char envbuf_Rows
[20];
3788 static char envbuf_Columns
[20];
3790 int did_settmode
= FALSE
; /* settmode(TMODE_RAW) called */
3793 if (options
& SHELL_COOKED
)
3794 settmode(TMODE_COOK
); /* set to normal mode */
3796 newcmd
= vim_strsave(p_sh
);
3797 if (newcmd
== NULL
) /* out of memory */
3801 * Do this loop twice:
3802 * 1: find number of arguments
3803 * 2: separate them and build argv[]
3805 for (i
= 0; i
< 2; ++i
)
3813 argv
[argc
] = (char *)p
;
3815 while (*p
&& (inquote
|| (*p
!= ' ' && *p
!= TAB
)))
3829 argv
= (char **)alloc((unsigned)((argc
+ 4) * sizeof(char *)));
3830 if (argv
== NULL
) /* out of memory */
3836 if (extra_shell_arg
!= NULL
)
3837 argv
[argc
++] = (char *)extra_shell_arg
;
3838 argv
[argc
++] = (char *)p_shcf
;
3839 argv
[argc
++] = (char *)cmd
;
3844 * For the GUI, when writing the output into the buffer and when reading
3845 * input from the buffer: Try using a pseudo-tty to get the stdin/stdout
3846 * of the executed command into the Vim window. Or use a pipe.
3848 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3850 || (gui
.in_use
&& show_shell_mess
)
3856 * Try to open a master pty.
3857 * If this works, open the slave pty.
3858 * If the slave can't be opened, close the master pty.
3860 if (p_guipty
&& !(options
& (SHELL_READ
|SHELL_WRITE
)))
3862 pty_master_fd
= OpenPTY(&tty_name
); /* open pty */
3863 if (pty_master_fd
>= 0 && ((pty_slave_fd
=
3864 open(tty_name
, O_RDWR
| O_EXTRA
, 0)) < 0))
3866 close(pty_master_fd
);
3871 * If not opening a pty or it didn't work, try using pipes.
3873 if (pty_master_fd
< 0)
3876 pipe_error
= (pipe(fd_toshell
) < 0);
3877 if (!pipe_error
) /* pipe create OK */
3879 pipe_error
= (pipe(fd_fromshell
) < 0);
3880 if (pipe_error
) /* pipe create failed */
3882 close(fd_toshell
[0]);
3883 close(fd_toshell
[1]);
3888 MSG_PUTS(_("\nCannot create pipes\n"));
3894 if (!pipe_error
) /* pty or pipe opened or not used */
3897 beos_cleanup_read_thread();
3900 if ((pid
= fork()) == -1) /* maybe we should use vfork() */
3902 MSG_PUTS(_("\nCannot fork\n"));
3903 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3905 || (gui
.in_use
&& show_shell_mess
)
3910 if (pty_master_fd
>= 0) /* close the pseudo tty */
3912 close(pty_master_fd
);
3913 close(pty_slave_fd
);
3915 else /* close the pipes */
3918 close(fd_toshell
[0]);
3919 close(fd_toshell
[1]);
3920 close(fd_fromshell
[0]);
3921 close(fd_fromshell
[1]);
3925 else if (pid
== 0) /* child */
3927 reset_signals(); /* handle signals normally */
3929 if (!show_shell_mess
|| (options
& SHELL_EXPAND
))
3934 * Don't want to show any message from the shell. Can't just
3935 * close stdout and stderr though, because some systems will
3936 * break if you try to write to them after that, so we must
3937 * use dup() to replace them with something else -- webb
3938 * Connect stdin to /dev/null too, so ":n `cat`" doesn't hang,
3939 * waiting for input.
3941 fd
= open("/dev/null", O_RDWR
| O_EXTRA
, 0);
3947 * If any of these open()'s and dup()'s fail, we just continue
3948 * anyway. It's not fatal, and on most systems it will make
3949 * no difference at all. On a few it will cause the execvp()
3950 * to exit with a non-zero status even when the completion
3951 * could be done, which is nothing too serious. If the open()
3952 * or dup() failed we'd just do the same thing ourselves
3957 ignored
= dup(fd
); /* To replace stdin (fd 0) */
3958 ignored
= dup(fd
); /* To replace stdout (fd 1) */
3959 ignored
= dup(fd
); /* To replace stderr (fd 2) */
3961 /* Don't need this now that we've duplicated it */
3965 else if ((options
& (SHELL_READ
|SHELL_WRITE
))
3973 /* Create our own process group, so that the child and all its
3974 * children can be kill()ed. Don't do this when using pipes,
3975 * because stdin is not a tty, we would lose /dev/tty. */
3979 # if defined(SIGHUP)
3980 /* When doing "!xterm&" and 'shell' is bash: the shell
3981 * will exit and send SIGHUP to all processes in its
3982 * group, killing the just started process. Ignore SIGHUP
3983 * to avoid that. (suggested by Simon Schubert)
3985 signal(SIGHUP
, SIG_IGN
);
3990 if (pty_slave_fd
>= 0)
3992 /* push stream discipline modules */
3993 if (options
& SHELL_COOKED
)
3994 SetupSlavePTY(pty_slave_fd
);
3995 # if defined(TIOCSCTTY) && !defined(FEAT_GUI_MACVIM)
3996 /* Try to become controlling tty (probably doesn't work,
3997 * unless run by root) */
3998 ioctl(pty_slave_fd
, TIOCSCTTY
, (char *)NULL
);
4002 /* Simulate to have a dumb terminal (for now) */
4004 setenv("TERM", "dumb", 1);
4005 sprintf((char *)envbuf
, "%ld", Rows
);
4006 setenv("ROWS", (char *)envbuf
, 1);
4007 sprintf((char *)envbuf
, "%ld", Rows
);
4008 setenv("LINES", (char *)envbuf
, 1);
4009 sprintf((char *)envbuf
, "%ld", Columns
);
4010 setenv("COLUMNS", (char *)envbuf
, 1);
4013 * Putenv does not copy the string, it has to remain valid.
4014 * Use a static array to avoid losing allocated memory.
4016 putenv("TERM=dumb");
4017 sprintf(envbuf_Rows
, "ROWS=%ld", Rows
);
4018 putenv(envbuf_Rows
);
4019 sprintf(envbuf_Rows
, "LINES=%ld", Rows
);
4020 putenv(envbuf_Rows
);
4021 sprintf(envbuf_Columns
, "COLUMNS=%ld", Columns
);
4022 putenv(envbuf_Columns
);
4026 * stderr is only redirected when using the GUI, so that a
4027 * program like gpg can still access the terminal to get a
4028 * passphrase using stderr.
4031 if (pty_master_fd
>= 0)
4033 close(pty_master_fd
); /* close master side of pty */
4035 /* set up stdin/stdout/stderr for the child */
4037 ignored
= dup(pty_slave_fd
);
4039 ignored
= dup(pty_slave_fd
);
4043 ignored
= dup(pty_slave_fd
);
4046 close(pty_slave_fd
); /* has been dupped, close it now */
4051 /* set up stdin for the child */
4052 close(fd_toshell
[1]);
4054 ignored
= dup(fd_toshell
[0]);
4055 close(fd_toshell
[0]);
4057 /* set up stdout for the child */
4058 close(fd_fromshell
[0]);
4060 ignored
= dup(fd_fromshell
[1]);
4061 close(fd_fromshell
[1]);
4066 /* set up stderr for the child */
4075 * There is no type cast for the argv, because the type may be
4076 * different on different machines. This may cause a warning
4077 * message with strict compilers, don't worry about it.
4078 * Call _exit() instead of exit() to avoid closing the connection
4079 * to the X server (esp. with GTK, which uses atexit()).
4081 execvp(argv
[0], argv
);
4082 _exit(EXEC_FAILED
); /* exec failed, return failure code */
4087 * While child is running, ignore terminating signals.
4088 * Do catch CTRL-C, so that "got_int" is set.
4090 catch_signals(SIG_IGN
, SIG_ERR
);
4094 * For the GUI we redirect stdin, stdout and stderr to our window.
4095 * This is also used to pipe stdin/stdout to/from the external
4098 if ((options
& (SHELL_READ
|SHELL_WRITE
))
4100 || (gui
.in_use
&& show_shell_mess
)
4104 # define BUFLEN 100 /* length for buffer, pseudo tty limit is 128 */
4105 char_u buffer
[BUFLEN
+ 1];
4107 int buffer_off
= 0; /* valid bytes in buffer[] */
4109 char_u ta_buf
[BUFLEN
+ 1]; /* TypeAHead */
4110 int ta_len
= 0; /* valid bytes in ta_buf[] */
4119 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4120 struct timeval start_tv
;
4124 if (pty_master_fd
>= 0)
4126 close(pty_slave_fd
); /* close slave side of pty */
4127 fromshell_fd
= pty_master_fd
;
4128 toshell_fd
= dup(pty_master_fd
);
4133 close(fd_toshell
[0]);
4134 close(fd_fromshell
[1]);
4135 toshell_fd
= fd_toshell
[1];
4136 fromshell_fd
= fd_fromshell
[0];
4140 * Write to the child if there are typed characters.
4141 * Read from the child if there are characters available.
4142 * Repeat the reading a few times if more characters are
4143 * available. Need to check for typed keys now and then, but
4144 * not too often (delays when no chars are available).
4145 * This loop is quit if no characters can be read from the pty
4146 * (WaitForChar detected special condition), or there are no
4147 * characters available and the child has exited.
4148 * Only check if the child has exited when there is no more
4149 * output. The child may exit before all the output has
4152 * Currently this busy loops!
4153 * This can probably dead-lock when the write blocks!
4155 p_more_save
= p_more
;
4158 State
= EXTERNCMD
; /* don't redraw at window resize */
4160 if ((options
& SHELL_WRITE
) && toshell_fd
>= 0)
4162 /* Fork a process that will write the lines to the
4163 * external program. */
4164 if ((wpid
= fork()) == -1)
4166 MSG_PUTS(_("\nCannot fork\n"));
4170 linenr_T lnum
= curbuf
->b_op_start
.lnum
;
4172 char_u
*lp
= ml_get(lnum
);
4177 close(fromshell_fd
);
4180 l
= STRLEN(lp
+ written
);
4183 else if (lp
[written
] == NL
)
4184 /* NL -> NUL translation */
4185 len
= write(toshell_fd
, "", (size_t)1);
4188 s
= vim_strchr(lp
+ written
, NL
);
4189 len
= write(toshell_fd
, (char *)lp
+ written
,
4190 s
== NULL
? l
: s
- (lp
+ written
));
4194 /* Finished a line, add a NL, unless this line
4195 * should not have one. */
4196 if (lnum
!= curbuf
->b_op_end
.lnum
4198 || (lnum
!= write_no_eol_lnum
4200 curbuf
->b_ml
.ml_line_count
4201 || curbuf
->b_p_eol
)))
4202 ignored
= write(toshell_fd
, "\n",
4205 if (lnum
> curbuf
->b_op_end
.lnum
)
4207 /* finished all the lines, close pipe */
4227 if (options
& SHELL_READ
)
4228 ga_init2(&ga
, 1, BUFLEN
);
4231 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4232 gettimeofday(&start_tv
, NULL
);
4237 * Check if keys have been typed, write them to the child
4239 * Don't do this if we are expanding wild cards (would eat
4241 * Don't do this when filtering and terminal is in cooked
4242 * mode, the shell command will handle the I/O. Avoids
4243 * that a typed password is echoed for ssh or gpg command.
4244 * Don't get characters when the child has already
4245 * finished (wait_pid == 0).
4246 * Don't read characters unless we didn't get output for a
4247 * while (noread_cnt > 4), avoids that ":r !ls" eats
4251 if (!(options
& SHELL_EXPAND
)
4253 (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
))
4254 != (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
)
4260 && (ta_len
> 0 || noread_cnt
> 4))
4264 /* Get extra characters when we don't have any.
4265 * Reset the counter and timer. */
4267 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4268 gettimeofday(&start_tv
, NULL
);
4270 len
= ui_inchar(ta_buf
, BUFLEN
, 10L, 0);
4272 if (ta_len
> 0 || len
> 0)
4276 * Check for CTRL-C: send interrupt signal to child.
4277 * Check for CTRL-D: EOF, close pipe to child.
4279 if (len
== 1 && (pty_master_fd
< 0 || cmd
!= NULL
))
4283 * Send SIGINT to the child's group or all
4284 * processes in our group.
4286 if (ta_buf
[ta_len
] == Ctrl_C
4287 || ta_buf
[ta_len
] == intr_char
)
4298 if (pty_master_fd
< 0 && toshell_fd
>= 0
4299 && ta_buf
[ta_len
] == Ctrl_D
)
4306 /* replace K_BS by <BS> and K_DEL by <DEL> */
4307 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4309 if (ta_buf
[i
] == CSI
&& len
- i
> 2)
4311 c
= TERMCAP2KEY(ta_buf
[i
+ 1], ta_buf
[i
+ 2]);
4312 if (c
== K_DEL
|| c
== K_KDEL
|| c
== K_BS
)
4314 mch_memmove(ta_buf
+ i
+ 1, ta_buf
+ i
+ 3,
4315 (size_t)(len
- i
- 2));
4316 if (c
== K_DEL
|| c
== K_KDEL
)
4323 else if (ta_buf
[i
] == '\r')
4327 i
+= (*mb_ptr2len
)(ta_buf
+ i
) - 1;
4332 * For pipes: echo the typed characters.
4333 * For a pty this does not seem to work.
4335 if (pty_master_fd
< 0)
4337 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4339 if (ta_buf
[i
] == '\n' || ta_buf
[i
] == '\b')
4340 msg_putchar(ta_buf
[i
]);
4344 int l
= (*mb_ptr2len
)(ta_buf
+ i
);
4346 msg_outtrans_len(ta_buf
+ i
, l
);
4351 msg_outtrans_len(ta_buf
+ i
, 1);
4353 windgoto(msg_row
, msg_col
);
4360 * Write the characters to the child, unless EOF has
4361 * been typed for pipes. Write one character at a
4362 * time, to avoid losing too much typeahead.
4363 * When writing buffer lines, drop the typed
4364 * characters (only check for CTRL-C).
4366 if (options
& SHELL_WRITE
)
4368 else if (toshell_fd
>= 0)
4370 len
= write(toshell_fd
, (char *)ta_buf
, (size_t)1);
4374 mch_memmove(ta_buf
, ta_buf
+ len
, ta_len
);
4382 /* CTRL-C sends a signal to the child, we ignore it
4395 * Check if the child has any characters to be printed.
4396 * Read them and write them to our window. Repeat this as
4397 * long as there is something to do, avoid the 10ms wait
4398 * for mch_inchar(), or sending typeahead characters to
4399 * the external process.
4400 * TODO: This should handle escape sequences, compatible
4401 * to some terminal (vt52?).
4404 while (RealWaitForChar(fromshell_fd
, 10L, NULL
))
4406 len
= read(fromshell_fd
, (char *)buffer
4408 + buffer_off
, (size_t)(BUFLEN
- buffer_off
)
4413 if (len
<= 0) /* end of file or error */
4417 if (options
& SHELL_READ
)
4419 /* Do NUL -> NL translation, append NL separated
4420 * lines to the current buffer. */
4421 for (i
= 0; i
< len
; ++i
)
4423 if (buffer
[i
] == NL
)
4424 append_ga_line(&ga
);
4425 else if (buffer
[i
] == NUL
)
4428 ga_append(&ga
, buffer
[i
]);
4439 /* Check if the last character in buffer[] is
4440 * incomplete, keep these bytes for the next
4442 for (p
= buffer
; p
< buffer
+ len
; p
+= l
)
4446 l
= 1; /* NUL byte? */
4447 else if (MB_BYTE2LEN(*p
) != l
)
4450 if (p
== buffer
) /* no complete character */
4452 /* avoid getting stuck at an illegal byte */
4464 if (p
< buffer
+ len
)
4467 buffer_off
= (buffer
+ len
) - p
;
4468 mch_memmove(buffer
, p
, buffer_off
);
4473 # endif /* FEAT_MBYTE */
4480 windgoto(msg_row
, msg_col
);
4483 # if FEAT_GUI_MACVIM
4492 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4494 struct timeval now_tv
;
4497 /* Avoid that we keep looping here without
4498 * checking for a CTRL-C for a long time. Don't
4499 * break out too often to avoid losing typeahead. */
4500 gettimeofday(&now_tv
, NULL
);
4501 msec
= (now_tv
.tv_sec
- start_tv
.tv_sec
) * 1000L
4502 + (now_tv
.tv_usec
- start_tv
.tv_usec
) / 1000L;
4512 /* If we already detected the child has finished break the
4514 if (wait_pid
== pid
)
4518 * Check if the child still exists, before checking for
4519 * typed characters (otherwise we would lose typeahead).
4522 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*) 0);
4524 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4526 if ((wait_pid
== (pid_t
)-1 && errno
== ECHILD
)
4527 || (wait_pid
== pid
&& WIFEXITED(status
)))
4529 /* Don't break the loop yet, try reading more
4530 * characters from "fromshell_fd" first. When using
4531 * pipes there might still be something to read and
4532 * then we'll break the loop at the "break" above. */
4539 p_more
= p_more_save
;
4540 if (options
& SHELL_READ
)
4544 append_ga_line(&ga
);
4545 /* remember that the NL was missing */
4546 write_no_eol_lnum
= curwin
->w_cursor
.lnum
;
4549 write_no_eol_lnum
= 0;
4554 * Give all typeahead that wasn't used back to ui_inchar().
4557 ui_inchar_undo(ta_buf
, ta_len
);
4559 if (toshell_fd
>= 0)
4561 close(fromshell_fd
);
4565 * Wait until our child has exited.
4566 * Ignore wait() returning pids of other children and returning
4567 * because of some signal like SIGWINCH.
4568 * Don't wait if wait_pid was already set above, indicating the
4569 * child already exited.
4571 while (wait_pid
!= pid
)
4573 # ifdef _THREAD_SAFE
4574 /* Ugly hack: when compiled with Python threads are probably
4575 * used, in which case wait() sometimes hangs for no obvious
4576 * reason. Use waitpid() instead and loop (like the GUI). */
4578 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*)0);
4580 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4584 /* Wait for 1/100 sec before trying again. */
4585 mch_delay(10L, TRUE
);
4589 wait_pid
= wait(&status
);
4599 /* Make sure the child that writes to the external program is
4602 kill(wpid
, SIGKILL
);
4605 * Set to raw mode right now, otherwise a CTRL-C after
4606 * catch_signals() will kill Vim.
4608 if (tmode
== TMODE_RAW
)
4609 settmode(TMODE_RAW
);
4610 did_settmode
= TRUE
;
4613 if (WIFEXITED(status
))
4615 /* LINTED avoid "bitwise operation on signed value" */
4616 retval
= WEXITSTATUS(status
);
4617 if (retval
&& !emsg_silent
)
4619 if (retval
== EXEC_FAILED
)
4621 MSG_PUTS(_("\nCannot execute shell "));
4625 else if (!(options
& SHELL_SILENT
))
4627 MSG_PUTS(_("\nshell returned "));
4628 msg_outnum((long)retval
);
4634 MSG_PUTS(_("\nCommand terminated\n"));
4641 if (tmode
== TMODE_RAW
)
4642 settmode(TMODE_RAW
); /* set to raw mode */
4650 #endif /* USE_SYSTEM */
4654 * Check for CTRL-C typed by reading all available characters.
4655 * In cooked mode we should get SIGINT, no need to check.
4660 if (curr_tmode
== TMODE_RAW
&& RealWaitForChar(read_cmd_fd
, 0L, NULL
))
4661 fill_input_buf(FALSE
);
4665 * Wait "msec" msec until a character is available from the keyboard or from
4666 * inbuf[]. msec == -1 will block forever.
4667 * When a GUI is being used, this will never get called -- webb
4673 #ifdef FEAT_MOUSE_GPM
4674 int gpm_process_wanted
;
4676 #ifdef FEAT_XCLIPBOARD
4681 if (input_available()) /* something in inbuf[] */
4684 #if defined(FEAT_MOUSE_DEC)
4685 /* May need to query the mouse position. */
4688 WantQueryMouse
= FALSE
;
4689 mch_write((char_u
*)IF_EB("\033[1'|", ESC_STR
"[1'|"), 5);
4694 * For FEAT_MOUSE_GPM and FEAT_XCLIPBOARD we loop here to process mouse
4695 * events. This is a bit complicated, because they might both be defined.
4697 #if defined(FEAT_MOUSE_GPM) || defined(FEAT_XCLIPBOARD)
4698 # ifdef FEAT_XCLIPBOARD
4700 if (do_xterm_trace())
4705 # ifdef FEAT_XCLIPBOARD
4708 msec
= XT_TRACE_DELAY
;
4709 if (rest
>= 0 && rest
< XT_TRACE_DELAY
)
4715 # ifdef FEAT_MOUSE_GPM
4716 gpm_process_wanted
= 0;
4717 avail
= RealWaitForChar(read_cmd_fd
, msec
, &gpm_process_wanted
);
4719 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4723 if (input_available())
4725 # ifdef FEAT_XCLIPBOARD
4726 if (rest
== 0 || !do_xterm_trace())
4732 # ifdef FEAT_MOUSE_GPM
4733 || (gpm_process_wanted
&& mch_gpm_process() == 0)
4735 # ifdef FEAT_XCLIPBOARD
4736 || (!avail
&& rest
!= 0)
4741 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4747 * Wait "msec" msec until a character is available from file descriptor "fd".
4748 * Time == -1 will block forever.
4749 * When a GUI is being used, this will not be used for input -- webb
4750 * Returns also, when a request from Sniff is waiting -- toni.
4751 * Or when a Linux GPM mouse event is waiting.
4754 #if defined(__BEOS__)
4759 RealWaitForChar(fd
, msec
, check_for_gpm
)
4765 #if defined(FEAT_XCLIPBOARD) || defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4766 static int busy
= FALSE
;
4768 /* May retry getting characters after an event was handled. */
4771 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4772 /* Remember at what time we started, so that we know how much longer we
4773 * should wait after being interrupted. */
4774 # define USE_START_TV
4775 struct timeval start_tv
;
4778 # ifdef FEAT_XCLIPBOARD
4779 xterm_Shell
!= (Widget
)0
4780 # if defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4786 # ifdef FEAT_MZSCHEME
4790 # ifdef FEAT_MZSCHEME
4791 (mzthreads_allowed() && p_mzq
> 0)
4794 gettimeofday(&start_tv
, NULL
);
4797 /* Handle being called recursively. This may happen for the session
4798 * manager stuff, it may save the file, which does a breakcheck. */
4808 int finished
= TRUE
; /* default is to 'loop' just once */
4809 # ifdef FEAT_MZSCHEME
4810 int mzquantum_used
= FALSE
;
4814 struct pollfd fds
[5];
4816 # ifdef FEAT_XCLIPBOARD
4819 # ifdef FEAT_MOUSE_GPM
4825 int towait
= (int)msec
;
4827 # ifdef FEAT_MZSCHEME
4828 mzvim_check_threads();
4829 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4831 towait
= (int)p_mzq
; /* don't wait longer than 'mzquantum' */
4832 mzquantum_used
= TRUE
;
4836 fds
[0].events
= POLLIN
;
4840 # define SNIFF_IDX 1
4841 if (want_sniff_request
)
4843 fds
[SNIFF_IDX
].fd
= fd_from_sniff
;
4844 fds
[SNIFF_IDX
].events
= POLLIN
;
4848 # ifdef FEAT_XCLIPBOARD
4849 if (xterm_Shell
!= (Widget
)0)
4852 fds
[nfd
].fd
= ConnectionNumber(xterm_dpy
);
4853 fds
[nfd
].events
= POLLIN
;
4857 # ifdef FEAT_MOUSE_GPM
4858 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4861 fds
[nfd
].fd
= gpm_fd
;
4862 fds
[nfd
].events
= POLLIN
;
4867 if (xsmp_icefd
!= -1)
4870 fds
[nfd
].fd
= xsmp_icefd
;
4871 fds
[nfd
].events
= POLLIN
;
4876 ret
= poll(fds
, nfd
, towait
);
4877 # ifdef FEAT_MZSCHEME
4878 if (ret
== 0 && mzquantum_used
)
4879 /* MzThreads scheduling is required and timeout occurred */
4885 sniff_disconnect(1);
4886 else if (want_sniff_request
)
4888 if (fds
[SNIFF_IDX
].revents
& POLLHUP
)
4889 sniff_disconnect(1);
4890 if (fds
[SNIFF_IDX
].revents
& POLLIN
)
4891 sniff_request_waiting
= 1;
4894 # ifdef FEAT_XCLIPBOARD
4895 if (xterm_Shell
!= (Widget
)0 && (fds
[xterm_idx
].revents
& POLLIN
))
4897 xterm_update(); /* Maybe we should hand out clipboard */
4898 if (--ret
== 0 && !input_available())
4903 # ifdef FEAT_MOUSE_GPM
4904 if (gpm_idx
>= 0 && (fds
[gpm_idx
].revents
& POLLIN
))
4910 if (xsmp_idx
>= 0 && (fds
[xsmp_idx
].revents
& (POLLIN
| POLLHUP
)))
4912 if (fds
[xsmp_idx
].revents
& POLLIN
)
4915 xsmp_handle_requests();
4918 else if (fds
[xsmp_idx
].revents
& POLLHUP
)
4921 verb_msg((char_u
*)_("XSMP lost ICE connection"));
4925 finished
= FALSE
; /* Try again */
4930 #else /* HAVE_SELECT */
4933 struct timeval
*tvp
;
4938 # ifdef FEAT_MZSCHEME
4939 mzvim_check_threads();
4940 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4942 towait
= p_mzq
; /* don't wait longer than 'mzquantum' */
4943 mzquantum_used
= TRUE
;
4947 /* don't check for incoming chars if not in raw mode, because select()
4948 * always returns TRUE then (in some version of emx.dll) */
4949 if (curr_tmode
!= TMODE_RAW
)
4955 tv
.tv_sec
= towait
/ 1000;
4956 tv
.tv_usec
= (towait
% 1000) * (1000000/1000);
4963 * Select on ready for reading and exceptional condition (end of file).
4965 FD_ZERO(&rfds
); /* calls bzero() on a sun */
4968 # if !defined(__QNX__) && !defined(__CYGWIN32__)
4969 /* For QNX select() always returns 1 if this is set. Why? */
4975 if (want_sniff_request
)
4977 FD_SET(fd_from_sniff
, &rfds
);
4978 FD_SET(fd_from_sniff
, &efds
);
4979 if (maxfd
< fd_from_sniff
)
4980 maxfd
= fd_from_sniff
;
4983 # ifdef FEAT_XCLIPBOARD
4984 if (xterm_Shell
!= (Widget
)0)
4986 FD_SET(ConnectionNumber(xterm_dpy
), &rfds
);
4987 if (maxfd
< ConnectionNumber(xterm_dpy
))
4988 maxfd
= ConnectionNumber(xterm_dpy
);
4991 # ifdef FEAT_MOUSE_GPM
4992 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4994 FD_SET(gpm_fd
, &rfds
);
4995 FD_SET(gpm_fd
, &efds
);
5001 if (xsmp_icefd
!= -1)
5003 FD_SET(xsmp_icefd
, &rfds
);
5004 FD_SET(xsmp_icefd
, &efds
);
5005 if (maxfd
< xsmp_icefd
)
5011 /* Old VMS as v6.2 and older have broken select(). It waits more than
5012 * required. Should not be used */
5015 ret
= select(maxfd
+ 1, &rfds
, NULL
, &efds
, tvp
);
5018 if (ret
== -1 && errno
== ENOTSUP
)
5025 # ifdef FEAT_MZSCHEME
5026 if (ret
== 0 && mzquantum_used
)
5027 /* loop if MzThreads must be scheduled and timeout occurred */
5033 sniff_disconnect(1);
5034 else if (ret
> 0 && want_sniff_request
)
5036 if (FD_ISSET(fd_from_sniff
, &efds
))
5037 sniff_disconnect(1);
5038 if (FD_ISSET(fd_from_sniff
, &rfds
))
5039 sniff_request_waiting
= 1;
5042 # ifdef FEAT_XCLIPBOARD
5043 if (ret
> 0 && xterm_Shell
!= (Widget
)0
5044 && FD_ISSET(ConnectionNumber(xterm_dpy
), &rfds
))
5046 xterm_update(); /* Maybe we should hand out clipboard */
5047 /* continue looping when we only got the X event and the input
5048 * buffer is empty */
5049 if (--ret
== 0 && !input_available())
5056 # ifdef FEAT_MOUSE_GPM
5057 if (ret
> 0 && gpm_flag
&& check_for_gpm
!= NULL
&& gpm_fd
>= 0)
5059 if (FD_ISSET(gpm_fd
, &efds
))
5061 else if (FD_ISSET(gpm_fd
, &rfds
))
5066 if (ret
> 0 && xsmp_icefd
!= -1)
5068 if (FD_ISSET(xsmp_icefd
, &efds
))
5071 verb_msg((char_u
*)_("XSMP lost ICE connection"));
5074 finished
= FALSE
; /* keep going if event was only one */
5076 else if (FD_ISSET(xsmp_icefd
, &rfds
))
5079 xsmp_handle_requests();
5082 finished
= FALSE
; /* keep going if event was only one */
5087 #endif /* HAVE_SELECT */
5090 if (finished
|| msec
== 0)
5093 /* We're going to loop around again, find out for how long */
5096 # ifdef USE_START_TV
5099 /* Compute remaining wait time. */
5100 gettimeofday(&mtv
, NULL
);
5101 msec
-= (mtv
.tv_sec
- start_tv
.tv_sec
) * 1000L
5102 + (mtv
.tv_usec
- start_tv
.tv_usec
) / 1000L;
5104 /* Guess we got interrupted halfway. */
5108 break; /* waited long enough */
5118 #ifndef NO_EXPANDPATH
5120 * Expand a path into all matching files and/or directories. Handles "*",
5121 * "?", "[a-z]", "**", etc.
5122 * "path" has backslashes before chars that are not to be expanded.
5123 * Returns the number of matches found.
5126 mch_expandpath(gap
, path
, flags
)
5129 int flags
; /* EW_* flags */
5131 return unix_expandpath(gap
, path
, 0, flags
, FALSE
);
5136 * mch_expand_wildcards() - this code does wild-card pattern matching using
5139 * return OK for success, FAIL for error (you may lose some memory) and put
5140 * an error message in *file.
5142 * num_pat is number of input patterns
5143 * pat is array of pointers to input patterns
5144 * num_file is pointer to number of matched file names
5145 * file is pointer to array of pointers to matched file names
5155 #define SHELL_SPECIAL (char_u *)"\t \"&'$;<>()\\|"
5159 mch_expand_wildcards(num_pat
, pat
, num_file
, file
, flags
)
5164 int flags
; /* EW_* flags */
5172 * This is the OS/2 implementation.
5174 # define EXPL_ALLOC_INC 16
5175 char_u
**expl_files
;
5176 size_t files_alloced
, files_free
;
5180 *num_file
= 0; /* default: no files found */
5181 files_alloced
= EXPL_ALLOC_INC
; /* how much space is allocated */
5182 files_free
= EXPL_ALLOC_INC
; /* how much space is not used */
5183 *file
= (char_u
**)alloc(sizeof(char_u
**) * files_alloced
);
5187 for (; num_pat
> 0; num_pat
--, pat
++)
5190 if (vim_strchr(*pat
, '$') || vim_strchr(*pat
, '~'))
5191 /* expand environment var or home dir */
5192 buf
= expand_env_save(*pat
);
5194 buf
= vim_strsave(*pat
);
5196 has_wildcard
= mch_has_exp_wildcard(buf
); /* (still) wildcards? */
5197 if (has_wildcard
) /* yes, so expand them */
5198 expl_files
= (char_u
**)_fnexplode(buf
);
5201 * return value of buf if no wildcards left,
5202 * OR if no match AND EW_NOTFOUND is set.
5204 if ((!has_wildcard
&& ((flags
& EW_NOTFOUND
) || mch_getperm(buf
) >= 0))
5205 || (expl_files
== NULL
&& (flags
& EW_NOTFOUND
)))
5206 { /* simply save the current contents of *buf */
5207 expl_files
= (char_u
**)alloc(sizeof(char_u
**) * 2);
5208 if (expl_files
!= NULL
)
5210 expl_files
[0] = vim_strsave(buf
);
5211 expl_files
[1] = NULL
;
5217 * Count number of names resulting from expansion,
5218 * At the same time add a backslash to the end of names that happen to
5219 * be directories, and replace slashes with backslashes.
5223 for (i
= 0; (p
= expl_files
[i
]) != NULL
; i
++)
5226 /* If we don't want dirs and this is one, skip it */
5227 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5230 /* Skip files that are not executable if we check for that. */
5231 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe(p
))
5234 if (--files_free
== 0)
5236 /* need more room in table of pointers */
5237 files_alloced
+= EXPL_ALLOC_INC
;
5238 *file
= (char_u
**)vim_realloc(*file
,
5239 sizeof(char_u
**) * files_alloced
);
5242 EMSG(_(e_outofmem
));
5246 files_free
= EXPL_ALLOC_INC
;
5251 /* For a directory we add a '/', unless it's already
5254 if (((*file
)[*num_file
] = alloc(len
+ 2)) != NULL
)
5256 STRCPY((*file
)[*num_file
], p
);
5257 if (!after_pathsep((*file
)[*num_file
],
5258 (*file
)[*num_file
] + len
))
5260 (*file
)[*num_file
][len
] = psepc
;
5261 (*file
)[*num_file
][len
+ 1] = NUL
;
5267 (*file
)[*num_file
] = vim_strsave(p
);
5271 * Error message already given by either alloc or vim_strsave.
5272 * Should return FAIL, but returning OK works also.
5274 if ((*file
)[*num_file
] == NULL
)
5278 _fnexplodefree((char **)expl_files
);
5285 * This is the non-OS/2 implementation (really Unix).
5292 #define STYLE_ECHO 0 /* use "echo", the default */
5293 #define STYLE_GLOB 1 /* use "glob", for csh */
5294 #define STYLE_VIMGLOB 2 /* use "vimglob", for Posix sh */
5295 #define STYLE_PRINT 3 /* use "print -N", for zsh */
5296 #define STYLE_BT 4 /* `cmd` expansion, execute the pattern
5298 int shell_style
= STYLE_ECHO
;
5300 static int did_find_nul
= FALSE
;
5301 int ampersent
= FALSE
;
5302 /* vimglob() function to define for Posix shell */
5303 static char *sh_vimglob_func
= "vimglob() { while [ $# -ge 1 ]; do echo \"$1\"; shift; done }; vimglob >";
5305 *num_file
= 0; /* default: no files found */
5309 * If there are no wildcards, just copy the names to allocated memory.
5310 * Saves a lot of time, because we don't have to start a new shell.
5312 if (!have_wildcard(num_pat
, pat
))
5313 return save_patterns(num_pat
, pat
, num_file
, file
);
5315 # ifdef HAVE_SANDBOX
5316 /* Don't allow any shell command in the sandbox. */
5317 if (sandbox
!= 0 && check_secure())
5322 * Don't allow the use of backticks in secure and restricted mode.
5324 if (secure
|| restricted
)
5325 for (i
= 0; i
< num_pat
; ++i
)
5326 if (vim_strchr(pat
[i
], '`') != NULL
5327 && (check_restricted() || check_secure()))
5331 * get a name for the temp file
5333 if ((tempname
= vim_tempname('o')) == NULL
)
5340 * Let the shell expand the patterns and write the result into the temp
5342 * STYLE_BT: NL separated
5343 * If expanding `cmd` execute it directly.
5344 * STYLE_GLOB: NUL separated
5345 * If we use *csh, "glob" will work better than "echo".
5346 * STYLE_PRINT: NL or NUL separated
5347 * If we use *zsh, "print -N" will work better than "glob".
5348 * STYLE_VIMGLOB: NL separated
5349 * If we use *sh*, we define "vimglob()".
5350 * STYLE_ECHO: space separated.
5351 * A shell we don't know, stay safe and use "echo".
5353 if (num_pat
== 1 && *pat
[0] == '`'
5354 && (len
= STRLEN(pat
[0])) > 2
5355 && *(pat
[0] + len
- 1) == '`')
5356 shell_style
= STYLE_BT
;
5357 else if ((len
= STRLEN(p_sh
)) >= 3)
5359 if (STRCMP(p_sh
+ len
- 3, "csh") == 0)
5360 shell_style
= STYLE_GLOB
;
5361 else if (STRCMP(p_sh
+ len
- 3, "zsh") == 0)
5362 shell_style
= STYLE_PRINT
;
5364 if (shell_style
== STYLE_ECHO
&& strstr((char *)gettail(p_sh
),
5366 shell_style
= STYLE_VIMGLOB
;
5368 /* Compute the length of the command. We need 2 extra bytes: for the
5369 * optional '&' and for the NUL.
5370 * Worst case: "unset nonomatch; print -N >" plus two is 29 */
5371 len
= STRLEN(tempname
) + 29;
5372 if (shell_style
== STYLE_VIMGLOB
)
5373 len
+= STRLEN(sh_vimglob_func
);
5375 for (i
= 0; i
< num_pat
; ++i
)
5377 /* Count the length of the patterns in the same way as they are put in
5378 * "command" below. */
5380 len
+= STRLEN(pat
[i
]) + 3; /* add space and two quotes */
5382 ++len
; /* add space */
5383 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5385 if (vim_strchr(SHELL_SPECIAL
, pat
[i
][j
]) != NULL
)
5386 ++len
; /* may add a backslash */
5391 command
= alloc(len
);
5392 if (command
== NULL
)
5400 * Build the shell command:
5401 * - Set $nonomatch depending on EW_NOTFOUND (hopefully the shell
5403 * - Add the shell command to print the expanded names.
5404 * - Add the temp file name.
5405 * - Add the file name patterns.
5407 if (shell_style
== STYLE_BT
)
5409 /* change `command; command& ` to (command; command ) */
5410 STRCPY(command
, "(");
5411 STRCAT(command
, pat
[0] + 1); /* exclude first backtick */
5412 p
= command
+ STRLEN(command
) - 1;
5413 *p
-- = ')'; /* remove last backtick */
5414 while (p
> command
&& vim_iswhite(*p
))
5416 if (*p
== '&') /* remove trailing '&' */
5421 STRCAT(command
, ">");
5425 if (flags
& EW_NOTFOUND
)
5426 STRCPY(command
, "set nonomatch; ");
5428 STRCPY(command
, "unset nonomatch; ");
5429 if (shell_style
== STYLE_GLOB
)
5430 STRCAT(command
, "glob >");
5431 else if (shell_style
== STYLE_PRINT
)
5432 STRCAT(command
, "print -N >");
5433 else if (shell_style
== STYLE_VIMGLOB
)
5434 STRCAT(command
, sh_vimglob_func
);
5436 STRCAT(command
, "echo >");
5439 STRCAT(command
, tempname
);
5441 if (shell_style
!= STYLE_BT
)
5442 for (i
= 0; i
< num_pat
; ++i
)
5444 /* When using system() always add extra quotes, because the shell
5445 * is started twice. Otherwise put a backslash before special
5446 * characters, except inside ``. */
5448 STRCAT(command
, " \"");
5449 STRCAT(command
, pat
[i
]);
5450 STRCAT(command
, "\"");
5454 p
= command
+ STRLEN(command
);
5456 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5458 if (pat
[i
][j
] == '`')
5460 else if (pat
[i
][j
] == '\\' && pat
[i
][j
+ 1] != NUL
)
5462 /* Remove a backslash, take char literally. But keep
5463 * backslash inside backticks, before a special character
5464 * and before a backtick. */
5466 || vim_strchr(SHELL_SPECIAL
, pat
[i
][j
+ 1]) != NULL
5467 || pat
[i
][j
+ 1] == '`')
5471 else if (!intick
&& vim_strchr(SHELL_SPECIAL
,
5473 /* Put a backslash before a special character, but not
5474 * when inside ``. */
5477 /* Copy one character. */
5483 if (flags
& EW_SILENT
)
5484 show_shell_mess
= FALSE
;
5486 STRCAT(command
, "&"); /* put the '&' after the redirection */
5489 * Using zsh -G: If a pattern has no matches, it is just deleted from
5490 * the argument list, otherwise zsh gives an error message and doesn't
5491 * expand any other pattern.
5493 if (shell_style
== STYLE_PRINT
)
5494 extra_shell_arg
= (char_u
*)"-G"; /* Use zsh NULL_GLOB option */
5497 * If we use -f then shell variables set in .cshrc won't get expanded.
5498 * vi can do it, so we will too, but it is only necessary if there is a "$"
5499 * in one of the patterns, otherwise we can still use the fast option.
5501 else if (shell_style
== STYLE_GLOB
&& !have_dollars(num_pat
, pat
))
5502 extra_shell_arg
= (char_u
*)"-f"; /* Use csh fast option */
5505 * execute the shell command
5507 i
= call_shell(command
, SHELL_EXPAND
| SHELL_SILENT
);
5509 /* When running in the background, give it some time to create the temp
5510 * file, but don't wait for it to finish. */
5512 mch_delay(10L, TRUE
);
5514 extra_shell_arg
= NULL
; /* cleanup */
5515 show_shell_mess
= TRUE
;
5518 if (i
!= 0) /* mch_call_shell() failed */
5520 mch_remove(tempname
);
5523 * With interactive completion, the error message is not printed.
5524 * However with USE_SYSTEM, I don't know how to turn off error messages
5525 * from the shell, so screen may still get messed up -- webb.
5528 if (!(flags
& EW_SILENT
))
5531 redraw_later_clear(); /* probably messed up screen */
5532 msg_putchar('\n'); /* clear bottom line quickly */
5533 cmdline_row
= Rows
- 1; /* continue on last line */
5535 if (!(flags
& EW_SILENT
))
5538 MSG(_(e_wildexpand
));
5539 msg_start(); /* don't overwrite this message */
5542 /* If a `cmd` expansion failed, don't list `cmd` as a match, even when
5543 * EW_NOTFOUND is given */
5544 if (shell_style
== STYLE_BT
)
5550 * read the names from the file into memory
5552 fd
= fopen((char *)tempname
, READBIN
);
5555 /* Something went wrong, perhaps a file name with a special char. */
5556 if (!(flags
& EW_SILENT
))
5558 MSG(_(e_wildexpand
));
5559 msg_start(); /* don't overwrite this message */
5564 fseek(fd
, 0L, SEEK_END
);
5565 len
= ftell(fd
); /* get size of temp file */
5566 fseek(fd
, 0L, SEEK_SET
);
5567 buffer
= alloc(len
+ 1);
5571 mch_remove(tempname
);
5576 i
= fread((char *)buffer
, 1, len
, fd
);
5578 mch_remove(tempname
);
5581 /* unexpected read error */
5582 EMSG2(_(e_notread
), tempname
);
5589 # if defined(__CYGWIN__) || defined(__CYGWIN32__)
5590 /* Translate <CR><NL> into <NL>. Caution, buffer may contain NUL. */
5592 for (i
= 0; i
< len
; ++i
)
5593 if (!(buffer
[i
] == CAR
&& buffer
[i
+ 1] == NL
))
5599 /* file names are separated with Space */
5600 if (shell_style
== STYLE_ECHO
)
5602 buffer
[len
] = '\n'; /* make sure the buffer ends in NL */
5604 for (i
= 0; *p
!= '\n'; ++i
) /* count number of entries */
5606 while (*p
!= ' ' && *p
!= '\n')
5608 p
= skipwhite(p
); /* skip to next entry */
5611 /* file names are separated with NL */
5612 else if (shell_style
== STYLE_BT
|| shell_style
== STYLE_VIMGLOB
)
5614 buffer
[len
] = NUL
; /* make sure the buffer ends in NUL */
5616 for (i
= 0; *p
!= NUL
; ++i
) /* count number of entries */
5618 while (*p
!= '\n' && *p
!= NUL
)
5622 p
= skipwhite(p
); /* skip leading white space */
5625 /* file names are separated with NUL */
5629 * Some versions of zsh use spaces instead of NULs to separate
5630 * results. Only do this when there is no NUL before the end of the
5631 * buffer, otherwise we would never be able to use file names with
5632 * embedded spaces when zsh does use NULs.
5633 * When we found a NUL once, we know zsh is OK, set did_find_nul and
5634 * don't check for spaces again.
5636 check_spaces
= FALSE
;
5637 if (shell_style
== STYLE_PRINT
&& !did_find_nul
)
5639 /* If there is a NUL, set did_find_nul, else set check_spaces */
5640 if (len
&& (int)STRLEN(buffer
) < len
- 1)
5641 did_find_nul
= TRUE
;
5643 check_spaces
= TRUE
;
5647 * Make sure the buffer ends with a NUL. For STYLE_PRINT there
5648 * already is one, for STYLE_GLOB it needs to be added.
5650 if (len
&& buffer
[len
- 1] == NUL
)
5655 for (p
= buffer
; p
< buffer
+ len
; ++p
)
5656 if (*p
== NUL
|| (*p
== ' ' && check_spaces
)) /* count entry */
5662 ++i
; /* count last entry */
5667 * Can happen when using /bin/sh and typing ":e $NO_SUCH_VAR^I".
5668 * /bin/sh will happily expand it to nothing rather than returning an
5669 * error; and hey, it's good to check anyway -- webb.
5675 *file
= (char_u
**)alloc(sizeof(char_u
*) * i
);
5684 * Isolate the individual file names.
5687 for (i
= 0; i
< *num_file
; ++i
)
5690 /* Space or NL separates */
5691 if (shell_style
== STYLE_ECHO
|| shell_style
== STYLE_BT
5692 || shell_style
== STYLE_VIMGLOB
)
5694 while (!(shell_style
== STYLE_ECHO
&& *p
== ' ')
5695 && *p
!= '\n' && *p
!= NUL
)
5697 if (p
== buffer
+ len
) /* last entry */
5702 p
= skipwhite(p
); /* skip to next entry */
5705 else /* NUL separates */
5707 while (*p
&& p
< buffer
+ len
) /* skip entry */
5714 * Move the file names to allocated memory.
5716 for (j
= 0, i
= 0; i
< *num_file
; ++i
)
5718 /* Require the files to exist. Helps when using /bin/sh */
5719 if (!(flags
& EW_NOTFOUND
) && mch_getperm((*file
)[i
]) < 0)
5722 /* check if this entry should be included */
5723 dir
= (mch_isdir((*file
)[i
]));
5724 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5727 /* Skip files that are not executable if we check for that. */
5728 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe((*file
)[i
]))
5731 p
= alloc((unsigned)(STRLEN((*file
)[i
]) + 1 + dir
));
5734 STRCPY(p
, (*file
)[i
]);
5736 add_pathsep(p
); /* add '/' to a directory name */
5743 if (*num_file
== 0) /* rejected all entries */
5753 if (flags
& EW_NOTFOUND
)
5754 return save_patterns(num_pat
, pat
, num_file
, file
);
5757 #endif /* __EMX__ */
5764 save_patterns(num_pat
, pat
, num_file
, file
)
5773 *file
= (char_u
**)alloc(num_pat
* sizeof(char_u
*));
5776 for (i
= 0; i
< num_pat
; i
++)
5778 s
= vim_strsave(pat
[i
]);
5780 /* Be compatible with expand_filename(): halve the number of
5785 *num_file
= num_pat
;
5792 * Return TRUE if the string "p" contains a wildcard that mch_expandpath() can
5796 mch_has_exp_wildcard(p
)
5799 for ( ; *p
; mb_ptr_adv(p
))
5802 if (*p
== '\\' && p
[1] != NUL
)
5806 if (vim_strchr((char_u
*)
5823 * Return TRUE if the string "p" contains a wildcard.
5824 * Don't recognize '~' at the end as a wildcard.
5830 for ( ; *p
; mb_ptr_adv(p
))
5833 if (*p
== '\\' && p
[1] != NUL
)
5837 if (vim_strchr((char_u
*)
5842 # ifdef VIM_BACKTICK
5852 || (*p
== '~' && p
[1] != NUL
))
5860 have_wildcard(num
, file
)
5866 for (i
= 0; i
< num
; i
++)
5867 if (mch_has_wildcard(file
[i
]))
5873 have_dollars(num
, file
)
5879 for (i
= 0; i
< num
; i
++)
5880 if (vim_strchr(file
[i
], '$') != NULL
)
5884 #endif /* ifndef __EMX__ */
5888 * Scaled-down version of rename(), which is missing in Xenix.
5889 * This version can only move regular files and will fail if the
5890 * destination exists.
5893 mch_rename(src
, dest
)
5894 const char *src
, *dest
;
5898 if (stat(dest
, &st
) >= 0) /* fail if destination exists */
5900 if (link(src
, dest
) != 0) /* link file to new name */
5902 if (mch_remove(src
) == 0) /* delete link to old name */
5906 #endif /* !HAVE_RENAME */
5908 #ifdef FEAT_MOUSE_GPM
5910 * Initializes connection with gpm (if it isn't already opened)
5911 * Return 1 if succeeded (or connection already opened), 0 if failed
5916 static Gpm_Connect gpm_connect
; /* Must it be kept till closing ? */
5920 gpm_connect
.eventMask
= (GPM_UP
| GPM_DRAG
| GPM_DOWN
);
5921 gpm_connect
.defaultMask
= ~GPM_HARD
;
5922 /* Default handling for mouse move*/
5923 gpm_connect
.minMod
= 0; /* Handle any modifier keys */
5924 gpm_connect
.maxMod
= 0xffff;
5925 if (Gpm_Open(&gpm_connect
, 0) > 0)
5927 /* gpm library tries to handling TSTP causes
5928 * problems. Anyways, we close connection to Gpm whenever
5929 * we are going to suspend or starting an external process
5930 * so we shouldn't have problem with this
5933 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
5935 return 1; /* succeed */
5938 Gpm_Close(); /* We don't want to talk to xterm via gpm */
5941 return 1; /* already open */
5945 * Closes connection to gpm
5950 if (gpm_flag
&& gpm_fd
>= 0) /* if Open */
5954 /* Reads gpm event and adds special keys to input buf. Returns length of
5955 * generated key sequence.
5956 * This function is made after gui_send_mouse_event
5962 static Gpm_Event gpm_event
;
5964 int_u vim_modifiers
;
5966 unsigned char buttons_mask
;
5967 unsigned char gpm_modifiers
;
5968 static unsigned char old_buttons
= 0;
5970 Gpm_GetEvent(&gpm_event
);
5973 /* Don't put events in the input queue now. */
5974 if (hold_gui_events
)
5978 row
= gpm_event
.y
- 1;
5979 col
= gpm_event
.x
- 1;
5981 string
[0] = ESC
; /* Our termcode */
5984 switch (GPM_BARE_EVENTS(gpm_event
.type
))
5987 string
[3] = MOUSE_DRAG
;
5990 buttons_mask
= gpm_event
.buttons
& ~old_buttons
;
5991 old_buttons
= gpm_event
.buttons
;
5992 switch (buttons_mask
)
5995 button
= MOUSE_LEFT
;
5998 button
= MOUSE_MIDDLE
;
6001 button
= MOUSE_RIGHT
;
6005 /*Don't know what to do. Can more than one button be
6006 * reported in one event? */
6008 string
[3] = (char_u
)(button
| 0x20);
6009 SET_NUM_MOUSE_CLICKS(string
[3], gpm_event
.clicks
+ 1);
6012 string
[3] = MOUSE_RELEASE
;
6013 old_buttons
&= ~gpm_event
.buttons
;
6018 /*This code is based on gui_x11_mouse_cb in gui_x11.c */
6019 gpm_modifiers
= gpm_event
.modifiers
;
6020 vim_modifiers
= 0x0;
6021 /* I ignore capslock stats. Aren't we all just hate capslock mixing with
6022 * Vim commands ? Besides, gpm_event.modifiers is unsigned char, and
6023 * K_CAPSSHIFT is defined 8, so it probably isn't even reported
6025 if (gpm_modifiers
& ((1 << KG_SHIFT
) | (1 << KG_SHIFTR
) | (1 << KG_SHIFTL
)))
6026 vim_modifiers
|= MOUSE_SHIFT
;
6028 if (gpm_modifiers
& ((1 << KG_CTRL
) | (1 << KG_CTRLR
) | (1 << KG_CTRLL
)))
6029 vim_modifiers
|= MOUSE_CTRL
;
6030 if (gpm_modifiers
& ((1 << KG_ALT
) | (1 << KG_ALTGR
)))
6031 vim_modifiers
|= MOUSE_ALT
;
6032 string
[3] |= vim_modifiers
;
6033 string
[4] = (char_u
)(col
+ ' ' + 1);
6034 string
[5] = (char_u
)(row
+ ' ' + 1);
6035 add_to_input_buf(string
, 6);
6038 #endif /* FEAT_MOUSE_GPM */
6040 #ifdef FEAT_SYSMOUSE
6042 * Initialize connection with sysmouse.
6043 * Let virtual console inform us with SIGUSR2 for pending sysmouse
6044 * output, any sysmouse output than will be processed via sig_sysmouse().
6045 * Return OK if succeeded, FAIL if failed.
6050 struct mouse_info mouse
;
6052 mouse
.operation
= MOUSE_MODE
;
6053 mouse
.u
.mode
.mode
= 0;
6054 mouse
.u
.mode
.signal
= SIGUSR2
;
6055 if (ioctl(1, CONS_MOUSECTL
, &mouse
) != -1)
6057 signal(SIGUSR2
, (RETSIGTYPE (*)())sig_sysmouse
);
6058 mouse
.operation
= MOUSE_SHOW
;
6059 ioctl(1, CONS_MOUSECTL
, &mouse
);
6066 * Stop processing SIGUSR2 signals, and also make sure that
6067 * virtual console do not send us any sysmouse related signal.
6072 struct mouse_info mouse
;
6074 signal(SIGUSR2
, restricted
? SIG_IGN
: SIG_DFL
);
6075 mouse
.operation
= MOUSE_MODE
;
6076 mouse
.u
.mode
.mode
= 0;
6077 mouse
.u
.mode
.signal
= 0;
6078 ioctl(1, CONS_MOUSECTL
, &mouse
);
6082 * Gets info from sysmouse and adds special keys to input buf.
6086 sig_sysmouse
SIGDEFARG(sigarg
)
6088 struct mouse_info mouse
;
6089 struct video_info video
;
6094 static int oldbuttons
= 0;
6097 /* Don't put events in the input queue now. */
6098 if (hold_gui_events
)
6102 mouse
.operation
= MOUSE_GETINFO
;
6103 if (ioctl(1, FBIO_GETMODE
, &video
.vi_mode
) != -1
6104 && ioctl(1, FBIO_MODEINFO
, &video
) != -1
6105 && ioctl(1, CONS_MOUSECTL
, &mouse
) != -1
6106 && video
.vi_cheight
> 0 && video
.vi_cwidth
> 0)
6108 row
= mouse
.u
.data
.y
/ video
.vi_cheight
;
6109 col
= mouse
.u
.data
.x
/ video
.vi_cwidth
;
6110 buttons
= mouse
.u
.data
.buttons
;
6111 string
[0] = ESC
; /* Our termcode */
6114 if (oldbuttons
== buttons
&& buttons
!= 0)
6116 button
= MOUSE_DRAG
;
6123 button
= MOUSE_RELEASE
;
6126 button
= MOUSE_LEFT
;
6129 button
= MOUSE_MIDDLE
;
6132 button
= MOUSE_RIGHT
;
6137 oldbuttons
= buttons
;
6139 string
[3] = (char_u
)(button
);
6140 string
[4] = (char_u
)(col
+ ' ' + 1);
6141 string
[5] = (char_u
)(row
+ ' ' + 1);
6142 add_to_input_buf(string
, 6);
6146 #endif /* FEAT_SYSMOUSE */
6148 #if defined(FEAT_LIBCALL) || defined(PROTO)
6149 typedef char_u
* (*STRPROCSTR
)__ARGS((char_u
*));
6150 typedef char_u
* (*INTPROCSTR
)__ARGS((int));
6151 typedef int (*STRPROCINT
)__ARGS((char_u
*));
6152 typedef int (*INTPROCINT
)__ARGS((int));
6155 * Call a DLL routine which takes either a string or int param
6156 * and returns an allocated string.
6159 mch_libcall(libname
, funcname
, argstring
, argint
, string_result
, number_result
)
6162 char_u
*argstring
; /* NULL when using a argint */
6164 char_u
**string_result
;/* NULL when using number_result */
6167 # if defined(USE_DLOPEN)
6174 INTPROCSTR ProcAddI
;
6175 char_u
*retval_str
= NULL
;
6177 int success
= FALSE
;
6180 * Get a handle to the DLL module.
6182 # if defined(USE_DLOPEN)
6183 /* First clear any error, it's not cleared by the dlopen() call. */
6186 hinstLib
= dlopen((char *)libname
, RTLD_LAZY
6191 if (hinstLib
== NULL
)
6193 /* "dlerr" must be used before dlclose() */
6194 dlerr
= (char *)dlerror();
6196 EMSG2(_("dlerror = \"%s\""), dlerr
);
6199 hinstLib
= shl_load((const char*)libname
, BIND_IMMEDIATE
|BIND_VERBOSE
, 0L);
6202 /* If the handle is valid, try to get the function address. */
6203 if (hinstLib
!= NULL
)
6205 # ifdef HAVE_SETJMP_H
6207 * Catch a crash when calling the library function. For example when
6208 * using a number where a string pointer is expected.
6211 if (SETJMP(lc_jump_env
) != 0)
6214 # if defined(USE_DLOPEN)
6225 if (argstring
!= NULL
)
6227 # if defined(USE_DLOPEN)
6228 ProcAdd
= (STRPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
6229 dlerr
= (char *)dlerror();
6231 if (shl_findsym(&hinstLib
, (const char *)funcname
,
6232 TYPE_PROCEDURE
, (void *)&ProcAdd
) < 0)
6235 if ((success
= (ProcAdd
!= NULL
6236 # if defined(USE_DLOPEN)
6241 if (string_result
== NULL
)
6242 retval_int
= ((STRPROCINT
)ProcAdd
)(argstring
);
6244 retval_str
= (ProcAdd
)(argstring
);
6249 # if defined(USE_DLOPEN)
6250 ProcAddI
= (INTPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
6251 dlerr
= (char *)dlerror();
6253 if (shl_findsym(&hinstLib
, (const char *)funcname
,
6254 TYPE_PROCEDURE
, (void *)&ProcAddI
) < 0)
6257 if ((success
= (ProcAddI
!= NULL
6258 # if defined(USE_DLOPEN)
6263 if (string_result
== NULL
)
6264 retval_int
= ((INTPROCINT
)ProcAddI
)(argint
);
6266 retval_str
= (ProcAddI
)(argint
);
6270 /* Save the string before we free the library. */
6271 /* Assume that a "1" or "-1" result is an illegal pointer. */
6272 if (string_result
== NULL
)
6273 *number_result
= retval_int
;
6274 else if (retval_str
!= NULL
6275 && retval_str
!= (char_u
*)1
6276 && retval_str
!= (char_u
*)-1)
6277 *string_result
= vim_strsave(retval_str
);
6280 # ifdef HAVE_SETJMP_H
6287 /* try to find the name of this signal */
6288 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
6289 if (lc_signal
== signal_info
[i
].sig
)
6291 EMSG2("E368: got SIG%s in libcall()", signal_info
[i
].name
);
6296 # if defined(USE_DLOPEN)
6297 /* "dlerr" must be used before dlclose() */
6299 EMSG2(_("dlerror = \"%s\""), dlerr
);
6301 /* Free the DLL module. */
6302 (void)dlclose(hinstLib
);
6304 (void)shl_unload(hinstLib
);
6310 EMSG2(_(e_libcall
), funcname
);
6318 #if (defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) || defined(PROTO)
6319 static int xterm_trace
= -1; /* default: disabled */
6320 static int xterm_button
;
6323 * Setup a dummy window for X selections in a terminal.
6332 if (!x_connect_to_server())
6336 if (app_context
!= NULL
&& xterm_Shell
== (Widget
)0)
6338 int (*oldhandler
)();
6339 #if defined(HAVE_SETJMP_H)
6340 int (*oldIOhandler
)();
6342 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6343 struct timeval start_tv
;
6346 gettimeofday(&start_tv
, NULL
);
6349 /* Ignore X errors while opening the display */
6350 oldhandler
= XSetErrorHandler(x_error_check
);
6352 #if defined(HAVE_SETJMP_H)
6353 /* Ignore X IO errors while opening the display */
6354 oldIOhandler
= XSetIOErrorHandler(x_IOerror_check
);
6356 if (SETJMP(lc_jump_env
) != 0)
6364 xterm_dpy
= XtOpenDisplay(app_context
, xterm_display
,
6365 "vim_xterm", "Vim_xterm", NULL
, 0, &z
, &strp
);
6366 #if defined(HAVE_SETJMP_H)
6371 #if defined(HAVE_SETJMP_H)
6372 /* Now handle X IO errors normally. */
6373 (void)XSetIOErrorHandler(oldIOhandler
);
6375 /* Now handle X errors normally. */
6376 (void)XSetErrorHandler(oldhandler
);
6378 if (xterm_dpy
== NULL
)
6381 verb_msg((char_u
*)_("Opening the X display failed"));
6385 /* Catch terminating error of the X server connection. */
6386 (void)XSetIOErrorHandler(x_IOerror_handler
);
6388 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6392 xopen_message(&start_tv
);
6397 /* Create a Shell to make converters work. */
6398 AppShell
= XtVaAppCreateShell("vim_xterm", "Vim_xterm",
6399 applicationShellWidgetClass
, xterm_dpy
,
6401 if (AppShell
== (Widget
)0)
6403 xterm_Shell
= XtVaCreatePopupShell("VIM",
6404 topLevelShellWidgetClass
, AppShell
,
6405 XtNmappedWhenManaged
, 0,
6409 if (xterm_Shell
== (Widget
)0)
6412 x11_setup_atoms(xterm_dpy
);
6413 if (x11_display
== NULL
)
6414 x11_display
= xterm_dpy
;
6416 XtRealizeWidget(xterm_Shell
);
6417 XSync(xterm_dpy
, False
);
6420 if (xterm_Shell
!= (Widget
)0)
6423 if (x11_window
== 0 && (strp
= getenv("WINDOWID")) != NULL
)
6424 x11_window
= (Window
)atol(strp
);
6425 /* Check if $WINDOWID is valid. */
6426 if (test_x11_window(xterm_dpy
) == FAIL
)
6428 if (x11_window
!= 0)
6434 start_xterm_trace(button
)
6437 if (x11_window
== 0 || xterm_trace
< 0 || xterm_Shell
== (Widget
)0)
6440 xterm_button
= button
;
6448 if (xterm_trace
< 0)
6454 * Query the xterm pointer and generate mouse termcodes if necessary
6455 * return TRUE if dragging is active, else FALSE
6468 static char_u
*mouse_code
;
6469 static char_u mouse_name
[2] = {KS_MOUSE
, KE_FILLER
};
6470 static int prev_row
= 0, prev_col
= 0;
6471 static XSizeHints xterm_hints
;
6473 if (xterm_trace
<= 0)
6476 if (xterm_trace
== 1)
6478 /* Get the hints just before tracking starts. The font size might
6479 * have changed recently. */
6480 if (!XGetWMNormalHints(xterm_dpy
, x11_window
, &xterm_hints
, &got_hints
)
6481 || !(got_hints
& PResizeInc
)
6482 || xterm_hints
.width_inc
<= 1
6483 || xterm_hints
.height_inc
<= 1)
6485 xterm_trace
= -1; /* Not enough data -- disable tracing */
6489 /* Rely on the same mouse code for the duration of this */
6490 mouse_code
= find_termcode(mouse_name
);
6491 prev_row
= mouse_row
;
6492 prev_row
= mouse_col
;
6495 /* Find the offset of the chars, there might be a scrollbar on the
6496 * left of the window and/or a menu on the top (eterm etc.) */
6497 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6498 &win_x
, &win_y
, &mask_return
);
6499 xterm_hints
.y
= win_y
- (xterm_hints
.height_inc
* mouse_row
)
6500 - (xterm_hints
.height_inc
/ 2);
6501 if (xterm_hints
.y
<= xterm_hints
.height_inc
/ 2)
6503 xterm_hints
.x
= win_x
- (xterm_hints
.width_inc
* mouse_col
)
6504 - (xterm_hints
.width_inc
/ 2);
6505 if (xterm_hints
.x
<= xterm_hints
.width_inc
/ 2)
6509 if (mouse_code
== NULL
)
6515 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6516 &win_x
, &win_y
, &mask_return
);
6518 row
= check_row((win_y
- xterm_hints
.y
) / xterm_hints
.height_inc
);
6519 col
= check_col((win_x
- xterm_hints
.x
) / xterm_hints
.width_inc
);
6520 if (row
== prev_row
&& col
== prev_col
)
6523 STRCPY(buf
, mouse_code
);
6524 strp
= buf
+ STRLEN(buf
);
6525 *strp
++ = (xterm_button
| MOUSE_DRAG
) & ~0x20;
6526 *strp
++ = (char_u
)(col
+ ' ' + 1);
6527 *strp
++ = (char_u
)(row
+ ' ' + 1);
6529 add_to_input_buf(buf
, STRLEN(buf
));
6536 # if defined(FEAT_GUI) || defined(PROTO)
6538 * Destroy the display, window and app_context. Required for GTK.
6543 if (xterm_Shell
!= (Widget
)0)
6545 XtDestroyWidget(xterm_Shell
);
6546 xterm_Shell
= (Widget
)0;
6548 if (xterm_dpy
!= NULL
)
6551 /* Lesstif and Solaris crash here, lose some memory */
6552 XtCloseDisplay(xterm_dpy
);
6554 if (x11_display
== xterm_dpy
)
6559 if (app_context
!= (XtAppContext
)NULL
)
6561 /* Lesstif and Solaris crash here, lose some memory */
6562 XtDestroyApplicationContext(app_context
);
6563 app_context
= (XtAppContext
)NULL
;
6570 * Catch up with any queued X events. This may put keyboard input into the
6571 * input buffer, call resize call-backs, trigger timers etc. If there is
6572 * nothing in the X event queue (& no timers pending), then we return
6580 while (XtAppPending(app_context
) && !vim_is_input_buf_full())
6582 XtAppNextEvent(app_context
, &event
);
6583 #ifdef FEAT_CLIENTSERVER
6585 XPropertyEvent
*e
= (XPropertyEvent
*)&event
;
6587 if (e
->type
== PropertyNotify
&& e
->window
== commWindow
6588 && e
->atom
== commProperty
&& e
->state
== PropertyNewValue
)
6589 serverEventProc(xterm_dpy
, &event
);
6592 XtDispatchEvent(&event
);
6597 clip_xterm_own_selection(cbd
)
6600 if (xterm_Shell
!= (Widget
)0)
6601 return clip_x11_own_selection(xterm_Shell
, cbd
);
6606 clip_xterm_lose_selection(cbd
)
6609 if (xterm_Shell
!= (Widget
)0)
6610 clip_x11_lose_selection(xterm_Shell
, cbd
);
6614 clip_xterm_request_selection(cbd
)
6617 if (xterm_Shell
!= (Widget
)0)
6618 clip_x11_request_selection(xterm_Shell
, xterm_dpy
, cbd
);
6622 clip_xterm_set_selection(cbd
)
6625 clip_x11_set_selection(cbd
);
6630 #if defined(USE_XSMP) || defined(PROTO)
6632 * Code for X Session Management Protocol.
6634 static void xsmp_handle_save_yourself
__ARGS((SmcConn smc_conn
, SmPointer client_data
, int save_type
, Bool shutdown
, int interact_style
, Bool fast
));
6635 static void xsmp_die
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6636 static void xsmp_save_complete
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6637 static void xsmp_shutdown_cancelled
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6638 static void xsmp_ice_connection
__ARGS((IceConn iceConn
, IcePointer clientData
, Bool opening
, IcePointer
*watchData
));
6641 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6642 static void xsmp_handle_interaction
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6645 * This is our chance to ask the user if they want to save,
6646 * or abort the logout
6650 xsmp_handle_interaction(smc_conn
, client_data
)
6652 SmPointer client_data
;
6654 cmdmod_T save_cmdmod
;
6655 int cancel_shutdown
= False
;
6657 save_cmdmod
= cmdmod
;
6658 cmdmod
.confirm
= TRUE
;
6659 if (check_changed_any(FALSE
))
6660 /* Mustn't logout */
6661 cancel_shutdown
= True
;
6662 cmdmod
= save_cmdmod
;
6663 setcursor(); /* position cursor */
6666 /* Done interaction */
6667 SmcInteractDone(smc_conn
, cancel_shutdown
);
6670 * Only end save-yourself here if we're not cancelling shutdown;
6671 * we'll get a cancelled callback later in which we'll end it.
6672 * Hopefully get around glitchy SMs (like GNOME-1)
6674 if (!cancel_shutdown
)
6676 xsmp
.save_yourself
= False
;
6677 SmcSaveYourselfDone(smc_conn
, True
);
6683 * Callback that starts save-yourself.
6687 xsmp_handle_save_yourself(smc_conn
, client_data
, save_type
,
6688 shutdown
, interact_style
, fast
)
6690 SmPointer client_data
;
6696 /* Handle already being in saveyourself */
6697 if (xsmp
.save_yourself
)
6698 SmcSaveYourselfDone(smc_conn
, True
);
6699 xsmp
.save_yourself
= True
;
6700 xsmp
.shutdown
= shutdown
;
6702 /* First up, preserve all files */
6704 ml_sync_all(FALSE
, FALSE
); /* preserve all swap files */
6707 verb_msg((char_u
*)_("XSMP handling save-yourself request"));
6709 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6710 /* Now see if we can ask about unsaved files */
6711 if (shutdown
&& !fast
&& gui
.in_use
)
6712 /* Need to interact with user, but need SM's permission */
6713 SmcInteractRequest(smc_conn
, SmDialogError
,
6714 xsmp_handle_interaction
, client_data
);
6718 /* Can stop the cycle here */
6719 SmcSaveYourselfDone(smc_conn
, True
);
6720 xsmp
.save_yourself
= False
;
6726 * Callback to warn us of imminent death.
6730 xsmp_die(smc_conn
, client_data
)
6732 SmPointer client_data
;
6736 /* quit quickly leaving swapfiles for modified buffers behind */
6737 getout_preserve_modified(0);
6742 * Callback to tell us that save-yourself has completed.
6746 xsmp_save_complete(smc_conn
, client_data
)
6748 SmPointer client_data
;
6750 xsmp
.save_yourself
= False
;
6755 * Callback to tell us that an instigated shutdown was cancelled
6756 * (maybe even by us)
6760 xsmp_shutdown_cancelled(smc_conn
, client_data
)
6762 SmPointer client_data
;
6764 if (xsmp
.save_yourself
)
6765 SmcSaveYourselfDone(smc_conn
, True
);
6766 xsmp
.save_yourself
= False
;
6767 xsmp
.shutdown
= False
;
6772 * Callback to tell us that a new ICE connection has been established.
6776 xsmp_ice_connection(iceConn
, clientData
, opening
, watchData
)
6778 IcePointer clientData
;
6780 IcePointer
*watchData
;
6782 /* Intercept creation of ICE connection fd */
6785 xsmp_icefd
= IceConnectionNumber(iceConn
);
6786 IceRemoveConnectionWatch(xsmp_ice_connection
, NULL
);
6791 /* Handle any ICE processing that's required; return FAIL if SM lost */
6793 xsmp_handle_requests()
6797 if (IceProcessMessages(xsmp
.iceconn
, NULL
, &rep
)
6798 == IceProcessMessagesIOError
)
6802 verb_msg((char_u
*)_("XSMP lost ICE connection"));
6812 /* Set up X Session Management Protocol */
6816 char errorstring
[80];
6817 SmcCallbacks smcallbacks
;
6825 verb_msg((char_u
*)_("XSMP opening connection"));
6827 xsmp
.save_yourself
= xsmp
.shutdown
= False
;
6829 /* Set up SM callbacks - must have all, even if they're not used */
6830 smcallbacks
.save_yourself
.callback
= xsmp_handle_save_yourself
;
6831 smcallbacks
.save_yourself
.client_data
= NULL
;
6832 smcallbacks
.die
.callback
= xsmp_die
;
6833 smcallbacks
.die
.client_data
= NULL
;
6834 smcallbacks
.save_complete
.callback
= xsmp_save_complete
;
6835 smcallbacks
.save_complete
.client_data
= NULL
;
6836 smcallbacks
.shutdown_cancelled
.callback
= xsmp_shutdown_cancelled
;
6837 smcallbacks
.shutdown_cancelled
.client_data
= NULL
;
6839 /* Set up a watch on ICE connection creations. The "dummy" argument is
6840 * apparently required for FreeBSD (we get a BUS error when using NULL). */
6841 if (IceAddConnectionWatch(xsmp_ice_connection
, &dummy
) == 0)
6844 verb_msg((char_u
*)_("XSMP ICE connection watch failed"));
6848 /* Create an SM connection */
6849 xsmp
.smcconn
= SmcOpenConnection(
6854 SmcSaveYourselfProcMask
| SmcDieProcMask
6855 | SmcSaveCompleteProcMask
| SmcShutdownCancelledProcMask
,
6859 sizeof(errorstring
),
6861 if (xsmp
.smcconn
== NULL
)
6863 char errorreport
[132];
6867 vim_snprintf(errorreport
, sizeof(errorreport
),
6868 _("XSMP SmcOpenConnection failed: %s"), errorstring
);
6869 verb_msg((char_u
*)errorreport
);
6873 xsmp
.iceconn
= SmcGetIceConnection(xsmp
.smcconn
);
6877 smname
.value
= "vim";
6879 smnameprop
.name
= "SmProgram";
6880 smnameprop
.type
= "SmARRAY8";
6881 smnameprop
.num_vals
= 1;
6882 smnameprop
.vals
= &smname
;
6884 smprops
[0] = &smnameprop
;
6885 SmcSetProperties(xsmp
.smcconn
, 1, smprops
);
6890 /* Shut down XSMP comms. */
6894 if (xsmp_icefd
!= -1)
6896 SmcCloseConnection(xsmp
.smcconn
, 0, NULL
);
6897 if (xsmp
.clientid
!= NULL
)
6898 free(xsmp
.clientid
);
6899 xsmp
.clientid
= NULL
;
6903 #endif /* USE_XSMP */
6907 /* Translate character to its CTRL- value */
6911 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6912 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6913 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6914 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6915 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6916 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6920 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6923 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6934 0, 0, 0, 0, 0, 0, 0,
6945 0, 0, 0, 0, 0, 0, 0, 0,
6958 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6960 /* BE - C0 */ 0, 0, 0,
6970 /* CA - D0 */ 0, 0, 0, 0, 0, 0, 0,
6980 /* DA - DF */ 0, 0, 0, 0, 0, 0,
6991 /* EA - FF*/ 0, 0, 0, 0, 0, 0,
6992 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6995 char MetaCharTable
[]=
6996 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
6997 0, 0, 0, 0,'\\', 0,'F', 0,'W','M','N', 0, 0, 0, 0, 0,
6998 0, 0, 0, 0,']', 0, 0,'G', 0, 0,'R','O', 0, 0, 0, 0,
6999 '@','A','B','C','D','E', 0, 0,'H','I','J','K','L', 0, 0, 0,
7000 'P','Q', 0,'S','T','U','V', 0,'X','Y','Z','[', 0, 0,'^', 0
7004 /* TODO: Use characters NOT numbers!!! */
7005 char CtrlCharTable
[]=
7006 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
7007 124,193,194,195, 0,201, 0, 0, 0, 0, 0,210,211,212,213,214,
7008 215,216,217,226, 0,209,200, 0,231,232, 0, 0,224,189, 95,109,
7009 0, 0, 0, 0, 0, 0,230,173, 0, 0, 0, 0, 0,197,198,199,
7010 0, 0,229, 0, 0, 0, 0,196, 0, 0, 0, 0,227,228, 0,233,