blob: 695affaea93e542ddd904bfcd741f6bdd8b5fdf5 [file] [log] [blame]
Bram Moolenaaredf3f972016-08-29 22:49:24 +02001/* vi:set ts=8 sts=4 sw=4 noet:
Bram Moolenaar071d4272004-06-13 20:20:40 +00002 *
3 * VIM - Vi IMproved by Bram Moolenaar
4 *
5 * Do ":help uganda" in Vim to read copying and usage conditions.
6 * Do ":help credits" in Vim to see a list of people who contributed.
7 */
8
9/*
10 * NextStep has a problem with configure, undefine a few things:
11 */
12#ifdef NeXT
13# ifdef HAVE_UTIME
14# undef HAVE_UTIME
15# endif
16# ifdef HAVE_SYS_UTSNAME_H
17# undef HAVE_SYS_UTSNAME_H
18# endif
19#endif
20
21#include <stdio.h>
22#include <ctype.h>
23
24#ifdef VAXC
25# include <types.h>
26# include <stat.h>
27#else
28# include <sys/types.h>
29# include <sys/stat.h>
30#endif
31
32#ifdef HAVE_STDLIB_H
33# include <stdlib.h>
34#endif
35
Bram Moolenaar071d4272004-06-13 20:20:40 +000036#if defined(__CYGWIN__) || defined(__CYGWIN32__)
37# define WIN32UNIX /* Compiling for Win32 using Unix files. */
38# define BINARY_FILE_IO
Bram Moolenaar24552be2005-12-10 20:17:30 +000039
40# define CASE_INSENSITIVE_FILENAME
41# define USE_FNAME_CASE /* Fix filename case differences. */
Bram Moolenaar071d4272004-06-13 20:20:40 +000042#endif
43
44/* On AIX 4.2 there is a conflicting prototype for ioctl() in stropts.h and
45 * unistd.h. This hack should fix that (suggested by Jeff George).
46 * But on AIX 4.3 it's alright (suggested by Jake Hamby). */
47#if defined(FEAT_GUI) && defined(_AIX) && !defined(_AIX43) && !defined(_NO_PROTO)
48# define _NO_PROTO
49#endif
50
51#ifdef HAVE_UNISTD_H
Bram Moolenaar8f0b2d42009-05-16 14:41:10 +000052# include <unistd.h>
Bram Moolenaar071d4272004-06-13 20:20:40 +000053#endif
54
55#ifdef HAVE_LIBC_H
56# include <libc.h> /* for NeXT */
57#endif
58
59#ifdef HAVE_SYS_PARAM_H
60# include <sys/param.h> /* defines BSD, if it's a BSD system */
61#endif
62
63/*
Bram Moolenaar071d4272004-06-13 20:20:40 +000064 * Using getcwd() is preferred, because it checks for a buffer overflow.
65 * Don't use getcwd() on systems do use system("sh -c pwd"). There is an
66 * autoconf check for this.
67 * Use getcwd() anyway if getwd() isn't present.
68 */
69#if defined(HAVE_GETCWD) && !(defined(BAD_GETCWD) && defined(HAVE_GETWD))
70# define USE_GETCWD
71#endif
72
Bram Moolenaar071d4272004-06-13 20:20:40 +000073/* always use unlink() to remove files */
74#ifndef PROTO
75# ifdef VMS
76# define mch_remove(x) delete((char *)(x))
77# define vim_mkdir(x, y) mkdir((char *)(x), y)
Bram Moolenaar071d4272004-06-13 20:20:40 +000078# else
79# define vim_mkdir(x, y) mkdir((char *)(x), y)
80# define mch_rmdir(x) rmdir((char *)(x))
81# define mch_remove(x) unlink((char *)(x))
82# endif
83#endif
84
85/* The number of arguments to a signal handler is configured here. */
86/* It used to be a long list of almost all systems. Any system that doesn't
87 * have an argument??? */
88#define SIGHASARG
89
90/* List 3 arg systems here. I guess __sgi, please test and correct me. jw. */
91#if defined(__sgi) && defined(HAVE_SIGCONTEXT)
92# define SIGHAS3ARGS
93#endif
94
95#ifdef SIGHASARG
96# ifdef SIGHAS3ARGS
97# define SIGPROTOARG (int, int, struct sigcontext *)
98# define SIGDEFARG(s) (s, sig2, scont) int s, sig2; struct sigcontext *scont;
99# define SIGDUMMYARG 0, 0, (struct sigcontext *)0
100# else
101# define SIGPROTOARG (int)
Bram Moolenaar78a15312009-05-15 19:33:18 +0000102# define SIGDEFARG(s) (s) int s UNUSED;
Bram Moolenaar071d4272004-06-13 20:20:40 +0000103# define SIGDUMMYARG 0
104# endif
105#else
106# define SIGPROTOARG (void)
107# define SIGDEFARG(s) ()
108# define SIGDUMMYARG
109#endif
110
111#ifdef HAVE_DIRENT_H
112# include <dirent.h>
113# ifndef NAMLEN
114# define NAMLEN(dirent) strlen((dirent)->d_name)
115# endif
116#else
117# define dirent direct
118# define NAMLEN(dirent) (dirent)->d_namlen
119# if HAVE_SYS_NDIR_H
120# include <sys/ndir.h>
121# endif
122# if HAVE_SYS_DIR_H
123# include <sys/dir.h>
124# endif
125# if HAVE_NDIR_H
126# include <ndir.h>
127# endif
128#endif
129
130#if !defined(HAVE_SYS_TIME_H) || defined(TIME_WITH_SYS_TIME)
131# include <time.h> /* on some systems time.h should not be
132 included together with sys/time.h */
133#endif
134#ifdef HAVE_SYS_TIME_H
135# include <sys/time.h>
136#endif
137
138#include <signal.h>
139
140#if defined(DIRSIZ) && !defined(MAXNAMLEN)
141# define MAXNAMLEN DIRSIZ
142#endif
143
144#if defined(UFS_MAXNAMLEN) && !defined(MAXNAMLEN)
145# define MAXNAMLEN UFS_MAXNAMLEN /* for dynix/ptx */
146#endif
147
148#if defined(NAME_MAX) && !defined(MAXNAMLEN)
149# define MAXNAMLEN NAME_MAX /* for Linux before .99p3 */
150#endif
151
152/*
153 * Note: if MAXNAMLEN has the wrong value, you will get error messages
154 * for not being able to open the swap file.
155 */
156#if !defined(MAXNAMLEN)
157# define MAXNAMLEN 512 /* for all other Unix */
158#endif
159
160#define BASENAMELEN (MAXNAMLEN - 5)
161
Bram Moolenaar071d4272004-06-13 20:20:40 +0000162#ifdef HAVE_PWD_H
163# include <pwd.h>
164#endif
165
Bram Moolenaar071d4272004-06-13 20:20:40 +0000166#if (defined(HAVE_SYS_RESOURCE_H) && defined(HAVE_GETRLIMIT)) \
167 || (defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)) \
168 || defined(HAVE_SYSCTL) || defined(HAVE_SYSCONF)
169# define HAVE_TOTAL_MEM
170#endif
171
Bram Moolenaar82881492012-11-20 16:53:39 +0100172
173#ifndef PROTO
174
Bram Moolenaar071d4272004-06-13 20:20:40 +0000175#ifdef VMS
Bram Moolenaar910f66f2006-04-05 20:41:53 +0000176# include <unixio.h>
177# include <unixlib.h>
178# include <signal.h>
179# include <file.h>
180# include <ssdef.h>
181# include <descrip.h>
182# include <libclidef.h>
183# include <lnmdef.h>
184# include <psldef.h>
185# include <prvdef.h>
186# include <dvidef.h>
187# include <dcdef.h>
188# include <stsdef.h>
189# include <iodef.h>
190# include <ttdef.h>
191# include <tt2def.h>
192# include <jpidef.h>
193# include <rms.h>
194# include <trmdef.h>
195# include <string.h>
196# include <starlet.h>
197# include <socket.h>
198# include <lib$routines.h>
Bram Moolenaar4ffa0702013-12-11 17:12:37 +0100199# include <libdef.h>
200# include <libdtdef.h>
Bram Moolenaar910f66f2006-04-05 20:41:53 +0000201
202# ifdef FEAT_GUI_GTK
203# include "gui_gtk_vms.h"
204# endif
Bram Moolenaar82881492012-11-20 16:53:39 +0100205#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000206
Bram Moolenaar82881492012-11-20 16:53:39 +0100207#endif /* PROTO */
208
209#ifdef VMS
Bram Moolenaar071d4272004-06-13 20:20:40 +0000210typedef struct dsc$descriptor DESC;
211#endif
212
213/*
214 * Unix system-dependent file names
215 */
216#ifndef SYS_VIMRC_FILE
217# define SYS_VIMRC_FILE "$VIM/vimrc"
218#endif
219#ifndef SYS_GVIMRC_FILE
220# define SYS_GVIMRC_FILE "$VIM/gvimrc"
221#endif
222#ifndef DFLT_HELPFILE
223# define DFLT_HELPFILE "$VIMRUNTIME/doc/help.txt"
224#endif
225#ifndef FILETYPE_FILE
226# define FILETYPE_FILE "filetype.vim"
227#endif
228#ifndef FTPLUGIN_FILE
229# define FTPLUGIN_FILE "ftplugin.vim"
230#endif
231#ifndef INDENT_FILE
232# define INDENT_FILE "indent.vim"
233#endif
234#ifndef FTOFF_FILE
235# define FTOFF_FILE "ftoff.vim"
236#endif
237#ifndef FTPLUGOF_FILE
238# define FTPLUGOF_FILE "ftplugof.vim"
239#endif
240#ifndef INDOFF_FILE
241# define INDOFF_FILE "indoff.vim"
242#endif
243#ifndef SYS_MENU_FILE
244# define SYS_MENU_FILE "$VIMRUNTIME/menu.vim"
245#endif
246
247#ifndef USR_EXRC_FILE
248# ifdef VMS
249# define USR_EXRC_FILE "sys$login:.exrc"
250# else
251# define USR_EXRC_FILE "$HOME/.exrc"
252# endif
253#endif
254
Bram Moolenaar071d4272004-06-13 20:20:40 +0000255#if !defined(USR_EXRC_FILE2) && defined(VMS)
256# define USR_EXRC_FILE2 "sys$login:_exrc"
257#endif
258
259#ifndef USR_VIMRC_FILE
260# ifdef VMS
261# define USR_VIMRC_FILE "sys$login:.vimrc"
262# else
263# define USR_VIMRC_FILE "$HOME/.vimrc"
264# endif
265#endif
266
Bram Moolenaar22971aa2013-06-12 20:35:58 +0200267
Bram Moolenaarea98f8b2015-05-04 09:31:11 +0200268#if !defined(USR_VIMRC_FILE2)
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100269# ifdef VMS
270# define USR_VIMRC_FILE2 "sys$login:vimfiles/vimrc"
Bram Moolenaar22971aa2013-06-12 20:35:58 +0200271# else
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100272# define USR_VIMRC_FILE2 "~/.vim/vimrc"
Bram Moolenaar22971aa2013-06-12 20:35:58 +0200273# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000274#endif
Bram Moolenaar22971aa2013-06-12 20:35:58 +0200275
Bram Moolenaar22971aa2013-06-12 20:35:58 +0200276#if !defined(USR_VIMRC_FILE3) && defined(VMS)
277# define USR_VIMRC_FILE3 "sys$login:_vimrc"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000278#endif
279
280#ifndef USR_GVIMRC_FILE
281# ifdef VMS
282# define USR_GVIMRC_FILE "sys$login:.gvimrc"
283# else
284# define USR_GVIMRC_FILE "$HOME/.gvimrc"
285# endif
286#endif
287
Bram Moolenaar22971aa2013-06-12 20:35:58 +0200288#ifndef USR_GVIMRC_FILE2
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100289# ifdef VMS
290# define USR_GVIMRC_FILE2 "sys$login:vimfiles/gvimrc"
Bram Moolenaar22971aa2013-06-12 20:35:58 +0200291# else
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100292# define USR_GVIMRC_FILE2 "~/.vim/gvimrc"
Bram Moolenaar22971aa2013-06-12 20:35:58 +0200293# endif
294#endif
295
Bram Moolenaar071d4272004-06-13 20:20:40 +0000296#ifdef VMS
Bram Moolenaar22971aa2013-06-12 20:35:58 +0200297# ifndef USR_GVIMRC_FILE3
298# define USR_GVIMRC_FILE3 "sys$login:_gvimrc"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000299# endif
300#endif
301
Bram Moolenaar8c08b5b2016-07-28 22:24:15 +0200302#ifndef VIM_DEFAULTS_FILE
303# define VIM_DEFAULTS_FILE "$VIMRUNTIME/defaults.vim"
304#endif
305
Bram Moolenaar071d4272004-06-13 20:20:40 +0000306#ifndef EVIM_FILE
307# define EVIM_FILE "$VIMRUNTIME/evim.vim"
308#endif
309
310#ifdef FEAT_VIMINFO
311# ifndef VIMINFO_FILE
312# ifdef VMS
313# define VIMINFO_FILE "sys$login:.viminfo"
314# else
315# define VIMINFO_FILE "$HOME/.viminfo"
316# endif
317# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000318# if !defined(VIMINFO_FILE2) && defined(VMS)
319# define VIMINFO_FILE2 "sys$login:_viminfo"
320# endif
321#endif
322
323#ifndef EXRC_FILE
324# define EXRC_FILE ".exrc"
325#endif
326
327#ifndef VIMRC_FILE
328# define VIMRC_FILE ".vimrc"
329#endif
330
331#ifdef FEAT_GUI
332# ifndef GVIMRC_FILE
333# define GVIMRC_FILE ".gvimrc"
334# endif
335#endif
336
337#ifndef SYNTAX_FNAME
338# define SYNTAX_FNAME "$VIMRUNTIME/syntax/%s.vim"
339#endif
340
341#ifndef DFLT_BDIR
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100342# ifdef VMS
343# define DFLT_BDIR "./,sys$login:,tmp:"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000344# else
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100345# define DFLT_BDIR ".,~/tmp,~/" /* default for 'backupdir' */
Bram Moolenaar071d4272004-06-13 20:20:40 +0000346# endif
347#endif
348
349#ifndef DFLT_DIR
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100350# ifdef VMS
351# define DFLT_DIR "./,sys$login:,tmp:"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000352# else
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100353# define DFLT_DIR ".,~/tmp,/var/tmp,/tmp" /* default for 'directory' */
Bram Moolenaar071d4272004-06-13 20:20:40 +0000354# endif
355#endif
356
357#ifndef DFLT_VDIR
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100358# ifdef VMS
359# define DFLT_VDIR "sys$login:vimfiles/view"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000360# else
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100361# define DFLT_VDIR "$HOME/.vim/view" /* default for 'viewdir' */
Bram Moolenaar071d4272004-06-13 20:20:40 +0000362# endif
363#endif
364
365#define DFLT_ERRORFILE "errors.err"
366
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100367#ifdef VMS
368# define DFLT_RUNTIMEPATH "sys$login:vimfiles,$VIM/vimfiles,$VIMRUNTIME,$VIM/vimfiles/after,sys$login:vimfiles/after"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000369#else
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100370# ifdef RUNTIME_GLOBAL
371# define DFLT_RUNTIMEPATH "~/.vim," RUNTIME_GLOBAL ",$VIMRUNTIME," RUNTIME_GLOBAL "/after,~/.vim/after"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000372# else
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100373# define DFLT_RUNTIMEPATH "~/.vim,$VIM/vimfiles,$VIMRUNTIME,$VIM/vimfiles/after,~/.vim/after"
Bram Moolenaar071d4272004-06-13 20:20:40 +0000374# endif
375#endif
376
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100377#ifdef VMS
378# ifndef VAX
379# define VMS_TEMPNAM /* to fix default .LIS extension */
Bram Moolenaar071d4272004-06-13 20:20:40 +0000380# endif
Bram Moolenaare7fedb62015-12-31 19:07:19 +0100381# define TEMPNAME "TMP:v?XXXXXX.txt"
382# define TEMPNAMELEN 28
383#else
384/* Try several directories to put the temp files. */
385# define TEMPDIRNAMES "$TMPDIR", "/tmp", ".", "$HOME"
386# define TEMPNAMELEN 256
Bram Moolenaar071d4272004-06-13 20:20:40 +0000387#endif
388
389/* Special wildcards that need to be handled by the shell */
390#define SPECIAL_WILDCHAR "`'{"
391
392#ifndef HAVE_OPENDIR
393# define NO_EXPANDPATH
394#endif
395
396/*
397 * Unix has plenty of memory, use large buffers
398 */
399#define CMDBUFFSIZE 1024 /* size of the command processing buffer */
Bram Moolenaar38f12a92008-06-20 16:07:02 +0000400
401/* Use the system path length if it makes sense. */
402#if defined(PATH_MAX) && (PATH_MAX > 1000)
403# define MAXPATHL PATH_MAX
404#else
405# define MAXPATHL 1024
406#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000407
408#define CHECK_INODE /* used when checking if a swap file already
409 exists for a file */
410#ifdef VMS /* Use less memory because of older systems */
411# ifndef DFLT_MAXMEM
412# define DFLT_MAXMEM (2*1024)
413# endif
414# ifndef DFLT_MAXMEMTOT
415# define DFLT_MAXMEMTOT (5*1024)
416# endif
417#else
418# ifndef DFLT_MAXMEM
419# define DFLT_MAXMEM (5*1024) /* use up to 5 Mbyte for a buffer */
420# endif
421# ifndef DFLT_MAXMEMTOT
422# define DFLT_MAXMEMTOT (10*1024) /* use up to 10 Mbyte for Vim */
423# endif
424#endif
425
Bram Moolenaar52c0de12017-01-26 21:36:34 +0100426/* memmove() is not present on all systems, use memmove, bcopy or memcpy.
427 * Some systems have (void *) arguments, some (char *). If we use (char *) it
Bram Moolenaar071d4272004-06-13 20:20:40 +0000428 * works for all */
Bram Moolenaar52c0de12017-01-26 21:36:34 +0100429#if defined(USEMEMMOVE) || (!defined(USEBCOPY) && !defined(USEMEMCPY))
Bram Moolenaar071d4272004-06-13 20:20:40 +0000430# define mch_memmove(to, from, len) memmove((char *)(to), (char *)(from), len)
431#else
432# ifdef USEBCOPY
433# define mch_memmove(to, from, len) bcopy((char *)(from), (char *)(to), len)
434# else
Bram Moolenaar52c0de12017-01-26 21:36:34 +0100435 /* ifdef USEMEMCPY */
Bram Moolenaar071d4272004-06-13 20:20:40 +0000436# define mch_memmove(to, from, len) memcpy((char *)(to), (char *)(from), len)
Bram Moolenaar071d4272004-06-13 20:20:40 +0000437# endif
438#endif
439
440#ifndef PROTO
441# ifdef HAVE_RENAME
442# define mch_rename(src, dst) rename(src, dst)
443# else
Bram Moolenaard99df422016-01-29 23:20:40 +0100444int mch_rename(const char *src, const char *dest);
Bram Moolenaar071d4272004-06-13 20:20:40 +0000445# endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000446# ifndef VMS
447# ifdef __MVS__
Bram Moolenaar3d27a452007-05-10 17:44:18 +0000448 /* on OS390 Unix getenv() doesn't return a pointer to persistent
Bram Moolenaar071d4272004-06-13 20:20:40 +0000449 * storage -> use __getenv() */
450# define mch_getenv(x) (char_u *)__getenv((char *)(x))
451# else
452# define mch_getenv(x) (char_u *)getenv((char *)(x))
453# endif
454# define mch_setenv(name, val, x) setenv(name, val, x)
455# endif
456#endif
457
458#if !defined(S_ISDIR) && defined(S_IFDIR)
459# define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
460#endif
461#if !defined(S_ISREG) && defined(S_IFREG)
462# define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)
463#endif
464#if !defined(S_ISBLK) && defined(S_IFBLK)
465# define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK)
466#endif
467#if !defined(S_ISSOCK) && defined(S_IFSOCK)
468# define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK)
469#endif
470#if !defined(S_ISFIFO) && defined(S_IFIFO)
471# define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO)
472#endif
Bram Moolenaarfe1c56d2007-07-10 15:10:54 +0000473#if !defined(S_ISCHR) && defined(S_IFCHR)
474# define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR)
475#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000476
477/* Note: Some systems need both string.h and strings.h (Savage). However,
478 * some systems can't handle both, only use string.h in that case. */
479#ifdef HAVE_STRING_H
480# include <string.h>
481#endif
482#if defined(HAVE_STRINGS_H) && !defined(NO_STRINGS_WITH_STRING_H)
483# include <strings.h>
484#endif
485
486#if defined(HAVE_SETJMP_H)
487# include <setjmp.h>
488# ifdef HAVE_SIGSETJMP
489# define JMP_BUF sigjmp_buf
490# define SETJMP(x) sigsetjmp((x), 1)
491# define LONGJMP siglongjmp
492# else
493# define JMP_BUF jmp_buf
494# define SETJMP(x) setjmp(x)
495# define LONGJMP longjmp
496# endif
497#endif
498
Bram Moolenaarc41053062014-03-25 13:46:26 +0100499#ifndef HAVE_DUP
500# define HAVE_DUP /* have dup() */
501#endif
Bram Moolenaar071d4272004-06-13 20:20:40 +0000502#define HAVE_ST_MODE /* have stat.st_mode */
503
504/* We have three kinds of ACL support. */
505#define HAVE_ACL (HAVE_POSIX_ACL || HAVE_SOLARIS_ACL || HAVE_AIX_ACL)