1/* vi:set ts=8 sts=4 sw=4: 2 * 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 36#ifdef __EMX__ 37# define HAVE_TOTAL_MEM 38#endif 39 40#if defined(__CYGWIN__) || defined(__CYGWIN32__) 41# define WIN32UNIX /* Compiling for Win32 using Unix files. */ 42# define BINARY_FILE_IO 43 44# define CASE_INSENSITIVE_FILENAME 45# define USE_FNAME_CASE /* Fix filename case differences. */ 46#endif 47 48/* On AIX 4.2 there is a conflicting prototype for ioctl() in stropts.h and 49 * unistd.h. This hack should fix that (suggested by Jeff George). 50 * But on AIX 4.3 it's alright (suggested by Jake Hamby). */ 51#if defined(FEAT_GUI) && defined(_AIX) && !defined(_AIX43) && !defined(_NO_PROTO) 52# define _NO_PROTO 53#endif 54 55#ifdef HAVE_UNISTD_H 56# include <unistd.h> 57#endif 58 59#ifdef HAVE_LIBC_H 60# include <libc.h> /* for NeXT */ 61#endif 62 63#ifdef HAVE_SYS_PARAM_H 64# include <sys/param.h> /* defines BSD, if it's a BSD system */ 65#endif 66 67/* 68 * Sun defines FILE on SunOS 4.x.x, Solaris has a typedef for FILE 69 */ 70#if defined(sun) && !defined(FILE) 71# define SOLARIS 72#endif 73 74/* 75 * Using getcwd() is preferred, because it checks for a buffer overflow. 76 * Don't use getcwd() on systems do use system("sh -c pwd"). There is an 77 * autoconf check for this. 78 * Use getcwd() anyway if getwd() isn't present. 79 */ 80#if defined(HAVE_GETCWD) && !(defined(BAD_GETCWD) && defined(HAVE_GETWD)) 81# define USE_GETCWD 82#endif 83 84#ifndef __ARGS 85 /* The AIX VisualAge cc compiler defines __EXTENDED__ instead of __STDC__ 86 * because it includes pre-ansi features. */ 87# if defined(__STDC__) || defined(__GNUC__) || defined(__EXTENDED__) 88# define __ARGS(x) x 89# else 90# define __ARGS(x) () 91# endif 92#endif 93 94/* always use unlink() to remove files */ 95#ifndef PROTO 96# ifdef VMS 97# define mch_remove(x) delete((char *)(x)) 98# define vim_mkdir(x, y) mkdir((char *)(x), y) 99# ifdef VAX 100# else 101# define mch_rmdir(x) rmdir((char *)(x)) 102# endif 103# else 104# define vim_mkdir(x, y) mkdir((char *)(x), y) 105# define mch_rmdir(x) rmdir((char *)(x)) 106# define mch_remove(x) unlink((char *)(x)) 107# endif 108#endif 109 110/* The number of arguments to a signal handler is configured here. */ 111/* It used to be a long list of almost all systems. Any system that doesn't 112 * have an argument??? */ 113#define SIGHASARG 114 115/* List 3 arg systems here. I guess __sgi, please test and correct me. jw. */ 116#if defined(__sgi) && defined(HAVE_SIGCONTEXT) 117# define SIGHAS3ARGS 118#endif 119 120#ifdef SIGHASARG 121# ifdef SIGHAS3ARGS 122# define SIGPROTOARG (int, int, struct sigcontext *) 123# define SIGDEFARG(s) (s, sig2, scont) int s, sig2; struct sigcontext *scont; 124# define SIGDUMMYARG 0, 0, (struct sigcontext *)0 125# else 126# define SIGPROTOARG (int) 127# define SIGDEFARG(s) (s) int s UNUSED; 128# define SIGDUMMYARG 0 129# endif 130#else 131# define SIGPROTOARG (void) 132# define SIGDEFARG(s) () 133# define SIGDUMMYARG 134#endif 135 136#ifdef HAVE_DIRENT_H 137# include <dirent.h> 138# ifndef NAMLEN 139# define NAMLEN(dirent) strlen((dirent)->d_name) 140# endif 141#else 142# define dirent direct 143# define NAMLEN(dirent) (dirent)->d_namlen 144# if HAVE_SYS_NDIR_H 145# include <sys/ndir.h> 146# endif 147# if HAVE_SYS_DIR_H 148# include <sys/dir.h> 149# endif 150# if HAVE_NDIR_H 151# include <ndir.h> 152# endif 153#endif 154 155#if !defined(HAVE_SYS_TIME_H) || defined(TIME_WITH_SYS_TIME) 156# include <time.h> /* on some systems time.h should not be 157 included together with sys/time.h */ 158#endif 159#ifdef HAVE_SYS_TIME_H 160# include <sys/time.h> 161#endif 162 163#include <signal.h> 164 165#if defined(DIRSIZ) && !defined(MAXNAMLEN) 166# define MAXNAMLEN DIRSIZ 167#endif 168 169#if defined(UFS_MAXNAMLEN) && !defined(MAXNAMLEN) 170# define MAXNAMLEN UFS_MAXNAMLEN /* for dynix/ptx */ 171#endif 172 173#if defined(NAME_MAX) && !defined(MAXNAMLEN) 174# define MAXNAMLEN NAME_MAX /* for Linux before .99p3 */ 175#endif 176 177/* 178 * Note: if MAXNAMLEN has the wrong value, you will get error messages 179 * for not being able to open the swap file. 180 */ 181#if !defined(MAXNAMLEN) 182# define MAXNAMLEN 512 /* for all other Unix */ 183#endif 184 185#define BASENAMELEN (MAXNAMLEN - 5) 186 187#ifdef HAVE_ERRNO_H 188# include <errno.h> 189#endif 190 191#ifdef HAVE_PWD_H 192# include <pwd.h> 193#endif 194 195#ifdef __COHERENT__ 196# undef __ARGS 197#endif 198 199#if (defined(HAVE_SYS_RESOURCE_H) && defined(HAVE_GETRLIMIT)) \ 200 || (defined(HAVE_SYS_SYSINFO_H) && defined(HAVE_SYSINFO)) \ 201 || defined(HAVE_SYSCTL) || defined(HAVE_SYSCONF) 202# define HAVE_TOTAL_MEM 203#endif 204 205#ifdef VMS 206# include <unixio.h> 207# include <unixlib.h> 208# include <signal.h> 209# include <file.h> 210# include <ssdef.h> 211# include <descrip.h> 212# include <libclidef.h> 213# include <lnmdef.h> 214# include <psldef.h> 215# include <prvdef.h> 216# include <dvidef.h> 217# include <dcdef.h> 218# include <stsdef.h> 219# include <iodef.h> 220# include <ttdef.h> 221# include <tt2def.h> 222# include <jpidef.h> 223# include <rms.h> 224# include <trmdef.h> 225# include <string.h> 226# include <starlet.h> 227# include <socket.h> 228# include <lib$routines.h> 229 230# ifdef FEAT_GUI_GTK 231# include "gui_gtk_vms.h" 232# endif 233 234typedef struct dsc$descriptor DESC; 235#endif 236 237/* 238 * Unix system-dependent file names 239 */ 240#ifndef SYS_VIMRC_FILE 241# define SYS_VIMRC_FILE "$VIM/vimrc" 242#endif 243#ifndef SYS_GVIMRC_FILE 244# define SYS_GVIMRC_FILE "$VIM/gvimrc" 245#endif 246#ifndef DFLT_HELPFILE 247# define DFLT_HELPFILE "$VIMRUNTIME/doc/help.txt" 248#endif 249#ifndef FILETYPE_FILE 250# define FILETYPE_FILE "filetype.vim" 251#endif 252#ifndef FTPLUGIN_FILE 253# define FTPLUGIN_FILE "ftplugin.vim" 254#endif 255#ifndef INDENT_FILE 256# define INDENT_FILE "indent.vim" 257#endif 258#ifndef FTOFF_FILE 259# define FTOFF_FILE "ftoff.vim" 260#endif 261#ifndef FTPLUGOF_FILE 262# define FTPLUGOF_FILE "ftplugof.vim" 263#endif 264#ifndef INDOFF_FILE 265# define INDOFF_FILE "indoff.vim" 266#endif 267#ifndef SYS_MENU_FILE 268# define SYS_MENU_FILE "$VIMRUNTIME/menu.vim" 269#endif 270 271#ifndef USR_EXRC_FILE 272# ifdef VMS 273# define USR_EXRC_FILE "sys$login:.exrc" 274# else 275# define USR_EXRC_FILE "$HOME/.exrc" 276# endif 277#endif 278 279#if !defined(USR_EXRC_FILE2) && defined(OS2) 280# define USR_EXRC_FILE2 "$VIM/.exrc" 281#endif 282#if !defined(USR_EXRC_FILE2) && defined(VMS) 283# define USR_EXRC_FILE2 "sys$login:_exrc" 284#endif 285 286#ifndef USR_VIMRC_FILE 287# ifdef VMS 288# define USR_VIMRC_FILE "sys$login:.vimrc" 289# else 290# define USR_VIMRC_FILE "$HOME/.vimrc" 291# endif 292#endif 293 294#if !defined(USR_VIMRC_FILE2) && defined(OS2) 295# define USR_VIMRC_FILE2 "$VIM/.vimrc" 296#endif 297#if !defined(USR_VIMRC_FILE2) && defined(VMS) 298# define USR_VIMRC_FILE2 "sys$login:_vimrc" 299#endif 300 301#ifndef USR_GVIMRC_FILE 302# ifdef VMS 303# define USR_GVIMRC_FILE "sys$login:.gvimrc" 304# else 305# define USR_GVIMRC_FILE "$HOME/.gvimrc" 306# endif 307#endif 308 309#ifdef VMS 310# ifndef USR_GVIMRC_FILE2 311# define USR_GVIMRC_FILE2 "sys$login:_gvimrc" 312# endif 313#endif 314 315#ifndef EVIM_FILE 316# define EVIM_FILE "$VIMRUNTIME/evim.vim" 317#endif 318 319#ifdef FEAT_VIMINFO 320# ifndef VIMINFO_FILE 321# ifdef VMS 322# define VIMINFO_FILE "sys$login:.viminfo" 323# else 324# define VIMINFO_FILE "$HOME/.viminfo" 325# endif 326# endif 327# if !defined(VIMINFO_FILE2) && defined(OS2) 328# define VIMINFO_FILE2 "$VIM/.viminfo" 329# endif 330# if !defined(VIMINFO_FILE2) && defined(VMS) 331# define VIMINFO_FILE2 "sys$login:_viminfo" 332# endif 333#endif 334 335#ifndef EXRC_FILE 336# define EXRC_FILE ".exrc" 337#endif 338 339#ifndef VIMRC_FILE 340# define VIMRC_FILE ".vimrc" 341#endif 342 343#ifdef FEAT_GUI 344# ifndef GVIMRC_FILE 345# define GVIMRC_FILE ".gvimrc" 346# endif 347#endif 348 349#ifndef SYNTAX_FNAME 350# define SYNTAX_FNAME "$VIMRUNTIME/syntax/%s.vim" 351#endif 352 353#ifndef DFLT_BDIR 354# ifdef OS2 355# define DFLT_BDIR ".,c:/tmp,~/tmp,~/" 356# else 357# ifdef VMS 358# define DFLT_BDIR "./,sys$login:,tmp:" 359# else 360# define DFLT_BDIR ".,~/tmp,~/" /* default for 'backupdir' */ 361# endif 362# endif 363#endif 364 365#ifndef DFLT_DIR 366# ifdef OS2 367# define DFLT_DIR ".,~/tmp,c:/tmp,/tmp" 368# else 369# ifdef VMS 370# define DFLT_DIR "./,sys$login:,tmp:" 371# else 372# define DFLT_DIR ".,~/tmp,/var/tmp,/tmp" /* default for 'directory' */ 373# endif 374# endif 375#endif 376 377#ifndef DFLT_VDIR 378# ifdef OS2 379# define DFLT_VDIR "$VIM/vimfiles/view" 380# else 381# ifdef VMS 382# define DFLT_VDIR "sys$login:vimfiles/view" 383# else 384# define DFLT_VDIR "$HOME/.vim/view" /* default for 'viewdir' */ 385# endif 386# endif 387#endif 388 389#define DFLT_ERRORFILE "errors.err" 390 391#ifdef OS2 392# define DFLT_RUNTIMEPATH "$HOME/vimfiles,$VIM/vimfiles,$VIMRUNTIME,$VIM/vimfiles/after,$HOME/vimfiles/after" 393#else 394# ifdef VMS 395# define DFLT_RUNTIMEPATH "sys$login:vimfiles,$VIM/vimfiles,$VIMRUNTIME,$VIM/vimfiles/after,sys$login:vimfiles/after" 396# else 397# ifdef RUNTIME_GLOBAL 398# define DFLT_RUNTIMEPATH "~/.vim," RUNTIME_GLOBAL ",$VIMRUNTIME," RUNTIME_GLOBAL "/after,~/.vim/after" 399# else 400# define DFLT_RUNTIMEPATH "~/.vim,$VIM/vimfiles,$VIMRUNTIME,$VIM/vimfiles/after,~/.vim/after" 401# endif 402# endif 403#endif 404 405#ifdef OS2 406/* 407 * Try several directories to put the temp files. 408 */ 409# define TEMPDIRNAMES "$TMP", "$TEMP", "c:\\TMP", "c:\\TEMP", "" 410# define TEMPNAMELEN 128 411#else 412# ifdef VMS 413# ifndef VAX 414# define VMS_TEMPNAM /* to fix default .LIS extension */ 415# endif 416# define TEMPNAME "TMP:v?XXXXXX.txt" 417# define TEMPNAMELEN 28 418# else 419# define TEMPDIRNAMES "$TMPDIR", "/tmp", ".", "$HOME" 420# define TEMPNAMELEN 256 421# endif 422#endif 423 424/* Special wildcards that need to be handled by the shell */ 425#define SPECIAL_WILDCHAR "`'{" 426 427#ifndef HAVE_OPENDIR 428# define NO_EXPANDPATH 429#endif 430 431/* 432 * Unix has plenty of memory, use large buffers 433 */ 434#define CMDBUFFSIZE 1024 /* size of the command processing buffer */ 435 436/* Use the system path length if it makes sense. */ 437#if defined(PATH_MAX) && (PATH_MAX > 1000) 438# define MAXPATHL PATH_MAX 439#else 440# define MAXPATHL 1024 441#endif 442 443#define CHECK_INODE /* used when checking if a swap file already 444 exists for a file */ 445#ifdef VMS /* Use less memory because of older systems */ 446# ifndef DFLT_MAXMEM 447# define DFLT_MAXMEM (2*1024) 448# endif 449# ifndef DFLT_MAXMEMTOT 450# define DFLT_MAXMEMTOT (5*1024) 451# endif 452#else 453# ifndef DFLT_MAXMEM 454# define DFLT_MAXMEM (5*1024) /* use up to 5 Mbyte for a buffer */ 455# endif 456# ifndef DFLT_MAXMEMTOT 457# define DFLT_MAXMEMTOT (10*1024) /* use up to 10 Mbyte for Vim */ 458# endif 459#endif 460 461/* memmove is not present on all systems, use memmove, bcopy, memcpy or our 462 * own version */ 463/* Some systems have (void *) arguments, some (char *). If we use (char *) it 464 * works for all */ 465#ifdef USEMEMMOVE 466# define mch_memmove(to, from, len) memmove((char *)(to), (char *)(from), len) 467#else 468# ifdef USEBCOPY 469# define mch_memmove(to, from, len) bcopy((char *)(from), (char *)(to), len) 470# else 471# ifdef USEMEMCPY 472# define mch_memmove(to, from, len) memcpy((char *)(to), (char *)(from), len) 473# else 474# define VIM_MEMMOVE /* found in misc2.c */ 475# endif 476# endif 477#endif 478 479#ifndef PROTO 480# ifdef HAVE_RENAME 481# define mch_rename(src, dst) rename(src, dst) 482# else 483int mch_rename __ARGS((const char *src, const char *dest)); 484# endif 485# ifndef VMS 486# ifdef __MVS__ 487 /* on OS390 Unix getenv() doesn't return a pointer to persistent 488 * storage -> use __getenv() */ 489# define mch_getenv(x) (char_u *)__getenv((char *)(x)) 490# else 491# define mch_getenv(x) (char_u *)getenv((char *)(x)) 492# endif 493# define mch_setenv(name, val, x) setenv(name, val, x) 494# endif 495#endif 496 497#if !defined(S_ISDIR) && defined(S_IFDIR) 498# define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) 499#endif 500#if !defined(S_ISREG) && defined(S_IFREG) 501# define S_ISREG(m) (((m) & S_IFMT) == S_IFREG) 502#endif 503#if !defined(S_ISBLK) && defined(S_IFBLK) 504# define S_ISBLK(m) (((m) & S_IFMT) == S_IFBLK) 505#endif 506#if !defined(S_ISSOCK) && defined(S_IFSOCK) 507# define S_ISSOCK(m) (((m) & S_IFMT) == S_IFSOCK) 508#endif 509#if !defined(S_ISFIFO) && defined(S_IFIFO) 510# define S_ISFIFO(m) (((m) & S_IFMT) == S_IFIFO) 511#endif 512#if !defined(S_ISCHR) && defined(S_IFCHR) 513# define S_ISCHR(m) (((m) & S_IFMT) == S_IFCHR) 514#endif 515 516/* Note: Some systems need both string.h and strings.h (Savage). However, 517 * some systems can't handle both, only use string.h in that case. */ 518#ifdef HAVE_STRING_H 519# include <string.h> 520#endif 521#if defined(HAVE_STRINGS_H) && !defined(NO_STRINGS_WITH_STRING_H) 522# include <strings.h> 523#endif 524 525#if defined(HAVE_SETJMP_H) 526# include <setjmp.h> 527# ifdef HAVE_SIGSETJMP 528# define JMP_BUF sigjmp_buf 529# define SETJMP(x) sigsetjmp((x), 1) 530# define LONGJMP siglongjmp 531# else 532# define JMP_BUF jmp_buf 533# define SETJMP(x) setjmp(x) 534# define LONGJMP longjmp 535# endif 536#endif 537 538#define HAVE_DUP /* have dup() */ 539#define HAVE_ST_MODE /* have stat.st_mode */ 540 541/* We have three kinds of ACL support. */ 542#define HAVE_ACL (HAVE_POSIX_ACL || HAVE_SOLARIS_ACL || HAVE_AIX_ACL) 543