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"
42 #include "os_unixx.h" /* unix includes for os_unix.c only */
45 # include <X11/SM/SMlib.h>
49 # include <selinux/selinux.h>
50 static int selinux_enabled
= -1;
54 * Use this prototype for select, some include files have a wrong prototype
59 # define select beos_select
65 # include <sys/cygwin.h> /* for cygwin_conv_to_posix_path() */
69 #if defined(HAVE_SELECT)
70 extern int select
__ARGS((int, fd_set
*, fd_set
*, fd_set
*, struct timeval
*));
75 /* <linux/keyboard.h> contains defines conflicting with "keymap.h",
76 * I just copied relevant defines here. A cleaner solution would be to put gpm
77 * code into separate file and include there linux/keyboard.h
79 /* #include <linux/keyboard.h> */
88 # define KG_CAPSSHIFT 8
90 static void gpm_close
__ARGS((void));
91 static int gpm_open
__ARGS((void));
92 static int mch_gpm_process
__ARGS((void));
96 * end of autoconf section. To be extended...
99 /* Are the following #ifdefs still required? And why? Is that for X11? */
101 #if defined(ESIX) || defined(M_UNIX) && !defined(SCO)
110 #if defined(SIGWINDOW) && !defined(SIGWINCH) /* hpux 9.01 has it */
111 # define SIGWINCH SIGWINDOW
115 # include <X11/Xlib.h>
116 # include <X11/Xutil.h>
117 # include <X11/Xatom.h>
118 # ifdef FEAT_XCLIPBOARD
119 # include <X11/Intrinsic.h>
120 # include <X11/Shell.h>
121 # include <X11/StringDefs.h>
122 static Widget xterm_Shell
= (Widget
)0;
123 static void xterm_update
__ARGS((void));
126 # if defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE)
127 Window x11_window
= 0;
129 Display
*x11_display
= NULL
;
132 static int get_x11_windis
__ARGS((void));
133 static void set_x11_title
__ARGS((char_u
*));
134 static void set_x11_icon
__ARGS((char_u
*));
139 static int get_x11_title
__ARGS((int));
140 static int get_x11_icon
__ARGS((int));
142 static char_u
*oldtitle
= NULL
;
143 static int did_set_title
= FALSE
;
144 static char_u
*oldicon
= NULL
;
145 static int did_set_icon
= FALSE
;
148 static void may_core_dump
__ARGS((void));
150 static int WaitForChar
__ARGS((long));
151 #if defined(__BEOS__)
152 int RealWaitForChar
__ARGS((int, long, int *));
154 static int RealWaitForChar
__ARGS((int, long, int *));
157 #ifdef FEAT_XCLIPBOARD
158 static int do_xterm_trace
__ARGS((void));
159 # define XT_TRACE_DELAY 50 /* delay for xterm tracing */
162 static void handle_resize
__ARGS((void));
164 #if defined(SIGWINCH)
165 static RETSIGTYPE sig_winch
__ARGS(SIGPROTOARG
);
168 static RETSIGTYPE catch_sigint
__ARGS(SIGPROTOARG
);
171 static RETSIGTYPE catch_sigpwr
__ARGS(SIGPROTOARG
);
173 #if defined(SIGALRM) && defined(FEAT_X11) \
174 && defined(FEAT_TITLE) && !defined(FEAT_GUI_GTK)
175 # define SET_SIG_ALARM
176 static RETSIGTYPE sig_alarm
__ARGS(SIGPROTOARG
);
177 static int sig_alarm_called
;
179 static RETSIGTYPE deathtrap
__ARGS(SIGPROTOARG
);
181 static void catch_int_signal
__ARGS((void));
182 static void set_signals
__ARGS((void));
183 static void catch_signals
__ARGS((RETSIGTYPE (*func_deadly
)(), RETSIGTYPE (*func_other
)()));
185 static int have_wildcard
__ARGS((int, char_u
**));
186 static int have_dollars
__ARGS((int, char_u
**));
190 static int save_patterns
__ARGS((int num_pat
, char_u
**pat
, int *num_file
, char_u
***file
));
194 # define SIG_ERR ((RETSIGTYPE (*)())-1)
197 static int do_resize
= FALSE
;
199 static char_u
*extra_shell_arg
= NULL
;
200 static int show_shell_mess
= TRUE
;
202 static int deadly_signal
= 0; /* The signal we caught */
203 static int in_mch_delay
= FALSE
; /* sleeping in mch_delay() */
205 static int curr_tmode
= TMODE_COOK
; /* contains current terminal mode */
210 SmcConn smcconn
; /* The SM connection ID */
211 IceConn iceconn
; /* The ICE connection ID */
212 char *clientid
; /* The client ID for the current smc session */
213 Bool save_yourself
; /* If we're in the middle of a save_yourself */
214 Bool shutdown
; /* If we're in shutdown mode */
217 static xsmp_config_T xsmp
;
220 #ifdef SYS_SIGLIST_DECLARED
223 * extern char *_sys_siglist[NSIG];
224 * on Irix, Linux, NetBSD and Solaris. It contains a nice list of strings
225 * that describe the signals. That is nearly what we want here. But
226 * autoconf does only check for sys_siglist (without the underscore), I
227 * do not want to change everything today.... jw.
228 * This is why AC_DECL_SYS_SIGLIST is commented out in configure.in
232 static struct signalinfo
234 int sig
; /* Signal number, eg. SIGSEGV etc */
235 char *name
; /* Signal name (not char_u!). */
236 char deadly
; /* Catch as a deadly signal? */
240 {SIGHUP
, "HUP", TRUE
},
243 {SIGQUIT
, "QUIT", TRUE
},
246 {SIGILL
, "ILL", TRUE
},
249 {SIGTRAP
, "TRAP", TRUE
},
252 {SIGABRT
, "ABRT", TRUE
},
255 {SIGEMT
, "EMT", TRUE
},
258 {SIGFPE
, "FPE", TRUE
},
261 {SIGBUS
, "BUS", TRUE
},
264 {SIGSEGV
, "SEGV", TRUE
},
267 {SIGSYS
, "SYS", TRUE
},
270 {SIGALRM
, "ALRM", FALSE
}, /* Perl's alarm() can trigger it */
273 {SIGTERM
, "TERM", TRUE
},
276 {SIGVTALRM
, "VTALRM", TRUE
},
278 #if defined(SIGPROF) && !defined(FEAT_MZSCHEME) && !defined(WE_ARE_PROFILING)
279 /* MzScheme uses SIGPROF for its own needs; On Linux with profiling
280 * this makes Vim exit. WE_ARE_PROFILING is defined in Makefile. */
281 {SIGPROF
, "PROF", TRUE
},
284 {SIGXCPU
, "XCPU", TRUE
},
287 {SIGXFSZ
, "XFSZ", TRUE
},
290 {SIGUSR1
, "USR1", TRUE
},
293 {SIGUSR2
, "USR2", TRUE
},
296 {SIGINT
, "INT", FALSE
},
299 {SIGWINCH
, "WINCH", FALSE
},
302 {SIGTSTP
, "TSTP", FALSE
},
305 {SIGPIPE
, "PIPE", FALSE
},
307 {-1, "Unknown!", FALSE
}
315 write(1, (char *)s
, len
);
316 if (p_wd
) /* Unix is too fast, slow down a bit more */
317 RealWaitForChar(read_cmd_fd
, p_wd
, NULL
);
321 * mch_inchar(): low level input function.
322 * Get a characters from the keyboard.
323 * Return the number of characters that are available.
324 * If wtime == 0 do not wait for characters.
325 * If wtime == n wait a short time for characters.
326 * If wtime == -1 wait forever for characters.
329 mch_inchar(buf
, maxlen
, wtime
, tb_change_cnt
)
332 long wtime
; /* don't use "time", MIPS cannot handle it */
337 /* Check if window changed size while we were busy, perhaps the ":set
338 * columns=99" command was used. */
344 while (WaitForChar(wtime
) == 0) /* no character available */
346 if (!do_resize
) /* return if not interrupted by resize */
351 else /* wtime == -1 */
354 * If there is no character available within 'updatetime' seconds
355 * flush all the swap files to disk.
356 * Also done when interrupted by SIGWINCH.
358 if (WaitForChar(p_ut
) == 0)
361 if (trigger_cursorhold() && maxlen
>= 3
362 && !typebuf_changed(tb_change_cnt
))
366 buf
[2] = (int)KE_CURSORHOLD
;
374 for (;;) /* repeat until we got a character */
376 while (do_resize
) /* window changed size */
379 * we want to be interrupted by the winch signal
382 if (do_resize
) /* interrupted by SIGWINCH signal */
385 /* If input was put directly in typeahead buffer bail out here. */
386 if (typebuf_changed(tb_change_cnt
))
390 * For some terminals we only get one character at a time.
391 * We want the get all available characters, so we could keep on
392 * trying until none is available
393 * For some other terminals this is quite slow, that's why we don't do
396 len
= read_from_input_buf(buf
, (long)maxlen
);
402 for (i
= 0; i
< len
; i
++)
419 * return non-zero if a character is available
424 return WaitForChar(0L);
427 #if defined(HAVE_TOTAL_MEM) || defined(PROTO)
428 # ifdef HAVE_SYS_RESOURCE_H
429 # include <sys/resource.h>
431 # if defined(HAVE_SYS_SYSCTL_H) && defined(HAVE_SYSCTL)
432 # include <sys/sysctl.h>
434 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
435 # include <sys/sysinfo.h>
439 * Return total amount of memory available in Kbyte.
440 * Doesn't change when memory has been allocated.
444 mch_total_mem(special
)
448 return ulimit(3, 0L) >> 10; /* always 32MB? */
451 long_u shiftright
= 10; /* how much to shift "mem" right for Kbyte */
457 /* BSD way of getting the amount of RAM available. */
460 len
= sizeof(physmem
);
461 if (sysctl(mib
, 2, &physmem
, &len
, NULL
, 0) == 0)
462 mem
= (long_u
)physmem
;
465 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
468 struct sysinfo sinfo
;
470 /* Linux way of getting amount of RAM available */
471 if (sysinfo(&sinfo
) == 0)
473 # ifdef HAVE_SYSINFO_MEM_UNIT
474 /* avoid overflow as much as possible */
475 while (shiftright
> 0 && (sinfo
.mem_unit
& 1) == 0)
477 sinfo
.mem_unit
= sinfo
.mem_unit
>> 1;
480 mem
= sinfo
.totalram
* sinfo
.mem_unit
;
482 mem
= sinfo
.totalram
;
491 long pagesize
, pagecount
;
493 /* Solaris way of getting amount of RAM available */
494 pagesize
= sysconf(_SC_PAGESIZE
);
495 pagecount
= sysconf(_SC_PHYS_PAGES
);
496 if (pagesize
> 0 && pagecount
> 0)
498 /* avoid overflow as much as possible */
499 while (shiftright
> 0 && (pagesize
& 1) == 0)
501 pagesize
= (long_u
)pagesize
>> 1;
504 mem
= (long_u
)pagesize
* pagecount
;
509 /* Return the minimum of the physical memory and the user limit, because
510 * using more than the user limit may cause Vim to be terminated. */
511 # if defined(HAVE_SYS_RESOURCE_H) && defined(HAVE_GETRLIMIT)
515 if (getrlimit(RLIMIT_DATA
, &rlp
) == 0
516 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
517 # ifdef RLIM_INFINITY
518 && rlp
.rlim_cur
!= RLIM_INFINITY
520 && ((long_u
)rlp
.rlim_cur
>> 10) < (mem
>> shiftright
)
523 mem
= (long_u
)rlp
.rlim_cur
;
530 return mem
>> shiftright
;
531 return (long_u
)0x1fffff;
537 mch_delay(msec
, ignoreinput
)
543 long total
= msec
; /* remember original value */
548 /* Go to cooked mode without echo, to allow SIGINT interrupting us
549 * here. But we don't want QUIT to kill us (CTRL-\ used in a
550 * shell may produce SIGQUIT). */
552 old_tmode
= curr_tmode
;
553 if (curr_tmode
== TMODE_RAW
)
554 settmode(TMODE_SLEEP
);
557 * Everybody sleeps in a different way...
558 * Prefer nanosleep(), some versions of usleep() can only sleep up to
564 /* if total is large enough, wait by portions in p_mzq */
571 #ifdef HAVE_NANOSLEEP
575 ts
.tv_sec
= msec
/ 1000;
576 ts
.tv_nsec
= (msec
% 1000) * 1000000;
577 (void)nanosleep(&ts
, NULL
);
583 usleep((unsigned int)(999 * 1000));
586 usleep((unsigned int)(msec
* 1000));
589 poll(NULL
, 0, (int)msec
);
597 tv
.tv_sec
= msec
/ 1000;
598 tv
.tv_usec
= (msec
% 1000) * 1000;
600 * NOTE: Solaris 2.6 has a bug that makes select() hang here. Get
601 * a patch from Sun to fix this. Reported by Gunnar Pedersen.
603 select(0, NULL
, NULL
, NULL
, &tv
);
605 # endif /* __EMX__ */
606 # endif /* HAVE_SELECT */
607 # endif /* HAVE_NANOSLEEP */
608 #endif /* HAVE_USLEEP */
615 in_mch_delay
= FALSE
;
621 #if 0 /* disabled, no longer needed now that regmatch() is not recursive */
622 # if defined(HAVE_GETRLIMIT)
623 # define HAVE_STACK_LIMIT
627 #if defined(HAVE_STACK_LIMIT) \
628 || (!defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGSTACK))
629 # define HAVE_CHECK_STACK_GROWTH
631 * Support for checking for an almost-out-of-stack-space situation.
635 * Return a pointer to an item on the stack. Used to find out if the stack
638 static void check_stack_growth
__ARGS((char *p
));
639 static int stack_grows_downwards
;
642 * Find out if the stack grows upwards or downwards.
643 * "p" points to a variable on the stack of the caller.
646 check_stack_growth(p
)
651 stack_grows_downwards
= (p
> (char *)&i
);
655 #if defined(HAVE_STACK_LIMIT) || defined(PROTO)
656 static char *stack_limit
= NULL
;
658 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
659 # include <pthread.h>
660 # include <pthread_np.h>
664 * Find out until how var the stack can grow without getting into trouble.
665 * Called when starting up and when switching to the signal stack in
675 /* Set the stack limit to 15/16 of the allowable size. Skip this when the
676 * limit doesn't fit in a long (rlim_cur might be "long long"). */
677 if (getrlimit(RLIMIT_STACK
, &rlp
) == 0
678 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
679 # ifdef RLIM_INFINITY
680 && rlp
.rlim_cur
!= RLIM_INFINITY
684 lim
= (long)rlp
.rlim_cur
;
685 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
690 /* On FreeBSD the initial thread always has a fixed stack size, no
691 * matter what the limits are set to. Normally it's 1 Mbyte. */
692 pthread_attr_init(&attr
);
693 if (pthread_attr_get_np(pthread_self(), &attr
) == 0)
695 pthread_attr_getstacksize(&attr
, &size
);
696 if (lim
> (long)size
)
699 pthread_attr_destroy(&attr
);
702 if (stack_grows_downwards
)
704 stack_limit
= (char *)((long)&i
- (lim
/ 16L * 15L));
705 if (stack_limit
>= (char *)&i
)
706 /* overflow, set to 1/16 of current stack position */
707 stack_limit
= (char *)((long)&i
/ 16L);
711 stack_limit
= (char *)((long)&i
+ (lim
/ 16L * 15L));
712 if (stack_limit
<= (char *)&i
)
713 stack_limit
= NULL
; /* overflow */
719 * Return FAIL when running out of stack space.
720 * "p" must point to any variable local to the caller that's on the stack.
726 if (stack_limit
!= NULL
)
728 if (stack_grows_downwards
)
733 else if (p
> stack_limit
)
740 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
742 * Support for using the signal stack.
743 * This helps when we run out of stack space, which causes a SIGSEGV. The
744 * signal handler then must run on another stack, since the normal stack is
749 # define SIGSTKSZ 8000 /* just a guess of how much stack is needed... */
752 # ifdef HAVE_SIGALTSTACK
753 static stack_t sigstk
; /* for sigaltstack() */
755 static struct sigstack sigstk
; /* for sigstack() */
758 static void init_signal_stack
__ARGS((void));
759 static char *signal_stack
;
764 if (signal_stack
!= NULL
)
766 # ifdef HAVE_SIGALTSTACK
767 # if defined(__APPLE__) && (!defined(MAC_OS_X_VERSION_MAX_ALLOWED) \
768 || MAC_OS_X_VERSION_MAX_ALLOWED <= 1040)
769 /* missing prototype. Adding it to osdef?.h.in doesn't work, because
770 * "struct sigaltstack" needs to be declared. */
771 extern int sigaltstack
__ARGS((const struct sigaltstack
*ss
, struct sigaltstack
*oss
));
775 sigstk
.ss_base
= signal_stack
;
777 sigstk
.ss_sp
= signal_stack
;
779 sigstk
.ss_size
= SIGSTKSZ
;
781 (void)sigaltstack(&sigstk
, NULL
);
783 sigstk
.ss_sp
= signal_stack
;
784 if (stack_grows_downwards
)
785 sigstk
.ss_sp
+= SIGSTKSZ
- 1;
786 sigstk
.ss_onstack
= 0;
787 (void)sigstack(&sigstk
, NULL
);
794 * We need correct potatotypes for a signal function, otherwise mean compilers
795 * will barf when the second argument to signal() is ``wrong''.
796 * Let me try it with a few tricky defines from my own osdef.h (jw).
798 #if defined(SIGWINCH)
801 sig_winch
SIGDEFARG(sigarg
)
803 /* this is not required on all systems, but it doesn't hurt anybody */
804 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
813 catch_sigint
SIGDEFARG(sigarg
)
815 /* this is not required on all systems, but it doesn't hurt anybody */
816 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
825 catch_sigpwr
SIGDEFARG(sigarg
)
827 /* this is not required on all systems, but it doesn't hurt anybody */
828 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
830 * I'm not sure we get the SIGPWR signal when the system is really going
831 * down or when the batteries are almost empty. Just preserve the swap
832 * files and don't exit, that can't do any harm.
834 ml_sync_all(FALSE
, FALSE
);
841 * signal function for alarm().
845 sig_alarm
SIGDEFARG(sigarg
)
847 /* doesn't do anything, just to break a system call */
848 sig_alarm_called
= TRUE
;
853 #if (defined(HAVE_SETJMP_H) \
854 && ((defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) \
855 || defined(FEAT_LIBCALL))) \
858 * A simplistic version of setjmp() that only allows one level of using.
859 * Don't call twice before calling mch_endjmp()!.
862 * if (SETJMP(lc_jump_env) != 0)
872 * Note: Can't move SETJMP() here, because a function calling setjmp() must
873 * not return before the saved environment is used.
874 * Returns OK for normal return, FAIL when the protected code caused a
875 * problem and LONGJMP() was used.
895 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
896 /* On FreeBSD the signal stack has to be reset after using siglongjmp(),
897 * otherwise catching the signal only works once. */
904 * This function handles deadly signals.
905 * It tries to preserve any swap file and exit properly.
906 * (partly from Elvis).
909 deathtrap
SIGDEFARG(sigarg
)
911 static int entered
= 0; /* count the number of times we got here.
912 Note: when memory has been corrupted
913 this may get an arbitrary value! */
918 #if defined(HAVE_SETJMP_H)
920 * Catch a crash in protected code.
921 * Restores the environment saved in lc_jump_env, which looks like
922 * SETJMP() returns 1.
926 # if defined(SIGHASARG)
929 lc_active
= FALSE
; /* don't jump again */
930 LONGJMP(lc_jump_env
, 1);
937 /* While in mch_delay() we go to cooked mode to allow a CTRL-C to
938 * interrupt us. But in cooked mode we may also get SIGQUIT, e.g., when
939 * pressing CTRL-\, but we don't want Vim to exit then. */
940 if (in_mch_delay
&& sigarg
== SIGQUIT
)
944 /* When SIGHUP, SIGQUIT, etc. are blocked: postpone the effect and return
945 * here. This avoids that a non-reentrant function is interrupted, e.g.,
946 * free(). Calling free() again may then cause a crash. */
968 && !vim_handle_signal(sigarg
))
972 /* Remember how often we have been called. */
976 /* Set the v:dying variable. */
977 set_vim_var_nr(VV_DYING
, (long)entered
);
980 #ifdef HAVE_STACK_LIMIT
981 /* Since we are now using the signal stack, need to reset the stack
982 * limit. Otherwise using a regexp will fail. */
987 /* This is for opening gdb the moment Vim crashes.
988 * You need to manually adjust the file name and Vim executable name.
989 * Suggested by SungHyun Nam. */
991 # define VI_GDB_FILE "/tmp/vimgdb"
992 # define VIM_NAME "/usr/bin/vim"
993 FILE *fp
= fopen(VI_GDB_FILE
, "w");
1001 , VIM_NAME
, getpid());
1003 system("xterm -e gdb -x "VI_GDB_FILE
);
1004 unlink(VI_GDB_FILE
);
1010 /* try to find the name of this signal */
1011 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1012 if (sigarg
== signal_info
[i
].sig
)
1014 deadly_signal
= sigarg
;
1017 full_screen
= FALSE
; /* don't write message to the GUI, it might be
1018 * part of the problem... */
1020 * If something goes wrong after entering here, we may get here again.
1021 * When this happens, give a message and try to exit nicely (resetting the
1022 * terminal mode, etc.)
1023 * When this happens twice, just exit, don't even try to give a message,
1024 * stack may be corrupt or something weird.
1025 * When this still happens again (or memory was corrupted in such a way
1026 * that "entered" was clobbered) use _exit(), don't try freeing resources.
1030 reset_signals(); /* don't catch any signals anymore */
1038 OUT_STR(_("Vim: Double signal, exiting\n"));
1044 sprintf((char *)IObuff
, _("Vim: Caught deadly signal %s\n"),
1045 signal_info
[i
].name
);
1047 sprintf((char *)IObuff
, _("Vim: Caught deadly signal\n"));
1049 preserve_exit(); /* preserve files and exit */
1062 * On Solaris with multi-threading, suspending might not work immediately.
1063 * Catch the SIGCONT signal, which will be used as an indication whether the
1064 * suspending has been done or not.
1066 static int sigcont_received
;
1067 static RETSIGTYPE sigcont_handler
__ARGS(SIGPROTOARG
);
1070 * signal handler for SIGCONT
1074 sigcont_handler
SIGDEFARG(sigarg
)
1076 sigcont_received
= TRUE
;
1082 * If the machine has job control, use it to suspend the program,
1083 * otherwise fake it by starting a new shell.
1088 /* BeOS does have SIGTSTP, but it doesn't work. */
1089 #if defined(SIGTSTP) && !defined(__BEOS__)
1090 out_flush(); /* needed to make cursor visible on some systems */
1091 settmode(TMODE_COOK
);
1092 out_flush(); /* needed to disable mouse on some systems */
1094 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
1095 /* Since we are going to sleep, we can't respond to requests for the X
1096 * selections. Lose them, otherwise other applications will hang. But
1097 * first copy the text to cut buffer 0. */
1098 if (clip_star
.owned
|| clip_plus
.owned
)
1100 x11_export_final_selection();
1101 if (clip_star
.owned
)
1102 clip_lose_selection(&clip_star
);
1103 if (clip_plus
.owned
)
1104 clip_lose_selection(&clip_plus
);
1105 if (x11_display
!= NULL
)
1106 XFlush(x11_display
);
1111 sigcont_received
= FALSE
;
1113 kill(0, SIGTSTP
); /* send ourselves a STOP signal */
1115 /* When we didn't suspend immediately in the kill(), do it now. Happens
1116 * on multi-threaded Solaris. */
1117 if (!sigcont_received
)
1123 * Set oldtitle to NULL, so the current title is obtained again.
1128 settmode(TMODE_RAW
);
1129 need_check_timestamps
= TRUE
;
1130 did_check_timestamps
= FALSE
;
1145 #ifdef MACOS_CONVERT
1153 #if defined(SIGWINCH)
1155 * WINDOW CHANGE signal is handled with sig_winch().
1157 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
1161 * We want the STOP signal to work, to make mch_suspend() work.
1162 * For "rvim" the STOP signal is ignored.
1165 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
1168 signal(SIGCONT
, sigcont_handler
);
1172 * We want to ignore breaking of PIPEs.
1175 signal(SIGPIPE
, SIG_IGN
);
1183 * Ignore alarm signals (Perl's alarm() generates it).
1186 signal(SIGALRM
, SIG_IGN
);
1190 * Catch SIGPWR (power failure?) to preserve the swap files, so that no
1191 * work will be lost.
1194 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
1198 * Arrange for other signals to gracefully shutdown Vim.
1200 catch_signals(deathtrap
, SIG_ERR
);
1202 #if defined(FEAT_GUI) && defined(SIGHUP)
1204 * When the GUI is running, ignore the hangup signal.
1207 signal(SIGHUP
, SIG_IGN
);
1211 #if defined(SIGINT) || defined(PROTO)
1213 * Catch CTRL-C (only works while in Cooked mode).
1218 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
1225 catch_signals(SIG_DFL
, SIG_DFL
);
1227 /* SIGCONT isn't in the list, because its default action is ignore */
1228 signal(SIGCONT
, SIG_DFL
);
1233 catch_signals(func_deadly
, func_other
)
1234 RETSIGTYPE (*func_deadly
)();
1235 RETSIGTYPE (*func_other
)();
1239 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1240 if (signal_info
[i
].deadly
)
1242 #if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGACTION)
1243 struct sigaction sa
;
1245 /* Setup to use the alternate stack for the signal function. */
1246 sa
.sa_handler
= func_deadly
;
1247 sigemptyset(&sa
.sa_mask
);
1248 # if defined(__linux__) && defined(_REENTRANT)
1249 /* On Linux, with glibc compiled for kernel 2.2, there is a bug in
1250 * thread handling in combination with using the alternate stack:
1251 * pthread library functions try to use the stack pointer to
1252 * identify the current thread, causing a SEGV signal, which
1253 * recursively calls deathtrap() and hangs. */
1256 sa
.sa_flags
= SA_ONSTACK
;
1258 sigaction(signal_info
[i
].sig
, &sa
, NULL
);
1260 # if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGVEC)
1263 /* Setup to use the alternate stack for the signal function. */
1264 sv
.sv_handler
= func_deadly
;
1266 sv
.sv_flags
= SV_ONSTACK
;
1267 sigvec(signal_info
[i
].sig
, &sv
, NULL
);
1269 signal(signal_info
[i
].sig
, func_deadly
);
1273 else if (func_other
!= SIG_ERR
)
1274 signal(signal_info
[i
].sig
, func_other
);
1278 * Handling of SIGHUP, SIGQUIT and SIGTERM:
1279 * "when" == a signal: when busy, postpone and return FALSE, otherwise
1281 * "when" == SIGNAL_BLOCK: Going to be busy, block signals
1282 * "when" == SIGNAL_UNBLOCK: Going to wait, unblock signals, use postponed
1284 * Returns TRUE when Vim should exit.
1287 vim_handle_signal(sig
)
1290 static int got_signal
= 0;
1291 static int blocked
= TRUE
;
1295 case SIGNAL_BLOCK
: blocked
= TRUE
;
1298 case SIGNAL_UNBLOCK
: blocked
= FALSE
;
1299 if (got_signal
!= 0)
1301 kill(getpid(), got_signal
);
1306 default: if (!blocked
)
1307 return TRUE
; /* exit! */
1312 got_int
= TRUE
; /* break any loops */
1319 * Check_win checks whether we have an interactive stdout.
1323 mch_check_win(argc
, argv
)
1329 * Store argv[0], may be used for $VIM. Only use it if it is an absolute
1330 * name, mostly it's just "vim" and found in the path, which is unusable.
1332 if (mch_isFullName(argv
[0]))
1333 exe_name
= vim_strsave((char_u
*)argv
[0]);
1341 * Return TRUE if the input comes from a terminal, FALSE otherwise.
1346 if (isatty(read_cmd_fd
))
1353 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H) \
1354 && (defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE))
1356 static void xopen_message
__ARGS((struct timeval
*tvp
));
1359 * Give a message about the elapsed time for opening the X window.
1363 struct timeval
*tvp
; /* must contain start time */
1365 struct timeval end_tv
;
1367 /* Compute elapsed time. */
1368 gettimeofday(&end_tv
, NULL
);
1369 smsg((char_u
*)_("Opening the X display took %ld msec"),
1370 (end_tv
.tv_sec
- tvp
->tv_sec
) * 1000L
1371 + (end_tv
.tv_usec
- tvp
->tv_usec
) / 1000L);
1376 #if defined(FEAT_X11) && (defined(FEAT_TITLE) || defined(FEAT_XCLIPBOARD))
1378 * A few functions shared by X11 title and clipboard code.
1380 static int x_error_handler
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1381 static int x_error_check
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1382 static int x_connect_to_server
__ARGS((void));
1383 static int test_x11_window
__ARGS((Display
*dpy
));
1385 static int got_x_error
= FALSE
;
1388 * X Error handler, otherwise X just exits! (very rude) -- webb
1391 x_error_handler(dpy
, error_event
)
1393 XErrorEvent
*error_event
;
1395 XGetErrorText(dpy
, error_event
->error_code
, (char *)IObuff
, IOSIZE
);
1396 STRCAT(IObuff
, _("\nVim: Got X error\n"));
1398 /* We cannot print a message and continue, because no X calls are allowed
1399 * here (causes my system to hang). Silently continuing might be an
1401 preserve_exit(); /* preserve files and exit */
1403 return 0; /* NOTREACHED */
1407 * Another X Error handler, just used to check for errors.
1411 x_error_check(dpy
, error_event
)
1413 XErrorEvent
*error_event
;
1419 #if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
1420 # if defined(HAVE_SETJMP_H)
1422 * An X IO Error handler, used to catch error while opening the display.
1424 static int x_IOerror_check
__ARGS((Display
*dpy
));
1428 x_IOerror_check(dpy
)
1431 /* This function should not return, it causes exit(). Longjump instead. */
1432 LONGJMP(lc_jump_env
, 1);
1439 * An X IO Error handler, used to catch terminal errors.
1441 static int x_IOerror_handler
__ARGS((Display
*dpy
));
1445 x_IOerror_handler(dpy
)
1451 xterm_Shell
= (Widget
)0;
1453 /* This function should not return, it causes exit(). Longjump instead. */
1454 LONGJMP(x_jump_env
, 1);
1461 * Return TRUE when connection to the X server is desired.
1464 x_connect_to_server()
1466 regmatch_T regmatch
;
1468 #if defined(FEAT_CLIENTSERVER)
1469 if (x_force_connect
)
1475 /* Check for a match with "exclude:" from 'clipboard'. */
1476 if (clip_exclude_prog
!= NULL
)
1478 regmatch
.rm_ic
= FALSE
; /* Don't ignore case */
1479 regmatch
.regprog
= clip_exclude_prog
;
1480 if (vim_regexec(®match
, T_NAME
, (colnr_T
)0))
1487 * Test if "dpy" and x11_window are valid by getting the window title.
1488 * I don't actually want it yet, so there may be a simpler call to use, but
1489 * this will cause the error handler x_error_check() to be called if anything
1490 * is wrong, such as the window pointer being invalid (as can happen when the
1491 * user changes his DISPLAY, but not his WINDOWID) -- webb
1494 test_x11_window(dpy
)
1497 int (*old_handler
)();
1498 XTextProperty text_prop
;
1500 old_handler
= XSetErrorHandler(x_error_check
);
1501 got_x_error
= FALSE
;
1502 if (XGetWMName(dpy
, x11_window
, &text_prop
))
1503 XFree((void *)text_prop
.value
);
1505 (void)XSetErrorHandler(old_handler
);
1507 if (p_verbose
> 0 && got_x_error
)
1508 verb_msg((char_u
*)_("Testing the X display failed"));
1510 return (got_x_error
? FAIL
: OK
);
1518 static int get_x11_thing
__ARGS((int get_title
, int test_only
));
1521 * try to get x11 window and display
1523 * return FAIL for failure, OK otherwise
1529 static int result
= -1;
1530 #define XD_NONE 0 /* x11_display not set here */
1531 #define XD_HERE 1 /* x11_display opened here */
1532 #define XD_GUI 2 /* x11_display used from gui.dpy */
1533 #define XD_XTERM 3 /* x11_display used from xterm_dpy */
1534 static int x11_display_from
= XD_NONE
;
1535 static int did_set_error_handler
= FALSE
;
1537 if (!did_set_error_handler
)
1539 /* X just exits if it finds an error otherwise! */
1540 (void)XSetErrorHandler(x_error_handler
);
1541 did_set_error_handler
= TRUE
;
1544 #if defined(FEAT_GUI_X11) || defined(FEAT_GUI_GTK)
1548 * If the X11 display was opened here before, for the window where Vim
1549 * was started, close that one now to avoid a memory leak.
1551 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1553 XCloseDisplay(x11_display
);
1554 x11_display_from
= XD_NONE
;
1556 if (gui_get_x11_windis(&x11_window
, &x11_display
) == OK
)
1558 x11_display_from
= XD_GUI
;
1564 else if (x11_display_from
== XD_GUI
)
1566 /* GUI must have stopped somehow, clear x11_display */
1569 x11_display_from
= XD_NONE
;
1573 /* When started with the "-X" argument, don't try connecting. */
1574 if (!x_connect_to_server())
1578 * If WINDOWID not set, should try another method to find out
1579 * what the current window number is. The only code I know for
1580 * this is very complicated.
1581 * We assume that zero is invalid for WINDOWID.
1583 if (x11_window
== 0 && (winid
= getenv("WINDOWID")) != NULL
)
1584 x11_window
= (Window
)atol(winid
);
1586 #ifdef FEAT_XCLIPBOARD
1587 if (xterm_dpy
!= NULL
&& x11_window
!= 0)
1589 /* We may have checked it already, but Gnome terminal can move us to
1590 * another window, so we need to check every time. */
1591 if (x11_display_from
!= XD_XTERM
)
1594 * If the X11 display was opened here before, for the window where
1595 * Vim was started, close that one now to avoid a memory leak.
1597 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1598 XCloseDisplay(x11_display
);
1599 x11_display
= xterm_dpy
;
1600 x11_display_from
= XD_XTERM
;
1602 if (test_x11_window(x11_display
) == FAIL
)
1604 /* probably bad $WINDOWID */
1607 x11_display_from
= XD_NONE
;
1614 if (x11_window
== 0 || x11_display
== NULL
)
1617 if (result
!= -1) /* Have already been here and set this */
1618 return result
; /* Don't do all these X calls again */
1620 if (x11_window
!= 0 && x11_display
== NULL
)
1622 #ifdef SET_SIG_ALARM
1623 RETSIGTYPE (*sig_save
)();
1625 #if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1626 struct timeval start_tv
;
1629 gettimeofday(&start_tv
, NULL
);
1632 #ifdef SET_SIG_ALARM
1634 * Opening the Display may hang if the DISPLAY setting is wrong, or
1635 * the network connection is bad. Set an alarm timer to get out.
1637 sig_alarm_called
= FALSE
;
1638 sig_save
= (RETSIGTYPE (*)())signal(SIGALRM
,
1639 (RETSIGTYPE (*)())sig_alarm
);
1642 x11_display
= XOpenDisplay(NULL
);
1644 #ifdef SET_SIG_ALARM
1646 signal(SIGALRM
, (RETSIGTYPE (*)())sig_save
);
1647 if (p_verbose
> 0 && sig_alarm_called
)
1648 verb_msg((char_u
*)_("Opening the X display timed out"));
1650 if (x11_display
!= NULL
)
1652 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1656 xopen_message(&start_tv
);
1660 if (test_x11_window(x11_display
) == FAIL
)
1662 /* Maybe window id is bad */
1664 XCloseDisplay(x11_display
);
1668 x11_display_from
= XD_HERE
;
1671 if (x11_window
== 0 || x11_display
== NULL
)
1672 return (result
= FAIL
);
1673 return (result
= OK
);
1677 * Determine original x11 Window Title
1680 get_x11_title(test_only
)
1683 return get_x11_thing(TRUE
, test_only
);
1687 * Determine original x11 Window icon
1690 get_x11_icon(test_only
)
1695 retval
= get_x11_thing(FALSE
, test_only
);
1697 /* could not get old icon, use terminal name */
1698 if (oldicon
== NULL
&& !test_only
)
1700 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1701 oldicon
= T_NAME
+ 8;
1710 get_x11_thing(get_title
, test_only
)
1711 int get_title
; /* get title string */
1714 XTextProperty text_prop
;
1718 if (get_x11_windis() == OK
)
1720 /* Get window/icon name if any */
1722 status
= XGetWMName(x11_display
, x11_window
, &text_prop
);
1724 status
= XGetWMIconName(x11_display
, x11_window
, &text_prop
);
1727 * If terminal is xterm, then x11_window may be a child window of the
1728 * outer xterm window that actually contains the window/icon name, so
1729 * keep traversing up the tree until a window with a title/icon is
1732 /* Previously this was only done for xterm and alikes. I don't see a
1733 * reason why it would fail for other terminal emulators.
1734 * if (term_is_xterm) */
1738 Window win
= x11_window
;
1740 unsigned int num_children
;
1742 while (!status
|| text_prop
.value
== NULL
)
1744 if (!XQueryTree(x11_display
, win
, &root
, &parent
, &children
,
1748 XFree((void *)children
);
1749 if (parent
== root
|| parent
== 0)
1754 status
= XGetWMName(x11_display
, win
, &text_prop
);
1756 status
= XGetWMIconName(x11_display
, win
, &text_prop
);
1759 if (status
&& text_prop
.value
!= NULL
)
1764 #ifdef FEAT_XFONTSET
1765 if (text_prop
.encoding
== XA_STRING
)
1769 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1771 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1772 #ifdef FEAT_XFONTSET
1777 Status transform_status
;
1780 transform_status
= XmbTextPropertyToTextList(x11_display
,
1783 if (transform_status
>= Success
&& n
> 0 && cl
[0])
1786 oldtitle
= vim_strsave((char_u
*) cl
[0]);
1788 oldicon
= vim_strsave((char_u
*) cl
[0]);
1789 XFreeStringList(cl
);
1794 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1796 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1801 XFree((void *)text_prop
.value
);
1807 /* Are Xutf8 functions available? Avoid error from old compilers. */
1808 #if defined(X_HAVE_UTF8_STRING) && defined(FEAT_MBYTE)
1809 # if X_HAVE_UTF8_STRING
1810 # define USE_UTF8_STRING
1815 * Set x11 Window Title
1817 * get_x11_windis() must be called before this and have returned OK
1820 set_x11_title(title
)
1823 /* XmbSetWMProperties() and Xutf8SetWMProperties() should use a STRING
1824 * when possible, COMPOUND_TEXT otherwise. COMPOUND_TEXT isn't
1825 * supported everywhere and STRING doesn't work for multi-byte titles.
1827 #ifdef USE_UTF8_STRING
1829 Xutf8SetWMProperties(x11_display
, x11_window
, (const char *)title
,
1830 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1834 #if XtSpecificationRelease >= 4
1835 # ifdef FEAT_XFONTSET
1836 XmbSetWMProperties(x11_display
, x11_window
, (const char *)title
,
1837 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1839 XTextProperty text_prop
;
1840 char *c_title
= (char *)title
;
1842 /* directly from example 3-18 "basicwin" of Xlib Programming Manual */
1843 (void)XStringListToTextProperty(&c_title
, 1, &text_prop
);
1844 XSetWMProperties(x11_display
, x11_window
, &text_prop
,
1845 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1848 XStoreName(x11_display
, x11_window
, (char *)title
);
1851 XFlush(x11_display
);
1855 * Set x11 Window icon
1857 * get_x11_windis() must be called before this and have returned OK
1863 /* See above for comments about using X*SetWMProperties(). */
1864 #ifdef USE_UTF8_STRING
1866 Xutf8SetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1867 NULL
, 0, NULL
, NULL
, NULL
);
1871 #if XtSpecificationRelease >= 4
1872 # ifdef FEAT_XFONTSET
1873 XmbSetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1874 NULL
, 0, NULL
, NULL
, NULL
);
1876 XTextProperty text_prop
;
1877 char *c_icon
= (char *)icon
;
1879 (void)XStringListToTextProperty(&c_icon
, 1, &text_prop
);
1880 XSetWMProperties(x11_display
, x11_window
, NULL
, &text_prop
,
1881 NULL
, 0, NULL
, NULL
, NULL
);
1884 XSetIconName(x11_display
, x11_window
, (char *)icon
);
1887 XFlush(x11_display
);
1890 #else /* FEAT_X11 */
1894 get_x11_title(test_only
)
1901 get_x11_icon(test_only
)
1906 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1907 oldicon
= T_NAME
+ 8;
1914 #endif /* FEAT_X11 */
1917 mch_can_restore_title()
1919 return get_x11_title(TRUE
);
1923 mch_can_restore_icon()
1925 return get_x11_icon(TRUE
);
1929 * Set the window title and icon.
1932 mch_settitle(title
, icon
)
1937 static int recursive
= 0;
1939 if (T_NAME
== NULL
) /* no terminal name (yet) */
1941 if (title
== NULL
&& icon
== NULL
) /* nothing to do */
1944 /* When one of the X11 functions causes a deadly signal, we get here again
1945 * recursively. Avoid hanging then (something is probably locked). */
1951 * if the window ID and the display is known, we may use X11 calls
1954 if (get_x11_windis() == OK
)
1957 # if defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) \
1958 || defined(FEAT_GUI_GTK) || defined(FEAT_GUI_MACVIM)
1965 * Note: if "t_TS" is set, title is set with escape sequence rather
1966 * than x11 calls, because the x11 calls don't always work
1968 if ((type
|| *T_TS
!= NUL
) && title
!= NULL
)
1970 if (oldtitle
== NULL
1974 ) /* first call but not in GUI, save title */
1975 (void)get_x11_title(FALSE
);
1977 if (*T_TS
!= NUL
) /* it's OK if t_fs is empty */
1978 term_settitle(title
);
1981 # ifdef FEAT_GUI_GTK
1982 if (!gui
.in_use
) /* don't do this if GTK+ is running */
1984 set_x11_title(title
); /* x11 */
1986 #if defined(FEAT_GUI_GTK) \
1987 || defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) \
1988 || defined(FEAT_GUI_MACVIM)
1990 gui_mch_settitle(title
, icon
);
1992 did_set_title
= TRUE
;
1995 if ((type
|| *T_CIS
!= NUL
) && icon
!= NULL
)
2001 ) /* first call, save icon */
2002 get_x11_icon(FALSE
);
2006 out_str(T_CIS
); /* set icon start */
2008 out_str(T_CIE
); /* set icon end */
2013 # ifdef FEAT_GUI_GTK
2014 if (!gui
.in_use
) /* don't do this if GTK+ is running */
2016 set_x11_icon(icon
); /* x11 */
2018 did_set_icon
= TRUE
;
2024 * Restore the window/icon title.
2025 * "which" is one of:
2026 * 1 only restore title
2027 * 2 only restore icon
2028 * 3 restore title and icon
2031 mch_restore_title(which
)
2034 /* only restore the title or icon when it has been set */
2035 mch_settitle(((which
& 1) && did_set_title
) ?
2036 (oldtitle
? oldtitle
: p_titleold
) : NULL
,
2037 ((which
& 2) && did_set_icon
) ? oldicon
: NULL
);
2040 #endif /* FEAT_TITLE */
2043 * Return TRUE if "name" looks like some xterm name.
2044 * Seiichi Sato mentioned that "mlterm" works like xterm.
2052 return (STRNICMP(name
, "xterm", 5) == 0
2053 || STRNICMP(name
, "nxterm", 6) == 0
2054 || STRNICMP(name
, "kterm", 5) == 0
2055 || STRNICMP(name
, "mlterm", 6) == 0
2056 || STRNICMP(name
, "rxvt", 4) == 0
2057 || STRCMP(name
, "builtin_xterm") == 0);
2060 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
2062 * Return non-zero when using an xterm mouse, according to 'ttymouse'.
2063 * Return 1 for "xterm".
2064 * Return 2 for "xterm2".
2069 if (ttym_flags
== TTYM_XTERM2
)
2071 if (ttym_flags
== TTYM_XTERM
)
2083 return (STRNICMP(name
, "iris-ansi", 9) == 0
2084 || STRCMP(name
, "builtin_iris-ansi") == 0);
2092 return FALSE
; /* actually all ANSI comp. terminals should be here */
2093 /* catch VT100 - VT5xx */
2094 return ((STRNICMP(name
, "vt", 2) == 0
2095 && vim_strchr((char_u
*)"12345", name
[2]) != NULL
)
2096 || STRCMP(name
, "builtin_vt320") == 0);
2100 * Return TRUE if "name" is a terminal for which 'ttyfast' should be set.
2101 * This should include all windowed terminal emulators.
2104 vim_is_fastterm(name
)
2109 if (vim_is_xterm(name
) || vim_is_vt300(name
) || vim_is_iris(name
))
2111 return ( STRNICMP(name
, "hpterm", 6) == 0
2112 || STRNICMP(name
, "sun-cmd", 7) == 0
2113 || STRNICMP(name
, "screen", 6) == 0
2114 || STRNICMP(name
, "dtterm", 6) == 0);
2118 * Insert user name in s[len].
2119 * Return OK if a name found.
2122 mch_get_user_name(s
, len
)
2127 vim_strncpy(s
, (char_u
*)cuserid(NULL
), len
- 1);
2130 return mch_get_uname(getuid(), s
, len
);
2135 * Insert user name for "uid" in s[len].
2136 * Return OK if a name found.
2139 mch_get_uname(uid
, s
, len
)
2144 #if defined(HAVE_PWD_H) && defined(HAVE_GETPWUID)
2147 if ((pw
= getpwuid(uid
)) != NULL
2148 && pw
->pw_name
!= NULL
&& *(pw
->pw_name
) != NUL
)
2150 vim_strncpy(s
, (char_u
*)pw
->pw_name
, len
- 1);
2154 sprintf((char *)s
, "%d", (int)uid
); /* assumes s is long enough */
2155 return FAIL
; /* a number is not a name */
2159 * Insert host name is s[len].
2162 #ifdef HAVE_SYS_UTSNAME_H
2164 mch_get_host_name(s
, len
)
2168 struct utsname vutsname
;
2170 if (uname(&vutsname
) < 0)
2173 vim_strncpy(s
, (char_u
*)vutsname
.nodename
, len
- 1);
2175 #else /* HAVE_SYS_UTSNAME_H */
2177 # ifdef HAVE_SYS_SYSTEMINFO_H
2178 # define gethostname(nam, len) sysinfo(SI_HOSTNAME, nam, len)
2182 mch_get_host_name(s
, len
)
2187 vaxc$
gethostname((char *)s
, len
);
2189 gethostname((char *)s
, len
);
2191 s
[len
- 1] = NUL
; /* make sure it's terminated */
2193 #endif /* HAVE_SYS_UTSNAME_H */
2201 return (long)getpid();
2204 #if !defined(HAVE_STRERROR) && defined(USE_GETCWD)
2205 static char *strerror
__ARGS((int));
2211 extern int sys_nerr
;
2212 extern char *sys_errlist
[];
2215 if (err
> 0 && err
< sys_nerr
)
2216 return (sys_errlist
[err
]);
2217 sprintf(er
, "Error %d", err
);
2223 * Get name of current directory into buffer 'buf' of length 'len' bytes.
2224 * Return OK for success, FAIL for failure.
2227 mch_dirname(buf
, len
)
2231 #if defined(USE_GETCWD)
2232 if (getcwd((char *)buf
, len
) == NULL
)
2234 STRCPY(buf
, strerror(errno
));
2239 return (getwd((char *)buf
) != NULL
? OK
: FAIL
);
2243 #if defined(OS2) || defined(PROTO)
2245 * Replace all slashes by backslashes.
2246 * When 'shellslash' set do it the other way around.
2262 * Get absolute file name into "buf[len]".
2264 * return FAIL for failure, OK for success
2267 mch_FullName(fname
, buf
, len
, force
)
2268 char_u
*fname
, *buf
;
2270 int force
; /* also expand when already absolute path */
2274 int only_drive
; /* file name is only a drive letter */
2278 static int dont_fchdir
= FALSE
; /* TRUE when fchdir() doesn't work */
2280 char_u olddir
[MAXPATHL
];
2285 fname
= vms_fixfilename(fname
);
2290 * This helps for when "/etc/hosts" is a symlink to "c:/something/hosts".
2292 cygwin_conv_to_posix_path(fname
, fname
);
2295 /* expand it if forced or not an absolute path */
2296 if (force
|| !mch_isFullName(fname
))
2299 * If the file name has a path, change to that directory for a moment,
2300 * and then do the getwd() (and get back to where we were).
2301 * This will get the correct path name with "../" things.
2305 if (((p
= vim_strrchr(fname
, '/')) != NULL
)
2306 || ((p
= vim_strrchr(fname
, '\\')) != NULL
)
2307 || (((p
= vim_strchr(fname
, ':')) != NULL
) && ++only_drive
))
2309 if ((p
= vim_strrchr(fname
, '/')) != NULL
)
2314 * Use fchdir() if possible, it's said to be faster and more
2315 * reliable. But on SunOS 4 it might not work. Check this by
2316 * doing a fchdir() right now.
2320 fd
= open(".", O_RDONLY
| O_EXTRA
, 0);
2321 if (fd
>= 0 && fchdir(fd
) < 0)
2325 dont_fchdir
= TRUE
; /* don't try again */
2330 /* Only change directory when we are sure we can return to where
2331 * we are now. After doing "su" chdir(".") might not work. */
2336 (mch_dirname(olddir
, MAXPATHL
) == FAIL
2337 || mch_chdir((char *)olddir
) != 0))
2339 p
= NULL
; /* can't get current dir: don't chdir */
2346 * compensate for case where ':' from "D:" was the only
2347 * path separator detected in the file name; the _next_
2348 * character has to be removed, and then restored later.
2353 /* The directory is copied into buf[], to be able to remove
2354 * the file name without changing it (could be a string in
2355 * read-only memory) */
2356 if (p
- fname
>= len
)
2360 vim_strncpy(buf
, fname
, p
- fname
);
2361 if (mch_chdir((char *)buf
))
2377 if (mch_dirname(buf
, len
) == FAIL
)
2392 l
= mch_chdir((char *)olddir
);
2394 EMSG(_(e_prev_dir
));
2403 if (l
> 0 && buf
[l
- 1] != '/' && *fname
!= NUL
2404 && STRCMP(fname
, ".") != 0)
2410 /* Catch file names which are too long. */
2411 if (retval
== FAIL
|| STRLEN(buf
) + STRLEN(fname
) >= len
)
2414 /* Do not append ".", "/dir/." is equal to "/dir". */
2415 if (STRCMP(fname
, ".") != 0)
2422 * Return TRUE if "fname" does not depend on the current directory.
2425 mch_isFullName(fname
)
2429 return _fnisabs(fname
);
2432 return ( fname
[0] == '/' || fname
[0] == '.' ||
2433 strchr((char *)fname
,':') || strchr((char *)fname
,'"') ||
2434 (strchr((char *)fname
,'[') && strchr((char *)fname
,']'))||
2435 (strchr((char *)fname
,'<') && strchr((char *)fname
,'>')) );
2437 return (*fname
== '/' || *fname
== '~');
2442 #if defined(USE_FNAME_CASE) || defined(PROTO)
2444 * Set the case of the file name, if it already exists. This will cause the
2445 * file name to remain exactly the same.
2446 * Only required for file systems where case is ignored and preserved.
2450 fname_case(name
, len
)
2452 int len
; /* buffer size, only used when name gets longer */
2455 char_u
*slash
, *tail
;
2459 if (lstat((char *)name
, &st
) >= 0)
2461 /* Open the directory where the file is located. */
2462 slash
= vim_strrchr(name
, '/');
2465 dirp
= opendir(".");
2471 dirp
= opendir((char *)name
);
2478 while ((dp
= readdir(dirp
)) != NULL
)
2480 /* Only accept names that differ in case and are the same byte
2481 * length. TODO: accept different length name. */
2482 if (STRICMP(tail
, dp
->d_name
) == 0
2483 && STRLEN(tail
) == STRLEN(dp
->d_name
))
2485 char_u newname
[MAXPATHL
+ 1];
2488 /* Verify the inode is equal. */
2489 vim_strncpy(newname
, name
, MAXPATHL
);
2490 vim_strncpy(newname
+ (tail
- name
), (char_u
*)dp
->d_name
,
2491 MAXPATHL
- (tail
- name
));
2492 if (lstat((char *)newname
, &st2
) >= 0
2493 && st
.st_ino
== st2
.st_ino
2494 && st
.st_dev
== st2
.st_dev
)
2496 STRCPY(tail
, dp
->d_name
);
2509 * Get file permissions for 'name'.
2510 * Returns -1 when it doesn't exist.
2518 /* Keep the #ifdef outside of stat(), it may be a macro. */
2520 if (stat((char *)vms_fixfilename(name
), &statb
))
2522 if (stat((char *)name
, &statb
))
2526 /* The top bit makes the value negative, which means the file doesn't
2527 * exist. Remove the bit, we don't use it. */
2528 return statb
.st_mode
& ~S_ADDACE
;
2530 return statb
.st_mode
;
2535 * set file permission for 'name' to 'perm'
2537 * return FAIL for failure, OK otherwise
2540 mch_setperm(name
, perm
)
2544 return (chmod((char *)
2546 vms_fixfilename(name
),
2550 (mode_t
)perm
) == 0 ? OK
: FAIL
);
2553 #if defined(HAVE_ACL) || defined(PROTO)
2554 # ifdef HAVE_SYS_ACL_H
2555 # include <sys/acl.h>
2557 # ifdef HAVE_SYS_ACCESS_H
2558 # include <sys/access.h>
2561 # ifdef HAVE_SOLARIS_ACL
2562 typedef struct vim_acl_solaris_T
{
2564 aclent_t
*acl_entry
;
2565 } vim_acl_solaris_T
;
2568 #if defined(HAVE_SELINUX) || defined(PROTO)
2570 * Copy security info from "from_file" to "to_file".
2573 mch_copy_sec(from_file
, to_file
)
2577 if (from_file
== NULL
)
2580 if (selinux_enabled
== -1)
2581 selinux_enabled
= is_selinux_enabled();
2583 if (selinux_enabled
> 0)
2585 security_context_t from_context
= NULL
;
2586 security_context_t to_context
= NULL
;
2588 if (getfilecon((char *)from_file
, &from_context
) < 0)
2590 /* If the filesystem doesn't support extended attributes,
2591 the original had no special security context and the
2592 target cannot have one either. */
2593 if (errno
== EOPNOTSUPP
)
2596 MSG_PUTS(_("\nCould not get security context for "));
2597 msg_outtrans(from_file
);
2601 if (getfilecon((char *)to_file
, &to_context
) < 0)
2603 MSG_PUTS(_("\nCould not get security context for "));
2604 msg_outtrans(to_file
);
2606 freecon (from_context
);
2609 if (strcmp(from_context
, to_context
) != 0)
2611 if (setfilecon((char *)to_file
, from_context
) < 0)
2613 MSG_PUTS(_("\nCould not set security context for "));
2614 msg_outtrans(to_file
);
2618 freecon(to_context
);
2619 freecon(from_context
);
2622 #endif /* HAVE_SELINUX */
2625 * Return a pointer to the ACL of file "fname" in allocated memory.
2626 * Return NULL if the ACL is not available for whatever reason.
2632 vim_acl_T ret
= NULL
;
2633 #ifdef HAVE_POSIX_ACL
2634 ret
= (vim_acl_T
)acl_get_file((char *)fname
, ACL_TYPE_ACCESS
);
2636 #ifdef HAVE_SOLARIS_ACL
2637 vim_acl_solaris_T
*aclent
;
2639 aclent
= malloc(sizeof(vim_acl_solaris_T
));
2640 if ((aclent
->acl_cnt
= acl((char *)fname
, GETACLCNT
, 0, NULL
)) < 0)
2645 aclent
->acl_entry
= malloc(aclent
->acl_cnt
* sizeof(aclent_t
));
2646 if (acl((char *)fname
, GETACL
, aclent
->acl_cnt
, aclent
->acl_entry
) < 0)
2648 free(aclent
->acl_entry
);
2652 ret
= (vim_acl_T
)aclent
;
2654 #if defined(HAVE_AIX_ACL)
2658 aclsize
= sizeof(struct acl
);
2659 aclent
= malloc(aclsize
);
2660 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2662 if (errno
== ENOSPC
)
2664 aclsize
= aclent
->acl_len
;
2665 aclent
= realloc(aclent
, aclsize
);
2666 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2678 ret
= (vim_acl_T
)aclent
;
2679 #endif /* HAVE_AIX_ACL */
2680 #endif /* HAVE_SOLARIS_ACL */
2681 #endif /* HAVE_POSIX_ACL */
2686 * Set the ACL of file "fname" to "acl" (unless it's NULL).
2689 mch_set_acl(fname
, aclent
)
2695 #ifdef HAVE_POSIX_ACL
2696 acl_set_file((char *)fname
, ACL_TYPE_ACCESS
, (acl_t
)aclent
);
2698 #ifdef HAVE_SOLARIS_ACL
2699 acl((char *)fname
, SETACL
, ((vim_acl_solaris_T
*)aclent
)->acl_cnt
,
2700 ((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2703 chacl((char *)fname
, aclent
, ((struct acl
*)aclent
)->acl_len
);
2704 #endif /* HAVE_AIX_ACL */
2705 #endif /* HAVE_SOLARIS_ACL */
2706 #endif /* HAVE_POSIX_ACL */
2710 mch_free_acl(aclent
)
2715 #ifdef HAVE_POSIX_ACL
2716 acl_free((acl_t
)aclent
);
2718 #ifdef HAVE_SOLARIS_ACL
2719 free(((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2724 #endif /* HAVE_AIX_ACL */
2725 #endif /* HAVE_SOLARIS_ACL */
2726 #endif /* HAVE_POSIX_ACL */
2731 * Set hidden flag for "name".
2738 /* can't hide a file */
2742 * return TRUE if "name" is a directory
2743 * return FALSE if "name" is not a directory
2744 * return FALSE for error
2752 if (*name
== NUL
) /* Some stat()s don't flag "" as an error. */
2754 if (stat((char *)name
, &statb
))
2756 #ifdef _POSIX_SOURCE
2757 return (S_ISDIR(statb
.st_mode
) ? TRUE
: FALSE
);
2759 return ((statb
.st_mode
& S_IFMT
) == S_IFDIR
? TRUE
: FALSE
);
2763 static int executable_file
__ARGS((char_u
*name
));
2766 * Return 1 if "name" is an executable file, 0 if not or it doesn't exist.
2769 executable_file(name
)
2774 if (stat((char *)name
, &st
))
2776 return S_ISREG(st
.st_mode
) && mch_access((char *)name
, X_OK
) == 0;
2780 * Return 1 if "name" can be found in $PATH and executed, 0 if not.
2781 * Return -1 if unknown.
2791 /* If it's an absolute or relative path don't need to use $PATH. */
2792 if (mch_isFullName(name
) || (name
[0] == '.' && (name
[1] == '/'
2793 || (name
[1] == '.' && name
[2] == '/'))))
2794 return executable_file(name
);
2796 p
= (char_u
*)getenv("PATH");
2797 if (p
== NULL
|| *p
== NUL
)
2799 buf
= alloc((unsigned)(STRLEN(name
) + STRLEN(p
) + 2));
2804 * Walk through all entries in $PATH to check if "name" exists there and
2805 * is an executable file.
2809 e
= (char_u
*)strchr((char *)p
, ':');
2812 if (e
- p
<= 1) /* empty entry means current dir */
2816 vim_strncpy(buf
, p
, e
- p
);
2820 retval
= executable_file(buf
);
2834 * Check what "name" is:
2835 * NODE_NORMAL: file or directory (or doesn't exist)
2836 * NODE_WRITABLE: writable device, socket, fifo, etc.
2837 * NODE_OTHER: non-writable things
2845 if (stat((char *)name
, &st
))
2847 if (S_ISREG(st
.st_mode
) || S_ISDIR(st
.st_mode
))
2850 if (S_ISBLK(st
.st_mode
)) /* block device isn't writable */
2853 /* Everything else is writable? */
2854 return NODE_WRITABLE
;
2860 #ifdef HAVE_CHECK_STACK_GROWTH
2863 check_stack_growth((char *)&i
);
2865 # ifdef HAVE_STACK_LIMIT
2872 * Setup an alternative stack for signals. Helps to catch signals when
2873 * running out of stack space.
2874 * Use of sigaltstack() is preferred, it's more portable.
2875 * Ignore any errors.
2877 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2878 signal_stack
= malloc(SIGSTKSZ
);
2879 init_signal_stack();
2883 #if defined(EXITFREE) || defined(PROTO)
2887 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
2888 if (clip_star
.owned
)
2889 clip_lose_selection(&clip_star
);
2890 if (clip_plus
.owned
)
2891 clip_lose_selection(&clip_plus
);
2893 # if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
2894 if (xterm_Shell
!= (Widget
)0)
2895 XtDestroyWidget(xterm_Shell
);
2896 # ifndef LESSTIF_VERSION
2897 /* Lesstif crashes here, lose some memory */
2898 if (xterm_dpy
!= NULL
)
2899 XtCloseDisplay(xterm_dpy
);
2900 if (app_context
!= (XtAppContext
)NULL
)
2902 XtDestroyApplicationContext(app_context
);
2904 x11_display
= NULL
; /* freed by XtDestroyApplicationContext() */
2910 if (x11_display
!= NULL
2911 # ifdef FEAT_XCLIPBOARD
2912 && x11_display
!= xterm_dpy
2915 XCloseDisplay(x11_display
);
2917 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2918 vim_free(signal_stack
);
2919 signal_stack
= NULL
;
2928 static void exit_scroll
__ARGS((void));
2931 * Output a newline when exiting.
2932 * Make sure the newline goes to the same stream as the text.
2939 if (newline_on_exit
|| msg_didout
)
2941 if (msg_use_printf())
2953 restore_cterm_colors(); /* get original colors back */
2954 msg_clr_eos_force(); /* clear the rest of the display */
2955 windgoto((int)Rows
- 1, 0); /* may have moved the cursor */
2965 #if defined(FEAT_X11) && defined(FEAT_CLIPBOARD)
2966 x11_export_final_selection();
2973 settmode(TMODE_COOK
);
2975 mch_restore_title(3); /* restore xterm title and icon name */
2978 * When t_ti is not empty but it doesn't cause swapping terminal
2979 * pages, need to output a newline when msg_didout is set. But when
2980 * t_ti does swap pages it should not go to the shell page. Do this
2981 * before stoptermcap().
2983 if (swapping_screen() && !newline_on_exit
)
2986 /* Stop termcap: May need to check for T_CRV response, which
2987 * requires RAW mode. */
2991 * A newline is only required after a message in the alternate screen.
2992 * This is set to TRUE by wait_return().
2994 if (!swapping_screen() || newline_on_exit
)
2997 /* Cursor may have been switched off without calling starttermcap()
2998 * when doing "vim -u vimrc" and vimrc contains ":q". */
3003 ml_close_all(TRUE
); /* remove all memfiles */
3010 #ifdef MACOS_CONVERT
3015 /* A core dump won't be created if the signal handler
3016 * doesn't return, so we can't call exit() */
3017 if (deadly_signal
!= 0)
3021 #ifdef FEAT_NETBEANS_INTG
3023 netbeans_send_disconnect();
3036 if (deadly_signal
!= 0)
3038 signal(deadly_signal
, SIG_DFL
);
3039 kill(getpid(), deadly_signal
); /* Die using the signal we caught */
3049 static int first
= TRUE
;
3051 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3052 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3054 * for "new" tty systems
3056 # ifdef HAVE_TERMIOS_H
3057 static struct termios told
;
3058 struct termios tnew
;
3060 static struct termio told
;
3067 # if defined(HAVE_TERMIOS_H)
3068 tcgetattr(read_cmd_fd
, &told
);
3070 ioctl(read_cmd_fd
, TCGETA
, &told
);
3075 if (tmode
== TMODE_RAW
)
3078 * ~ICRNL enables typing ^V^M
3080 tnew
.c_iflag
&= ~ICRNL
;
3081 tnew
.c_lflag
&= ~(ICANON
| ECHO
| ISIG
| ECHOE
3082 # if defined(IEXTEN) && !defined(__MINT__)
3083 | IEXTEN
/* IEXTEN enables typing ^V on SOLARIS */
3084 /* but it breaks function keys on MINT */
3087 # ifdef ONLCR /* don't map NL -> CR NL, we do it ourselves */
3088 tnew
.c_oflag
&= ~ONLCR
;
3090 tnew
.c_cc
[VMIN
] = 1; /* return after 1 char */
3091 tnew
.c_cc
[VTIME
] = 0; /* don't wait */
3093 else if (tmode
== TMODE_SLEEP
)
3094 tnew
.c_lflag
&= ~(ECHO
);
3096 # if defined(HAVE_TERMIOS_H)
3100 /* A signal may cause tcsetattr() to fail (e.g., SIGCONT). Retry a
3102 while (tcsetattr(read_cmd_fd
, TCSANOW
, &tnew
) == -1
3103 && errno
== EINTR
&& n
> 0)
3107 ioctl(read_cmd_fd
, TCSETA
, &tnew
);
3113 * for "old" tty systems
3116 # define TIOCSETN TIOCSETP /* for hpux 9.0 */
3118 static struct sgttyb ttybold
;
3119 struct sgttyb ttybnew
;
3124 ioctl(read_cmd_fd
, TIOCGETP
, &ttybold
);
3128 if (tmode
== TMODE_RAW
)
3130 ttybnew
.sg_flags
&= ~(CRMOD
| ECHO
);
3131 ttybnew
.sg_flags
|= RAW
;
3133 else if (tmode
== TMODE_SLEEP
)
3134 ttybnew
.sg_flags
&= ~(ECHO
);
3135 ioctl(read_cmd_fd
, TIOCSETN
, &ttybnew
);
3141 * Try to get the code for "t_kb" from the stty setting
3143 * Even if termcap claims a backspace key, the user's setting *should*
3144 * prevail. stty knows more about reality than termcap does, and if
3145 * somebody's usual erase key is DEL (which, for most BSD users, it will
3146 * be), they're going to get really annoyed if their erase key starts
3147 * doing forward deletes for no reason. (Eric Fischer)
3155 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3156 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3157 /* for "new" tty systems */
3158 # ifdef HAVE_TERMIOS_H
3159 struct termios keys
;
3164 # if defined(HAVE_TERMIOS_H)
3165 if (tcgetattr(read_cmd_fd
, &keys
) != -1)
3167 if (ioctl(read_cmd_fd
, TCGETA
, &keys
) != -1)
3170 buf
[0] = keys
.c_cc
[VERASE
];
3171 intr_char
= keys
.c_cc
[VINTR
];
3173 /* for "old" tty systems */
3176 if (ioctl(read_cmd_fd
, TIOCGETP
, &keys
) != -1)
3178 buf
[0] = keys
.sg_erase
;
3179 intr_char
= keys
.sg_kill
;
3182 add_termcode((char_u
*)"kb", buf
, FALSE
);
3185 * If <BS> and <DEL> are now the same, redefine <DEL>.
3187 p
= find_termcode((char_u
*)"kD");
3188 if (p
!= NULL
&& p
[0] == buf
[0] && p
[1] == buf
[1])
3192 } /* to keep cindent happy */
3198 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
3200 * Set mouse clicks on or off.
3206 static int ison
= FALSE
;
3207 int xterm_mouse_vers
;
3209 if (on
== ison
) /* return quickly if nothing to do */
3212 xterm_mouse_vers
= use_xterm_mouse();
3213 if (xterm_mouse_vers
> 0)
3215 if (on
) /* enable mouse events, use mouse tracking if available */
3216 out_str_nf((char_u
*)
3217 (xterm_mouse_vers
> 1
3218 ? IF_EB("\033[?1002h", ESC_STR
"[?1002h")
3219 : IF_EB("\033[?1000h", ESC_STR
"[?1000h")));
3220 else /* disable mouse events, could probably always send the same */
3221 out_str_nf((char_u
*)
3222 (xterm_mouse_vers
> 1
3223 ? IF_EB("\033[?1002l", ESC_STR
"[?1002l")
3224 : IF_EB("\033[?1000l", ESC_STR
"[?1000l")));
3228 # ifdef FEAT_MOUSE_DEC
3229 else if (ttym_flags
== TTYM_DEC
)
3231 if (on
) /* enable mouse events */
3232 out_str_nf((char_u
*)"\033[1;2'z\033[1;3'{");
3233 else /* disable mouse events */
3234 out_str_nf((char_u
*)"\033['z");
3239 # ifdef FEAT_MOUSE_GPM
3255 # ifdef FEAT_MOUSE_JSB
3260 /* D - Enable Mouse up/down messages
3261 * L - Enable Left Button Reporting
3262 * M - Enable Middle Button Reporting
3263 * R - Enable Right Button Reporting
3264 * K - Enable SHIFT and CTRL key Reporting
3265 * + - Enable Advanced messaging of mouse moves and up/down messages
3267 * # - Numeric value of mouse pointer required
3268 * 0 = Multiview 2000 cursor, used as standard
3270 * 2 = Windows I Beam
3271 * 3 = Windows Hour Glass
3272 * 4 = Windows Cross Hair
3273 * 5 = Windows UP Arrow
3275 #ifdef JSBTERM_MOUSE_NONADVANCED /* Disables full feedback of pointer movements */
3276 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK1Q\033\\",
3277 ESC_STR
"[0~ZwLMRK1Q" ESC_STR
"\\"));
3279 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK+1Q\033\\",
3280 ESC_STR
"[0~ZwLMRK+1Q" ESC_STR
"\\"));
3286 out_str_nf((char_u
*)IF_EB("\033[0~ZwQ\033\\",
3287 ESC_STR
"[0~ZwQ" ESC_STR
"\\"));
3292 # ifdef FEAT_MOUSE_PTERM
3295 /* 1 = button press, 6 = release, 7 = drag, 1h...9l = right button */
3297 out_str_nf("\033[>1h\033[>6h\033[>7h\033[>1h\033[>9l");
3299 out_str_nf("\033[>1l\033[>6l\033[>7l\033[>1l\033[>9h");
3306 * Set the mouse termcode, depending on the 'term' and 'ttymouse' options.
3309 check_mouse_termcode()
3311 # ifdef FEAT_MOUSE_XTERM
3312 if (use_xterm_mouse()
3318 set_mouse_termcode(KS_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3319 ? IF_EB("\233M", CSI_STR
"M")
3320 : IF_EB("\033[M", ESC_STR
"[M")));
3321 if (*p_mouse
!= NUL
)
3323 /* force mouse off and maybe on to send possibly new mouse
3324 * activation sequence to the xterm, with(out) drag tracing. */
3325 mch_setmouse(FALSE
);
3330 del_mouse_termcode(KS_MOUSE
);
3333 # ifdef FEAT_MOUSE_GPM
3334 if (!use_xterm_mouse()
3339 set_mouse_termcode(KS_MOUSE
, (char_u
*)IF_EB("\033MG", ESC_STR
"MG"));
3342 # ifdef FEAT_MOUSE_JSB
3343 /* conflicts with xterm mouse: "\033[" and "\033[M" ??? */
3344 if (!use_xterm_mouse()
3349 set_mouse_termcode(KS_JSBTERM_MOUSE
,
3350 (char_u
*)IF_EB("\033[0~zw", ESC_STR
"[0~zw"));
3352 del_mouse_termcode(KS_JSBTERM_MOUSE
);
3355 # ifdef FEAT_MOUSE_NET
3356 /* There is no conflict, but one may type "ESC }" from Insert mode. Don't
3357 * define it in the GUI or when using an xterm. */
3358 if (!use_xterm_mouse()
3363 set_mouse_termcode(KS_NETTERM_MOUSE
,
3364 (char_u
*)IF_EB("\033}", ESC_STR
"}"));
3366 del_mouse_termcode(KS_NETTERM_MOUSE
);
3369 # ifdef FEAT_MOUSE_DEC
3370 /* conflicts with xterm mouse: "\033[" and "\033[M" */
3371 if (!use_xterm_mouse()
3376 set_mouse_termcode(KS_DEC_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3377 ? IF_EB("\233", CSI_STR
) : IF_EB("\033[", ESC_STR
"[")));
3379 del_mouse_termcode(KS_DEC_MOUSE
);
3381 # ifdef FEAT_MOUSE_PTERM
3382 /* same as the dec mouse */
3383 if (!use_xterm_mouse()
3388 set_mouse_termcode(KS_PTERM_MOUSE
,
3389 (char_u
*) IF_EB("\033[", ESC_STR
"["));
3391 del_mouse_termcode(KS_PTERM_MOUSE
);
3397 * set screen mode, always fails.
3404 EMSG(_(e_screenmode
));
3411 * Try to get the current window size:
3412 * 1. with an ioctl(), most accurate method
3413 * 2. from the environment variables LINES and COLUMNS
3414 * 3. from the termcap
3415 * 4. keep using the old values
3416 * Return OK when size could be determined, FAIL otherwise.
3426 * For OS/2 use _scrsize().
3439 * 1. try using an ioctl. It is the most accurate method.
3441 * Try using TIOCGWINSZ first, some systems that have it also define
3442 * TIOCGSIZE but don't have a struct ttysize.
3449 /* When stdout is not a tty, use stdin for the ioctl(). */
3450 if (!isatty(fd
) && isatty(read_cmd_fd
))
3452 if (ioctl(fd
, TIOCGWINSZ
, &ws
) == 0)
3454 columns
= ws
.ws_col
;
3458 # else /* TIOCGWINSZ */
3464 /* When stdout is not a tty, use stdin for the ioctl(). */
3465 if (!isatty(fd
) && isatty(read_cmd_fd
))
3467 if (ioctl(fd
, TIOCGSIZE
, &ts
) == 0)
3469 columns
= ts
.ts_cols
;
3473 # endif /* TIOCGSIZE */
3474 # endif /* TIOCGWINSZ */
3477 * 2. get size from environment
3478 * When being POSIX compliant ('|' flag in 'cpoptions') this overrules
3479 * the ioctl() values!
3481 if (columns
== 0 || rows
== 0 || vim_strchr(p_cpo
, CPO_TSIZE
) != NULL
)
3483 if ((p
= (char_u
*)getenv("LINES")))
3484 rows
= atoi((char *)p
);
3485 if ((p
= (char_u
*)getenv("COLUMNS")))
3486 columns
= atoi((char *)p
);
3491 * 3. try reading "co" and "li" entries from termcap
3493 if (columns
== 0 || rows
== 0)
3494 getlinecol(&columns
, &rows
);
3498 * 4. If everything fails, use the old values
3500 if (columns
<= 0 || rows
<= 0)
3509 * Try to set the window size to Rows and Columns.
3517 * NOTE: if you get an error here that term_set_winsize() is
3518 * undefined, check the output of configure. It could probably not
3519 * find a ncurses, termcap or termlib library.
3521 term_set_winsize((int)Rows
, (int)Columns
);
3523 screen_start(); /* don't know where cursor is now */
3530 * Rows and/or Columns has changed.
3535 /* Nothing to do. */
3539 static void append_ga_line
__ARGS((garray_T
*gap
));
3542 * Append the text in "gap" below the cursor line and clear "gap".
3548 /* Remove trailing CR. */
3551 && ((char_u
*)gap
->ga_data
)[gap
->ga_len
- 1] == CAR
)
3553 ga_append(gap
, NUL
);
3554 ml_append(curwin
->w_cursor
.lnum
++, gap
->ga_data
, 0, FALSE
);
3560 mch_call_shell(cmd
, options
)
3562 int options
; /* SHELL_*, see vim.h */
3568 int tmode
= cur_tmode
;
3569 #ifdef USE_SYSTEM /* use system() to start the shell: simple but slow */
3572 char_u
*newcmd
; /* only needed for unix */
3575 * Set the preferred shell in the EMXSHELL environment variable (but
3576 * only if it is different from what is already in the environment).
3577 * Emx then takes care of whether to use "/c" or "-c" in an
3578 * intelligent way. Simply pass the whole thing to emx's system() call.
3579 * Emx also starts an interactive shell if system() is passed an empty
3584 if (((old
= (char_u
*)getenv("EMXSHELL")) == NULL
) || STRCMP(old
, p_sh
))
3586 /* should check HAVE_SETENV, but I know we don't have it. */
3587 p
= alloc(10 + strlen(p_sh
));
3590 sprintf((char *)p
, "EMXSHELL=%s", p_sh
);
3591 putenv((char *)p
); /* don't free the pointer! */
3598 if (options
& SHELL_COOKED
)
3599 settmode(TMODE_COOK
); /* set to normal mode */
3603 x
= system(""); /* this starts an interactive shell in emx */
3605 x
= system((char *)cmd
);
3606 /* system() returns -1 when error occurs in starting shell */
3607 if (x
== -1 && !emsg_silent
)
3609 MSG_PUTS(_("\nCannot execute shell "));
3613 # else /* not __EMX__ */
3615 x
= system((char *)p_sh
);
3619 if (ofn
= strchr((char *)cmd
, '>'))
3621 if (ifn
= strchr((char *)cmd
, '<'))
3626 p
= strchr(ifn
,' '); /* chop off any trailing spaces */
3631 x
= vms_sys((char *)cmd
, ofn
, ifn
);
3633 x
= system((char *)cmd
);
3635 newcmd
= lalloc(STRLEN(p_sh
)
3636 + (extra_shell_arg
== NULL
? 0 : STRLEN(extra_shell_arg
))
3637 + STRLEN(p_shcf
) + STRLEN(cmd
) + 4, TRUE
);
3642 sprintf((char *)newcmd
, "%s %s %s %s", p_sh
,
3643 extra_shell_arg
== NULL
? "" : (char *)extra_shell_arg
,
3646 x
= system((char *)newcmd
);
3652 x
= vms_sys_status(x
);
3657 MSG_PUTS(_("\nCannot execute shell sh\n"));
3658 # endif /* __EMX__ */
3659 else if (x
&& !(options
& SHELL_SILENT
))
3661 MSG_PUTS(_("\nshell returned "));
3662 msg_outnum((long)x
);
3666 if (tmode
== TMODE_RAW
)
3667 settmode(TMODE_RAW
); /* set to raw mode */
3673 #else /* USE_SYSTEM */ /* don't use system(), use fork()/exec() */
3675 # define EXEC_FAILED 122 /* Exit code when shell didn't execute. Don't use
3676 127, some shells use that already */
3678 char_u
*newcmd
= NULL
;
3682 # ifdef HAVE_UNION_WAIT
3693 int pty_master_fd
= -1; /* for pty's */
3695 int pty_slave_fd
= -1;
3698 int fd_toshell
[2]; /* for pipes */
3699 int fd_fromshell
[2];
3700 int pipe_error
= FALSE
;
3704 static char envbuf_Rows
[20];
3705 static char envbuf_Columns
[20];
3707 int did_settmode
= FALSE
; /* settmode(TMODE_RAW) called */
3710 if (options
& SHELL_COOKED
)
3711 settmode(TMODE_COOK
); /* set to normal mode */
3713 newcmd
= vim_strsave(p_sh
);
3714 if (newcmd
== NULL
) /* out of memory */
3718 * Do this loop twice:
3719 * 1: find number of arguments
3720 * 2: separate them and build argv[]
3722 for (i
= 0; i
< 2; ++i
)
3730 argv
[argc
] = (char *)p
;
3732 while (*p
&& (inquote
|| (*p
!= ' ' && *p
!= TAB
)))
3746 argv
= (char **)alloc((unsigned)((argc
+ 4) * sizeof(char *)));
3747 if (argv
== NULL
) /* out of memory */
3753 if (extra_shell_arg
!= NULL
)
3754 argv
[argc
++] = (char *)extra_shell_arg
;
3755 argv
[argc
++] = (char *)p_shcf
;
3756 argv
[argc
++] = (char *)cmd
;
3761 * For the GUI, when writing the output into the buffer and when reading
3762 * input from the buffer: Try using a pseudo-tty to get the stdin/stdout
3763 * of the executed command into the Vim window. Or use a pipe.
3765 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3767 || (gui
.in_use
&& show_shell_mess
)
3773 * Try to open a master pty.
3774 * If this works, open the slave pty.
3775 * If the slave can't be opened, close the master pty.
3777 if (p_guipty
&& !(options
& (SHELL_READ
|SHELL_WRITE
)))
3779 pty_master_fd
= OpenPTY(&tty_name
); /* open pty */
3780 if (pty_master_fd
>= 0 && ((pty_slave_fd
=
3781 open(tty_name
, O_RDWR
| O_EXTRA
, 0)) < 0))
3783 close(pty_master_fd
);
3788 * If not opening a pty or it didn't work, try using pipes.
3790 if (pty_master_fd
< 0)
3793 pipe_error
= (pipe(fd_toshell
) < 0);
3794 if (!pipe_error
) /* pipe create OK */
3796 pipe_error
= (pipe(fd_fromshell
) < 0);
3797 if (pipe_error
) /* pipe create failed */
3799 close(fd_toshell
[0]);
3800 close(fd_toshell
[1]);
3805 MSG_PUTS(_("\nCannot create pipes\n"));
3811 if (!pipe_error
) /* pty or pipe opened or not used */
3814 beos_cleanup_read_thread();
3817 if ((pid
= fork()) == -1) /* maybe we should use vfork() */
3819 MSG_PUTS(_("\nCannot fork\n"));
3820 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3822 || (gui
.in_use
&& show_shell_mess
)
3827 if (pty_master_fd
>= 0) /* close the pseudo tty */
3829 close(pty_master_fd
);
3830 close(pty_slave_fd
);
3832 else /* close the pipes */
3835 close(fd_toshell
[0]);
3836 close(fd_toshell
[1]);
3837 close(fd_fromshell
[0]);
3838 close(fd_fromshell
[1]);
3842 else if (pid
== 0) /* child */
3844 reset_signals(); /* handle signals normally */
3846 if (!show_shell_mess
|| (options
& SHELL_EXPAND
))
3851 * Don't want to show any message from the shell. Can't just
3852 * close stdout and stderr though, because some systems will
3853 * break if you try to write to them after that, so we must
3854 * use dup() to replace them with something else -- webb
3855 * Connect stdin to /dev/null too, so ":n `cat`" doesn't hang,
3856 * waiting for input.
3858 fd
= open("/dev/null", O_RDWR
| O_EXTRA
, 0);
3864 * If any of these open()'s and dup()'s fail, we just continue
3865 * anyway. It's not fatal, and on most systems it will make
3866 * no difference at all. On a few it will cause the execvp()
3867 * to exit with a non-zero status even when the completion
3868 * could be done, which is nothing too serious. If the open()
3869 * or dup() failed we'd just do the same thing ourselves
3874 dup(fd
); /* To replace stdin (file descriptor 0) */
3875 dup(fd
); /* To replace stdout (file descriptor 1) */
3876 dup(fd
); /* To replace stderr (file descriptor 2) */
3878 /* Don't need this now that we've duplicated it */
3882 else if ((options
& (SHELL_READ
|SHELL_WRITE
))
3890 /* Create our own process group, so that the child and all its
3891 * children can be kill()ed. Don't do this when using pipes,
3892 * because stdin is not a tty, we would loose /dev/tty. */
3897 if (pty_slave_fd
>= 0)
3899 /* push stream discipline modules */
3900 if (options
& SHELL_COOKED
)
3901 SetupSlavePTY(pty_slave_fd
);
3902 # if defined(TIOCSCTTY) && !defined(FEAT_GUI_MACVIM)
3903 /* Try to become controlling tty (probably doesn't work,
3904 * unless run by root) */
3905 ioctl(pty_slave_fd
, TIOCSCTTY
, (char *)NULL
);
3909 /* Simulate to have a dumb terminal (for now) */
3911 setenv("TERM", "dumb", 1);
3912 sprintf((char *)envbuf
, "%ld", Rows
);
3913 setenv("ROWS", (char *)envbuf
, 1);
3914 sprintf((char *)envbuf
, "%ld", Rows
);
3915 setenv("LINES", (char *)envbuf
, 1);
3916 sprintf((char *)envbuf
, "%ld", Columns
);
3917 setenv("COLUMNS", (char *)envbuf
, 1);
3920 * Putenv does not copy the string, it has to remain valid.
3921 * Use a static array to avoid loosing allocated memory.
3923 putenv("TERM=dumb");
3924 sprintf(envbuf_Rows
, "ROWS=%ld", Rows
);
3925 putenv(envbuf_Rows
);
3926 sprintf(envbuf_Rows
, "LINES=%ld", Rows
);
3927 putenv(envbuf_Rows
);
3928 sprintf(envbuf_Columns
, "COLUMNS=%ld", Columns
);
3929 putenv(envbuf_Columns
);
3933 * stderr is only redirected when using the GUI, so that a
3934 * program like gpg can still access the terminal to get a
3935 * passphrase using stderr.
3938 if (pty_master_fd
>= 0)
3940 close(pty_master_fd
); /* close master side of pty */
3942 /* set up stdin/stdout/stderr for the child */
3953 close(pty_slave_fd
); /* has been dupped, close it now */
3958 /* set up stdin for the child */
3959 close(fd_toshell
[1]);
3962 close(fd_toshell
[0]);
3964 /* set up stdout for the child */
3965 close(fd_fromshell
[0]);
3967 dup(fd_fromshell
[1]);
3968 close(fd_fromshell
[1]);
3973 /* set up stderr for the child */
3982 * There is no type cast for the argv, because the type may be
3983 * different on different machines. This may cause a warning
3984 * message with strict compilers, don't worry about it.
3985 * Call _exit() instead of exit() to avoid closing the connection
3986 * to the X server (esp. with GTK, which uses atexit()).
3988 execvp(argv
[0], argv
);
3989 _exit(EXEC_FAILED
); /* exec failed, return failure code */
3994 * While child is running, ignore terminating signals.
3995 * Do catch CTRL-C, so that "got_int" is set.
3997 catch_signals(SIG_IGN
, SIG_ERR
);
4001 * For the GUI we redirect stdin, stdout and stderr to our window.
4002 * This is also used to pipe stdin/stdout to/from the external
4005 if ((options
& (SHELL_READ
|SHELL_WRITE
))
4007 || (gui
.in_use
&& show_shell_mess
)
4011 # define BUFLEN 100 /* length for buffer, pseudo tty limit is 128 */
4012 char_u buffer
[BUFLEN
+ 1];
4014 int buffer_off
= 0; /* valid bytes in buffer[] */
4016 char_u ta_buf
[BUFLEN
+ 1]; /* TypeAHead */
4017 int ta_len
= 0; /* valid bytes in ta_buf[] */
4028 if (pty_master_fd
>= 0)
4030 close(pty_slave_fd
); /* close slave side of pty */
4031 fromshell_fd
= pty_master_fd
;
4032 toshell_fd
= dup(pty_master_fd
);
4037 close(fd_toshell
[0]);
4038 close(fd_fromshell
[1]);
4039 toshell_fd
= fd_toshell
[1];
4040 fromshell_fd
= fd_fromshell
[0];
4044 * Write to the child if there are typed characters.
4045 * Read from the child if there are characters available.
4046 * Repeat the reading a few times if more characters are
4047 * available. Need to check for typed keys now and then, but
4048 * not too often (delays when no chars are available).
4049 * This loop is quit if no characters can be read from the pty
4050 * (WaitForChar detected special condition), or there are no
4051 * characters available and the child has exited.
4052 * Only check if the child has exited when there is no more
4053 * output. The child may exit before all the output has
4056 * Currently this busy loops!
4057 * This can probably dead-lock when the write blocks!
4059 p_more_save
= p_more
;
4062 State
= EXTERNCMD
; /* don't redraw at window resize */
4064 if ((options
& SHELL_WRITE
) && toshell_fd
>= 0)
4066 /* Fork a process that will write the lines to the
4067 * external program. */
4068 if ((wpid
= fork()) == -1)
4070 MSG_PUTS(_("\nCannot fork\n"));
4074 linenr_T lnum
= curbuf
->b_op_start
.lnum
;
4076 char_u
*lp
= ml_get(lnum
);
4081 close(fromshell_fd
);
4084 l
= STRLEN(lp
+ written
);
4087 else if (lp
[written
] == NL
)
4088 /* NL -> NUL translation */
4089 len
= write(toshell_fd
, "", (size_t)1);
4092 s
= vim_strchr(lp
+ written
, NL
);
4093 len
= write(toshell_fd
, (char *)lp
+ written
,
4094 s
== NULL
? l
: s
- (lp
+ written
));
4098 /* Finished a line, add a NL, unless this line
4099 * should not have one. */
4100 if (lnum
!= curbuf
->b_op_end
.lnum
4102 || (lnum
!= write_no_eol_lnum
4104 curbuf
->b_ml
.ml_line_count
4105 || curbuf
->b_p_eol
)))
4106 write(toshell_fd
, "\n", (size_t)1);
4108 if (lnum
> curbuf
->b_op_end
.lnum
)
4110 /* finished all the lines, close pipe */
4130 if (options
& SHELL_READ
)
4131 ga_init2(&ga
, 1, BUFLEN
);
4138 * Check if keys have been typed, write them to the child
4140 * Don't do this if we are expanding wild cards (would eat
4142 * Don't do this when filtering and terminal is in cooked
4143 * mode, the shell command will handle the I/O. Avoids
4144 * that a typed password is echoed for ssh or gpg command.
4145 * Don't get characters when the child has already
4146 * finished (wait_pid == 0).
4147 * Don't get extra characters when we already have one.
4148 * Don't read characters unless we didn't get output for a
4149 * while, avoids that ":r !ls" eats typeahead.
4152 if (!(options
& SHELL_EXPAND
)
4154 (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
))
4155 != (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
)
4163 && (len
= ui_inchar(ta_buf
,
4164 BUFLEN
, 10L, 0)) > 0)))
4168 * Check for CTRL-C: send interrupt signal to child.
4169 * Check for CTRL-D: EOF, close pipe to child.
4171 if (len
== 1 && (pty_master_fd
< 0 || cmd
!= NULL
))
4175 * Send SIGINT to the child's group or all
4176 * processes in our group.
4178 if (ta_buf
[ta_len
] == Ctrl_C
4179 || ta_buf
[ta_len
] == intr_char
)
4190 if (pty_master_fd
< 0 && toshell_fd
>= 0
4191 && ta_buf
[ta_len
] == Ctrl_D
)
4198 /* replace K_BS by <BS> and K_DEL by <DEL> */
4199 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4201 if (ta_buf
[i
] == CSI
&& len
- i
> 2)
4203 c
= TERMCAP2KEY(ta_buf
[i
+ 1], ta_buf
[i
+ 2]);
4204 if (c
== K_DEL
|| c
== K_KDEL
|| c
== K_BS
)
4206 mch_memmove(ta_buf
+ i
+ 1, ta_buf
+ i
+ 3,
4207 (size_t)(len
- i
- 2));
4208 if (c
== K_DEL
|| c
== K_KDEL
)
4215 else if (ta_buf
[i
] == '\r')
4219 i
+= (*mb_ptr2len
)(ta_buf
+ i
) - 1;
4224 * For pipes: echo the typed characters.
4225 * For a pty this does not seem to work.
4227 if (pty_master_fd
< 0)
4229 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4231 if (ta_buf
[i
] == '\n' || ta_buf
[i
] == '\b')
4232 msg_putchar(ta_buf
[i
]);
4236 int l
= (*mb_ptr2len
)(ta_buf
+ i
);
4238 msg_outtrans_len(ta_buf
+ i
, l
);
4243 msg_outtrans_len(ta_buf
+ i
, 1);
4245 windgoto(msg_row
, msg_col
);
4252 * Write the characters to the child, unless EOF has
4253 * been typed for pipes. Write one character at a
4254 * time, to avoid loosing too much typeahead.
4255 * When writing buffer lines, drop the typed
4256 * characters (only check for CTRL-C).
4258 if (options
& SHELL_WRITE
)
4260 else if (toshell_fd
>= 0)
4262 len
= write(toshell_fd
, (char *)ta_buf
, (size_t)1);
4266 mch_memmove(ta_buf
, ta_buf
+ len
, ta_len
);
4274 /* CTRL-C sends a signal to the child, we ignore it
4287 * Check if the child has any characters to be printed.
4288 * Read them and write them to our window. Repeat this as
4289 * long as there is something to do, avoid the 10ms wait
4290 * for mch_inchar(), or sending typeahead characters to
4291 * the external process.
4292 * TODO: This should handle escape sequences, compatible
4293 * to some terminal (vt52?).
4296 while (RealWaitForChar(fromshell_fd
, 10L, NULL
))
4298 len
= read(fromshell_fd
, (char *)buffer
4300 + buffer_off
, (size_t)(BUFLEN
- buffer_off
)
4305 if (len
<= 0) /* end of file or error */
4309 if (options
& SHELL_READ
)
4311 /* Do NUL -> NL translation, append NL separated
4312 * lines to the current buffer. */
4313 for (i
= 0; i
< len
; ++i
)
4315 if (buffer
[i
] == NL
)
4316 append_ga_line(&ga
);
4317 else if (buffer
[i
] == NUL
)
4320 ga_append(&ga
, buffer
[i
]);
4331 /* Check if the last character in buffer[] is
4332 * incomplete, keep these bytes for the next
4334 for (p
= buffer
; p
< buffer
+ len
; p
+= l
)
4338 l
= 1; /* NUL byte? */
4339 else if (MB_BYTE2LEN(*p
) != l
)
4342 if (p
== buffer
) /* no complete character */
4344 /* avoid getting stuck at an illegal byte */
4356 if (p
< buffer
+ len
)
4359 buffer_off
= (buffer
+ len
) - p
;
4360 mch_memmove(buffer
, p
, buffer_off
);
4365 # endif /* FEAT_MBYTE */
4372 windgoto(msg_row
, msg_col
);
4379 /* If we already detected the child has finished break the
4381 if (wait_pid
== pid
)
4385 * Check if the child still exists, before checking for
4386 * typed characters (otherwise we would loose typeahead).
4389 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*) 0);
4391 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4393 if ((wait_pid
== (pid_t
)-1 && errno
== ECHILD
)
4394 || (wait_pid
== pid
&& WIFEXITED(status
)))
4396 /* Don't break the loop yet, try reading more
4397 * characters from "fromshell_fd" first. When using
4398 * pipes there might still be something to read and
4399 * then we'll break the loop at the "break" above. */
4406 p_more
= p_more_save
;
4407 if (options
& SHELL_READ
)
4411 append_ga_line(&ga
);
4412 /* remember that the NL was missing */
4413 write_no_eol_lnum
= curwin
->w_cursor
.lnum
;
4416 write_no_eol_lnum
= 0;
4421 * Give all typeahead that wasn't used back to ui_inchar().
4424 ui_inchar_undo(ta_buf
, ta_len
);
4426 if (toshell_fd
>= 0)
4428 close(fromshell_fd
);
4432 * Wait until our child has exited.
4433 * Ignore wait() returning pids of other children and returning
4434 * because of some signal like SIGWINCH.
4435 * Don't wait if wait_pid was already set above, indicating the
4436 * child already exited.
4438 while (wait_pid
!= pid
)
4440 # ifdef _THREAD_SAFE
4441 /* Ugly hack: when compiled with Python threads are probably
4442 * used, in which case wait() sometimes hangs for no obvious
4443 * reason. Use waitpid() instead and loop (like the GUI). */
4445 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*)0);
4447 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4451 /* Wait for 1/100 sec before trying again. */
4452 mch_delay(10L, TRUE
);
4456 wait_pid
= wait(&status
);
4466 /* Make sure the child that writes to the external program is
4469 kill(wpid
, SIGKILL
);
4472 * Set to raw mode right now, otherwise a CTRL-C after
4473 * catch_signals() will kill Vim.
4475 if (tmode
== TMODE_RAW
)
4476 settmode(TMODE_RAW
);
4477 did_settmode
= TRUE
;
4480 if (WIFEXITED(status
))
4482 /* LINTED avoid "bitwise operation on signed value" */
4483 retval
= WEXITSTATUS(status
);
4484 if (retval
&& !emsg_silent
)
4486 if (retval
== EXEC_FAILED
)
4488 MSG_PUTS(_("\nCannot execute shell "));
4492 else if (!(options
& SHELL_SILENT
))
4494 MSG_PUTS(_("\nshell returned "));
4495 msg_outnum((long)retval
);
4501 MSG_PUTS(_("\nCommand terminated\n"));
4508 if (tmode
== TMODE_RAW
)
4509 settmode(TMODE_RAW
); /* set to raw mode */
4517 #endif /* USE_SYSTEM */
4521 * Check for CTRL-C typed by reading all available characters.
4522 * In cooked mode we should get SIGINT, no need to check.
4527 if (curr_tmode
== TMODE_RAW
&& RealWaitForChar(read_cmd_fd
, 0L, NULL
))
4528 fill_input_buf(FALSE
);
4532 * Wait "msec" msec until a character is available from the keyboard or from
4533 * inbuf[]. msec == -1 will block forever.
4534 * When a GUI is being used, this will never get called -- webb
4540 #ifdef FEAT_MOUSE_GPM
4541 int gpm_process_wanted
;
4543 #ifdef FEAT_XCLIPBOARD
4548 if (input_available()) /* something in inbuf[] */
4551 #if defined(FEAT_MOUSE_DEC)
4552 /* May need to query the mouse position. */
4555 WantQueryMouse
= FALSE
;
4556 mch_write((char_u
*)IF_EB("\033[1'|", ESC_STR
"[1'|"), 5);
4561 * For FEAT_MOUSE_GPM and FEAT_XCLIPBOARD we loop here to process mouse
4562 * events. This is a bit complicated, because they might both be defined.
4564 #if defined(FEAT_MOUSE_GPM) || defined(FEAT_XCLIPBOARD)
4565 # ifdef FEAT_XCLIPBOARD
4567 if (do_xterm_trace())
4572 # ifdef FEAT_XCLIPBOARD
4575 msec
= XT_TRACE_DELAY
;
4576 if (rest
>= 0 && rest
< XT_TRACE_DELAY
)
4582 # ifdef FEAT_MOUSE_GPM
4583 gpm_process_wanted
= 0;
4584 avail
= RealWaitForChar(read_cmd_fd
, msec
, &gpm_process_wanted
);
4586 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4590 if (input_available())
4592 # ifdef FEAT_XCLIPBOARD
4593 if (rest
== 0 || !do_xterm_trace())
4599 # ifdef FEAT_MOUSE_GPM
4600 || (gpm_process_wanted
&& mch_gpm_process() == 0)
4602 # ifdef FEAT_XCLIPBOARD
4603 || (!avail
&& rest
!= 0)
4608 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4614 * Wait "msec" msec until a character is available from file descriptor "fd".
4615 * Time == -1 will block forever.
4616 * When a GUI is being used, this will not be used for input -- webb
4617 * Returns also, when a request from Sniff is waiting -- toni.
4618 * Or when a Linux GPM mouse event is waiting.
4621 #if defined(__BEOS__)
4626 RealWaitForChar(fd
, msec
, check_for_gpm
)
4632 #if defined(FEAT_XCLIPBOARD) || defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4633 static int busy
= FALSE
;
4635 /* May retry getting characters after an event was handled. */
4638 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4639 /* Remember at what time we started, so that we know how much longer we
4640 * should wait after being interrupted. */
4641 # define USE_START_TV
4642 struct timeval start_tv
;
4645 # ifdef FEAT_XCLIPBOARD
4646 xterm_Shell
!= (Widget
)0
4647 # if defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4653 # ifdef FEAT_MZSCHEME
4657 # ifdef FEAT_MZSCHEME
4658 (mzthreads_allowed() && p_mzq
> 0)
4661 gettimeofday(&start_tv
, NULL
);
4664 /* Handle being called recursively. This may happen for the session
4665 * manager stuff, it may save the file, which does a breakcheck. */
4675 int finished
= TRUE
; /* default is to 'loop' just once */
4676 # ifdef FEAT_MZSCHEME
4677 int mzquantum_used
= FALSE
;
4681 struct pollfd fds
[5];
4683 # ifdef FEAT_XCLIPBOARD
4686 # ifdef FEAT_MOUSE_GPM
4692 int towait
= (int)msec
;
4694 # ifdef FEAT_MZSCHEME
4695 mzvim_check_threads();
4696 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4698 towait
= (int)p_mzq
; /* don't wait longer than 'mzquantum' */
4699 mzquantum_used
= TRUE
;
4703 fds
[0].events
= POLLIN
;
4707 # define SNIFF_IDX 1
4708 if (want_sniff_request
)
4710 fds
[SNIFF_IDX
].fd
= fd_from_sniff
;
4711 fds
[SNIFF_IDX
].events
= POLLIN
;
4715 # ifdef FEAT_XCLIPBOARD
4716 if (xterm_Shell
!= (Widget
)0)
4719 fds
[nfd
].fd
= ConnectionNumber(xterm_dpy
);
4720 fds
[nfd
].events
= POLLIN
;
4724 # ifdef FEAT_MOUSE_GPM
4725 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4728 fds
[nfd
].fd
= gpm_fd
;
4729 fds
[nfd
].events
= POLLIN
;
4734 if (xsmp_icefd
!= -1)
4737 fds
[nfd
].fd
= xsmp_icefd
;
4738 fds
[nfd
].events
= POLLIN
;
4743 ret
= poll(fds
, nfd
, towait
);
4744 # ifdef FEAT_MZSCHEME
4745 if (ret
== 0 && mzquantum_used
)
4746 /* MzThreads scheduling is required and timeout occurred */
4752 sniff_disconnect(1);
4753 else if (want_sniff_request
)
4755 if (fds
[SNIFF_IDX
].revents
& POLLHUP
)
4756 sniff_disconnect(1);
4757 if (fds
[SNIFF_IDX
].revents
& POLLIN
)
4758 sniff_request_waiting
= 1;
4761 # ifdef FEAT_XCLIPBOARD
4762 if (xterm_Shell
!= (Widget
)0 && (fds
[xterm_idx
].revents
& POLLIN
))
4764 xterm_update(); /* Maybe we should hand out clipboard */
4765 if (--ret
== 0 && !input_available())
4770 # ifdef FEAT_MOUSE_GPM
4771 if (gpm_idx
>= 0 && (fds
[gpm_idx
].revents
& POLLIN
))
4777 if (xsmp_idx
>= 0 && (fds
[xsmp_idx
].revents
& (POLLIN
| POLLHUP
)))
4779 if (fds
[xsmp_idx
].revents
& POLLIN
)
4782 xsmp_handle_requests();
4785 else if (fds
[xsmp_idx
].revents
& POLLHUP
)
4788 verb_msg((char_u
*)_("XSMP lost ICE connection"));
4792 finished
= FALSE
; /* Try again */
4797 #else /* HAVE_SELECT */
4800 struct timeval
*tvp
;
4805 # ifdef FEAT_MZSCHEME
4806 mzvim_check_threads();
4807 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4809 towait
= p_mzq
; /* don't wait longer than 'mzquantum' */
4810 mzquantum_used
= TRUE
;
4814 /* don't check for incoming chars if not in raw mode, because select()
4815 * always returns TRUE then (in some version of emx.dll) */
4816 if (curr_tmode
!= TMODE_RAW
)
4822 tv
.tv_sec
= towait
/ 1000;
4823 tv
.tv_usec
= (towait
% 1000) * (1000000/1000);
4830 * Select on ready for reading and exceptional condition (end of file).
4832 FD_ZERO(&rfds
); /* calls bzero() on a sun */
4835 # if !defined(__QNX__) && !defined(__CYGWIN32__)
4836 /* For QNX select() always returns 1 if this is set. Why? */
4842 if (want_sniff_request
)
4844 FD_SET(fd_from_sniff
, &rfds
);
4845 FD_SET(fd_from_sniff
, &efds
);
4846 if (maxfd
< fd_from_sniff
)
4847 maxfd
= fd_from_sniff
;
4850 # ifdef FEAT_XCLIPBOARD
4851 if (xterm_Shell
!= (Widget
)0)
4853 FD_SET(ConnectionNumber(xterm_dpy
), &rfds
);
4854 if (maxfd
< ConnectionNumber(xterm_dpy
))
4855 maxfd
= ConnectionNumber(xterm_dpy
);
4858 # ifdef FEAT_MOUSE_GPM
4859 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4861 FD_SET(gpm_fd
, &rfds
);
4862 FD_SET(gpm_fd
, &efds
);
4868 if (xsmp_icefd
!= -1)
4870 FD_SET(xsmp_icefd
, &rfds
);
4871 FD_SET(xsmp_icefd
, &efds
);
4872 if (maxfd
< xsmp_icefd
)
4878 /* Old VMS as v6.2 and older have broken select(). It waits more than
4879 * required. Should not be used */
4882 ret
= select(maxfd
+ 1, &rfds
, NULL
, &efds
, tvp
);
4885 if (ret
== -1 && errno
== ENOTSUP
)
4892 # ifdef FEAT_MZSCHEME
4893 if (ret
== 0 && mzquantum_used
)
4894 /* loop if MzThreads must be scheduled and timeout occurred */
4900 sniff_disconnect(1);
4901 else if (ret
> 0 && want_sniff_request
)
4903 if (FD_ISSET(fd_from_sniff
, &efds
))
4904 sniff_disconnect(1);
4905 if (FD_ISSET(fd_from_sniff
, &rfds
))
4906 sniff_request_waiting
= 1;
4909 # ifdef FEAT_XCLIPBOARD
4910 if (ret
> 0 && xterm_Shell
!= (Widget
)0
4911 && FD_ISSET(ConnectionNumber(xterm_dpy
), &rfds
))
4913 xterm_update(); /* Maybe we should hand out clipboard */
4914 /* continue looping when we only got the X event and the input
4915 * buffer is empty */
4916 if (--ret
== 0 && !input_available())
4923 # ifdef FEAT_MOUSE_GPM
4924 if (ret
> 0 && gpm_flag
&& check_for_gpm
!= NULL
&& gpm_fd
>= 0)
4926 if (FD_ISSET(gpm_fd
, &efds
))
4928 else if (FD_ISSET(gpm_fd
, &rfds
))
4933 if (ret
> 0 && xsmp_icefd
!= -1)
4935 if (FD_ISSET(xsmp_icefd
, &efds
))
4938 verb_msg((char_u
*)_("XSMP lost ICE connection"));
4941 finished
= FALSE
; /* keep going if event was only one */
4943 else if (FD_ISSET(xsmp_icefd
, &rfds
))
4946 xsmp_handle_requests();
4949 finished
= FALSE
; /* keep going if event was only one */
4954 #endif /* HAVE_SELECT */
4957 if (finished
|| msec
== 0)
4960 /* We're going to loop around again, find out for how long */
4963 # ifdef USE_START_TV
4966 /* Compute remaining wait time. */
4967 gettimeofday(&mtv
, NULL
);
4968 msec
-= (mtv
.tv_sec
- start_tv
.tv_sec
) * 1000L
4969 + (mtv
.tv_usec
- start_tv
.tv_usec
) / 1000L;
4971 /* Guess we got interrupted halfway. */
4975 break; /* waited long enough */
4985 #ifndef NO_EXPANDPATH
4987 * Expand a path into all matching files and/or directories. Handles "*",
4988 * "?", "[a-z]", "**", etc.
4989 * "path" has backslashes before chars that are not to be expanded.
4990 * Returns the number of matches found.
4993 mch_expandpath(gap
, path
, flags
)
4996 int flags
; /* EW_* flags */
4998 return unix_expandpath(gap
, path
, 0, flags
, FALSE
);
5003 * mch_expand_wildcards() - this code does wild-card pattern matching using
5006 * return OK for success, FAIL for error (you may lose some memory) and put
5007 * an error message in *file.
5009 * num_pat is number of input patterns
5010 * pat is array of pointers to input patterns
5011 * num_file is pointer to number of matched file names
5012 * file is pointer to array of pointers to matched file names
5022 #define SHELL_SPECIAL (char_u *)"\t \"&'$;<>()\\|"
5026 mch_expand_wildcards(num_pat
, pat
, num_file
, file
, flags
)
5031 int flags
; /* EW_* flags */
5039 * This is the OS/2 implementation.
5041 # define EXPL_ALLOC_INC 16
5042 char_u
**expl_files
;
5043 size_t files_alloced
, files_free
;
5047 *num_file
= 0; /* default: no files found */
5048 files_alloced
= EXPL_ALLOC_INC
; /* how much space is allocated */
5049 files_free
= EXPL_ALLOC_INC
; /* how much space is not used */
5050 *file
= (char_u
**)alloc(sizeof(char_u
**) * files_alloced
);
5054 for (; num_pat
> 0; num_pat
--, pat
++)
5057 if (vim_strchr(*pat
, '$') || vim_strchr(*pat
, '~'))
5058 /* expand environment var or home dir */
5059 buf
= expand_env_save(*pat
);
5061 buf
= vim_strsave(*pat
);
5063 has_wildcard
= mch_has_exp_wildcard(buf
); /* (still) wildcards? */
5064 if (has_wildcard
) /* yes, so expand them */
5065 expl_files
= (char_u
**)_fnexplode(buf
);
5068 * return value of buf if no wildcards left,
5069 * OR if no match AND EW_NOTFOUND is set.
5071 if ((!has_wildcard
&& ((flags
& EW_NOTFOUND
) || mch_getperm(buf
) >= 0))
5072 || (expl_files
== NULL
&& (flags
& EW_NOTFOUND
)))
5073 { /* simply save the current contents of *buf */
5074 expl_files
= (char_u
**)alloc(sizeof(char_u
**) * 2);
5075 if (expl_files
!= NULL
)
5077 expl_files
[0] = vim_strsave(buf
);
5078 expl_files
[1] = NULL
;
5084 * Count number of names resulting from expansion,
5085 * At the same time add a backslash to the end of names that happen to
5086 * be directories, and replace slashes with backslashes.
5090 for (i
= 0; (p
= expl_files
[i
]) != NULL
; i
++)
5093 /* If we don't want dirs and this is one, skip it */
5094 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5097 /* Skip files that are not executable if we check for that. */
5098 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe(p
))
5101 if (--files_free
== 0)
5103 /* need more room in table of pointers */
5104 files_alloced
+= EXPL_ALLOC_INC
;
5105 *file
= (char_u
**)vim_realloc(*file
,
5106 sizeof(char_u
**) * files_alloced
);
5109 EMSG(_(e_outofmem
));
5113 files_free
= EXPL_ALLOC_INC
;
5118 /* For a directory we add a '/', unless it's already
5121 if (((*file
)[*num_file
] = alloc(len
+ 2)) != NULL
)
5123 STRCPY((*file
)[*num_file
], p
);
5124 if (!after_pathsep((*file
)[*num_file
],
5125 (*file
)[*num_file
] + len
))
5127 (*file
)[*num_file
][len
] = psepc
;
5128 (*file
)[*num_file
][len
+ 1] = NUL
;
5134 (*file
)[*num_file
] = vim_strsave(p
);
5138 * Error message already given by either alloc or vim_strsave.
5139 * Should return FAIL, but returning OK works also.
5141 if ((*file
)[*num_file
] == NULL
)
5145 _fnexplodefree((char **)expl_files
);
5152 * This is the non-OS/2 implementation (really Unix).
5159 #define STYLE_ECHO 0 /* use "echo", the default */
5160 #define STYLE_GLOB 1 /* use "glob", for csh */
5161 #define STYLE_VIMGLOB 2 /* use "vimglob", for Posix sh */
5162 #define STYLE_PRINT 3 /* use "print -N", for zsh */
5163 #define STYLE_BT 4 /* `cmd` expansion, execute the pattern
5165 int shell_style
= STYLE_ECHO
;
5167 static int did_find_nul
= FALSE
;
5168 int ampersent
= FALSE
;
5169 /* vimglob() function to define for Posix shell */
5170 static char *sh_vimglob_func
= "vimglob() { while [ $# -ge 1 ]; do echo -n \"$1\"; echo; shift; done }; vimglob >";
5172 *num_file
= 0; /* default: no files found */
5176 * If there are no wildcards, just copy the names to allocated memory.
5177 * Saves a lot of time, because we don't have to start a new shell.
5179 if (!have_wildcard(num_pat
, pat
))
5180 return save_patterns(num_pat
, pat
, num_file
, file
);
5182 # ifdef HAVE_SANDBOX
5183 /* Don't allow any shell command in the sandbox. */
5184 if (sandbox
!= 0 && check_secure())
5189 * Don't allow the use of backticks in secure and restricted mode.
5191 if (secure
|| restricted
)
5192 for (i
= 0; i
< num_pat
; ++i
)
5193 if (vim_strchr(pat
[i
], '`') != NULL
5194 && (check_restricted() || check_secure()))
5198 * get a name for the temp file
5200 if ((tempname
= vim_tempname('o')) == NULL
)
5207 * Let the shell expand the patterns and write the result into the temp
5209 * STYLE_BT: NL separated
5210 * If expanding `cmd` execute it directly.
5211 * STYLE_GLOB: NUL separated
5212 * If we use *csh, "glob" will work better than "echo".
5213 * STYLE_PRINT: NL or NUL separated
5214 * If we use *zsh, "print -N" will work better than "glob".
5215 * STYLE_VIMGLOB: NL separated
5216 * If we use *sh*, we define "vimglob()".
5217 * STYLE_ECHO: space separated.
5218 * A shell we don't know, stay safe and use "echo".
5220 if (num_pat
== 1 && *pat
[0] == '`'
5221 && (len
= STRLEN(pat
[0])) > 2
5222 && *(pat
[0] + len
- 1) == '`')
5223 shell_style
= STYLE_BT
;
5224 else if ((len
= STRLEN(p_sh
)) >= 3)
5226 if (STRCMP(p_sh
+ len
- 3, "csh") == 0)
5227 shell_style
= STYLE_GLOB
;
5228 else if (STRCMP(p_sh
+ len
- 3, "zsh") == 0)
5229 shell_style
= STYLE_PRINT
;
5231 if (shell_style
== STYLE_ECHO
&& strstr((char *)gettail(p_sh
),
5233 shell_style
= STYLE_VIMGLOB
;
5235 /* Compute the length of the command. We need 2 extra bytes: for the
5236 * optional '&' and for the NUL.
5237 * Worst case: "unset nonomatch; print -N >" plus two is 29 */
5238 len
= STRLEN(tempname
) + 29;
5239 if (shell_style
== STYLE_VIMGLOB
)
5240 len
+= STRLEN(sh_vimglob_func
);
5242 for (i
= 0; i
< num_pat
; ++i
)
5244 /* Count the length of the patterns in the same way as they are put in
5245 * "command" below. */
5247 len
+= STRLEN(pat
[i
]) + 3; /* add space and two quotes */
5249 ++len
; /* add space */
5250 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5252 if (vim_strchr(SHELL_SPECIAL
, pat
[i
][j
]) != NULL
)
5253 ++len
; /* may add a backslash */
5258 command
= alloc(len
);
5259 if (command
== NULL
)
5267 * Build the shell command:
5268 * - Set $nonomatch depending on EW_NOTFOUND (hopefully the shell
5270 * - Add the shell command to print the expanded names.
5271 * - Add the temp file name.
5272 * - Add the file name patterns.
5274 if (shell_style
== STYLE_BT
)
5276 /* change `command; command& ` to (command; command ) */
5277 STRCPY(command
, "(");
5278 STRCAT(command
, pat
[0] + 1); /* exclude first backtick */
5279 p
= command
+ STRLEN(command
) - 1;
5280 *p
-- = ')'; /* remove last backtick */
5281 while (p
> command
&& vim_iswhite(*p
))
5283 if (*p
== '&') /* remove trailing '&' */
5288 STRCAT(command
, ">");
5292 if (flags
& EW_NOTFOUND
)
5293 STRCPY(command
, "set nonomatch; ");
5295 STRCPY(command
, "unset nonomatch; ");
5296 if (shell_style
== STYLE_GLOB
)
5297 STRCAT(command
, "glob >");
5298 else if (shell_style
== STYLE_PRINT
)
5299 STRCAT(command
, "print -N >");
5300 else if (shell_style
== STYLE_VIMGLOB
)
5301 STRCAT(command
, sh_vimglob_func
);
5303 STRCAT(command
, "echo >");
5306 STRCAT(command
, tempname
);
5308 if (shell_style
!= STYLE_BT
)
5309 for (i
= 0; i
< num_pat
; ++i
)
5311 /* When using system() always add extra quotes, because the shell
5312 * is started twice. Otherwise put a backslash before special
5313 * characters, except inside ``. */
5315 STRCAT(command
, " \"");
5316 STRCAT(command
, pat
[i
]);
5317 STRCAT(command
, "\"");
5321 p
= command
+ STRLEN(command
);
5323 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5325 if (pat
[i
][j
] == '`')
5327 else if (pat
[i
][j
] == '\\' && pat
[i
][j
+ 1] != NUL
)
5329 /* Remove a backslash, take char literally. But keep
5330 * backslash inside backticks, before a special character
5331 * and before a backtick. */
5333 || vim_strchr(SHELL_SPECIAL
, pat
[i
][j
+ 1]) != NULL
5334 || pat
[i
][j
+ 1] == '`')
5338 else if (!intick
&& vim_strchr(SHELL_SPECIAL
,
5340 /* Put a backslash before a special character, but not
5341 * when inside ``. */
5344 /* Copy one character. */
5350 if (flags
& EW_SILENT
)
5351 show_shell_mess
= FALSE
;
5353 STRCAT(command
, "&"); /* put the '&' after the redirection */
5356 * Using zsh -G: If a pattern has no matches, it is just deleted from
5357 * the argument list, otherwise zsh gives an error message and doesn't
5358 * expand any other pattern.
5360 if (shell_style
== STYLE_PRINT
)
5361 extra_shell_arg
= (char_u
*)"-G"; /* Use zsh NULL_GLOB option */
5364 * If we use -f then shell variables set in .cshrc won't get expanded.
5365 * vi can do it, so we will too, but it is only necessary if there is a "$"
5366 * in one of the patterns, otherwise we can still use the fast option.
5368 else if (shell_style
== STYLE_GLOB
&& !have_dollars(num_pat
, pat
))
5369 extra_shell_arg
= (char_u
*)"-f"; /* Use csh fast option */
5372 * execute the shell command
5374 i
= call_shell(command
, SHELL_EXPAND
| SHELL_SILENT
);
5376 /* When running in the background, give it some time to create the temp
5377 * file, but don't wait for it to finish. */
5379 mch_delay(10L, TRUE
);
5381 extra_shell_arg
= NULL
; /* cleanup */
5382 show_shell_mess
= TRUE
;
5385 if (i
!= 0) /* mch_call_shell() failed */
5387 mch_remove(tempname
);
5390 * With interactive completion, the error message is not printed.
5391 * However with USE_SYSTEM, I don't know how to turn off error messages
5392 * from the shell, so screen may still get messed up -- webb.
5395 if (!(flags
& EW_SILENT
))
5398 redraw_later_clear(); /* probably messed up screen */
5399 msg_putchar('\n'); /* clear bottom line quickly */
5400 cmdline_row
= Rows
- 1; /* continue on last line */
5402 if (!(flags
& EW_SILENT
))
5405 MSG(_(e_wildexpand
));
5406 msg_start(); /* don't overwrite this message */
5409 /* If a `cmd` expansion failed, don't list `cmd` as a match, even when
5410 * EW_NOTFOUND is given */
5411 if (shell_style
== STYLE_BT
)
5417 * read the names from the file into memory
5419 fd
= fopen((char *)tempname
, READBIN
);
5422 /* Something went wrong, perhaps a file name with a special char. */
5423 if (!(flags
& EW_SILENT
))
5425 MSG(_(e_wildexpand
));
5426 msg_start(); /* don't overwrite this message */
5431 fseek(fd
, 0L, SEEK_END
);
5432 len
= ftell(fd
); /* get size of temp file */
5433 fseek(fd
, 0L, SEEK_SET
);
5434 buffer
= alloc(len
+ 1);
5438 mch_remove(tempname
);
5443 i
= fread((char *)buffer
, 1, len
, fd
);
5445 mch_remove(tempname
);
5448 /* unexpected read error */
5449 EMSG2(_(e_notread
), tempname
);
5456 # if defined(__CYGWIN__) || defined(__CYGWIN32__)
5457 /* Translate <CR><NL> into <NL>. Caution, buffer may contain NUL. */
5459 for (i
= 0; i
< len
; ++i
)
5460 if (!(buffer
[i
] == CAR
&& buffer
[i
+ 1] == NL
))
5466 /* file names are separated with Space */
5467 if (shell_style
== STYLE_ECHO
)
5469 buffer
[len
] = '\n'; /* make sure the buffer ends in NL */
5471 for (i
= 0; *p
!= '\n'; ++i
) /* count number of entries */
5473 while (*p
!= ' ' && *p
!= '\n')
5475 p
= skipwhite(p
); /* skip to next entry */
5478 /* file names are separated with NL */
5479 else if (shell_style
== STYLE_BT
|| shell_style
== STYLE_VIMGLOB
)
5481 buffer
[len
] = NUL
; /* make sure the buffer ends in NUL */
5483 for (i
= 0; *p
!= NUL
; ++i
) /* count number of entries */
5485 while (*p
!= '\n' && *p
!= NUL
)
5489 p
= skipwhite(p
); /* skip leading white space */
5492 /* file names are separated with NUL */
5496 * Some versions of zsh use spaces instead of NULs to separate
5497 * results. Only do this when there is no NUL before the end of the
5498 * buffer, otherwise we would never be able to use file names with
5499 * embedded spaces when zsh does use NULs.
5500 * When we found a NUL once, we know zsh is OK, set did_find_nul and
5501 * don't check for spaces again.
5503 check_spaces
= FALSE
;
5504 if (shell_style
== STYLE_PRINT
&& !did_find_nul
)
5506 /* If there is a NUL, set did_find_nul, else set check_spaces */
5507 if (len
&& (int)STRLEN(buffer
) < len
- 1)
5508 did_find_nul
= TRUE
;
5510 check_spaces
= TRUE
;
5514 * Make sure the buffer ends with a NUL. For STYLE_PRINT there
5515 * already is one, for STYLE_GLOB it needs to be added.
5517 if (len
&& buffer
[len
- 1] == NUL
)
5522 for (p
= buffer
; p
< buffer
+ len
; ++p
)
5523 if (*p
== NUL
|| (*p
== ' ' && check_spaces
)) /* count entry */
5529 ++i
; /* count last entry */
5534 * Can happen when using /bin/sh and typing ":e $NO_SUCH_VAR^I".
5535 * /bin/sh will happily expand it to nothing rather than returning an
5536 * error; and hey, it's good to check anyway -- webb.
5542 *file
= (char_u
**)alloc(sizeof(char_u
*) * i
);
5551 * Isolate the individual file names.
5554 for (i
= 0; i
< *num_file
; ++i
)
5557 /* Space or NL separates */
5558 if (shell_style
== STYLE_ECHO
|| shell_style
== STYLE_BT
5559 || shell_style
== STYLE_VIMGLOB
)
5561 while (!(shell_style
== STYLE_ECHO
&& *p
== ' ')
5562 && *p
!= '\n' && *p
!= NUL
)
5564 if (p
== buffer
+ len
) /* last entry */
5569 p
= skipwhite(p
); /* skip to next entry */
5572 else /* NUL separates */
5574 while (*p
&& p
< buffer
+ len
) /* skip entry */
5581 * Move the file names to allocated memory.
5583 for (j
= 0, i
= 0; i
< *num_file
; ++i
)
5585 /* Require the files to exist. Helps when using /bin/sh */
5586 if (!(flags
& EW_NOTFOUND
) && mch_getperm((*file
)[i
]) < 0)
5589 /* check if this entry should be included */
5590 dir
= (mch_isdir((*file
)[i
]));
5591 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5594 /* Skip files that are not executable if we check for that. */
5595 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe((*file
)[i
]))
5598 p
= alloc((unsigned)(STRLEN((*file
)[i
]) + 1 + dir
));
5601 STRCPY(p
, (*file
)[i
]);
5603 add_pathsep(p
); /* add '/' to a directory name */
5610 if (*num_file
== 0) /* rejected all entries */
5620 if (flags
& EW_NOTFOUND
)
5621 return save_patterns(num_pat
, pat
, num_file
, file
);
5624 #endif /* __EMX__ */
5631 save_patterns(num_pat
, pat
, num_file
, file
)
5640 *file
= (char_u
**)alloc(num_pat
* sizeof(char_u
*));
5643 for (i
= 0; i
< num_pat
; i
++)
5645 s
= vim_strsave(pat
[i
]);
5647 /* Be compatible with expand_filename(): halve the number of
5652 *num_file
= num_pat
;
5659 * Return TRUE if the string "p" contains a wildcard that mch_expandpath() can
5663 mch_has_exp_wildcard(p
)
5666 for ( ; *p
; mb_ptr_adv(p
))
5669 if (*p
== '\\' && p
[1] != NUL
)
5673 if (vim_strchr((char_u
*)
5690 * Return TRUE if the string "p" contains a wildcard.
5691 * Don't recognize '~' at the end as a wildcard.
5697 for ( ; *p
; mb_ptr_adv(p
))
5700 if (*p
== '\\' && p
[1] != NUL
)
5704 if (vim_strchr((char_u
*)
5709 # ifdef VIM_BACKTICK
5719 || (*p
== '~' && p
[1] != NUL
))
5727 have_wildcard(num
, file
)
5733 for (i
= 0; i
< num
; i
++)
5734 if (mch_has_wildcard(file
[i
]))
5740 have_dollars(num
, file
)
5746 for (i
= 0; i
< num
; i
++)
5747 if (vim_strchr(file
[i
], '$') != NULL
)
5751 #endif /* ifndef __EMX__ */
5755 * Scaled-down version of rename(), which is missing in Xenix.
5756 * This version can only move regular files and will fail if the
5757 * destination exists.
5760 mch_rename(src
, dest
)
5761 const char *src
, *dest
;
5765 if (stat(dest
, &st
) >= 0) /* fail if destination exists */
5767 if (link(src
, dest
) != 0) /* link file to new name */
5769 if (mch_remove(src
) == 0) /* delete link to old name */
5773 #endif /* !HAVE_RENAME */
5775 #ifdef FEAT_MOUSE_GPM
5777 * Initializes connection with gpm (if it isn't already opened)
5778 * Return 1 if succeeded (or connection already opened), 0 if failed
5783 static Gpm_Connect gpm_connect
; /* Must it be kept till closing ? */
5787 gpm_connect
.eventMask
= (GPM_UP
| GPM_DRAG
| GPM_DOWN
);
5788 gpm_connect
.defaultMask
= ~GPM_HARD
;
5789 /* Default handling for mouse move*/
5790 gpm_connect
.minMod
= 0; /* Handle any modifier keys */
5791 gpm_connect
.maxMod
= 0xffff;
5792 if (Gpm_Open(&gpm_connect
, 0) > 0)
5794 /* gpm library tries to handling TSTP causes
5795 * problems. Anyways, we close connection to Gpm whenever
5796 * we are going to suspend or starting an external process
5797 * so we shouldn't have problem with this
5799 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
5800 return 1; /* succeed */
5803 Gpm_Close(); /* We don't want to talk to xterm via gpm */
5806 return 1; /* already open */
5810 * Closes connection to gpm
5811 * returns non-zero if connection successfully closed
5816 if (gpm_flag
&& gpm_fd
>= 0) /* if Open */
5820 /* Reads gpm event and adds special keys to input buf. Returns length of
5821 * generated key sequence.
5822 * This function is made after gui_send_mouse_event
5828 static Gpm_Event gpm_event
;
5830 int_u vim_modifiers
;
5832 unsigned char buttons_mask
;
5833 unsigned char gpm_modifiers
;
5834 static unsigned char old_buttons
= 0;
5836 Gpm_GetEvent(&gpm_event
);
5839 /* Don't put events in the input queue now. */
5840 if (hold_gui_events
)
5844 row
= gpm_event
.y
- 1;
5845 col
= gpm_event
.x
- 1;
5847 string
[0] = ESC
; /* Our termcode */
5850 switch (GPM_BARE_EVENTS(gpm_event
.type
))
5853 string
[3] = MOUSE_DRAG
;
5856 buttons_mask
= gpm_event
.buttons
& ~old_buttons
;
5857 old_buttons
= gpm_event
.buttons
;
5858 switch (buttons_mask
)
5861 button
= MOUSE_LEFT
;
5864 button
= MOUSE_MIDDLE
;
5867 button
= MOUSE_RIGHT
;
5871 /*Don't know what to do. Can more than one button be
5872 * reported in one event? */
5874 string
[3] = (char_u
)(button
| 0x20);
5875 SET_NUM_MOUSE_CLICKS(string
[3], gpm_event
.clicks
+ 1);
5878 string
[3] = MOUSE_RELEASE
;
5879 old_buttons
&= ~gpm_event
.buttons
;
5884 /*This code is based on gui_x11_mouse_cb in gui_x11.c */
5885 gpm_modifiers
= gpm_event
.modifiers
;
5886 vim_modifiers
= 0x0;
5887 /* I ignore capslock stats. Aren't we all just hate capslock mixing with
5888 * Vim commands ? Besides, gpm_event.modifiers is unsigned char, and
5889 * K_CAPSSHIFT is defined 8, so it probably isn't even reported
5891 if (gpm_modifiers
& ((1 << KG_SHIFT
) | (1 << KG_SHIFTR
) | (1 << KG_SHIFTL
)))
5892 vim_modifiers
|= MOUSE_SHIFT
;
5894 if (gpm_modifiers
& ((1 << KG_CTRL
) | (1 << KG_CTRLR
) | (1 << KG_CTRLL
)))
5895 vim_modifiers
|= MOUSE_CTRL
;
5896 if (gpm_modifiers
& ((1 << KG_ALT
) | (1 << KG_ALTGR
)))
5897 vim_modifiers
|= MOUSE_ALT
;
5898 string
[3] |= vim_modifiers
;
5899 string
[4] = (char_u
)(col
+ ' ' + 1);
5900 string
[5] = (char_u
)(row
+ ' ' + 1);
5901 add_to_input_buf(string
, 6);
5904 #endif /* FEAT_MOUSE_GPM */
5906 #if defined(FEAT_LIBCALL) || defined(PROTO)
5907 typedef char_u
* (*STRPROCSTR
)__ARGS((char_u
*));
5908 typedef char_u
* (*INTPROCSTR
)__ARGS((int));
5909 typedef int (*STRPROCINT
)__ARGS((char_u
*));
5910 typedef int (*INTPROCINT
)__ARGS((int));
5913 * Call a DLL routine which takes either a string or int param
5914 * and returns an allocated string.
5917 mch_libcall(libname
, funcname
, argstring
, argint
, string_result
, number_result
)
5920 char_u
*argstring
; /* NULL when using a argint */
5922 char_u
**string_result
;/* NULL when using number_result */
5925 # if defined(USE_DLOPEN)
5932 INTPROCSTR ProcAddI
;
5933 char_u
*retval_str
= NULL
;
5935 int success
= FALSE
;
5938 * Get a handle to the DLL module.
5940 # if defined(USE_DLOPEN)
5941 /* First clear any error, it's not cleared by the dlopen() call. */
5944 hinstLib
= dlopen((char *)libname
, RTLD_LAZY
5949 if (hinstLib
== NULL
)
5951 /* "dlerr" must be used before dlclose() */
5952 dlerr
= (char *)dlerror();
5954 EMSG2(_("dlerror = \"%s\""), dlerr
);
5957 hinstLib
= shl_load((const char*)libname
, BIND_IMMEDIATE
|BIND_VERBOSE
, 0L);
5960 /* If the handle is valid, try to get the function address. */
5961 if (hinstLib
!= NULL
)
5963 # ifdef HAVE_SETJMP_H
5965 * Catch a crash when calling the library function. For example when
5966 * using a number where a string pointer is expected.
5969 if (SETJMP(lc_jump_env
) != 0)
5972 # if defined(USE_DLOPEN)
5983 if (argstring
!= NULL
)
5985 # if defined(USE_DLOPEN)
5986 ProcAdd
= (STRPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
5987 dlerr
= (char *)dlerror();
5989 if (shl_findsym(&hinstLib
, (const char *)funcname
,
5990 TYPE_PROCEDURE
, (void *)&ProcAdd
) < 0)
5993 if ((success
= (ProcAdd
!= NULL
5994 # if defined(USE_DLOPEN)
5999 if (string_result
== NULL
)
6000 retval_int
= ((STRPROCINT
)ProcAdd
)(argstring
);
6002 retval_str
= (ProcAdd
)(argstring
);
6007 # if defined(USE_DLOPEN)
6008 ProcAddI
= (INTPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
6009 dlerr
= (char *)dlerror();
6011 if (shl_findsym(&hinstLib
, (const char *)funcname
,
6012 TYPE_PROCEDURE
, (void *)&ProcAddI
) < 0)
6015 if ((success
= (ProcAddI
!= NULL
6016 # if defined(USE_DLOPEN)
6021 if (string_result
== NULL
)
6022 retval_int
= ((INTPROCINT
)ProcAddI
)(argint
);
6024 retval_str
= (ProcAddI
)(argint
);
6028 /* Save the string before we free the library. */
6029 /* Assume that a "1" or "-1" result is an illegal pointer. */
6030 if (string_result
== NULL
)
6031 *number_result
= retval_int
;
6032 else if (retval_str
!= NULL
6033 && retval_str
!= (char_u
*)1
6034 && retval_str
!= (char_u
*)-1)
6035 *string_result
= vim_strsave(retval_str
);
6038 # ifdef HAVE_SETJMP_H
6045 /* try to find the name of this signal */
6046 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
6047 if (lc_signal
== signal_info
[i
].sig
)
6049 EMSG2("E368: got SIG%s in libcall()", signal_info
[i
].name
);
6054 # if defined(USE_DLOPEN)
6055 /* "dlerr" must be used before dlclose() */
6057 EMSG2(_("dlerror = \"%s\""), dlerr
);
6059 /* Free the DLL module. */
6060 (void)dlclose(hinstLib
);
6062 (void)shl_unload(hinstLib
);
6068 EMSG2(_(e_libcall
), funcname
);
6076 #if (defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) || defined(PROTO)
6077 static int xterm_trace
= -1; /* default: disabled */
6078 static int xterm_button
;
6081 * Setup a dummy window for X selections in a terminal.
6090 if (!x_connect_to_server())
6094 if (app_context
!= NULL
&& xterm_Shell
== (Widget
)0)
6096 int (*oldhandler
)();
6097 #if defined(HAVE_SETJMP_H)
6098 int (*oldIOhandler
)();
6100 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6101 struct timeval start_tv
;
6104 gettimeofday(&start_tv
, NULL
);
6107 /* Ignore X errors while opening the display */
6108 oldhandler
= XSetErrorHandler(x_error_check
);
6110 #if defined(HAVE_SETJMP_H)
6111 /* Ignore X IO errors while opening the display */
6112 oldIOhandler
= XSetIOErrorHandler(x_IOerror_check
);
6114 if (SETJMP(lc_jump_env
) != 0)
6122 xterm_dpy
= XtOpenDisplay(app_context
, xterm_display
,
6123 "vim_xterm", "Vim_xterm", NULL
, 0, &z
, &strp
);
6124 #if defined(HAVE_SETJMP_H)
6129 #if defined(HAVE_SETJMP_H)
6130 /* Now handle X IO errors normally. */
6131 (void)XSetIOErrorHandler(oldIOhandler
);
6133 /* Now handle X errors normally. */
6134 (void)XSetErrorHandler(oldhandler
);
6136 if (xterm_dpy
== NULL
)
6139 verb_msg((char_u
*)_("Opening the X display failed"));
6143 /* Catch terminating error of the X server connection. */
6144 (void)XSetIOErrorHandler(x_IOerror_handler
);
6146 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6150 xopen_message(&start_tv
);
6155 /* Create a Shell to make converters work. */
6156 AppShell
= XtVaAppCreateShell("vim_xterm", "Vim_xterm",
6157 applicationShellWidgetClass
, xterm_dpy
,
6159 if (AppShell
== (Widget
)0)
6161 xterm_Shell
= XtVaCreatePopupShell("VIM",
6162 topLevelShellWidgetClass
, AppShell
,
6163 XtNmappedWhenManaged
, 0,
6167 if (xterm_Shell
== (Widget
)0)
6170 x11_setup_atoms(xterm_dpy
);
6171 if (x11_display
== NULL
)
6172 x11_display
= xterm_dpy
;
6174 XtRealizeWidget(xterm_Shell
);
6175 XSync(xterm_dpy
, False
);
6178 if (xterm_Shell
!= (Widget
)0)
6181 if (x11_window
== 0 && (strp
= getenv("WINDOWID")) != NULL
)
6182 x11_window
= (Window
)atol(strp
);
6183 /* Check if $WINDOWID is valid. */
6184 if (test_x11_window(xterm_dpy
) == FAIL
)
6186 if (x11_window
!= 0)
6192 start_xterm_trace(button
)
6195 if (x11_window
== 0 || xterm_trace
< 0 || xterm_Shell
== (Widget
)0)
6198 xterm_button
= button
;
6206 if (xterm_trace
< 0)
6212 * Query the xterm pointer and generate mouse termcodes if necessary
6213 * return TRUE if dragging is active, else FALSE
6226 static char_u
*mouse_code
;
6227 static char_u mouse_name
[2] = {KS_MOUSE
, KE_FILLER
};
6228 static int prev_row
= 0, prev_col
= 0;
6229 static XSizeHints xterm_hints
;
6231 if (xterm_trace
<= 0)
6234 if (xterm_trace
== 1)
6236 /* Get the hints just before tracking starts. The font size might
6237 * have changed recently. */
6238 if (!XGetWMNormalHints(xterm_dpy
, x11_window
, &xterm_hints
, &got_hints
)
6239 || !(got_hints
& PResizeInc
)
6240 || xterm_hints
.width_inc
<= 1
6241 || xterm_hints
.height_inc
<= 1)
6243 xterm_trace
= -1; /* Not enough data -- disable tracing */
6247 /* Rely on the same mouse code for the duration of this */
6248 mouse_code
= find_termcode(mouse_name
);
6249 prev_row
= mouse_row
;
6250 prev_row
= mouse_col
;
6253 /* Find the offset of the chars, there might be a scrollbar on the
6254 * left of the window and/or a menu on the top (eterm etc.) */
6255 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6256 &win_x
, &win_y
, &mask_return
);
6257 xterm_hints
.y
= win_y
- (xterm_hints
.height_inc
* mouse_row
)
6258 - (xterm_hints
.height_inc
/ 2);
6259 if (xterm_hints
.y
<= xterm_hints
.height_inc
/ 2)
6261 xterm_hints
.x
= win_x
- (xterm_hints
.width_inc
* mouse_col
)
6262 - (xterm_hints
.width_inc
/ 2);
6263 if (xterm_hints
.x
<= xterm_hints
.width_inc
/ 2)
6267 if (mouse_code
== NULL
)
6273 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6274 &win_x
, &win_y
, &mask_return
);
6276 row
= check_row((win_y
- xterm_hints
.y
) / xterm_hints
.height_inc
);
6277 col
= check_col((win_x
- xterm_hints
.x
) / xterm_hints
.width_inc
);
6278 if (row
== prev_row
&& col
== prev_col
)
6281 STRCPY(buf
, mouse_code
);
6282 strp
= buf
+ STRLEN(buf
);
6283 *strp
++ = (xterm_button
| MOUSE_DRAG
) & ~0x20;
6284 *strp
++ = (char_u
)(col
+ ' ' + 1);
6285 *strp
++ = (char_u
)(row
+ ' ' + 1);
6287 add_to_input_buf(buf
, STRLEN(buf
));
6294 # if defined(FEAT_GUI) || defined(PROTO)
6296 * Destroy the display, window and app_context. Required for GTK.
6301 if (xterm_Shell
!= (Widget
)0)
6303 XtDestroyWidget(xterm_Shell
);
6304 xterm_Shell
= (Widget
)0;
6306 if (xterm_dpy
!= NULL
)
6309 /* Lesstif and Solaris crash here, lose some memory */
6310 XtCloseDisplay(xterm_dpy
);
6312 if (x11_display
== xterm_dpy
)
6317 if (app_context
!= (XtAppContext
)NULL
)
6319 /* Lesstif and Solaris crash here, lose some memory */
6320 XtDestroyApplicationContext(app_context
);
6321 app_context
= (XtAppContext
)NULL
;
6328 * Catch up with any queued X events. This may put keyboard input into the
6329 * input buffer, call resize call-backs, trigger timers etc. If there is
6330 * nothing in the X event queue (& no timers pending), then we return
6338 while (XtAppPending(app_context
) && !vim_is_input_buf_full())
6340 XtAppNextEvent(app_context
, &event
);
6341 #ifdef FEAT_CLIENTSERVER
6343 XPropertyEvent
*e
= (XPropertyEvent
*)&event
;
6345 if (e
->type
== PropertyNotify
&& e
->window
== commWindow
6346 && e
->atom
== commProperty
&& e
->state
== PropertyNewValue
)
6347 serverEventProc(xterm_dpy
, &event
);
6350 XtDispatchEvent(&event
);
6355 clip_xterm_own_selection(cbd
)
6358 if (xterm_Shell
!= (Widget
)0)
6359 return clip_x11_own_selection(xterm_Shell
, cbd
);
6364 clip_xterm_lose_selection(cbd
)
6367 if (xterm_Shell
!= (Widget
)0)
6368 clip_x11_lose_selection(xterm_Shell
, cbd
);
6372 clip_xterm_request_selection(cbd
)
6375 if (xterm_Shell
!= (Widget
)0)
6376 clip_x11_request_selection(xterm_Shell
, xterm_dpy
, cbd
);
6380 clip_xterm_set_selection(cbd
)
6383 clip_x11_set_selection(cbd
);
6388 #if defined(USE_XSMP) || defined(PROTO)
6390 * Code for X Session Management Protocol.
6392 static void xsmp_handle_save_yourself
__ARGS((SmcConn smc_conn
, SmPointer client_data
, int save_type
, Bool shutdown
, int interact_style
, Bool fast
));
6393 static void xsmp_die
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6394 static void xsmp_save_complete
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6395 static void xsmp_shutdown_cancelled
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6396 static void xsmp_ice_connection
__ARGS((IceConn iceConn
, IcePointer clientData
, Bool opening
, IcePointer
*watchData
));
6399 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6400 static void xsmp_handle_interaction
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6403 * This is our chance to ask the user if they want to save,
6404 * or abort the logout
6408 xsmp_handle_interaction(smc_conn
, client_data
)
6410 SmPointer client_data
;
6412 cmdmod_T save_cmdmod
;
6413 int cancel_shutdown
= False
;
6415 save_cmdmod
= cmdmod
;
6416 cmdmod
.confirm
= TRUE
;
6417 if (check_changed_any(FALSE
))
6418 /* Mustn't logout */
6419 cancel_shutdown
= True
;
6420 cmdmod
= save_cmdmod
;
6421 setcursor(); /* position cursor */
6424 /* Done interaction */
6425 SmcInteractDone(smc_conn
, cancel_shutdown
);
6428 * Only end save-yourself here if we're not cancelling shutdown;
6429 * we'll get a cancelled callback later in which we'll end it.
6430 * Hopefully get around glitchy SMs (like GNOME-1)
6432 if (!cancel_shutdown
)
6434 xsmp
.save_yourself
= False
;
6435 SmcSaveYourselfDone(smc_conn
, True
);
6441 * Callback that starts save-yourself.
6445 xsmp_handle_save_yourself(smc_conn
, client_data
, save_type
,
6446 shutdown
, interact_style
, fast
)
6448 SmPointer client_data
;
6454 /* Handle already being in saveyourself */
6455 if (xsmp
.save_yourself
)
6456 SmcSaveYourselfDone(smc_conn
, True
);
6457 xsmp
.save_yourself
= True
;
6458 xsmp
.shutdown
= shutdown
;
6460 /* First up, preserve all files */
6462 ml_sync_all(FALSE
, FALSE
); /* preserve all swap files */
6465 verb_msg((char_u
*)_("XSMP handling save-yourself request"));
6467 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6468 /* Now see if we can ask about unsaved files */
6469 if (shutdown
&& !fast
&& gui
.in_use
)
6470 /* Need to interact with user, but need SM's permission */
6471 SmcInteractRequest(smc_conn
, SmDialogError
,
6472 xsmp_handle_interaction
, client_data
);
6476 /* Can stop the cycle here */
6477 SmcSaveYourselfDone(smc_conn
, True
);
6478 xsmp
.save_yourself
= False
;
6484 * Callback to warn us of imminent death.
6488 xsmp_die(smc_conn
, client_data
)
6490 SmPointer client_data
;
6494 /* quit quickly leaving swapfiles for modified buffers behind */
6495 getout_preserve_modified(0);
6500 * Callback to tell us that save-yourself has completed.
6504 xsmp_save_complete(smc_conn
, client_data
)
6506 SmPointer client_data
;
6508 xsmp
.save_yourself
= False
;
6513 * Callback to tell us that an instigated shutdown was cancelled
6514 * (maybe even by us)
6518 xsmp_shutdown_cancelled(smc_conn
, client_data
)
6520 SmPointer client_data
;
6522 if (xsmp
.save_yourself
)
6523 SmcSaveYourselfDone(smc_conn
, True
);
6524 xsmp
.save_yourself
= False
;
6525 xsmp
.shutdown
= False
;
6530 * Callback to tell us that a new ICE connection has been established.
6534 xsmp_ice_connection(iceConn
, clientData
, opening
, watchData
)
6536 IcePointer clientData
;
6538 IcePointer
*watchData
;
6540 /* Intercept creation of ICE connection fd */
6543 xsmp_icefd
= IceConnectionNumber(iceConn
);
6544 IceRemoveConnectionWatch(xsmp_ice_connection
, NULL
);
6549 /* Handle any ICE processing that's required; return FAIL if SM lost */
6551 xsmp_handle_requests()
6555 if (IceProcessMessages(xsmp
.iceconn
, NULL
, &rep
)
6556 == IceProcessMessagesIOError
)
6560 verb_msg((char_u
*)_("XSMP lost ICE connection"));
6570 /* Set up X Session Management Protocol */
6574 char errorstring
[80];
6575 SmcCallbacks smcallbacks
;
6583 verb_msg((char_u
*)_("XSMP opening connection"));
6585 xsmp
.save_yourself
= xsmp
.shutdown
= False
;
6587 /* Set up SM callbacks - must have all, even if they're not used */
6588 smcallbacks
.save_yourself
.callback
= xsmp_handle_save_yourself
;
6589 smcallbacks
.save_yourself
.client_data
= NULL
;
6590 smcallbacks
.die
.callback
= xsmp_die
;
6591 smcallbacks
.die
.client_data
= NULL
;
6592 smcallbacks
.save_complete
.callback
= xsmp_save_complete
;
6593 smcallbacks
.save_complete
.client_data
= NULL
;
6594 smcallbacks
.shutdown_cancelled
.callback
= xsmp_shutdown_cancelled
;
6595 smcallbacks
.shutdown_cancelled
.client_data
= NULL
;
6597 /* Set up a watch on ICE connection creations. The "dummy" argument is
6598 * apparently required for FreeBSD (we get a BUS error when using NULL). */
6599 if (IceAddConnectionWatch(xsmp_ice_connection
, &dummy
) == 0)
6602 verb_msg((char_u
*)_("XSMP ICE connection watch failed"));
6606 /* Create an SM connection */
6607 xsmp
.smcconn
= SmcOpenConnection(
6612 SmcSaveYourselfProcMask
| SmcDieProcMask
6613 | SmcSaveCompleteProcMask
| SmcShutdownCancelledProcMask
,
6617 sizeof(errorstring
),
6619 if (xsmp
.smcconn
== NULL
)
6621 char errorreport
[132];
6625 vim_snprintf(errorreport
, sizeof(errorreport
),
6626 _("XSMP SmcOpenConnection failed: %s"), errorstring
);
6627 verb_msg((char_u
*)errorreport
);
6631 xsmp
.iceconn
= SmcGetIceConnection(xsmp
.smcconn
);
6635 smname
.value
= "vim";
6637 smnameprop
.name
= "SmProgram";
6638 smnameprop
.type
= "SmARRAY8";
6639 smnameprop
.num_vals
= 1;
6640 smnameprop
.vals
= &smname
;
6642 smprops
[0] = &smnameprop
;
6643 SmcSetProperties(xsmp
.smcconn
, 1, smprops
);
6648 /* Shut down XSMP comms. */
6652 if (xsmp_icefd
!= -1)
6654 SmcCloseConnection(xsmp
.smcconn
, 0, NULL
);
6655 vim_free(xsmp
.clientid
);
6656 xsmp
.clientid
= NULL
;
6660 #endif /* USE_XSMP */
6664 /* Translate character to its CTRL- value */
6668 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6669 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6670 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6671 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6672 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6673 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6677 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6680 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6691 0, 0, 0, 0, 0, 0, 0,
6702 0, 0, 0, 0, 0, 0, 0, 0,
6715 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6717 /* BE - C0 */ 0, 0, 0,
6727 /* CA - D0 */ 0, 0, 0, 0, 0, 0, 0,
6737 /* DA - DF */ 0, 0, 0, 0, 0, 0,
6748 /* EA - FF*/ 0, 0, 0, 0, 0, 0,
6749 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6752 char MetaCharTable
[]=
6753 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
6754 0, 0, 0, 0,'\\', 0,'F', 0,'W','M','N', 0, 0, 0, 0, 0,
6755 0, 0, 0, 0,']', 0, 0,'G', 0, 0,'R','O', 0, 0, 0, 0,
6756 '@','A','B','C','D','E', 0, 0,'H','I','J','K','L', 0, 0, 0,
6757 'P','Q', 0,'S','T','U','V', 0,'X','Y','Z','[', 0, 0,'^', 0
6761 /* TODO: Use characters NOT numbers!!! */
6762 char CtrlCharTable
[]=
6763 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
6764 124,193,194,195, 0,201, 0, 0, 0, 0, 0,210,211,212,213,214,
6765 215,216,217,226, 0,209,200, 0,231,232, 0, 0,224,189, 95,109,
6766 0, 0, 0, 0, 0, 0,230,173, 0, 0, 0, 0, 0,197,198,199,
6767 0, 0,229, 0, 0, 0, 0,196, 0, 0, 0, 0,227,228, 0,233,