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 */
199 static int curr_tmode
= TMODE_COOK
; /* contains current terminal mode */
204 SmcConn smcconn
; /* The SM connection ID */
205 IceConn iceconn
; /* The ICE connection ID */
206 Bool save_yourself
; /* If we're in the middle of a save_yourself */
207 Bool shutdown
; /* If we're in shutdown mode */
210 static xsmp_config_T xsmp
;
213 #ifdef SYS_SIGLIST_DECLARED
216 * extern char *_sys_siglist[NSIG];
217 * on Irix, Linux, NetBSD and Solaris. It contains a nice list of strings
218 * that describe the signals. That is nearly what we want here. But
219 * autoconf does only check for sys_siglist (without the underscore), I
220 * do not want to change everything today.... jw.
221 * This is why AC_DECL_SYS_SIGLIST is commented out in configure.in
225 static struct signalinfo
227 int sig
; /* Signal number, eg. SIGSEGV etc */
228 char *name
; /* Signal name (not char_u!). */
229 char deadly
; /* Catch as a deadly signal? */
233 {SIGHUP
, "HUP", TRUE
},
236 {SIGQUIT
, "QUIT", TRUE
},
239 {SIGILL
, "ILL", TRUE
},
242 {SIGTRAP
, "TRAP", TRUE
},
245 {SIGABRT
, "ABRT", TRUE
},
248 {SIGEMT
, "EMT", TRUE
},
251 {SIGFPE
, "FPE", TRUE
},
254 {SIGBUS
, "BUS", TRUE
},
257 {SIGSEGV
, "SEGV", TRUE
},
260 {SIGSYS
, "SYS", TRUE
},
263 {SIGALRM
, "ALRM", FALSE
}, /* Perl's alarm() can trigger it */
266 {SIGTERM
, "TERM", TRUE
},
269 {SIGVTALRM
, "VTALRM", TRUE
},
271 #if defined(SIGPROF) && !defined(FEAT_MZSCHEME)
272 /* MzScheme uses SIGPROF for its own needs */
273 {SIGPROF
, "PROF", TRUE
},
276 {SIGXCPU
, "XCPU", TRUE
},
279 {SIGXFSZ
, "XFSZ", TRUE
},
282 {SIGUSR1
, "USR1", TRUE
},
285 {SIGUSR2
, "USR2", TRUE
},
288 {SIGINT
, "INT", FALSE
},
291 {SIGWINCH
, "WINCH", FALSE
},
294 {SIGTSTP
, "TSTP", FALSE
},
297 {SIGPIPE
, "PIPE", FALSE
},
299 {-1, "Unknown!", FALSE
}
307 write(1, (char *)s
, len
);
308 if (p_wd
) /* Unix is too fast, slow down a bit more */
309 RealWaitForChar(read_cmd_fd
, p_wd
, NULL
);
313 * mch_inchar(): low level input funcion.
314 * Get a characters from the keyboard.
315 * Return the number of characters that are available.
316 * If wtime == 0 do not wait for characters.
317 * If wtime == n wait a short time for characters.
318 * If wtime == -1 wait forever for characters.
321 mch_inchar(buf
, maxlen
, wtime
, tb_change_cnt
)
324 long wtime
; /* don't use "time", MIPS cannot handle it */
329 /* Check if window changed size while we were busy, perhaps the ":set
330 * columns=99" command was used. */
336 while (WaitForChar(wtime
) == 0) /* no character available */
338 if (!do_resize
) /* return if not interrupted by resize */
343 else /* wtime == -1 */
346 * If there is no character available within 'updatetime' seconds
347 * flush all the swap files to disk.
348 * Also done when interrupted by SIGWINCH.
350 if (WaitForChar(p_ut
) == 0)
353 if (trigger_cursorhold() && maxlen
>= 3
354 && !typebuf_changed(tb_change_cnt
))
358 buf
[2] = (int)KE_CURSORHOLD
;
366 for (;;) /* repeat until we got a character */
368 while (do_resize
) /* window changed size */
371 * we want to be interrupted by the winch signal
374 if (do_resize
) /* interrupted by SIGWINCH signal */
377 /* If input was put directly in typeahead buffer bail out here. */
378 if (typebuf_changed(tb_change_cnt
))
382 * For some terminals we only get one character at a time.
383 * We want the get all available characters, so we could keep on
384 * trying until none is available
385 * For some other terminals this is quite slow, that's why we don't do
388 len
= read_from_input_buf(buf
, (long)maxlen
);
394 for (i
= 0; i
< len
; i
++)
411 * return non-zero if a character is available
416 return WaitForChar(0L);
419 #if defined(HAVE_TOTAL_MEM) || defined(PROTO)
420 # ifdef HAVE_SYS_RESOURCE_H
421 # include <sys/resource.h>
423 # if defined(HAVE_SYS_SYSCTL_H) && defined(HAVE_SYSCTL)
424 # include <sys/sysctl.h>
426 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
427 # include <sys/sysinfo.h>
431 * Return total amount of memory available in Kbyte.
432 * Doesn't change when memory has been allocated.
436 mch_total_mem(special
)
440 return ulimit(3, 0L) >> 10; /* always 32MB? */
443 long_u shiftright
= 10; /* how much to shift "mem" right for Kbyte */
449 /* BSD way of getting the amount of RAM available. */
452 len
= sizeof(physmem
);
453 if (sysctl(mib
, 2, &physmem
, &len
, NULL
, 0) == 0)
454 mem
= (long_u
)physmem
;
457 # if defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)
460 struct sysinfo sinfo
;
462 /* Linux way of getting amount of RAM available */
463 if (sysinfo(&sinfo
) == 0)
465 # ifdef HAVE_SYSINFO_MEM_UNIT
466 /* avoid overflow as much as possible */
467 while (shiftright
> 0 && (sinfo
.mem_unit
& 1) == 0)
469 sinfo
.mem_unit
= sinfo
.mem_unit
>> 1;
472 mem
= sinfo
.totalram
* sinfo
.mem_unit
;
474 mem
= sinfo
.totalram
;
483 long pagesize
, pagecount
;
485 /* Solaris way of getting amount of RAM available */
486 pagesize
= sysconf(_SC_PAGESIZE
);
487 pagecount
= sysconf(_SC_PHYS_PAGES
);
488 if (pagesize
> 0 && pagecount
> 0)
490 /* avoid overflow as much as possible */
491 while (shiftright
> 0 && (pagesize
& 1) == 0)
493 pagesize
= (long_u
)pagesize
>> 1;
496 mem
= (long_u
)pagesize
* pagecount
;
501 /* Return the minimum of the physical memory and the user limit, because
502 * using more than the user limit may cause Vim to be terminated. */
503 # if defined(HAVE_SYS_RESOURCE_H) && defined(HAVE_GETRLIMIT)
507 if (getrlimit(RLIMIT_DATA
, &rlp
) == 0
508 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
509 # ifdef RLIM_INFINITY
510 && rlp
.rlim_cur
!= RLIM_INFINITY
512 && ((long_u
)rlp
.rlim_cur
>> 10) < (mem
>> shiftright
)
515 mem
= (long_u
)rlp
.rlim_cur
;
522 return mem
>> shiftright
;
523 return (long_u
)0x1fffff;
529 mch_delay(msec
, ignoreinput
)
535 long total
= msec
; /* remember original value */
540 /* Go to cooked mode without echo, to allow SIGINT interrupting us
542 old_tmode
= curr_tmode
;
543 if (curr_tmode
== TMODE_RAW
)
544 settmode(TMODE_SLEEP
);
547 * Everybody sleeps in a different way...
548 * Prefer nanosleep(), some versions of usleep() can only sleep up to
554 /* if total is large enough, wait by portions in p_mzq */
561 #ifdef HAVE_NANOSLEEP
565 ts
.tv_sec
= msec
/ 1000;
566 ts
.tv_nsec
= (msec
% 1000) * 1000000;
567 (void)nanosleep(&ts
, NULL
);
573 usleep((unsigned int)(999 * 1000));
576 usleep((unsigned int)(msec
* 1000));
579 poll(NULL
, 0, (int)msec
);
587 tv
.tv_sec
= msec
/ 1000;
588 tv
.tv_usec
= (msec
% 1000) * 1000;
590 * NOTE: Solaris 2.6 has a bug that makes select() hang here. Get
591 * a patch from Sun to fix this. Reported by Gunnar Pedersen.
593 select(0, NULL
, NULL
, NULL
, &tv
);
595 # endif /* __EMX__ */
596 # endif /* HAVE_SELECT */
597 # endif /* HAVE_NANOSLEEP */
598 #endif /* HAVE_USLEEP */
610 #if 0 /* disabled, no longer needed now that regmatch() is not recursive */
611 # if defined(HAVE_GETRLIMIT)
612 # define HAVE_STACK_LIMIT
616 #if defined(HAVE_STACK_LIMIT) \
617 || (!defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGSTACK))
618 # define HAVE_CHECK_STACK_GROWTH
620 * Support for checking for an almost-out-of-stack-space situation.
624 * Return a pointer to an item on the stack. Used to find out if the stack
627 static void check_stack_growth
__ARGS((char *p
));
628 static int stack_grows_downwards
;
631 * Find out if the stack grows upwards or downwards.
632 * "p" points to a variable on the stack of the caller.
635 check_stack_growth(p
)
640 stack_grows_downwards
= (p
> (char *)&i
);
644 #if defined(HAVE_STACK_LIMIT) || defined(PROTO)
645 static char *stack_limit
= NULL
;
647 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
648 # include <pthread.h>
649 # include <pthread_np.h>
653 * Find out until how var the stack can grow without getting into trouble.
654 * Called when starting up and when switching to the signal stack in
664 /* Set the stack limit to 15/16 of the allowable size. Skip this when the
665 * limit doesn't fit in a long (rlim_cur might be "long long"). */
666 if (getrlimit(RLIMIT_STACK
, &rlp
) == 0
667 && rlp
.rlim_cur
< ((rlim_t
)1 << (sizeof(long_u
) * 8 - 1))
668 # ifdef RLIM_INFINITY
669 && rlp
.rlim_cur
!= RLIM_INFINITY
673 lim
= (long)rlp
.rlim_cur
;
674 #if defined(_THREAD_SAFE) && defined(HAVE_PTHREAD_NP_H)
679 /* On FreeBSD the initial thread always has a fixed stack size, no
680 * matter what the limits are set to. Normally it's 1 Mbyte. */
681 pthread_attr_init(&attr
);
682 if (pthread_attr_get_np(pthread_self(), &attr
) == 0)
684 pthread_attr_getstacksize(&attr
, &size
);
685 if (lim
> (long)size
)
688 pthread_attr_destroy(&attr
);
691 if (stack_grows_downwards
)
693 stack_limit
= (char *)((long)&i
- (lim
/ 16L * 15L));
694 if (stack_limit
>= (char *)&i
)
695 /* overflow, set to 1/16 of current stack position */
696 stack_limit
= (char *)((long)&i
/ 16L);
700 stack_limit
= (char *)((long)&i
+ (lim
/ 16L * 15L));
701 if (stack_limit
<= (char *)&i
)
702 stack_limit
= NULL
; /* overflow */
708 * Return FAIL when running out of stack space.
709 * "p" must point to any variable local to the caller that's on the stack.
715 if (stack_limit
!= NULL
)
717 if (stack_grows_downwards
)
722 else if (p
> stack_limit
)
729 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
731 * Support for using the signal stack.
732 * This helps when we run out of stack space, which causes a SIGSEGV. The
733 * signal handler then must run on another stack, since the normal stack is
738 # define SIGSTKSZ 8000 /* just a guess of how much stack is needed... */
741 # ifdef HAVE_SIGALTSTACK
742 static stack_t sigstk
; /* for sigaltstack() */
744 static struct sigstack sigstk
; /* for sigstack() */
747 static void init_signal_stack
__ARGS((void));
748 static char *signal_stack
;
753 if (signal_stack
!= NULL
)
755 # ifdef HAVE_SIGALTSTACK
757 /* missing prototype. Adding it to osdef?.h.in doesn't work, because
758 * "struct sigaltstack" needs to be declared. */
759 extern int sigaltstack
__ARGS((const struct sigaltstack
*ss
, struct sigaltstack
*oss
));
763 sigstk
.ss_base
= signal_stack
;
765 sigstk
.ss_sp
= signal_stack
;
767 sigstk
.ss_size
= SIGSTKSZ
;
769 (void)sigaltstack(&sigstk
, NULL
);
771 sigstk
.ss_sp
= signal_stack
;
772 if (stack_grows_downwards
)
773 sigstk
.ss_sp
+= SIGSTKSZ
- 1;
774 sigstk
.ss_onstack
= 0;
775 (void)sigstack(&sigstk
, NULL
);
782 * We need correct potatotypes for a signal function, otherwise mean compilers
783 * will barf when the second argument to signal() is ``wrong''.
784 * Let me try it with a few tricky defines from my own osdef.h (jw).
786 #if defined(SIGWINCH)
789 sig_winch
SIGDEFARG(sigarg
)
791 /* this is not required on all systems, but it doesn't hurt anybody */
792 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
801 catch_sigint
SIGDEFARG(sigarg
)
803 /* this is not required on all systems, but it doesn't hurt anybody */
804 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
813 catch_sigpwr
SIGDEFARG(sigarg
)
815 /* this is not required on all systems, but it doesn't hurt anybody */
816 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
818 * I'm not sure we get the SIGPWR signal when the system is really going
819 * down or when the batteries are almost empty. Just preserve the swap
820 * files and don't exit, that can't do any harm.
822 ml_sync_all(FALSE
, FALSE
);
829 * signal function for alarm().
833 sig_alarm
SIGDEFARG(sigarg
)
835 /* doesn't do anything, just to break a system call */
836 sig_alarm_called
= TRUE
;
841 #if (defined(HAVE_SETJMP_H) \
842 && ((defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) \
843 || defined(FEAT_LIBCALL))) \
846 * A simplistic version of setjmp() that only allows one level of using.
847 * Don't call twice before calling mch_endjmp()!.
850 * if (SETJMP(lc_jump_env) != 0)
860 * Note: Can't move SETJMP() here, because a function calling setjmp() must
861 * not return before the saved environment is used.
862 * Returns OK for normal return, FAIL when the protected code caused a
863 * problem and LONGJMP() was used.
883 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
884 /* On FreeBSD the signal stack has to be reset after using siglongjmp(),
885 * otherwise catching the signal only works once. */
892 * This function handles deadly signals.
893 * It tries to preserve any swap file and exit properly.
894 * (partly from Elvis).
897 deathtrap
SIGDEFARG(sigarg
)
899 static int entered
= 0; /* count the number of times we got here.
900 Note: when memory has been corrupted
901 this may get an arbitrary value! */
906 #if defined(HAVE_SETJMP_H)
908 * Catch a crash in protected code.
909 * Restores the environment saved in lc_jump_env, which looks like
910 * SETJMP() returns 1.
914 # if defined(SIGHASARG)
917 lc_active
= FALSE
; /* don't jump again */
918 LONGJMP(lc_jump_env
, 1);
924 /* When SIGHUP, SIGQUIT, etc. are blocked: postpone the effect and return
925 * here. This avoids that a non-reentrant function is interrupted, e.g.,
926 * free(). Calling free() again may then cause a crash. */
948 && !vim_handle_signal(sigarg
))
952 /* Remember how often we have been called. */
956 /* Set the v:dying variable. */
957 set_vim_var_nr(VV_DYING
, (long)entered
);
960 #ifdef HAVE_STACK_LIMIT
961 /* Since we are now using the signal stack, need to reset the stack
962 * limit. Otherwise using a regexp will fail. */
967 /* This is for opening gdb the moment Vim crashes.
968 * You need to manually adjust the file name and Vim executable name.
969 * Suggested by SungHyun Nam. */
971 # define VI_GDB_FILE "/tmp/vimgdb"
972 # define VIM_NAME "/usr/bin/vim"
973 FILE *fp
= fopen(VI_GDB_FILE
, "w");
981 , VIM_NAME
, getpid());
983 system("xterm -e gdb -x "VI_GDB_FILE
);
990 /* try to find the name of this signal */
991 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
992 if (sigarg
== signal_info
[i
].sig
)
994 deadly_signal
= sigarg
;
997 full_screen
= FALSE
; /* don't write message to the GUI, it might be
998 * part of the problem... */
1000 * If something goes wrong after entering here, we may get here again.
1001 * When this happens, give a message and try to exit nicely (resetting the
1002 * terminal mode, etc.)
1003 * When this happens twice, just exit, don't even try to give a message,
1004 * stack may be corrupt or something weird.
1005 * When this still happens again (or memory was corrupted in such a way
1006 * that "entered" was clobbered) use _exit(), don't try freeing resources.
1010 reset_signals(); /* don't catch any signals anymore */
1018 OUT_STR(_("Vim: Double signal, exiting\n"));
1024 sprintf((char *)IObuff
, _("Vim: Caught deadly signal %s\n"),
1025 signal_info
[i
].name
);
1027 sprintf((char *)IObuff
, _("Vim: Caught deadly signal\n"));
1029 preserve_exit(); /* preserve files and exit */
1042 * On Solaris with multi-threading, suspending might not work immediately.
1043 * Catch the SIGCONT signal, which will be used as an indication whether the
1044 * suspending has been done or not.
1046 static int sigcont_received
;
1047 static RETSIGTYPE sigcont_handler
__ARGS(SIGPROTOARG
);
1050 * signal handler for SIGCONT
1054 sigcont_handler
SIGDEFARG(sigarg
)
1056 sigcont_received
= TRUE
;
1062 * If the machine has job control, use it to suspend the program,
1063 * otherwise fake it by starting a new shell.
1068 /* BeOS does have SIGTSTP, but it doesn't work. */
1069 #if defined(SIGTSTP) && !defined(__BEOS__)
1070 out_flush(); /* needed to make cursor visible on some systems */
1071 settmode(TMODE_COOK
);
1072 out_flush(); /* needed to disable mouse on some systems */
1074 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
1075 /* Since we are going to sleep, we can't respond to requests for the X
1076 * selections. Lose them, otherwise other applications will hang. But
1077 * first copy the text to cut buffer 0. */
1078 if (clip_star
.owned
|| clip_plus
.owned
)
1080 x11_export_final_selection();
1081 if (clip_star
.owned
)
1082 clip_lose_selection(&clip_star
);
1083 if (clip_plus
.owned
)
1084 clip_lose_selection(&clip_plus
);
1085 if (x11_display
!= NULL
)
1086 XFlush(x11_display
);
1091 sigcont_received
= FALSE
;
1093 kill(0, SIGTSTP
); /* send ourselves a STOP signal */
1095 /* When we didn't suspend immediately in the kill(), do it now. Happens
1096 * on multi-threaded Solaris. */
1097 if (!sigcont_received
)
1103 * Set oldtitle to NULL, so the current title is obtained again.
1108 settmode(TMODE_RAW
);
1109 need_check_timestamps
= TRUE
;
1110 did_check_timestamps
= FALSE
;
1125 #ifdef MACOS_CONVERT
1133 #if defined(SIGWINCH)
1135 * WINDOW CHANGE signal is handled with sig_winch().
1137 signal(SIGWINCH
, (RETSIGTYPE (*)())sig_winch
);
1141 * We want the STOP signal to work, to make mch_suspend() work.
1142 * For "rvim" the STOP signal is ignored.
1145 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
1148 signal(SIGCONT
, sigcont_handler
);
1152 * We want to ignore breaking of PIPEs.
1155 signal(SIGPIPE
, SIG_IGN
);
1163 * Ignore alarm signals (Perl's alarm() generates it).
1166 signal(SIGALRM
, SIG_IGN
);
1170 * Catch SIGPWR (power failure?) to preserve the swap files, so that no
1171 * work will be lost.
1174 signal(SIGPWR
, (RETSIGTYPE (*)())catch_sigpwr
);
1178 * Arrange for other signals to gracefully shutdown Vim.
1180 catch_signals(deathtrap
, SIG_ERR
);
1182 #if defined(FEAT_GUI) && defined(SIGHUP)
1184 * When the GUI is running, ignore the hangup signal.
1187 signal(SIGHUP
, SIG_IGN
);
1191 #if defined(SIGINT) || defined(PROTO)
1193 * Catch CTRL-C (only works while in Cooked mode).
1198 signal(SIGINT
, (RETSIGTYPE (*)())catch_sigint
);
1205 catch_signals(SIG_DFL
, SIG_DFL
);
1207 /* SIGCONT isn't in the list, because its default action is ignore */
1208 signal(SIGCONT
, SIG_DFL
);
1213 catch_signals(func_deadly
, func_other
)
1214 RETSIGTYPE (*func_deadly
)();
1215 RETSIGTYPE (*func_other
)();
1219 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
1220 if (signal_info
[i
].deadly
)
1222 #if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGACTION)
1223 struct sigaction sa
;
1225 /* Setup to use the alternate stack for the signal function. */
1226 sa
.sa_handler
= func_deadly
;
1227 sigemptyset(&sa
.sa_mask
);
1228 # if defined(__linux__) && defined(_REENTRANT)
1229 /* On Linux, with glibc compiled for kernel 2.2, there is a bug in
1230 * thread handling in combination with using the alternate stack:
1231 * pthread library functions try to use the stack pointer to
1232 * identify the current thread, causing a SEGV signal, which
1233 * recursively calls deathtrap() and hangs. */
1236 sa
.sa_flags
= SA_ONSTACK
;
1238 sigaction(signal_info
[i
].sig
, &sa
, NULL
);
1240 # if defined(HAVE_SIGALTSTACK) && defined(HAVE_SIGVEC)
1243 /* Setup to use the alternate stack for the signal function. */
1244 sv
.sv_handler
= func_deadly
;
1246 sv
.sv_flags
= SV_ONSTACK
;
1247 sigvec(signal_info
[i
].sig
, &sv
, NULL
);
1249 signal(signal_info
[i
].sig
, func_deadly
);
1253 else if (func_other
!= SIG_ERR
)
1254 signal(signal_info
[i
].sig
, func_other
);
1258 * Handling of SIGHUP, SIGQUIT and SIGTERM:
1259 * "when" == a signal: when busy, postpone and return FALSE, otherwise
1261 * "when" == SIGNAL_BLOCK: Going to be busy, block signals
1262 * "when" == SIGNAL_UNBLOCK: Going to wait, unblock signals, use postponed
1264 * Returns TRUE when Vim should exit.
1267 vim_handle_signal(sig
)
1270 static int got_signal
= 0;
1271 static int blocked
= TRUE
;
1275 case SIGNAL_BLOCK
: blocked
= TRUE
;
1278 case SIGNAL_UNBLOCK
: blocked
= FALSE
;
1279 if (got_signal
!= 0)
1281 kill(getpid(), got_signal
);
1286 default: if (!blocked
)
1287 return TRUE
; /* exit! */
1292 got_int
= TRUE
; /* break any loops */
1299 * Check_win checks whether we have an interactive stdout.
1303 mch_check_win(argc
, argv
)
1309 * Store argv[0], may be used for $VIM. Only use it if it is an absolute
1310 * name, mostly it's just "vim" and found in the path, which is unusable.
1312 if (mch_isFullName(argv
[0]))
1313 exe_name
= vim_strsave((char_u
*)argv
[0]);
1321 * Return TRUE if the input comes from a terminal, FALSE otherwise.
1326 if (isatty(read_cmd_fd
))
1333 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H) \
1334 && (defined(FEAT_XCLIPBOARD) || defined(FEAT_TITLE))
1336 static void xopen_message
__ARGS((struct timeval
*tvp
));
1339 * Give a message about the elapsed time for opening the X window.
1343 struct timeval
*tvp
; /* must contain start time */
1345 struct timeval end_tv
;
1347 /* Compute elapsed time. */
1348 gettimeofday(&end_tv
, NULL
);
1349 smsg((char_u
*)_("Opening the X display took %ld msec"),
1350 (end_tv
.tv_sec
- tvp
->tv_sec
) * 1000L
1351 + (end_tv
.tv_usec
- tvp
->tv_usec
) / 1000L);
1356 #if defined(FEAT_X11) && (defined(FEAT_TITLE) || defined(FEAT_XCLIPBOARD))
1358 * A few functions shared by X11 title and clipboard code.
1360 static int x_error_handler
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1361 static int x_error_check
__ARGS((Display
*dpy
, XErrorEvent
*error_event
));
1362 static int x_connect_to_server
__ARGS((void));
1363 static int test_x11_window
__ARGS((Display
*dpy
));
1365 static int got_x_error
= FALSE
;
1368 * X Error handler, otherwise X just exits! (very rude) -- webb
1371 x_error_handler(dpy
, error_event
)
1373 XErrorEvent
*error_event
;
1375 XGetErrorText(dpy
, error_event
->error_code
, (char *)IObuff
, IOSIZE
);
1376 STRCAT(IObuff
, _("\nVim: Got X error\n"));
1378 /* We cannot print a message and continue, because no X calls are allowed
1379 * here (causes my system to hang). Silently continuing might be an
1381 preserve_exit(); /* preserve files and exit */
1383 return 0; /* NOTREACHED */
1387 * Another X Error handler, just used to check for errors.
1391 x_error_check(dpy
, error_event
)
1393 XErrorEvent
*error_event
;
1399 #if defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)
1400 # if defined(HAVE_SETJMP_H)
1402 * An X IO Error handler, used to catch error while opening the display.
1404 static int x_IOerror_check
__ARGS((Display
*dpy
));
1408 x_IOerror_check(dpy
)
1411 /* This function should not return, it causes exit(). Longjump instead. */
1412 LONGJMP(lc_jump_env
, 1);
1419 * An X IO Error handler, used to catch terminal errors.
1421 static int x_IOerror_handler
__ARGS((Display
*dpy
));
1425 x_IOerror_handler(dpy
)
1431 xterm_Shell
= (Widget
)0;
1433 /* This function should not return, it causes exit(). Longjump instead. */
1434 LONGJMP(x_jump_env
, 1);
1441 * Return TRUE when connection to the X server is desired.
1444 x_connect_to_server()
1446 regmatch_T regmatch
;
1448 #if defined(FEAT_CLIENTSERVER)
1449 if (x_force_connect
)
1455 /* Check for a match with "exclude:" from 'clipboard'. */
1456 if (clip_exclude_prog
!= NULL
)
1458 regmatch
.rm_ic
= FALSE
; /* Don't ignore case */
1459 regmatch
.regprog
= clip_exclude_prog
;
1460 if (vim_regexec(®match
, T_NAME
, (colnr_T
)0))
1467 * Test if "dpy" and x11_window are valid by getting the window title.
1468 * I don't actually want it yet, so there may be a simpler call to use, but
1469 * this will cause the error handler x_error_check() to be called if anything
1470 * is wrong, such as the window pointer being invalid (as can happen when the
1471 * user changes his DISPLAY, but not his WINDOWID) -- webb
1474 test_x11_window(dpy
)
1477 int (*old_handler
)();
1478 XTextProperty text_prop
;
1480 old_handler
= XSetErrorHandler(x_error_check
);
1481 got_x_error
= FALSE
;
1482 if (XGetWMName(dpy
, x11_window
, &text_prop
))
1483 XFree((void *)text_prop
.value
);
1485 (void)XSetErrorHandler(old_handler
);
1487 if (p_verbose
> 0 && got_x_error
)
1488 verb_msg((char_u
*)_("Testing the X display failed"));
1490 return (got_x_error
? FAIL
: OK
);
1498 static int get_x11_thing
__ARGS((int get_title
, int test_only
));
1501 * try to get x11 window and display
1503 * return FAIL for failure, OK otherwise
1509 static int result
= -1;
1510 #define XD_NONE 0 /* x11_display not set here */
1511 #define XD_HERE 1 /* x11_display opened here */
1512 #define XD_GUI 2 /* x11_display used from gui.dpy */
1513 #define XD_XTERM 3 /* x11_display used from xterm_dpy */
1514 static int x11_display_from
= XD_NONE
;
1515 static int did_set_error_handler
= FALSE
;
1517 if (!did_set_error_handler
)
1519 /* X just exits if it finds an error otherwise! */
1520 (void)XSetErrorHandler(x_error_handler
);
1521 did_set_error_handler
= TRUE
;
1524 #if defined(FEAT_GUI_X11) || defined(FEAT_GUI_GTK)
1528 * If the X11 display was opened here before, for the window where Vim
1529 * was started, close that one now to avoid a memory leak.
1531 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1533 XCloseDisplay(x11_display
);
1534 x11_display_from
= XD_NONE
;
1536 if (gui_get_x11_windis(&x11_window
, &x11_display
) == OK
)
1538 x11_display_from
= XD_GUI
;
1544 else if (x11_display_from
== XD_GUI
)
1546 /* GUI must have stopped somehow, clear x11_display */
1549 x11_display_from
= XD_NONE
;
1553 /* When started with the "-X" argument, don't try connecting. */
1554 if (!x_connect_to_server())
1558 * If WINDOWID not set, should try another method to find out
1559 * what the current window number is. The only code I know for
1560 * this is very complicated.
1561 * We assume that zero is invalid for WINDOWID.
1563 if (x11_window
== 0 && (winid
= getenv("WINDOWID")) != NULL
)
1564 x11_window
= (Window
)atol(winid
);
1566 #ifdef FEAT_XCLIPBOARD
1567 if (xterm_dpy
!= NULL
&& x11_window
!= 0)
1569 /* Checked it already. */
1570 if (x11_display_from
== XD_XTERM
)
1574 * If the X11 display was opened here before, for the window where Vim
1575 * was started, close that one now to avoid a memory leak.
1577 if (x11_display_from
== XD_HERE
&& x11_display
!= NULL
)
1578 XCloseDisplay(x11_display
);
1579 x11_display
= xterm_dpy
;
1580 x11_display_from
= XD_XTERM
;
1581 if (test_x11_window(x11_display
) == FAIL
)
1583 /* probably bad $WINDOWID */
1586 x11_display_from
= XD_NONE
;
1593 if (x11_window
== 0 || x11_display
== NULL
)
1596 if (result
!= -1) /* Have already been here and set this */
1597 return result
; /* Don't do all these X calls again */
1599 if (x11_window
!= 0 && x11_display
== NULL
)
1601 #ifdef SET_SIG_ALARM
1602 RETSIGTYPE (*sig_save
)();
1604 #if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1605 struct timeval start_tv
;
1608 gettimeofday(&start_tv
, NULL
);
1611 #ifdef SET_SIG_ALARM
1613 * Opening the Display may hang if the DISPLAY setting is wrong, or
1614 * the network connection is bad. Set an alarm timer to get out.
1616 sig_alarm_called
= FALSE
;
1617 sig_save
= (RETSIGTYPE (*)())signal(SIGALRM
,
1618 (RETSIGTYPE (*)())sig_alarm
);
1621 x11_display
= XOpenDisplay(NULL
);
1623 #ifdef SET_SIG_ALARM
1625 signal(SIGALRM
, (RETSIGTYPE (*)())sig_save
);
1626 if (p_verbose
> 0 && sig_alarm_called
)
1627 verb_msg((char_u
*)_("Opening the X display timed out"));
1629 if (x11_display
!= NULL
)
1631 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
1635 xopen_message(&start_tv
);
1639 if (test_x11_window(x11_display
) == FAIL
)
1641 /* Maybe window id is bad */
1643 XCloseDisplay(x11_display
);
1647 x11_display_from
= XD_HERE
;
1650 if (x11_window
== 0 || x11_display
== NULL
)
1651 return (result
= FAIL
);
1652 return (result
= OK
);
1656 * Determine original x11 Window Title
1659 get_x11_title(test_only
)
1662 return get_x11_thing(TRUE
, test_only
);
1666 * Determine original x11 Window icon
1669 get_x11_icon(test_only
)
1674 retval
= get_x11_thing(FALSE
, test_only
);
1676 /* could not get old icon, use terminal name */
1677 if (oldicon
== NULL
&& !test_only
)
1679 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1680 oldicon
= T_NAME
+ 8;
1689 get_x11_thing(get_title
, test_only
)
1690 int get_title
; /* get title string */
1693 XTextProperty text_prop
;
1697 if (get_x11_windis() == OK
)
1699 /* Get window/icon name if any */
1701 status
= XGetWMName(x11_display
, x11_window
, &text_prop
);
1703 status
= XGetWMIconName(x11_display
, x11_window
, &text_prop
);
1706 * If terminal is xterm, then x11_window may be a child window of the
1707 * outer xterm window that actually contains the window/icon name, so
1708 * keep traversing up the tree until a window with a title/icon is
1711 /* Previously this was only done for xterm and alikes. I don't see a
1712 * reason why it would fail for other terminal emulators.
1713 * if (term_is_xterm) */
1717 Window win
= x11_window
;
1719 unsigned int num_children
;
1721 while (!status
|| text_prop
.value
== NULL
)
1723 if (!XQueryTree(x11_display
, win
, &root
, &parent
, &children
,
1727 XFree((void *)children
);
1728 if (parent
== root
|| parent
== 0)
1733 status
= XGetWMName(x11_display
, win
, &text_prop
);
1735 status
= XGetWMIconName(x11_display
, win
, &text_prop
);
1738 if (status
&& text_prop
.value
!= NULL
)
1743 #ifdef FEAT_XFONTSET
1744 if (text_prop
.encoding
== XA_STRING
)
1748 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1750 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1751 #ifdef FEAT_XFONTSET
1756 Status transform_status
;
1759 transform_status
= XmbTextPropertyToTextList(x11_display
,
1762 if (transform_status
>= Success
&& n
> 0 && cl
[0])
1765 oldtitle
= vim_strsave((char_u
*) cl
[0]);
1767 oldicon
= vim_strsave((char_u
*) cl
[0]);
1768 XFreeStringList(cl
);
1773 oldtitle
= vim_strsave((char_u
*)text_prop
.value
);
1775 oldicon
= vim_strsave((char_u
*)text_prop
.value
);
1780 XFree((void *)text_prop
.value
);
1786 /* Are Xutf8 functions available? Avoid error from old compilers. */
1787 #if defined(X_HAVE_UTF8_STRING) && defined(FEAT_MBYTE)
1788 # if X_HAVE_UTF8_STRING
1789 # define USE_UTF8_STRING
1794 * Set x11 Window Title
1796 * get_x11_windis() must be called before this and have returned OK
1799 set_x11_title(title
)
1802 /* XmbSetWMProperties() and Xutf8SetWMProperties() should use a STRING
1803 * when possible, COMPOUND_TEXT otherwise. COMPOUND_TEXT isn't
1804 * supported everywhere and STRING doesn't work for multi-byte titles.
1806 #ifdef USE_UTF8_STRING
1808 Xutf8SetWMProperties(x11_display
, x11_window
, (const char *)title
,
1809 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1813 #if XtSpecificationRelease >= 4
1814 # ifdef FEAT_XFONTSET
1815 XmbSetWMProperties(x11_display
, x11_window
, (const char *)title
,
1816 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1818 XTextProperty text_prop
;
1819 char *c_title
= (char *)title
;
1821 /* directly from example 3-18 "basicwin" of Xlib Programming Manual */
1822 (void)XStringListToTextProperty(&c_title
, 1, &text_prop
);
1823 XSetWMProperties(x11_display
, x11_window
, &text_prop
,
1824 NULL
, NULL
, 0, NULL
, NULL
, NULL
);
1827 XStoreName(x11_display
, x11_window
, (char *)title
);
1830 XFlush(x11_display
);
1834 * Set x11 Window icon
1836 * get_x11_windis() must be called before this and have returned OK
1842 /* See above for comments about using X*SetWMProperties(). */
1843 #ifdef USE_UTF8_STRING
1845 Xutf8SetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1846 NULL
, 0, NULL
, NULL
, NULL
);
1850 #if XtSpecificationRelease >= 4
1851 # ifdef FEAT_XFONTSET
1852 XmbSetWMProperties(x11_display
, x11_window
, NULL
, (const char *)icon
,
1853 NULL
, 0, NULL
, NULL
, NULL
);
1855 XTextProperty text_prop
;
1856 char *c_icon
= (char *)icon
;
1858 (void)XStringListToTextProperty(&c_icon
, 1, &text_prop
);
1859 XSetWMProperties(x11_display
, x11_window
, NULL
, &text_prop
,
1860 NULL
, 0, NULL
, NULL
, NULL
);
1863 XSetIconName(x11_display
, x11_window
, (char *)icon
);
1866 XFlush(x11_display
);
1869 #else /* FEAT_X11 */
1873 get_x11_title(test_only
)
1880 get_x11_icon(test_only
)
1885 if (STRNCMP(T_NAME
, "builtin_", 8) == 0)
1886 oldicon
= T_NAME
+ 8;
1893 #endif /* FEAT_X11 */
1896 mch_can_restore_title()
1898 return get_x11_title(TRUE
);
1902 mch_can_restore_icon()
1904 return get_x11_icon(TRUE
);
1908 * Set the window title and icon.
1911 mch_settitle(title
, icon
)
1916 static int recursive
= 0;
1918 if (T_NAME
== NULL
) /* no terminal name (yet) */
1920 if (title
== NULL
&& icon
== NULL
) /* nothing to do */
1923 /* When one of the X11 functions causes a deadly signal, we get here again
1924 * recursively. Avoid hanging then (something is probably locked). */
1930 * if the window ID and the display is known, we may use X11 calls
1933 if (get_x11_windis() == OK
)
1936 # if defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC) || defined(FEAT_GUI_GTK)
1943 * Note: if "t_TS" is set, title is set with escape sequence rather
1944 * than x11 calls, because the x11 calls don't always work
1946 if ((type
|| *T_TS
!= NUL
) && title
!= NULL
)
1948 if (oldtitle
== NULL
1952 ) /* first call but not in GUI, save title */
1953 (void)get_x11_title(FALSE
);
1955 if (*T_TS
!= NUL
) /* it's OK if t_fs is empty */
1956 term_settitle(title
);
1959 # ifdef FEAT_GUI_GTK
1960 if (!gui
.in_use
) /* don't do this if GTK+ is running */
1962 set_x11_title(title
); /* x11 */
1964 #if defined(FEAT_GUI_GTK) \
1965 || defined(FEAT_GUI_PHOTON) || defined(FEAT_GUI_MAC)
1967 gui_mch_settitle(title
, icon
);
1969 did_set_title
= TRUE
;
1972 if ((type
|| *T_CIS
!= NUL
) && icon
!= NULL
)
1978 ) /* first call, save icon */
1979 get_x11_icon(FALSE
);
1983 out_str(T_CIS
); /* set icon start */
1985 out_str(T_CIE
); /* set icon end */
1990 # ifdef FEAT_GUI_GTK
1991 if (!gui
.in_use
) /* don't do this if GTK+ is running */
1993 set_x11_icon(icon
); /* x11 */
1995 did_set_icon
= TRUE
;
2001 * Restore the window/icon title.
2002 * "which" is one of:
2003 * 1 only restore title
2004 * 2 only restore icon
2005 * 3 restore title and icon
2008 mch_restore_title(which
)
2011 /* only restore the title or icon when it has been set */
2012 mch_settitle(((which
& 1) && did_set_title
) ?
2013 (oldtitle
? oldtitle
: p_titleold
) : NULL
,
2014 ((which
& 2) && did_set_icon
) ? oldicon
: NULL
);
2017 #endif /* FEAT_TITLE */
2020 * Return TRUE if "name" looks like some xterm name.
2021 * Seiichi Sato mentioned that "mlterm" works like xterm.
2029 return (STRNICMP(name
, "xterm", 5) == 0
2030 || STRNICMP(name
, "nxterm", 6) == 0
2031 || STRNICMP(name
, "kterm", 5) == 0
2032 || STRNICMP(name
, "mlterm", 6) == 0
2033 || STRNICMP(name
, "rxvt", 4) == 0
2034 || STRCMP(name
, "builtin_xterm") == 0);
2037 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
2039 * Return non-zero when using an xterm mouse, according to 'ttymouse'.
2040 * Return 1 for "xterm".
2041 * Return 2 for "xterm2".
2046 if (ttym_flags
== TTYM_XTERM2
)
2048 if (ttym_flags
== TTYM_XTERM
)
2060 return (STRNICMP(name
, "iris-ansi", 9) == 0
2061 || STRCMP(name
, "builtin_iris-ansi") == 0);
2069 return FALSE
; /* actually all ANSI comp. terminals should be here */
2070 /* catch VT100 - VT5xx */
2071 return ((STRNICMP(name
, "vt", 2) == 0
2072 && vim_strchr((char_u
*)"12345", name
[2]) != NULL
)
2073 || STRCMP(name
, "builtin_vt320") == 0);
2077 * Return TRUE if "name" is a terminal for which 'ttyfast' should be set.
2078 * This should include all windowed terminal emulators.
2081 vim_is_fastterm(name
)
2086 if (vim_is_xterm(name
) || vim_is_vt300(name
) || vim_is_iris(name
))
2088 return ( STRNICMP(name
, "hpterm", 6) == 0
2089 || STRNICMP(name
, "sun-cmd", 7) == 0
2090 || STRNICMP(name
, "screen", 6) == 0
2091 || STRNICMP(name
, "dtterm", 6) == 0);
2095 * Insert user name in s[len].
2096 * Return OK if a name found.
2099 mch_get_user_name(s
, len
)
2104 vim_strncpy(s
, (char_u
*)cuserid(NULL
), len
- 1);
2107 return mch_get_uname(getuid(), s
, len
);
2112 * Insert user name for "uid" in s[len].
2113 * Return OK if a name found.
2116 mch_get_uname(uid
, s
, len
)
2121 #if defined(HAVE_PWD_H) && defined(HAVE_GETPWUID)
2124 if ((pw
= getpwuid(uid
)) != NULL
2125 && pw
->pw_name
!= NULL
&& *(pw
->pw_name
) != NUL
)
2127 vim_strncpy(s
, (char_u
*)pw
->pw_name
, len
- 1);
2131 sprintf((char *)s
, "%d", (int)uid
); /* assumes s is long enough */
2132 return FAIL
; /* a number is not a name */
2136 * Insert host name is s[len].
2139 #ifdef HAVE_SYS_UTSNAME_H
2141 mch_get_host_name(s
, len
)
2145 struct utsname vutsname
;
2147 if (uname(&vutsname
) < 0)
2150 vim_strncpy(s
, (char_u
*)vutsname
.nodename
, len
- 1);
2152 #else /* HAVE_SYS_UTSNAME_H */
2154 # ifdef HAVE_SYS_SYSTEMINFO_H
2155 # define gethostname(nam, len) sysinfo(SI_HOSTNAME, nam, len)
2159 mch_get_host_name(s
, len
)
2164 vaxc$
gethostname((char *)s
, len
);
2166 gethostname((char *)s
, len
);
2168 s
[len
- 1] = NUL
; /* make sure it's terminated */
2170 #endif /* HAVE_SYS_UTSNAME_H */
2178 return (long)getpid();
2181 #if !defined(HAVE_STRERROR) && defined(USE_GETCWD)
2182 static char *strerror
__ARGS((int));
2188 extern int sys_nerr
;
2189 extern char *sys_errlist
[];
2192 if (err
> 0 && err
< sys_nerr
)
2193 return (sys_errlist
[err
]);
2194 sprintf(er
, "Error %d", err
);
2200 * Get name of current directory into buffer 'buf' of length 'len' bytes.
2201 * Return OK for success, FAIL for failure.
2204 mch_dirname(buf
, len
)
2208 #if defined(USE_GETCWD)
2209 if (getcwd((char *)buf
, len
) == NULL
)
2211 STRCPY(buf
, strerror(errno
));
2216 return (getwd((char *)buf
) != NULL
? OK
: FAIL
);
2220 #if defined(OS2) || defined(PROTO)
2222 * Replace all slashes by backslashes.
2223 * When 'shellslash' set do it the other way around.
2239 * Get absolute file name into "buf[len]".
2241 * return FAIL for failure, OK for success
2244 mch_FullName(fname
, buf
, len
, force
)
2245 char_u
*fname
, *buf
;
2247 int force
; /* also expand when already absolute path */
2251 int only_drive
; /* file name is only a drive letter */
2255 static int dont_fchdir
= FALSE
; /* TRUE when fchdir() doesn't work */
2257 char_u olddir
[MAXPATHL
];
2262 fname
= vms_fixfilename(fname
);
2267 * This helps for when "/etc/hosts" is a symlink to "c:/something/hosts".
2269 cygwin_conv_to_posix_path(fname
, fname
);
2272 /* expand it if forced or not an absolute path */
2273 if (force
|| !mch_isFullName(fname
))
2276 * If the file name has a path, change to that directory for a moment,
2277 * and then do the getwd() (and get back to where we were).
2278 * This will get the correct path name with "../" things.
2282 if (((p
= vim_strrchr(fname
, '/')) != NULL
)
2283 || ((p
= vim_strrchr(fname
, '\\')) != NULL
)
2284 || (((p
= vim_strchr(fname
, ':')) != NULL
) && ++only_drive
))
2286 if ((p
= vim_strrchr(fname
, '/')) != NULL
)
2291 * Use fchdir() if possible, it's said to be faster and more
2292 * reliable. But on SunOS 4 it might not work. Check this by
2293 * doing a fchdir() right now.
2297 fd
= open(".", O_RDONLY
| O_EXTRA
, 0);
2298 if (fd
>= 0 && fchdir(fd
) < 0)
2302 dont_fchdir
= TRUE
; /* don't try again */
2307 /* Only change directory when we are sure we can return to where
2308 * we are now. After doing "su" chdir(".") might not work. */
2313 (mch_dirname(olddir
, MAXPATHL
) == FAIL
2314 || mch_chdir((char *)olddir
) != 0))
2316 p
= NULL
; /* can't get current dir: don't chdir */
2323 * compensate for case where ':' from "D:" was the only
2324 * path separator detected in the file name; the _next_
2325 * character has to be removed, and then restored later.
2330 /* The directory is copied into buf[], to be able to remove
2331 * the file name without changing it (could be a string in
2332 * read-only memory) */
2333 if (p
- fname
>= len
)
2337 vim_strncpy(buf
, fname
, p
- fname
);
2338 if (mch_chdir((char *)buf
))
2354 if (mch_dirname(buf
, len
) == FAIL
)
2369 l
= mch_chdir((char *)olddir
);
2371 EMSG(_(e_prev_dir
));
2380 if (l
> 0 && buf
[l
- 1] != '/' && *fname
!= NUL
2381 && STRCMP(fname
, ".") != 0)
2387 /* Catch file names which are too long. */
2388 if (retval
== FAIL
|| STRLEN(buf
) + STRLEN(fname
) >= len
)
2391 /* Do not append ".", "/dir/." is equal to "/dir". */
2392 if (STRCMP(fname
, ".") != 0)
2399 * Return TRUE if "fname" does not depend on the current directory.
2402 mch_isFullName(fname
)
2406 return _fnisabs(fname
);
2409 return ( fname
[0] == '/' || fname
[0] == '.' ||
2410 strchr((char *)fname
,':') || strchr((char *)fname
,'"') ||
2411 (strchr((char *)fname
,'[') && strchr((char *)fname
,']'))||
2412 (strchr((char *)fname
,'<') && strchr((char *)fname
,'>')) );
2414 return (*fname
== '/' || *fname
== '~');
2419 #if defined(USE_FNAME_CASE) || defined(PROTO)
2421 * Set the case of the file name, if it already exists. This will cause the
2422 * file name to remain exactly the same.
2423 * Only required for file systems where case is ingored and preserved.
2427 fname_case(name
, len
)
2429 int len
; /* buffer size, only used when name gets longer */
2432 char_u
*slash
, *tail
;
2436 if (lstat((char *)name
, &st
) >= 0)
2438 /* Open the directory where the file is located. */
2439 slash
= vim_strrchr(name
, '/');
2442 dirp
= opendir(".");
2448 dirp
= opendir((char *)name
);
2455 while ((dp
= readdir(dirp
)) != NULL
)
2457 /* Only accept names that differ in case and are the same byte
2458 * length. TODO: accept different length name. */
2459 if (STRICMP(tail
, dp
->d_name
) == 0
2460 && STRLEN(tail
) == STRLEN(dp
->d_name
))
2462 char_u newname
[MAXPATHL
+ 1];
2465 /* Verify the inode is equal. */
2466 vim_strncpy(newname
, name
, MAXPATHL
);
2467 vim_strncpy(newname
+ (tail
- name
), (char_u
*)dp
->d_name
,
2468 MAXPATHL
- (tail
- name
));
2469 if (lstat((char *)newname
, &st2
) >= 0
2470 && st
.st_ino
== st2
.st_ino
2471 && st
.st_dev
== st2
.st_dev
)
2473 STRCPY(tail
, dp
->d_name
);
2486 * Get file permissions for 'name'.
2487 * Returns -1 when it doesn't exist.
2495 /* Keep the #ifdef outside of stat(), it may be a macro. */
2497 if (stat((char *)vms_fixfilename(name
), &statb
))
2499 if (stat((char *)name
, &statb
))
2503 /* The top bit makes the value negative, which means the file doesn't
2504 * exist. Remove the bit, we don't use it. */
2505 return statb
.st_mode
& ~S_ADDACE
;
2507 return statb
.st_mode
;
2512 * set file permission for 'name' to 'perm'
2514 * return FAIL for failure, OK otherwise
2517 mch_setperm(name
, perm
)
2521 return (chmod((char *)
2523 vms_fixfilename(name
),
2527 (mode_t
)perm
) == 0 ? OK
: FAIL
);
2530 #if defined(HAVE_ACL) || defined(PROTO)
2531 # ifdef HAVE_SYS_ACL_H
2532 # include <sys/acl.h>
2534 # ifdef HAVE_SYS_ACCESS_H
2535 # include <sys/access.h>
2538 # ifdef HAVE_SOLARIS_ACL
2539 typedef struct vim_acl_solaris_T
{
2541 aclent_t
*acl_entry
;
2542 } vim_acl_solaris_T
;
2546 * Return a pointer to the ACL of file "fname" in allocated memory.
2547 * Return NULL if the ACL is not available for whatever reason.
2553 vim_acl_T ret
= NULL
;
2554 #ifdef HAVE_POSIX_ACL
2555 ret
= (vim_acl_T
)acl_get_file((char *)fname
, ACL_TYPE_ACCESS
);
2557 #ifdef HAVE_SOLARIS_ACL
2558 vim_acl_solaris_T
*aclent
;
2560 aclent
= malloc(sizeof(vim_acl_solaris_T
));
2561 if ((aclent
->acl_cnt
= acl((char *)fname
, GETACLCNT
, 0, NULL
)) < 0)
2566 aclent
->acl_entry
= malloc(aclent
->acl_cnt
* sizeof(aclent_t
));
2567 if (acl((char *)fname
, GETACL
, aclent
->acl_cnt
, aclent
->acl_entry
) < 0)
2569 free(aclent
->acl_entry
);
2573 ret
= (vim_acl_T
)aclent
;
2575 #if defined(HAVE_AIX_ACL)
2579 aclsize
= sizeof(struct acl
);
2580 aclent
= malloc(aclsize
);
2581 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2583 if (errno
== ENOSPC
)
2585 aclsize
= aclent
->acl_len
;
2586 aclent
= realloc(aclent
, aclsize
);
2587 if (statacl((char *)fname
, STX_NORMAL
, aclent
, aclsize
) < 0)
2599 ret
= (vim_acl_T
)aclent
;
2600 #endif /* HAVE_AIX_ACL */
2601 #endif /* HAVE_SOLARIS_ACL */
2602 #endif /* HAVE_POSIX_ACL */
2607 * Set the ACL of file "fname" to "acl" (unless it's NULL).
2610 mch_set_acl(fname
, aclent
)
2616 #ifdef HAVE_POSIX_ACL
2617 acl_set_file((char *)fname
, ACL_TYPE_ACCESS
, (acl_t
)aclent
);
2619 #ifdef HAVE_SOLARIS_ACL
2620 acl((char *)fname
, SETACL
, ((vim_acl_solaris_T
*)aclent
)->acl_cnt
,
2621 ((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2624 chacl((char *)fname
, aclent
, ((struct acl
*)aclent
)->acl_len
);
2625 #endif /* HAVE_AIX_ACL */
2626 #endif /* HAVE_SOLARIS_ACL */
2627 #endif /* HAVE_POSIX_ACL */
2631 mch_free_acl(aclent
)
2636 #ifdef HAVE_POSIX_ACL
2637 acl_free((acl_t
)aclent
);
2639 #ifdef HAVE_SOLARIS_ACL
2640 free(((vim_acl_solaris_T
*)aclent
)->acl_entry
);
2645 #endif /* HAVE_AIX_ACL */
2646 #endif /* HAVE_SOLARIS_ACL */
2647 #endif /* HAVE_POSIX_ACL */
2652 * Set hidden flag for "name".
2659 /* can't hide a file */
2663 * return TRUE if "name" is a directory
2664 * return FALSE if "name" is not a directory
2665 * return FALSE for error
2673 if (*name
== NUL
) /* Some stat()s don't flag "" as an error. */
2675 if (stat((char *)name
, &statb
))
2677 #ifdef _POSIX_SOURCE
2678 return (S_ISDIR(statb
.st_mode
) ? TRUE
: FALSE
);
2680 return ((statb
.st_mode
& S_IFMT
) == S_IFDIR
? TRUE
: FALSE
);
2684 static int executable_file
__ARGS((char_u
*name
));
2687 * Return 1 if "name" is an executable file, 0 if not or it doesn't exist.
2690 executable_file(name
)
2695 if (stat((char *)name
, &st
))
2697 return S_ISREG(st
.st_mode
) && mch_access((char *)name
, X_OK
) == 0;
2701 * Return 1 if "name" can be found in $PATH and executed, 0 if not.
2702 * Return -1 if unknown.
2712 /* If it's an absolute or relative path don't need to use $PATH. */
2713 if (mch_isFullName(name
) || (name
[0] == '.' && (name
[1] == '/'
2714 || (name
[1] == '.' && name
[2] == '/'))))
2715 return executable_file(name
);
2717 p
= (char_u
*)getenv("PATH");
2718 if (p
== NULL
|| *p
== NUL
)
2720 buf
= alloc((unsigned)(STRLEN(name
) + STRLEN(p
) + 2));
2725 * Walk through all entries in $PATH to check if "name" exists there and
2726 * is an executable file.
2730 e
= (char_u
*)strchr((char *)p
, ':');
2733 if (e
- p
<= 1) /* empty entry means current dir */
2737 vim_strncpy(buf
, p
, e
- p
);
2741 retval
= executable_file(buf
);
2755 * Check what "name" is:
2756 * NODE_NORMAL: file or directory (or doesn't exist)
2757 * NODE_WRITABLE: writable device, socket, fifo, etc.
2758 * NODE_OTHER: non-writable things
2766 if (stat((char *)name
, &st
))
2768 if (S_ISREG(st
.st_mode
) || S_ISDIR(st
.st_mode
))
2771 if (S_ISBLK(st
.st_mode
)) /* block device isn't writable */
2774 /* Everything else is writable? */
2775 return NODE_WRITABLE
;
2781 #ifdef HAVE_CHECK_STACK_GROWTH
2784 check_stack_growth((char *)&i
);
2786 # ifdef HAVE_STACK_LIMIT
2793 * Setup an alternative stack for signals. Helps to catch signals when
2794 * running out of stack space.
2795 * Use of sigaltstack() is preferred, it's more portable.
2796 * Ignore any errors.
2798 #if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2799 signal_stack
= malloc(SIGSTKSZ
);
2800 init_signal_stack();
2804 #if defined(EXITFREE) || defined(PROTO)
2808 # if defined(FEAT_CLIPBOARD) && defined(FEAT_X11)
2809 if (clip_star
.owned
)
2810 clip_lose_selection(&clip_star
);
2811 if (clip_plus
.owned
)
2812 clip_lose_selection(&clip_plus
);
2814 # if (defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) || defined(PROTO)
2815 if (xterm_Shell
!= (Widget
)0)
2816 XtDestroyWidget(xterm_Shell
);
2817 if (xterm_dpy
!= NULL
)
2818 XtCloseDisplay(xterm_dpy
);
2819 if (app_context
!= (XtAppContext
)NULL
)
2820 XtDestroyApplicationContext(app_context
);
2823 if (x11_display
!= NULL
&& x11_display
!= xterm_dpy
)
2824 XCloseDisplay(x11_display
);
2826 # if defined(HAVE_SIGALTSTACK) || defined(HAVE_SIGSTACK)
2827 vim_free(signal_stack
);
2828 signal_stack
= NULL
;
2837 static void exit_scroll
__ARGS((void));
2840 * Output a newline when exiting.
2841 * Make sure the newline goes to the same stream as the text.
2848 if (newline_on_exit
|| msg_didout
)
2850 if (msg_use_printf())
2862 restore_cterm_colors(); /* get original colors back */
2863 msg_clr_eos_force(); /* clear the rest of the display */
2864 windgoto((int)Rows
- 1, 0); /* may have moved the cursor */
2874 #if defined(FEAT_X11) && defined(FEAT_CLIPBOARD)
2875 x11_export_final_selection();
2882 settmode(TMODE_COOK
);
2884 mch_restore_title(3); /* restore xterm title and icon name */
2887 * When t_ti is not empty but it doesn't cause swapping terminal
2888 * pages, need to output a newline when msg_didout is set. But when
2889 * t_ti does swap pages it should not go to the shell page. Do this
2890 * before stoptermcap().
2892 if (swapping_screen() && !newline_on_exit
)
2895 /* Stop termcap: May need to check for T_CRV response, which
2896 * requires RAW mode. */
2900 * A newline is only required after a message in the alternate screen.
2901 * This is set to TRUE by wait_return().
2903 if (!swapping_screen() || newline_on_exit
)
2906 /* Cursor may have been switched off without calling starttermcap()
2907 * when doing "vim -u vimrc" and vimrc contains ":q". */
2912 ml_close_all(TRUE
); /* remove all memfiles */
2919 #ifdef MACOS_CONVERT
2924 /* A core dump won't be created if the signal handler
2925 * doesn't return, so we can't call exit() */
2926 if (deadly_signal
!= 0)
2930 #ifdef FEAT_NETBEANS_INTG
2932 netbeans_send_disconnect();
2945 if (deadly_signal
!= 0)
2947 signal(deadly_signal
, SIG_DFL
);
2948 kill(getpid(), deadly_signal
); /* Die using the signal we caught */
2958 static int first
= TRUE
;
2960 /* Why is NeXT excluded here (and not in os_unixx.h)? */
2961 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
2963 * for "new" tty systems
2965 # ifdef HAVE_TERMIOS_H
2966 static struct termios told
;
2967 struct termios tnew
;
2969 static struct termio told
;
2976 # if defined(HAVE_TERMIOS_H)
2977 tcgetattr(read_cmd_fd
, &told
);
2979 ioctl(read_cmd_fd
, TCGETA
, &told
);
2984 if (tmode
== TMODE_RAW
)
2987 * ~ICRNL enables typing ^V^M
2989 tnew
.c_iflag
&= ~ICRNL
;
2990 tnew
.c_lflag
&= ~(ICANON
| ECHO
| ISIG
| ECHOE
2991 # if defined(IEXTEN) && !defined(__MINT__)
2992 | IEXTEN
/* IEXTEN enables typing ^V on SOLARIS */
2993 /* but it breaks function keys on MINT */
2996 # ifdef ONLCR /* don't map NL -> CR NL, we do it ourselves */
2997 tnew
.c_oflag
&= ~ONLCR
;
2999 tnew
.c_cc
[VMIN
] = 1; /* return after 1 char */
3000 tnew
.c_cc
[VTIME
] = 0; /* don't wait */
3002 else if (tmode
== TMODE_SLEEP
)
3003 tnew
.c_lflag
&= ~(ECHO
);
3005 # if defined(HAVE_TERMIOS_H)
3009 /* A signal may cause tcsetattr() to fail (e.g., SIGCONT). Retry a
3011 while (tcsetattr(read_cmd_fd
, TCSANOW
, &tnew
) == -1
3012 && errno
== EINTR
&& n
> 0)
3016 ioctl(read_cmd_fd
, TCSETA
, &tnew
);
3022 * for "old" tty systems
3025 # define TIOCSETN TIOCSETP /* for hpux 9.0 */
3027 static struct sgttyb ttybold
;
3028 struct sgttyb ttybnew
;
3033 ioctl(read_cmd_fd
, TIOCGETP
, &ttybold
);
3037 if (tmode
== TMODE_RAW
)
3039 ttybnew
.sg_flags
&= ~(CRMOD
| ECHO
);
3040 ttybnew
.sg_flags
|= RAW
;
3042 else if (tmode
== TMODE_SLEEP
)
3043 ttybnew
.sg_flags
&= ~(ECHO
);
3044 ioctl(read_cmd_fd
, TIOCSETN
, &ttybnew
);
3050 * Try to get the code for "t_kb" from the stty setting
3052 * Even if termcap claims a backspace key, the user's setting *should*
3053 * prevail. stty knows more about reality than termcap does, and if
3054 * somebody's usual erase key is DEL (which, for most BSD users, it will
3055 * be), they're going to get really annoyed if their erase key starts
3056 * doing forward deletes for no reason. (Eric Fischer)
3064 /* Why is NeXT excluded here (and not in os_unixx.h)? */
3065 #if defined(ECHOE) && defined(ICANON) && (defined(HAVE_TERMIO_H) || defined(HAVE_TERMIOS_H)) && !defined(__NeXT__)
3066 /* for "new" tty systems */
3067 # ifdef HAVE_TERMIOS_H
3068 struct termios keys
;
3073 # if defined(HAVE_TERMIOS_H)
3074 if (tcgetattr(read_cmd_fd
, &keys
) != -1)
3076 if (ioctl(read_cmd_fd
, TCGETA
, &keys
) != -1)
3079 buf
[0] = keys
.c_cc
[VERASE
];
3080 intr_char
= keys
.c_cc
[VINTR
];
3082 /* for "old" tty systems */
3085 if (ioctl(read_cmd_fd
, TIOCGETP
, &keys
) != -1)
3087 buf
[0] = keys
.sg_erase
;
3088 intr_char
= keys
.sg_kill
;
3091 add_termcode((char_u
*)"kb", buf
, FALSE
);
3094 * If <BS> and <DEL> are now the same, redefine <DEL>.
3096 p
= find_termcode((char_u
*)"kD");
3097 if (p
!= NULL
&& p
[0] == buf
[0] && p
[1] == buf
[1])
3101 } /* to keep cindent happy */
3107 #if defined(FEAT_MOUSE_TTY) || defined(PROTO)
3109 * Set mouse clicks on or off.
3115 static int ison
= FALSE
;
3116 int xterm_mouse_vers
;
3118 if (on
== ison
) /* return quickly if nothing to do */
3121 xterm_mouse_vers
= use_xterm_mouse();
3122 if (xterm_mouse_vers
> 0)
3124 if (on
) /* enable mouse events, use mouse tracking if available */
3125 out_str_nf((char_u
*)
3126 (xterm_mouse_vers
> 1
3127 ? IF_EB("\033[?1002h", ESC_STR
"[?1002h")
3128 : IF_EB("\033[?1000h", ESC_STR
"[?1000h")));
3129 else /* disable mouse events, could probably always send the same */
3130 out_str_nf((char_u
*)
3131 (xterm_mouse_vers
> 1
3132 ? IF_EB("\033[?1002l", ESC_STR
"[?1002l")
3133 : IF_EB("\033[?1000l", ESC_STR
"[?1000l")));
3137 # ifdef FEAT_MOUSE_DEC
3138 else if (ttym_flags
== TTYM_DEC
)
3140 if (on
) /* enable mouse events */
3141 out_str_nf((char_u
*)"\033[1;2'z\033[1;3'{");
3142 else /* disable mouse events */
3143 out_str_nf((char_u
*)"\033['z");
3148 # ifdef FEAT_MOUSE_GPM
3164 # ifdef FEAT_MOUSE_JSB
3169 /* D - Enable Mouse up/down messages
3170 * L - Enable Left Button Reporting
3171 * M - Enable Middle Button Reporting
3172 * R - Enable Right Button Reporting
3173 * K - Enable SHIFT and CTRL key Reporting
3174 * + - Enable Advanced messaging of mouse moves and up/down messages
3176 * # - Numeric value of mouse pointer required
3177 * 0 = Multiview 2000 cursor, used as standard
3179 * 2 = Windows I Beam
3180 * 3 = Windows Hour Glass
3181 * 4 = Windows Cross Hair
3182 * 5 = Windows UP Arrow
3184 #ifdef JSBTERM_MOUSE_NONADVANCED /* Disables full feedback of pointer movements */
3185 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK1Q\033\\",
3186 ESC_STR
"[0~ZwLMRK1Q" ESC_STR
"\\"));
3188 out_str_nf((char_u
*)IF_EB("\033[0~ZwLMRK+1Q\033\\",
3189 ESC_STR
"[0~ZwLMRK+1Q" ESC_STR
"\\"));
3195 out_str_nf((char_u
*)IF_EB("\033[0~ZwQ\033\\",
3196 ESC_STR
"[0~ZwQ" ESC_STR
"\\"));
3201 # ifdef FEAT_MOUSE_PTERM
3204 /* 1 = button press, 6 = release, 7 = drag, 1h...9l = right button */
3206 out_str_nf("\033[>1h\033[>6h\033[>7h\033[>1h\033[>9l");
3208 out_str_nf("\033[>1l\033[>6l\033[>7l\033[>1l\033[>9h");
3215 * Set the mouse termcode, depending on the 'term' and 'ttymouse' options.
3218 check_mouse_termcode()
3220 # ifdef FEAT_MOUSE_XTERM
3221 if (use_xterm_mouse()
3227 set_mouse_termcode(KS_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3228 ? IF_EB("\233M", CSI_STR
"M")
3229 : IF_EB("\033[M", ESC_STR
"[M")));
3230 if (*p_mouse
!= NUL
)
3232 /* force mouse off and maybe on to send possibly new mouse
3233 * activation sequence to the xterm, with(out) drag tracing. */
3234 mch_setmouse(FALSE
);
3239 del_mouse_termcode(KS_MOUSE
);
3242 # ifdef FEAT_MOUSE_GPM
3243 if (!use_xterm_mouse()
3248 set_mouse_termcode(KS_MOUSE
, (char_u
*)IF_EB("\033MG", ESC_STR
"MG"));
3251 # ifdef FEAT_MOUSE_JSB
3252 /* conflicts with xterm mouse: "\033[" and "\033[M" ??? */
3253 if (!use_xterm_mouse()
3258 set_mouse_termcode(KS_JSBTERM_MOUSE
,
3259 (char_u
*)IF_EB("\033[0~zw", ESC_STR
"[0~zw"));
3261 del_mouse_termcode(KS_JSBTERM_MOUSE
);
3264 # ifdef FEAT_MOUSE_NET
3265 /* There is no conflict, but one may type "ESC }" from Insert mode. Don't
3266 * define it in the GUI or when using an xterm. */
3267 if (!use_xterm_mouse()
3272 set_mouse_termcode(KS_NETTERM_MOUSE
,
3273 (char_u
*)IF_EB("\033}", ESC_STR
"}"));
3275 del_mouse_termcode(KS_NETTERM_MOUSE
);
3278 # ifdef FEAT_MOUSE_DEC
3279 /* conflicts with xterm mouse: "\033[" and "\033[M" */
3280 if (!use_xterm_mouse()
3285 set_mouse_termcode(KS_DEC_MOUSE
, (char_u
*)(term_is_8bit(T_NAME
)
3286 ? IF_EB("\233", CSI_STR
) : IF_EB("\033[", ESC_STR
"[")));
3288 del_mouse_termcode(KS_DEC_MOUSE
);
3290 # ifdef FEAT_MOUSE_PTERM
3291 /* same as the dec mouse */
3292 if (!use_xterm_mouse()
3297 set_mouse_termcode(KS_PTERM_MOUSE
,
3298 (char_u
*) IF_EB("\033[", ESC_STR
"["));
3300 del_mouse_termcode(KS_PTERM_MOUSE
);
3306 * set screen mode, always fails.
3313 EMSG(_(e_screenmode
));
3320 * Try to get the current window size:
3321 * 1. with an ioctl(), most accurate method
3322 * 2. from the environment variables LINES and COLUMNS
3323 * 3. from the termcap
3324 * 4. keep using the old values
3325 * Return OK when size could be determined, FAIL otherwise.
3335 * For OS/2 use _scrsize().
3348 * 1. try using an ioctl. It is the most accurate method.
3350 * Try using TIOCGWINSZ first, some systems that have it also define
3351 * TIOCGSIZE but don't have a struct ttysize.
3358 /* When stdout is not a tty, use stdin for the ioctl(). */
3359 if (!isatty(fd
) && isatty(read_cmd_fd
))
3361 if (ioctl(fd
, TIOCGWINSZ
, &ws
) == 0)
3363 columns
= ws
.ws_col
;
3367 # else /* TIOCGWINSZ */
3373 /* When stdout is not a tty, use stdin for the ioctl(). */
3374 if (!isatty(fd
) && isatty(read_cmd_fd
))
3376 if (ioctl(fd
, TIOCGSIZE
, &ts
) == 0)
3378 columns
= ts
.ts_cols
;
3382 # endif /* TIOCGSIZE */
3383 # endif /* TIOCGWINSZ */
3386 * 2. get size from environment
3387 * When being POSIX compliant ('|' flag in 'cpoptions') this overrules
3388 * the ioctl() values!
3390 if (columns
== 0 || rows
== 0 || vim_strchr(p_cpo
, CPO_TSIZE
) != NULL
)
3392 if ((p
= (char_u
*)getenv("LINES")))
3393 rows
= atoi((char *)p
);
3394 if ((p
= (char_u
*)getenv("COLUMNS")))
3395 columns
= atoi((char *)p
);
3400 * 3. try reading "co" and "li" entries from termcap
3402 if (columns
== 0 || rows
== 0)
3403 getlinecol(&columns
, &rows
);
3407 * 4. If everything fails, use the old values
3409 if (columns
<= 0 || rows
<= 0)
3418 * Try to set the window size to Rows and Columns.
3426 * NOTE: if you get an error here that term_set_winsize() is
3427 * undefined, check the output of configure. It could probably not
3428 * find a ncurses, termcap or termlib library.
3430 term_set_winsize((int)Rows
, (int)Columns
);
3432 screen_start(); /* don't know where cursor is now */
3439 * Rows and/or Columns has changed.
3444 /* Nothing to do. */
3448 static void append_ga_line
__ARGS((garray_T
*gap
));
3451 * Append the text in "gap" below the cursor line and clear "gap".
3457 /* Remove trailing CR. */
3460 && ((char_u
*)gap
->ga_data
)[gap
->ga_len
- 1] == CAR
)
3462 ga_append(gap
, NUL
);
3463 ml_append(curwin
->w_cursor
.lnum
++, gap
->ga_data
, 0, FALSE
);
3469 mch_call_shell(cmd
, options
)
3471 int options
; /* SHELL_*, see vim.h */
3477 int tmode
= cur_tmode
;
3478 #ifdef USE_SYSTEM /* use system() to start the shell: simple but slow */
3481 char_u
*newcmd
; /* only needed for unix */
3484 * Set the preferred shell in the EMXSHELL environment variable (but
3485 * only if it is different from what is already in the environment).
3486 * Emx then takes care of whether to use "/c" or "-c" in an
3487 * intelligent way. Simply pass the whole thing to emx's system() call.
3488 * Emx also starts an interactive shell if system() is passed an empty
3493 if (((old
= (char_u
*)getenv("EMXSHELL")) == NULL
) || STRCMP(old
, p_sh
))
3495 /* should check HAVE_SETENV, but I know we don't have it. */
3496 p
= alloc(10 + strlen(p_sh
));
3499 sprintf((char *)p
, "EMXSHELL=%s", p_sh
);
3500 putenv((char *)p
); /* don't free the pointer! */
3507 if (options
& SHELL_COOKED
)
3508 settmode(TMODE_COOK
); /* set to normal mode */
3512 x
= system(""); /* this starts an interactive shell in emx */
3514 x
= system((char *)cmd
);
3515 /* system() returns -1 when error occurs in starting shell */
3516 if (x
== -1 && !emsg_silent
)
3518 MSG_PUTS(_("\nCannot execute shell "));
3522 # else /* not __EMX__ */
3524 x
= system((char *)p_sh
);
3528 if (ofn
= strchr((char *)cmd
, '>'))
3530 if (ifn
= strchr((char *)cmd
, '<'))
3535 p
= strchr(ifn
,' '); /* chop off any trailing spaces */
3540 x
= vms_sys((char *)cmd
, ofn
, ifn
);
3542 x
= system((char *)cmd
);
3544 newcmd
= lalloc(STRLEN(p_sh
)
3545 + (extra_shell_arg
== NULL
? 0 : STRLEN(extra_shell_arg
))
3546 + STRLEN(p_shcf
) + STRLEN(cmd
) + 4, TRUE
);
3551 sprintf((char *)newcmd
, "%s %s %s %s", p_sh
,
3552 extra_shell_arg
== NULL
? "" : (char *)extra_shell_arg
,
3555 x
= system((char *)newcmd
);
3561 x
= vms_sys_status(x
);
3566 MSG_PUTS(_("\nCannot execute shell sh\n"));
3567 # endif /* __EMX__ */
3568 else if (x
&& !(options
& SHELL_SILENT
))
3570 MSG_PUTS(_("\nshell returned "));
3571 msg_outnum((long)x
);
3575 if (tmode
== TMODE_RAW
)
3576 settmode(TMODE_RAW
); /* set to raw mode */
3582 #else /* USE_SYSTEM */ /* don't use system(), use fork()/exec() */
3584 # define EXEC_FAILED 122 /* Exit code when shell didn't execute. Don't use
3585 127, some shells use that already */
3587 char_u
*newcmd
= NULL
;
3591 # ifdef HAVE_UNION_WAIT
3602 int pty_master_fd
= -1; /* for pty's */
3604 int pty_slave_fd
= -1;
3607 int fd_toshell
[2]; /* for pipes */
3608 int fd_fromshell
[2];
3609 int pipe_error
= FALSE
;
3613 static char envbuf_Rows
[20];
3614 static char envbuf_Columns
[20];
3616 int did_settmode
= FALSE
; /* settmode(TMODE_RAW) called */
3619 if (options
& SHELL_COOKED
)
3620 settmode(TMODE_COOK
); /* set to normal mode */
3622 newcmd
= vim_strsave(p_sh
);
3623 if (newcmd
== NULL
) /* out of memory */
3627 * Do this loop twice:
3628 * 1: find number of arguments
3629 * 2: separate them and build argv[]
3631 for (i
= 0; i
< 2; ++i
)
3639 argv
[argc
] = (char *)p
;
3641 while (*p
&& (inquote
|| (*p
!= ' ' && *p
!= TAB
)))
3655 argv
= (char **)alloc((unsigned)((argc
+ 4) * sizeof(char *)));
3656 if (argv
== NULL
) /* out of memory */
3662 if (extra_shell_arg
!= NULL
)
3663 argv
[argc
++] = (char *)extra_shell_arg
;
3664 argv
[argc
++] = (char *)p_shcf
;
3665 argv
[argc
++] = (char *)cmd
;
3670 * For the GUI, when writing the output into the buffer and when reading
3671 * input from the buffer: Try using a pseudo-tty to get the stdin/stdout
3672 * of the executed command into the Vim window. Or use a pipe.
3674 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3676 || (gui
.in_use
&& show_shell_mess
)
3682 * Try to open a master pty.
3683 * If this works, open the slave pty.
3684 * If the slave can't be opened, close the master pty.
3686 if (p_guipty
&& !(options
& (SHELL_READ
|SHELL_WRITE
)))
3688 pty_master_fd
= OpenPTY(&tty_name
); /* open pty */
3689 if (pty_master_fd
>= 0 && ((pty_slave_fd
=
3690 open(tty_name
, O_RDWR
| O_EXTRA
, 0)) < 0))
3692 close(pty_master_fd
);
3697 * If not opening a pty or it didn't work, try using pipes.
3699 if (pty_master_fd
< 0)
3702 pipe_error
= (pipe(fd_toshell
) < 0);
3703 if (!pipe_error
) /* pipe create OK */
3705 pipe_error
= (pipe(fd_fromshell
) < 0);
3706 if (pipe_error
) /* pipe create failed */
3708 close(fd_toshell
[0]);
3709 close(fd_toshell
[1]);
3714 MSG_PUTS(_("\nCannot create pipes\n"));
3720 if (!pipe_error
) /* pty or pipe opened or not used */
3723 beos_cleanup_read_thread();
3726 if ((pid
= fork()) == -1) /* maybe we should use vfork() */
3728 MSG_PUTS(_("\nCannot fork\n"));
3729 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3731 || (gui
.in_use
&& show_shell_mess
)
3736 if (pty_master_fd
>= 0) /* close the pseudo tty */
3738 close(pty_master_fd
);
3739 close(pty_slave_fd
);
3741 else /* close the pipes */
3744 close(fd_toshell
[0]);
3745 close(fd_toshell
[1]);
3746 close(fd_fromshell
[0]);
3747 close(fd_fromshell
[1]);
3751 else if (pid
== 0) /* child */
3753 reset_signals(); /* handle signals normally */
3755 if (!show_shell_mess
|| (options
& SHELL_EXPAND
))
3760 * Don't want to show any message from the shell. Can't just
3761 * close stdout and stderr though, because some systems will
3762 * break if you try to write to them after that, so we must
3763 * use dup() to replace them with something else -- webb
3764 * Connect stdin to /dev/null too, so ":n `cat`" doesn't hang,
3765 * waiting for input.
3767 fd
= open("/dev/null", O_RDWR
| O_EXTRA
, 0);
3773 * If any of these open()'s and dup()'s fail, we just continue
3774 * anyway. It's not fatal, and on most systems it will make
3775 * no difference at all. On a few it will cause the execvp()
3776 * to exit with a non-zero status even when the completion
3777 * could be done, which is nothing too serious. If the open()
3778 * or dup() failed we'd just do the same thing ourselves
3783 dup(fd
); /* To replace stdin (file descriptor 0) */
3784 dup(fd
); /* To replace stdout (file descriptor 1) */
3785 dup(fd
); /* To replace stderr (file descriptor 2) */
3787 /* Don't need this now that we've duplicated it */
3791 else if ((options
& (SHELL_READ
|SHELL_WRITE
))
3799 /* Create our own process group, so that the child and all its
3800 * children can be kill()ed. Don't do this when using pipes,
3801 * because stdin is not a tty, we would loose /dev/tty. */
3806 if (pty_slave_fd
>= 0)
3808 /* push stream discipline modules */
3809 if (options
& SHELL_COOKED
)
3810 SetupSlavePTY(pty_slave_fd
);
3812 /* Try to become controlling tty (probably doesn't work,
3813 * unless run by root) */
3814 ioctl(pty_slave_fd
, TIOCSCTTY
, (char *)NULL
);
3818 /* Simulate to have a dumb terminal (for now) */
3820 setenv("TERM", "dumb", 1);
3821 sprintf((char *)envbuf
, "%ld", Rows
);
3822 setenv("ROWS", (char *)envbuf
, 1);
3823 sprintf((char *)envbuf
, "%ld", Rows
);
3824 setenv("LINES", (char *)envbuf
, 1);
3825 sprintf((char *)envbuf
, "%ld", Columns
);
3826 setenv("COLUMNS", (char *)envbuf
, 1);
3829 * Putenv does not copy the string, it has to remain valid.
3830 * Use a static array to avoid loosing allocated memory.
3832 putenv("TERM=dumb");
3833 sprintf(envbuf_Rows
, "ROWS=%ld", Rows
);
3834 putenv(envbuf_Rows
);
3835 sprintf(envbuf_Rows
, "LINES=%ld", Rows
);
3836 putenv(envbuf_Rows
);
3837 sprintf(envbuf_Columns
, "COLUMNS=%ld", Columns
);
3838 putenv(envbuf_Columns
);
3842 * stderr is only redirected when using the GUI, so that a
3843 * program like gpg can still access the terminal to get a
3844 * passphrase using stderr.
3847 if (pty_master_fd
>= 0)
3849 close(pty_master_fd
); /* close master side of pty */
3851 /* set up stdin/stdout/stderr for the child */
3862 close(pty_slave_fd
); /* has been dupped, close it now */
3867 /* set up stdin for the child */
3868 close(fd_toshell
[1]);
3871 close(fd_toshell
[0]);
3873 /* set up stdout for the child */
3874 close(fd_fromshell
[0]);
3876 dup(fd_fromshell
[1]);
3877 close(fd_fromshell
[1]);
3882 /* set up stderr for the child */
3891 * There is no type cast for the argv, because the type may be
3892 * different on different machines. This may cause a warning
3893 * message with strict compilers, don't worry about it.
3894 * Call _exit() instead of exit() to avoid closing the connection
3895 * to the X server (esp. with GTK, which uses atexit()).
3897 execvp(argv
[0], argv
);
3898 _exit(EXEC_FAILED
); /* exec failed, return failure code */
3903 * While child is running, ignore terminating signals.
3904 * Do catch CTRL-C, so that "got_int" is set.
3906 catch_signals(SIG_IGN
, SIG_ERR
);
3910 * For the GUI we redirect stdin, stdout and stderr to our window.
3911 * This is also used to pipe stdin/stdout to/from the external
3914 if ((options
& (SHELL_READ
|SHELL_WRITE
))
3916 || (gui
.in_use
&& show_shell_mess
)
3920 # define BUFLEN 100 /* length for buffer, pseudo tty limit is 128 */
3921 char_u buffer
[BUFLEN
+ 1];
3923 int buffer_off
= 0; /* valid bytes in buffer[] */
3925 char_u ta_buf
[BUFLEN
+ 1]; /* TypeAHead */
3926 int ta_len
= 0; /* valid bytes in ta_buf[] */
3937 if (pty_master_fd
>= 0)
3939 close(pty_slave_fd
); /* close slave side of pty */
3940 fromshell_fd
= pty_master_fd
;
3941 toshell_fd
= dup(pty_master_fd
);
3946 close(fd_toshell
[0]);
3947 close(fd_fromshell
[1]);
3948 toshell_fd
= fd_toshell
[1];
3949 fromshell_fd
= fd_fromshell
[0];
3953 * Write to the child if there are typed characters.
3954 * Read from the child if there are characters available.
3955 * Repeat the reading a few times if more characters are
3956 * available. Need to check for typed keys now and then, but
3957 * not too often (delays when no chars are available).
3958 * This loop is quit if no characters can be read from the pty
3959 * (WaitForChar detected special condition), or there are no
3960 * characters available and the child has exited.
3961 * Only check if the child has exited when there is no more
3962 * output. The child may exit before all the output has
3965 * Currently this busy loops!
3966 * This can probably dead-lock when the write blocks!
3968 p_more_save
= p_more
;
3971 State
= EXTERNCMD
; /* don't redraw at window resize */
3973 if ((options
& SHELL_WRITE
) && toshell_fd
>= 0)
3975 /* Fork a process that will write the lines to the
3976 * external program. */
3977 if ((wpid
= fork()) == -1)
3979 MSG_PUTS(_("\nCannot fork\n"));
3983 linenr_T lnum
= curbuf
->b_op_start
.lnum
;
3985 char_u
*lp
= ml_get(lnum
);
3990 close(fromshell_fd
);
3993 l
= STRLEN(lp
+ written
);
3996 else if (lp
[written
] == NL
)
3997 /* NL -> NUL translation */
3998 len
= write(toshell_fd
, "", (size_t)1);
4001 s
= vim_strchr(lp
+ written
, NL
);
4002 len
= write(toshell_fd
, (char *)lp
+ written
,
4003 s
== NULL
? l
: s
- (lp
+ written
));
4007 /* Finished a line, add a NL, unless this line
4008 * should not have one. */
4009 if (lnum
!= curbuf
->b_op_end
.lnum
4011 || (lnum
!= write_no_eol_lnum
4013 curbuf
->b_ml
.ml_line_count
4014 || curbuf
->b_p_eol
)))
4015 write(toshell_fd
, "\n", (size_t)1);
4017 if (lnum
> curbuf
->b_op_end
.lnum
)
4019 /* finished all the lines, close pipe */
4039 if (options
& SHELL_READ
)
4040 ga_init2(&ga
, 1, BUFLEN
);
4047 * Check if keys have been typed, write them to the child
4049 * Don't do this if we are expanding wild cards (would eat
4051 * Don't do this when filtering and terminal is in cooked
4052 * mode, the shell command will handle the I/O. Avoids
4053 * that a typed password is echoed for ssh or gpg command.
4054 * Don't get characters when the child has already
4055 * finished (wait_pid == 0).
4056 * Don't get extra characters when we already have one.
4057 * Don't read characters unless we didn't get output for a
4058 * while, avoids that ":r !ls" eats typeahead.
4061 if (!(options
& SHELL_EXPAND
)
4063 (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
))
4064 != (SHELL_READ
|SHELL_WRITE
|SHELL_COOKED
)
4072 && (len
= ui_inchar(ta_buf
,
4073 BUFLEN
, 10L, 0)) > 0)))
4077 * Check for CTRL-C: send interrupt signal to child.
4078 * Check for CTRL-D: EOF, close pipe to child.
4080 if (len
== 1 && (pty_master_fd
< 0 || cmd
!= NULL
))
4084 * Send SIGINT to the child's group or all
4085 * processes in our group.
4087 if (ta_buf
[ta_len
] == Ctrl_C
4088 || ta_buf
[ta_len
] == intr_char
)
4099 if (pty_master_fd
< 0 && toshell_fd
>= 0
4100 && ta_buf
[ta_len
] == Ctrl_D
)
4107 /* replace K_BS by <BS> and K_DEL by <DEL> */
4108 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4110 if (ta_buf
[i
] == CSI
&& len
- i
> 2)
4112 c
= TERMCAP2KEY(ta_buf
[i
+ 1], ta_buf
[i
+ 2]);
4113 if (c
== K_DEL
|| c
== K_KDEL
|| c
== K_BS
)
4115 mch_memmove(ta_buf
+ i
+ 1, ta_buf
+ i
+ 3,
4116 (size_t)(len
- i
- 2));
4117 if (c
== K_DEL
|| c
== K_KDEL
)
4124 else if (ta_buf
[i
] == '\r')
4128 i
+= (*mb_ptr2len
)(ta_buf
+ i
) - 1;
4133 * For pipes: echo the typed characters.
4134 * For a pty this does not seem to work.
4136 if (pty_master_fd
< 0)
4138 for (i
= ta_len
; i
< ta_len
+ len
; ++i
)
4140 if (ta_buf
[i
] == '\n' || ta_buf
[i
] == '\b')
4141 msg_putchar(ta_buf
[i
]);
4145 int l
= (*mb_ptr2len
)(ta_buf
+ i
);
4147 msg_outtrans_len(ta_buf
+ i
, l
);
4152 msg_outtrans_len(ta_buf
+ i
, 1);
4154 windgoto(msg_row
, msg_col
);
4161 * Write the characters to the child, unless EOF has
4162 * been typed for pipes. Write one character at a
4163 * time, to avoid loosing too much typeahead.
4164 * When writing buffer lines, drop the typed
4165 * characters (only check for CTRL-C).
4167 if (options
& SHELL_WRITE
)
4169 else if (toshell_fd
>= 0)
4171 len
= write(toshell_fd
, (char *)ta_buf
, (size_t)1);
4175 mch_memmove(ta_buf
, ta_buf
+ len
, ta_len
);
4183 /* CTRL-C sends a signal to the child, we ignore it
4196 * Check if the child has any characters to be printed.
4197 * Read them and write them to our window. Repeat this as
4198 * long as there is something to do, avoid the 10ms wait
4199 * for mch_inchar(), or sending typeahead characters to
4200 * the external process.
4201 * TODO: This should handle escape sequences, compatible
4202 * to some terminal (vt52?).
4205 while (RealWaitForChar(fromshell_fd
, 10L, NULL
))
4207 len
= read(fromshell_fd
, (char *)buffer
4209 + buffer_off
, (size_t)(BUFLEN
- buffer_off
)
4214 if (len
<= 0) /* end of file or error */
4218 if (options
& SHELL_READ
)
4220 /* Do NUL -> NL translation, append NL separated
4221 * lines to the current buffer. */
4222 for (i
= 0; i
< len
; ++i
)
4224 if (buffer
[i
] == NL
)
4225 append_ga_line(&ga
);
4226 else if (buffer
[i
] == NUL
)
4229 ga_append(&ga
, buffer
[i
]);
4240 /* Check if the last character in buffer[] is
4241 * incomplete, keep these bytes for the next
4243 for (p
= buffer
; p
< buffer
+ len
; p
+= l
)
4247 l
= 1; /* NUL byte? */
4248 else if (MB_BYTE2LEN(*p
) != l
)
4251 if (p
== buffer
) /* no complete character */
4253 /* avoid getting stuck at an illegal byte */
4265 if (p
< buffer
+ len
)
4268 buffer_off
= (buffer
+ len
) - p
;
4269 mch_memmove(buffer
, p
, buffer_off
);
4274 # endif /* FEAT_MBYTE */
4281 windgoto(msg_row
, msg_col
);
4288 /* If we already detected the child has finished break the
4290 if (wait_pid
== pid
)
4294 * Check if the child still exists, before checking for
4295 * typed characters (otherwise we would loose typeahead).
4298 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*) 0);
4300 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4302 if ((wait_pid
== (pid_t
)-1 && errno
== ECHILD
)
4303 || (wait_pid
== pid
&& WIFEXITED(status
)))
4305 /* Don't break the loop yet, try reading more
4306 * characters from "fromshell_fd" first. When using
4307 * pipes there might still be something to read and
4308 * then we'll break the loop at the "break" above. */
4315 p_more
= p_more_save
;
4316 if (options
& SHELL_READ
)
4320 append_ga_line(&ga
);
4321 /* remember that the NL was missing */
4322 write_no_eol_lnum
= curwin
->w_cursor
.lnum
;
4325 write_no_eol_lnum
= 0;
4330 * Give all typeahead that wasn't used back to ui_inchar().
4333 ui_inchar_undo(ta_buf
, ta_len
);
4335 if (toshell_fd
>= 0)
4337 close(fromshell_fd
);
4341 * Wait until our child has exited.
4342 * Ignore wait() returning pids of other children and returning
4343 * because of some signal like SIGWINCH.
4344 * Don't wait if wait_pid was already set above, indicating the
4345 * child already exited.
4347 while (wait_pid
!= pid
)
4349 # ifdef _THREAD_SAFE
4350 /* Ugly hack: when compiled with Python threads are probably
4351 * used, in which case wait() sometimes hangs for no obvious
4352 * reason. Use waitpid() instead and loop (like the GUI). */
4354 wait_pid
= wait4(pid
, &status
, WNOHANG
, (struct rusage
*)0);
4356 wait_pid
= waitpid(pid
, &status
, WNOHANG
);
4360 /* Wait for 1/100 sec before trying again. */
4361 mch_delay(10L, TRUE
);
4365 wait_pid
= wait(&status
);
4375 /* Make sure the child that writes to the external program is
4378 kill(wpid
, SIGKILL
);
4381 * Set to raw mode right now, otherwise a CTRL-C after
4382 * catch_signals() will kill Vim.
4384 if (tmode
== TMODE_RAW
)
4385 settmode(TMODE_RAW
);
4386 did_settmode
= TRUE
;
4389 if (WIFEXITED(status
))
4391 /* LINTED avoid "bitwise operation on signed value" */
4392 retval
= WEXITSTATUS(status
);
4393 if (retval
&& !emsg_silent
)
4395 if (retval
== EXEC_FAILED
)
4397 MSG_PUTS(_("\nCannot execute shell "));
4401 else if (!(options
& SHELL_SILENT
))
4403 MSG_PUTS(_("\nshell returned "));
4404 msg_outnum((long)retval
);
4410 MSG_PUTS(_("\nCommand terminated\n"));
4417 if (tmode
== TMODE_RAW
)
4418 settmode(TMODE_RAW
); /* set to raw mode */
4426 #endif /* USE_SYSTEM */
4430 * Check for CTRL-C typed by reading all available characters.
4431 * In cooked mode we should get SIGINT, no need to check.
4436 if (curr_tmode
== TMODE_RAW
&& RealWaitForChar(read_cmd_fd
, 0L, NULL
))
4437 fill_input_buf(FALSE
);
4441 * Wait "msec" msec until a character is available from the keyboard or from
4442 * inbuf[]. msec == -1 will block forever.
4443 * When a GUI is being used, this will never get called -- webb
4449 #ifdef FEAT_MOUSE_GPM
4450 int gpm_process_wanted
;
4452 #ifdef FEAT_XCLIPBOARD
4457 if (input_available()) /* something in inbuf[] */
4460 #if defined(FEAT_MOUSE_DEC)
4461 /* May need to query the mouse position. */
4464 WantQueryMouse
= FALSE
;
4465 mch_write((char_u
*)IF_EB("\033[1'|", ESC_STR
"[1'|"), 5);
4470 * For FEAT_MOUSE_GPM and FEAT_XCLIPBOARD we loop here to process mouse
4471 * events. This is a bit complicated, because they might both be defined.
4473 #if defined(FEAT_MOUSE_GPM) || defined(FEAT_XCLIPBOARD)
4474 # ifdef FEAT_XCLIPBOARD
4476 if (do_xterm_trace())
4481 # ifdef FEAT_XCLIPBOARD
4484 msec
= XT_TRACE_DELAY
;
4485 if (rest
>= 0 && rest
< XT_TRACE_DELAY
)
4491 # ifdef FEAT_MOUSE_GPM
4492 gpm_process_wanted
= 0;
4493 avail
= RealWaitForChar(read_cmd_fd
, msec
, &gpm_process_wanted
);
4495 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4499 if (input_available())
4501 # ifdef FEAT_XCLIPBOARD
4502 if (rest
== 0 || !do_xterm_trace())
4508 # ifdef FEAT_MOUSE_GPM
4509 || (gpm_process_wanted
&& mch_gpm_process() == 0)
4511 # ifdef FEAT_XCLIPBOARD
4512 || (!avail
&& rest
!= 0)
4517 avail
= RealWaitForChar(read_cmd_fd
, msec
, NULL
);
4523 * Wait "msec" msec until a character is available from file descriptor "fd".
4524 * Time == -1 will block forever.
4525 * When a GUI is being used, this will not be used for input -- webb
4526 * Returns also, when a request from Sniff is waiting -- toni.
4527 * Or when a Linux GPM mouse event is waiting.
4530 #if defined(__BEOS__)
4535 RealWaitForChar(fd
, msec
, check_for_gpm
)
4541 #if defined(FEAT_XCLIPBOARD) || defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4542 static int busy
= FALSE
;
4544 /* May retry getting characters after an event was handled. */
4547 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
4548 /* Remember at what time we started, so that we know how much longer we
4549 * should wait after being interrupted. */
4550 # define USE_START_TV
4551 struct timeval start_tv
;
4554 # ifdef FEAT_XCLIPBOARD
4555 xterm_Shell
!= (Widget
)0
4556 # if defined(USE_XSMP) || defined(FEAT_MZSCHEME)
4562 # ifdef FEAT_MZSCHEME
4566 # ifdef FEAT_MZSCHEME
4567 (mzthreads_allowed() && p_mzq
> 0)
4570 gettimeofday(&start_tv
, NULL
);
4573 /* Handle being called recursively. This may happen for the session
4574 * manager stuff, it may save the file, which does a breakcheck. */
4584 int finished
= TRUE
; /* default is to 'loop' just once */
4585 # ifdef FEAT_MZSCHEME
4586 int mzquantum_used
= FALSE
;
4590 struct pollfd fds
[5];
4592 # ifdef FEAT_XCLIPBOARD
4595 # ifdef FEAT_MOUSE_GPM
4601 int towait
= (int)msec
;
4603 # ifdef FEAT_MZSCHEME
4604 mzvim_check_threads();
4605 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4607 towait
= (int)p_mzq
; /* don't wait longer than 'mzquantum' */
4608 mzquantum_used
= TRUE
;
4612 fds
[0].events
= POLLIN
;
4616 # define SNIFF_IDX 1
4617 if (want_sniff_request
)
4619 fds
[SNIFF_IDX
].fd
= fd_from_sniff
;
4620 fds
[SNIFF_IDX
].events
= POLLIN
;
4624 # ifdef FEAT_XCLIPBOARD
4625 if (xterm_Shell
!= (Widget
)0)
4628 fds
[nfd
].fd
= ConnectionNumber(xterm_dpy
);
4629 fds
[nfd
].events
= POLLIN
;
4633 # ifdef FEAT_MOUSE_GPM
4634 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4637 fds
[nfd
].fd
= gpm_fd
;
4638 fds
[nfd
].events
= POLLIN
;
4643 if (xsmp_icefd
!= -1)
4646 fds
[nfd
].fd
= xsmp_icefd
;
4647 fds
[nfd
].events
= POLLIN
;
4652 ret
= poll(fds
, nfd
, towait
);
4653 # ifdef FEAT_MZSCHEME
4654 if (ret
== 0 && mzquantum_used
)
4655 /* MzThreads scheduling is required and timeout occured */
4661 sniff_disconnect(1);
4662 else if (want_sniff_request
)
4664 if (fds
[SNIFF_IDX
].revents
& POLLHUP
)
4665 sniff_disconnect(1);
4666 if (fds
[SNIFF_IDX
].revents
& POLLIN
)
4667 sniff_request_waiting
= 1;
4670 # ifdef FEAT_XCLIPBOARD
4671 if (xterm_Shell
!= (Widget
)0 && (fds
[xterm_idx
].revents
& POLLIN
))
4673 xterm_update(); /* Maybe we should hand out clipboard */
4674 if (--ret
== 0 && !input_available())
4679 # ifdef FEAT_MOUSE_GPM
4680 if (gpm_idx
>= 0 && (fds
[gpm_idx
].revents
& POLLIN
))
4686 if (xsmp_idx
>= 0 && (fds
[xsmp_idx
].revents
& (POLLIN
| POLLHUP
)))
4688 if (fds
[xsmp_idx
].revents
& POLLIN
)
4691 xsmp_handle_requests();
4694 else if (fds
[xsmp_idx
].revents
& POLLHUP
)
4697 verb_msg((char_u
*)_("XSMP lost ICE connection"));
4701 finished
= FALSE
; /* Try again */
4706 #else /* HAVE_SELECT */
4709 struct timeval
*tvp
;
4714 # ifdef FEAT_MZSCHEME
4715 mzvim_check_threads();
4716 if (mzthreads_allowed() && p_mzq
> 0 && (msec
< 0 || msec
> p_mzq
))
4718 towait
= p_mzq
; /* don't wait longer than 'mzquantum' */
4719 mzquantum_used
= TRUE
;
4723 /* don't check for incoming chars if not in raw mode, because select()
4724 * always returns TRUE then (in some version of emx.dll) */
4725 if (curr_tmode
!= TMODE_RAW
)
4731 tv
.tv_sec
= towait
/ 1000;
4732 tv
.tv_usec
= (towait
% 1000) * (1000000/1000);
4739 * Select on ready for reading and exceptional condition (end of file).
4741 FD_ZERO(&rfds
); /* calls bzero() on a sun */
4744 # if !defined(__QNX__) && !defined(__CYGWIN32__)
4745 /* For QNX select() always returns 1 if this is set. Why? */
4751 if (want_sniff_request
)
4753 FD_SET(fd_from_sniff
, &rfds
);
4754 FD_SET(fd_from_sniff
, &efds
);
4755 if (maxfd
< fd_from_sniff
)
4756 maxfd
= fd_from_sniff
;
4759 # ifdef FEAT_XCLIPBOARD
4760 if (xterm_Shell
!= (Widget
)0)
4762 FD_SET(ConnectionNumber(xterm_dpy
), &rfds
);
4763 if (maxfd
< ConnectionNumber(xterm_dpy
))
4764 maxfd
= ConnectionNumber(xterm_dpy
);
4767 # ifdef FEAT_MOUSE_GPM
4768 if (check_for_gpm
!= NULL
&& gpm_flag
&& gpm_fd
>= 0)
4770 FD_SET(gpm_fd
, &rfds
);
4771 FD_SET(gpm_fd
, &efds
);
4777 if (xsmp_icefd
!= -1)
4779 FD_SET(xsmp_icefd
, &rfds
);
4780 FD_SET(xsmp_icefd
, &efds
);
4781 if (maxfd
< xsmp_icefd
)
4787 /* Old VMS as v6.2 and older have broken select(). It waits more than
4788 * required. Should not be used */
4791 ret
= select(maxfd
+ 1, &rfds
, NULL
, &efds
, tvp
);
4794 if (ret
== -1 && errno
== ENOTSUP
)
4801 # ifdef FEAT_MZSCHEME
4802 if (ret
== 0 && mzquantum_used
)
4803 /* loop if MzThreads must be scheduled and timeout occured */
4809 sniff_disconnect(1);
4810 else if (ret
> 0 && want_sniff_request
)
4812 if (FD_ISSET(fd_from_sniff
, &efds
))
4813 sniff_disconnect(1);
4814 if (FD_ISSET(fd_from_sniff
, &rfds
))
4815 sniff_request_waiting
= 1;
4818 # ifdef FEAT_XCLIPBOARD
4819 if (ret
> 0 && xterm_Shell
!= (Widget
)0
4820 && FD_ISSET(ConnectionNumber(xterm_dpy
), &rfds
))
4822 xterm_update(); /* Maybe we should hand out clipboard */
4823 /* continue looping when we only got the X event and the input
4824 * buffer is empty */
4825 if (--ret
== 0 && !input_available())
4832 # ifdef FEAT_MOUSE_GPM
4833 if (ret
> 0 && gpm_flag
&& check_for_gpm
!= NULL
&& gpm_fd
>= 0)
4835 if (FD_ISSET(gpm_fd
, &efds
))
4837 else if (FD_ISSET(gpm_fd
, &rfds
))
4842 if (ret
> 0 && xsmp_icefd
!= -1)
4844 if (FD_ISSET(xsmp_icefd
, &efds
))
4847 verb_msg((char_u
*)_("XSMP lost ICE connection"));
4850 finished
= FALSE
; /* keep going if event was only one */
4852 else if (FD_ISSET(xsmp_icefd
, &rfds
))
4855 xsmp_handle_requests();
4858 finished
= FALSE
; /* keep going if event was only one */
4863 #endif /* HAVE_SELECT */
4866 if (finished
|| msec
== 0)
4869 /* We're going to loop around again, find out for how long */
4872 # ifdef USE_START_TV
4875 /* Compute remaining wait time. */
4876 gettimeofday(&mtv
, NULL
);
4877 msec
-= (mtv
.tv_sec
- start_tv
.tv_sec
) * 1000L
4878 + (mtv
.tv_usec
- start_tv
.tv_usec
) / 1000L;
4880 /* Guess we got interrupted halfway. */
4884 break; /* waited long enough */
4894 #ifndef NO_EXPANDPATH
4896 * Expand a path into all matching files and/or directories. Handles "*",
4897 * "?", "[a-z]", "**", etc.
4898 * "path" has backslashes before chars that are not to be expanded.
4899 * Returns the number of matches found.
4902 mch_expandpath(gap
, path
, flags
)
4905 int flags
; /* EW_* flags */
4907 return unix_expandpath(gap
, path
, 0, flags
, FALSE
);
4912 * mch_expand_wildcards() - this code does wild-card pattern matching using
4915 * return OK for success, FAIL for error (you may lose some memory) and put
4916 * an error message in *file.
4918 * num_pat is number of input patterns
4919 * pat is array of pointers to input patterns
4920 * num_file is pointer to number of matched file names
4921 * file is pointer to array of pointers to matched file names
4931 #define SHELL_SPECIAL (char_u *)"\t \"&'$;<>()\\|"
4935 mch_expand_wildcards(num_pat
, pat
, num_file
, file
, flags
)
4940 int flags
; /* EW_* flags */
4947 # define EXPL_ALLOC_INC 16
4948 char_u
**expl_files
;
4949 size_t files_alloced
, files_free
;
4953 *num_file
= 0; /* default: no files found */
4954 files_alloced
= EXPL_ALLOC_INC
; /* how much space is allocated */
4955 files_free
= EXPL_ALLOC_INC
; /* how much space is not used */
4956 *file
= (char_u
**)alloc(sizeof(char_u
**) * files_alloced
);
4960 for (; num_pat
> 0; num_pat
--, pat
++)
4963 if (vim_strchr(*pat
, '$') || vim_strchr(*pat
, '~'))
4964 /* expand environment var or home dir */
4965 buf
= expand_env_save(*pat
);
4967 buf
= vim_strsave(*pat
);
4969 has_wildcard
= mch_has_exp_wildcard(buf
); /* (still) wildcards? */
4970 if (has_wildcard
) /* yes, so expand them */
4971 expl_files
= (char_u
**)_fnexplode(buf
);
4974 * return value of buf if no wildcards left,
4975 * OR if no match AND EW_NOTFOUND is set.
4977 if ((!has_wildcard
&& ((flags
& EW_NOTFOUND
) || mch_getperm(buf
) >= 0))
4978 || (expl_files
== NULL
&& (flags
& EW_NOTFOUND
)))
4979 { /* simply save the current contents of *buf */
4980 expl_files
= (char_u
**)alloc(sizeof(char_u
**) * 2);
4981 if (expl_files
!= NULL
)
4983 expl_files
[0] = vim_strsave(buf
);
4984 expl_files
[1] = NULL
;
4990 * Count number of names resulting from expansion,
4991 * At the same time add a backslash to the end of names that happen to
4992 * be directories, and replace slashes with backslashes.
4996 for (i
= 0; (p
= expl_files
[i
]) != NULL
; i
++)
4999 /* If we don't want dirs and this is one, skip it */
5000 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5003 /* Skip files that are not executable if we check for that. */
5004 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe(p
))
5007 if (--files_free
== 0)
5009 /* need more room in table of pointers */
5010 files_alloced
+= EXPL_ALLOC_INC
;
5011 *file
= (char_u
**)vim_realloc(*file
,
5012 sizeof(char_u
**) * files_alloced
);
5015 EMSG(_(e_outofmem
));
5019 files_free
= EXPL_ALLOC_INC
;
5024 /* For a directory we add a '/', unless it's already
5027 if (((*file
)[*num_file
] = alloc(len
+ 2)) != NULL
)
5029 STRCPY((*file
)[*num_file
], p
);
5030 if (!after_pathsep((*file
)[*num_file
],
5031 (*file
)[*num_file
] + len
))
5033 (*file
)[*num_file
][len
] = psepc
;
5034 (*file
)[*num_file
][len
+ 1] = NUL
;
5040 (*file
)[*num_file
] = vim_strsave(p
);
5044 * Error message already given by either alloc or vim_strsave.
5045 * Should return FAIL, but returning OK works also.
5047 if ((*file
)[*num_file
] == NULL
)
5051 _fnexplodefree((char **)expl_files
);
5063 #define STYLE_ECHO 0 /* use "echo" to expand */
5064 #define STYLE_GLOB 1 /* use "glob" to expand, for csh */
5065 #define STYLE_PRINT 2 /* use "print -N" to expand, for zsh */
5066 #define STYLE_BT 3 /* `cmd` expansion, execute the pattern directly */
5067 int shell_style
= STYLE_ECHO
;
5069 static int did_find_nul
= FALSE
;
5070 int ampersent
= FALSE
;
5072 *num_file
= 0; /* default: no files found */
5076 * If there are no wildcards, just copy the names to allocated memory.
5077 * Saves a lot of time, because we don't have to start a new shell.
5079 if (!have_wildcard(num_pat
, pat
))
5080 return save_patterns(num_pat
, pat
, num_file
, file
);
5082 # ifdef HAVE_SANDBOX
5083 /* Don't allow any shell command in the sandbox. */
5084 if (sandbox
!= 0 && check_secure())
5089 * Don't allow the use of backticks in secure and restricted mode.
5091 if (secure
|| restricted
)
5092 for (i
= 0; i
< num_pat
; ++i
)
5093 if (vim_strchr(pat
[i
], '`') != NULL
5094 && (check_restricted() || check_secure()))
5098 * get a name for the temp file
5100 if ((tempname
= vim_tempname('o')) == NULL
)
5107 * Let the shell expand the patterns and write the result into the temp
5108 * file. if expanding `cmd` execute it directly.
5109 * If we use csh, glob will work better than echo.
5110 * If we use zsh, print -N will work better than glob.
5112 if (num_pat
== 1 && *pat
[0] == '`'
5113 && (len
= STRLEN(pat
[0])) > 2
5114 && *(pat
[0] + len
- 1) == '`')
5115 shell_style
= STYLE_BT
;
5116 else if ((len
= STRLEN(p_sh
)) >= 3)
5118 if (STRCMP(p_sh
+ len
- 3, "csh") == 0)
5119 shell_style
= STYLE_GLOB
;
5120 else if (STRCMP(p_sh
+ len
- 3, "zsh") == 0)
5121 shell_style
= STYLE_PRINT
;
5124 /* "unset nonomatch; print -N >" plus two is 29 */
5125 len
= STRLEN(tempname
) + 29;
5126 for (i
= 0; i
< num_pat
; ++i
)
5128 /* Count the length of the patterns in the same way as they are put in
5129 * "command" below. */
5131 len
+= STRLEN(pat
[i
]) + 3; /* add space and two quotes */
5133 ++len
; /* add space */
5134 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5136 if (vim_strchr(SHELL_SPECIAL
, pat
[i
][j
]) != NULL
)
5137 ++len
; /* may add a backslash */
5142 command
= alloc(len
);
5143 if (command
== NULL
)
5151 * Build the shell command:
5152 * - Set $nonomatch depending on EW_NOTFOUND (hopefully the shell
5154 * - Add the shell command to print the expanded names.
5155 * - Add the temp file name.
5156 * - Add the file name patterns.
5158 if (shell_style
== STYLE_BT
)
5160 /* change `command; command& ` to (command; command ) */
5161 STRCPY(command
, "(");
5162 STRCAT(command
, pat
[0] + 1); /* exclude first backtick */
5163 p
= command
+ STRLEN(command
) - 1;
5164 *p
-- = ')'; /* remove last backtick */
5165 while (p
> command
&& vim_iswhite(*p
))
5167 if (*p
== '&') /* remove trailing '&' */
5172 STRCAT(command
, ">");
5176 if (flags
& EW_NOTFOUND
)
5177 STRCPY(command
, "set nonomatch; ");
5179 STRCPY(command
, "unset nonomatch; ");
5180 if (shell_style
== STYLE_GLOB
)
5181 STRCAT(command
, "glob >");
5182 else if (shell_style
== STYLE_PRINT
)
5183 STRCAT(command
, "print -N >");
5185 STRCAT(command
, "echo >");
5187 STRCAT(command
, tempname
);
5188 if (shell_style
!= STYLE_BT
)
5189 for (i
= 0; i
< num_pat
; ++i
)
5191 /* When using system() always add extra quotes, because the shell
5192 * is started twice. Otherwise put a backslash before special
5193 * characters, except insice ``. */
5195 STRCAT(command
, " \"");
5196 STRCAT(command
, pat
[i
]);
5197 STRCAT(command
, "\"");
5201 p
= command
+ STRLEN(command
);
5203 for (j
= 0; pat
[i
][j
] != NUL
; ++j
)
5205 if (pat
[i
][j
] == '`')
5207 else if (pat
[i
][j
] == '\\' && pat
[i
][j
+ 1] != NUL
)
5209 /* Remove a backslash, take char literally. But keep
5210 * backslash inside backticks, before a special character
5211 * and before a backtick. */
5213 || vim_strchr(SHELL_SPECIAL
, pat
[i
][j
+ 1]) != NULL
5214 || pat
[i
][j
+ 1] == '`')
5218 else if (!intick
&& vim_strchr(SHELL_SPECIAL
,
5220 /* Put a backslash before a special character, but not
5221 * when inside ``. */
5224 /* Copy one character. */
5230 if (flags
& EW_SILENT
)
5231 show_shell_mess
= FALSE
;
5233 STRCAT(command
, "&"); /* put the '&' back after the
5237 * Using zsh -G: If a pattern has no matches, it is just deleted from
5238 * the argument list, otherwise zsh gives an error message and doesn't
5239 * expand any other pattern.
5241 if (shell_style
== STYLE_PRINT
)
5242 extra_shell_arg
= (char_u
*)"-G"; /* Use zsh NULL_GLOB option */
5245 * If we use -f then shell variables set in .cshrc won't get expanded.
5246 * vi can do it, so we will too, but it is only necessary if there is a "$"
5247 * in one of the patterns, otherwise we can still use the fast option.
5249 else if (shell_style
== STYLE_GLOB
&& !have_dollars(num_pat
, pat
))
5250 extra_shell_arg
= (char_u
*)"-f"; /* Use csh fast option */
5253 * execute the shell command
5255 i
= call_shell(command
, SHELL_EXPAND
| SHELL_SILENT
);
5257 /* When running in the background, give it some time to create the temp
5258 * file, but don't wait for it to finish. */
5260 mch_delay(10L, TRUE
);
5262 extra_shell_arg
= NULL
; /* cleanup */
5263 show_shell_mess
= TRUE
;
5266 if (i
) /* mch_call_shell() failed */
5268 mch_remove(tempname
);
5271 * With interactive completion, the error message is not printed.
5272 * However with USE_SYSTEM, I don't know how to turn off error messages
5273 * from the shell, so screen may still get messed up -- webb.
5276 if (!(flags
& EW_SILENT
))
5279 redraw_later_clear(); /* probably messed up screen */
5280 msg_putchar('\n'); /* clear bottom line quickly */
5281 cmdline_row
= Rows
- 1; /* continue on last line */
5283 if (!(flags
& EW_SILENT
))
5286 MSG(_(e_wildexpand
));
5287 msg_start(); /* don't overwrite this message */
5290 /* If a `cmd` expansion failed, don't list `cmd` as a match, even when
5291 * EW_NOTFOUND is given */
5292 if (shell_style
== STYLE_BT
)
5298 * read the names from the file into memory
5300 fd
= fopen((char *)tempname
, READBIN
);
5303 /* Something went wrong, perhaps a file name with a special char. */
5304 if (!(flags
& EW_SILENT
))
5306 MSG(_(e_wildexpand
));
5307 msg_start(); /* don't overwrite this message */
5312 fseek(fd
, 0L, SEEK_END
);
5313 len
= ftell(fd
); /* get size of temp file */
5314 fseek(fd
, 0L, SEEK_SET
);
5315 buffer
= alloc(len
+ 1);
5319 mch_remove(tempname
);
5324 i
= fread((char *)buffer
, 1, len
, fd
);
5326 mch_remove(tempname
);
5329 /* unexpected read error */
5330 EMSG2(_(e_notread
), tempname
);
5337 #if defined(__CYGWIN__) || defined(__CYGWIN32__)
5338 /* Translate <CR><NL> into <NL>. Caution, buffer may contain NUL. */
5340 for (i
= 0; i
< len
; ++i
)
5341 if (!(buffer
[i
] == CAR
&& buffer
[i
+ 1] == NL
))
5347 /* file names are separated with Space */
5348 if (shell_style
== STYLE_ECHO
)
5350 buffer
[len
] = '\n'; /* make sure the buffer ends in NL */
5352 for (i
= 0; *p
!= '\n'; ++i
) /* count number of entries */
5354 while (*p
!= ' ' && *p
!= '\n')
5356 p
= skipwhite(p
); /* skip to next entry */
5359 /* file names are separated with NL */
5360 else if (shell_style
== STYLE_BT
)
5362 buffer
[len
] = NUL
; /* make sure the buffer ends in NUL */
5364 for (i
= 0; *p
!= NUL
; ++i
) /* count number of entries */
5366 while (*p
!= '\n' && *p
!= NUL
)
5370 p
= skipwhite(p
); /* skip leading white space */
5373 /* file names are separated with NUL */
5377 * Some versions of zsh use spaces instead of NULs to separate
5378 * results. Only do this when there is no NUL before the end of the
5379 * buffer, otherwise we would never be able to use file names with
5380 * embedded spaces when zsh does use NULs.
5381 * When we found a NUL once, we know zsh is OK, set did_find_nul and
5382 * don't check for spaces again.
5384 check_spaces
= FALSE
;
5385 if (shell_style
== STYLE_PRINT
&& !did_find_nul
)
5387 /* If there is a NUL, set did_find_nul, else set check_spaces */
5388 if (len
&& (int)STRLEN(buffer
) < len
- 1)
5389 did_find_nul
= TRUE
;
5391 check_spaces
= TRUE
;
5395 * Make sure the buffer ends with a NUL. For STYLE_PRINT there
5396 * already is one, for STYLE_GLOB it needs to be added.
5398 if (len
&& buffer
[len
- 1] == NUL
)
5403 for (p
= buffer
; p
< buffer
+ len
; ++p
)
5404 if (*p
== NUL
|| (*p
== ' ' && check_spaces
)) /* count entry */
5410 ++i
; /* count last entry */
5415 * Can happen when using /bin/sh and typing ":e $NO_SUCH_VAR^I".
5416 * /bin/sh will happily expand it to nothing rather than returning an
5417 * error; and hey, it's good to check anyway -- webb.
5423 *file
= (char_u
**)alloc(sizeof(char_u
*) * i
);
5432 * Isolate the individual file names.
5435 for (i
= 0; i
< *num_file
; ++i
)
5438 /* Space or NL separates */
5439 if (shell_style
== STYLE_ECHO
|| shell_style
== STYLE_BT
)
5441 while (!(shell_style
== STYLE_ECHO
&& *p
== ' ')
5442 && *p
!= '\n' && *p
!= NUL
)
5444 if (p
== buffer
+ len
) /* last entry */
5449 p
= skipwhite(p
); /* skip to next entry */
5452 else /* NUL separates */
5454 while (*p
&& p
< buffer
+ len
) /* skip entry */
5461 * Move the file names to allocated memory.
5463 for (j
= 0, i
= 0; i
< *num_file
; ++i
)
5465 /* Require the files to exist. Helps when using /bin/sh */
5466 if (!(flags
& EW_NOTFOUND
) && mch_getperm((*file
)[i
]) < 0)
5469 /* check if this entry should be included */
5470 dir
= (mch_isdir((*file
)[i
]));
5471 if ((dir
&& !(flags
& EW_DIR
)) || (!dir
&& !(flags
& EW_FILE
)))
5474 /* Skip files that are not executable if we check for that. */
5475 if (!dir
&& (flags
& EW_EXEC
) && !mch_can_exe((*file
)[i
]))
5478 p
= alloc((unsigned)(STRLEN((*file
)[i
]) + 1 + dir
));
5481 STRCPY(p
, (*file
)[i
]);
5483 STRCAT(p
, "/"); /* add '/' to a directory name */
5490 if (*num_file
== 0) /* rejected all entries */
5500 if (flags
& EW_NOTFOUND
)
5501 return save_patterns(num_pat
, pat
, num_file
, file
);
5504 #endif /* __EMX__ */
5511 save_patterns(num_pat
, pat
, num_file
, file
)
5520 *file
= (char_u
**)alloc(num_pat
* sizeof(char_u
*));
5523 for (i
= 0; i
< num_pat
; i
++)
5525 s
= vim_strsave(pat
[i
]);
5527 /* Be compatible with expand_filename(): halve the number of
5532 *num_file
= num_pat
;
5539 * Return TRUE if the string "p" contains a wildcard that mch_expandpath() can
5543 mch_has_exp_wildcard(p
)
5546 for ( ; *p
; mb_ptr_adv(p
))
5549 if (*p
== '\\' && p
[1] != NUL
)
5553 if (vim_strchr((char_u
*)
5570 * Return TRUE if the string "p" contains a wildcard.
5571 * Don't recognize '~' at the end as a wildcard.
5577 for ( ; *p
; mb_ptr_adv(p
))
5580 if (*p
== '\\' && p
[1] != NUL
)
5584 if (vim_strchr((char_u
*)
5589 # ifdef VIM_BACKTICK
5599 || (*p
== '~' && p
[1] != NUL
))
5607 have_wildcard(num
, file
)
5613 for (i
= 0; i
< num
; i
++)
5614 if (mch_has_wildcard(file
[i
]))
5620 have_dollars(num
, file
)
5626 for (i
= 0; i
< num
; i
++)
5627 if (vim_strchr(file
[i
], '$') != NULL
)
5631 #endif /* ifndef __EMX__ */
5635 * Scaled-down version of rename(), which is missing in Xenix.
5636 * This version can only move regular files and will fail if the
5637 * destination exists.
5640 mch_rename(src
, dest
)
5641 const char *src
, *dest
;
5645 if (stat(dest
, &st
) >= 0) /* fail if destination exists */
5647 if (link(src
, dest
) != 0) /* link file to new name */
5649 if (mch_remove(src
) == 0) /* delete link to old name */
5653 #endif /* !HAVE_RENAME */
5655 #ifdef FEAT_MOUSE_GPM
5657 * Initializes connection with gpm (if it isn't already opened)
5658 * Return 1 if succeeded (or connection already opened), 0 if failed
5663 static Gpm_Connect gpm_connect
; /* Must it be kept till closing ? */
5667 gpm_connect
.eventMask
= (GPM_UP
| GPM_DRAG
| GPM_DOWN
);
5668 gpm_connect
.defaultMask
= ~GPM_HARD
;
5669 /* Default handling for mouse move*/
5670 gpm_connect
.minMod
= 0; /* Handle any modifier keys */
5671 gpm_connect
.maxMod
= 0xffff;
5672 if (Gpm_Open(&gpm_connect
, 0) > 0)
5674 /* gpm library tries to handling TSTP causes
5675 * problems. Anyways, we close connection to Gpm whenever
5676 * we are going to suspend or starting an external process
5677 * so we should'nt have problem with this
5679 signal(SIGTSTP
, restricted
? SIG_IGN
: SIG_DFL
);
5680 return 1; /* succeed */
5683 Gpm_Close(); /* We don't want to talk to xterm via gpm */
5686 return 1; /* already open */
5690 * Closes connection to gpm
5691 * returns non-zero if connection succesfully closed
5696 if (gpm_flag
&& gpm_fd
>= 0) /* if Open */
5700 /* Reads gpm event and adds special keys to input buf. Returns length of
5701 * generated key sequence.
5702 * This function is made after gui_send_mouse_event
5708 static Gpm_Event gpm_event
;
5710 int_u vim_modifiers
;
5712 unsigned char buttons_mask
;
5713 unsigned char gpm_modifiers
;
5714 static unsigned char old_buttons
= 0;
5716 Gpm_GetEvent(&gpm_event
);
5719 /* Don't put events in the input queue now. */
5720 if (hold_gui_events
)
5724 row
= gpm_event
.y
- 1;
5725 col
= gpm_event
.x
- 1;
5727 string
[0] = ESC
; /* Our termcode */
5730 switch (GPM_BARE_EVENTS(gpm_event
.type
))
5733 string
[3] = MOUSE_DRAG
;
5736 buttons_mask
= gpm_event
.buttons
& ~old_buttons
;
5737 old_buttons
= gpm_event
.buttons
;
5738 switch (buttons_mask
)
5741 button
= MOUSE_LEFT
;
5744 button
= MOUSE_MIDDLE
;
5747 button
= MOUSE_RIGHT
;
5751 /*Don't know what to do. Can more than one button be
5752 * reported in one event? */
5754 string
[3] = (char_u
)(button
| 0x20);
5755 SET_NUM_MOUSE_CLICKS(string
[3], gpm_event
.clicks
+ 1);
5758 string
[3] = MOUSE_RELEASE
;
5759 old_buttons
&= ~gpm_event
.buttons
;
5764 /*This code is based on gui_x11_mouse_cb in gui_x11.c */
5765 gpm_modifiers
= gpm_event
.modifiers
;
5766 vim_modifiers
= 0x0;
5767 /* I ignore capslock stats. Aren't we all just hate capslock mixing with
5768 * Vim commands ? Besides, gpm_event.modifiers is unsigned char, and
5769 * K_CAPSSHIFT is defined 8, so it probably isn't even reported
5771 if (gpm_modifiers
& ((1 << KG_SHIFT
) | (1 << KG_SHIFTR
) | (1 << KG_SHIFTL
)))
5772 vim_modifiers
|= MOUSE_SHIFT
;
5774 if (gpm_modifiers
& ((1 << KG_CTRL
) | (1 << KG_CTRLR
) | (1 << KG_CTRLL
)))
5775 vim_modifiers
|= MOUSE_CTRL
;
5776 if (gpm_modifiers
& ((1 << KG_ALT
) | (1 << KG_ALTGR
)))
5777 vim_modifiers
|= MOUSE_ALT
;
5778 string
[3] |= vim_modifiers
;
5779 string
[4] = (char_u
)(col
+ ' ' + 1);
5780 string
[5] = (char_u
)(row
+ ' ' + 1);
5781 add_to_input_buf(string
, 6);
5784 #endif /* FEAT_MOUSE_GPM */
5786 #if defined(FEAT_LIBCALL) || defined(PROTO)
5787 typedef char_u
* (*STRPROCSTR
)__ARGS((char_u
*));
5788 typedef char_u
* (*INTPROCSTR
)__ARGS((int));
5789 typedef int (*STRPROCINT
)__ARGS((char_u
*));
5790 typedef int (*INTPROCINT
)__ARGS((int));
5793 * Call a DLL routine which takes either a string or int param
5794 * and returns an allocated string.
5797 mch_libcall(libname
, funcname
, argstring
, argint
, string_result
, number_result
)
5800 char_u
*argstring
; /* NULL when using a argint */
5802 char_u
**string_result
;/* NULL when using number_result */
5805 # if defined(USE_DLOPEN)
5812 INTPROCSTR ProcAddI
;
5813 char_u
*retval_str
= NULL
;
5815 int success
= FALSE
;
5818 * Get a handle to the DLL module.
5820 # if defined(USE_DLOPEN)
5821 /* First clear any error, it's not cleared by the dlopen() call. */
5824 hinstLib
= dlopen((char *)libname
, RTLD_LAZY
5829 if (hinstLib
== NULL
)
5831 /* "dlerr" must be used before dlclose() */
5832 dlerr
= (char *)dlerror();
5834 EMSG2(_("dlerror = \"%s\""), dlerr
);
5837 hinstLib
= shl_load((const char*)libname
, BIND_IMMEDIATE
|BIND_VERBOSE
, 0L);
5840 /* If the handle is valid, try to get the function address. */
5841 if (hinstLib
!= NULL
)
5843 # ifdef HAVE_SETJMP_H
5845 * Catch a crash when calling the library function. For example when
5846 * using a number where a string pointer is expected.
5849 if (SETJMP(lc_jump_env
) != 0)
5852 # if defined(USE_DLOPEN)
5863 if (argstring
!= NULL
)
5865 # if defined(USE_DLOPEN)
5866 ProcAdd
= (STRPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
5867 dlerr
= (char *)dlerror();
5869 if (shl_findsym(&hinstLib
, (const char *)funcname
,
5870 TYPE_PROCEDURE
, (void *)&ProcAdd
) < 0)
5873 if ((success
= (ProcAdd
!= NULL
5874 # if defined(USE_DLOPEN)
5879 if (string_result
== NULL
)
5880 retval_int
= ((STRPROCINT
)ProcAdd
)(argstring
);
5882 retval_str
= (ProcAdd
)(argstring
);
5887 # if defined(USE_DLOPEN)
5888 ProcAddI
= (INTPROCSTR
)dlsym(hinstLib
, (const char *)funcname
);
5889 dlerr
= (char *)dlerror();
5891 if (shl_findsym(&hinstLib
, (const char *)funcname
,
5892 TYPE_PROCEDURE
, (void *)&ProcAddI
) < 0)
5895 if ((success
= (ProcAddI
!= NULL
5896 # if defined(USE_DLOPEN)
5901 if (string_result
== NULL
)
5902 retval_int
= ((INTPROCINT
)ProcAddI
)(argint
);
5904 retval_str
= (ProcAddI
)(argint
);
5908 /* Save the string before we free the library. */
5909 /* Assume that a "1" or "-1" result is an illegal pointer. */
5910 if (string_result
== NULL
)
5911 *number_result
= retval_int
;
5912 else if (retval_str
!= NULL
5913 && retval_str
!= (char_u
*)1
5914 && retval_str
!= (char_u
*)-1)
5915 *string_result
= vim_strsave(retval_str
);
5918 # ifdef HAVE_SETJMP_H
5925 /* try to find the name of this signal */
5926 for (i
= 0; signal_info
[i
].sig
!= -1; i
++)
5927 if (lc_signal
== signal_info
[i
].sig
)
5929 EMSG2("E368: got SIG%s in libcall()", signal_info
[i
].name
);
5934 # if defined(USE_DLOPEN)
5935 /* "dlerr" must be used before dlclose() */
5937 EMSG2(_("dlerror = \"%s\""), dlerr
);
5939 /* Free the DLL module. */
5940 (void)dlclose(hinstLib
);
5942 (void)shl_unload(hinstLib
);
5948 EMSG2(_(e_libcall
), funcname
);
5956 #if (defined(FEAT_X11) && defined(FEAT_XCLIPBOARD)) || defined(PROTO)
5957 static int xterm_trace
= -1; /* default: disabled */
5958 static int xterm_button
;
5961 * Setup a dummy window for X selections in a terminal.
5970 if (!x_connect_to_server())
5974 if (app_context
!= NULL
&& xterm_Shell
== (Widget
)0)
5976 int (*oldhandler
)();
5977 #if defined(HAVE_SETJMP_H)
5978 int (*oldIOhandler
)();
5980 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
5981 struct timeval start_tv
;
5984 gettimeofday(&start_tv
, NULL
);
5987 /* Ignore X errors while opening the display */
5988 oldhandler
= XSetErrorHandler(x_error_check
);
5990 #if defined(HAVE_SETJMP_H)
5991 /* Ignore X IO errors while opening the display */
5992 oldIOhandler
= XSetIOErrorHandler(x_IOerror_check
);
5994 if (SETJMP(lc_jump_env
) != 0)
6002 xterm_dpy
= XtOpenDisplay(app_context
, xterm_display
,
6003 "vim_xterm", "Vim_xterm", NULL
, 0, &z
, &strp
);
6004 #if defined(HAVE_SETJMP_H)
6009 #if defined(HAVE_SETJMP_H)
6010 /* Now handle X IO errors normally. */
6011 (void)XSetIOErrorHandler(oldIOhandler
);
6013 /* Now handle X errors normally. */
6014 (void)XSetErrorHandler(oldhandler
);
6016 if (xterm_dpy
== NULL
)
6019 verb_msg((char_u
*)_("Opening the X display failed"));
6023 /* Catch terminating error of the X server connection. */
6024 (void)XSetIOErrorHandler(x_IOerror_handler
);
6026 # if defined(HAVE_GETTIMEOFDAY) && defined(HAVE_SYS_TIME_H)
6030 xopen_message(&start_tv
);
6035 /* Create a Shell to make converters work. */
6036 AppShell
= XtVaAppCreateShell("vim_xterm", "Vim_xterm",
6037 applicationShellWidgetClass
, xterm_dpy
,
6039 if (AppShell
== (Widget
)0)
6041 xterm_Shell
= XtVaCreatePopupShell("VIM",
6042 topLevelShellWidgetClass
, AppShell
,
6043 XtNmappedWhenManaged
, 0,
6047 if (xterm_Shell
== (Widget
)0)
6050 x11_setup_atoms(xterm_dpy
);
6051 if (x11_display
== NULL
)
6052 x11_display
= xterm_dpy
;
6054 XtRealizeWidget(xterm_Shell
);
6055 XSync(xterm_dpy
, False
);
6058 if (xterm_Shell
!= (Widget
)0)
6061 if (x11_window
== 0 && (strp
= getenv("WINDOWID")) != NULL
)
6062 x11_window
= (Window
)atol(strp
);
6063 /* Check if $WINDOWID is valid. */
6064 if (test_x11_window(xterm_dpy
) == FAIL
)
6066 if (x11_window
!= 0)
6072 start_xterm_trace(button
)
6075 if (x11_window
== 0 || xterm_trace
< 0 || xterm_Shell
== (Widget
)0)
6078 xterm_button
= button
;
6086 if (xterm_trace
< 0)
6092 * Query the xterm pointer and generate mouse termcodes if necessary
6093 * return TRUE if dragging is active, else FALSE
6106 static char_u
*mouse_code
;
6107 static char_u mouse_name
[2] = {KS_MOUSE
, KE_FILLER
};
6108 static int prev_row
= 0, prev_col
= 0;
6109 static XSizeHints xterm_hints
;
6111 if (xterm_trace
<= 0)
6114 if (xterm_trace
== 1)
6116 /* Get the hints just before tracking starts. The font size might
6117 * have changed recently */
6118 XGetWMNormalHints(xterm_dpy
, x11_window
, &xterm_hints
, &got_hints
);
6119 if (!(got_hints
& PResizeInc
)
6120 || xterm_hints
.width_inc
<= 1
6121 || xterm_hints
.height_inc
<= 1)
6123 xterm_trace
= -1; /* Not enough data -- disable tracing */
6127 /* Rely on the same mouse code for the duration of this */
6128 mouse_code
= find_termcode(mouse_name
);
6129 prev_row
= mouse_row
;
6130 prev_row
= mouse_col
;
6133 /* Find the offset of the chars, there might be a scrollbar on the
6134 * left of the window and/or a menu on the top (eterm etc.) */
6135 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6136 &win_x
, &win_y
, &mask_return
);
6137 xterm_hints
.y
= win_y
- (xterm_hints
.height_inc
* mouse_row
)
6138 - (xterm_hints
.height_inc
/ 2);
6139 if (xterm_hints
.y
<= xterm_hints
.height_inc
/ 2)
6141 xterm_hints
.x
= win_x
- (xterm_hints
.width_inc
* mouse_col
)
6142 - (xterm_hints
.width_inc
/ 2);
6143 if (xterm_hints
.x
<= xterm_hints
.width_inc
/ 2)
6147 if (mouse_code
== NULL
)
6153 XQueryPointer(xterm_dpy
, x11_window
, &root
, &child
, &root_x
, &root_y
,
6154 &win_x
, &win_y
, &mask_return
);
6156 row
= check_row((win_y
- xterm_hints
.y
) / xterm_hints
.height_inc
);
6157 col
= check_col((win_x
- xterm_hints
.x
) / xterm_hints
.width_inc
);
6158 if (row
== prev_row
&& col
== prev_col
)
6161 STRCPY(buf
, mouse_code
);
6162 strp
= buf
+ STRLEN(buf
);
6163 *strp
++ = (xterm_button
| MOUSE_DRAG
) & ~0x20;
6164 *strp
++ = (char_u
)(col
+ ' ' + 1);
6165 *strp
++ = (char_u
)(row
+ ' ' + 1);
6167 add_to_input_buf(buf
, STRLEN(buf
));
6174 # if defined(FEAT_GUI) || defined(PROTO)
6176 * Destroy the display, window and app_context. Required for GTK.
6181 if (xterm_Shell
!= (Widget
)0)
6183 XtDestroyWidget(xterm_Shell
);
6184 xterm_Shell
= (Widget
)0;
6186 if (xterm_dpy
!= NULL
)
6189 /* Lesstif and Solaris crash here, lose some memory */
6190 XtCloseDisplay(xterm_dpy
);
6192 if (x11_display
== xterm_dpy
)
6197 if (app_context
!= (XtAppContext
)NULL
)
6199 /* Lesstif and Solaris crash here, lose some memory */
6200 XtDestroyApplicationContext(app_context
);
6201 app_context
= (XtAppContext
)NULL
;
6208 * Catch up with any queued X events. This may put keyboard input into the
6209 * input buffer, call resize call-backs, trigger timers etc. If there is
6210 * nothing in the X event queue (& no timers pending), then we return
6218 while (XtAppPending(app_context
) && !vim_is_input_buf_full())
6220 XtAppNextEvent(app_context
, &event
);
6221 #ifdef FEAT_CLIENTSERVER
6223 XPropertyEvent
*e
= (XPropertyEvent
*)&event
;
6225 if (e
->type
== PropertyNotify
&& e
->window
== commWindow
6226 && e
->atom
== commProperty
&& e
->state
== PropertyNewValue
)
6227 serverEventProc(xterm_dpy
, &event
);
6230 XtDispatchEvent(&event
);
6235 clip_xterm_own_selection(cbd
)
6238 if (xterm_Shell
!= (Widget
)0)
6239 return clip_x11_own_selection(xterm_Shell
, cbd
);
6244 clip_xterm_lose_selection(cbd
)
6247 if (xterm_Shell
!= (Widget
)0)
6248 clip_x11_lose_selection(xterm_Shell
, cbd
);
6252 clip_xterm_request_selection(cbd
)
6255 if (xterm_Shell
!= (Widget
)0)
6256 clip_x11_request_selection(xterm_Shell
, xterm_dpy
, cbd
);
6260 clip_xterm_set_selection(cbd
)
6263 clip_x11_set_selection(cbd
);
6268 #if defined(USE_XSMP) || defined(PROTO)
6270 * Code for X Session Management Protocol.
6272 static void xsmp_handle_save_yourself
__ARGS((SmcConn smc_conn
, SmPointer client_data
, int save_type
, Bool shutdown
, int interact_style
, Bool fast
));
6273 static void xsmp_die
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6274 static void xsmp_save_complete
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6275 static void xsmp_shutdown_cancelled
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6276 static void xsmp_ice_connection
__ARGS((IceConn iceConn
, IcePointer clientData
, Bool opening
, IcePointer
*watchData
));
6279 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6280 static void xsmp_handle_interaction
__ARGS((SmcConn smc_conn
, SmPointer client_data
));
6283 * This is our chance to ask the user if they want to save,
6284 * or abort the logout
6288 xsmp_handle_interaction(smc_conn
, client_data
)
6290 SmPointer client_data
;
6292 cmdmod_T save_cmdmod
;
6293 int cancel_shutdown
= False
;
6295 save_cmdmod
= cmdmod
;
6296 cmdmod
.confirm
= TRUE
;
6297 if (check_changed_any(FALSE
))
6298 /* Mustn't logout */
6299 cancel_shutdown
= True
;
6300 cmdmod
= save_cmdmod
;
6301 setcursor(); /* position cursor */
6304 /* Done interaction */
6305 SmcInteractDone(smc_conn
, cancel_shutdown
);
6308 * Only end save-yourself here if we're not cancelling shutdown;
6309 * we'll get a cancelled callback later in which we'll end it.
6310 * Hopefully get around glitchy SMs (like GNOME-1)
6312 if (!cancel_shutdown
)
6314 xsmp
.save_yourself
= False
;
6315 SmcSaveYourselfDone(smc_conn
, True
);
6321 * Callback that starts save-yourself.
6325 xsmp_handle_save_yourself(smc_conn
, client_data
, save_type
,
6326 shutdown
, interact_style
, fast
)
6328 SmPointer client_data
;
6334 /* Handle already being in saveyourself */
6335 if (xsmp
.save_yourself
)
6336 SmcSaveYourselfDone(smc_conn
, True
);
6337 xsmp
.save_yourself
= True
;
6338 xsmp
.shutdown
= shutdown
;
6340 /* First up, preserve all files */
6342 ml_sync_all(FALSE
, FALSE
); /* preserve all swap files */
6345 verb_msg((char_u
*)_("XSMP handling save-yourself request"));
6347 # if defined(FEAT_GUI) && defined(USE_XSMP_INTERACT)
6348 /* Now see if we can ask about unsaved files */
6349 if (shutdown
&& !fast
&& gui
.in_use
)
6350 /* Need to interact with user, but need SM's permission */
6351 SmcInteractRequest(smc_conn
, SmDialogError
,
6352 xsmp_handle_interaction
, client_data
);
6356 /* Can stop the cycle here */
6357 SmcSaveYourselfDone(smc_conn
, True
);
6358 xsmp
.save_yourself
= False
;
6364 * Callback to warn us of imminent death.
6368 xsmp_die(smc_conn
, client_data
)
6370 SmPointer client_data
;
6374 /* quit quickly leaving swapfiles for modified buffers behind */
6375 getout_preserve_modified(0);
6380 * Callback to tell us that save-yourself has completed.
6384 xsmp_save_complete(smc_conn
, client_data
)
6386 SmPointer client_data
;
6388 xsmp
.save_yourself
= False
;
6393 * Callback to tell us that an instigated shutdown was cancelled
6394 * (maybe even by us)
6398 xsmp_shutdown_cancelled(smc_conn
, client_data
)
6400 SmPointer client_data
;
6402 if (xsmp
.save_yourself
)
6403 SmcSaveYourselfDone(smc_conn
, True
);
6404 xsmp
.save_yourself
= False
;
6405 xsmp
.shutdown
= False
;
6410 * Callback to tell us that a new ICE connection has been established.
6414 xsmp_ice_connection(iceConn
, clientData
, opening
, watchData
)
6416 IcePointer clientData
;
6418 IcePointer
*watchData
;
6420 /* Intercept creation of ICE connection fd */
6423 xsmp_icefd
= IceConnectionNumber(iceConn
);
6424 IceRemoveConnectionWatch(xsmp_ice_connection
, NULL
);
6429 /* Handle any ICE processing that's required; return FAIL if SM lost */
6431 xsmp_handle_requests()
6435 if (IceProcessMessages(xsmp
.iceconn
, NULL
, &rep
)
6436 == IceProcessMessagesIOError
)
6440 verb_msg((char_u
*)_("XSMP lost ICE connection"));
6450 /* Set up X Session Management Protocol */
6454 char errorstring
[80];
6456 SmcCallbacks smcallbacks
;
6464 verb_msg((char_u
*)_("XSMP opening connection"));
6466 xsmp
.save_yourself
= xsmp
.shutdown
= False
;
6468 /* Set up SM callbacks - must have all, even if they're not used */
6469 smcallbacks
.save_yourself
.callback
= xsmp_handle_save_yourself
;
6470 smcallbacks
.save_yourself
.client_data
= NULL
;
6471 smcallbacks
.die
.callback
= xsmp_die
;
6472 smcallbacks
.die
.client_data
= NULL
;
6473 smcallbacks
.save_complete
.callback
= xsmp_save_complete
;
6474 smcallbacks
.save_complete
.client_data
= NULL
;
6475 smcallbacks
.shutdown_cancelled
.callback
= xsmp_shutdown_cancelled
;
6476 smcallbacks
.shutdown_cancelled
.client_data
= NULL
;
6478 /* Set up a watch on ICE connection creations. The "dummy" argument is
6479 * apparently required for FreeBSD (we get a BUS error when using NULL). */
6480 if (IceAddConnectionWatch(xsmp_ice_connection
, &dummy
) == 0)
6483 verb_msg((char_u
*)_("XSMP ICE connection watch failed"));
6487 /* Create an SM connection */
6488 xsmp
.smcconn
= SmcOpenConnection(
6493 SmcSaveYourselfProcMask
| SmcDieProcMask
6494 | SmcSaveCompleteProcMask
| SmcShutdownCancelledProcMask
,
6498 sizeof(errorstring
),
6500 if (xsmp
.smcconn
== NULL
)
6502 char errorreport
[132];
6506 vim_snprintf(errorreport
, sizeof(errorreport
),
6507 _("XSMP SmcOpenConnection failed: %s"), errorstring
);
6508 verb_msg((char_u
*)errorreport
);
6512 xsmp
.iceconn
= SmcGetIceConnection(xsmp
.smcconn
);
6516 smname
.value
= "vim";
6518 smnameprop
.name
= "SmProgram";
6519 smnameprop
.type
= "SmARRAY8";
6520 smnameprop
.num_vals
= 1;
6521 smnameprop
.vals
= &smname
;
6523 smprops
[0] = &smnameprop
;
6524 SmcSetProperties(xsmp
.smcconn
, 1, smprops
);
6529 /* Shut down XSMP comms. */
6533 if (xsmp_icefd
!= -1)
6535 SmcCloseConnection(xsmp
.smcconn
, 0, NULL
);
6539 #endif /* USE_XSMP */
6543 /* Translate character to its CTRL- value */
6547 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6548 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6549 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6550 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6551 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6552 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6556 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6559 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6570 0, 0, 0, 0, 0, 0, 0,
6581 0, 0, 0, 0, 0, 0, 0, 0,
6594 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6596 /* BE - C0 */ 0, 0, 0,
6606 /* CA - D0 */ 0, 0, 0, 0, 0, 0, 0,
6616 /* DA - DF */ 0, 0, 0, 0, 0, 0,
6627 /* EA - FF*/ 0, 0, 0, 0, 0, 0,
6628 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0,
6631 char MetaCharTable
[]=
6632 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
6633 0, 0, 0, 0,'\\', 0,'F', 0,'W','M','N', 0, 0, 0, 0, 0,
6634 0, 0, 0, 0,']', 0, 0,'G', 0, 0,'R','O', 0, 0, 0, 0,
6635 '@','A','B','C','D','E', 0, 0,'H','I','J','K','L', 0, 0, 0,
6636 'P','Q', 0,'S','T','U','V', 0,'X','Y','Z','[', 0, 0,'^', 0
6640 /* TODO: Use characters NOT numbers!!! */
6641 char CtrlCharTable
[]=
6642 {/* 0 1 2 3 4 5 6 7 8 9 A B C D E F */
6643 124,193,194,195, 0,201, 0, 0, 0, 0, 0,210,211,212,213,214,
6644 215,216,217,226, 0,209,200, 0,231,232, 0, 0,224,189, 95,109,
6645 0, 0, 0, 0, 0, 0,230,173, 0, 0, 0, 0, 0,197,198,199,
6646 0, 0,229, 0, 0, 0, 0,196, 0, 0, 0, 0,227,228, 0,233,