1 /* vi:set ts=8 sts=4 sw=4:
3 * VIM - Vi IMproved by Bram Moolenaar
4 * OS/2 port by Paul Slootman
5 * VMS merge by Zoltan Arpadffy
7 * Do ":help uganda" in Vim to read copying and usage conditions.
8 * Do ":help credits" in Vim to see a list of people who contributed.
9 * See README.txt for an overview of the Vim source code.
13 * os_unix.c -- code for all flavors of Unix (BSD, SYSV, SVR4, POSIX, ...)
14 * Also for OS/2, using the excellent EMX package!!!
15 * Also for BeOS and Atari MiNT.
17 * A lot of this file was originally written by Juergen Weigert and later
18 * changed beyond recognition.
22 * Some systems have a prototype for select() that has (int *) instead of
23 * (fd_set *), which is wrong. This define removes that prototype. We define
24 * our own prototype below.
25 * Don't use it for the Mac, it causes a warning for precompiled headers.
26 * TODO: use a configure check for precompiled headers?
28 #if !defined(__APPLE__) && !defined(__TANDEM)
29 # define select select_declared_wrong
35 # include "if_mzsch.h"
38 #include "os_unixx.h" /* unix includes for os_unix.c only */
41 # include <X11/SM/SMlib.h>
45 # include <selinux/selinux.h>
46 static int selinux_enabled
= -1;
50 * Use this prototype for select, some include files have a wrong prototype
55 # define select beos_select
61 # include <cygwin/version.h>
62 # include <sys/cygwin.h> /* for cygwin_conv_to_posix_path() and/or
63 * for cygwin_conv_path() */
67 #if defined(HAVE_SELECT)
68 extern int select
__ARGS((int, fd_set
*, fd_set
*, fd_set
*, struct timeval
*));
73 /* <linux/keyboard.h> contains defines conflicting with "keymap.h",
74 * I just copied relevant defines here. A cleaner solution would be to put gpm
75 * code into separate file and include there linux/keyboard.h
77 /* #include <linux/keyboard.h> */
86 # define KG_CAPSSHIFT 8
88 static void gpm_close
__ARGS((void));
89 static int gpm_open
__ARGS((void));
90 static int mch_gpm_process
__ARGS((void));
94 # include <sys/consio.h>
95 # include <sys/fbio.h>
97 static int sysmouse_open
__ARGS((void));
98 static void sysmouse_close
__ARGS((void));
99 static RETSIGTYPE sig_sysmouse
__ARGS(SIGPROTOARG
);
103 * end of autoconf section. To be extended...
106 /* Are the following #ifdefs still required? And why? Is that for X11? */
108 #if defined(ESIX) || defined(M_UNIX) && !defined(SCO)
117 #if defined(SIGWINDOW) && !defined(SIGWINCH) /* hpux 9.01 has it */
118 # define SIGWINCH SIGWINDOW
122 # include <X11/Xlib.h>
123 # include <X11/Xutil.h>
124 # include <X11/Xatom.h>
125 # ifdef FEAT_XCLIPBOARD
126 # include <X11/Intrinsic.h>
127 # include <X11/Shell.h>
128 # include <X11/StringDefs.h>
129 static Widget xterm_Shell
= (Widget
)0;
130 static void xterm_update
__ARGS((void));
133 # if defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE)
134 Window x11_window
= 0;
136 Display
*x11_display
= NULL
;
139 static int get_x11_windis
__ARGS((void));
140 static void set_x11_title
__ARGS((char_u
*));
141 static void set_x11_icon
__ARGS((char_u
*));
146 static int get_x11_title
__ARGS((int));
147 static int get_x11_icon
__ARGS((int));
149 static char_u
*oldtitle
= NULL
;
150 static int did_set_title
= FALSE
;
151 static char_u
*oldicon
= NULL
;
152 static int did_set_icon
= FALSE
;
155 static void may_core_dump
__ARGS((void));
157 static int WaitForChar
__ARGS((long));
158 #if defined(__BEOS__)
159 int RealWaitForChar
__ARGS((int, long, int *));
161 static int RealWaitForChar
__ARGS((int, long, int *));
164 #ifdef FEAT_XCLIPBOARD
165 static int do_xterm_trace
__ARGS((void));
166 # define XT_TRACE_DELAY 50 /* delay for xterm tracing */
169 static void handle_resize
__ARGS((void));
171 #if defined(SIGWINCH)
172 static RETSIGTYPE sig_winch
__ARGS(SIGPROTOARG
);
175 static RETSIGTYPE catch_sigint
__ARGS(SIGPROTOARG
);
178 static RETSIGTYPE catch_sigpwr
__ARGS(SIGPROTOARG
);
180 #if defined(SIGALRM) && defined(FEAT_X11) \
181 && defined(FEAT_TITLE) && !defined(FEAT_GUI_GTK)
182 # define SET_SIG_ALARM
183 static RETSIGTYPE sig_alarm
__ARGS(SIGPROTOARG
);
184 static int sig_alarm_called
;
186 static RETSIGTYPE deathtrap
__ARGS(SIGPROTOARG
);
188 static void catch_int_signal
__ARGS((void));
189 static void set_signals
__ARGS((void));
190 static void catch_signals
__ARGS((RETSIGTYPE (*func_deadly
)(), RETSIGTYPE (*func_other
)()));
192 static int have_wildcard
__ARGS((int, char_u
**));
193 static int have_dollars
__ARGS((int, char_u
**));
197 static int save_patterns
__ARGS((int num_pat
, char_u
**pat
, int *num_file
, char_u
***file
));
201 # define SIG_ERR ((RETSIGTYPE (*)())-1)
204 static int do_resize
= FALSE
;
206 static char_u
*extra_shell_arg
= NULL
;
207 static int show_shell_mess
= TRUE
;
209 static int deadly_signal
= 0; /* The signal we caught */
210 static int in_mch_delay
= FALSE
; /* sleeping in mch_delay() */
212 static int curr_tmode
= TMODE_COOK
; /* contains current terminal mode */
217 SmcConn smcconn
; /* The SM connection ID */
218 IceConn iceconn
; /* The ICE connection ID */
219 char *clientid
; /* The client ID for the current smc session */
220 Bool save_yourself
; /* If we're in the middle of a save_yourself */
221 Bool shutdown
; /* If we're in shutdown mode */
224 static xsmp_config_T xsmp
;
227 #ifdef SYS_SIGLIST_DECLARED
230 * extern char *_sys_siglist[NSIG];
231 * on Irix, Linux, NetBSD and Solaris. It contains a nice list of strings
232 * that describe the signals. That is nearly what we want here. But
233 * autoconf does only check for sys_siglist (without the underscore), I
234 * do not want to change everything today.... jw.
235 * This is why AC_DECL_SYS_SIGLIST is commented out in configure.in
239 static struct signalinfo
241 int sig
; /* Signal number, eg. SIGSEGV etc */
242 char *name
; /* Signal name (not char_u!). */
243 char deadly
; /* Catch as a deadly signal? */
247 {SIGHUP
, "HUP", TRUE
},
250 {SIGQUIT
, "QUIT", TRUE
},
253 {SIGILL
, "ILL", TRUE
},
256 {SIGTRAP
, "TRAP", TRUE
},
259 {SIGABRT
, "ABRT", TRUE
},
262 {SIGEMT
, "EMT", TRUE
},
265 {SIGFPE
, "FPE", TRUE
},
268 {SIGBUS
, "BUS", TRUE
},
271 {SIGSEGV
, "SEGV", TRUE
},
274 {SIGSYS
, "SYS", TRUE
},
277 {SIGALRM
, "ALRM", FALSE
}, /* Perl's alarm() can trigger it */
280 {SIGTERM
, "TERM", TRUE
},
283 {SIGVTALRM
, "VTALRM", TRUE
},
285 #if defined(SIGPROF) && !defined(FEAT_MZSCHEME) && !defined(WE_ARE_PROFILING)
286 /* MzScheme uses SIGPROF for its own needs; On Linux with profiling
287 * this makes Vim exit. WE_ARE_PROFILING is defined in Makefile. */
288 {SIGPROF
, "PROF", TRUE
},
291 {SIGXCPU
, "XCPU", TRUE
},
294 {SIGXFSZ
, "XFSZ", TRUE
},
297 {SIGUSR1
, "USR1", TRUE
},
299 #if defined(SIGUSR2) && !defined(FEAT_SYSMOUSE)
300 /* Used for sysmouse handling */
301 {SIGUSR2
, "USR2", TRUE
},
304 {SIGINT
, "INT", FALSE
},
307 {SIGWINCH
, "WINCH", FALSE
},
310 {SIGTSTP
, "TSTP", FALSE
},
313 {SIGPIPE
, "PIPE", FALSE
},
315 {-1, "Unknown!", FALSE
}
319 * Write s[len] to the screen.
326 ignored
= (int)write(1, (char *)s
, len
);
327 if (p_wd
) /* Unix is too fast, slow down a bit more */
328 RealWaitForChar(read_cmd_fd
, p_wd
, NULL
);
332 * mch_inchar(): low level input function.
333 * Get a characters from the keyboard.
334 * Return the number of characters that are available.
335 * If wtime == 0 do not wait for characters.
336 * If wtime == n wait a short time for characters.
337 * If wtime == -1 wait forever for characters.
340 mch_inchar(buf
, maxlen
, wtime
, tb_change_cnt
)
343 long wtime
; /* don't use "time", MIPS cannot handle it */
348 /* Check if window changed size while we were busy, perhaps the ":set
349 * columns=99" command was used. */
355 while (WaitForChar(wtime
) == 0) /* no character available */
357 if (!do_resize
) /* return if not interrupted by resize */
362 else /* wtime == -1 */
365 * If there is no character available within 'updatetime' seconds
366 * flush all the swap files to disk.
367 * Also done when interrupted by SIGWINCH.
369 if (WaitForChar(p_ut
) == 0)
372 if (trigger_cursorhold() && maxlen
>= 3
373 && !typebuf_changed(tb_change_cnt
))
377 buf
[2] = (int)KE_CURSORHOLD
;
385 for (;;) /* repeat until we got a character */
387 while (do_resize
) /* window changed size */
390 * we want to be interrupted by the winch signal
393 if (do_resize
) /* interrupted by SIGWINCH signal */
396 /* If input was put directly in typeahead buffer bail out here. */
397 if (typebuf_changed(tb_change_cnt
))
401 * For some terminals we only get one character at a time.
402 * We want the get all available characters, so we could keep on
403 * trying until none is available
404 * For some other terminals this is quite slow, that's why we don't do
407 len
= read_from_input_buf(buf
, (long)maxlen
);
413 for (i
= 0; i
< len
; i
++)
430 * return non-zero if a character is available
435 return WaitForChar(0L);
438 #if defined(HAVE_TOTAL_MEM) || defined(PROTO)
439 # ifdef HAVE_SYS_RESOURCE_H
440 # include <sys/resource.h>
442 # if defined(HAVE_SYS_SYSCTL_H) && defined(HAVE_SYSCTL)
443 # include <sys/sysctl.h>
445 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
446 # include <sys/sysinfo.h>
450 * Return total amount of memory available in Kbyte.
451 * Doesn't change when memory has been allocated.
455 mch_total_mem(special
)
459 return ulimit(3, 0L) >> 10; /* always 32MB? */
462 long_u shiftright
= 10; /* how much to shift "mem" right for Kbyte */
468 /* BSD way of getting the amount of RAM available. */
471 len
= sizeof(physmem
);
472 if (sysctl(mib
, 2, &physmem
, &len
, NULL
, 0) == 0)
473 mem
= (long_u
)physmem
;
476 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
479 struct sysinfo sinfo
;
481 /* Linux way of getting amount of RAM available */
482 if (sysinfo(&sinfo
) == 0)
484 # ifdef HAVE_SYSINFO_MEM_UNIT
485 /* avoid overflow as much as possible */
486 while (shiftright
> 0 && (sinfo
.mem_unit
& 1) == 0)
488 sinfo
.mem_unit
= sinfo
.mem_unit
>> 1;
491 mem
= sinfo
.totalram
* sinfo
.mem_unit
;
493 mem
= sinfo
.totalram
;
502 long pagesize
, pagecount
;
504 /* Solaris way of getting amount of RAM available */
505 pagesize
= sysconf(_SC_PAGESIZE
);
506 pagecount
= sysconf(_SC_PHYS_PAGES
);
507 if (pagesize
> 0 && pagecount
> 0)
509 /* avoid overflow as much as possible */
510 while (shiftright
> 0 && (pagesize
& 1) == 0)
512 pagesize
= (long_u
)pagesize
>> 1;
515 mem
= (long_u
)pagesize
* pagecount
;
520 /* Return the minimum of the physical memory and the user limit, because
521 * using more than the user limit may cause Vim to be terminated. */
522 # if defined(HAVE_SYS_RESOURCE_H) && defined(HAVE_GETRLIMIT)
526 if (getrlimit(RLIMIT_DATA
, &rlp
) == 0
527 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
528 # ifdef RLIM_INFINITY
529 && rlp
.rlim_cur
!= RLIM_INFINITY
531 && ((long_u
)rlp
.rlim_cur
>> 10) < (mem
>> shiftright
)
534 mem
= (long_u
)rlp
.rlim_cur
;
541 return mem
>> shiftright
;
542 return (long_u
)0x1fffff;
548 mch_delay(msec
, ignoreinput
)
554 long total
= msec
; /* remember original value */
559 /* Go to cooked mode without echo, to allow SIGINT interrupting us
560 * here. But we don't want QUIT to kill us (CTRL-\ used in a
561 * shell may produce SIGQUIT). */
563 old_tmode
= curr_tmode
;
564 if (curr_tmode
== TMODE_RAW
)
565 settmode(TMODE_SLEEP
);
568 * Everybody sleeps in a different way...
569 * Prefer nanosleep(), some versions of usleep() can only sleep up to
575 /* if total is large enough, wait by portions in p_mzq */
582 #ifdef HAVE_NANOSLEEP
586 ts
.tv_sec
= msec
/ 1000;
587 ts
.tv_nsec
= (msec
% 1000) * 1000000;
588 (void)nanosleep(&ts
, NULL
);
594 usleep((unsigned int)(999 * 1000));
597 usleep((unsigned int)(msec
* 1000));
600 poll(NULL
, 0, (int)msec
);
608 tv
.tv_sec
= msec
/ 1000;
609 tv
.tv_usec
= (msec
% 1000) * 1000;
611 * NOTE: Solaris 2.6 has a bug that makes select() hang here. Get
612 * a patch from Sun to fix this. Reported by Gunnar Pedersen.
614 select(0, NULL
, NULL
, NULL
, &tv
);
616 # endif /* __EMX__ */
617 # endif /* HAVE_SELECT */
618 # endif /* HAVE_NANOSLEEP */
619 #endif /* HAVE_USLEEP */
626 in_mch_delay
= FALSE
;
632 #if 0 /* disabled, no longer needed now that regmatch() is not recursive */
633 # if defined(HAVE_GETRLIMIT)
634 # define HAVE_STACK_LIMIT
638 #if defined(HAVE_STACK_LIMIT) \
639 || (!defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGSTACK))
640 # define HAVE_CHECK_STACK_GROWTH
642 * Support for checking for an almost-out-of-stack-space situation.
646 * Return a pointer to an item on the stack. Used to find out if the stack
649 static void check_stack_growth
__ARGS((char *p
));
650 static int stack_grows_downwards
;
653 * Find out if the stack grows upwards or downwards.
654 * "p" points to a variable on the stack of the caller.
657 check_stack_growth(p
)
662 stack_grows_downwards
= (p
> (char *)&i
);
666 #if defined(HAVE_STACK_LIMIT) || defined(PROTO)
667 static char *stack_limit
= NULL
;
669 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
670 # include <pthread.h>
671 # include <pthread_np.h>
675 * Find out until how var the stack can grow without getting into trouble.
676 * Called when starting up and when switching to the signal stack in
686 /* Set the stack limit to 15/16 of the allowable size. Skip this when the
687 * limit doesn't fit in a long (rlim_cur might be "long long"). */
688 if (getrlimit(RLIMIT_STACK
, &rlp
) == 0
689 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
690 # ifdef RLIM_INFINITY
691 && rlp
.rlim_cur
!= RLIM_INFINITY
695 lim
= (long)rlp
.rlim_cur
;
696 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
701 /* On FreeBSD the initial thread always has a fixed stack size, no
702 * matter what the limits are set to. Normally it's 1 Mbyte. */
703 pthread_attr_init(&attr
);
704 if (pthread_attr_get_np(pthread_self(), &attr
) == 0)
706 pthread_attr_getstacksize(&attr
, &size
);
707 if (lim
> (long)size
)
710 pthread_attr_destroy(&attr
);
713 if (stack_grows_downwards
)
715 stack_limit
= (char *)((long)&i
- (lim
/ 16L * 15L));
716 if (stack_limit
>= (char *)&i
)
717 /* overflow, set to 1/16 of current stack position */
718 stack_limit
= (char *)((long)&i
/ 16L);
722 stack_limit
= (char *)((long)&i
+ (lim
/ 16L * 15L));
723 if (stack_limit
<= (char *)&i
)
724 stack_limit
= NULL
; /* overflow */
730 * Return FAIL when running out of stack space.
731 * "p" must point to any variable local to the caller that's on the stack.
737 if (stack_limit
!= NULL
)
739 if (stack_grows_downwards
)
744 else if (p
> stack_limit
)
751 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
753 * Support for using the signal stack.
754 * This helps when we run out of stack space, which causes a SIGSEGV. The
755 * signal handler then must run on another stack, since the normal stack is
760 # define SIGSTKSZ 8000 /* just a guess of how much stack is needed... */
763 # ifdef HAVE_SIGALTSTACK
764 static stack_t sigstk
; /* for sigaltstack() */
766 static struct sigstack sigstk
; /* for sigstack() */
769 static void init_signal_stack
__ARGS((void));
770 static char *signal_stack
;
775 if (signal_stack
!= NULL
)
777 # ifdef HAVE_SIGALTSTACK
778 # if defined(__APPLE__) && (!defined(MAC_OS_X_VERSION_MAX_ALLOWED) \
779 || MAC_OS_X_VERSION_MAX_ALLOWED <= 1040)
780 /* missing prototype. Adding it to osdef?.h.in doesn't work, because
781 * "struct sigaltstack" needs to be declared. */
782 extern int sigaltstack
__ARGS((const struct sigaltstack
*ss
, struct sigaltstack
*oss
));
786 sigstk
.ss_base
= signal_stack
;
788 sigstk
.ss_sp
= signal_stack
;
790 sigstk
.ss_size
= SIGSTKSZ
;
792 (void)sigaltstack(&sigstk
, NULL
);
794 sigstk
.ss_sp
= signal_stack
;
795 if (stack_grows_downwards
)
796 sigstk
.ss_sp
+= SIGSTKSZ
- 1;
797 sigstk
.ss_onstack
= 0;
798 (void)sigstack(&sigstk
, NULL
);
805 * We need correct potatotypes for a signal function, otherwise mean compilers
806 * will barf when the second argument to signal() is ``wrong''.
807 * Let me try it with a few tricky defines from my own osdef.h (jw).
809 #if defined(SIGWINCH)
812 sig_winch
SIGDEFARG(sigarg
)
814 /* this is not required on all systems, but it doesn't hurt anybody */
815 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
824 catch_sigint
SIGDEFARG(sigarg
)
826 /* this is not required on all systems, but it doesn't hurt anybody */
827 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
836 catch_sigpwr
SIGDEFARG(sigarg
)
838 /* this is not required on all systems, but it doesn't hurt anybody */
839 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
841 * I'm not sure we get the SIGPWR signal when the system is really going
842 * down or when the batteries are almost empty. Just preserve the swap
843 * files and don't exit, that can't do any harm.
845 ml_sync_all(FALSE
, FALSE
);
852 * signal function for alarm().
856 sig_alarm
SIGDEFARG(sigarg
)
858 /* doesn't do anything, just to break a system call */
859 sig_alarm_called
= TRUE
;
864 #if (defined(HAVE_SETJMP_H) \
865 && ((defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) \
866 || defined(FEAT_LIBCALL))) \
869 * A simplistic version of setjmp() that only allows one level of using.
870 * Don't call twice before calling mch_endjmp()!.
873 * if (SETJMP(lc_jump_env) != 0)
883 * Note: Can't move SETJMP() here, because a function calling setjmp() must
884 * not return before the saved environment is used.
885 * Returns OK for normal return, FAIL when the protected code caused a
886 * problem and LONGJMP() was used.
906 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
907 /* On FreeBSD the signal stack has to be reset after using siglongjmp(),
908 * otherwise catching the signal only works once. */
915 * This function handles deadly signals.
916 * It tries to preserve any swap file and exit properly.
917 * (partly from Elvis).
920 deathtrap
SIGDEFARG(sigarg
)
922 static int entered
= 0; /* count the number of times we got here.
923 Note: when memory has been corrupted
924 this may get an arbitrary value! */
929 #if defined(HAVE_SETJMP_H)
931 * Catch a crash in protected code.
932 * Restores the environment saved in lc_jump_env, which looks like
933 * SETJMP() returns 1.
937 # if defined(SIGHASARG)
940 lc_active
= FALSE
; /* don't jump again */
941 LONGJMP(lc_jump_env
, 1);
948 /* While in mch_delay() we go to cooked mode to allow a CTRL-C to
949 * interrupt us. But in cooked mode we may also get SIGQUIT, e.g., when
950 * pressing CTRL-\, but we don't want Vim to exit then. */
951 if (in_mch_delay
&& sigarg
== SIGQUIT
)
955 /* When SIGHUP, SIGQUIT, etc. are blocked: postpone the effect and return
956 * here. This avoids that a non-reentrant function is interrupted, e.g.,
957 * free(). Calling free() again may then cause a crash. */
979 && !vim_handle_signal(sigarg
))
983 /* Remember how often we have been called. */
987 /* Set the v:dying variable. */
988 set_vim_var_nr(VV_DYING
, (long)entered
);
991 #ifdef HAVE_STACK_LIMIT
992 /* Since we are now using the signal stack, need to reset the stack
993 * limit. Otherwise using a regexp will fail. */
998 /* This is for opening gdb the moment Vim crashes.
999 * You need to manually adjust the file name and Vim executable name.
1000 * Suggested by SungHyun Nam. */
1002 # define VI_GDB_FILE "/tmp/vimgdb"
1003 # define VIM_NAME "/usr/bin/vim"
1004 FILE *fp
= fopen(VI_GDB_FILE
, "w");
1012 , VIM_NAME
, getpid());
1014 system("xterm -e gdb -x "VI_GDB_FILE
);
1015 unlink(VI_GDB_FILE
);
1021 /* try to find the name of this signal */
1022 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1023 if (sigarg
== signal_info
[i
].sig
)
1025 deadly_signal
= sigarg
;
1028 full_screen
= FALSE
; /* don't write message to the GUI, it might be
1029 * part of the problem... */
1031 * If something goes wrong after entering here, we may get here again.
1032 * When this happens, give a message and try to exit nicely (resetting the
1033 * terminal mode, etc.)
1034 * When this happens twice, just exit, don't even try to give a message,
1035 * stack may be corrupt or something weird.
1036 * When this still happens again (or memory was corrupted in such a way
1037 * that "entered" was clobbered) use _exit(), don't try freeing resources.
1041 reset_signals(); /* don't catch any signals anymore */
1049 OUT_STR(_("Vim: Double signal, exiting\n"));
1055 sprintf((char *)IObuff
, _("Vim: Caught deadly signal %s\n"),
1056 signal_info
[i
].name
);
1058 sprintf((char *)IObuff
, _("Vim: Caught deadly signal\n"));
1060 preserve_exit(); /* preserve files and exit */
1073 * On Solaris with multi-threading, suspending might not work immediately.
1074 * Catch the SIGCONT signal, which will be used as an indication whether the
1075 * suspending has been done or not.
1077 static int sigcont_received
;
1078 static RETSIGTYPE sigcont_handler
__ARGS(SIGPROTOARG
);
1081 * signal handler for SIGCONT
1085 sigcont_handler
SIGDEFARG(sigarg
)
1087 sigcont_received
= TRUE
;
1093 * If the machine has job control, use it to suspend the program,
1094 * otherwise fake it by starting a new shell.
1099 /* BeOS does have SIGTSTP, but it doesn't work. */
1100 #if defined(SIGTSTP) && !defined(__BEOS__)
1101 out_flush(); /* needed to make cursor visible on some systems */
1102 settmode(TMODE_COOK
);
1103 out_flush(); /* needed to disable mouse on some systems */
1105 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
1106 /* Since we are going to sleep, we can't respond to requests for the X
1107 * selections. Lose them, otherwise other applications will hang. But
1108 * first copy the text to cut buffer 0. */
1109 if (clip_star
.owned
|| clip_plus
.owned
)
1111 x11_export_final_selection();
1112 if (clip_star
.owned
)
1113 clip_lose_selection(&clip_star
);
1114 if (clip_plus
.owned
)
1115 clip_lose_selection(&clip_plus
);
1116 if (x11_display
!= NULL
)
1117 XFlush(x11_display
);
1122 sigcont_received
= FALSE
;
1124 kill(0, SIGTSTP
); /* send ourselves a STOP signal */
1126 /* When we didn't suspend immediately in the kill(), do it now. Happens
1127 * on multi-threaded Solaris. */
1128 if (!sigcont_received
)
1134 * Set oldtitle to NULL, so the current title is obtained again.
1139 settmode(TMODE_RAW
);
1140 need_check_timestamps
= TRUE
;
1141 did_check_timestamps
= FALSE
;
1156 #ifdef MACOS_CONVERT
1164 #if defined(SIGWINCH)
1166 * WINDOW CHANGE signal is handled with sig_winch().
1168 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
1172 * We want the STOP signal to work, to make mch_suspend() work.
1173 * For "rvim" the STOP signal is ignored.
1176 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
1179 signal(SIGCONT
, sigcont_handler
);
1183 * We want to ignore breaking of PIPEs.
1186 signal(SIGPIPE
, SIG_IGN
);
1194 * Ignore alarm signals (Perl's alarm() generates it).
1197 signal(SIGALRM
, SIG_IGN
);
1201 * Catch SIGPWR (power failure?) to preserve the swap files, so that no
1202 * work will be lost.
1205 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
1209 * Arrange for other signals to gracefully shutdown Vim.
1211 catch_signals(deathtrap
, SIG_ERR
);
1213 #if defined(FEAT_GUI) && defined(SIGHUP)
1215 * When the GUI is running, ignore the hangup signal.
1218 signal(SIGHUP
, SIG_IGN
);
1222 #if defined(SIGINT) || defined(PROTO)
1224 * Catch CTRL-C (only works while in Cooked mode).
1229 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
1236 catch_signals(SIG_DFL
, SIG_DFL
);
1238 /* SIGCONT isn't in the list, because its default action is ignore */
1239 signal(SIGCONT
, SIG_DFL
);
1244 catch_signals(func_deadly
, func_other
)
1245 RETSIGTYPE (*func_deadly
)();
1246 RETSIGTYPE (*func_other
)();
1250 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1251 if (signal_info
[i
].deadly
)
1253 #if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGACTION)
1254 struct sigaction sa
;
1256 /* Setup to use the alternate stack for the signal function. */
1257 sa
.sa_handler
= func_deadly
;
1258 sigemptyset(&sa
.sa_mask
);
1259 # if defined(__linux__) && defined(_REENTRANT)
1260 /* On Linux, with glibc compiled for kernel 2.2, there is a bug in
1261 * thread handling in combination with using the alternate stack:
1262 * pthread library functions try to use the stack pointer to
1263 * identify the current thread, causing a SEGV signal, which
1264 * recursively calls deathtrap() and hangs. */
1267 sa
.sa_flags
= SA_ONSTACK
;
1269 sigaction(signal_info
[i
].sig
, &sa
, NULL
);
1271 # if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGVEC)
1274 /* Setup to use the alternate stack for the signal function. */
1275 sv
.sv_handler
= func_deadly
;
1277 sv
.sv_flags
= SV_ONSTACK
;
1278 sigvec(signal_info
[i
].sig
, &sv
, NULL
);
1280 signal(signal_info
[i
].sig
, func_deadly
);
1284 else if (func_other
!= SIG_ERR
)
1285 signal(signal_info
[i
].sig
, func_other
);
1289 * Handling of SIGHUP, SIGQUIT and SIGTERM:
1290 * "when" == a signal: when busy, postpone and return FALSE, otherwise
1292 * "when" == SIGNAL_BLOCK: Going to be busy, block signals
1293 * "when" == SIGNAL_UNBLOCK: Going to wait, unblock signals, use postponed
1295 * Returns TRUE when Vim should exit.
1298 vim_handle_signal(sig
)
1301 static int got_signal
= 0;
1302 static int blocked
= TRUE
;
1306 case SIGNAL_BLOCK
: blocked
= TRUE
;
1309 case SIGNAL_UNBLOCK
: blocked
= FALSE
;
1310 if (got_signal
!= 0)
1312 kill(getpid(), got_signal
);
1317 default: if (!blocked
)
1318 return TRUE
; /* exit! */
1323 got_int
= TRUE
; /* break any loops */
1330 * Check_win checks whether we have an interactive stdout.
1334 mch_check_win(argc
, argv
)
1340 * Store argv[0], may be used for $VIM. Only use it if it is an absolute
1341 * name, mostly it's just "vim" and found in the path, which is unusable.
1343 if (mch_isFullName(argv
[0]))
1344 exe_name
= vim_strsave((char_u
*)argv
[0]);
1352 * Return TRUE if the input comes from a terminal, FALSE otherwise.
1357 if (isatty(read_cmd_fd
))
1364 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H) \
1365 && (defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE))
1367 static void xopen_message
__ARGS((struct timeval
*tvp
));
1370 * Give a message about the elapsed time for opening the X window.
1374 struct timeval
*tvp
; /* must contain start time */
1376 struct timeval end_tv
;
1378 /* Compute elapsed time. */
1379 gettimeofday(&end_tv
, NULL
);
1380 smsg((char_u
*)_("Opening the X display took %ld msec"),
1381 (end_tv
.tv_sec
- tvp
->tv_sec
) * 1000L
1382 + (end_tv
.tv_usec
- tvp
->tv_usec
) / 1000L);
1387 #if defined(FEAT_X11) && (defined(FEAT_TITLE) || defined(FEAT_XCLIPBOARD))
1389 * A few functions shared by X11 title and clipboard code.
1391 static int x_error_handler
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1392 static int x_error_check
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1393 static int x_connect_to_server
__ARGS((void));
1394 static int test_x11_window
__ARGS((Display
*dpy
));
1396 static int got_x_error
= FALSE
;
1399 * X Error handler, otherwise X just exits! (very rude) -- webb
1402 x_error_handler(dpy
, error_event
)
1404 XErrorEvent
*error_event
;
1406 XGetErrorText(dpy
, error_event
->error_code
, (char *)IObuff
, IOSIZE
);
1407 STRCAT(IObuff
, _("\nVim: Got X error\n"));
1409 /* We cannot print a message and continue, because no X calls are allowed
1410 * here (causes my system to hang). Silently continuing might be an
1412 preserve_exit(); /* preserve files and exit */
1414 return 0; /* NOTREACHED */
1418 * Another X Error handler, just used to check for errors.
1422 x_error_check(dpy
, error_event
)
1424 XErrorEvent
*error_event
;
1430 #if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
1431 # if defined(HAVE_SETJMP_H)
1433 * An X IO Error handler, used to catch error while opening the display.
1435 static int x_IOerror_check
__ARGS((Display
*dpy
));
1439 x_IOerror_check(dpy
)
1442 /* This function should not return, it causes exit(). Longjump instead. */
1443 LONGJMP(lc_jump_env
, 1);
1450 * An X IO Error handler, used to catch terminal errors.
1452 static int x_IOerror_handler
__ARGS((Display
*dpy
));
1456 x_IOerror_handler(dpy
)
1462 xterm_Shell
= (Widget
)0;
1464 /* This function should not return, it causes exit(). Longjump instead. */
1465 LONGJMP(x_jump_env
, 1);
1472 * Return TRUE when connection to the X server is desired.
1475 x_connect_to_server()
1477 regmatch_T regmatch
;
1479 #if defined(FEAT_CLIENTSERVER)
1480 if (x_force_connect
)
1486 /* Check for a match with "exclude:" from 'clipboard'. */
1487 if (clip_exclude_prog
!= NULL
)
1489 regmatch
.rm_ic
= FALSE
; /* Don't ignore case */
1490 regmatch
.regprog
= clip_exclude_prog
;
1491 if (vim_regexec(®match
, T_NAME
, (colnr_T
)0))
1498 * Test if "dpy" and x11_window are valid by getting the window title.
1499 * I don't actually want it yet, so there may be a simpler call to use, but
1500 * this will cause the error handler x_error_check() to be called if anything
1501 * is wrong, such as the window pointer being invalid (as can happen when the
1502 * user changes his DISPLAY, but not his WINDOWID) -- webb
1505 test_x11_window(dpy
)
1508 int (*old_handler
)();
1509 XTextProperty text_prop
;
1511 old_handler
= XSetErrorHandler(x_error_check
);
1512 got_x_error
= FALSE
;
1513 if (XGetWMName(dpy
, x11_window
, &text_prop
))
1514 XFree((void *)text_prop
.value
);
1516 (void)XSetErrorHandler(old_handler
);
1518 if (p_verbose
> 0 && got_x_error
)
1519 verb_msg((char_u
*)_("Testing the X display failed"));
1521 return (got_x_error
? FAIL
: OK
);
1529 static int get_x11_thing
__ARGS((int get_title
, int test_only
));
1532 * try to get x11 window and display
1534 * return FAIL for failure, OK otherwise
1540 static int result
= -1;
1541 #define XD_NONE 0 /* x11_display not set here */
1542 #define XD_HERE 1 /* x11_display opened here */
1543 #define XD_GUI 2 /* x11_display used from gui.dpy */
1544 #define XD_XTERM 3 /* x11_display used from xterm_dpy */
1545 static int x11_display_from
= XD_NONE
;
1546 static int did_set_error_handler
= FALSE
;
1548 if (!did_set_error_handler
)
1550 /* X just exits if it finds an error otherwise! */
1551 (void)XSetErrorHandler(x_error_handler
);
1552 did_set_error_handler
= TRUE
;
1555 #if defined(FEAT_GUI_X11) || defined(FEAT_GUI_GTK)
1559 * If the X11 display was opened here before, for the window where Vim
1560 * was started, close that one now to avoid a memory leak.
1562 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1564 XCloseDisplay(x11_display
);
1565 x11_display_from
= XD_NONE
;
1567 if (gui_get_x11_windis(&x11_window
, &x11_display
) == OK
)
1569 x11_display_from
= XD_GUI
;
1575 else if (x11_display_from
== XD_GUI
)
1577 /* GUI must have stopped somehow, clear x11_display */
1580 x11_display_from
= XD_NONE
;
1584 /* When started with the "-X" argument, don't try connecting. */
1585 if (!x_connect_to_server())
1589 * If WINDOWID not set, should try another method to find out
1590 * what the current window number is. The only code I know for
1591 * this is very complicated.
1592 * We assume that zero is invalid for WINDOWID.
1594 if (x11_window
== 0 && (winid
= getenv("WINDOWID")) != NULL
)
1595 x11_window
= (Window
)atol(winid
);
1597 #ifdef FEAT_XCLIPBOARD
1598 if (xterm_dpy
!= NULL
&& x11_window
!= 0)
1600 /* We may have checked it already, but Gnome terminal can move us to
1601 * another window, so we need to check every time. */
1602 if (x11_display_from
!= XD_XTERM
)
1605 * If the X11 display was opened here before, for the window where
1606 * Vim was started, close that one now to avoid a memory leak.
1608 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1609 XCloseDisplay(x11_display
);
1610 x11_display
= xterm_dpy
;
1611 x11_display_from
= XD_XTERM
;
1613 if (test_x11_window(x11_display
) == FAIL
)
1615 /* probably bad $WINDOWID */
1618 x11_display_from
= XD_NONE
;
1625 if (x11_window
== 0 || x11_display
== NULL
)
1628 if (result
!= -1) /* Have already been here and set this */
1629 return result
; /* Don't do all these X calls again */
1631 if (x11_window
!= 0 && x11_display
== NULL
)
1633 #ifdef SET_SIG_ALARM
1634 RETSIGTYPE (*sig_save
)();
1636 #if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1637 struct timeval start_tv
;
1640 gettimeofday(&start_tv
, NULL
);
1643 #ifdef SET_SIG_ALARM
1645 * Opening the Display may hang if the DISPLAY setting is wrong, or
1646 * the network connection is bad. Set an alarm timer to get out.
1648 sig_alarm_called
= FALSE
;
1649 sig_save
= (RETSIGTYPE (*)())signal(SIGALRM
,
1650 (RETSIGTYPE (*)())sig_alarm
);
1653 x11_display
= XOpenDisplay(NULL
);
1655 #ifdef SET_SIG_ALARM
1657 signal(SIGALRM
, (RETSIGTYPE (*)())sig_save
);
1658 if (p_verbose
> 0 && sig_alarm_called
)
1659 verb_msg((char_u
*)_("Opening the X display timed out"));
1661 if (x11_display
!= NULL
)
1663 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1667 xopen_message(&start_tv
);
1671 if (test_x11_window(x11_display
) == FAIL
)
1673 /* Maybe window id is bad */
1675 XCloseDisplay(x11_display
);
1679 x11_display_from
= XD_HERE
;
1682 if (x11_window
== 0 || x11_display
== NULL
)
1683 return (result
= FAIL
);
1684 return (result
= OK
);
1688 * Determine original x11 Window Title
1691 get_x11_title(test_only
)
1694 return get_x11_thing(TRUE
, test_only
);
1698 * Determine original x11 Window icon
1701 get_x11_icon(test_only
)
1706 retval
= get_x11_thing(FALSE
, test_only
);
1708 /* could not get old icon, use terminal name */
1709 if (oldicon
== NULL
&& !test_only
)
1711 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1712 oldicon
= T_NAME
+ 8;
1721 get_x11_thing(get_title
, test_only
)
1722 int get_title
; /* get title string */
1725 XTextProperty text_prop
;
1729 if (get_x11_windis() == OK
)
1731 /* Get window/icon name if any */
1733 status
= XGetWMName(x11_display
, x11_window
, &text_prop
);
1735 status
= XGetWMIconName(x11_display
, x11_window
, &text_prop
);
1738 * If terminal is xterm, then x11_window may be a child window of the
1739 * outer xterm window that actually contains the window/icon name, so
1740 * keep traversing up the tree until a window with a title/icon is
1743 /* Previously this was only done for xterm and alikes. I don't see a
1744 * reason why it would fail for other terminal emulators.
1745 * if (term_is_xterm) */
1749 Window win
= x11_window
;
1751 unsigned int num_children
;
1753 while (!status
|| text_prop
.value
== NULL
)
1755 if (!XQueryTree(x11_display
, win
, &root
, &parent
, &children
,
1759 XFree((void *)children
);
1760 if (parent
== root
|| parent
== 0)
1765 status
= XGetWMName(x11_display
, win
, &text_prop
);
1767 status
= XGetWMIconName(x11_display
, win
, &text_prop
);
1770 if (status
&& text_prop
.value
!= NULL
)
1775 #ifdef FEAT_XFONTSET
1776 if (text_prop
.encoding
== XA_STRING
)
1780 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1782 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1783 #ifdef FEAT_XFONTSET
1788 Status transform_status
;
1791 transform_status
= XmbTextPropertyToTextList(x11_display
,
1794 if (transform_status
>= Success
&& n
> 0 && cl
[0])
1797 oldtitle
= vim_strsave((char_u
*) cl
[0]);
1799 oldicon
= vim_strsave((char_u
*) cl
[0]);
1800 XFreeStringList(cl
);
1805 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1807 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1812 XFree((void *)text_prop
.value
);
1818 /* Are Xutf8 functions available? Avoid error from old compilers. */
1819 #if defined(X_HAVE_UTF8_STRING) && defined(FEAT_MBYTE)
1820 # if X_HAVE_UTF8_STRING
1821 # define USE_UTF8_STRING
1826 * Set x11 Window Title
1828 * get_x11_windis() must be called before this and have returned OK
1831 set_x11_title(title
)
1834 /* XmbSetWMProperties() and Xutf8SetWMProperties() should use a STRING
1835 * when possible, COMPOUND_TEXT otherwise. COMPOUND_TEXT isn't
1836 * supported everywhere and STRING doesn't work for multi-byte titles.
1838 #ifdef USE_UTF8_STRING
1840 Xutf8SetWMProperties(x11_display
, x11_window
, (const char *)title
,
1841 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1845 #if XtSpecificationRelease >= 4
1846 # ifdef FEAT_XFONTSET
1847 XmbSetWMProperties(x11_display
, x11_window
, (const char *)title
,
1848 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1850 XTextProperty text_prop
;
1851 char *c_title
= (char *)title
;
1853 /* directly from example 3-18 "basicwin" of Xlib Programming Manual */
1854 (void)XStringListToTextProperty(&c_title
, 1, &text_prop
);
1855 XSetWMProperties(x11_display
, x11_window
, &text_prop
,
1856 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1859 XStoreName(x11_display
, x11_window
, (char *)title
);
1862 XFlush(x11_display
);
1866 * Set x11 Window icon
1868 * get_x11_windis() must be called before this and have returned OK
1874 /* See above for comments about using X*SetWMProperties(). */
1875 #ifdef USE_UTF8_STRING
1877 Xutf8SetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1878 NULL
, 0, NULL
, NULL
, NULL
);
1882 #if XtSpecificationRelease >= 4
1883 # ifdef FEAT_XFONTSET
1884 XmbSetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1885 NULL
, 0, NULL
, NULL
, NULL
);
1887 XTextProperty text_prop
;
1888 char *c_icon
= (char *)icon
;
1890 (void)XStringListToTextProperty(&c_icon
, 1, &text_prop
);
1891 XSetWMProperties(x11_display
, x11_window
, NULL
, &text_prop
,
1892 NULL
, 0, NULL
, NULL
, NULL
);
1895 XSetIconName(x11_display
, x11_window
, (char *)icon
);
1898 XFlush(x11_display
);
1901 #else /* FEAT_X11 */
1905 get_x11_title(test_only
)
1912 get_x11_icon(test_only
)
1917 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1918 oldicon
= T_NAME
+ 8;
1925 #endif /* FEAT_X11 */
1928 mch_can_restore_title()
1930 return get_x11_title(TRUE
);
1934 mch_can_restore_icon()
1936 return get_x11_icon(TRUE
);
1940 * Set the window title and icon.
1943 mch_settitle(title
, icon
)
1948 static int recursive
= 0;
1950 if (T_NAME
== NULL
) /* no terminal name (yet) */
1952 if (title
== NULL
&& icon
== NULL
) /* nothing to do */
1955 /* When one of the X11 functions causes a deadly signal, we get here again
1956 * recursively. Avoid hanging then (something is probably locked). */
1962 * if the window ID and the display is known, we may use X11 calls
1965 if (get_x11_windis() == OK
)
1968 # if defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) || defined(FEAT_GUI_GTK)
1975 * Note: if "t_TS" is set, title is set with escape sequence rather
1976 * than x11 calls, because the x11 calls don't always work
1978 if ((type
|| *T_TS
!= NUL
) && title
!= NULL
)
1980 if (oldtitle
== NULL
1984 ) /* first call but not in GUI, save title */
1985 (void)get_x11_title(FALSE
);
1987 if (*T_TS
!= NUL
) /* it's OK if t_fs is empty */
1988 term_settitle(title
);
1991 # ifdef FEAT_GUI_GTK
1992 if (!gui
.in_use
) /* don't do this if GTK+ is running */
1994 set_x11_title(title
); /* x11 */
1996 #if defined(FEAT_GUI_GTK) \
1997 || defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC)
1999 gui_mch_settitle(title
, icon
);
2001 did_set_title
= TRUE
;
2004 if ((type
|| *T_CIS
!= NUL
) && icon
!= NULL
)
2010 ) /* first call, save icon */
2011 get_x11_icon(FALSE
);
2015 out_str(T_CIS
); /* set icon start */
2017 out_str(T_CIE
); /* set icon end */
2022 # ifdef FEAT_GUI_GTK
2023 if (!gui
.in_use
) /* don't do this if GTK+ is running */
2025 set_x11_icon(icon
); /* x11 */
2027 did_set_icon
= TRUE
;
2033 * Restore the window/icon title.
2034 * "which" is one of:
2035 * 1 only restore title
2036 * 2 only restore icon
2037 * 3 restore title and icon
2040 mch_restore_title(which
)
2043 /* only restore the title or icon when it has been set */
2044 mch_settitle(((which
& 1) && did_set_title
) ?
2045 (oldtitle
? oldtitle
: p_titleold
) : NULL
,
2046 ((which
& 2) && did_set_icon
) ? oldicon
: NULL
);
2049 #endif /* FEAT_TITLE */
2052 * Return TRUE if "name" looks like some xterm name.
2053 * Seiichi Sato mentioned that "mlterm" works like xterm.
2061 return (STRNICMP(name
, "xterm", 5) == 0
2062 || STRNICMP(name
, "nxterm", 6) == 0
2063 || STRNICMP(name
, "kterm", 5) == 0
2064 || STRNICMP(name
, "mlterm", 6) == 0
2065 || STRNICMP(name
, "rxvt", 4) == 0
2066 || STRCMP(name
, "builtin_xterm") == 0);
2069 #if defined(FEAT_MOUSE_XTERM) || defined(PROTO)
2071 * Return TRUE if "name" appears to be that of a terminal
2072 * known to support the xterm-style mouse protocol.
2073 * Relies on term_is_xterm having been set to its correct value.
2076 use_xterm_like_mouse(name
)
2079 return (name
!= NULL
2080 && (term_is_xterm
|| STRNICMP(name
, "screen", 6) == 0));
2084 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
2086 * Return non-zero when using an xterm mouse, according to 'ttymouse'.
2087 * Return 1 for "xterm".
2088 * Return 2 for "xterm2".
2093 if (ttym_flags
== TTYM_XTERM2
)
2095 if (ttym_flags
== TTYM_XTERM
)
2107 return (STRNICMP(name
, "iris-ansi", 9) == 0
2108 || STRCMP(name
, "builtin_iris-ansi") == 0);
2116 return FALSE
; /* actually all ANSI comp. terminals should be here */
2117 /* catch VT100 - VT5xx */
2118 return ((STRNICMP(name
, "vt", 2) == 0
2119 && vim_strchr((char_u
*)"12345", name
[2]) != NULL
)
2120 || STRCMP(name
, "builtin_vt320") == 0);
2124 * Return TRUE if "name" is a terminal for which 'ttyfast' should be set.
2125 * This should include all windowed terminal emulators.
2128 vim_is_fastterm(name
)
2133 if (vim_is_xterm(name
) || vim_is_vt300(name
) || vim_is_iris(name
))
2135 return ( STRNICMP(name
, "hpterm", 6) == 0
2136 || STRNICMP(name
, "sun-cmd", 7) == 0
2137 || STRNICMP(name
, "screen", 6) == 0
2138 || STRNICMP(name
, "dtterm", 6) == 0);
2142 * Insert user name in s[len].
2143 * Return OK if a name found.
2146 mch_get_user_name(s
, len
)
2151 vim_strncpy(s
, (char_u
*)cuserid(NULL
), len
- 1);
2154 return mch_get_uname(getuid(), s
, len
);
2159 * Insert user name for "uid" in s[len].
2160 * Return OK if a name found.
2163 mch_get_uname(uid
, s
, len
)
2168 #if defined(HAVE_PWD_H) && defined(HAVE_GETPWUID)
2171 if ((pw
= getpwuid(uid
)) != NULL
2172 && pw
->pw_name
!= NULL
&& *(pw
->pw_name
) != NUL
)
2174 vim_strncpy(s
, (char_u
*)pw
->pw_name
, len
- 1);
2178 sprintf((char *)s
, "%d", (int)uid
); /* assumes s is long enough */
2179 return FAIL
; /* a number is not a name */
2183 * Insert host name is s[len].
2186 #ifdef HAVE_SYS_UTSNAME_H
2188 mch_get_host_name(s
, len
)
2192 struct utsname vutsname
;
2194 if (uname(&vutsname
) < 0)
2197 vim_strncpy(s
, (char_u
*)vutsname
.nodename
, len
- 1);
2199 #else /* HAVE_SYS_UTSNAME_H */
2201 # ifdef HAVE_SYS_SYSTEMINFO_H
2202 # define gethostname(nam, len) sysinfo(SI_HOSTNAME, nam, len)
2206 mch_get_host_name(s
, len
)
2211 vaxc$
gethostname((char *)s
, len
);
2213 gethostname((char *)s
, len
);
2215 s
[len
- 1] = NUL
; /* make sure it's terminated */
2217 #endif /* HAVE_SYS_UTSNAME_H */
2225 return (long)getpid();
2228 #if !defined(HAVE_STRERROR) && defined(USE_GETCWD)
2229 static char *strerror
__ARGS((int));
2235 extern int sys_nerr
;
2236 extern char *sys_errlist
[];
2239 if (err
> 0 && err
< sys_nerr
)
2240 return (sys_errlist
[err
]);
2241 sprintf(er
, "Error %d", err
);
2247 * Get name of current directory into buffer 'buf' of length 'len' bytes.
2248 * Return OK for success, FAIL for failure.
2251 mch_dirname(buf
, len
)
2255 #if defined(USE_GETCWD)
2256 if (getcwd((char *)buf
, len
) == NULL
)
2258 STRCPY(buf
, strerror(errno
));
2263 return (getwd((char *)buf
) != NULL
? OK
: FAIL
);
2267 #if defined(OS2) || defined(PROTO)
2269 * Replace all slashes by backslashes.
2270 * When 'shellslash' set do it the other way around.
2286 * Get absolute file name into "buf[len]".
2288 * return FAIL for failure, OK for success
2291 mch_FullName(fname
, buf
, len
, force
)
2292 char_u
*fname
, *buf
;
2294 int force
; /* also expand when already absolute path */
2298 int only_drive
; /* file name is only a drive letter */
2302 static int dont_fchdir
= FALSE
; /* TRUE when fchdir() doesn't work */
2304 char_u olddir
[MAXPATHL
];
2308 char_u posix_fname
[MAXPATHL
]; /* Cygwin docs mention MAX_PATH, but
2309 it's not always defined */
2313 fname
= vms_fixfilename(fname
);
2318 * This helps for when "/etc/hosts" is a symlink to "c:/something/hosts".
2320 # if CYGWIN_VERSION_DLL_MAJOR >= 1007
2321 cygwin_conv_path(CCP_WIN_A_TO_POSIX
, fname
, posix_fname
, MAXPATHL
);
2323 cygwin_conv_to_posix_path(fname
, posix_fname
);
2325 fname
= posix_fname
;
2328 /* expand it if forced or not an absolute path */
2329 if (force
|| !mch_isFullName(fname
))
2332 * If the file name has a path, change to that directory for a moment,
2333 * and then do the getwd() (and get back to where we were).
2334 * This will get the correct path name with "../" things.
2338 if (((p
= vim_strrchr(fname
, '/')) != NULL
)
2339 || ((p
= vim_strrchr(fname
, '\\')) != NULL
)
2340 || (((p
= vim_strchr(fname
, ':')) != NULL
) && ++only_drive
))
2342 if ((p
= vim_strrchr(fname
, '/')) != NULL
)
2347 * Use fchdir() if possible, it's said to be faster and more
2348 * reliable. But on SunOS 4 it might not work. Check this by
2349 * doing a fchdir() right now.
2353 fd
= open(".", O_RDONLY
| O_EXTRA
, 0);
2354 if (fd
>= 0 && fchdir(fd
) < 0)
2358 dont_fchdir
= TRUE
; /* don't try again */
2363 /* Only change directory when we are sure we can return to where
2364 * we are now. After doing "su" chdir(".") might not work. */
2369 (mch_dirname(olddir
, MAXPATHL
) == FAIL
2370 || mch_chdir((char *)olddir
) != 0))
2372 p
= NULL
; /* can't get current dir: don't chdir */
2379 * compensate for case where ':' from "D:" was the only
2380 * path separator detected in the file name; the _next_
2381 * character has to be removed, and then restored later.
2386 /* The directory is copied into buf[], to be able to remove
2387 * the file name without changing it (could be a string in
2388 * read-only memory) */
2389 if (p
- fname
>= len
)
2393 vim_strncpy(buf
, fname
, p
- fname
);
2394 if (mch_chdir((char *)buf
))
2410 if (mch_dirname(buf
, len
) == FAIL
)
2425 l
= mch_chdir((char *)olddir
);
2427 EMSG(_(e_prev_dir
));
2436 if (l
> 0 && buf
[l
- 1] != '/' && *fname
!= NUL
2437 && STRCMP(fname
, ".") != 0)
2443 /* Catch file names which are too long. */
2444 if (retval
== FAIL
|| STRLEN(buf
) + STRLEN(fname
) >= len
)
2447 /* Do not append ".", "/dir/." is equal to "/dir". */
2448 if (STRCMP(fname
, ".") != 0)
2455 * Return TRUE if "fname" does not depend on the current directory.
2458 mch_isFullName(fname
)
2462 return _fnisabs(fname
);
2465 return ( fname
[0] == '/' || fname
[0] == '.' ||
2466 strchr((char *)fname
,':') || strchr((char *)fname
,'"') ||
2467 (strchr((char *)fname
,'[') && strchr((char *)fname
,']'))||
2468 (strchr((char *)fname
,'<') && strchr((char *)fname
,'>')) );
2470 return (*fname
== '/' || *fname
== '~');
2475 #if defined(USE_FNAME_CASE) || defined(PROTO)
2477 * Set the case of the file name, if it already exists. This will cause the
2478 * file name to remain exactly the same.
2479 * Only required for file systems where case is ignored and preserved.
2483 fname_case(name
, len
)
2485 int len
; /* buffer size, only used when name gets longer */
2488 char_u
*slash
, *tail
;
2492 if (lstat((char *)name
, &st
) >= 0)
2494 /* Open the directory where the file is located. */
2495 slash
= vim_strrchr(name
, '/');
2498 dirp
= opendir(".");
2504 dirp
= opendir((char *)name
);
2511 while ((dp
= readdir(dirp
)) != NULL
)
2513 /* Only accept names that differ in case and are the same byte
2514 * length. TODO: accept different length name. */
2515 if (STRICMP(tail
, dp
->d_name
) == 0
2516 && STRLEN(tail
) == STRLEN(dp
->d_name
))
2518 char_u newname
[MAXPATHL
+ 1];
2521 /* Verify the inode is equal. */
2522 vim_strncpy(newname
, name
, MAXPATHL
);
2523 vim_strncpy(newname
+ (tail
- name
), (char_u
*)dp
->d_name
,
2524 MAXPATHL
- (tail
- name
));
2525 if (lstat((char *)newname
, &st2
) >= 0
2526 && st
.st_ino
== st2
.st_ino
2527 && st
.st_dev
== st2
.st_dev
)
2529 STRCPY(tail
, dp
->d_name
);
2542 * Get file permissions for 'name'.
2543 * Returns -1 when it doesn't exist.
2551 /* Keep the #ifdef outside of stat(), it may be a macro. */
2553 if (stat((char *)vms_fixfilename(name
), &statb
))
2555 if (stat((char *)name
, &statb
))
2559 /* The top bit makes the value negative, which means the file doesn't
2560 * exist. Remove the bit, we don't use it. */
2561 return statb
.st_mode
& ~S_ADDACE
;
2563 return statb
.st_mode
;
2568 * set file permission for 'name' to 'perm'
2570 * return FAIL for failure, OK otherwise
2573 mch_setperm(name
, perm
)
2577 return (chmod((char *)
2579 vms_fixfilename(name
),
2583 (mode_t
)perm
) == 0 ? OK
: FAIL
);
2586 #if defined(HAVE_ACL) || defined(PROTO)
2587 # ifdef HAVE_SYS_ACL_H
2588 # include <sys/acl.h>
2590 # ifdef HAVE_SYS_ACCESS_H
2591 # include <sys/access.h>
2594 # ifdef HAVE_SOLARIS_ACL
2595 typedef struct vim_acl_solaris_T
{
2597 aclent_t
*acl_entry
;
2598 } vim_acl_solaris_T
;
2601 #if defined(HAVE_SELINUX) || defined(PROTO)
2603 * Copy security info from "from_file" to "to_file".
2606 mch_copy_sec(from_file
, to_file
)
2610 if (from_file
== NULL
)
2613 if (selinux_enabled
== -1)
2614 selinux_enabled
= is_selinux_enabled();
2616 if (selinux_enabled
> 0)
2618 security_context_t from_context
= NULL
;
2619 security_context_t to_context
= NULL
;
2621 if (getfilecon((char *)from_file
, &from_context
) < 0)
2623 /* If the filesystem doesn't support extended attributes,
2624 the original had no special security context and the
2625 target cannot have one either. */
2626 if (errno
== EOPNOTSUPP
)
2629 MSG_PUTS(_("\nCould not get security context for "));
2630 msg_outtrans(from_file
);
2634 if (getfilecon((char *)to_file
, &to_context
) < 0)
2636 MSG_PUTS(_("\nCould not get security context for "));
2637 msg_outtrans(to_file
);
2639 freecon (from_context
);
2642 if (strcmp(from_context
, to_context
) != 0)
2644 if (setfilecon((char *)to_file
, from_context
) < 0)
2646 MSG_PUTS(_("\nCould not set security context for "));
2647 msg_outtrans(to_file
);
2651 freecon(to_context
);
2652 freecon(from_context
);
2655 #endif /* HAVE_SELINUX */
2658 * Return a pointer to the ACL of file "fname" in allocated memory.
2659 * Return NULL if the ACL is not available for whatever reason.
2665 vim_acl_T ret
= NULL
;
2666 #ifdef HAVE_POSIX_ACL
2667 ret
= (vim_acl_T
)acl_get_file((char *)fname
, ACL_TYPE_ACCESS
);
2669 #ifdef HAVE_SOLARIS_ACL
2670 vim_acl_solaris_T
*aclent
;
2672 aclent
= malloc(sizeof(vim_acl_solaris_T
));
2673 if ((aclent
->acl_cnt
= acl((char *)fname
, GETACLCNT
, 0, NULL
)) < 0)
2678 aclent
->acl_entry
= malloc(aclent
->acl_cnt
* sizeof(aclent_t
));
2679 if (acl((char *)fname
, GETACL
, aclent
->acl_cnt
, aclent
->acl_entry
) < 0)
2681 free(aclent
->acl_entry
);
2685 ret
= (vim_acl_T
)aclent
;
2687 #if defined(HAVE_AIX_ACL)
2691 aclsize
= sizeof(struct acl
);
2692 aclent
= malloc(aclsize
);
2693 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2695 if (errno
== ENOSPC
)
2697 aclsize
= aclent
->acl_len
;
2698 aclent
= realloc(aclent
, aclsize
);
2699 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2711 ret
= (vim_acl_T
)aclent
;
2712 #endif /* HAVE_AIX_ACL */
2713 #endif /* HAVE_SOLARIS_ACL */
2714 #endif /* HAVE_POSIX_ACL */
2719 * Set the ACL of file "fname" to "acl" (unless it's NULL).
2722 mch_set_acl(fname
, aclent
)
2728 #ifdef HAVE_POSIX_ACL
2729 acl_set_file((char *)fname
, ACL_TYPE_ACCESS
, (acl_t
)aclent
);
2731 #ifdef HAVE_SOLARIS_ACL
2732 acl((char *)fname
, SETACL
, ((vim_acl_solaris_T
*)aclent
)->acl_cnt
,
2733 ((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2736 chacl((char *)fname
, aclent
, ((struct acl
*)aclent
)->acl_len
);
2737 #endif /* HAVE_AIX_ACL */
2738 #endif /* HAVE_SOLARIS_ACL */
2739 #endif /* HAVE_POSIX_ACL */
2743 mch_free_acl(aclent
)
2748 #ifdef HAVE_POSIX_ACL
2749 acl_free((acl_t
)aclent
);
2751 #ifdef HAVE_SOLARIS_ACL
2752 free(((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2757 #endif /* HAVE_AIX_ACL */
2758 #endif /* HAVE_SOLARIS_ACL */
2759 #endif /* HAVE_POSIX_ACL */
2764 * Set hidden flag for "name".
2771 /* can't hide a file */
2775 * return TRUE if "name" is a directory
2776 * return FALSE if "name" is not a directory
2777 * return FALSE for error
2785 if (*name
== NUL
) /* Some stat()s don't flag "" as an error. */
2787 if (stat((char *)name
, &statb
))
2789 #ifdef _POSIX_SOURCE
2790 return (S_ISDIR(statb
.st_mode
) ? TRUE
: FALSE
);
2792 return ((statb
.st_mode
& S_IFMT
) == S_IFDIR
? TRUE
: FALSE
);
2796 static int executable_file
__ARGS((char_u
*name
));
2799 * Return 1 if "name" is an executable file, 0 if not or it doesn't exist.
2802 executable_file(name
)
2807 if (stat((char *)name
, &st
))
2809 return S_ISREG(st
.st_mode
) && mch_access((char *)name
, X_OK
) == 0;
2813 * Return 1 if "name" can be found in $PATH and executed, 0 if not.
2814 * Return -1 if unknown.
2824 /* If it's an absolute or relative path don't need to use $PATH. */
2825 if (mch_isFullName(name
) || (name
[0] == '.' && (name
[1] == '/'
2826 || (name
[1] == '.' && name
[2] == '/'))))
2827 return executable_file(name
);
2829 p
= (char_u
*)getenv("PATH");
2830 if (p
== NULL
|| *p
== NUL
)
2832 buf
= alloc((unsigned)(STRLEN(name
) + STRLEN(p
) + 2));
2837 * Walk through all entries in $PATH to check if "name" exists there and
2838 * is an executable file.
2842 e
= (char_u
*)strchr((char *)p
, ':');
2845 if (e
- p
<= 1) /* empty entry means current dir */
2849 vim_strncpy(buf
, p
, e
- p
);
2853 retval
= executable_file(buf
);
2867 * Check what "name" is:
2868 * NODE_NORMAL: file or directory (or doesn't exist)
2869 * NODE_WRITABLE: writable device, socket, fifo, etc.
2870 * NODE_OTHER: non-writable things
2878 if (stat((char *)name
, &st
))
2880 if (S_ISREG(st
.st_mode
) || S_ISDIR(st
.st_mode
))
2883 if (S_ISBLK(st
.st_mode
)) /* block device isn't writable */
2886 /* Everything else is writable? */
2887 return NODE_WRITABLE
;
2893 #ifdef HAVE_CHECK_STACK_GROWTH
2896 check_stack_growth((char *)&i
);
2898 # ifdef HAVE_STACK_LIMIT
2905 * Setup an alternative stack for signals. Helps to catch signals when
2906 * running out of stack space.
2907 * Use of sigaltstack() is preferred, it's more portable.
2908 * Ignore any errors.
2910 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2911 signal_stack
= (char *)alloc(SIGSTKSZ
);
2912 init_signal_stack();
2916 #if defined(EXITFREE) || defined(PROTO)
2920 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
2921 if (clip_star
.owned
)
2922 clip_lose_selection(&clip_star
);
2923 if (clip_plus
.owned
)
2924 clip_lose_selection(&clip_plus
);
2926 # if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
2927 if (xterm_Shell
!= (Widget
)0)
2928 XtDestroyWidget(xterm_Shell
);
2929 # ifndef LESSTIF_VERSION
2930 /* Lesstif crashes here, lose some memory */
2931 if (xterm_dpy
!= NULL
)
2932 XtCloseDisplay(xterm_dpy
);
2933 if (app_context
!= (XtAppContext
)NULL
)
2935 XtDestroyApplicationContext(app_context
);
2937 x11_display
= NULL
; /* freed by XtDestroyApplicationContext() */
2942 /* Don't close the display for GTK 1, it is done in exit(). */
2943 # if defined(FEAT_X11) && (!defined(FEAT_GUI_GTK) || defined(HAVE_GTK2))
2944 if (x11_display
!= NULL
2945 # ifdef FEAT_XCLIPBOARD
2946 && x11_display
!= xterm_dpy
2949 XCloseDisplay(x11_display
);
2951 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2952 vim_free(signal_stack
);
2953 signal_stack
= NULL
;
2962 static void exit_scroll
__ARGS((void));
2965 * Output a newline when exiting.
2966 * Make sure the newline goes to the same stream as the text.
2973 if (newline_on_exit
|| msg_didout
)
2975 if (msg_use_printf())
2987 restore_cterm_colors(); /* get original colors back */
2988 msg_clr_eos_force(); /* clear the rest of the display */
2989 windgoto((int)Rows
- 1, 0); /* may have moved the cursor */
2999 #if defined(FEAT_X11) && defined(FEAT_CLIPBOARD)
3000 x11_export_final_selection();
3007 settmode(TMODE_COOK
);
3009 mch_restore_title(3); /* restore xterm title and icon name */
3012 * When t_ti is not empty but it doesn't cause swapping terminal
3013 * pages, need to output a newline when msg_didout is set. But when
3014 * t_ti does swap pages it should not go to the shell page. Do this
3015 * before stoptermcap().
3017 if (swapping_screen() && !newline_on_exit
)
3020 /* Stop termcap: May need to check for T_CRV response, which
3021 * requires RAW mode. */
3025 * A newline is only required after a message in the alternate screen.
3026 * This is set to TRUE by wait_return().
3028 if (!swapping_screen() || newline_on_exit
)
3031 /* Cursor may have been switched off without calling starttermcap()
3032 * when doing "vim -u vimrc" and vimrc contains ":q". */
3037 ml_close_all(TRUE
); /* remove all memfiles */
3044 #ifdef MACOS_CONVERT
3049 /* A core dump won't be created if the signal handler
3050 * doesn't return, so we can't call exit() */
3051 if (deadly_signal
!= 0)
3055 #ifdef FEAT_NETBEANS_INTG
3057 netbeans_send_disconnect();
3070 if (deadly_signal
!= 0)
3072 signal(deadly_signal
, SIG_DFL
);
3073 kill(getpid(), deadly_signal
); /* Die using the signal we caught */
3083 static int first
= TRUE
;
3085 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3086 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3088 * for "new" tty systems
3090 # ifdef HAVE_TERMIOS_H
3091 static struct termios told
;
3092 struct termios tnew
;
3094 static struct termio told
;
3101 # if defined(HAVE_TERMIOS_H)
3102 tcgetattr(read_cmd_fd
, &told
);
3104 ioctl(read_cmd_fd
, TCGETA
, &told
);
3109 if (tmode
== TMODE_RAW
)
3112 * ~ICRNL enables typing ^V^M
3114 tnew
.c_iflag
&= ~ICRNL
;
3115 tnew
.c_lflag
&= ~(ICANON
| ECHO
| ISIG
| ECHOE
3116 # if defined(IEXTEN) && !defined(__MINT__)
3117 | IEXTEN
/* IEXTEN enables typing ^V on SOLARIS */
3118 /* but it breaks function keys on MINT */
3121 # ifdef ONLCR /* don't map NL -> CR NL, we do it ourselves */
3122 tnew
.c_oflag
&= ~ONLCR
;
3124 tnew
.c_cc
[VMIN
] = 1; /* return after 1 char */
3125 tnew
.c_cc
[VTIME
] = 0; /* don't wait */
3127 else if (tmode
== TMODE_SLEEP
)
3128 tnew
.c_lflag
&= ~(ECHO
);
3130 # if defined(HAVE_TERMIOS_H)
3134 /* A signal may cause tcsetattr() to fail (e.g., SIGCONT). Retry a
3136 while (tcsetattr(read_cmd_fd
, TCSANOW
, &tnew
) == -1
3137 && errno
== EINTR
&& n
> 0)
3141 ioctl(read_cmd_fd
, TCSETA
, &tnew
);
3147 * for "old" tty systems
3150 # define TIOCSETN TIOCSETP /* for hpux 9.0 */
3152 static struct sgttyb ttybold
;
3153 struct sgttyb ttybnew
;
3158 ioctl(read_cmd_fd
, TIOCGETP
, &ttybold
);
3162 if (tmode
== TMODE_RAW
)
3164 ttybnew
.sg_flags
&= ~(CRMOD
| ECHO
);
3165 ttybnew
.sg_flags
|= RAW
;
3167 else if (tmode
== TMODE_SLEEP
)
3168 ttybnew
.sg_flags
&= ~(ECHO
);
3169 ioctl(read_cmd_fd
, TIOCSETN
, &ttybnew
);
3175 * Try to get the code for "t_kb" from the stty setting
3177 * Even if termcap claims a backspace key, the user's setting *should*
3178 * prevail. stty knows more about reality than termcap does, and if
3179 * somebody's usual erase key is DEL (which, for most BSD users, it will
3180 * be), they're going to get really annoyed if their erase key starts
3181 * doing forward deletes for no reason. (Eric Fischer)
3189 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3190 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3191 /* for "new" tty systems */
3192 # ifdef HAVE_TERMIOS_H
3193 struct termios keys
;
3198 # if defined(HAVE_TERMIOS_H)
3199 if (tcgetattr(read_cmd_fd
, &keys
) != -1)
3201 if (ioctl(read_cmd_fd
, TCGETA
, &keys
) != -1)
3204 buf
[0] = keys
.c_cc
[VERASE
];
3205 intr_char
= keys
.c_cc
[VINTR
];
3207 /* for "old" tty systems */
3210 if (ioctl(read_cmd_fd
, TIOCGETP
, &keys
) != -1)
3212 buf
[0] = keys
.sg_erase
;
3213 intr_char
= keys
.sg_kill
;
3216 add_termcode((char_u
*)"kb", buf
, FALSE
);
3219 * If <BS> and <DEL> are now the same, redefine <DEL>.
3221 p
= find_termcode((char_u
*)"kD");
3222 if (p
!= NULL
&& p
[0] == buf
[0] && p
[1] == buf
[1])
3226 } /* to keep cindent happy */
3232 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
3234 * Set mouse clicks on or off.
3240 static int ison
= FALSE
;
3241 int xterm_mouse_vers
;
3243 if (on
== ison
) /* return quickly if nothing to do */
3246 xterm_mouse_vers
= use_xterm_mouse();
3247 if (xterm_mouse_vers
> 0)
3249 if (on
) /* enable mouse events, use mouse tracking if available */
3250 out_str_nf((char_u
*)
3251 (xterm_mouse_vers
> 1
3252 ? IF_EB("\033[?1002h", ESC_STR
"[?1002h")
3253 : IF_EB("\033[?1000h", ESC_STR
"[?1000h")));
3254 else /* disable mouse events, could probably always send the same */
3255 out_str_nf((char_u
*)
3256 (xterm_mouse_vers
> 1
3257 ? IF_EB("\033[?1002l", ESC_STR
"[?1002l")
3258 : IF_EB("\033[?1000l", ESC_STR
"[?1000l")));
3262 # ifdef FEAT_MOUSE_DEC
3263 else if (ttym_flags
== TTYM_DEC
)
3265 if (on
) /* enable mouse events */
3266 out_str_nf((char_u
*)"\033[1;2'z\033[1;3'{");
3267 else /* disable mouse events */
3268 out_str_nf((char_u
*)"\033['z");
3273 # ifdef FEAT_MOUSE_GPM
3289 # ifdef FEAT_SYSMOUSE
3294 if (sysmouse_open() == OK
)
3305 # ifdef FEAT_MOUSE_JSB
3310 /* D - Enable Mouse up/down messages
3311 * L - Enable Left Button Reporting
3312 * M - Enable Middle Button Reporting
3313 * R - Enable Right Button Reporting
3314 * K - Enable SHIFT and CTRL key Reporting
3315 * + - Enable Advanced messaging of mouse moves and up/down messages
3317 * # - Numeric value of mouse pointer required
3318 * 0 = Multiview 2000 cursor, used as standard
3320 * 2 = Windows I Beam
3321 * 3 = Windows Hour Glass
3322 * 4 = Windows Cross Hair
3323 * 5 = Windows UP Arrow
3325 #ifdef JSBTERM_MOUSE_NONADVANCED /* Disables full feedback of pointer movements */
3326 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK1Q\033\\",
3327 ESC_STR
"[0~ZwLMRK1Q" ESC_STR
"\\"));
3329 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK+1Q\033\\",
3330 ESC_STR
"[0~ZwLMRK+1Q" ESC_STR
"\\"));
3336 out_str_nf((char_u
*)IF_EB("\033[0~ZwQ\033\\",
3337 ESC_STR
"[0~ZwQ" ESC_STR
"\\"));
3342 # ifdef FEAT_MOUSE_PTERM
3345 /* 1 = button press, 6 = release, 7 = drag, 1h...9l = right button */
3347 out_str_nf("\033[>1h\033[>6h\033[>7h\033[>1h\033[>9l");
3349 out_str_nf("\033[>1l\033[>6l\033[>7l\033[>1l\033[>9h");
3356 * Set the mouse termcode, depending on the 'term' and 'ttymouse' options.
3359 check_mouse_termcode()
3361 # ifdef FEAT_MOUSE_XTERM
3362 if (use_xterm_mouse()
3368 set_mouse_termcode(KS_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3369 ? IF_EB("\233M", CSI_STR
"M")
3370 : IF_EB("\033[M", ESC_STR
"[M")));
3371 if (*p_mouse
!= NUL
)
3373 /* force mouse off and maybe on to send possibly new mouse
3374 * activation sequence to the xterm, with(out) drag tracing. */
3375 mch_setmouse(FALSE
);
3380 del_mouse_termcode(KS_MOUSE
);
3383 # ifdef FEAT_MOUSE_GPM
3384 if (!use_xterm_mouse()
3389 set_mouse_termcode(KS_MOUSE
, (char_u
*)IF_EB("\033MG", ESC_STR
"MG"));
3392 # ifdef FEAT_SYSMOUSE
3393 if (!use_xterm_mouse()
3398 set_mouse_termcode(KS_MOUSE
, (char_u
*)IF_EB("\033MS", ESC_STR
"MS"));
3401 # ifdef FEAT_MOUSE_JSB
3402 /* conflicts with xterm mouse: "\033[" and "\033[M" ??? */
3403 if (!use_xterm_mouse()
3408 set_mouse_termcode(KS_JSBTERM_MOUSE
,
3409 (char_u
*)IF_EB("\033[0~zw", ESC_STR
"[0~zw"));
3411 del_mouse_termcode(KS_JSBTERM_MOUSE
);
3414 # ifdef FEAT_MOUSE_NET
3415 /* There is no conflict, but one may type "ESC }" from Insert mode. Don't
3416 * define it in the GUI or when using an xterm. */
3417 if (!use_xterm_mouse()
3422 set_mouse_termcode(KS_NETTERM_MOUSE
,
3423 (char_u
*)IF_EB("\033}", ESC_STR
"}"));
3425 del_mouse_termcode(KS_NETTERM_MOUSE
);
3428 # ifdef FEAT_MOUSE_DEC
3429 /* conflicts with xterm mouse: "\033[" and "\033[M" */
3430 if (!use_xterm_mouse()
3435 set_mouse_termcode(KS_DEC_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3436 ? IF_EB("\233", CSI_STR
) : IF_EB("\033[", ESC_STR
"[")));
3438 del_mouse_termcode(KS_DEC_MOUSE
);
3440 # ifdef FEAT_MOUSE_PTERM
3441 /* same as the dec mouse */
3442 if (!use_xterm_mouse()
3447 set_mouse_termcode(KS_PTERM_MOUSE
,
3448 (char_u
*) IF_EB("\033[", ESC_STR
"["));
3450 del_mouse_termcode(KS_PTERM_MOUSE
);
3456 * set screen mode, always fails.
3463 EMSG(_(e_screenmode
));
3470 * Try to get the current window size:
3471 * 1. with an ioctl(), most accurate method
3472 * 2. from the environment variables LINES and COLUMNS
3473 * 3. from the termcap
3474 * 4. keep using the old values
3475 * Return OK when size could be determined, FAIL otherwise.
3485 * For OS/2 use _scrsize().
3498 * 1. try using an ioctl. It is the most accurate method.
3500 * Try using TIOCGWINSZ first, some systems that have it also define
3501 * TIOCGSIZE but don't have a struct ttysize.
3508 /* When stdout is not a tty, use stdin for the ioctl(). */
3509 if (!isatty(fd
) && isatty(read_cmd_fd
))
3511 if (ioctl(fd
, TIOCGWINSZ
, &ws
) == 0)
3513 columns
= ws
.ws_col
;
3517 # else /* TIOCGWINSZ */
3523 /* When stdout is not a tty, use stdin for the ioctl(). */
3524 if (!isatty(fd
) && isatty(read_cmd_fd
))
3526 if (ioctl(fd
, TIOCGSIZE
, &ts
) == 0)
3528 columns
= ts
.ts_cols
;
3532 # endif /* TIOCGSIZE */
3533 # endif /* TIOCGWINSZ */
3536 * 2. get size from environment
3537 * When being POSIX compliant ('|' flag in 'cpoptions') this overrules
3538 * the ioctl() values!
3540 if (columns
== 0 || rows
== 0 || vim_strchr(p_cpo
, CPO_TSIZE
) != NULL
)
3542 if ((p
= (char_u
*)getenv("LINES")))
3543 rows
= atoi((char *)p
);
3544 if ((p
= (char_u
*)getenv("COLUMNS")))
3545 columns
= atoi((char *)p
);
3550 * 3. try reading "co" and "li" entries from termcap
3552 if (columns
== 0 || rows
== 0)
3553 getlinecol(&columns
, &rows
);
3557 * 4. If everything fails, use the old values
3559 if (columns
<= 0 || rows
<= 0)
3568 * Try to set the window size to Rows and Columns.
3576 * NOTE: if you get an error here that term_set_winsize() is
3577 * undefined, check the output of configure. It could probably not
3578 * find a ncurses, termcap or termlib library.
3580 term_set_winsize((int)Rows
, (int)Columns
);
3582 screen_start(); /* don't know where cursor is now */
3589 * Rows and/or Columns has changed.
3594 /* Nothing to do. */
3598 static void append_ga_line
__ARGS((garray_T
*gap
));
3601 * Append the text in "gap" below the cursor line and clear "gap".
3607 /* Remove trailing CR. */
3610 && ((char_u
*)gap
->ga_data
)[gap
->ga_len
- 1] == CAR
)
3612 ga_append(gap
, NUL
);
3613 ml_append(curwin
->w_cursor
.lnum
++, gap
->ga_data
, 0, FALSE
);
3619 mch_call_shell(cmd
, options
)
3621 int options
; /* SHELL_*, see vim.h */
3627 int tmode
= cur_tmode
;
3628 #ifdef USE_SYSTEM /* use system() to start the shell: simple but slow */
3631 char_u
*newcmd
; /* only needed for unix */
3634 * Set the preferred shell in the EMXSHELL environment variable (but
3635 * only if it is different from what is already in the environment).
3636 * Emx then takes care of whether to use "/c" or "-c" in an
3637 * intelligent way. Simply pass the whole thing to emx's system() call.
3638 * Emx also starts an interactive shell if system() is passed an empty
3643 if (((old
= (char_u
*)getenv("EMXSHELL")) == NULL
) || STRCMP(old
, p_sh
))
3645 /* should check HAVE_SETENV, but I know we don't have it. */
3646 p
= alloc(10 + strlen(p_sh
));
3649 sprintf((char *)p
, "EMXSHELL=%s", p_sh
);
3650 putenv((char *)p
); /* don't free the pointer! */
3657 if (options
& SHELL_COOKED
)
3658 settmode(TMODE_COOK
); /* set to normal mode */
3662 x
= system(""); /* this starts an interactive shell in emx */
3664 x
= system((char *)cmd
);
3665 /* system() returns -1 when error occurs in starting shell */
3666 if (x
== -1 && !emsg_silent
)
3668 MSG_PUTS(_("\nCannot execute shell "));
3672 # else /* not __EMX__ */
3674 x
= system((char *)p_sh
);
3678 if (ofn
= strchr((char *)cmd
, '>'))
3680 if (ifn
= strchr((char *)cmd
, '<'))
3685 p
= strchr(ifn
,' '); /* chop off any trailing spaces */
3690 x
= vms_sys((char *)cmd
, ofn
, ifn
);
3692 x
= system((char *)cmd
);
3694 newcmd
= lalloc(STRLEN(p_sh
)
3695 + (extra_shell_arg
== NULL
? 0 : STRLEN(extra_shell_arg
))
3696 + STRLEN(p_shcf
) + STRLEN(cmd
) + 4, TRUE
);
3701 sprintf((char *)newcmd
, "%s %s %s %s", p_sh
,
3702 extra_shell_arg
== NULL
? "" : (char *)extra_shell_arg
,
3705 x
= system((char *)newcmd
);
3711 x
= vms_sys_status(x
);
3716 MSG_PUTS(_("\nCannot execute shell sh\n"));
3717 # endif /* __EMX__ */
3718 else if (x
&& !(options
& SHELL_SILENT
))
3720 MSG_PUTS(_("\nshell returned "));
3721 msg_outnum((long)x
);
3725 if (tmode
== TMODE_RAW
)
3726 settmode(TMODE_RAW
); /* set to raw mode */
3732 #else /* USE_SYSTEM */ /* don't use system(), use fork()/exec() */
3734 # define EXEC_FAILED 122 /* Exit code when shell didn't execute. Don't use
3735 127, some shells use that already */
3737 char_u
*newcmd
= NULL
;
3741 # ifdef HAVE_UNION_WAIT
3752 int pty_master_fd
= -1; /* for pty's */
3754 int pty_slave_fd
= -1;
3757 int fd_toshell
[2]; /* for pipes */
3758 int fd_fromshell
[2];
3759 int pipe_error
= FALSE
;
3763 static char envbuf_Rows
[20];
3764 static char envbuf_Columns
[20];
3766 int did_settmode
= FALSE
; /* settmode(TMODE_RAW) called */
3769 if (options
& SHELL_COOKED
)
3770 settmode(TMODE_COOK
); /* set to normal mode */
3772 newcmd
= vim_strsave(p_sh
);
3773 if (newcmd
== NULL
) /* out of memory */
3777 * Do this loop twice:
3778 * 1: find number of arguments
3779 * 2: separate them and build argv[]
3781 for (i
= 0; i
< 2; ++i
)
3789 argv
[argc
] = (char *)p
;
3791 while (*p
&& (inquote
|| (*p
!= ' ' && *p
!= TAB
)))
3805 argv
= (char **)alloc((unsigned)((argc
+ 4) * sizeof(char *)));
3806 if (argv
== NULL
) /* out of memory */
3812 if (extra_shell_arg
!= NULL
)
3813 argv
[argc
++] = (char *)extra_shell_arg
;
3814 argv
[argc
++] = (char *)p_shcf
;
3815 argv
[argc
++] = (char *)cmd
;
3820 * For the GUI, when writing the output into the buffer and when reading
3821 * input from the buffer: Try using a pseudo-tty to get the stdin/stdout
3822 * of the executed command into the Vim window. Or use a pipe.
3824 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3826 || (gui
.in_use
&& show_shell_mess
)
3832 * Try to open a master pty.
3833 * If this works, open the slave pty.
3834 * If the slave can't be opened, close the master pty.
3836 if (p_guipty
&& !(options
& (SHELL_READ
|SHELL_WRITE
)))
3838 pty_master_fd
= OpenPTY(&tty_name
); /* open pty */
3839 if (pty_master_fd
>= 0 && ((pty_slave_fd
=
3840 open(tty_name
, O_RDWR
| O_EXTRA
, 0)) < 0))
3842 close(pty_master_fd
);
3847 * If not opening a pty or it didn't work, try using pipes.
3849 if (pty_master_fd
< 0)
3852 pipe_error
= (pipe(fd_toshell
) < 0);
3853 if (!pipe_error
) /* pipe create OK */
3855 pipe_error
= (pipe(fd_fromshell
) < 0);
3856 if (pipe_error
) /* pipe create failed */
3858 close(fd_toshell
[0]);
3859 close(fd_toshell
[1]);
3864 MSG_PUTS(_("\nCannot create pipes\n"));
3870 if (!pipe_error
) /* pty or pipe opened or not used */
3873 beos_cleanup_read_thread();
3876 if ((pid
= fork()) == -1) /* maybe we should use vfork() */
3878 MSG_PUTS(_("\nCannot fork\n"));
3879 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3881 || (gui
.in_use
&& show_shell_mess
)
3886 if (pty_master_fd
>= 0) /* close the pseudo tty */
3888 close(pty_master_fd
);
3889 close(pty_slave_fd
);
3891 else /* close the pipes */
3894 close(fd_toshell
[0]);
3895 close(fd_toshell
[1]);
3896 close(fd_fromshell
[0]);
3897 close(fd_fromshell
[1]);
3901 else if (pid
== 0) /* child */
3903 reset_signals(); /* handle signals normally */
3905 if (!show_shell_mess
|| (options
& SHELL_EXPAND
))
3910 * Don't want to show any message from the shell. Can't just
3911 * close stdout and stderr though, because some systems will
3912 * break if you try to write to them after that, so we must
3913 * use dup() to replace them with something else -- webb
3914 * Connect stdin to /dev/null too, so ":n `cat`" doesn't hang,
3915 * waiting for input.
3917 fd
= open("/dev/null", O_RDWR
| O_EXTRA
, 0);
3923 * If any of these open()'s and dup()'s fail, we just continue
3924 * anyway. It's not fatal, and on most systems it will make
3925 * no difference at all. On a few it will cause the execvp()
3926 * to exit with a non-zero status even when the completion
3927 * could be done, which is nothing too serious. If the open()
3928 * or dup() failed we'd just do the same thing ourselves
3933 ignored
= dup(fd
); /* To replace stdin (fd 0) */
3934 ignored
= dup(fd
); /* To replace stdout (fd 1) */
3935 ignored
= dup(fd
); /* To replace stderr (fd 2) */
3937 /* Don't need this now that we've duplicated it */
3941 else if ((options
& (SHELL_READ
|SHELL_WRITE
))
3949 /* Create our own process group, so that the child and all its
3950 * children can be kill()ed. Don't do this when using pipes,
3951 * because stdin is not a tty, we would lose /dev/tty. */
3955 # if defined(SIGHUP)
3956 /* When doing "!xterm&" and 'shell' is bash: the shell
3957 * will exit and send SIGHUP to all processes in its
3958 * group, killing the just started process. Ignore SIGHUP
3959 * to avoid that. (suggested by Simon Schubert)
3961 signal(SIGHUP
, SIG_IGN
);
3966 if (pty_slave_fd
>= 0)
3968 /* push stream discipline modules */
3969 if (options
& SHELL_COOKED
)
3970 SetupSlavePTY(pty_slave_fd
);
3972 /* Try to become controlling tty (probably doesn't work,
3973 * unless run by root) */
3974 ioctl(pty_slave_fd
, TIOCSCTTY
, (char *)NULL
);
3978 /* Simulate to have a dumb terminal (for now) */
3980 setenv("TERM", "dumb", 1);
3981 sprintf((char *)envbuf
, "%ld", Rows
);
3982 setenv("ROWS", (char *)envbuf
, 1);
3983 sprintf((char *)envbuf
, "%ld", Rows
);
3984 setenv("LINES", (char *)envbuf
, 1);
3985 sprintf((char *)envbuf
, "%ld", Columns
);
3986 setenv("COLUMNS", (char *)envbuf
, 1);
3989 * Putenv does not copy the string, it has to remain valid.
3990 * Use a static array to avoid losing allocated memory.
3992 putenv("TERM=dumb");
3993 sprintf(envbuf_Rows
, "ROWS=%ld", Rows
);
3994 putenv(envbuf_Rows
);
3995 sprintf(envbuf_Rows
, "LINES=%ld", Rows
);
3996 putenv(envbuf_Rows
);
3997 sprintf(envbuf_Columns
, "COLUMNS=%ld", Columns
);
3998 putenv(envbuf_Columns
);
4002 * stderr is only redirected when using the GUI, so that a
4003 * program like gpg can still access the terminal to get a
4004 * passphrase using stderr.
4007 if (pty_master_fd
>= 0)
4009 close(pty_master_fd
); /* close master side of pty */
4011 /* set up stdin/stdout/stderr for the child */
4013 ignored
= dup(pty_slave_fd
);
4015 ignored
= dup(pty_slave_fd
);
4019 ignored
= dup(pty_slave_fd
);
4022 close(pty_slave_fd
); /* has been dupped, close it now */
4027 /* set up stdin for the child */
4028 close(fd_toshell
[1]);
4030 ignored
= dup(fd_toshell
[0]);
4031 close(fd_toshell
[0]);
4033 /* set up stdout for the child */
4034 close(fd_fromshell
[0]);
4036 ignored
= dup(fd_fromshell
[1]);
4037 close(fd_fromshell
[1]);
4042 /* set up stderr for the child */
4051 * There is no type cast for the argv, because the type may be
4052 * different on different machines. This may cause a warning
4053 * message with strict compilers, don't worry about it.
4054 * Call _exit() instead of exit() to avoid closing the connection
4055 * to the X server (esp. with GTK, which uses atexit()).
4057 execvp(argv
[0], argv
);
4058 _exit(EXEC_FAILED
); /* exec failed, return failure code */
4063 * While child is running, ignore terminating signals.
4064 * Do catch CTRL-C, so that "got_int" is set.
4066 catch_signals(SIG_IGN
, SIG_ERR
);
4070 * For the GUI we redirect stdin, stdout and stderr to our window.
4071 * This is also used to pipe stdin/stdout to/from the external
4074 if ((options
& (SHELL_READ
|SHELL_WRITE
))
4076 || (gui
.in_use
&& show_shell_mess
)
4080 # define BUFLEN 100 /* length for buffer, pseudo tty limit is 128 */
4081 char_u buffer
[BUFLEN
+ 1];
4083 int buffer_off
= 0; /* valid bytes in buffer[] */
4085 char_u ta_buf
[BUFLEN
+ 1]; /* TypeAHead */
4086 int ta_len
= 0; /* valid bytes in ta_buf[] */
4095 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4096 struct timeval start_tv
;
4100 if (pty_master_fd
>= 0)
4102 close(pty_slave_fd
); /* close slave side of pty */
4103 fromshell_fd
= pty_master_fd
;
4104 toshell_fd
= dup(pty_master_fd
);
4109 close(fd_toshell
[0]);
4110 close(fd_fromshell
[1]);
4111 toshell_fd
= fd_toshell
[1];
4112 fromshell_fd
= fd_fromshell
[0];
4116 * Write to the child if there are typed characters.
4117 * Read from the child if there are characters available.
4118 * Repeat the reading a few times if more characters are
4119 * available. Need to check for typed keys now and then, but
4120 * not too often (delays when no chars are available).
4121 * This loop is quit if no characters can be read from the pty
4122 * (WaitForChar detected special condition), or there are no
4123 * characters available and the child has exited.
4124 * Only check if the child has exited when there is no more
4125 * output. The child may exit before all the output has
4128 * Currently this busy loops!
4129 * This can probably dead-lock when the write blocks!
4131 p_more_save
= p_more
;
4134 State
= EXTERNCMD
; /* don't redraw at window resize */
4136 if ((options
& SHELL_WRITE
) && toshell_fd
>= 0)
4138 /* Fork a process that will write the lines to the
4139 * external program. */
4140 if ((wpid
= fork()) == -1)
4142 MSG_PUTS(_("\nCannot fork\n"));
4146 linenr_T lnum
= curbuf
->b_op_start
.lnum
;
4148 char_u
*lp
= ml_get(lnum
);
4153 close(fromshell_fd
);
4156 l
= STRLEN(lp
+ written
);
4159 else if (lp
[written
] == NL
)
4160 /* NL -> NUL translation */
4161 len
= write(toshell_fd
, "", (size_t)1);
4164 s
= vim_strchr(lp
+ written
, NL
);
4165 len
= write(toshell_fd
, (char *)lp
+ written
,
4166 s
== NULL
? l
: s
- (lp
+ written
));
4170 /* Finished a line, add a NL, unless this line
4171 * should not have one. */
4172 if (lnum
!= curbuf
->b_op_end
.lnum
4174 || (lnum
!= write_no_eol_lnum
4176 curbuf
->b_ml
.ml_line_count
4177 || curbuf
->b_p_eol
)))
4178 ignored
= write(toshell_fd
, "\n",
4181 if (lnum
> curbuf
->b_op_end
.lnum
)
4183 /* finished all the lines, close pipe */
4203 if (options
& SHELL_READ
)
4204 ga_init2(&ga
, 1, BUFLEN
);
4207 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4208 gettimeofday(&start_tv
, NULL
);
4213 * Check if keys have been typed, write them to the child
4215 * Don't do this if we are expanding wild cards (would eat
4217 * Don't do this when filtering and terminal is in cooked
4218 * mode, the shell command will handle the I/O. Avoids
4219 * that a typed password is echoed for ssh or gpg command.
4220 * Don't get characters when the child has already
4221 * finished (wait_pid == 0).
4222 * Don't read characters unless we didn't get output for a
4223 * while (noread_cnt > 4), avoids that ":r !ls" eats
4227 if (!(options
& SHELL_EXPAND
)
4229 (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
))
4230 != (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
)
4236 && (ta_len
> 0 || noread_cnt
> 4))
4240 /* Get extra characters when we don't have any.
4241 * Reset the counter and timer. */
4243 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4244 gettimeofday(&start_tv
, NULL
);
4246 len
= ui_inchar(ta_buf
, BUFLEN
, 10L, 0);
4248 if (ta_len
> 0 || len
> 0)
4252 * Check for CTRL-C: send interrupt signal to child.
4253 * Check for CTRL-D: EOF, close pipe to child.
4255 if (len
== 1 && (pty_master_fd
< 0 || cmd
!= NULL
))
4259 * Send SIGINT to the child's group or all
4260 * processes in our group.
4262 if (ta_buf
[ta_len
] == Ctrl_C
4263 || ta_buf
[ta_len
] == intr_char
)
4274 if (pty_master_fd
< 0 && toshell_fd
>= 0
4275 && ta_buf
[ta_len
] == Ctrl_D
)
4282 /* replace K_BS by <BS> and K_DEL by <DEL> */
4283 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4285 if (ta_buf
[i
] == CSI
&& len
- i
> 2)
4287 c
= TERMCAP2KEY(ta_buf
[i
+ 1], ta_buf
[i
+ 2]);
4288 if (c
== K_DEL
|| c
== K_KDEL
|| c
== K_BS
)
4290 mch_memmove(ta_buf
+ i
+ 1, ta_buf
+ i
+ 3,
4291 (size_t)(len
- i
- 2));
4292 if (c
== K_DEL
|| c
== K_KDEL
)
4299 else if (ta_buf
[i
] == '\r')
4303 i
+= (*mb_ptr2len
)(ta_buf
+ i
) - 1;
4308 * For pipes: echo the typed characters.
4309 * For a pty this does not seem to work.
4311 if (pty_master_fd
< 0)
4313 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4315 if (ta_buf
[i
] == '\n' || ta_buf
[i
] == '\b')
4316 msg_putchar(ta_buf
[i
]);
4320 int l
= (*mb_ptr2len
)(ta_buf
+ i
);
4322 msg_outtrans_len(ta_buf
+ i
, l
);
4327 msg_outtrans_len(ta_buf
+ i
, 1);
4329 windgoto(msg_row
, msg_col
);
4336 * Write the characters to the child, unless EOF has
4337 * been typed for pipes. Write one character at a
4338 * time, to avoid losing too much typeahead.
4339 * When writing buffer lines, drop the typed
4340 * characters (only check for CTRL-C).
4342 if (options
& SHELL_WRITE
)
4344 else if (toshell_fd
>= 0)
4346 len
= write(toshell_fd
, (char *)ta_buf
, (size_t)1);
4350 mch_memmove(ta_buf
, ta_buf
+ len
, ta_len
);
4358 /* CTRL-C sends a signal to the child, we ignore it
4371 * Check if the child has any characters to be printed.
4372 * Read them and write them to our window. Repeat this as
4373 * long as there is something to do, avoid the 10ms wait
4374 * for mch_inchar(), or sending typeahead characters to
4375 * the external process.
4376 * TODO: This should handle escape sequences, compatible
4377 * to some terminal (vt52?).
4380 while (RealWaitForChar(fromshell_fd
, 10L, NULL
))
4382 len
= read(fromshell_fd
, (char *)buffer
4384 + buffer_off
, (size_t)(BUFLEN
- buffer_off
)
4389 if (len
<= 0) /* end of file or error */
4393 if (options
& SHELL_READ
)
4395 /* Do NUL -> NL translation, append NL separated
4396 * lines to the current buffer. */
4397 for (i
= 0; i
< len
; ++i
)
4399 if (buffer
[i
] == NL
)
4400 append_ga_line(&ga
);
4401 else if (buffer
[i
] == NUL
)
4404 ga_append(&ga
, buffer
[i
]);
4415 /* Check if the last character in buffer[] is
4416 * incomplete, keep these bytes for the next
4418 for (p
= buffer
; p
< buffer
+ len
; p
+= l
)
4422 l
= 1; /* NUL byte? */
4423 else if (MB_BYTE2LEN(*p
) != l
)
4426 if (p
== buffer
) /* no complete character */
4428 /* avoid getting stuck at an illegal byte */
4440 if (p
< buffer
+ len
)
4443 buffer_off
= (buffer
+ len
) - p
;
4444 mch_memmove(buffer
, p
, buffer_off
);
4449 # endif /* FEAT_MBYTE */
4456 windgoto(msg_row
, msg_col
);
4462 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4464 struct timeval now_tv
;
4467 /* Avoid that we keep looping here without
4468 * checking for a CTRL-C for a long time. Don't
4469 * break out too often to avoid losing typeahead. */
4470 gettimeofday(&now_tv
, NULL
);
4471 msec
= (now_tv
.tv_sec
- start_tv
.tv_sec
) * 1000L
4472 + (now_tv
.tv_usec
- start_tv
.tv_usec
) / 1000L;
4482 /* If we already detected the child has finished break the
4484 if (wait_pid
== pid
)
4488 * Check if the child still exists, before checking for
4489 * typed characters (otherwise we would lose typeahead).
4492 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*) 0);
4494 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4496 if ((wait_pid
== (pid_t
)-1 && errno
== ECHILD
)
4497 || (wait_pid
== pid
&& WIFEXITED(status
)))
4499 /* Don't break the loop yet, try reading more
4500 * characters from "fromshell_fd" first. When using
4501 * pipes there might still be something to read and
4502 * then we'll break the loop at the "break" above. */
4509 p_more
= p_more_save
;
4510 if (options
& SHELL_READ
)
4514 append_ga_line(&ga
);
4515 /* remember that the NL was missing */
4516 write_no_eol_lnum
= curwin
->w_cursor
.lnum
;
4519 write_no_eol_lnum
= 0;
4524 * Give all typeahead that wasn't used back to ui_inchar().
4527 ui_inchar_undo(ta_buf
, ta_len
);
4529 if (toshell_fd
>= 0)
4531 close(fromshell_fd
);
4535 * Wait until our child has exited.
4536 * Ignore wait() returning pids of other children and returning
4537 * because of some signal like SIGWINCH.
4538 * Don't wait if wait_pid was already set above, indicating the
4539 * child already exited.
4541 while (wait_pid
!= pid
)
4543 # ifdef _THREAD_SAFE
4544 /* Ugly hack: when compiled with Python threads are probably
4545 * used, in which case wait() sometimes hangs for no obvious
4546 * reason. Use waitpid() instead and loop (like the GUI). */
4548 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*)0);
4550 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4554 /* Wait for 1/100 sec before trying again. */
4555 mch_delay(10L, TRUE
);
4559 wait_pid
= wait(&status
);
4569 /* Make sure the child that writes to the external program is
4572 kill(wpid
, SIGKILL
);
4575 * Set to raw mode right now, otherwise a CTRL-C after
4576 * catch_signals() will kill Vim.
4578 if (tmode
== TMODE_RAW
)
4579 settmode(TMODE_RAW
);
4580 did_settmode
= TRUE
;
4583 if (WIFEXITED(status
))
4585 /* LINTED avoid "bitwise operation on signed value" */
4586 retval
= WEXITSTATUS(status
);
4587 if (retval
&& !emsg_silent
)
4589 if (retval
== EXEC_FAILED
)
4591 MSG_PUTS(_("\nCannot execute shell "));
4595 else if (!(options
& SHELL_SILENT
))
4597 MSG_PUTS(_("\nshell returned "));
4598 msg_outnum((long)retval
);
4604 MSG_PUTS(_("\nCommand terminated\n"));
4611 if (tmode
== TMODE_RAW
)
4612 settmode(TMODE_RAW
); /* set to raw mode */
4620 #endif /* USE_SYSTEM */
4624 * Check for CTRL-C typed by reading all available characters.
4625 * In cooked mode we should get SIGINT, no need to check.
4630 if (curr_tmode
== TMODE_RAW
&& RealWaitForChar(read_cmd_fd
, 0L, NULL
))
4631 fill_input_buf(FALSE
);
4635 * Wait "msec" msec until a character is available from the keyboard or from
4636 * inbuf[]. msec == -1 will block forever.
4637 * When a GUI is being used, this will never get called -- webb
4643 #ifdef FEAT_MOUSE_GPM
4644 int gpm_process_wanted
;
4646 #ifdef FEAT_XCLIPBOARD
4651 if (input_available()) /* something in inbuf[] */
4654 #if defined(FEAT_MOUSE_DEC)
4655 /* May need to query the mouse position. */
4658 WantQueryMouse
= FALSE
;
4659 mch_write((char_u
*)IF_EB("\033[1'|", ESC_STR
"[1'|"), 5);
4664 * For FEAT_MOUSE_GPM and FEAT_XCLIPBOARD we loop here to process mouse
4665 * events. This is a bit complicated, because they might both be defined.
4667 #if defined(FEAT_MOUSE_GPM) || defined(FEAT_XCLIPBOARD)
4668 # ifdef FEAT_XCLIPBOARD
4670 if (do_xterm_trace())
4675 # ifdef FEAT_XCLIPBOARD
4678 msec
= XT_TRACE_DELAY
;
4679 if (rest
>= 0 && rest
< XT_TRACE_DELAY
)
4685 # ifdef FEAT_MOUSE_GPM
4686 gpm_process_wanted
= 0;
4687 avail
= RealWaitForChar(read_cmd_fd
, msec
, &gpm_process_wanted
);
4689 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4693 if (input_available())
4695 # ifdef FEAT_XCLIPBOARD
4696 if (rest
== 0 || !do_xterm_trace())
4702 # ifdef FEAT_MOUSE_GPM
4703 || (gpm_process_wanted
&& mch_gpm_process() == 0)
4705 # ifdef FEAT_XCLIPBOARD
4706 || (!avail
&& rest
!= 0)
4711 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4717 * Wait "msec" msec until a character is available from file descriptor "fd".
4718 * Time == -1 will block forever.
4719 * When a GUI is being used, this will not be used for input -- webb
4720 * Returns also, when a request from Sniff is waiting -- toni.
4721 * Or when a Linux GPM mouse event is waiting.
4724 #if defined(__BEOS__)
4729 RealWaitForChar(fd
, msec
, check_for_gpm
)
4735 #if defined(FEAT_XCLIPBOARD) || defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4736 static int busy
= FALSE
;
4738 /* May retry getting characters after an event was handled. */
4741 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4742 /* Remember at what time we started, so that we know how much longer we
4743 * should wait after being interrupted. */
4744 # define USE_START_TV
4745 struct timeval start_tv
;
4748 # ifdef FEAT_XCLIPBOARD
4749 xterm_Shell
!= (Widget
)0
4750 # if defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4756 # ifdef FEAT_MZSCHEME
4760 # ifdef FEAT_MZSCHEME
4761 (mzthreads_allowed() && p_mzq
> 0)
4764 gettimeofday(&start_tv
, NULL
);
4767 /* Handle being called recursively. This may happen for the session
4768 * manager stuff, it may save the file, which does a breakcheck. */
4778 int finished
= TRUE
; /* default is to 'loop' just once */
4779 # ifdef FEAT_MZSCHEME
4780 int mzquantum_used
= FALSE
;
4784 struct pollfd fds
[5];
4786 # ifdef FEAT_XCLIPBOARD
4789 # ifdef FEAT_MOUSE_GPM
4795 int towait
= (int)msec
;
4797 # ifdef FEAT_MZSCHEME
4798 mzvim_check_threads();
4799 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4801 towait
= (int)p_mzq
; /* don't wait longer than 'mzquantum' */
4802 mzquantum_used
= TRUE
;
4806 fds
[0].events
= POLLIN
;
4810 # define SNIFF_IDX 1
4811 if (want_sniff_request
)
4813 fds
[SNIFF_IDX
].fd
= fd_from_sniff
;
4814 fds
[SNIFF_IDX
].events
= POLLIN
;
4818 # ifdef FEAT_XCLIPBOARD
4819 if (xterm_Shell
!= (Widget
)0)
4822 fds
[nfd
].fd
= ConnectionNumber(xterm_dpy
);
4823 fds
[nfd
].events
= POLLIN
;
4827 # ifdef FEAT_MOUSE_GPM
4828 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4831 fds
[nfd
].fd
= gpm_fd
;
4832 fds
[nfd
].events
= POLLIN
;
4837 if (xsmp_icefd
!= -1)
4840 fds
[nfd
].fd
= xsmp_icefd
;
4841 fds
[nfd
].events
= POLLIN
;
4846 ret
= poll(fds
, nfd
, towait
);
4847 # ifdef FEAT_MZSCHEME
4848 if (ret
== 0 && mzquantum_used
)
4849 /* MzThreads scheduling is required and timeout occurred */
4855 sniff_disconnect(1);
4856 else if (want_sniff_request
)
4858 if (fds
[SNIFF_IDX
].revents
& POLLHUP
)
4859 sniff_disconnect(1);
4860 if (fds
[SNIFF_IDX
].revents
& POLLIN
)
4861 sniff_request_waiting
= 1;
4864 # ifdef FEAT_XCLIPBOARD
4865 if (xterm_Shell
!= (Widget
)0 && (fds
[xterm_idx
].revents
& POLLIN
))
4867 xterm_update(); /* Maybe we should hand out clipboard */
4868 if (--ret
== 0 && !input_available())
4873 # ifdef FEAT_MOUSE_GPM
4874 if (gpm_idx
>= 0 && (fds
[gpm_idx
].revents
& POLLIN
))
4880 if (xsmp_idx
>= 0 && (fds
[xsmp_idx
].revents
& (POLLIN
| POLLHUP
)))
4882 if (fds
[xsmp_idx
].revents
& POLLIN
)
4885 xsmp_handle_requests();
4888 else if (fds
[xsmp_idx
].revents
& POLLHUP
)
4891 verb_msg((char_u
*)_("XSMP lost ICE connection"));
4895 finished
= FALSE
; /* Try again */
4900 #else /* HAVE_SELECT */
4903 struct timeval
*tvp
;
4908 # ifdef FEAT_MZSCHEME
4909 mzvim_check_threads();
4910 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4912 towait
= p_mzq
; /* don't wait longer than 'mzquantum' */
4913 mzquantum_used
= TRUE
;
4917 /* don't check for incoming chars if not in raw mode, because select()
4918 * always returns TRUE then (in some version of emx.dll) */
4919 if (curr_tmode
!= TMODE_RAW
)
4925 tv
.tv_sec
= towait
/ 1000;
4926 tv
.tv_usec
= (towait
% 1000) * (1000000/1000);
4933 * Select on ready for reading and exceptional condition (end of file).
4935 FD_ZERO(&rfds
); /* calls bzero() on a sun */
4938 # if !defined(__QNX__) && !defined(__CYGWIN32__)
4939 /* For QNX select() always returns 1 if this is set. Why? */
4945 if (want_sniff_request
)
4947 FD_SET(fd_from_sniff
, &rfds
);
4948 FD_SET(fd_from_sniff
, &efds
);
4949 if (maxfd
< fd_from_sniff
)
4950 maxfd
= fd_from_sniff
;
4953 # ifdef FEAT_XCLIPBOARD
4954 if (xterm_Shell
!= (Widget
)0)
4956 FD_SET(ConnectionNumber(xterm_dpy
), &rfds
);
4957 if (maxfd
< ConnectionNumber(xterm_dpy
))
4958 maxfd
= ConnectionNumber(xterm_dpy
);
4961 # ifdef FEAT_MOUSE_GPM
4962 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4964 FD_SET(gpm_fd
, &rfds
);
4965 FD_SET(gpm_fd
, &efds
);
4971 if (xsmp_icefd
!= -1)
4973 FD_SET(xsmp_icefd
, &rfds
);
4974 FD_SET(xsmp_icefd
, &efds
);
4975 if (maxfd
< xsmp_icefd
)
4981 /* Old VMS as v6.2 and older have broken select(). It waits more than
4982 * required. Should not be used */
4985 ret
= select(maxfd
+ 1, &rfds
, NULL
, &efds
, tvp
);
4988 if (ret
== -1 && errno
== ENOTSUP
)
4995 # ifdef FEAT_MZSCHEME
4996 if (ret
== 0 && mzquantum_used
)
4997 /* loop if MzThreads must be scheduled and timeout occurred */
5003 sniff_disconnect(1);
5004 else if (ret
> 0 && want_sniff_request
)
5006 if (FD_ISSET(fd_from_sniff
, &efds
))
5007 sniff_disconnect(1);
5008 if (FD_ISSET(fd_from_sniff
, &rfds
))
5009 sniff_request_waiting
= 1;
5012 # ifdef FEAT_XCLIPBOARD
5013 if (ret
> 0 && xterm_Shell
!= (Widget
)0
5014 && FD_ISSET(ConnectionNumber(xterm_dpy
), &rfds
))
5016 xterm_update(); /* Maybe we should hand out clipboard */
5017 /* continue looping when we only got the X event and the input
5018 * buffer is empty */
5019 if (--ret
== 0 && !input_available())
5026 # ifdef FEAT_MOUSE_GPM
5027 if (ret
> 0 && gpm_flag
&& check_for_gpm
!= NULL
&& gpm_fd
>= 0)
5029 if (FD_ISSET(gpm_fd
, &efds
))
5031 else if (FD_ISSET(gpm_fd
, &rfds
))
5036 if (ret
> 0 && xsmp_icefd
!= -1)
5038 if (FD_ISSET(xsmp_icefd
, &efds
))
5041 verb_msg((char_u
*)_("XSMP lost ICE connection"));
5044 finished
= FALSE
; /* keep going if event was only one */
5046 else if (FD_ISSET(xsmp_icefd
, &rfds
))
5049 xsmp_handle_requests();
5052 finished
= FALSE
; /* keep going if event was only one */
5057 #endif /* HAVE_SELECT */
5060 if (finished
|| msec
== 0)
5063 /* We're going to loop around again, find out for how long */
5066 # ifdef USE_START_TV
5069 /* Compute remaining wait time. */
5070 gettimeofday(&mtv
, NULL
);
5071 msec
-= (mtv
.tv_sec
- start_tv
.tv_sec
) * 1000L
5072 + (mtv
.tv_usec
- start_tv
.tv_usec
) / 1000L;
5074 /* Guess we got interrupted halfway. */
5078 break; /* waited long enough */
5088 #ifndef NO_EXPANDPATH
5090 * Expand a path into all matching files and/or directories. Handles "*",
5091 * "?", "[a-z]", "**", etc.
5092 * "path" has backslashes before chars that are not to be expanded.
5093 * Returns the number of matches found.
5096 mch_expandpath(gap
, path
, flags
)
5099 int flags
; /* EW_* flags */
5101 return unix_expandpath(gap
, path
, 0, flags
, FALSE
);
5106 * mch_expand_wildcards() - this code does wild-card pattern matching using
5109 * return OK for success, FAIL for error (you may lose some memory) and put
5110 * an error message in *file.
5112 * num_pat is number of input patterns
5113 * pat is array of pointers to input patterns
5114 * num_file is pointer to number of matched file names
5115 * file is pointer to array of pointers to matched file names
5125 #define SHELL_SPECIAL (char_u *)"\t \"&'$;<>()\\|"
5129 mch_expand_wildcards(num_pat
, pat
, num_file
, file
, flags
)
5134 int flags
; /* EW_* flags */
5142 * This is the OS/2 implementation.
5144 # define EXPL_ALLOC_INC 16
5145 char_u
**expl_files
;
5146 size_t files_alloced
, files_free
;
5150 *num_file
= 0; /* default: no files found */
5151 files_alloced
= EXPL_ALLOC_INC
; /* how much space is allocated */
5152 files_free
= EXPL_ALLOC_INC
; /* how much space is not used */
5153 *file
= (char_u
**)alloc(sizeof(char_u
**) * files_alloced
);
5157 for (; num_pat
> 0; num_pat
--, pat
++)
5160 if (vim_strchr(*pat
, '$') || vim_strchr(*pat
, '~'))
5161 /* expand environment var or home dir */
5162 buf
= expand_env_save(*pat
);
5164 buf
= vim_strsave(*pat
);
5166 has_wildcard
= mch_has_exp_wildcard(buf
); /* (still) wildcards? */
5167 if (has_wildcard
) /* yes, so expand them */
5168 expl_files
= (char_u
**)_fnexplode(buf
);
5171 * return value of buf if no wildcards left,
5172 * OR if no match AND EW_NOTFOUND is set.
5174 if ((!has_wildcard
&& ((flags
& EW_NOTFOUND
) || mch_getperm(buf
) >= 0))
5175 || (expl_files
== NULL
&& (flags
& EW_NOTFOUND
)))
5176 { /* simply save the current contents of *buf */
5177 expl_files
= (char_u
**)alloc(sizeof(char_u
**) * 2);
5178 if (expl_files
!= NULL
)
5180 expl_files
[0] = vim_strsave(buf
);
5181 expl_files
[1] = NULL
;
5187 * Count number of names resulting from expansion,
5188 * At the same time add a backslash to the end of names that happen to
5189 * be directories, and replace slashes with backslashes.
5193 for (i
= 0; (p
= expl_files
[i
]) != NULL
; i
++)
5196 /* If we don't want dirs and this is one, skip it */
5197 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5200 /* Skip files that are not executable if we check for that. */
5201 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe(p
))
5204 if (--files_free
== 0)
5206 /* need more room in table of pointers */
5207 files_alloced
+= EXPL_ALLOC_INC
;
5208 *file
= (char_u
**)vim_realloc(*file
,
5209 sizeof(char_u
**) * files_alloced
);
5212 EMSG(_(e_outofmem
));
5216 files_free
= EXPL_ALLOC_INC
;
5221 /* For a directory we add a '/', unless it's already
5224 if (((*file
)[*num_file
] = alloc(len
+ 2)) != NULL
)
5226 STRCPY((*file
)[*num_file
], p
);
5227 if (!after_pathsep((*file
)[*num_file
],
5228 (*file
)[*num_file
] + len
))
5230 (*file
)[*num_file
][len
] = psepc
;
5231 (*file
)[*num_file
][len
+ 1] = NUL
;
5237 (*file
)[*num_file
] = vim_strsave(p
);
5241 * Error message already given by either alloc or vim_strsave.
5242 * Should return FAIL, but returning OK works also.
5244 if ((*file
)[*num_file
] == NULL
)
5248 _fnexplodefree((char **)expl_files
);
5255 * This is the non-OS/2 implementation (really Unix).
5262 #define STYLE_ECHO 0 /* use "echo", the default */
5263 #define STYLE_GLOB 1 /* use "glob", for csh */
5264 #define STYLE_VIMGLOB 2 /* use "vimglob", for Posix sh */
5265 #define STYLE_PRINT 3 /* use "print -N", for zsh */
5266 #define STYLE_BT 4 /* `cmd` expansion, execute the pattern
5268 int shell_style
= STYLE_ECHO
;
5270 static int did_find_nul
= FALSE
;
5271 int ampersent
= FALSE
;
5272 /* vimglob() function to define for Posix shell */
5273 static char *sh_vimglob_func
= "vimglob() { while [ $# -ge 1 ]; do echo \"$1\"; shift; done }; vimglob >";
5275 *num_file
= 0; /* default: no files found */
5279 * If there are no wildcards, just copy the names to allocated memory.
5280 * Saves a lot of time, because we don't have to start a new shell.
5282 if (!have_wildcard(num_pat
, pat
))
5283 return save_patterns(num_pat
, pat
, num_file
, file
);
5285 # ifdef HAVE_SANDBOX
5286 /* Don't allow any shell command in the sandbox. */
5287 if (sandbox
!= 0 && check_secure())
5292 * Don't allow the use of backticks in secure and restricted mode.
5294 if (secure
|| restricted
)
5295 for (i
= 0; i
< num_pat
; ++i
)
5296 if (vim_strchr(pat
[i
], '`') != NULL
5297 && (check_restricted() || check_secure()))
5301 * get a name for the temp file
5303 if ((tempname
= vim_tempname('o')) == NULL
)
5310 * Let the shell expand the patterns and write the result into the temp
5312 * STYLE_BT: NL separated
5313 * If expanding `cmd` execute it directly.
5314 * STYLE_GLOB: NUL separated
5315 * If we use *csh, "glob" will work better than "echo".
5316 * STYLE_PRINT: NL or NUL separated
5317 * If we use *zsh, "print -N" will work better than "glob".
5318 * STYLE_VIMGLOB: NL separated
5319 * If we use *sh*, we define "vimglob()".
5320 * STYLE_ECHO: space separated.
5321 * A shell we don't know, stay safe and use "echo".
5323 if (num_pat
== 1 && *pat
[0] == '`'
5324 && (len
= STRLEN(pat
[0])) > 2
5325 && *(pat
[0] + len
- 1) == '`')
5326 shell_style
= STYLE_BT
;
5327 else if ((len
= STRLEN(p_sh
)) >= 3)
5329 if (STRCMP(p_sh
+ len
- 3, "csh") == 0)
5330 shell_style
= STYLE_GLOB
;
5331 else if (STRCMP(p_sh
+ len
- 3, "zsh") == 0)
5332 shell_style
= STYLE_PRINT
;
5334 if (shell_style
== STYLE_ECHO
&& strstr((char *)gettail(p_sh
),
5336 shell_style
= STYLE_VIMGLOB
;
5338 /* Compute the length of the command. We need 2 extra bytes: for the
5339 * optional '&' and for the NUL.
5340 * Worst case: "unset nonomatch; print -N >" plus two is 29 */
5341 len
= STRLEN(tempname
) + 29;
5342 if (shell_style
== STYLE_VIMGLOB
)
5343 len
+= STRLEN(sh_vimglob_func
);
5345 for (i
= 0; i
< num_pat
; ++i
)
5347 /* Count the length of the patterns in the same way as they are put in
5348 * "command" below. */
5350 len
+= STRLEN(pat
[i
]) + 3; /* add space and two quotes */
5352 ++len
; /* add space */
5353 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5355 if (vim_strchr(SHELL_SPECIAL
, pat
[i
][j
]) != NULL
)
5356 ++len
; /* may add a backslash */
5361 command
= alloc(len
);
5362 if (command
== NULL
)
5370 * Build the shell command:
5371 * - Set $nonomatch depending on EW_NOTFOUND (hopefully the shell
5373 * - Add the shell command to print the expanded names.
5374 * - Add the temp file name.
5375 * - Add the file name patterns.
5377 if (shell_style
== STYLE_BT
)
5379 /* change `command; command& ` to (command; command ) */
5380 STRCPY(command
, "(");
5381 STRCAT(command
, pat
[0] + 1); /* exclude first backtick */
5382 p
= command
+ STRLEN(command
) - 1;
5383 *p
-- = ')'; /* remove last backtick */
5384 while (p
> command
&& vim_iswhite(*p
))
5386 if (*p
== '&') /* remove trailing '&' */
5391 STRCAT(command
, ">");
5395 if (flags
& EW_NOTFOUND
)
5396 STRCPY(command
, "set nonomatch; ");
5398 STRCPY(command
, "unset nonomatch; ");
5399 if (shell_style
== STYLE_GLOB
)
5400 STRCAT(command
, "glob >");
5401 else if (shell_style
== STYLE_PRINT
)
5402 STRCAT(command
, "print -N >");
5403 else if (shell_style
== STYLE_VIMGLOB
)
5404 STRCAT(command
, sh_vimglob_func
);
5406 STRCAT(command
, "echo >");
5409 STRCAT(command
, tempname
);
5411 if (shell_style
!= STYLE_BT
)
5412 for (i
= 0; i
< num_pat
; ++i
)
5414 /* When using system() always add extra quotes, because the shell
5415 * is started twice. Otherwise put a backslash before special
5416 * characters, except inside ``. */
5418 STRCAT(command
, " \"");
5419 STRCAT(command
, pat
[i
]);
5420 STRCAT(command
, "\"");
5424 p
= command
+ STRLEN(command
);
5426 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5428 if (pat
[i
][j
] == '`')
5430 else if (pat
[i
][j
] == '\\' && pat
[i
][j
+ 1] != NUL
)
5432 /* Remove a backslash, take char literally. But keep
5433 * backslash inside backticks, before a special character
5434 * and before a backtick. */
5436 || vim_strchr(SHELL_SPECIAL
, pat
[i
][j
+ 1]) != NULL
5437 || pat
[i
][j
+ 1] == '`')
5441 else if (!intick
&& vim_strchr(SHELL_SPECIAL
,
5443 /* Put a backslash before a special character, but not
5444 * when inside ``. */
5447 /* Copy one character. */
5453 if (flags
& EW_SILENT
)
5454 show_shell_mess
= FALSE
;
5456 STRCAT(command
, "&"); /* put the '&' after the redirection */
5459 * Using zsh -G: If a pattern has no matches, it is just deleted from
5460 * the argument list, otherwise zsh gives an error message and doesn't
5461 * expand any other pattern.
5463 if (shell_style
== STYLE_PRINT
)
5464 extra_shell_arg
= (char_u
*)"-G"; /* Use zsh NULL_GLOB option */
5467 * If we use -f then shell variables set in .cshrc won't get expanded.
5468 * vi can do it, so we will too, but it is only necessary if there is a "$"
5469 * in one of the patterns, otherwise we can still use the fast option.
5471 else if (shell_style
== STYLE_GLOB
&& !have_dollars(num_pat
, pat
))
5472 extra_shell_arg
= (char_u
*)"-f"; /* Use csh fast option */
5475 * execute the shell command
5477 i
= call_shell(command
, SHELL_EXPAND
| SHELL_SILENT
);
5479 /* When running in the background, give it some time to create the temp
5480 * file, but don't wait for it to finish. */
5482 mch_delay(10L, TRUE
);
5484 extra_shell_arg
= NULL
; /* cleanup */
5485 show_shell_mess
= TRUE
;
5488 if (i
!= 0) /* mch_call_shell() failed */
5490 mch_remove(tempname
);
5493 * With interactive completion, the error message is not printed.
5494 * However with USE_SYSTEM, I don't know how to turn off error messages
5495 * from the shell, so screen may still get messed up -- webb.
5498 if (!(flags
& EW_SILENT
))
5501 redraw_later_clear(); /* probably messed up screen */
5502 msg_putchar('\n'); /* clear bottom line quickly */
5503 cmdline_row
= Rows
- 1; /* continue on last line */
5505 if (!(flags
& EW_SILENT
))
5508 MSG(_(e_wildexpand
));
5509 msg_start(); /* don't overwrite this message */
5512 /* If a `cmd` expansion failed, don't list `cmd` as a match, even when
5513 * EW_NOTFOUND is given */
5514 if (shell_style
== STYLE_BT
)
5520 * read the names from the file into memory
5522 fd
= fopen((char *)tempname
, READBIN
);
5525 /* Something went wrong, perhaps a file name with a special char. */
5526 if (!(flags
& EW_SILENT
))
5528 MSG(_(e_wildexpand
));
5529 msg_start(); /* don't overwrite this message */
5534 fseek(fd
, 0L, SEEK_END
);
5535 len
= ftell(fd
); /* get size of temp file */
5536 fseek(fd
, 0L, SEEK_SET
);
5537 buffer
= alloc(len
+ 1);
5541 mch_remove(tempname
);
5546 i
= fread((char *)buffer
, 1, len
, fd
);
5548 mch_remove(tempname
);
5551 /* unexpected read error */
5552 EMSG2(_(e_notread
), tempname
);
5559 # if defined(__CYGWIN__) || defined(__CYGWIN32__)
5560 /* Translate <CR><NL> into <NL>. Caution, buffer may contain NUL. */
5562 for (i
= 0; i
< len
; ++i
)
5563 if (!(buffer
[i
] == CAR
&& buffer
[i
+ 1] == NL
))
5569 /* file names are separated with Space */
5570 if (shell_style
== STYLE_ECHO
)
5572 buffer
[len
] = '\n'; /* make sure the buffer ends in NL */
5574 for (i
= 0; *p
!= '\n'; ++i
) /* count number of entries */
5576 while (*p
!= ' ' && *p
!= '\n')
5578 p
= skipwhite(p
); /* skip to next entry */
5581 /* file names are separated with NL */
5582 else if (shell_style
== STYLE_BT
|| shell_style
== STYLE_VIMGLOB
)
5584 buffer
[len
] = NUL
; /* make sure the buffer ends in NUL */
5586 for (i
= 0; *p
!= NUL
; ++i
) /* count number of entries */
5588 while (*p
!= '\n' && *p
!= NUL
)
5592 p
= skipwhite(p
); /* skip leading white space */
5595 /* file names are separated with NUL */
5599 * Some versions of zsh use spaces instead of NULs to separate
5600 * results. Only do this when there is no NUL before the end of the
5601 * buffer, otherwise we would never be able to use file names with
5602 * embedded spaces when zsh does use NULs.
5603 * When we found a NUL once, we know zsh is OK, set did_find_nul and
5604 * don't check for spaces again.
5606 check_spaces
= FALSE
;
5607 if (shell_style
== STYLE_PRINT
&& !did_find_nul
)
5609 /* If there is a NUL, set did_find_nul, else set check_spaces */
5610 if (len
&& (int)STRLEN(buffer
) < len
- 1)
5611 did_find_nul
= TRUE
;
5613 check_spaces
= TRUE
;
5617 * Make sure the buffer ends with a NUL. For STYLE_PRINT there
5618 * already is one, for STYLE_GLOB it needs to be added.
5620 if (len
&& buffer
[len
- 1] == NUL
)
5625 for (p
= buffer
; p
< buffer
+ len
; ++p
)
5626 if (*p
== NUL
|| (*p
== ' ' && check_spaces
)) /* count entry */
5632 ++i
; /* count last entry */
5637 * Can happen when using /bin/sh and typing ":e $NO_SUCH_VAR^I".
5638 * /bin/sh will happily expand it to nothing rather than returning an
5639 * error; and hey, it's good to check anyway -- webb.
5645 *file
= (char_u
**)alloc(sizeof(char_u
*) * i
);
5654 * Isolate the individual file names.
5657 for (i
= 0; i
< *num_file
; ++i
)
5660 /* Space or NL separates */
5661 if (shell_style
== STYLE_ECHO
|| shell_style
== STYLE_BT
5662 || shell_style
== STYLE_VIMGLOB
)
5664 while (!(shell_style
== STYLE_ECHO
&& *p
== ' ')
5665 && *p
!= '\n' && *p
!= NUL
)
5667 if (p
== buffer
+ len
) /* last entry */
5672 p
= skipwhite(p
); /* skip to next entry */
5675 else /* NUL separates */
5677 while (*p
&& p
< buffer
+ len
) /* skip entry */
5684 * Move the file names to allocated memory.
5686 for (j
= 0, i
= 0; i
< *num_file
; ++i
)
5688 /* Require the files to exist. Helps when using /bin/sh */
5689 if (!(flags
& EW_NOTFOUND
) && mch_getperm((*file
)[i
]) < 0)
5692 /* check if this entry should be included */
5693 dir
= (mch_isdir((*file
)[i
]));
5694 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5697 /* Skip files that are not executable if we check for that. */
5698 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe((*file
)[i
]))
5701 p
= alloc((unsigned)(STRLEN((*file
)[i
]) + 1 + dir
));
5704 STRCPY(p
, (*file
)[i
]);
5706 add_pathsep(p
); /* add '/' to a directory name */
5713 if (*num_file
== 0) /* rejected all entries */
5723 if (flags
& EW_NOTFOUND
)
5724 return save_patterns(num_pat
, pat
, num_file
, file
);
5727 #endif /* __EMX__ */
5734 save_patterns(num_pat
, pat
, num_file
, file
)
5743 *file
= (char_u
**)alloc(num_pat
* sizeof(char_u
*));
5746 for (i
= 0; i
< num_pat
; i
++)
5748 s
= vim_strsave(pat
[i
]);
5750 /* Be compatible with expand_filename(): halve the number of
5755 *num_file
= num_pat
;
5762 * Return TRUE if the string "p" contains a wildcard that mch_expandpath() can
5766 mch_has_exp_wildcard(p
)
5769 for ( ; *p
; mb_ptr_adv(p
))
5772 if (*p
== '\\' && p
[1] != NUL
)
5776 if (vim_strchr((char_u
*)
5793 * Return TRUE if the string "p" contains a wildcard.
5794 * Don't recognize '~' at the end as a wildcard.
5800 for ( ; *p
; mb_ptr_adv(p
))
5803 if (*p
== '\\' && p
[1] != NUL
)
5807 if (vim_strchr((char_u
*)
5812 # ifdef VIM_BACKTICK
5822 || (*p
== '~' && p
[1] != NUL
))
5830 have_wildcard(num
, file
)
5836 for (i
= 0; i
< num
; i
++)
5837 if (mch_has_wildcard(file
[i
]))
5843 have_dollars(num
, file
)
5849 for (i
= 0; i
< num
; i
++)
5850 if (vim_strchr(file
[i
], '$') != NULL
)
5854 #endif /* ifndef __EMX__ */
5858 * Scaled-down version of rename(), which is missing in Xenix.
5859 * This version can only move regular files and will fail if the
5860 * destination exists.
5863 mch_rename(src
, dest
)
5864 const char *src
, *dest
;
5868 if (stat(dest
, &st
) >= 0) /* fail if destination exists */
5870 if (link(src
, dest
) != 0) /* link file to new name */
5872 if (mch_remove(src
) == 0) /* delete link to old name */
5876 #endif /* !HAVE_RENAME */
5878 #ifdef FEAT_MOUSE_GPM
5880 * Initializes connection with gpm (if it isn't already opened)
5881 * Return 1 if succeeded (or connection already opened), 0 if failed
5886 static Gpm_Connect gpm_connect
; /* Must it be kept till closing ? */
5890 gpm_connect
.eventMask
= (GPM_UP
| GPM_DRAG
| GPM_DOWN
);
5891 gpm_connect
.defaultMask
= ~GPM_HARD
;
5892 /* Default handling for mouse move*/
5893 gpm_connect
.minMod
= 0; /* Handle any modifier keys */
5894 gpm_connect
.maxMod
= 0xffff;
5895 if (Gpm_Open(&gpm_connect
, 0) > 0)
5897 /* gpm library tries to handling TSTP causes
5898 * problems. Anyways, we close connection to Gpm whenever
5899 * we are going to suspend or starting an external process
5900 * so we shouldn't have problem with this
5902 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
5903 return 1; /* succeed */
5906 Gpm_Close(); /* We don't want to talk to xterm via gpm */
5909 return 1; /* already open */
5913 * Closes connection to gpm
5918 if (gpm_flag
&& gpm_fd
>= 0) /* if Open */
5922 /* Reads gpm event and adds special keys to input buf. Returns length of
5923 * generated key sequence.
5924 * This function is made after gui_send_mouse_event
5930 static Gpm_Event gpm_event
;
5932 int_u vim_modifiers
;
5934 unsigned char buttons_mask
;
5935 unsigned char gpm_modifiers
;
5936 static unsigned char old_buttons
= 0;
5938 Gpm_GetEvent(&gpm_event
);
5941 /* Don't put events in the input queue now. */
5942 if (hold_gui_events
)
5946 row
= gpm_event
.y
- 1;
5947 col
= gpm_event
.x
- 1;
5949 string
[0] = ESC
; /* Our termcode */
5952 switch (GPM_BARE_EVENTS(gpm_event
.type
))
5955 string
[3] = MOUSE_DRAG
;
5958 buttons_mask
= gpm_event
.buttons
& ~old_buttons
;
5959 old_buttons
= gpm_event
.buttons
;
5960 switch (buttons_mask
)
5963 button
= MOUSE_LEFT
;
5966 button
= MOUSE_MIDDLE
;
5969 button
= MOUSE_RIGHT
;
5973 /*Don't know what to do. Can more than one button be
5974 * reported in one event? */
5976 string
[3] = (char_u
)(button
| 0x20);
5977 SET_NUM_MOUSE_CLICKS(string
[3], gpm_event
.clicks
+ 1);
5980 string
[3] = MOUSE_RELEASE
;
5981 old_buttons
&= ~gpm_event
.buttons
;
5986 /*This code is based on gui_x11_mouse_cb in gui_x11.c */
5987 gpm_modifiers
= gpm_event
.modifiers
;
5988 vim_modifiers
= 0x0;
5989 /* I ignore capslock stats. Aren't we all just hate capslock mixing with
5990 * Vim commands ? Besides, gpm_event.modifiers is unsigned char, and
5991 * K_CAPSSHIFT is defined 8, so it probably isn't even reported
5993 if (gpm_modifiers
& ((1 << KG_SHIFT
) | (1 << KG_SHIFTR
) | (1 << KG_SHIFTL
)))
5994 vim_modifiers
|= MOUSE_SHIFT
;
5996 if (gpm_modifiers
& ((1 << KG_CTRL
) | (1 << KG_CTRLR
) | (1 << KG_CTRLL
)))
5997 vim_modifiers
|= MOUSE_CTRL
;
5998 if (gpm_modifiers
& ((1 << KG_ALT
) | (1 << KG_ALTGR
)))
5999 vim_modifiers
|= MOUSE_ALT
;
6000 string
[3] |= vim_modifiers
;
6001 string
[4] = (char_u
)(col
+ ' ' + 1);
6002 string
[5] = (char_u
)(row
+ ' ' + 1);
6003 add_to_input_buf(string
, 6);
6006 #endif /* FEAT_MOUSE_GPM */
6008 #ifdef FEAT_SYSMOUSE
6010 * Initialize connection with sysmouse.
6011 * Let virtual console inform us with SIGUSR2 for pending sysmouse
6012 * output, any sysmouse output than will be processed via sig_sysmouse().
6013 * Return OK if succeeded, FAIL if failed.
6018 struct mouse_info mouse
;
6020 mouse
.operation
= MOUSE_MODE
;
6021 mouse
.u
.mode
.mode
= 0;
6022 mouse
.u
.mode
.signal
= SIGUSR2
;
6023 if (ioctl(1, CONS_MOUSECTL
, &mouse
) != -1)
6025 signal(SIGUSR2
, (RETSIGTYPE (*)())sig_sysmouse
);
6026 mouse
.operation
= MOUSE_SHOW
;
6027 ioctl(1, CONS_MOUSECTL
, &mouse
);
6034 * Stop processing SIGUSR2 signals, and also make sure that
6035 * virtual console do not send us any sysmouse related signal.
6040 struct mouse_info mouse
;
6042 signal(SIGUSR2
, restricted
? SIG_IGN
: SIG_DFL
);
6043 mouse
.operation
= MOUSE_MODE
;
6044 mouse
.u
.mode
.mode
= 0;
6045 mouse
.u
.mode
.signal
= 0;
6046 ioctl(1, CONS_MOUSECTL
, &mouse
);
6050 * Gets info from sysmouse and adds special keys to input buf.
6054 sig_sysmouse
SIGDEFARG(sigarg
)
6056 struct mouse_info mouse
;
6057 struct video_info video
;
6062 static int oldbuttons
= 0;
6065 /* Don't put events in the input queue now. */
6066 if (hold_gui_events
)
6070 mouse
.operation
= MOUSE_GETINFO
;
6071 if (ioctl(1, FBIO_GETMODE
, &video
.vi_mode
) != -1
6072 && ioctl(1, FBIO_MODEINFO
, &video
) != -1
6073 && ioctl(1, CONS_MOUSECTL
, &mouse
) != -1
6074 && video
.vi_cheight
> 0 && video
.vi_cwidth
> 0)
6076 row
= mouse
.u
.data
.y
/ video
.vi_cheight
;
6077 col
= mouse
.u
.data
.x
/ video
.vi_cwidth
;
6078 buttons
= mouse
.u
.data
.buttons
;
6079 string
[0] = ESC
; /* Our termcode */
6082 if (oldbuttons
== buttons
&& buttons
!= 0)
6084 button
= MOUSE_DRAG
;
6091 button
= MOUSE_RELEASE
;
6094 button
= MOUSE_LEFT
;
6097 button
= MOUSE_MIDDLE
;
6100 button
= MOUSE_RIGHT
;
6105 oldbuttons
= buttons
;
6107 string
[3] = (char_u
)(button
);
6108 string
[4] = (char_u
)(col
+ ' ' + 1);
6109 string
[5] = (char_u
)(row
+ ' ' + 1);
6110 add_to_input_buf(string
, 6);
6114 #endif /* FEAT_SYSMOUSE */
6116 #if defined(FEAT_LIBCALL) || defined(PROTO)
6117 typedef char_u
* (*STRPROCSTR
)__ARGS((char_u
*));
6118 typedef char_u
* (*INTPROCSTR
)__ARGS((int));
6119 typedef int (*STRPROCINT
)__ARGS((char_u
*));
6120 typedef int (*INTPROCINT
)__ARGS((int));
6123 * Call a DLL routine which takes either a string or int param
6124 * and returns an allocated string.
6127 mch_libcall(libname
, funcname
, argstring
, argint
, string_result
, number_result
)
6130 char_u
*argstring
; /* NULL when using a argint */
6132 char_u
**string_result
;/* NULL when using number_result */
6135 # if defined(USE_DLOPEN)
6142 INTPROCSTR ProcAddI
;
6143 char_u
*retval_str
= NULL
;
6145 int success
= FALSE
;
6148 * Get a handle to the DLL module.
6150 # if defined(USE_DLOPEN)
6151 /* First clear any error, it's not cleared by the dlopen() call. */
6154 hinstLib
= dlopen((char *)libname
, RTLD_LAZY
6159 if (hinstLib
== NULL
)
6161 /* "dlerr" must be used before dlclose() */
6162 dlerr
= (char *)dlerror();
6164 EMSG2(_("dlerror = \"%s\""), dlerr
);
6167 hinstLib
= shl_load((const char*)libname
, BIND_IMMEDIATE
|BIND_VERBOSE
, 0L);
6170 /* If the handle is valid, try to get the function address. */
6171 if (hinstLib
!= NULL
)
6173 # ifdef HAVE_SETJMP_H
6175 * Catch a crash when calling the library function. For example when
6176 * using a number where a string pointer is expected.
6179 if (SETJMP(lc_jump_env
) != 0)
6182 # if defined(USE_DLOPEN)
6193 if (argstring
!= NULL
)
6195 # if defined(USE_DLOPEN)
6196 ProcAdd
= (STRPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
6197 dlerr
= (char *)dlerror();
6199 if (shl_findsym(&hinstLib
, (const char *)funcname
,
6200 TYPE_PROCEDURE
, (void *)&ProcAdd
) < 0)
6203 if ((success
= (ProcAdd
!= NULL
6204 # if defined(USE_DLOPEN)
6209 if (string_result
== NULL
)
6210 retval_int
= ((STRPROCINT
)ProcAdd
)(argstring
);
6212 retval_str
= (ProcAdd
)(argstring
);
6217 # if defined(USE_DLOPEN)
6218 ProcAddI
= (INTPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
6219 dlerr
= (char *)dlerror();
6221 if (shl_findsym(&hinstLib
, (const char *)funcname
,
6222 TYPE_PROCEDURE
, (void *)&ProcAddI
) < 0)
6225 if ((success
= (ProcAddI
!= NULL
6226 # if defined(USE_DLOPEN)
6231 if (string_result
== NULL
)
6232 retval_int
= ((INTPROCINT
)ProcAddI
)(argint
);
6234 retval_str
= (ProcAddI
)(argint
);
6238 /* Save the string before we free the library. */
6239 /* Assume that a "1" or "-1" result is an illegal pointer. */
6240 if (string_result
== NULL
)
6241 *number_result
= retval_int
;
6242 else if (retval_str
!= NULL
6243 && retval_str
!= (char_u
*)1
6244 && retval_str
!= (char_u
*)-1)
6245 *string_result
= vim_strsave(retval_str
);
6248 # ifdef HAVE_SETJMP_H
6255 /* try to find the name of this signal */
6256 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
6257 if (lc_signal
== signal_info
[i
].sig
)
6259 EMSG2("E368: got SIG%s in libcall()", signal_info
[i
].name
);
6264 # if defined(USE_DLOPEN)
6265 /* "dlerr" must be used before dlclose() */
6267 EMSG2(_("dlerror = \"%s\""), dlerr
);
6269 /* Free the DLL module. */
6270 (void)dlclose(hinstLib
);
6272 (void)shl_unload(hinstLib
);
6278 EMSG2(_(e_libcall
), funcname
);
6286 #if (defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) || defined(PROTO)
6287 static int xterm_trace
= -1; /* default: disabled */
6288 static int xterm_button
;
6291 * Setup a dummy window for X selections in a terminal.
6300 if (!x_connect_to_server())
6304 if (app_context
!= NULL
&& xterm_Shell
== (Widget
)0)
6306 int (*oldhandler
)();
6307 #if defined(HAVE_SETJMP_H)
6308 int (*oldIOhandler
)();
6310 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6311 struct timeval start_tv
;
6314 gettimeofday(&start_tv
, NULL
);
6317 /* Ignore X errors while opening the display */
6318 oldhandler
= XSetErrorHandler(x_error_check
);
6320 #if defined(HAVE_SETJMP_H)
6321 /* Ignore X IO errors while opening the display */
6322 oldIOhandler
= XSetIOErrorHandler(x_IOerror_check
);
6324 if (SETJMP(lc_jump_env
) != 0)
6332 xterm_dpy
= XtOpenDisplay(app_context
, xterm_display
,
6333 "vim_xterm", "Vim_xterm", NULL
, 0, &z
, &strp
);
6334 #if defined(HAVE_SETJMP_H)
6339 #if defined(HAVE_SETJMP_H)
6340 /* Now handle X IO errors normally. */
6341 (void)XSetIOErrorHandler(oldIOhandler
);
6343 /* Now handle X errors normally. */
6344 (void)XSetErrorHandler(oldhandler
);
6346 if (xterm_dpy
== NULL
)
6349 verb_msg((char_u
*)_("Opening the X display failed"));
6353 /* Catch terminating error of the X server connection. */
6354 (void)XSetIOErrorHandler(x_IOerror_handler
);
6356 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6360 xopen_message(&start_tv
);
6365 /* Create a Shell to make converters work. */
6366 AppShell
= XtVaAppCreateShell("vim_xterm", "Vim_xterm",
6367 applicationShellWidgetClass
, xterm_dpy
,
6369 if (AppShell
== (Widget
)0)
6371 xterm_Shell
= XtVaCreatePopupShell("VIM",
6372 topLevelShellWidgetClass
, AppShell
,
6373 XtNmappedWhenManaged
, 0,
6377 if (xterm_Shell
== (Widget
)0)
6380 x11_setup_atoms(xterm_dpy
);
6381 if (x11_display
== NULL
)
6382 x11_display
= xterm_dpy
;
6384 XtRealizeWidget(xterm_Shell
);
6385 XSync(xterm_dpy
, False
);
6388 if (xterm_Shell
!= (Widget
)0)
6391 if (x11_window
== 0 && (strp
= getenv("WINDOWID")) != NULL
)
6392 x11_window
= (Window
)atol(strp
);
6393 /* Check if $WINDOWID is valid. */
6394 if (test_x11_window(xterm_dpy
) == FAIL
)
6396 if (x11_window
!= 0)
6402 start_xterm_trace(button
)
6405 if (x11_window
== 0 || xterm_trace
< 0 || xterm_Shell
== (Widget
)0)
6408 xterm_button
= button
;
6416 if (xterm_trace
< 0)
6422 * Query the xterm pointer and generate mouse termcodes if necessary
6423 * return TRUE if dragging is active, else FALSE
6436 static char_u
*mouse_code
;
6437 static char_u mouse_name
[2] = {KS_MOUSE
, KE_FILLER
};
6438 static int prev_row
= 0, prev_col
= 0;
6439 static XSizeHints xterm_hints
;
6441 if (xterm_trace
<= 0)
6444 if (xterm_trace
== 1)
6446 /* Get the hints just before tracking starts. The font size might
6447 * have changed recently. */
6448 if (!XGetWMNormalHints(xterm_dpy
, x11_window
, &xterm_hints
, &got_hints
)
6449 || !(got_hints
& PResizeInc
)
6450 || xterm_hints
.width_inc
<= 1
6451 || xterm_hints
.height_inc
<= 1)
6453 xterm_trace
= -1; /* Not enough data -- disable tracing */
6457 /* Rely on the same mouse code for the duration of this */
6458 mouse_code
= find_termcode(mouse_name
);
6459 prev_row
= mouse_row
;
6460 prev_row
= mouse_col
;
6463 /* Find the offset of the chars, there might be a scrollbar on the
6464 * left of the window and/or a menu on the top (eterm etc.) */
6465 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6466 &win_x
, &win_y
, &mask_return
);
6467 xterm_hints
.y
= win_y
- (xterm_hints
.height_inc
* mouse_row
)
6468 - (xterm_hints
.height_inc
/ 2);
6469 if (xterm_hints
.y
<= xterm_hints
.height_inc
/ 2)
6471 xterm_hints
.x
= win_x
- (xterm_hints
.width_inc
* mouse_col
)
6472 - (xterm_hints
.width_inc
/ 2);
6473 if (xterm_hints
.x
<= xterm_hints
.width_inc
/ 2)
6477 if (mouse_code
== NULL
)
6483 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6484 &win_x
, &win_y
, &mask_return
);
6486 row
= check_row((win_y
- xterm_hints
.y
) / xterm_hints
.height_inc
);
6487 col
= check_col((win_x
- xterm_hints
.x
) / xterm_hints
.width_inc
);
6488 if (row
== prev_row
&& col
== prev_col
)
6491 STRCPY(buf
, mouse_code
);
6492 strp
= buf
+ STRLEN(buf
);
6493 *strp
++ = (xterm_button
| MOUSE_DRAG
) & ~0x20;
6494 *strp
++ = (char_u
)(col
+ ' ' + 1);
6495 *strp
++ = (char_u
)(row
+ ' ' + 1);
6497 add_to_input_buf(buf
, STRLEN(buf
));
6504 # if defined(FEAT_GUI) || defined(PROTO)
6506 * Destroy the display, window and app_context. Required for GTK.
6511 if (xterm_Shell
!= (Widget
)0)
6513 XtDestroyWidget(xterm_Shell
);
6514 xterm_Shell
= (Widget
)0;
6516 if (xterm_dpy
!= NULL
)
6519 /* Lesstif and Solaris crash here, lose some memory */
6520 XtCloseDisplay(xterm_dpy
);
6522 if (x11_display
== xterm_dpy
)
6527 if (app_context
!= (XtAppContext
)NULL
)
6529 /* Lesstif and Solaris crash here, lose some memory */
6530 XtDestroyApplicationContext(app_context
);
6531 app_context
= (XtAppContext
)NULL
;
6538 * Catch up with any queued X events. This may put keyboard input into the
6539 * input buffer, call resize call-backs, trigger timers etc. If there is
6540 * nothing in the X event queue (& no timers pending), then we return
6548 while (XtAppPending(app_context
) && !vim_is_input_buf_full())
6550 XtAppNextEvent(app_context
, &event
);
6551 #ifdef FEAT_CLIENTSERVER
6553 XPropertyEvent
*e
= (XPropertyEvent
*)&event
;
6555 if (e
->type
== PropertyNotify
&& e
->window
== commWindow
6556 && e
->atom
== commProperty
&& e
->state
== PropertyNewValue
)
6557 serverEventProc(xterm_dpy
, &event
);
6560 XtDispatchEvent(&event
);
6565 clip_xterm_own_selection(cbd
)
6568 if (xterm_Shell
!= (Widget
)0)
6569 return clip_x11_own_selection(xterm_Shell
, cbd
);
6574 clip_xterm_lose_selection(cbd
)
6577 if (xterm_Shell
!= (Widget
)0)
6578 clip_x11_lose_selection(xterm_Shell
, cbd
);
6582 clip_xterm_request_selection(cbd
)
6585 if (xterm_Shell
!= (Widget
)0)
6586 clip_x11_request_selection(xterm_Shell
, xterm_dpy
, cbd
);
6590 clip_xterm_set_selection(cbd
)
6593 clip_x11_set_selection(cbd
);
6598 #if defined(USE_XSMP) || defined(PROTO)
6600 * Code for X Session Management Protocol.
6602 static void xsmp_handle_save_yourself
__ARGS((SmcConn smc_conn
, SmPointer client_data
, int save_type
, Bool shutdown
, int interact_style
, Bool fast
));
6603 static void xsmp_die
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6604 static void xsmp_save_complete
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6605 static void xsmp_shutdown_cancelled
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6606 static void xsmp_ice_connection
__ARGS((IceConn iceConn
, IcePointer clientData
, Bool opening
, IcePointer
*watchData
));
6609 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6610 static void xsmp_handle_interaction
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6613 * This is our chance to ask the user if they want to save,
6614 * or abort the logout
6618 xsmp_handle_interaction(smc_conn
, client_data
)
6620 SmPointer client_data
;
6622 cmdmod_T save_cmdmod
;
6623 int cancel_shutdown
= False
;
6625 save_cmdmod
= cmdmod
;
6626 cmdmod
.confirm
= TRUE
;
6627 if (check_changed_any(FALSE
))
6628 /* Mustn't logout */
6629 cancel_shutdown
= True
;
6630 cmdmod
= save_cmdmod
;
6631 setcursor(); /* position cursor */
6634 /* Done interaction */
6635 SmcInteractDone(smc_conn
, cancel_shutdown
);
6638 * Only end save-yourself here if we're not cancelling shutdown;
6639 * we'll get a cancelled callback later in which we'll end it.
6640 * Hopefully get around glitchy SMs (like GNOME-1)
6642 if (!cancel_shutdown
)
6644 xsmp
.save_yourself
= False
;
6645 SmcSaveYourselfDone(smc_conn
, True
);
6651 * Callback that starts save-yourself.
6655 xsmp_handle_save_yourself(smc_conn
, client_data
, save_type
,
6656 shutdown
, interact_style
, fast
)
6658 SmPointer client_data
;
6664 /* Handle already being in saveyourself */
6665 if (xsmp
.save_yourself
)
6666 SmcSaveYourselfDone(smc_conn
, True
);
6667 xsmp
.save_yourself
= True
;
6668 xsmp
.shutdown
= shutdown
;
6670 /* First up, preserve all files */
6672 ml_sync_all(FALSE
, FALSE
); /* preserve all swap files */
6675 verb_msg((char_u
*)_("XSMP handling save-yourself request"));
6677 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6678 /* Now see if we can ask about unsaved files */
6679 if (shutdown
&& !fast
&& gui
.in_use
)
6680 /* Need to interact with user, but need SM's permission */
6681 SmcInteractRequest(smc_conn
, SmDialogError
,
6682 xsmp_handle_interaction
, client_data
);
6686 /* Can stop the cycle here */
6687 SmcSaveYourselfDone(smc_conn
, True
);
6688 xsmp
.save_yourself
= False
;
6694 * Callback to warn us of imminent death.
6698 xsmp_die(smc_conn
, client_data
)
6700 SmPointer client_data
;
6704 /* quit quickly leaving swapfiles for modified buffers behind */
6705 getout_preserve_modified(0);
6710 * Callback to tell us that save-yourself has completed.
6714 xsmp_save_complete(smc_conn
, client_data
)
6716 SmPointer client_data
;
6718 xsmp
.save_yourself
= False
;
6723 * Callback to tell us that an instigated shutdown was cancelled
6724 * (maybe even by us)
6728 xsmp_shutdown_cancelled(smc_conn
, client_data
)
6730 SmPointer client_data
;
6732 if (xsmp
.save_yourself
)
6733 SmcSaveYourselfDone(smc_conn
, True
);
6734 xsmp
.save_yourself
= False
;
6735 xsmp
.shutdown
= False
;
6740 * Callback to tell us that a new ICE connection has been established.
6744 xsmp_ice_connection(iceConn
, clientData
, opening
, watchData
)
6746 IcePointer clientData
;
6748 IcePointer
*watchData
;
6750 /* Intercept creation of ICE connection fd */
6753 xsmp_icefd
= IceConnectionNumber(iceConn
);
6754 IceRemoveConnectionWatch(xsmp_ice_connection
, NULL
);
6759 /* Handle any ICE processing that's required; return FAIL if SM lost */
6761 xsmp_handle_requests()
6765 if (IceProcessMessages(xsmp
.iceconn
, NULL
, &rep
)
6766 == IceProcessMessagesIOError
)
6770 verb_msg((char_u
*)_("XSMP lost ICE connection"));
6780 /* Set up X Session Management Protocol */
6784 char errorstring
[80];
6785 SmcCallbacks smcallbacks
;
6793 verb_msg((char_u
*)_("XSMP opening connection"));
6795 xsmp
.save_yourself
= xsmp
.shutdown
= False
;
6797 /* Set up SM callbacks - must have all, even if they're not used */
6798 smcallbacks
.save_yourself
.callback
= xsmp_handle_save_yourself
;
6799 smcallbacks
.save_yourself
.client_data
= NULL
;
6800 smcallbacks
.die
.callback
= xsmp_die
;
6801 smcallbacks
.die
.client_data
= NULL
;
6802 smcallbacks
.save_complete
.callback
= xsmp_save_complete
;
6803 smcallbacks
.save_complete
.client_data
= NULL
;
6804 smcallbacks
.shutdown_cancelled
.callback
= xsmp_shutdown_cancelled
;
6805 smcallbacks
.shutdown_cancelled
.client_data
= NULL
;
6807 /* Set up a watch on ICE connection creations. The "dummy" argument is
6808 * apparently required for FreeBSD (we get a BUS error when using NULL). */
6809 if (IceAddConnectionWatch(xsmp_ice_connection
, &dummy
) == 0)
6812 verb_msg((char_u
*)_("XSMP ICE connection watch failed"));
6816 /* Create an SM connection */
6817 xsmp
.smcconn
= SmcOpenConnection(
6822 SmcSaveYourselfProcMask
| SmcDieProcMask
6823 | SmcSaveCompleteProcMask
| SmcShutdownCancelledProcMask
,
6827 sizeof(errorstring
),
6829 if (xsmp
.smcconn
== NULL
)
6831 char errorreport
[132];
6835 vim_snprintf(errorreport
, sizeof(errorreport
),
6836 _("XSMP SmcOpenConnection failed: %s"), errorstring
);
6837 verb_msg((char_u
*)errorreport
);
6841 xsmp
.iceconn
= SmcGetIceConnection(xsmp
.smcconn
);
6845 smname
.value
= "vim";
6847 smnameprop
.name
= "SmProgram";
6848 smnameprop
.type
= "SmARRAY8";
6849 smnameprop
.num_vals
= 1;
6850 smnameprop
.vals
= &smname
;
6852 smprops
[0] = &smnameprop
;
6853 SmcSetProperties(xsmp
.smcconn
, 1, smprops
);
6858 /* Shut down XSMP comms. */
6862 if (xsmp_icefd
!= -1)
6864 SmcCloseConnection(xsmp
.smcconn
, 0, NULL
);
6865 if (xsmp
.clientid
!= NULL
)
6866 free(xsmp
.clientid
);
6867 xsmp
.clientid
= NULL
;
6871 #endif /* USE_XSMP */
6875 /* Translate character to its CTRL- value */
6879 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6880 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6881 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6882 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6883 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6884 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6888 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6891 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6902 0, 0, 0, 0, 0, 0, 0,
6913 0, 0, 0, 0, 0, 0, 0, 0,
6926 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6928 /* BE - C0 */ 0, 0, 0,
6938 /* CA - D0 */ 0, 0, 0, 0, 0, 0, 0,
6948 /* DA - DF */ 0, 0, 0, 0, 0, 0,
6959 /* EA - FF*/ 0, 0, 0, 0, 0, 0,
6960 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6963 char MetaCharTable
[]=
6964 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
6965 0, 0, 0, 0,'\\', 0,'F', 0,'W','M','N', 0, 0, 0, 0, 0,
6966 0, 0, 0, 0,']', 0, 0,'G', 0, 0,'R','O', 0, 0, 0, 0,
6967 '@','A','B','C','D','E', 0, 0,'H','I','J','K','L', 0, 0, 0,
6968 'P','Q', 0,'S','T','U','V', 0,'X','Y','Z','[', 0, 0,'^', 0
6972 /* TODO: Use characters NOT numbers!!! */
6973 char CtrlCharTable
[]=
6974 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
6975 124,193,194,195, 0,201, 0, 0, 0, 0, 0,210,211,212,213,214,
6976 215,216,217,226, 0,209,200, 0,231,232, 0, 0,224,189, 95,109,
6977 0, 0, 0, 0, 0, 0,230,173, 0, 0, 0, 0, 0,197,198,199,
6978 0, 0,229, 0, 0, 0, 0,196, 0, 0, 0, 0,227,228, 0,233,