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 * Use this prototype for select, some include files have a wrong prototype
54 # define select beos_select
60 # include <sys/cygwin.h> /* for cygwin_conv_to_posix_path() */
64 #if defined(HAVE_SELECT)
65 extern int select
__ARGS((int, fd_set
*, fd_set
*, fd_set
*, struct timeval
*));
70 /* <linux/keyboard.h> contains defines conflicting with "keymap.h",
71 * I just copied relevant defines here. A cleaner solution would be to put gpm
72 * code into separate file and include there linux/keyboard.h
74 /* #include <linux/keyboard.h> */
83 # define KG_CAPSSHIFT 8
85 static void gpm_close
__ARGS((void));
86 static int gpm_open
__ARGS((void));
87 static int mch_gpm_process
__ARGS((void));
91 * end of autoconf section. To be extended...
94 /* Are the following #ifdefs still required? And why? Is that for X11? */
96 #if defined(ESIX) || defined(M_UNIX) && !defined(SCO)
105 #if defined(SIGWINDOW) && !defined(SIGWINCH) /* hpux 9.01 has it */
106 # define SIGWINCH SIGWINDOW
110 # include <X11/Xlib.h>
111 # include <X11/Xutil.h>
112 # include <X11/Xatom.h>
113 # ifdef FEAT_XCLIPBOARD
114 # include <X11/Intrinsic.h>
115 # include <X11/Shell.h>
116 # include <X11/StringDefs.h>
117 static Widget xterm_Shell
= (Widget
)0;
118 static void xterm_update
__ARGS((void));
121 # if defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE)
122 Window x11_window
= 0;
124 Display
*x11_display
= NULL
;
127 static int get_x11_windis
__ARGS((void));
128 static void set_x11_title
__ARGS((char_u
*));
129 static void set_x11_icon
__ARGS((char_u
*));
134 static int get_x11_title
__ARGS((int));
135 static int get_x11_icon
__ARGS((int));
137 static char_u
*oldtitle
= NULL
;
138 static int did_set_title
= FALSE
;
139 static char_u
*oldicon
= NULL
;
140 static int did_set_icon
= FALSE
;
143 static void may_core_dump
__ARGS((void));
145 static int WaitForChar
__ARGS((long));
146 #if defined(__BEOS__)
147 int RealWaitForChar
__ARGS((int, long, int *));
149 static int RealWaitForChar
__ARGS((int, long, int *));
152 #ifdef FEAT_XCLIPBOARD
153 static int do_xterm_trace
__ARGS((void));
154 # define XT_TRACE_DELAY 50 /* delay for xterm tracing */
157 static void handle_resize
__ARGS((void));
159 #if defined(SIGWINCH)
160 static RETSIGTYPE sig_winch
__ARGS(SIGPROTOARG
);
163 static RETSIGTYPE catch_sigint
__ARGS(SIGPROTOARG
);
166 static RETSIGTYPE catch_sigpwr
__ARGS(SIGPROTOARG
);
168 #if defined(SIGALRM) && defined(FEAT_X11) \
169 && defined(FEAT_TITLE) && !defined(FEAT_GUI_GTK)
170 # define SET_SIG_ALARM
171 static RETSIGTYPE sig_alarm
__ARGS(SIGPROTOARG
);
172 static int sig_alarm_called
;
174 static RETSIGTYPE deathtrap
__ARGS(SIGPROTOARG
);
176 static void catch_int_signal
__ARGS((void));
177 static void set_signals
__ARGS((void));
178 static void catch_signals
__ARGS((RETSIGTYPE (*func_deadly
)(), RETSIGTYPE (*func_other
)()));
180 static int have_wildcard
__ARGS((int, char_u
**));
181 static int have_dollars
__ARGS((int, char_u
**));
185 static int save_patterns
__ARGS((int num_pat
, char_u
**pat
, int *num_file
, char_u
***file
));
189 # define SIG_ERR ((RETSIGTYPE (*)())-1)
192 static int do_resize
= FALSE
;
194 static char_u
*extra_shell_arg
= NULL
;
195 static int show_shell_mess
= TRUE
;
197 static int deadly_signal
= 0; /* The signal we caught */
198 static int in_mch_delay
= FALSE
; /* sleeping in mch_delay() */
200 static int curr_tmode
= TMODE_COOK
; /* contains current terminal mode */
205 SmcConn smcconn
; /* The SM connection ID */
206 IceConn iceconn
; /* The ICE connection ID */
207 Bool save_yourself
; /* If we're in the middle of a save_yourself */
208 Bool shutdown
; /* If we're in shutdown mode */
211 static xsmp_config_T xsmp
;
214 #ifdef SYS_SIGLIST_DECLARED
217 * extern char *_sys_siglist[NSIG];
218 * on Irix, Linux, NetBSD and Solaris. It contains a nice list of strings
219 * that describe the signals. That is nearly what we want here. But
220 * autoconf does only check for sys_siglist (without the underscore), I
221 * do not want to change everything today.... jw.
222 * This is why AC_DECL_SYS_SIGLIST is commented out in configure.in
226 static struct signalinfo
228 int sig
; /* Signal number, eg. SIGSEGV etc */
229 char *name
; /* Signal name (not char_u!). */
230 char deadly
; /* Catch as a deadly signal? */
234 {SIGHUP
, "HUP", TRUE
},
237 {SIGQUIT
, "QUIT", TRUE
},
240 {SIGILL
, "ILL", TRUE
},
243 {SIGTRAP
, "TRAP", TRUE
},
246 {SIGABRT
, "ABRT", TRUE
},
249 {SIGEMT
, "EMT", TRUE
},
252 {SIGFPE
, "FPE", TRUE
},
255 {SIGBUS
, "BUS", TRUE
},
258 {SIGSEGV
, "SEGV", TRUE
},
261 {SIGSYS
, "SYS", TRUE
},
264 {SIGALRM
, "ALRM", FALSE
}, /* Perl's alarm() can trigger it */
267 {SIGTERM
, "TERM", TRUE
},
270 {SIGVTALRM
, "VTALRM", TRUE
},
272 #if defined(SIGPROF) && !defined(FEAT_MZSCHEME) && !defined(WE_ARE_PROFILING)
273 /* MzScheme uses SIGPROF for its own needs; On Linux with profiling
274 * this makes Vim exit. WE_ARE_PROFILING is defined in Makefile. */
275 {SIGPROF
, "PROF", TRUE
},
278 {SIGXCPU
, "XCPU", TRUE
},
281 {SIGXFSZ
, "XFSZ", TRUE
},
284 {SIGUSR1
, "USR1", TRUE
},
287 {SIGUSR2
, "USR2", TRUE
},
290 {SIGINT
, "INT", FALSE
},
293 {SIGWINCH
, "WINCH", FALSE
},
296 {SIGTSTP
, "TSTP", FALSE
},
299 {SIGPIPE
, "PIPE", FALSE
},
301 {-1, "Unknown!", FALSE
}
309 write(1, (char *)s
, len
);
310 if (p_wd
) /* Unix is too fast, slow down a bit more */
311 RealWaitForChar(read_cmd_fd
, p_wd
, NULL
);
315 * mch_inchar(): low level input function.
316 * Get a characters from the keyboard.
317 * Return the number of characters that are available.
318 * If wtime == 0 do not wait for characters.
319 * If wtime == n wait a short time for characters.
320 * If wtime == -1 wait forever for characters.
323 mch_inchar(buf
, maxlen
, wtime
, tb_change_cnt
)
326 long wtime
; /* don't use "time", MIPS cannot handle it */
331 /* Check if window changed size while we were busy, perhaps the ":set
332 * columns=99" command was used. */
338 while (WaitForChar(wtime
) == 0) /* no character available */
340 if (!do_resize
) /* return if not interrupted by resize */
345 else /* wtime == -1 */
348 * If there is no character available within 'updatetime' seconds
349 * flush all the swap files to disk.
350 * Also done when interrupted by SIGWINCH.
352 if (WaitForChar(p_ut
) == 0)
355 if (trigger_cursorhold() && maxlen
>= 3
356 && !typebuf_changed(tb_change_cnt
))
360 buf
[2] = (int)KE_CURSORHOLD
;
368 for (;;) /* repeat until we got a character */
370 while (do_resize
) /* window changed size */
373 * we want to be interrupted by the winch signal
376 if (do_resize
) /* interrupted by SIGWINCH signal */
379 /* If input was put directly in typeahead buffer bail out here. */
380 if (typebuf_changed(tb_change_cnt
))
384 * For some terminals we only get one character at a time.
385 * We want the get all available characters, so we could keep on
386 * trying until none is available
387 * For some other terminals this is quite slow, that's why we don't do
390 len
= read_from_input_buf(buf
, (long)maxlen
);
396 for (i
= 0; i
< len
; i
++)
413 * return non-zero if a character is available
418 return WaitForChar(0L);
421 #if defined(HAVE_TOTAL_MEM) || defined(PROTO)
422 # ifdef HAVE_SYS_RESOURCE_H
423 # include <sys/resource.h>
425 # if defined(HAVE_SYS_SYSCTL_H) && defined(HAVE_SYSCTL)
426 # include <sys/sysctl.h>
428 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
429 # include <sys/sysinfo.h>
433 * Return total amount of memory available in Kbyte.
434 * Doesn't change when memory has been allocated.
438 mch_total_mem(special
)
442 return ulimit(3, 0L) >> 10; /* always 32MB? */
445 long_u shiftright
= 10; /* how much to shift "mem" right for Kbyte */
451 /* BSD way of getting the amount of RAM available. */
454 len
= sizeof(physmem
);
455 if (sysctl(mib
, 2, &physmem
, &len
, NULL
, 0) == 0)
456 mem
= (long_u
)physmem
;
459 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
462 struct sysinfo sinfo
;
464 /* Linux way of getting amount of RAM available */
465 if (sysinfo(&sinfo
) == 0)
467 # ifdef HAVE_SYSINFO_MEM_UNIT
468 /* avoid overflow as much as possible */
469 while (shiftright
> 0 && (sinfo
.mem_unit
& 1) == 0)
471 sinfo
.mem_unit
= sinfo
.mem_unit
>> 1;
474 mem
= sinfo
.totalram
* sinfo
.mem_unit
;
476 mem
= sinfo
.totalram
;
485 long pagesize
, pagecount
;
487 /* Solaris way of getting amount of RAM available */
488 pagesize
= sysconf(_SC_PAGESIZE
);
489 pagecount
= sysconf(_SC_PHYS_PAGES
);
490 if (pagesize
> 0 && pagecount
> 0)
492 /* avoid overflow as much as possible */
493 while (shiftright
> 0 && (pagesize
& 1) == 0)
495 pagesize
= (long_u
)pagesize
>> 1;
498 mem
= (long_u
)pagesize
* pagecount
;
503 /* Return the minimum of the physical memory and the user limit, because
504 * using more than the user limit may cause Vim to be terminated. */
505 # if defined(HAVE_SYS_RESOURCE_H) && defined(HAVE_GETRLIMIT)
509 if (getrlimit(RLIMIT_DATA
, &rlp
) == 0
510 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
511 # ifdef RLIM_INFINITY
512 && rlp
.rlim_cur
!= RLIM_INFINITY
514 && ((long_u
)rlp
.rlim_cur
>> 10) < (mem
>> shiftright
)
517 mem
= (long_u
)rlp
.rlim_cur
;
524 return mem
>> shiftright
;
525 return (long_u
)0x1fffff;
531 mch_delay(msec
, ignoreinput
)
537 long total
= msec
; /* remember original value */
542 /* Go to cooked mode without echo, to allow SIGINT interrupting us
543 * here. But we don't want QUIT to kill us (CTRL-\ used in a
544 * shell may produce SIGQUIT). */
546 old_tmode
= curr_tmode
;
547 if (curr_tmode
== TMODE_RAW
)
548 settmode(TMODE_SLEEP
);
551 * Everybody sleeps in a different way...
552 * Prefer nanosleep(), some versions of usleep() can only sleep up to
558 /* if total is large enough, wait by portions in p_mzq */
565 #ifdef HAVE_NANOSLEEP
569 ts
.tv_sec
= msec
/ 1000;
570 ts
.tv_nsec
= (msec
% 1000) * 1000000;
571 (void)nanosleep(&ts
, NULL
);
577 usleep((unsigned int)(999 * 1000));
580 usleep((unsigned int)(msec
* 1000));
583 poll(NULL
, 0, (int)msec
);
591 tv
.tv_sec
= msec
/ 1000;
592 tv
.tv_usec
= (msec
% 1000) * 1000;
594 * NOTE: Solaris 2.6 has a bug that makes select() hang here. Get
595 * a patch from Sun to fix this. Reported by Gunnar Pedersen.
597 select(0, NULL
, NULL
, NULL
, &tv
);
599 # endif /* __EMX__ */
600 # endif /* HAVE_SELECT */
601 # endif /* HAVE_NANOSLEEP */
602 #endif /* HAVE_USLEEP */
609 in_mch_delay
= FALSE
;
615 #if 0 /* disabled, no longer needed now that regmatch() is not recursive */
616 # if defined(HAVE_GETRLIMIT)
617 # define HAVE_STACK_LIMIT
621 #if defined(HAVE_STACK_LIMIT) \
622 || (!defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGSTACK))
623 # define HAVE_CHECK_STACK_GROWTH
625 * Support for checking for an almost-out-of-stack-space situation.
629 * Return a pointer to an item on the stack. Used to find out if the stack
632 static void check_stack_growth
__ARGS((char *p
));
633 static int stack_grows_downwards
;
636 * Find out if the stack grows upwards or downwards.
637 * "p" points to a variable on the stack of the caller.
640 check_stack_growth(p
)
645 stack_grows_downwards
= (p
> (char *)&i
);
649 #if defined(HAVE_STACK_LIMIT) || defined(PROTO)
650 static char *stack_limit
= NULL
;
652 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
653 # include <pthread.h>
654 # include <pthread_np.h>
658 * Find out until how var the stack can grow without getting into trouble.
659 * Called when starting up and when switching to the signal stack in
669 /* Set the stack limit to 15/16 of the allowable size. Skip this when the
670 * limit doesn't fit in a long (rlim_cur might be "long long"). */
671 if (getrlimit(RLIMIT_STACK
, &rlp
) == 0
672 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
673 # ifdef RLIM_INFINITY
674 && rlp
.rlim_cur
!= RLIM_INFINITY
678 lim
= (long)rlp
.rlim_cur
;
679 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
684 /* On FreeBSD the initial thread always has a fixed stack size, no
685 * matter what the limits are set to. Normally it's 1 Mbyte. */
686 pthread_attr_init(&attr
);
687 if (pthread_attr_get_np(pthread_self(), &attr
) == 0)
689 pthread_attr_getstacksize(&attr
, &size
);
690 if (lim
> (long)size
)
693 pthread_attr_destroy(&attr
);
696 if (stack_grows_downwards
)
698 stack_limit
= (char *)((long)&i
- (lim
/ 16L * 15L));
699 if (stack_limit
>= (char *)&i
)
700 /* overflow, set to 1/16 of current stack position */
701 stack_limit
= (char *)((long)&i
/ 16L);
705 stack_limit
= (char *)((long)&i
+ (lim
/ 16L * 15L));
706 if (stack_limit
<= (char *)&i
)
707 stack_limit
= NULL
; /* overflow */
713 * Return FAIL when running out of stack space.
714 * "p" must point to any variable local to the caller that's on the stack.
720 if (stack_limit
!= NULL
)
722 if (stack_grows_downwards
)
727 else if (p
> stack_limit
)
734 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
736 * Support for using the signal stack.
737 * This helps when we run out of stack space, which causes a SIGSEGV. The
738 * signal handler then must run on another stack, since the normal stack is
743 # define SIGSTKSZ 8000 /* just a guess of how much stack is needed... */
746 # ifdef HAVE_SIGALTSTACK
747 static stack_t sigstk
; /* for sigaltstack() */
749 static struct sigstack sigstk
; /* for sigstack() */
752 static void init_signal_stack
__ARGS((void));
753 static char *signal_stack
;
758 if (signal_stack
!= NULL
)
760 # ifdef HAVE_SIGALTSTACK
761 # if defined(__APPLE__) && (!defined(MAC_OS_X_VERSION_MAX_ALLOWED) \
762 || MAC_OS_X_VERSION_MAX_ALLOWED <= 1040)
763 /* missing prototype. Adding it to osdef?.h.in doesn't work, because
764 * "struct sigaltstack" needs to be declared. */
765 extern int sigaltstack
__ARGS((const struct sigaltstack
*ss
, struct sigaltstack
*oss
));
769 sigstk
.ss_base
= signal_stack
;
771 sigstk
.ss_sp
= signal_stack
;
773 sigstk
.ss_size
= SIGSTKSZ
;
775 (void)sigaltstack(&sigstk
, NULL
);
777 sigstk
.ss_sp
= signal_stack
;
778 if (stack_grows_downwards
)
779 sigstk
.ss_sp
+= SIGSTKSZ
- 1;
780 sigstk
.ss_onstack
= 0;
781 (void)sigstack(&sigstk
, NULL
);
788 * We need correct potatotypes for a signal function, otherwise mean compilers
789 * will barf when the second argument to signal() is ``wrong''.
790 * Let me try it with a few tricky defines from my own osdef.h (jw).
792 #if defined(SIGWINCH)
795 sig_winch
SIGDEFARG(sigarg
)
797 /* this is not required on all systems, but it doesn't hurt anybody */
798 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
807 catch_sigint
SIGDEFARG(sigarg
)
809 /* this is not required on all systems, but it doesn't hurt anybody */
810 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
819 catch_sigpwr
SIGDEFARG(sigarg
)
821 /* this is not required on all systems, but it doesn't hurt anybody */
822 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
824 * I'm not sure we get the SIGPWR signal when the system is really going
825 * down or when the batteries are almost empty. Just preserve the swap
826 * files and don't exit, that can't do any harm.
828 ml_sync_all(FALSE
, FALSE
);
835 * signal function for alarm().
839 sig_alarm
SIGDEFARG(sigarg
)
841 /* doesn't do anything, just to break a system call */
842 sig_alarm_called
= TRUE
;
847 #if (defined(HAVE_SETJMP_H) \
848 && ((defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) \
849 || defined(FEAT_LIBCALL))) \
852 * A simplistic version of setjmp() that only allows one level of using.
853 * Don't call twice before calling mch_endjmp()!.
856 * if (SETJMP(lc_jump_env) != 0)
866 * Note: Can't move SETJMP() here, because a function calling setjmp() must
867 * not return before the saved environment is used.
868 * Returns OK for normal return, FAIL when the protected code caused a
869 * problem and LONGJMP() was used.
889 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
890 /* On FreeBSD the signal stack has to be reset after using siglongjmp(),
891 * otherwise catching the signal only works once. */
898 * This function handles deadly signals.
899 * It tries to preserve any swap file and exit properly.
900 * (partly from Elvis).
903 deathtrap
SIGDEFARG(sigarg
)
905 static int entered
= 0; /* count the number of times we got here.
906 Note: when memory has been corrupted
907 this may get an arbitrary value! */
912 #if defined(HAVE_SETJMP_H)
914 * Catch a crash in protected code.
915 * Restores the environment saved in lc_jump_env, which looks like
916 * SETJMP() returns 1.
920 # if defined(SIGHASARG)
923 lc_active
= FALSE
; /* don't jump again */
924 LONGJMP(lc_jump_env
, 1);
931 /* While in mch_delay() we go to cooked mode to allow a CTRL-C to
932 * interrupt us. But in cooked mode we may also get SIGQUIT, e.g., when
933 * pressing CTRL-\, but we don't want Vim to exit then. */
934 if (in_mch_delay
&& sigarg
== SIGQUIT
)
938 /* When SIGHUP, SIGQUIT, etc. are blocked: postpone the effect and return
939 * here. This avoids that a non-reentrant function is interrupted, e.g.,
940 * free(). Calling free() again may then cause a crash. */
962 && !vim_handle_signal(sigarg
))
966 /* Remember how often we have been called. */
970 /* Set the v:dying variable. */
971 set_vim_var_nr(VV_DYING
, (long)entered
);
974 #ifdef HAVE_STACK_LIMIT
975 /* Since we are now using the signal stack, need to reset the stack
976 * limit. Otherwise using a regexp will fail. */
981 /* This is for opening gdb the moment Vim crashes.
982 * You need to manually adjust the file name and Vim executable name.
983 * Suggested by SungHyun Nam. */
985 # define VI_GDB_FILE "/tmp/vimgdb"
986 # define VIM_NAME "/usr/bin/vim"
987 FILE *fp
= fopen(VI_GDB_FILE
, "w");
995 , VIM_NAME
, getpid());
997 system("xterm -e gdb -x "VI_GDB_FILE
);
1004 /* try to find the name of this signal */
1005 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1006 if (sigarg
== signal_info
[i
].sig
)
1008 deadly_signal
= sigarg
;
1011 full_screen
= FALSE
; /* don't write message to the GUI, it might be
1012 * part of the problem... */
1014 * If something goes wrong after entering here, we may get here again.
1015 * When this happens, give a message and try to exit nicely (resetting the
1016 * terminal mode, etc.)
1017 * When this happens twice, just exit, don't even try to give a message,
1018 * stack may be corrupt or something weird.
1019 * When this still happens again (or memory was corrupted in such a way
1020 * that "entered" was clobbered) use _exit(), don't try freeing resources.
1024 reset_signals(); /* don't catch any signals anymore */
1032 OUT_STR(_("Vim: Double signal, exiting\n"));
1038 sprintf((char *)IObuff
, _("Vim: Caught deadly signal %s\n"),
1039 signal_info
[i
].name
);
1041 sprintf((char *)IObuff
, _("Vim: Caught deadly signal\n"));
1043 preserve_exit(); /* preserve files and exit */
1056 * On Solaris with multi-threading, suspending might not work immediately.
1057 * Catch the SIGCONT signal, which will be used as an indication whether the
1058 * suspending has been done or not.
1060 static int sigcont_received
;
1061 static RETSIGTYPE sigcont_handler
__ARGS(SIGPROTOARG
);
1064 * signal handler for SIGCONT
1068 sigcont_handler
SIGDEFARG(sigarg
)
1070 sigcont_received
= TRUE
;
1076 * If the machine has job control, use it to suspend the program,
1077 * otherwise fake it by starting a new shell.
1082 /* BeOS does have SIGTSTP, but it doesn't work. */
1083 #if defined(SIGTSTP) && !defined(__BEOS__)
1084 out_flush(); /* needed to make cursor visible on some systems */
1085 settmode(TMODE_COOK
);
1086 out_flush(); /* needed to disable mouse on some systems */
1088 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
1089 /* Since we are going to sleep, we can't respond to requests for the X
1090 * selections. Lose them, otherwise other applications will hang. But
1091 * first copy the text to cut buffer 0. */
1092 if (clip_star
.owned
|| clip_plus
.owned
)
1094 x11_export_final_selection();
1095 if (clip_star
.owned
)
1096 clip_lose_selection(&clip_star
);
1097 if (clip_plus
.owned
)
1098 clip_lose_selection(&clip_plus
);
1099 if (x11_display
!= NULL
)
1100 XFlush(x11_display
);
1105 sigcont_received
= FALSE
;
1107 kill(0, SIGTSTP
); /* send ourselves a STOP signal */
1109 /* When we didn't suspend immediately in the kill(), do it now. Happens
1110 * on multi-threaded Solaris. */
1111 if (!sigcont_received
)
1117 * Set oldtitle to NULL, so the current title is obtained again.
1122 settmode(TMODE_RAW
);
1123 need_check_timestamps
= TRUE
;
1124 did_check_timestamps
= FALSE
;
1139 #ifdef MACOS_CONVERT
1147 #if defined(SIGWINCH)
1149 * WINDOW CHANGE signal is handled with sig_winch().
1151 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
1155 * We want the STOP signal to work, to make mch_suspend() work.
1156 * For "rvim" the STOP signal is ignored.
1159 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
1162 signal(SIGCONT
, sigcont_handler
);
1166 * We want to ignore breaking of PIPEs.
1169 signal(SIGPIPE
, SIG_IGN
);
1177 * Ignore alarm signals (Perl's alarm() generates it).
1180 signal(SIGALRM
, SIG_IGN
);
1184 * Catch SIGPWR (power failure?) to preserve the swap files, so that no
1185 * work will be lost.
1188 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
1192 * Arrange for other signals to gracefully shutdown Vim.
1194 catch_signals(deathtrap
, SIG_ERR
);
1196 #if defined(FEAT_GUI) && defined(SIGHUP)
1198 * When the GUI is running, ignore the hangup signal.
1201 signal(SIGHUP
, SIG_IGN
);
1205 #if defined(SIGINT) || defined(PROTO)
1207 * Catch CTRL-C (only works while in Cooked mode).
1212 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
1219 catch_signals(SIG_DFL
, SIG_DFL
);
1221 /* SIGCONT isn't in the list, because its default action is ignore */
1222 signal(SIGCONT
, SIG_DFL
);
1227 catch_signals(func_deadly
, func_other
)
1228 RETSIGTYPE (*func_deadly
)();
1229 RETSIGTYPE (*func_other
)();
1233 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1234 if (signal_info
[i
].deadly
)
1236 #if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGACTION)
1237 struct sigaction sa
;
1239 /* Setup to use the alternate stack for the signal function. */
1240 sa
.sa_handler
= func_deadly
;
1241 sigemptyset(&sa
.sa_mask
);
1242 # if defined(__linux__) && defined(_REENTRANT)
1243 /* On Linux, with glibc compiled for kernel 2.2, there is a bug in
1244 * thread handling in combination with using the alternate stack:
1245 * pthread library functions try to use the stack pointer to
1246 * identify the current thread, causing a SEGV signal, which
1247 * recursively calls deathtrap() and hangs. */
1250 sa
.sa_flags
= SA_ONSTACK
;
1252 sigaction(signal_info
[i
].sig
, &sa
, NULL
);
1254 # if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGVEC)
1257 /* Setup to use the alternate stack for the signal function. */
1258 sv
.sv_handler
= func_deadly
;
1260 sv
.sv_flags
= SV_ONSTACK
;
1261 sigvec(signal_info
[i
].sig
, &sv
, NULL
);
1263 signal(signal_info
[i
].sig
, func_deadly
);
1267 else if (func_other
!= SIG_ERR
)
1268 signal(signal_info
[i
].sig
, func_other
);
1272 * Handling of SIGHUP, SIGQUIT and SIGTERM:
1273 * "when" == a signal: when busy, postpone and return FALSE, otherwise
1275 * "when" == SIGNAL_BLOCK: Going to be busy, block signals
1276 * "when" == SIGNAL_UNBLOCK: Going to wait, unblock signals, use postponed
1278 * Returns TRUE when Vim should exit.
1281 vim_handle_signal(sig
)
1284 static int got_signal
= 0;
1285 static int blocked
= TRUE
;
1289 case SIGNAL_BLOCK
: blocked
= TRUE
;
1292 case SIGNAL_UNBLOCK
: blocked
= FALSE
;
1293 if (got_signal
!= 0)
1295 kill(getpid(), got_signal
);
1300 default: if (!blocked
)
1301 return TRUE
; /* exit! */
1306 got_int
= TRUE
; /* break any loops */
1313 * Check_win checks whether we have an interactive stdout.
1317 mch_check_win(argc
, argv
)
1323 * Store argv[0], may be used for $VIM. Only use it if it is an absolute
1324 * name, mostly it's just "vim" and found in the path, which is unusable.
1326 if (mch_isFullName(argv
[0]))
1327 exe_name
= vim_strsave((char_u
*)argv
[0]);
1335 * Return TRUE if the input comes from a terminal, FALSE otherwise.
1340 if (isatty(read_cmd_fd
))
1347 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H) \
1348 && (defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE))
1350 static void xopen_message
__ARGS((struct timeval
*tvp
));
1353 * Give a message about the elapsed time for opening the X window.
1357 struct timeval
*tvp
; /* must contain start time */
1359 struct timeval end_tv
;
1361 /* Compute elapsed time. */
1362 gettimeofday(&end_tv
, NULL
);
1363 smsg((char_u
*)_("Opening the X display took %ld msec"),
1364 (end_tv
.tv_sec
- tvp
->tv_sec
) * 1000L
1365 + (end_tv
.tv_usec
- tvp
->tv_usec
) / 1000L);
1370 #if defined(FEAT_X11) && (defined(FEAT_TITLE) || defined(FEAT_XCLIPBOARD))
1372 * A few functions shared by X11 title and clipboard code.
1374 static int x_error_handler
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1375 static int x_error_check
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1376 static int x_connect_to_server
__ARGS((void));
1377 static int test_x11_window
__ARGS((Display
*dpy
));
1379 static int got_x_error
= FALSE
;
1382 * X Error handler, otherwise X just exits! (very rude) -- webb
1385 x_error_handler(dpy
, error_event
)
1387 XErrorEvent
*error_event
;
1389 XGetErrorText(dpy
, error_event
->error_code
, (char *)IObuff
, IOSIZE
);
1390 STRCAT(IObuff
, _("\nVim: Got X error\n"));
1392 /* We cannot print a message and continue, because no X calls are allowed
1393 * here (causes my system to hang). Silently continuing might be an
1395 preserve_exit(); /* preserve files and exit */
1397 return 0; /* NOTREACHED */
1401 * Another X Error handler, just used to check for errors.
1405 x_error_check(dpy
, error_event
)
1407 XErrorEvent
*error_event
;
1413 #if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
1414 # if defined(HAVE_SETJMP_H)
1416 * An X IO Error handler, used to catch error while opening the display.
1418 static int x_IOerror_check
__ARGS((Display
*dpy
));
1422 x_IOerror_check(dpy
)
1425 /* This function should not return, it causes exit(). Longjump instead. */
1426 LONGJMP(lc_jump_env
, 1);
1433 * An X IO Error handler, used to catch terminal errors.
1435 static int x_IOerror_handler
__ARGS((Display
*dpy
));
1439 x_IOerror_handler(dpy
)
1445 xterm_Shell
= (Widget
)0;
1447 /* This function should not return, it causes exit(). Longjump instead. */
1448 LONGJMP(x_jump_env
, 1);
1455 * Return TRUE when connection to the X server is desired.
1458 x_connect_to_server()
1460 regmatch_T regmatch
;
1462 #if defined(FEAT_CLIENTSERVER)
1463 if (x_force_connect
)
1469 /* Check for a match with "exclude:" from 'clipboard'. */
1470 if (clip_exclude_prog
!= NULL
)
1472 regmatch
.rm_ic
= FALSE
; /* Don't ignore case */
1473 regmatch
.regprog
= clip_exclude_prog
;
1474 if (vim_regexec(®match
, T_NAME
, (colnr_T
)0))
1481 * Test if "dpy" and x11_window are valid by getting the window title.
1482 * I don't actually want it yet, so there may be a simpler call to use, but
1483 * this will cause the error handler x_error_check() to be called if anything
1484 * is wrong, such as the window pointer being invalid (as can happen when the
1485 * user changes his DISPLAY, but not his WINDOWID) -- webb
1488 test_x11_window(dpy
)
1491 int (*old_handler
)();
1492 XTextProperty text_prop
;
1494 old_handler
= XSetErrorHandler(x_error_check
);
1495 got_x_error
= FALSE
;
1496 if (XGetWMName(dpy
, x11_window
, &text_prop
))
1497 XFree((void *)text_prop
.value
);
1499 (void)XSetErrorHandler(old_handler
);
1501 if (p_verbose
> 0 && got_x_error
)
1502 verb_msg((char_u
*)_("Testing the X display failed"));
1504 return (got_x_error
? FAIL
: OK
);
1512 static int get_x11_thing
__ARGS((int get_title
, int test_only
));
1515 * try to get x11 window and display
1517 * return FAIL for failure, OK otherwise
1523 static int result
= -1;
1524 #define XD_NONE 0 /* x11_display not set here */
1525 #define XD_HERE 1 /* x11_display opened here */
1526 #define XD_GUI 2 /* x11_display used from gui.dpy */
1527 #define XD_XTERM 3 /* x11_display used from xterm_dpy */
1528 static int x11_display_from
= XD_NONE
;
1529 static int did_set_error_handler
= FALSE
;
1531 if (!did_set_error_handler
)
1533 /* X just exits if it finds an error otherwise! */
1534 (void)XSetErrorHandler(x_error_handler
);
1535 did_set_error_handler
= TRUE
;
1538 #if defined(FEAT_GUI_X11) || defined(FEAT_GUI_GTK)
1542 * If the X11 display was opened here before, for the window where Vim
1543 * was started, close that one now to avoid a memory leak.
1545 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1547 XCloseDisplay(x11_display
);
1548 x11_display_from
= XD_NONE
;
1550 if (gui_get_x11_windis(&x11_window
, &x11_display
) == OK
)
1552 x11_display_from
= XD_GUI
;
1558 else if (x11_display_from
== XD_GUI
)
1560 /* GUI must have stopped somehow, clear x11_display */
1563 x11_display_from
= XD_NONE
;
1567 /* When started with the "-X" argument, don't try connecting. */
1568 if (!x_connect_to_server())
1572 * If WINDOWID not set, should try another method to find out
1573 * what the current window number is. The only code I know for
1574 * this is very complicated.
1575 * We assume that zero is invalid for WINDOWID.
1577 if (x11_window
== 0 && (winid
= getenv("WINDOWID")) != NULL
)
1578 x11_window
= (Window
)atol(winid
);
1580 #ifdef FEAT_XCLIPBOARD
1581 if (xterm_dpy
!= NULL
&& x11_window
!= 0)
1583 /* We may have checked it already, but Gnome terminal can move us to
1584 * another window, so we need to check every time. */
1585 if (x11_display_from
!= XD_XTERM
)
1588 * If the X11 display was opened here before, for the window where
1589 * Vim was started, close that one now to avoid a memory leak.
1591 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1592 XCloseDisplay(x11_display
);
1593 x11_display
= xterm_dpy
;
1594 x11_display_from
= XD_XTERM
;
1596 if (test_x11_window(x11_display
) == FAIL
)
1598 /* probably bad $WINDOWID */
1601 x11_display_from
= XD_NONE
;
1608 if (x11_window
== 0 || x11_display
== NULL
)
1611 if (result
!= -1) /* Have already been here and set this */
1612 return result
; /* Don't do all these X calls again */
1614 if (x11_window
!= 0 && x11_display
== NULL
)
1616 #ifdef SET_SIG_ALARM
1617 RETSIGTYPE (*sig_save
)();
1619 #if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1620 struct timeval start_tv
;
1623 gettimeofday(&start_tv
, NULL
);
1626 #ifdef SET_SIG_ALARM
1628 * Opening the Display may hang if the DISPLAY setting is wrong, or
1629 * the network connection is bad. Set an alarm timer to get out.
1631 sig_alarm_called
= FALSE
;
1632 sig_save
= (RETSIGTYPE (*)())signal(SIGALRM
,
1633 (RETSIGTYPE (*)())sig_alarm
);
1636 x11_display
= XOpenDisplay(NULL
);
1638 #ifdef SET_SIG_ALARM
1640 signal(SIGALRM
, (RETSIGTYPE (*)())sig_save
);
1641 if (p_verbose
> 0 && sig_alarm_called
)
1642 verb_msg((char_u
*)_("Opening the X display timed out"));
1644 if (x11_display
!= NULL
)
1646 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1650 xopen_message(&start_tv
);
1654 if (test_x11_window(x11_display
) == FAIL
)
1656 /* Maybe window id is bad */
1658 XCloseDisplay(x11_display
);
1662 x11_display_from
= XD_HERE
;
1665 if (x11_window
== 0 || x11_display
== NULL
)
1666 return (result
= FAIL
);
1667 return (result
= OK
);
1671 * Determine original x11 Window Title
1674 get_x11_title(test_only
)
1677 return get_x11_thing(TRUE
, test_only
);
1681 * Determine original x11 Window icon
1684 get_x11_icon(test_only
)
1689 retval
= get_x11_thing(FALSE
, test_only
);
1691 /* could not get old icon, use terminal name */
1692 if (oldicon
== NULL
&& !test_only
)
1694 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1695 oldicon
= T_NAME
+ 8;
1704 get_x11_thing(get_title
, test_only
)
1705 int get_title
; /* get title string */
1708 XTextProperty text_prop
;
1712 if (get_x11_windis() == OK
)
1714 /* Get window/icon name if any */
1716 status
= XGetWMName(x11_display
, x11_window
, &text_prop
);
1718 status
= XGetWMIconName(x11_display
, x11_window
, &text_prop
);
1721 * If terminal is xterm, then x11_window may be a child window of the
1722 * outer xterm window that actually contains the window/icon name, so
1723 * keep traversing up the tree until a window with a title/icon is
1726 /* Previously this was only done for xterm and alikes. I don't see a
1727 * reason why it would fail for other terminal emulators.
1728 * if (term_is_xterm) */
1732 Window win
= x11_window
;
1734 unsigned int num_children
;
1736 while (!status
|| text_prop
.value
== NULL
)
1738 if (!XQueryTree(x11_display
, win
, &root
, &parent
, &children
,
1742 XFree((void *)children
);
1743 if (parent
== root
|| parent
== 0)
1748 status
= XGetWMName(x11_display
, win
, &text_prop
);
1750 status
= XGetWMIconName(x11_display
, win
, &text_prop
);
1753 if (status
&& text_prop
.value
!= NULL
)
1758 #ifdef FEAT_XFONTSET
1759 if (text_prop
.encoding
== XA_STRING
)
1763 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1765 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1766 #ifdef FEAT_XFONTSET
1771 Status transform_status
;
1774 transform_status
= XmbTextPropertyToTextList(x11_display
,
1777 if (transform_status
>= Success
&& n
> 0 && cl
[0])
1780 oldtitle
= vim_strsave((char_u
*) cl
[0]);
1782 oldicon
= vim_strsave((char_u
*) cl
[0]);
1783 XFreeStringList(cl
);
1788 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1790 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1795 XFree((void *)text_prop
.value
);
1801 /* Are Xutf8 functions available? Avoid error from old compilers. */
1802 #if defined(X_HAVE_UTF8_STRING) && defined(FEAT_MBYTE)
1803 # if X_HAVE_UTF8_STRING
1804 # define USE_UTF8_STRING
1809 * Set x11 Window Title
1811 * get_x11_windis() must be called before this and have returned OK
1814 set_x11_title(title
)
1817 /* XmbSetWMProperties() and Xutf8SetWMProperties() should use a STRING
1818 * when possible, COMPOUND_TEXT otherwise. COMPOUND_TEXT isn't
1819 * supported everywhere and STRING doesn't work for multi-byte titles.
1821 #ifdef USE_UTF8_STRING
1823 Xutf8SetWMProperties(x11_display
, x11_window
, (const char *)title
,
1824 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1828 #if XtSpecificationRelease >= 4
1829 # ifdef FEAT_XFONTSET
1830 XmbSetWMProperties(x11_display
, x11_window
, (const char *)title
,
1831 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1833 XTextProperty text_prop
;
1834 char *c_title
= (char *)title
;
1836 /* directly from example 3-18 "basicwin" of Xlib Programming Manual */
1837 (void)XStringListToTextProperty(&c_title
, 1, &text_prop
);
1838 XSetWMProperties(x11_display
, x11_window
, &text_prop
,
1839 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1842 XStoreName(x11_display
, x11_window
, (char *)title
);
1845 XFlush(x11_display
);
1849 * Set x11 Window icon
1851 * get_x11_windis() must be called before this and have returned OK
1857 /* See above for comments about using X*SetWMProperties(). */
1858 #ifdef USE_UTF8_STRING
1860 Xutf8SetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1861 NULL
, 0, NULL
, NULL
, NULL
);
1865 #if XtSpecificationRelease >= 4
1866 # ifdef FEAT_XFONTSET
1867 XmbSetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1868 NULL
, 0, NULL
, NULL
, NULL
);
1870 XTextProperty text_prop
;
1871 char *c_icon
= (char *)icon
;
1873 (void)XStringListToTextProperty(&c_icon
, 1, &text_prop
);
1874 XSetWMProperties(x11_display
, x11_window
, NULL
, &text_prop
,
1875 NULL
, 0, NULL
, NULL
, NULL
);
1878 XSetIconName(x11_display
, x11_window
, (char *)icon
);
1881 XFlush(x11_display
);
1884 #else /* FEAT_X11 */
1888 get_x11_title(test_only
)
1895 get_x11_icon(test_only
)
1900 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1901 oldicon
= T_NAME
+ 8;
1908 #endif /* FEAT_X11 */
1911 mch_can_restore_title()
1913 return get_x11_title(TRUE
);
1917 mch_can_restore_icon()
1919 return get_x11_icon(TRUE
);
1923 * Set the window title and icon.
1926 mch_settitle(title
, icon
)
1931 static int recursive
= 0;
1933 if (T_NAME
== NULL
) /* no terminal name (yet) */
1935 if (title
== NULL
&& icon
== NULL
) /* nothing to do */
1938 /* When one of the X11 functions causes a deadly signal, we get here again
1939 * recursively. Avoid hanging then (something is probably locked). */
1945 * if the window ID and the display is known, we may use X11 calls
1948 if (get_x11_windis() == OK
)
1951 # if defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) \
1952 || defined(FEAT_GUI_GTK) || defined(FEAT_GUI_MACVIM)
1959 * Note: if "t_TS" is set, title is set with escape sequence rather
1960 * than x11 calls, because the x11 calls don't always work
1962 if ((type
|| *T_TS
!= NUL
) && title
!= NULL
)
1964 if (oldtitle
== NULL
1968 ) /* first call but not in GUI, save title */
1969 (void)get_x11_title(FALSE
);
1971 if (*T_TS
!= NUL
) /* it's OK if t_fs is empty */
1972 term_settitle(title
);
1975 # ifdef FEAT_GUI_GTK
1976 if (!gui
.in_use
) /* don't do this if GTK+ is running */
1978 set_x11_title(title
); /* x11 */
1980 #if defined(FEAT_GUI_GTK) \
1981 || defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) \
1982 || defined(FEAT_GUI_MACVIM)
1984 gui_mch_settitle(title
, icon
);
1986 did_set_title
= TRUE
;
1989 if ((type
|| *T_CIS
!= NUL
) && icon
!= NULL
)
1995 ) /* first call, save icon */
1996 get_x11_icon(FALSE
);
2000 out_str(T_CIS
); /* set icon start */
2002 out_str(T_CIE
); /* set icon end */
2007 # ifdef FEAT_GUI_GTK
2008 if (!gui
.in_use
) /* don't do this if GTK+ is running */
2010 set_x11_icon(icon
); /* x11 */
2012 did_set_icon
= TRUE
;
2018 * Restore the window/icon title.
2019 * "which" is one of:
2020 * 1 only restore title
2021 * 2 only restore icon
2022 * 3 restore title and icon
2025 mch_restore_title(which
)
2028 /* only restore the title or icon when it has been set */
2029 mch_settitle(((which
& 1) && did_set_title
) ?
2030 (oldtitle
? oldtitle
: p_titleold
) : NULL
,
2031 ((which
& 2) && did_set_icon
) ? oldicon
: NULL
);
2034 #endif /* FEAT_TITLE */
2037 * Return TRUE if "name" looks like some xterm name.
2038 * Seiichi Sato mentioned that "mlterm" works like xterm.
2046 return (STRNICMP(name
, "xterm", 5) == 0
2047 || STRNICMP(name
, "nxterm", 6) == 0
2048 || STRNICMP(name
, "kterm", 5) == 0
2049 || STRNICMP(name
, "mlterm", 6) == 0
2050 || STRNICMP(name
, "rxvt", 4) == 0
2051 || STRCMP(name
, "builtin_xterm") == 0);
2054 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
2056 * Return non-zero when using an xterm mouse, according to 'ttymouse'.
2057 * Return 1 for "xterm".
2058 * Return 2 for "xterm2".
2063 if (ttym_flags
== TTYM_XTERM2
)
2065 if (ttym_flags
== TTYM_XTERM
)
2077 return (STRNICMP(name
, "iris-ansi", 9) == 0
2078 || STRCMP(name
, "builtin_iris-ansi") == 0);
2086 return FALSE
; /* actually all ANSI comp. terminals should be here */
2087 /* catch VT100 - VT5xx */
2088 return ((STRNICMP(name
, "vt", 2) == 0
2089 && vim_strchr((char_u
*)"12345", name
[2]) != NULL
)
2090 || STRCMP(name
, "builtin_vt320") == 0);
2094 * Return TRUE if "name" is a terminal for which 'ttyfast' should be set.
2095 * This should include all windowed terminal emulators.
2098 vim_is_fastterm(name
)
2103 if (vim_is_xterm(name
) || vim_is_vt300(name
) || vim_is_iris(name
))
2105 return ( STRNICMP(name
, "hpterm", 6) == 0
2106 || STRNICMP(name
, "sun-cmd", 7) == 0
2107 || STRNICMP(name
, "screen", 6) == 0
2108 || STRNICMP(name
, "dtterm", 6) == 0);
2112 * Insert user name in s[len].
2113 * Return OK if a name found.
2116 mch_get_user_name(s
, len
)
2121 vim_strncpy(s
, (char_u
*)cuserid(NULL
), len
- 1);
2124 return mch_get_uname(getuid(), s
, len
);
2129 * Insert user name for "uid" in s[len].
2130 * Return OK if a name found.
2133 mch_get_uname(uid
, s
, len
)
2138 #if defined(HAVE_PWD_H) && defined(HAVE_GETPWUID)
2141 if ((pw
= getpwuid(uid
)) != NULL
2142 && pw
->pw_name
!= NULL
&& *(pw
->pw_name
) != NUL
)
2144 vim_strncpy(s
, (char_u
*)pw
->pw_name
, len
- 1);
2148 sprintf((char *)s
, "%d", (int)uid
); /* assumes s is long enough */
2149 return FAIL
; /* a number is not a name */
2153 * Insert host name is s[len].
2156 #ifdef HAVE_SYS_UTSNAME_H
2158 mch_get_host_name(s
, len
)
2162 struct utsname vutsname
;
2164 if (uname(&vutsname
) < 0)
2167 vim_strncpy(s
, (char_u
*)vutsname
.nodename
, len
- 1);
2169 #else /* HAVE_SYS_UTSNAME_H */
2171 # ifdef HAVE_SYS_SYSTEMINFO_H
2172 # define gethostname(nam, len) sysinfo(SI_HOSTNAME, nam, len)
2176 mch_get_host_name(s
, len
)
2181 vaxc$
gethostname((char *)s
, len
);
2183 gethostname((char *)s
, len
);
2185 s
[len
- 1] = NUL
; /* make sure it's terminated */
2187 #endif /* HAVE_SYS_UTSNAME_H */
2195 return (long)getpid();
2198 #if !defined(HAVE_STRERROR) && defined(USE_GETCWD)
2199 static char *strerror
__ARGS((int));
2205 extern int sys_nerr
;
2206 extern char *sys_errlist
[];
2209 if (err
> 0 && err
< sys_nerr
)
2210 return (sys_errlist
[err
]);
2211 sprintf(er
, "Error %d", err
);
2217 * Get name of current directory into buffer 'buf' of length 'len' bytes.
2218 * Return OK for success, FAIL for failure.
2221 mch_dirname(buf
, len
)
2225 #if defined(USE_GETCWD)
2226 if (getcwd((char *)buf
, len
) == NULL
)
2228 STRCPY(buf
, strerror(errno
));
2233 return (getwd((char *)buf
) != NULL
? OK
: FAIL
);
2237 #if defined(OS2) || defined(PROTO)
2239 * Replace all slashes by backslashes.
2240 * When 'shellslash' set do it the other way around.
2256 * Get absolute file name into "buf[len]".
2258 * return FAIL for failure, OK for success
2261 mch_FullName(fname
, buf
, len
, force
)
2262 char_u
*fname
, *buf
;
2264 int force
; /* also expand when already absolute path */
2268 int only_drive
; /* file name is only a drive letter */
2272 static int dont_fchdir
= FALSE
; /* TRUE when fchdir() doesn't work */
2274 char_u olddir
[MAXPATHL
];
2279 fname
= vms_fixfilename(fname
);
2284 * This helps for when "/etc/hosts" is a symlink to "c:/something/hosts".
2286 cygwin_conv_to_posix_path(fname
, fname
);
2289 /* expand it if forced or not an absolute path */
2290 if (force
|| !mch_isFullName(fname
))
2293 * If the file name has a path, change to that directory for a moment,
2294 * and then do the getwd() (and get back to where we were).
2295 * This will get the correct path name with "../" things.
2299 if (((p
= vim_strrchr(fname
, '/')) != NULL
)
2300 || ((p
= vim_strrchr(fname
, '\\')) != NULL
)
2301 || (((p
= vim_strchr(fname
, ':')) != NULL
) && ++only_drive
))
2303 if ((p
= vim_strrchr(fname
, '/')) != NULL
)
2308 * Use fchdir() if possible, it's said to be faster and more
2309 * reliable. But on SunOS 4 it might not work. Check this by
2310 * doing a fchdir() right now.
2314 fd
= open(".", O_RDONLY
| O_EXTRA
, 0);
2315 if (fd
>= 0 && fchdir(fd
) < 0)
2319 dont_fchdir
= TRUE
; /* don't try again */
2324 /* Only change directory when we are sure we can return to where
2325 * we are now. After doing "su" chdir(".") might not work. */
2330 (mch_dirname(olddir
, MAXPATHL
) == FAIL
2331 || mch_chdir((char *)olddir
) != 0))
2333 p
= NULL
; /* can't get current dir: don't chdir */
2340 * compensate for case where ':' from "D:" was the only
2341 * path separator detected in the file name; the _next_
2342 * character has to be removed, and then restored later.
2347 /* The directory is copied into buf[], to be able to remove
2348 * the file name without changing it (could be a string in
2349 * read-only memory) */
2350 if (p
- fname
>= len
)
2354 vim_strncpy(buf
, fname
, p
- fname
);
2355 if (mch_chdir((char *)buf
))
2371 if (mch_dirname(buf
, len
) == FAIL
)
2386 l
= mch_chdir((char *)olddir
);
2388 EMSG(_(e_prev_dir
));
2397 if (l
> 0 && buf
[l
- 1] != '/' && *fname
!= NUL
2398 && STRCMP(fname
, ".") != 0)
2404 /* Catch file names which are too long. */
2405 if (retval
== FAIL
|| STRLEN(buf
) + STRLEN(fname
) >= len
)
2408 /* Do not append ".", "/dir/." is equal to "/dir". */
2409 if (STRCMP(fname
, ".") != 0)
2416 * Return TRUE if "fname" does not depend on the current directory.
2419 mch_isFullName(fname
)
2423 return _fnisabs(fname
);
2426 return ( fname
[0] == '/' || fname
[0] == '.' ||
2427 strchr((char *)fname
,':') || strchr((char *)fname
,'"') ||
2428 (strchr((char *)fname
,'[') && strchr((char *)fname
,']'))||
2429 (strchr((char *)fname
,'<') && strchr((char *)fname
,'>')) );
2431 return (*fname
== '/' || *fname
== '~');
2436 #if defined(USE_FNAME_CASE) || defined(PROTO)
2438 * Set the case of the file name, if it already exists. This will cause the
2439 * file name to remain exactly the same.
2440 * Only required for file systems where case is ignored and preserved.
2444 fname_case(name
, len
)
2446 int len
; /* buffer size, only used when name gets longer */
2449 char_u
*slash
, *tail
;
2453 if (lstat((char *)name
, &st
) >= 0)
2455 /* Open the directory where the file is located. */
2456 slash
= vim_strrchr(name
, '/');
2459 dirp
= opendir(".");
2465 dirp
= opendir((char *)name
);
2472 while ((dp
= readdir(dirp
)) != NULL
)
2474 /* Only accept names that differ in case and are the same byte
2475 * length. TODO: accept different length name. */
2476 if (STRICMP(tail
, dp
->d_name
) == 0
2477 && STRLEN(tail
) == STRLEN(dp
->d_name
))
2479 char_u newname
[MAXPATHL
+ 1];
2482 /* Verify the inode is equal. */
2483 vim_strncpy(newname
, name
, MAXPATHL
);
2484 vim_strncpy(newname
+ (tail
- name
), (char_u
*)dp
->d_name
,
2485 MAXPATHL
- (tail
- name
));
2486 if (lstat((char *)newname
, &st2
) >= 0
2487 && st
.st_ino
== st2
.st_ino
2488 && st
.st_dev
== st2
.st_dev
)
2490 STRCPY(tail
, dp
->d_name
);
2503 * Get file permissions for 'name'.
2504 * Returns -1 when it doesn't exist.
2512 /* Keep the #ifdef outside of stat(), it may be a macro. */
2514 if (stat((char *)vms_fixfilename(name
), &statb
))
2516 if (stat((char *)name
, &statb
))
2520 /* The top bit makes the value negative, which means the file doesn't
2521 * exist. Remove the bit, we don't use it. */
2522 return statb
.st_mode
& ~S_ADDACE
;
2524 return statb
.st_mode
;
2529 * set file permission for 'name' to 'perm'
2531 * return FAIL for failure, OK otherwise
2534 mch_setperm(name
, perm
)
2538 return (chmod((char *)
2540 vms_fixfilename(name
),
2544 (mode_t
)perm
) == 0 ? OK
: FAIL
);
2547 #if defined(HAVE_ACL) || defined(PROTO)
2548 # ifdef HAVE_SYS_ACL_H
2549 # include <sys/acl.h>
2551 # ifdef HAVE_SYS_ACCESS_H
2552 # include <sys/access.h>
2555 # ifdef HAVE_SOLARIS_ACL
2556 typedef struct vim_acl_solaris_T
{
2558 aclent_t
*acl_entry
;
2559 } vim_acl_solaris_T
;
2563 * Return a pointer to the ACL of file "fname" in allocated memory.
2564 * Return NULL if the ACL is not available for whatever reason.
2570 vim_acl_T ret
= NULL
;
2571 #ifdef HAVE_POSIX_ACL
2572 ret
= (vim_acl_T
)acl_get_file((char *)fname
, ACL_TYPE_ACCESS
);
2574 #ifdef HAVE_SOLARIS_ACL
2575 vim_acl_solaris_T
*aclent
;
2577 aclent
= malloc(sizeof(vim_acl_solaris_T
));
2578 if ((aclent
->acl_cnt
= acl((char *)fname
, GETACLCNT
, 0, NULL
)) < 0)
2583 aclent
->acl_entry
= malloc(aclent
->acl_cnt
* sizeof(aclent_t
));
2584 if (acl((char *)fname
, GETACL
, aclent
->acl_cnt
, aclent
->acl_entry
) < 0)
2586 free(aclent
->acl_entry
);
2590 ret
= (vim_acl_T
)aclent
;
2592 #if defined(HAVE_AIX_ACL)
2596 aclsize
= sizeof(struct acl
);
2597 aclent
= malloc(aclsize
);
2598 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2600 if (errno
== ENOSPC
)
2602 aclsize
= aclent
->acl_len
;
2603 aclent
= realloc(aclent
, aclsize
);
2604 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2616 ret
= (vim_acl_T
)aclent
;
2617 #endif /* HAVE_AIX_ACL */
2618 #endif /* HAVE_SOLARIS_ACL */
2619 #endif /* HAVE_POSIX_ACL */
2624 * Set the ACL of file "fname" to "acl" (unless it's NULL).
2627 mch_set_acl(fname
, aclent
)
2633 #ifdef HAVE_POSIX_ACL
2634 acl_set_file((char *)fname
, ACL_TYPE_ACCESS
, (acl_t
)aclent
);
2636 #ifdef HAVE_SOLARIS_ACL
2637 acl((char *)fname
, SETACL
, ((vim_acl_solaris_T
*)aclent
)->acl_cnt
,
2638 ((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2641 chacl((char *)fname
, aclent
, ((struct acl
*)aclent
)->acl_len
);
2642 #endif /* HAVE_AIX_ACL */
2643 #endif /* HAVE_SOLARIS_ACL */
2644 #endif /* HAVE_POSIX_ACL */
2648 mch_free_acl(aclent
)
2653 #ifdef HAVE_POSIX_ACL
2654 acl_free((acl_t
)aclent
);
2656 #ifdef HAVE_SOLARIS_ACL
2657 free(((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2662 #endif /* HAVE_AIX_ACL */
2663 #endif /* HAVE_SOLARIS_ACL */
2664 #endif /* HAVE_POSIX_ACL */
2669 * Set hidden flag for "name".
2676 /* can't hide a file */
2680 * return TRUE if "name" is a directory
2681 * return FALSE if "name" is not a directory
2682 * return FALSE for error
2690 if (*name
== NUL
) /* Some stat()s don't flag "" as an error. */
2692 if (stat((char *)name
, &statb
))
2694 #ifdef _POSIX_SOURCE
2695 return (S_ISDIR(statb
.st_mode
) ? TRUE
: FALSE
);
2697 return ((statb
.st_mode
& S_IFMT
) == S_IFDIR
? TRUE
: FALSE
);
2701 static int executable_file
__ARGS((char_u
*name
));
2704 * Return 1 if "name" is an executable file, 0 if not or it doesn't exist.
2707 executable_file(name
)
2712 if (stat((char *)name
, &st
))
2714 return S_ISREG(st
.st_mode
) && mch_access((char *)name
, X_OK
) == 0;
2718 * Return 1 if "name" can be found in $PATH and executed, 0 if not.
2719 * Return -1 if unknown.
2729 /* If it's an absolute or relative path don't need to use $PATH. */
2730 if (mch_isFullName(name
) || (name
[0] == '.' && (name
[1] == '/'
2731 || (name
[1] == '.' && name
[2] == '/'))))
2732 return executable_file(name
);
2734 p
= (char_u
*)getenv("PATH");
2735 if (p
== NULL
|| *p
== NUL
)
2737 buf
= alloc((unsigned)(STRLEN(name
) + STRLEN(p
) + 2));
2742 * Walk through all entries in $PATH to check if "name" exists there and
2743 * is an executable file.
2747 e
= (char_u
*)strchr((char *)p
, ':');
2750 if (e
- p
<= 1) /* empty entry means current dir */
2754 vim_strncpy(buf
, p
, e
- p
);
2758 retval
= executable_file(buf
);
2772 * Check what "name" is:
2773 * NODE_NORMAL: file or directory (or doesn't exist)
2774 * NODE_WRITABLE: writable device, socket, fifo, etc.
2775 * NODE_OTHER: non-writable things
2783 if (stat((char *)name
, &st
))
2785 if (S_ISREG(st
.st_mode
) || S_ISDIR(st
.st_mode
))
2788 if (S_ISBLK(st
.st_mode
)) /* block device isn't writable */
2791 /* Everything else is writable? */
2792 return NODE_WRITABLE
;
2798 #ifdef HAVE_CHECK_STACK_GROWTH
2801 check_stack_growth((char *)&i
);
2803 # ifdef HAVE_STACK_LIMIT
2810 * Setup an alternative stack for signals. Helps to catch signals when
2811 * running out of stack space.
2812 * Use of sigaltstack() is preferred, it's more portable.
2813 * Ignore any errors.
2815 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2816 signal_stack
= malloc(SIGSTKSZ
);
2817 init_signal_stack();
2821 #if defined(EXITFREE) || defined(PROTO)
2825 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
2826 if (clip_star
.owned
)
2827 clip_lose_selection(&clip_star
);
2828 if (clip_plus
.owned
)
2829 clip_lose_selection(&clip_plus
);
2831 # if (defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) || defined(PROTO)
2832 if (xterm_Shell
!= (Widget
)0)
2833 XtDestroyWidget(xterm_Shell
);
2834 if (xterm_dpy
!= NULL
)
2835 XtCloseDisplay(xterm_dpy
);
2836 if (app_context
!= (XtAppContext
)NULL
)
2837 XtDestroyApplicationContext(app_context
);
2840 if (x11_display
!= NULL
&& x11_display
!= xterm_dpy
)
2841 XCloseDisplay(x11_display
);
2843 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2844 vim_free(signal_stack
);
2845 signal_stack
= NULL
;
2854 static void exit_scroll
__ARGS((void));
2857 * Output a newline when exiting.
2858 * Make sure the newline goes to the same stream as the text.
2865 if (newline_on_exit
|| msg_didout
)
2867 if (msg_use_printf())
2879 restore_cterm_colors(); /* get original colors back */
2880 msg_clr_eos_force(); /* clear the rest of the display */
2881 windgoto((int)Rows
- 1, 0); /* may have moved the cursor */
2891 #if defined(FEAT_X11) && defined(FEAT_CLIPBOARD)
2892 x11_export_final_selection();
2899 settmode(TMODE_COOK
);
2901 mch_restore_title(3); /* restore xterm title and icon name */
2904 * When t_ti is not empty but it doesn't cause swapping terminal
2905 * pages, need to output a newline when msg_didout is set. But when
2906 * t_ti does swap pages it should not go to the shell page. Do this
2907 * before stoptermcap().
2909 if (swapping_screen() && !newline_on_exit
)
2912 /* Stop termcap: May need to check for T_CRV response, which
2913 * requires RAW mode. */
2917 * A newline is only required after a message in the alternate screen.
2918 * This is set to TRUE by wait_return().
2920 if (!swapping_screen() || newline_on_exit
)
2923 /* Cursor may have been switched off without calling starttermcap()
2924 * when doing "vim -u vimrc" and vimrc contains ":q". */
2929 ml_close_all(TRUE
); /* remove all memfiles */
2936 #ifdef MACOS_CONVERT
2941 /* A core dump won't be created if the signal handler
2942 * doesn't return, so we can't call exit() */
2943 if (deadly_signal
!= 0)
2947 #ifdef FEAT_NETBEANS_INTG
2949 netbeans_send_disconnect();
2962 if (deadly_signal
!= 0)
2964 signal(deadly_signal
, SIG_DFL
);
2965 kill(getpid(), deadly_signal
); /* Die using the signal we caught */
2975 static int first
= TRUE
;
2977 /* Why is NeXT excluded here (and not in os_unixx.h)? */
2978 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
2980 * for "new" tty systems
2982 # ifdef HAVE_TERMIOS_H
2983 static struct termios told
;
2984 struct termios tnew
;
2986 static struct termio told
;
2993 # if defined(HAVE_TERMIOS_H)
2994 tcgetattr(read_cmd_fd
, &told
);
2996 ioctl(read_cmd_fd
, TCGETA
, &told
);
3001 if (tmode
== TMODE_RAW
)
3004 * ~ICRNL enables typing ^V^M
3006 tnew
.c_iflag
&= ~ICRNL
;
3007 tnew
.c_lflag
&= ~(ICANON
| ECHO
| ISIG
| ECHOE
3008 # if defined(IEXTEN) && !defined(__MINT__)
3009 | IEXTEN
/* IEXTEN enables typing ^V on SOLARIS */
3010 /* but it breaks function keys on MINT */
3013 # ifdef ONLCR /* don't map NL -> CR NL, we do it ourselves */
3014 tnew
.c_oflag
&= ~ONLCR
;
3016 tnew
.c_cc
[VMIN
] = 1; /* return after 1 char */
3017 tnew
.c_cc
[VTIME
] = 0; /* don't wait */
3019 else if (tmode
== TMODE_SLEEP
)
3020 tnew
.c_lflag
&= ~(ECHO
);
3022 # if defined(HAVE_TERMIOS_H)
3026 /* A signal may cause tcsetattr() to fail (e.g., SIGCONT). Retry a
3028 while (tcsetattr(read_cmd_fd
, TCSANOW
, &tnew
) == -1
3029 && errno
== EINTR
&& n
> 0)
3033 ioctl(read_cmd_fd
, TCSETA
, &tnew
);
3039 * for "old" tty systems
3042 # define TIOCSETN TIOCSETP /* for hpux 9.0 */
3044 static struct sgttyb ttybold
;
3045 struct sgttyb ttybnew
;
3050 ioctl(read_cmd_fd
, TIOCGETP
, &ttybold
);
3054 if (tmode
== TMODE_RAW
)
3056 ttybnew
.sg_flags
&= ~(CRMOD
| ECHO
);
3057 ttybnew
.sg_flags
|= RAW
;
3059 else if (tmode
== TMODE_SLEEP
)
3060 ttybnew
.sg_flags
&= ~(ECHO
);
3061 ioctl(read_cmd_fd
, TIOCSETN
, &ttybnew
);
3067 * Try to get the code for "t_kb" from the stty setting
3069 * Even if termcap claims a backspace key, the user's setting *should*
3070 * prevail. stty knows more about reality than termcap does, and if
3071 * somebody's usual erase key is DEL (which, for most BSD users, it will
3072 * be), they're going to get really annoyed if their erase key starts
3073 * doing forward deletes for no reason. (Eric Fischer)
3081 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3082 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3083 /* for "new" tty systems */
3084 # ifdef HAVE_TERMIOS_H
3085 struct termios keys
;
3090 # if defined(HAVE_TERMIOS_H)
3091 if (tcgetattr(read_cmd_fd
, &keys
) != -1)
3093 if (ioctl(read_cmd_fd
, TCGETA
, &keys
) != -1)
3096 buf
[0] = keys
.c_cc
[VERASE
];
3097 intr_char
= keys
.c_cc
[VINTR
];
3099 /* for "old" tty systems */
3102 if (ioctl(read_cmd_fd
, TIOCGETP
, &keys
) != -1)
3104 buf
[0] = keys
.sg_erase
;
3105 intr_char
= keys
.sg_kill
;
3108 add_termcode((char_u
*)"kb", buf
, FALSE
);
3111 * If <BS> and <DEL> are now the same, redefine <DEL>.
3113 p
= find_termcode((char_u
*)"kD");
3114 if (p
!= NULL
&& p
[0] == buf
[0] && p
[1] == buf
[1])
3118 } /* to keep cindent happy */
3124 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
3126 * Set mouse clicks on or off.
3132 static int ison
= FALSE
;
3133 int xterm_mouse_vers
;
3135 if (on
== ison
) /* return quickly if nothing to do */
3138 xterm_mouse_vers
= use_xterm_mouse();
3139 if (xterm_mouse_vers
> 0)
3141 if (on
) /* enable mouse events, use mouse tracking if available */
3142 out_str_nf((char_u
*)
3143 (xterm_mouse_vers
> 1
3144 ? IF_EB("\033[?1002h", ESC_STR
"[?1002h")
3145 : IF_EB("\033[?1000h", ESC_STR
"[?1000h")));
3146 else /* disable mouse events, could probably always send the same */
3147 out_str_nf((char_u
*)
3148 (xterm_mouse_vers
> 1
3149 ? IF_EB("\033[?1002l", ESC_STR
"[?1002l")
3150 : IF_EB("\033[?1000l", ESC_STR
"[?1000l")));
3154 # ifdef FEAT_MOUSE_DEC
3155 else if (ttym_flags
== TTYM_DEC
)
3157 if (on
) /* enable mouse events */
3158 out_str_nf((char_u
*)"\033[1;2'z\033[1;3'{");
3159 else /* disable mouse events */
3160 out_str_nf((char_u
*)"\033['z");
3165 # ifdef FEAT_MOUSE_GPM
3181 # ifdef FEAT_MOUSE_JSB
3186 /* D - Enable Mouse up/down messages
3187 * L - Enable Left Button Reporting
3188 * M - Enable Middle Button Reporting
3189 * R - Enable Right Button Reporting
3190 * K - Enable SHIFT and CTRL key Reporting
3191 * + - Enable Advanced messaging of mouse moves and up/down messages
3193 * # - Numeric value of mouse pointer required
3194 * 0 = Multiview 2000 cursor, used as standard
3196 * 2 = Windows I Beam
3197 * 3 = Windows Hour Glass
3198 * 4 = Windows Cross Hair
3199 * 5 = Windows UP Arrow
3201 #ifdef JSBTERM_MOUSE_NONADVANCED /* Disables full feedback of pointer movements */
3202 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK1Q\033\\",
3203 ESC_STR
"[0~ZwLMRK1Q" ESC_STR
"\\"));
3205 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK+1Q\033\\",
3206 ESC_STR
"[0~ZwLMRK+1Q" ESC_STR
"\\"));
3212 out_str_nf((char_u
*)IF_EB("\033[0~ZwQ\033\\",
3213 ESC_STR
"[0~ZwQ" ESC_STR
"\\"));
3218 # ifdef FEAT_MOUSE_PTERM
3221 /* 1 = button press, 6 = release, 7 = drag, 1h...9l = right button */
3223 out_str_nf("\033[>1h\033[>6h\033[>7h\033[>1h\033[>9l");
3225 out_str_nf("\033[>1l\033[>6l\033[>7l\033[>1l\033[>9h");
3232 * Set the mouse termcode, depending on the 'term' and 'ttymouse' options.
3235 check_mouse_termcode()
3237 # ifdef FEAT_MOUSE_XTERM
3238 if (use_xterm_mouse()
3244 set_mouse_termcode(KS_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3245 ? IF_EB("\233M", CSI_STR
"M")
3246 : IF_EB("\033[M", ESC_STR
"[M")));
3247 if (*p_mouse
!= NUL
)
3249 /* force mouse off and maybe on to send possibly new mouse
3250 * activation sequence to the xterm, with(out) drag tracing. */
3251 mch_setmouse(FALSE
);
3256 del_mouse_termcode(KS_MOUSE
);
3259 # ifdef FEAT_MOUSE_GPM
3260 if (!use_xterm_mouse()
3265 set_mouse_termcode(KS_MOUSE
, (char_u
*)IF_EB("\033MG", ESC_STR
"MG"));
3268 # ifdef FEAT_MOUSE_JSB
3269 /* conflicts with xterm mouse: "\033[" and "\033[M" ??? */
3270 if (!use_xterm_mouse()
3275 set_mouse_termcode(KS_JSBTERM_MOUSE
,
3276 (char_u
*)IF_EB("\033[0~zw", ESC_STR
"[0~zw"));
3278 del_mouse_termcode(KS_JSBTERM_MOUSE
);
3281 # ifdef FEAT_MOUSE_NET
3282 /* There is no conflict, but one may type "ESC }" from Insert mode. Don't
3283 * define it in the GUI or when using an xterm. */
3284 if (!use_xterm_mouse()
3289 set_mouse_termcode(KS_NETTERM_MOUSE
,
3290 (char_u
*)IF_EB("\033}", ESC_STR
"}"));
3292 del_mouse_termcode(KS_NETTERM_MOUSE
);
3295 # ifdef FEAT_MOUSE_DEC
3296 /* conflicts with xterm mouse: "\033[" and "\033[M" */
3297 if (!use_xterm_mouse()
3302 set_mouse_termcode(KS_DEC_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3303 ? IF_EB("\233", CSI_STR
) : IF_EB("\033[", ESC_STR
"[")));
3305 del_mouse_termcode(KS_DEC_MOUSE
);
3307 # ifdef FEAT_MOUSE_PTERM
3308 /* same as the dec mouse */
3309 if (!use_xterm_mouse()
3314 set_mouse_termcode(KS_PTERM_MOUSE
,
3315 (char_u
*) IF_EB("\033[", ESC_STR
"["));
3317 del_mouse_termcode(KS_PTERM_MOUSE
);
3323 * set screen mode, always fails.
3330 EMSG(_(e_screenmode
));
3337 * Try to get the current window size:
3338 * 1. with an ioctl(), most accurate method
3339 * 2. from the environment variables LINES and COLUMNS
3340 * 3. from the termcap
3341 * 4. keep using the old values
3342 * Return OK when size could be determined, FAIL otherwise.
3352 * For OS/2 use _scrsize().
3365 * 1. try using an ioctl. It is the most accurate method.
3367 * Try using TIOCGWINSZ first, some systems that have it also define
3368 * TIOCGSIZE but don't have a struct ttysize.
3375 /* When stdout is not a tty, use stdin for the ioctl(). */
3376 if (!isatty(fd
) && isatty(read_cmd_fd
))
3378 if (ioctl(fd
, TIOCGWINSZ
, &ws
) == 0)
3380 columns
= ws
.ws_col
;
3384 # else /* TIOCGWINSZ */
3390 /* When stdout is not a tty, use stdin for the ioctl(). */
3391 if (!isatty(fd
) && isatty(read_cmd_fd
))
3393 if (ioctl(fd
, TIOCGSIZE
, &ts
) == 0)
3395 columns
= ts
.ts_cols
;
3399 # endif /* TIOCGSIZE */
3400 # endif /* TIOCGWINSZ */
3403 * 2. get size from environment
3404 * When being POSIX compliant ('|' flag in 'cpoptions') this overrules
3405 * the ioctl() values!
3407 if (columns
== 0 || rows
== 0 || vim_strchr(p_cpo
, CPO_TSIZE
) != NULL
)
3409 if ((p
= (char_u
*)getenv("LINES")))
3410 rows
= atoi((char *)p
);
3411 if ((p
= (char_u
*)getenv("COLUMNS")))
3412 columns
= atoi((char *)p
);
3417 * 3. try reading "co" and "li" entries from termcap
3419 if (columns
== 0 || rows
== 0)
3420 getlinecol(&columns
, &rows
);
3424 * 4. If everything fails, use the old values
3426 if (columns
<= 0 || rows
<= 0)
3435 * Try to set the window size to Rows and Columns.
3443 * NOTE: if you get an error here that term_set_winsize() is
3444 * undefined, check the output of configure. It could probably not
3445 * find a ncurses, termcap or termlib library.
3447 term_set_winsize((int)Rows
, (int)Columns
);
3449 screen_start(); /* don't know where cursor is now */
3456 * Rows and/or Columns has changed.
3461 /* Nothing to do. */
3465 static void append_ga_line
__ARGS((garray_T
*gap
));
3468 * Append the text in "gap" below the cursor line and clear "gap".
3474 /* Remove trailing CR. */
3477 && ((char_u
*)gap
->ga_data
)[gap
->ga_len
- 1] == CAR
)
3479 ga_append(gap
, NUL
);
3480 ml_append(curwin
->w_cursor
.lnum
++, gap
->ga_data
, 0, FALSE
);
3486 mch_call_shell(cmd
, options
)
3488 int options
; /* SHELL_*, see vim.h */
3494 int tmode
= cur_tmode
;
3495 #ifdef USE_SYSTEM /* use system() to start the shell: simple but slow */
3498 char_u
*newcmd
; /* only needed for unix */
3501 * Set the preferred shell in the EMXSHELL environment variable (but
3502 * only if it is different from what is already in the environment).
3503 * Emx then takes care of whether to use "/c" or "-c" in an
3504 * intelligent way. Simply pass the whole thing to emx's system() call.
3505 * Emx also starts an interactive shell if system() is passed an empty
3510 if (((old
= (char_u
*)getenv("EMXSHELL")) == NULL
) || STRCMP(old
, p_sh
))
3512 /* should check HAVE_SETENV, but I know we don't have it. */
3513 p
= alloc(10 + strlen(p_sh
));
3516 sprintf((char *)p
, "EMXSHELL=%s", p_sh
);
3517 putenv((char *)p
); /* don't free the pointer! */
3524 if (options
& SHELL_COOKED
)
3525 settmode(TMODE_COOK
); /* set to normal mode */
3529 x
= system(""); /* this starts an interactive shell in emx */
3531 x
= system((char *)cmd
);
3532 /* system() returns -1 when error occurs in starting shell */
3533 if (x
== -1 && !emsg_silent
)
3535 MSG_PUTS(_("\nCannot execute shell "));
3539 # else /* not __EMX__ */
3541 x
= system((char *)p_sh
);
3545 if (ofn
= strchr((char *)cmd
, '>'))
3547 if (ifn
= strchr((char *)cmd
, '<'))
3552 p
= strchr(ifn
,' '); /* chop off any trailing spaces */
3557 x
= vms_sys((char *)cmd
, ofn
, ifn
);
3559 x
= system((char *)cmd
);
3561 newcmd
= lalloc(STRLEN(p_sh
)
3562 + (extra_shell_arg
== NULL
? 0 : STRLEN(extra_shell_arg
))
3563 + STRLEN(p_shcf
) + STRLEN(cmd
) + 4, TRUE
);
3568 sprintf((char *)newcmd
, "%s %s %s %s", p_sh
,
3569 extra_shell_arg
== NULL
? "" : (char *)extra_shell_arg
,
3572 x
= system((char *)newcmd
);
3578 x
= vms_sys_status(x
);
3583 MSG_PUTS(_("\nCannot execute shell sh\n"));
3584 # endif /* __EMX__ */
3585 else if (x
&& !(options
& SHELL_SILENT
))
3587 MSG_PUTS(_("\nshell returned "));
3588 msg_outnum((long)x
);
3592 if (tmode
== TMODE_RAW
)
3593 settmode(TMODE_RAW
); /* set to raw mode */
3599 #else /* USE_SYSTEM */ /* don't use system(), use fork()/exec() */
3601 # define EXEC_FAILED 122 /* Exit code when shell didn't execute. Don't use
3602 127, some shells use that already */
3604 char_u
*newcmd
= NULL
;
3608 # ifdef HAVE_UNION_WAIT
3619 int pty_master_fd
= -1; /* for pty's */
3621 int pty_slave_fd
= -1;
3624 int fd_toshell
[2]; /* for pipes */
3625 int fd_fromshell
[2];
3626 int pipe_error
= FALSE
;
3630 static char envbuf_Rows
[20];
3631 static char envbuf_Columns
[20];
3633 int did_settmode
= FALSE
; /* settmode(TMODE_RAW) called */
3636 if (options
& SHELL_COOKED
)
3637 settmode(TMODE_COOK
); /* set to normal mode */
3639 newcmd
= vim_strsave(p_sh
);
3640 if (newcmd
== NULL
) /* out of memory */
3644 * Do this loop twice:
3645 * 1: find number of arguments
3646 * 2: separate them and build argv[]
3648 for (i
= 0; i
< 2; ++i
)
3656 argv
[argc
] = (char *)p
;
3658 while (*p
&& (inquote
|| (*p
!= ' ' && *p
!= TAB
)))
3672 argv
= (char **)alloc((unsigned)((argc
+ 4) * sizeof(char *)));
3673 if (argv
== NULL
) /* out of memory */
3679 if (extra_shell_arg
!= NULL
)
3680 argv
[argc
++] = (char *)extra_shell_arg
;
3681 argv
[argc
++] = (char *)p_shcf
;
3682 argv
[argc
++] = (char *)cmd
;
3687 * For the GUI, when writing the output into the buffer and when reading
3688 * input from the buffer: Try using a pseudo-tty to get the stdin/stdout
3689 * of the executed command into the Vim window. Or use a pipe.
3691 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3693 || (gui
.in_use
&& show_shell_mess
)
3699 * Try to open a master pty.
3700 * If this works, open the slave pty.
3701 * If the slave can't be opened, close the master pty.
3703 if (p_guipty
&& !(options
& (SHELL_READ
|SHELL_WRITE
)))
3705 pty_master_fd
= OpenPTY(&tty_name
); /* open pty */
3706 if (pty_master_fd
>= 0 && ((pty_slave_fd
=
3707 open(tty_name
, O_RDWR
| O_EXTRA
, 0)) < 0))
3709 close(pty_master_fd
);
3714 * If not opening a pty or it didn't work, try using pipes.
3716 if (pty_master_fd
< 0)
3719 pipe_error
= (pipe(fd_toshell
) < 0);
3720 if (!pipe_error
) /* pipe create OK */
3722 pipe_error
= (pipe(fd_fromshell
) < 0);
3723 if (pipe_error
) /* pipe create failed */
3725 close(fd_toshell
[0]);
3726 close(fd_toshell
[1]);
3731 MSG_PUTS(_("\nCannot create pipes\n"));
3737 if (!pipe_error
) /* pty or pipe opened or not used */
3740 beos_cleanup_read_thread();
3743 if ((pid
= fork()) == -1) /* maybe we should use vfork() */
3745 MSG_PUTS(_("\nCannot fork\n"));
3746 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3748 || (gui
.in_use
&& show_shell_mess
)
3753 if (pty_master_fd
>= 0) /* close the pseudo tty */
3755 close(pty_master_fd
);
3756 close(pty_slave_fd
);
3758 else /* close the pipes */
3761 close(fd_toshell
[0]);
3762 close(fd_toshell
[1]);
3763 close(fd_fromshell
[0]);
3764 close(fd_fromshell
[1]);
3768 else if (pid
== 0) /* child */
3770 reset_signals(); /* handle signals normally */
3772 if (!show_shell_mess
|| (options
& SHELL_EXPAND
))
3777 * Don't want to show any message from the shell. Can't just
3778 * close stdout and stderr though, because some systems will
3779 * break if you try to write to them after that, so we must
3780 * use dup() to replace them with something else -- webb
3781 * Connect stdin to /dev/null too, so ":n `cat`" doesn't hang,
3782 * waiting for input.
3784 fd
= open("/dev/null", O_RDWR
| O_EXTRA
, 0);
3790 * If any of these open()'s and dup()'s fail, we just continue
3791 * anyway. It's not fatal, and on most systems it will make
3792 * no difference at all. On a few it will cause the execvp()
3793 * to exit with a non-zero status even when the completion
3794 * could be done, which is nothing too serious. If the open()
3795 * or dup() failed we'd just do the same thing ourselves
3800 dup(fd
); /* To replace stdin (file descriptor 0) */
3801 dup(fd
); /* To replace stdout (file descriptor 1) */
3802 dup(fd
); /* To replace stderr (file descriptor 2) */
3804 /* Don't need this now that we've duplicated it */
3808 else if ((options
& (SHELL_READ
|SHELL_WRITE
))
3816 /* Create our own process group, so that the child and all its
3817 * children can be kill()ed. Don't do this when using pipes,
3818 * because stdin is not a tty, we would loose /dev/tty. */
3823 if (pty_slave_fd
>= 0)
3825 /* push stream discipline modules */
3826 if (options
& SHELL_COOKED
)
3827 SetupSlavePTY(pty_slave_fd
);
3829 /* Try to become controlling tty (probably doesn't work,
3830 * unless run by root) */
3831 ioctl(pty_slave_fd
, TIOCSCTTY
, (char *)NULL
);
3835 /* Simulate to have a dumb terminal (for now) */
3837 setenv("TERM", "dumb", 1);
3838 sprintf((char *)envbuf
, "%ld", Rows
);
3839 setenv("ROWS", (char *)envbuf
, 1);
3840 sprintf((char *)envbuf
, "%ld", Rows
);
3841 setenv("LINES", (char *)envbuf
, 1);
3842 sprintf((char *)envbuf
, "%ld", Columns
);
3843 setenv("COLUMNS", (char *)envbuf
, 1);
3846 * Putenv does not copy the string, it has to remain valid.
3847 * Use a static array to avoid loosing allocated memory.
3849 putenv("TERM=dumb");
3850 sprintf(envbuf_Rows
, "ROWS=%ld", Rows
);
3851 putenv(envbuf_Rows
);
3852 sprintf(envbuf_Rows
, "LINES=%ld", Rows
);
3853 putenv(envbuf_Rows
);
3854 sprintf(envbuf_Columns
, "COLUMNS=%ld", Columns
);
3855 putenv(envbuf_Columns
);
3859 * stderr is only redirected when using the GUI, so that a
3860 * program like gpg can still access the terminal to get a
3861 * passphrase using stderr.
3864 if (pty_master_fd
>= 0)
3866 close(pty_master_fd
); /* close master side of pty */
3868 /* set up stdin/stdout/stderr for the child */
3879 close(pty_slave_fd
); /* has been dupped, close it now */
3884 /* set up stdin for the child */
3885 close(fd_toshell
[1]);
3888 close(fd_toshell
[0]);
3890 /* set up stdout for the child */
3891 close(fd_fromshell
[0]);
3893 dup(fd_fromshell
[1]);
3894 close(fd_fromshell
[1]);
3899 /* set up stderr for the child */
3908 * There is no type cast for the argv, because the type may be
3909 * different on different machines. This may cause a warning
3910 * message with strict compilers, don't worry about it.
3911 * Call _exit() instead of exit() to avoid closing the connection
3912 * to the X server (esp. with GTK, which uses atexit()).
3914 execvp(argv
[0], argv
);
3915 _exit(EXEC_FAILED
); /* exec failed, return failure code */
3920 * While child is running, ignore terminating signals.
3921 * Do catch CTRL-C, so that "got_int" is set.
3923 catch_signals(SIG_IGN
, SIG_ERR
);
3927 * For the GUI we redirect stdin, stdout and stderr to our window.
3928 * This is also used to pipe stdin/stdout to/from the external
3931 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3933 || (gui
.in_use
&& show_shell_mess
)
3937 # define BUFLEN 100 /* length for buffer, pseudo tty limit is 128 */
3938 char_u buffer
[BUFLEN
+ 1];
3940 int buffer_off
= 0; /* valid bytes in buffer[] */
3942 char_u ta_buf
[BUFLEN
+ 1]; /* TypeAHead */
3943 int ta_len
= 0; /* valid bytes in ta_buf[] */
3954 if (pty_master_fd
>= 0)
3956 close(pty_slave_fd
); /* close slave side of pty */
3957 fromshell_fd
= pty_master_fd
;
3958 toshell_fd
= dup(pty_master_fd
);
3963 close(fd_toshell
[0]);
3964 close(fd_fromshell
[1]);
3965 toshell_fd
= fd_toshell
[1];
3966 fromshell_fd
= fd_fromshell
[0];
3970 * Write to the child if there are typed characters.
3971 * Read from the child if there are characters available.
3972 * Repeat the reading a few times if more characters are
3973 * available. Need to check for typed keys now and then, but
3974 * not too often (delays when no chars are available).
3975 * This loop is quit if no characters can be read from the pty
3976 * (WaitForChar detected special condition), or there are no
3977 * characters available and the child has exited.
3978 * Only check if the child has exited when there is no more
3979 * output. The child may exit before all the output has
3982 * Currently this busy loops!
3983 * This can probably dead-lock when the write blocks!
3985 p_more_save
= p_more
;
3988 State
= EXTERNCMD
; /* don't redraw at window resize */
3990 if ((options
& SHELL_WRITE
) && toshell_fd
>= 0)
3992 /* Fork a process that will write the lines to the
3993 * external program. */
3994 if ((wpid
= fork()) == -1)
3996 MSG_PUTS(_("\nCannot fork\n"));
4000 linenr_T lnum
= curbuf
->b_op_start
.lnum
;
4002 char_u
*lp
= ml_get(lnum
);
4007 close(fromshell_fd
);
4010 l
= STRLEN(lp
+ written
);
4013 else if (lp
[written
] == NL
)
4014 /* NL -> NUL translation */
4015 len
= write(toshell_fd
, "", (size_t)1);
4018 s
= vim_strchr(lp
+ written
, NL
);
4019 len
= write(toshell_fd
, (char *)lp
+ written
,
4020 s
== NULL
? l
: s
- (lp
+ written
));
4024 /* Finished a line, add a NL, unless this line
4025 * should not have one. */
4026 if (lnum
!= curbuf
->b_op_end
.lnum
4028 || (lnum
!= write_no_eol_lnum
4030 curbuf
->b_ml
.ml_line_count
4031 || curbuf
->b_p_eol
)))
4032 write(toshell_fd
, "\n", (size_t)1);
4034 if (lnum
> curbuf
->b_op_end
.lnum
)
4036 /* finished all the lines, close pipe */
4056 if (options
& SHELL_READ
)
4057 ga_init2(&ga
, 1, BUFLEN
);
4064 * Check if keys have been typed, write them to the child
4066 * Don't do this if we are expanding wild cards (would eat
4068 * Don't do this when filtering and terminal is in cooked
4069 * mode, the shell command will handle the I/O. Avoids
4070 * that a typed password is echoed for ssh or gpg command.
4071 * Don't get characters when the child has already
4072 * finished (wait_pid == 0).
4073 * Don't get extra characters when we already have one.
4074 * Don't read characters unless we didn't get output for a
4075 * while, avoids that ":r !ls" eats typeahead.
4078 if (!(options
& SHELL_EXPAND
)
4080 (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
))
4081 != (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
)
4089 && (len
= ui_inchar(ta_buf
,
4090 BUFLEN
, 10L, 0)) > 0)))
4094 * Check for CTRL-C: send interrupt signal to child.
4095 * Check for CTRL-D: EOF, close pipe to child.
4097 if (len
== 1 && (pty_master_fd
< 0 || cmd
!= NULL
))
4101 * Send SIGINT to the child's group or all
4102 * processes in our group.
4104 if (ta_buf
[ta_len
] == Ctrl_C
4105 || ta_buf
[ta_len
] == intr_char
)
4116 if (pty_master_fd
< 0 && toshell_fd
>= 0
4117 && ta_buf
[ta_len
] == Ctrl_D
)
4124 /* replace K_BS by <BS> and K_DEL by <DEL> */
4125 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4127 if (ta_buf
[i
] == CSI
&& len
- i
> 2)
4129 c
= TERMCAP2KEY(ta_buf
[i
+ 1], ta_buf
[i
+ 2]);
4130 if (c
== K_DEL
|| c
== K_KDEL
|| c
== K_BS
)
4132 mch_memmove(ta_buf
+ i
+ 1, ta_buf
+ i
+ 3,
4133 (size_t)(len
- i
- 2));
4134 if (c
== K_DEL
|| c
== K_KDEL
)
4141 else if (ta_buf
[i
] == '\r')
4145 i
+= (*mb_ptr2len
)(ta_buf
+ i
) - 1;
4150 * For pipes: echo the typed characters.
4151 * For a pty this does not seem to work.
4153 if (pty_master_fd
< 0)
4155 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4157 if (ta_buf
[i
] == '\n' || ta_buf
[i
] == '\b')
4158 msg_putchar(ta_buf
[i
]);
4162 int l
= (*mb_ptr2len
)(ta_buf
+ i
);
4164 msg_outtrans_len(ta_buf
+ i
, l
);
4169 msg_outtrans_len(ta_buf
+ i
, 1);
4171 windgoto(msg_row
, msg_col
);
4178 * Write the characters to the child, unless EOF has
4179 * been typed for pipes. Write one character at a
4180 * time, to avoid loosing too much typeahead.
4181 * When writing buffer lines, drop the typed
4182 * characters (only check for CTRL-C).
4184 if (options
& SHELL_WRITE
)
4186 else if (toshell_fd
>= 0)
4188 len
= write(toshell_fd
, (char *)ta_buf
, (size_t)1);
4192 mch_memmove(ta_buf
, ta_buf
+ len
, ta_len
);
4200 /* CTRL-C sends a signal to the child, we ignore it
4213 * Check if the child has any characters to be printed.
4214 * Read them and write them to our window. Repeat this as
4215 * long as there is something to do, avoid the 10ms wait
4216 * for mch_inchar(), or sending typeahead characters to
4217 * the external process.
4218 * TODO: This should handle escape sequences, compatible
4219 * to some terminal (vt52?).
4222 while (RealWaitForChar(fromshell_fd
, 10L, NULL
))
4224 len
= read(fromshell_fd
, (char *)buffer
4226 + buffer_off
, (size_t)(BUFLEN
- buffer_off
)
4231 if (len
<= 0) /* end of file or error */
4235 if (options
& SHELL_READ
)
4237 /* Do NUL -> NL translation, append NL separated
4238 * lines to the current buffer. */
4239 for (i
= 0; i
< len
; ++i
)
4241 if (buffer
[i
] == NL
)
4242 append_ga_line(&ga
);
4243 else if (buffer
[i
] == NUL
)
4246 ga_append(&ga
, buffer
[i
]);
4257 /* Check if the last character in buffer[] is
4258 * incomplete, keep these bytes for the next
4260 for (p
= buffer
; p
< buffer
+ len
; p
+= l
)
4264 l
= 1; /* NUL byte? */
4265 else if (MB_BYTE2LEN(*p
) != l
)
4268 if (p
== buffer
) /* no complete character */
4270 /* avoid getting stuck at an illegal byte */
4282 if (p
< buffer
+ len
)
4285 buffer_off
= (buffer
+ len
) - p
;
4286 mch_memmove(buffer
, p
, buffer_off
);
4291 # endif /* FEAT_MBYTE */
4298 windgoto(msg_row
, msg_col
);
4305 /* If we already detected the child has finished break the
4307 if (wait_pid
== pid
)
4311 * Check if the child still exists, before checking for
4312 * typed characters (otherwise we would loose typeahead).
4315 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*) 0);
4317 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4319 if ((wait_pid
== (pid_t
)-1 && errno
== ECHILD
)
4320 || (wait_pid
== pid
&& WIFEXITED(status
)))
4322 /* Don't break the loop yet, try reading more
4323 * characters from "fromshell_fd" first. When using
4324 * pipes there might still be something to read and
4325 * then we'll break the loop at the "break" above. */
4332 p_more
= p_more_save
;
4333 if (options
& SHELL_READ
)
4337 append_ga_line(&ga
);
4338 /* remember that the NL was missing */
4339 write_no_eol_lnum
= curwin
->w_cursor
.lnum
;
4342 write_no_eol_lnum
= 0;
4347 * Give all typeahead that wasn't used back to ui_inchar().
4350 ui_inchar_undo(ta_buf
, ta_len
);
4352 if (toshell_fd
>= 0)
4354 close(fromshell_fd
);
4358 * Wait until our child has exited.
4359 * Ignore wait() returning pids of other children and returning
4360 * because of some signal like SIGWINCH.
4361 * Don't wait if wait_pid was already set above, indicating the
4362 * child already exited.
4364 while (wait_pid
!= pid
)
4366 # ifdef _THREAD_SAFE
4367 /* Ugly hack: when compiled with Python threads are probably
4368 * used, in which case wait() sometimes hangs for no obvious
4369 * reason. Use waitpid() instead and loop (like the GUI). */
4371 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*)0);
4373 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4377 /* Wait for 1/100 sec before trying again. */
4378 mch_delay(10L, TRUE
);
4382 wait_pid
= wait(&status
);
4392 /* Make sure the child that writes to the external program is
4395 kill(wpid
, SIGKILL
);
4398 * Set to raw mode right now, otherwise a CTRL-C after
4399 * catch_signals() will kill Vim.
4401 if (tmode
== TMODE_RAW
)
4402 settmode(TMODE_RAW
);
4403 did_settmode
= TRUE
;
4406 if (WIFEXITED(status
))
4408 /* LINTED avoid "bitwise operation on signed value" */
4409 retval
= WEXITSTATUS(status
);
4410 if (retval
&& !emsg_silent
)
4412 if (retval
== EXEC_FAILED
)
4414 MSG_PUTS(_("\nCannot execute shell "));
4418 else if (!(options
& SHELL_SILENT
))
4420 MSG_PUTS(_("\nshell returned "));
4421 msg_outnum((long)retval
);
4427 MSG_PUTS(_("\nCommand terminated\n"));
4434 if (tmode
== TMODE_RAW
)
4435 settmode(TMODE_RAW
); /* set to raw mode */
4443 #endif /* USE_SYSTEM */
4447 * Check for CTRL-C typed by reading all available characters.
4448 * In cooked mode we should get SIGINT, no need to check.
4453 if (curr_tmode
== TMODE_RAW
&& RealWaitForChar(read_cmd_fd
, 0L, NULL
))
4454 fill_input_buf(FALSE
);
4458 * Wait "msec" msec until a character is available from the keyboard or from
4459 * inbuf[]. msec == -1 will block forever.
4460 * When a GUI is being used, this will never get called -- webb
4466 #ifdef FEAT_MOUSE_GPM
4467 int gpm_process_wanted
;
4469 #ifdef FEAT_XCLIPBOARD
4474 if (input_available()) /* something in inbuf[] */
4477 #if defined(FEAT_MOUSE_DEC)
4478 /* May need to query the mouse position. */
4481 WantQueryMouse
= FALSE
;
4482 mch_write((char_u
*)IF_EB("\033[1'|", ESC_STR
"[1'|"), 5);
4487 * For FEAT_MOUSE_GPM and FEAT_XCLIPBOARD we loop here to process mouse
4488 * events. This is a bit complicated, because they might both be defined.
4490 #if defined(FEAT_MOUSE_GPM) || defined(FEAT_XCLIPBOARD)
4491 # ifdef FEAT_XCLIPBOARD
4493 if (do_xterm_trace())
4498 # ifdef FEAT_XCLIPBOARD
4501 msec
= XT_TRACE_DELAY
;
4502 if (rest
>= 0 && rest
< XT_TRACE_DELAY
)
4508 # ifdef FEAT_MOUSE_GPM
4509 gpm_process_wanted
= 0;
4510 avail
= RealWaitForChar(read_cmd_fd
, msec
, &gpm_process_wanted
);
4512 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4516 if (input_available())
4518 # ifdef FEAT_XCLIPBOARD
4519 if (rest
== 0 || !do_xterm_trace())
4525 # ifdef FEAT_MOUSE_GPM
4526 || (gpm_process_wanted
&& mch_gpm_process() == 0)
4528 # ifdef FEAT_XCLIPBOARD
4529 || (!avail
&& rest
!= 0)
4534 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4540 * Wait "msec" msec until a character is available from file descriptor "fd".
4541 * Time == -1 will block forever.
4542 * When a GUI is being used, this will not be used for input -- webb
4543 * Returns also, when a request from Sniff is waiting -- toni.
4544 * Or when a Linux GPM mouse event is waiting.
4547 #if defined(__BEOS__)
4552 RealWaitForChar(fd
, msec
, check_for_gpm
)
4558 #if defined(FEAT_XCLIPBOARD) || defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4559 static int busy
= FALSE
;
4561 /* May retry getting characters after an event was handled. */
4564 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4565 /* Remember at what time we started, so that we know how much longer we
4566 * should wait after being interrupted. */
4567 # define USE_START_TV
4568 struct timeval start_tv
;
4571 # ifdef FEAT_XCLIPBOARD
4572 xterm_Shell
!= (Widget
)0
4573 # if defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4579 # ifdef FEAT_MZSCHEME
4583 # ifdef FEAT_MZSCHEME
4584 (mzthreads_allowed() && p_mzq
> 0)
4587 gettimeofday(&start_tv
, NULL
);
4590 /* Handle being called recursively. This may happen for the session
4591 * manager stuff, it may save the file, which does a breakcheck. */
4601 int finished
= TRUE
; /* default is to 'loop' just once */
4602 # ifdef FEAT_MZSCHEME
4603 int mzquantum_used
= FALSE
;
4607 struct pollfd fds
[5];
4609 # ifdef FEAT_XCLIPBOARD
4612 # ifdef FEAT_MOUSE_GPM
4618 int towait
= (int)msec
;
4620 # ifdef FEAT_MZSCHEME
4621 mzvim_check_threads();
4622 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4624 towait
= (int)p_mzq
; /* don't wait longer than 'mzquantum' */
4625 mzquantum_used
= TRUE
;
4629 fds
[0].events
= POLLIN
;
4633 # define SNIFF_IDX 1
4634 if (want_sniff_request
)
4636 fds
[SNIFF_IDX
].fd
= fd_from_sniff
;
4637 fds
[SNIFF_IDX
].events
= POLLIN
;
4641 # ifdef FEAT_XCLIPBOARD
4642 if (xterm_Shell
!= (Widget
)0)
4645 fds
[nfd
].fd
= ConnectionNumber(xterm_dpy
);
4646 fds
[nfd
].events
= POLLIN
;
4650 # ifdef FEAT_MOUSE_GPM
4651 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4654 fds
[nfd
].fd
= gpm_fd
;
4655 fds
[nfd
].events
= POLLIN
;
4660 if (xsmp_icefd
!= -1)
4663 fds
[nfd
].fd
= xsmp_icefd
;
4664 fds
[nfd
].events
= POLLIN
;
4669 ret
= poll(fds
, nfd
, towait
);
4670 # ifdef FEAT_MZSCHEME
4671 if (ret
== 0 && mzquantum_used
)
4672 /* MzThreads scheduling is required and timeout occurred */
4678 sniff_disconnect(1);
4679 else if (want_sniff_request
)
4681 if (fds
[SNIFF_IDX
].revents
& POLLHUP
)
4682 sniff_disconnect(1);
4683 if (fds
[SNIFF_IDX
].revents
& POLLIN
)
4684 sniff_request_waiting
= 1;
4687 # ifdef FEAT_XCLIPBOARD
4688 if (xterm_Shell
!= (Widget
)0 && (fds
[xterm_idx
].revents
& POLLIN
))
4690 xterm_update(); /* Maybe we should hand out clipboard */
4691 if (--ret
== 0 && !input_available())
4696 # ifdef FEAT_MOUSE_GPM
4697 if (gpm_idx
>= 0 && (fds
[gpm_idx
].revents
& POLLIN
))
4703 if (xsmp_idx
>= 0 && (fds
[xsmp_idx
].revents
& (POLLIN
| POLLHUP
)))
4705 if (fds
[xsmp_idx
].revents
& POLLIN
)
4708 xsmp_handle_requests();
4711 else if (fds
[xsmp_idx
].revents
& POLLHUP
)
4714 verb_msg((char_u
*)_("XSMP lost ICE connection"));
4718 finished
= FALSE
; /* Try again */
4723 #else /* HAVE_SELECT */
4726 struct timeval
*tvp
;
4731 # ifdef FEAT_MZSCHEME
4732 mzvim_check_threads();
4733 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4735 towait
= p_mzq
; /* don't wait longer than 'mzquantum' */
4736 mzquantum_used
= TRUE
;
4740 /* don't check for incoming chars if not in raw mode, because select()
4741 * always returns TRUE then (in some version of emx.dll) */
4742 if (curr_tmode
!= TMODE_RAW
)
4748 tv
.tv_sec
= towait
/ 1000;
4749 tv
.tv_usec
= (towait
% 1000) * (1000000/1000);
4756 * Select on ready for reading and exceptional condition (end of file).
4758 FD_ZERO(&rfds
); /* calls bzero() on a sun */
4761 # if !defined(__QNX__) && !defined(__CYGWIN32__)
4762 /* For QNX select() always returns 1 if this is set. Why? */
4768 if (want_sniff_request
)
4770 FD_SET(fd_from_sniff
, &rfds
);
4771 FD_SET(fd_from_sniff
, &efds
);
4772 if (maxfd
< fd_from_sniff
)
4773 maxfd
= fd_from_sniff
;
4776 # ifdef FEAT_XCLIPBOARD
4777 if (xterm_Shell
!= (Widget
)0)
4779 FD_SET(ConnectionNumber(xterm_dpy
), &rfds
);
4780 if (maxfd
< ConnectionNumber(xterm_dpy
))
4781 maxfd
= ConnectionNumber(xterm_dpy
);
4784 # ifdef FEAT_MOUSE_GPM
4785 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4787 FD_SET(gpm_fd
, &rfds
);
4788 FD_SET(gpm_fd
, &efds
);
4794 if (xsmp_icefd
!= -1)
4796 FD_SET(xsmp_icefd
, &rfds
);
4797 FD_SET(xsmp_icefd
, &efds
);
4798 if (maxfd
< xsmp_icefd
)
4804 /* Old VMS as v6.2 and older have broken select(). It waits more than
4805 * required. Should not be used */
4808 ret
= select(maxfd
+ 1, &rfds
, NULL
, &efds
, tvp
);
4811 if (ret
== -1 && errno
== ENOTSUP
)
4818 # ifdef FEAT_MZSCHEME
4819 if (ret
== 0 && mzquantum_used
)
4820 /* loop if MzThreads must be scheduled and timeout occurred */
4826 sniff_disconnect(1);
4827 else if (ret
> 0 && want_sniff_request
)
4829 if (FD_ISSET(fd_from_sniff
, &efds
))
4830 sniff_disconnect(1);
4831 if (FD_ISSET(fd_from_sniff
, &rfds
))
4832 sniff_request_waiting
= 1;
4835 # ifdef FEAT_XCLIPBOARD
4836 if (ret
> 0 && xterm_Shell
!= (Widget
)0
4837 && FD_ISSET(ConnectionNumber(xterm_dpy
), &rfds
))
4839 xterm_update(); /* Maybe we should hand out clipboard */
4840 /* continue looping when we only got the X event and the input
4841 * buffer is empty */
4842 if (--ret
== 0 && !input_available())
4849 # ifdef FEAT_MOUSE_GPM
4850 if (ret
> 0 && gpm_flag
&& check_for_gpm
!= NULL
&& gpm_fd
>= 0)
4852 if (FD_ISSET(gpm_fd
, &efds
))
4854 else if (FD_ISSET(gpm_fd
, &rfds
))
4859 if (ret
> 0 && xsmp_icefd
!= -1)
4861 if (FD_ISSET(xsmp_icefd
, &efds
))
4864 verb_msg((char_u
*)_("XSMP lost ICE connection"));
4867 finished
= FALSE
; /* keep going if event was only one */
4869 else if (FD_ISSET(xsmp_icefd
, &rfds
))
4872 xsmp_handle_requests();
4875 finished
= FALSE
; /* keep going if event was only one */
4880 #endif /* HAVE_SELECT */
4883 if (finished
|| msec
== 0)
4886 /* We're going to loop around again, find out for how long */
4889 # ifdef USE_START_TV
4892 /* Compute remaining wait time. */
4893 gettimeofday(&mtv
, NULL
);
4894 msec
-= (mtv
.tv_sec
- start_tv
.tv_sec
) * 1000L
4895 + (mtv
.tv_usec
- start_tv
.tv_usec
) / 1000L;
4897 /* Guess we got interrupted halfway. */
4901 break; /* waited long enough */
4911 #ifndef NO_EXPANDPATH
4913 * Expand a path into all matching files and/or directories. Handles "*",
4914 * "?", "[a-z]", "**", etc.
4915 * "path" has backslashes before chars that are not to be expanded.
4916 * Returns the number of matches found.
4919 mch_expandpath(gap
, path
, flags
)
4922 int flags
; /* EW_* flags */
4924 return unix_expandpath(gap
, path
, 0, flags
, FALSE
);
4929 * mch_expand_wildcards() - this code does wild-card pattern matching using
4932 * return OK for success, FAIL for error (you may lose some memory) and put
4933 * an error message in *file.
4935 * num_pat is number of input patterns
4936 * pat is array of pointers to input patterns
4937 * num_file is pointer to number of matched file names
4938 * file is pointer to array of pointers to matched file names
4948 #define SHELL_SPECIAL (char_u *)"\t \"&'$;<>()\\|"
4952 mch_expand_wildcards(num_pat
, pat
, num_file
, file
, flags
)
4957 int flags
; /* EW_* flags */
4965 * This is the OS/2 implementation.
4967 # define EXPL_ALLOC_INC 16
4968 char_u
**expl_files
;
4969 size_t files_alloced
, files_free
;
4973 *num_file
= 0; /* default: no files found */
4974 files_alloced
= EXPL_ALLOC_INC
; /* how much space is allocated */
4975 files_free
= EXPL_ALLOC_INC
; /* how much space is not used */
4976 *file
= (char_u
**)alloc(sizeof(char_u
**) * files_alloced
);
4980 for (; num_pat
> 0; num_pat
--, pat
++)
4983 if (vim_strchr(*pat
, '$') || vim_strchr(*pat
, '~'))
4984 /* expand environment var or home dir */
4985 buf
= expand_env_save(*pat
);
4987 buf
= vim_strsave(*pat
);
4989 has_wildcard
= mch_has_exp_wildcard(buf
); /* (still) wildcards? */
4990 if (has_wildcard
) /* yes, so expand them */
4991 expl_files
= (char_u
**)_fnexplode(buf
);
4994 * return value of buf if no wildcards left,
4995 * OR if no match AND EW_NOTFOUND is set.
4997 if ((!has_wildcard
&& ((flags
& EW_NOTFOUND
) || mch_getperm(buf
) >= 0))
4998 || (expl_files
== NULL
&& (flags
& EW_NOTFOUND
)))
4999 { /* simply save the current contents of *buf */
5000 expl_files
= (char_u
**)alloc(sizeof(char_u
**) * 2);
5001 if (expl_files
!= NULL
)
5003 expl_files
[0] = vim_strsave(buf
);
5004 expl_files
[1] = NULL
;
5010 * Count number of names resulting from expansion,
5011 * At the same time add a backslash to the end of names that happen to
5012 * be directories, and replace slashes with backslashes.
5016 for (i
= 0; (p
= expl_files
[i
]) != NULL
; i
++)
5019 /* If we don't want dirs and this is one, skip it */
5020 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5023 /* Skip files that are not executable if we check for that. */
5024 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe(p
))
5027 if (--files_free
== 0)
5029 /* need more room in table of pointers */
5030 files_alloced
+= EXPL_ALLOC_INC
;
5031 *file
= (char_u
**)vim_realloc(*file
,
5032 sizeof(char_u
**) * files_alloced
);
5035 EMSG(_(e_outofmem
));
5039 files_free
= EXPL_ALLOC_INC
;
5044 /* For a directory we add a '/', unless it's already
5047 if (((*file
)[*num_file
] = alloc(len
+ 2)) != NULL
)
5049 STRCPY((*file
)[*num_file
], p
);
5050 if (!after_pathsep((*file
)[*num_file
],
5051 (*file
)[*num_file
] + len
))
5053 (*file
)[*num_file
][len
] = psepc
;
5054 (*file
)[*num_file
][len
+ 1] = NUL
;
5060 (*file
)[*num_file
] = vim_strsave(p
);
5064 * Error message already given by either alloc or vim_strsave.
5065 * Should return FAIL, but returning OK works also.
5067 if ((*file
)[*num_file
] == NULL
)
5071 _fnexplodefree((char **)expl_files
);
5078 * This is the non-OS/2 implementation (really Unix).
5085 #define STYLE_ECHO 0 /* use "echo", the default */
5086 #define STYLE_GLOB 1 /* use "glob", for csh */
5087 #define STYLE_VIMGLOB 2 /* use "vimglob", for Posix sh */
5088 #define STYLE_PRINT 3 /* use "print -N", for zsh */
5089 #define STYLE_BT 4 /* `cmd` expansion, execute the pattern
5091 int shell_style
= STYLE_ECHO
;
5093 static int did_find_nul
= FALSE
;
5094 int ampersent
= FALSE
;
5095 /* vimglob() function to define for Posix shell */
5096 static char *sh_vimglob_func
= "vimglob() { while [ $# -ge 1 ]; do echo -n \"$1\"; echo; shift; done }; vimglob >";
5098 *num_file
= 0; /* default: no files found */
5102 * If there are no wildcards, just copy the names to allocated memory.
5103 * Saves a lot of time, because we don't have to start a new shell.
5105 if (!have_wildcard(num_pat
, pat
))
5106 return save_patterns(num_pat
, pat
, num_file
, file
);
5108 # ifdef HAVE_SANDBOX
5109 /* Don't allow any shell command in the sandbox. */
5110 if (sandbox
!= 0 && check_secure())
5115 * Don't allow the use of backticks in secure and restricted mode.
5117 if (secure
|| restricted
)
5118 for (i
= 0; i
< num_pat
; ++i
)
5119 if (vim_strchr(pat
[i
], '`') != NULL
5120 && (check_restricted() || check_secure()))
5124 * get a name for the temp file
5126 if ((tempname
= vim_tempname('o')) == NULL
)
5133 * Let the shell expand the patterns and write the result into the temp
5135 * STYLE_BT: NL separated
5136 * If expanding `cmd` execute it directly.
5137 * STYLE_GLOB: NUL separated
5138 * If we use *csh, "glob" will work better than "echo".
5139 * STYLE_PRINT: NL or NUL separated
5140 * If we use *zsh, "print -N" will work better than "glob".
5141 * STYLE_VIMGLOB: NL separated
5142 * If we use *sh*, we define "vimglob()".
5143 * STYLE_ECHO: space separated.
5144 * A shell we don't know, stay safe and use "echo".
5146 if (num_pat
== 1 && *pat
[0] == '`'
5147 && (len
= STRLEN(pat
[0])) > 2
5148 && *(pat
[0] + len
- 1) == '`')
5149 shell_style
= STYLE_BT
;
5150 else if ((len
= STRLEN(p_sh
)) >= 3)
5152 if (STRCMP(p_sh
+ len
- 3, "csh") == 0)
5153 shell_style
= STYLE_GLOB
;
5154 else if (STRCMP(p_sh
+ len
- 3, "zsh") == 0)
5155 shell_style
= STYLE_PRINT
;
5157 if (shell_style
== STYLE_ECHO
&& strstr((char *)gettail(p_sh
),
5159 shell_style
= STYLE_VIMGLOB
;
5161 /* Compute the length of the command. We need 2 extra bytes: for the
5162 * optional '&' and for the NUL.
5163 * Worst case: "unset nonomatch; print -N >" plus two is 29 */
5164 len
= STRLEN(tempname
) + 29;
5165 if (shell_style
== STYLE_VIMGLOB
)
5166 len
+= STRLEN(sh_vimglob_func
);
5168 for (i
= 0; i
< num_pat
; ++i
)
5170 /* Count the length of the patterns in the same way as they are put in
5171 * "command" below. */
5173 len
+= STRLEN(pat
[i
]) + 3; /* add space and two quotes */
5175 ++len
; /* add space */
5176 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5178 if (vim_strchr(SHELL_SPECIAL
, pat
[i
][j
]) != NULL
)
5179 ++len
; /* may add a backslash */
5184 command
= alloc(len
);
5185 if (command
== NULL
)
5193 * Build the shell command:
5194 * - Set $nonomatch depending on EW_NOTFOUND (hopefully the shell
5196 * - Add the shell command to print the expanded names.
5197 * - Add the temp file name.
5198 * - Add the file name patterns.
5200 if (shell_style
== STYLE_BT
)
5202 /* change `command; command& ` to (command; command ) */
5203 STRCPY(command
, "(");
5204 STRCAT(command
, pat
[0] + 1); /* exclude first backtick */
5205 p
= command
+ STRLEN(command
) - 1;
5206 *p
-- = ')'; /* remove last backtick */
5207 while (p
> command
&& vim_iswhite(*p
))
5209 if (*p
== '&') /* remove trailing '&' */
5214 STRCAT(command
, ">");
5218 if (flags
& EW_NOTFOUND
)
5219 STRCPY(command
, "set nonomatch; ");
5221 STRCPY(command
, "unset nonomatch; ");
5222 if (shell_style
== STYLE_GLOB
)
5223 STRCAT(command
, "glob >");
5224 else if (shell_style
== STYLE_PRINT
)
5225 STRCAT(command
, "print -N >");
5226 else if (shell_style
== STYLE_VIMGLOB
)
5227 STRCAT(command
, sh_vimglob_func
);
5229 STRCAT(command
, "echo >");
5232 STRCAT(command
, tempname
);
5234 if (shell_style
!= STYLE_BT
)
5235 for (i
= 0; i
< num_pat
; ++i
)
5237 /* When using system() always add extra quotes, because the shell
5238 * is started twice. Otherwise put a backslash before special
5239 * characters, except inside ``. */
5241 STRCAT(command
, " \"");
5242 STRCAT(command
, pat
[i
]);
5243 STRCAT(command
, "\"");
5247 p
= command
+ STRLEN(command
);
5249 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5251 if (pat
[i
][j
] == '`')
5253 else if (pat
[i
][j
] == '\\' && pat
[i
][j
+ 1] != NUL
)
5255 /* Remove a backslash, take char literally. But keep
5256 * backslash inside backticks, before a special character
5257 * and before a backtick. */
5259 || vim_strchr(SHELL_SPECIAL
, pat
[i
][j
+ 1]) != NULL
5260 || pat
[i
][j
+ 1] == '`')
5264 else if (!intick
&& vim_strchr(SHELL_SPECIAL
,
5266 /* Put a backslash before a special character, but not
5267 * when inside ``. */
5270 /* Copy one character. */
5276 if (flags
& EW_SILENT
)
5277 show_shell_mess
= FALSE
;
5279 STRCAT(command
, "&"); /* put the '&' after the redirection */
5282 * Using zsh -G: If a pattern has no matches, it is just deleted from
5283 * the argument list, otherwise zsh gives an error message and doesn't
5284 * expand any other pattern.
5286 if (shell_style
== STYLE_PRINT
)
5287 extra_shell_arg
= (char_u
*)"-G"; /* Use zsh NULL_GLOB option */
5290 * If we use -f then shell variables set in .cshrc won't get expanded.
5291 * vi can do it, so we will too, but it is only necessary if there is a "$"
5292 * in one of the patterns, otherwise we can still use the fast option.
5294 else if (shell_style
== STYLE_GLOB
&& !have_dollars(num_pat
, pat
))
5295 extra_shell_arg
= (char_u
*)"-f"; /* Use csh fast option */
5298 * execute the shell command
5300 i
= call_shell(command
, SHELL_EXPAND
| SHELL_SILENT
);
5302 /* When running in the background, give it some time to create the temp
5303 * file, but don't wait for it to finish. */
5305 mch_delay(10L, TRUE
);
5307 extra_shell_arg
= NULL
; /* cleanup */
5308 show_shell_mess
= TRUE
;
5311 if (i
!= 0) /* mch_call_shell() failed */
5313 mch_remove(tempname
);
5316 * With interactive completion, the error message is not printed.
5317 * However with USE_SYSTEM, I don't know how to turn off error messages
5318 * from the shell, so screen may still get messed up -- webb.
5321 if (!(flags
& EW_SILENT
))
5324 redraw_later_clear(); /* probably messed up screen */
5325 msg_putchar('\n'); /* clear bottom line quickly */
5326 cmdline_row
= Rows
- 1; /* continue on last line */
5328 if (!(flags
& EW_SILENT
))
5331 MSG(_(e_wildexpand
));
5332 msg_start(); /* don't overwrite this message */
5335 /* If a `cmd` expansion failed, don't list `cmd` as a match, even when
5336 * EW_NOTFOUND is given */
5337 if (shell_style
== STYLE_BT
)
5343 * read the names from the file into memory
5345 fd
= fopen((char *)tempname
, READBIN
);
5348 /* Something went wrong, perhaps a file name with a special char. */
5349 if (!(flags
& EW_SILENT
))
5351 MSG(_(e_wildexpand
));
5352 msg_start(); /* don't overwrite this message */
5357 fseek(fd
, 0L, SEEK_END
);
5358 len
= ftell(fd
); /* get size of temp file */
5359 fseek(fd
, 0L, SEEK_SET
);
5360 buffer
= alloc(len
+ 1);
5364 mch_remove(tempname
);
5369 i
= fread((char *)buffer
, 1, len
, fd
);
5371 mch_remove(tempname
);
5374 /* unexpected read error */
5375 EMSG2(_(e_notread
), tempname
);
5382 # if defined(__CYGWIN__) || defined(__CYGWIN32__)
5383 /* Translate <CR><NL> into <NL>. Caution, buffer may contain NUL. */
5385 for (i
= 0; i
< len
; ++i
)
5386 if (!(buffer
[i
] == CAR
&& buffer
[i
+ 1] == NL
))
5392 /* file names are separated with Space */
5393 if (shell_style
== STYLE_ECHO
)
5395 buffer
[len
] = '\n'; /* make sure the buffer ends in NL */
5397 for (i
= 0; *p
!= '\n'; ++i
) /* count number of entries */
5399 while (*p
!= ' ' && *p
!= '\n')
5401 p
= skipwhite(p
); /* skip to next entry */
5404 /* file names are separated with NL */
5405 else if (shell_style
== STYLE_BT
|| shell_style
== STYLE_VIMGLOB
)
5407 buffer
[len
] = NUL
; /* make sure the buffer ends in NUL */
5409 for (i
= 0; *p
!= NUL
; ++i
) /* count number of entries */
5411 while (*p
!= '\n' && *p
!= NUL
)
5415 p
= skipwhite(p
); /* skip leading white space */
5418 /* file names are separated with NUL */
5422 * Some versions of zsh use spaces instead of NULs to separate
5423 * results. Only do this when there is no NUL before the end of the
5424 * buffer, otherwise we would never be able to use file names with
5425 * embedded spaces when zsh does use NULs.
5426 * When we found a NUL once, we know zsh is OK, set did_find_nul and
5427 * don't check for spaces again.
5429 check_spaces
= FALSE
;
5430 if (shell_style
== STYLE_PRINT
&& !did_find_nul
)
5432 /* If there is a NUL, set did_find_nul, else set check_spaces */
5433 if (len
&& (int)STRLEN(buffer
) < len
- 1)
5434 did_find_nul
= TRUE
;
5436 check_spaces
= TRUE
;
5440 * Make sure the buffer ends with a NUL. For STYLE_PRINT there
5441 * already is one, for STYLE_GLOB it needs to be added.
5443 if (len
&& buffer
[len
- 1] == NUL
)
5448 for (p
= buffer
; p
< buffer
+ len
; ++p
)
5449 if (*p
== NUL
|| (*p
== ' ' && check_spaces
)) /* count entry */
5455 ++i
; /* count last entry */
5460 * Can happen when using /bin/sh and typing ":e $NO_SUCH_VAR^I".
5461 * /bin/sh will happily expand it to nothing rather than returning an
5462 * error; and hey, it's good to check anyway -- webb.
5468 *file
= (char_u
**)alloc(sizeof(char_u
*) * i
);
5477 * Isolate the individual file names.
5480 for (i
= 0; i
< *num_file
; ++i
)
5483 /* Space or NL separates */
5484 if (shell_style
== STYLE_ECHO
|| shell_style
== STYLE_BT
5485 || shell_style
== STYLE_VIMGLOB
)
5487 while (!(shell_style
== STYLE_ECHO
&& *p
== ' ')
5488 && *p
!= '\n' && *p
!= NUL
)
5490 if (p
== buffer
+ len
) /* last entry */
5495 p
= skipwhite(p
); /* skip to next entry */
5498 else /* NUL separates */
5500 while (*p
&& p
< buffer
+ len
) /* skip entry */
5507 * Move the file names to allocated memory.
5509 for (j
= 0, i
= 0; i
< *num_file
; ++i
)
5511 /* Require the files to exist. Helps when using /bin/sh */
5512 if (!(flags
& EW_NOTFOUND
) && mch_getperm((*file
)[i
]) < 0)
5515 /* check if this entry should be included */
5516 dir
= (mch_isdir((*file
)[i
]));
5517 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5520 /* Skip files that are not executable if we check for that. */
5521 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe((*file
)[i
]))
5524 p
= alloc((unsigned)(STRLEN((*file
)[i
]) + 1 + dir
));
5527 STRCPY(p
, (*file
)[i
]);
5529 add_pathsep(p
); /* add '/' to a directory name */
5536 if (*num_file
== 0) /* rejected all entries */
5546 if (flags
& EW_NOTFOUND
)
5547 return save_patterns(num_pat
, pat
, num_file
, file
);
5550 #endif /* __EMX__ */
5557 save_patterns(num_pat
, pat
, num_file
, file
)
5566 *file
= (char_u
**)alloc(num_pat
* sizeof(char_u
*));
5569 for (i
= 0; i
< num_pat
; i
++)
5571 s
= vim_strsave(pat
[i
]);
5573 /* Be compatible with expand_filename(): halve the number of
5578 *num_file
= num_pat
;
5585 * Return TRUE if the string "p" contains a wildcard that mch_expandpath() can
5589 mch_has_exp_wildcard(p
)
5592 for ( ; *p
; mb_ptr_adv(p
))
5595 if (*p
== '\\' && p
[1] != NUL
)
5599 if (vim_strchr((char_u
*)
5616 * Return TRUE if the string "p" contains a wildcard.
5617 * Don't recognize '~' at the end as a wildcard.
5623 for ( ; *p
; mb_ptr_adv(p
))
5626 if (*p
== '\\' && p
[1] != NUL
)
5630 if (vim_strchr((char_u
*)
5635 # ifdef VIM_BACKTICK
5645 || (*p
== '~' && p
[1] != NUL
))
5653 have_wildcard(num
, file
)
5659 for (i
= 0; i
< num
; i
++)
5660 if (mch_has_wildcard(file
[i
]))
5666 have_dollars(num
, file
)
5672 for (i
= 0; i
< num
; i
++)
5673 if (vim_strchr(file
[i
], '$') != NULL
)
5677 #endif /* ifndef __EMX__ */
5681 * Scaled-down version of rename(), which is missing in Xenix.
5682 * This version can only move regular files and will fail if the
5683 * destination exists.
5686 mch_rename(src
, dest
)
5687 const char *src
, *dest
;
5691 if (stat(dest
, &st
) >= 0) /* fail if destination exists */
5693 if (link(src
, dest
) != 0) /* link file to new name */
5695 if (mch_remove(src
) == 0) /* delete link to old name */
5699 #endif /* !HAVE_RENAME */
5701 #ifdef FEAT_MOUSE_GPM
5703 * Initializes connection with gpm (if it isn't already opened)
5704 * Return 1 if succeeded (or connection already opened), 0 if failed
5709 static Gpm_Connect gpm_connect
; /* Must it be kept till closing ? */
5713 gpm_connect
.eventMask
= (GPM_UP
| GPM_DRAG
| GPM_DOWN
);
5714 gpm_connect
.defaultMask
= ~GPM_HARD
;
5715 /* Default handling for mouse move*/
5716 gpm_connect
.minMod
= 0; /* Handle any modifier keys */
5717 gpm_connect
.maxMod
= 0xffff;
5718 if (Gpm_Open(&gpm_connect
, 0) > 0)
5720 /* gpm library tries to handling TSTP causes
5721 * problems. Anyways, we close connection to Gpm whenever
5722 * we are going to suspend or starting an external process
5723 * so we shouldn't have problem with this
5725 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
5726 return 1; /* succeed */
5729 Gpm_Close(); /* We don't want to talk to xterm via gpm */
5732 return 1; /* already open */
5736 * Closes connection to gpm
5737 * returns non-zero if connection successfully closed
5742 if (gpm_flag
&& gpm_fd
>= 0) /* if Open */
5746 /* Reads gpm event and adds special keys to input buf. Returns length of
5747 * generated key sequence.
5748 * This function is made after gui_send_mouse_event
5754 static Gpm_Event gpm_event
;
5756 int_u vim_modifiers
;
5758 unsigned char buttons_mask
;
5759 unsigned char gpm_modifiers
;
5760 static unsigned char old_buttons
= 0;
5762 Gpm_GetEvent(&gpm_event
);
5765 /* Don't put events in the input queue now. */
5766 if (hold_gui_events
)
5770 row
= gpm_event
.y
- 1;
5771 col
= gpm_event
.x
- 1;
5773 string
[0] = ESC
; /* Our termcode */
5776 switch (GPM_BARE_EVENTS(gpm_event
.type
))
5779 string
[3] = MOUSE_DRAG
;
5782 buttons_mask
= gpm_event
.buttons
& ~old_buttons
;
5783 old_buttons
= gpm_event
.buttons
;
5784 switch (buttons_mask
)
5787 button
= MOUSE_LEFT
;
5790 button
= MOUSE_MIDDLE
;
5793 button
= MOUSE_RIGHT
;
5797 /*Don't know what to do. Can more than one button be
5798 * reported in one event? */
5800 string
[3] = (char_u
)(button
| 0x20);
5801 SET_NUM_MOUSE_CLICKS(string
[3], gpm_event
.clicks
+ 1);
5804 string
[3] = MOUSE_RELEASE
;
5805 old_buttons
&= ~gpm_event
.buttons
;
5810 /*This code is based on gui_x11_mouse_cb in gui_x11.c */
5811 gpm_modifiers
= gpm_event
.modifiers
;
5812 vim_modifiers
= 0x0;
5813 /* I ignore capslock stats. Aren't we all just hate capslock mixing with
5814 * Vim commands ? Besides, gpm_event.modifiers is unsigned char, and
5815 * K_CAPSSHIFT is defined 8, so it probably isn't even reported
5817 if (gpm_modifiers
& ((1 << KG_SHIFT
) | (1 << KG_SHIFTR
) | (1 << KG_SHIFTL
)))
5818 vim_modifiers
|= MOUSE_SHIFT
;
5820 if (gpm_modifiers
& ((1 << KG_CTRL
) | (1 << KG_CTRLR
) | (1 << KG_CTRLL
)))
5821 vim_modifiers
|= MOUSE_CTRL
;
5822 if (gpm_modifiers
& ((1 << KG_ALT
) | (1 << KG_ALTGR
)))
5823 vim_modifiers
|= MOUSE_ALT
;
5824 string
[3] |= vim_modifiers
;
5825 string
[4] = (char_u
)(col
+ ' ' + 1);
5826 string
[5] = (char_u
)(row
+ ' ' + 1);
5827 add_to_input_buf(string
, 6);
5830 #endif /* FEAT_MOUSE_GPM */
5832 #if defined(FEAT_LIBCALL) || defined(PROTO)
5833 typedef char_u
* (*STRPROCSTR
)__ARGS((char_u
*));
5834 typedef char_u
* (*INTPROCSTR
)__ARGS((int));
5835 typedef int (*STRPROCINT
)__ARGS((char_u
*));
5836 typedef int (*INTPROCINT
)__ARGS((int));
5839 * Call a DLL routine which takes either a string or int param
5840 * and returns an allocated string.
5843 mch_libcall(libname
, funcname
, argstring
, argint
, string_result
, number_result
)
5846 char_u
*argstring
; /* NULL when using a argint */
5848 char_u
**string_result
;/* NULL when using number_result */
5851 # if defined(USE_DLOPEN)
5858 INTPROCSTR ProcAddI
;
5859 char_u
*retval_str
= NULL
;
5861 int success
= FALSE
;
5864 * Get a handle to the DLL module.
5866 # if defined(USE_DLOPEN)
5867 /* First clear any error, it's not cleared by the dlopen() call. */
5870 hinstLib
= dlopen((char *)libname
, RTLD_LAZY
5875 if (hinstLib
== NULL
)
5877 /* "dlerr" must be used before dlclose() */
5878 dlerr
= (char *)dlerror();
5880 EMSG2(_("dlerror = \"%s\""), dlerr
);
5883 hinstLib
= shl_load((const char*)libname
, BIND_IMMEDIATE
|BIND_VERBOSE
, 0L);
5886 /* If the handle is valid, try to get the function address. */
5887 if (hinstLib
!= NULL
)
5889 # ifdef HAVE_SETJMP_H
5891 * Catch a crash when calling the library function. For example when
5892 * using a number where a string pointer is expected.
5895 if (SETJMP(lc_jump_env
) != 0)
5898 # if defined(USE_DLOPEN)
5909 if (argstring
!= NULL
)
5911 # if defined(USE_DLOPEN)
5912 ProcAdd
= (STRPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
5913 dlerr
= (char *)dlerror();
5915 if (shl_findsym(&hinstLib
, (const char *)funcname
,
5916 TYPE_PROCEDURE
, (void *)&ProcAdd
) < 0)
5919 if ((success
= (ProcAdd
!= NULL
5920 # if defined(USE_DLOPEN)
5925 if (string_result
== NULL
)
5926 retval_int
= ((STRPROCINT
)ProcAdd
)(argstring
);
5928 retval_str
= (ProcAdd
)(argstring
);
5933 # if defined(USE_DLOPEN)
5934 ProcAddI
= (INTPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
5935 dlerr
= (char *)dlerror();
5937 if (shl_findsym(&hinstLib
, (const char *)funcname
,
5938 TYPE_PROCEDURE
, (void *)&ProcAddI
) < 0)
5941 if ((success
= (ProcAddI
!= NULL
5942 # if defined(USE_DLOPEN)
5947 if (string_result
== NULL
)
5948 retval_int
= ((INTPROCINT
)ProcAddI
)(argint
);
5950 retval_str
= (ProcAddI
)(argint
);
5954 /* Save the string before we free the library. */
5955 /* Assume that a "1" or "-1" result is an illegal pointer. */
5956 if (string_result
== NULL
)
5957 *number_result
= retval_int
;
5958 else if (retval_str
!= NULL
5959 && retval_str
!= (char_u
*)1
5960 && retval_str
!= (char_u
*)-1)
5961 *string_result
= vim_strsave(retval_str
);
5964 # ifdef HAVE_SETJMP_H
5971 /* try to find the name of this signal */
5972 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
5973 if (lc_signal
== signal_info
[i
].sig
)
5975 EMSG2("E368: got SIG%s in libcall()", signal_info
[i
].name
);
5980 # if defined(USE_DLOPEN)
5981 /* "dlerr" must be used before dlclose() */
5983 EMSG2(_("dlerror = \"%s\""), dlerr
);
5985 /* Free the DLL module. */
5986 (void)dlclose(hinstLib
);
5988 (void)shl_unload(hinstLib
);
5994 EMSG2(_(e_libcall
), funcname
);
6002 #if (defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) || defined(PROTO)
6003 static int xterm_trace
= -1; /* default: disabled */
6004 static int xterm_button
;
6007 * Setup a dummy window for X selections in a terminal.
6016 if (!x_connect_to_server())
6020 if (app_context
!= NULL
&& xterm_Shell
== (Widget
)0)
6022 int (*oldhandler
)();
6023 #if defined(HAVE_SETJMP_H)
6024 int (*oldIOhandler
)();
6026 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6027 struct timeval start_tv
;
6030 gettimeofday(&start_tv
, NULL
);
6033 /* Ignore X errors while opening the display */
6034 oldhandler
= XSetErrorHandler(x_error_check
);
6036 #if defined(HAVE_SETJMP_H)
6037 /* Ignore X IO errors while opening the display */
6038 oldIOhandler
= XSetIOErrorHandler(x_IOerror_check
);
6040 if (SETJMP(lc_jump_env
) != 0)
6048 xterm_dpy
= XtOpenDisplay(app_context
, xterm_display
,
6049 "vim_xterm", "Vim_xterm", NULL
, 0, &z
, &strp
);
6050 #if defined(HAVE_SETJMP_H)
6055 #if defined(HAVE_SETJMP_H)
6056 /* Now handle X IO errors normally. */
6057 (void)XSetIOErrorHandler(oldIOhandler
);
6059 /* Now handle X errors normally. */
6060 (void)XSetErrorHandler(oldhandler
);
6062 if (xterm_dpy
== NULL
)
6065 verb_msg((char_u
*)_("Opening the X display failed"));
6069 /* Catch terminating error of the X server connection. */
6070 (void)XSetIOErrorHandler(x_IOerror_handler
);
6072 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6076 xopen_message(&start_tv
);
6081 /* Create a Shell to make converters work. */
6082 AppShell
= XtVaAppCreateShell("vim_xterm", "Vim_xterm",
6083 applicationShellWidgetClass
, xterm_dpy
,
6085 if (AppShell
== (Widget
)0)
6087 xterm_Shell
= XtVaCreatePopupShell("VIM",
6088 topLevelShellWidgetClass
, AppShell
,
6089 XtNmappedWhenManaged
, 0,
6093 if (xterm_Shell
== (Widget
)0)
6096 x11_setup_atoms(xterm_dpy
);
6097 if (x11_display
== NULL
)
6098 x11_display
= xterm_dpy
;
6100 XtRealizeWidget(xterm_Shell
);
6101 XSync(xterm_dpy
, False
);
6104 if (xterm_Shell
!= (Widget
)0)
6107 if (x11_window
== 0 && (strp
= getenv("WINDOWID")) != NULL
)
6108 x11_window
= (Window
)atol(strp
);
6109 /* Check if $WINDOWID is valid. */
6110 if (test_x11_window(xterm_dpy
) == FAIL
)
6112 if (x11_window
!= 0)
6118 start_xterm_trace(button
)
6121 if (x11_window
== 0 || xterm_trace
< 0 || xterm_Shell
== (Widget
)0)
6124 xterm_button
= button
;
6132 if (xterm_trace
< 0)
6138 * Query the xterm pointer and generate mouse termcodes if necessary
6139 * return TRUE if dragging is active, else FALSE
6152 static char_u
*mouse_code
;
6153 static char_u mouse_name
[2] = {KS_MOUSE
, KE_FILLER
};
6154 static int prev_row
= 0, prev_col
= 0;
6155 static XSizeHints xterm_hints
;
6157 if (xterm_trace
<= 0)
6160 if (xterm_trace
== 1)
6162 /* Get the hints just before tracking starts. The font size might
6163 * have changed recently. */
6164 if (!XGetWMNormalHints(xterm_dpy
, x11_window
, &xterm_hints
, &got_hints
)
6165 || !(got_hints
& PResizeInc
)
6166 || xterm_hints
.width_inc
<= 1
6167 || xterm_hints
.height_inc
<= 1)
6169 xterm_trace
= -1; /* Not enough data -- disable tracing */
6173 /* Rely on the same mouse code for the duration of this */
6174 mouse_code
= find_termcode(mouse_name
);
6175 prev_row
= mouse_row
;
6176 prev_row
= mouse_col
;
6179 /* Find the offset of the chars, there might be a scrollbar on the
6180 * left of the window and/or a menu on the top (eterm etc.) */
6181 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6182 &win_x
, &win_y
, &mask_return
);
6183 xterm_hints
.y
= win_y
- (xterm_hints
.height_inc
* mouse_row
)
6184 - (xterm_hints
.height_inc
/ 2);
6185 if (xterm_hints
.y
<= xterm_hints
.height_inc
/ 2)
6187 xterm_hints
.x
= win_x
- (xterm_hints
.width_inc
* mouse_col
)
6188 - (xterm_hints
.width_inc
/ 2);
6189 if (xterm_hints
.x
<= xterm_hints
.width_inc
/ 2)
6193 if (mouse_code
== NULL
)
6199 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6200 &win_x
, &win_y
, &mask_return
);
6202 row
= check_row((win_y
- xterm_hints
.y
) / xterm_hints
.height_inc
);
6203 col
= check_col((win_x
- xterm_hints
.x
) / xterm_hints
.width_inc
);
6204 if (row
== prev_row
&& col
== prev_col
)
6207 STRCPY(buf
, mouse_code
);
6208 strp
= buf
+ STRLEN(buf
);
6209 *strp
++ = (xterm_button
| MOUSE_DRAG
) & ~0x20;
6210 *strp
++ = (char_u
)(col
+ ' ' + 1);
6211 *strp
++ = (char_u
)(row
+ ' ' + 1);
6213 add_to_input_buf(buf
, STRLEN(buf
));
6220 # if defined(FEAT_GUI) || defined(PROTO)
6222 * Destroy the display, window and app_context. Required for GTK.
6227 if (xterm_Shell
!= (Widget
)0)
6229 XtDestroyWidget(xterm_Shell
);
6230 xterm_Shell
= (Widget
)0;
6232 if (xterm_dpy
!= NULL
)
6235 /* Lesstif and Solaris crash here, lose some memory */
6236 XtCloseDisplay(xterm_dpy
);
6238 if (x11_display
== xterm_dpy
)
6243 if (app_context
!= (XtAppContext
)NULL
)
6245 /* Lesstif and Solaris crash here, lose some memory */
6246 XtDestroyApplicationContext(app_context
);
6247 app_context
= (XtAppContext
)NULL
;
6254 * Catch up with any queued X events. This may put keyboard input into the
6255 * input buffer, call resize call-backs, trigger timers etc. If there is
6256 * nothing in the X event queue (& no timers pending), then we return
6264 while (XtAppPending(app_context
) && !vim_is_input_buf_full())
6266 XtAppNextEvent(app_context
, &event
);
6267 #ifdef FEAT_CLIENTSERVER
6269 XPropertyEvent
*e
= (XPropertyEvent
*)&event
;
6271 if (e
->type
== PropertyNotify
&& e
->window
== commWindow
6272 && e
->atom
== commProperty
&& e
->state
== PropertyNewValue
)
6273 serverEventProc(xterm_dpy
, &event
);
6276 XtDispatchEvent(&event
);
6281 clip_xterm_own_selection(cbd
)
6284 if (xterm_Shell
!= (Widget
)0)
6285 return clip_x11_own_selection(xterm_Shell
, cbd
);
6290 clip_xterm_lose_selection(cbd
)
6293 if (xterm_Shell
!= (Widget
)0)
6294 clip_x11_lose_selection(xterm_Shell
, cbd
);
6298 clip_xterm_request_selection(cbd
)
6301 if (xterm_Shell
!= (Widget
)0)
6302 clip_x11_request_selection(xterm_Shell
, xterm_dpy
, cbd
);
6306 clip_xterm_set_selection(cbd
)
6309 clip_x11_set_selection(cbd
);
6314 #if defined(USE_XSMP) || defined(PROTO)
6316 * Code for X Session Management Protocol.
6318 static void xsmp_handle_save_yourself
__ARGS((SmcConn smc_conn
, SmPointer client_data
, int save_type
, Bool shutdown
, int interact_style
, Bool fast
));
6319 static void xsmp_die
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6320 static void xsmp_save_complete
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6321 static void xsmp_shutdown_cancelled
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6322 static void xsmp_ice_connection
__ARGS((IceConn iceConn
, IcePointer clientData
, Bool opening
, IcePointer
*watchData
));
6325 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6326 static void xsmp_handle_interaction
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6329 * This is our chance to ask the user if they want to save,
6330 * or abort the logout
6334 xsmp_handle_interaction(smc_conn
, client_data
)
6336 SmPointer client_data
;
6338 cmdmod_T save_cmdmod
;
6339 int cancel_shutdown
= False
;
6341 save_cmdmod
= cmdmod
;
6342 cmdmod
.confirm
= TRUE
;
6343 if (check_changed_any(FALSE
))
6344 /* Mustn't logout */
6345 cancel_shutdown
= True
;
6346 cmdmod
= save_cmdmod
;
6347 setcursor(); /* position cursor */
6350 /* Done interaction */
6351 SmcInteractDone(smc_conn
, cancel_shutdown
);
6354 * Only end save-yourself here if we're not cancelling shutdown;
6355 * we'll get a cancelled callback later in which we'll end it.
6356 * Hopefully get around glitchy SMs (like GNOME-1)
6358 if (!cancel_shutdown
)
6360 xsmp
.save_yourself
= False
;
6361 SmcSaveYourselfDone(smc_conn
, True
);
6367 * Callback that starts save-yourself.
6371 xsmp_handle_save_yourself(smc_conn
, client_data
, save_type
,
6372 shutdown
, interact_style
, fast
)
6374 SmPointer client_data
;
6380 /* Handle already being in saveyourself */
6381 if (xsmp
.save_yourself
)
6382 SmcSaveYourselfDone(smc_conn
, True
);
6383 xsmp
.save_yourself
= True
;
6384 xsmp
.shutdown
= shutdown
;
6386 /* First up, preserve all files */
6388 ml_sync_all(FALSE
, FALSE
); /* preserve all swap files */
6391 verb_msg((char_u
*)_("XSMP handling save-yourself request"));
6393 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6394 /* Now see if we can ask about unsaved files */
6395 if (shutdown
&& !fast
&& gui
.in_use
)
6396 /* Need to interact with user, but need SM's permission */
6397 SmcInteractRequest(smc_conn
, SmDialogError
,
6398 xsmp_handle_interaction
, client_data
);
6402 /* Can stop the cycle here */
6403 SmcSaveYourselfDone(smc_conn
, True
);
6404 xsmp
.save_yourself
= False
;
6410 * Callback to warn us of imminent death.
6414 xsmp_die(smc_conn
, client_data
)
6416 SmPointer client_data
;
6420 /* quit quickly leaving swapfiles for modified buffers behind */
6421 getout_preserve_modified(0);
6426 * Callback to tell us that save-yourself has completed.
6430 xsmp_save_complete(smc_conn
, client_data
)
6432 SmPointer client_data
;
6434 xsmp
.save_yourself
= False
;
6439 * Callback to tell us that an instigated shutdown was cancelled
6440 * (maybe even by us)
6444 xsmp_shutdown_cancelled(smc_conn
, client_data
)
6446 SmPointer client_data
;
6448 if (xsmp
.save_yourself
)
6449 SmcSaveYourselfDone(smc_conn
, True
);
6450 xsmp
.save_yourself
= False
;
6451 xsmp
.shutdown
= False
;
6456 * Callback to tell us that a new ICE connection has been established.
6460 xsmp_ice_connection(iceConn
, clientData
, opening
, watchData
)
6462 IcePointer clientData
;
6464 IcePointer
*watchData
;
6466 /* Intercept creation of ICE connection fd */
6469 xsmp_icefd
= IceConnectionNumber(iceConn
);
6470 IceRemoveConnectionWatch(xsmp_ice_connection
, NULL
);
6475 /* Handle any ICE processing that's required; return FAIL if SM lost */
6477 xsmp_handle_requests()
6481 if (IceProcessMessages(xsmp
.iceconn
, NULL
, &rep
)
6482 == IceProcessMessagesIOError
)
6486 verb_msg((char_u
*)_("XSMP lost ICE connection"));
6496 /* Set up X Session Management Protocol */
6500 char errorstring
[80];
6502 SmcCallbacks smcallbacks
;
6510 verb_msg((char_u
*)_("XSMP opening connection"));
6512 xsmp
.save_yourself
= xsmp
.shutdown
= False
;
6514 /* Set up SM callbacks - must have all, even if they're not used */
6515 smcallbacks
.save_yourself
.callback
= xsmp_handle_save_yourself
;
6516 smcallbacks
.save_yourself
.client_data
= NULL
;
6517 smcallbacks
.die
.callback
= xsmp_die
;
6518 smcallbacks
.die
.client_data
= NULL
;
6519 smcallbacks
.save_complete
.callback
= xsmp_save_complete
;
6520 smcallbacks
.save_complete
.client_data
= NULL
;
6521 smcallbacks
.shutdown_cancelled
.callback
= xsmp_shutdown_cancelled
;
6522 smcallbacks
.shutdown_cancelled
.client_data
= NULL
;
6524 /* Set up a watch on ICE connection creations. The "dummy" argument is
6525 * apparently required for FreeBSD (we get a BUS error when using NULL). */
6526 if (IceAddConnectionWatch(xsmp_ice_connection
, &dummy
) == 0)
6529 verb_msg((char_u
*)_("XSMP ICE connection watch failed"));
6533 /* Create an SM connection */
6534 xsmp
.smcconn
= SmcOpenConnection(
6539 SmcSaveYourselfProcMask
| SmcDieProcMask
6540 | SmcSaveCompleteProcMask
| SmcShutdownCancelledProcMask
,
6544 sizeof(errorstring
),
6546 if (xsmp
.smcconn
== NULL
)
6548 char errorreport
[132];
6552 vim_snprintf(errorreport
, sizeof(errorreport
),
6553 _("XSMP SmcOpenConnection failed: %s"), errorstring
);
6554 verb_msg((char_u
*)errorreport
);
6558 xsmp
.iceconn
= SmcGetIceConnection(xsmp
.smcconn
);
6562 smname
.value
= "vim";
6564 smnameprop
.name
= "SmProgram";
6565 smnameprop
.type
= "SmARRAY8";
6566 smnameprop
.num_vals
= 1;
6567 smnameprop
.vals
= &smname
;
6569 smprops
[0] = &smnameprop
;
6570 SmcSetProperties(xsmp
.smcconn
, 1, smprops
);
6575 /* Shut down XSMP comms. */
6579 if (xsmp_icefd
!= -1)
6581 SmcCloseConnection(xsmp
.smcconn
, 0, NULL
);
6585 #endif /* USE_XSMP */
6589 /* Translate character to its CTRL- value */
6593 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6594 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6595 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6596 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6597 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6598 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6602 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6605 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6616 0, 0, 0, 0, 0, 0, 0,
6627 0, 0, 0, 0, 0, 0, 0, 0,
6640 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6642 /* BE - C0 */ 0, 0, 0,
6652 /* CA - D0 */ 0, 0, 0, 0, 0, 0, 0,
6662 /* DA - DF */ 0, 0, 0, 0, 0, 0,
6673 /* EA - FF*/ 0, 0, 0, 0, 0, 0,
6674 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6677 char MetaCharTable
[]=
6678 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
6679 0, 0, 0, 0,'\\', 0,'F', 0,'W','M','N', 0, 0, 0, 0, 0,
6680 0, 0, 0, 0,']', 0, 0,'G', 0, 0,'R','O', 0, 0, 0, 0,
6681 '@','A','B','C','D','E', 0, 0,'H','I','J','K','L', 0, 0, 0,
6682 'P','Q', 0,'S','T','U','V', 0,'X','Y','Z','[', 0, 0,'^', 0
6686 /* TODO: Use characters NOT numbers!!! */
6687 char CtrlCharTable
[]=
6688 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
6689 124,193,194,195, 0,201, 0, 0, 0, 0, 0,210,211,212,213,214,
6690 215,216,217,226, 0,209,200, 0,231,232, 0, 0,224,189, 95,109,
6691 0, 0, 0, 0, 0, 0,230,173, 0, 0, 0, 0, 0,197,198,199,
6692 0, 0,229, 0, 0, 0, 0,196, 0, 0, 0, 0,227,228, 0,233,