src/emacs.c

   1 /* Fully extensible Emacs, running on Unix, intended for GNU.
   2    Copyright (C) 1985, 1986, 1987, 1993, 1994 Free Software Foundation, Inc.
   3
   4 This file is part of GNU Emacs.
   5
   6 GNU Emacs is free software; you can redistribute it and/or modify
   7 it under the terms of the GNU General Public License as published by
   8 the Free Software Foundation; either version 2, or (at your option)
   9 any later version.
  10
  11 GNU Emacs is distributed in the hope that it will be useful,
  12 but WITHOUT ANY WARRANTY; without even the implied warranty of
  13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  14 GNU General Public License for more details.
  15
  16 You should have received a copy of the GNU General Public License
  17 along with GNU Emacs; see the file COPYING.  If not, write to
  18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA.  */
  19
  20
  21 #include <signal.h>
  22 #include <errno.h>
  23
  24 #include <config.h>
  25 #include <stdio.h>
  26
  27 #include <sys/types.h>
  28 #include <sys/file.h>
  29
  30 #ifdef VMS
  31 #include <ssdef.h>
  32 #endif
  33
  34 #ifdef BSD
  35 #include <sys/ioctl.h>
  36 #endif
  37
  38 #ifdef APOLLO
  39 #ifndef APOLLO_SR10
  40 #include <default_acl.h>
  41 #endif
  42 #endif
  43
  44 #include "lisp.h"
  45 #include "commands.h"
  46 #include "intervals.h"
  47
  48 #include "systty.h"
  49 #include "syssignal.h"
  50 #include "process.h"
  51
  52 #ifndef O_RDWR
  53 #define O_RDWR 2
  54 #endif
  55
  56 extern void malloc_warning ();
  57 extern char *index ();
  58 extern char *strerror ();
  59
  60 /* Command line args from shell, as list of strings */
  61 Lisp_Object Vcommand_line_args;
  62
  63 /* The name under which Emacs was invoked, with any leading directory
  64    names discarded.  */
  65 Lisp_Object Vinvocation_name;
  66
  67 /* The directory name from which Emacs was invoked.  */
  68 Lisp_Object Vinvocation_directory;
  69
  70 /* The directory name in which to find subdirs such as lisp and etc.
  71    nil means get them only from PATH_LOADSEARCH.  */
  72 Lisp_Object Vinstallation_directory;
  73
  74 /* Hook run by `kill-emacs' before it does really anything.  */
  75 Lisp_Object Vkill_emacs_hook;
  76
  77 /* Set nonzero after Emacs has started up the first time.
  78   Prevents reinitialization of the Lisp world and keymaps
  79   on subsequent starts.  */
  80 int initialized;
  81
  82 /* Variable whose value is symbol giving operating system type.  */
  83 Lisp_Object Vsystem_type;
  84
  85 /* Variable whose value is string giving configuration built for.  */
  86 Lisp_Object Vsystem_configuration;
  87
  88 /* Variable whose value is string giving configuration options,
  89    for use when reporting bugs.  */
  90 Lisp_Object Vsystem_configuration_options;
  91
  92 /* If non-zero, emacs should not attempt to use an window-specific code,
  93    but instead should use the virtual terminal under which it was started */
  94 int inhibit_window_system;
  95
  96 /* If nonzero, set Emacs to run at this priority.  This is also used
  97    in child_setup and sys_suspend to make sure subshells run at normal
  98    priority; Those functions have their own extern declaration.  */
  99 int emacs_priority;
 100
 101 #ifdef BSD_PGRPS
 102 /* See sysdep.c.  */
 103 extern int inherited_pgroup;
 104 #endif
 105
 106 #ifdef HAVE_X_WINDOWS
 107 /* If non-zero, -d was specified, meaning we're using some window system. */
 108 int display_arg;
 109 #endif
 110
 111 /* An address near the bottom of the stack.
 112    Tells GC how to save a copy of the stack.  */
 113 char *stack_bottom;
 114
 115 #ifdef HAVE_X_WINDOWS
 116 extern Lisp_Object Vwindow_system;
 117 #endif /* HAVE_X_WINDOWS */
 118
 119 #ifdef USG_SHARED_LIBRARIES
 120 /* If nonzero, this is the place to put the end of the writable segment
 121    at startup.  */
 122
 123 unsigned int bss_end = 0;
 124 #endif
 125
 126 /* Nonzero means running Emacs without interactive terminal.  */
 127
 128 int noninteractive;
 129
 130 /* Value of Lisp variable `noninteractive'.
 131    Normally same as C variable `noninteractive'
 132    but nothing terrible happens if user sets this one.  */
 133
 134 int noninteractive1;
 135
 136 /* Save argv and argc.  */
 137 char **initial_argv;
 138 int initial_argc;
 139 \f
 140 /* Signal code for the fatal signal that was received */
 141 int fatal_error_code;
 142
 143 /* Nonzero if handling a fatal error already */
 144 int fatal_error_in_progress;
 145
 146 /* Handle bus errors, illegal instruction, etc. */
 147 SIGTYPE
 148 fatal_error_signal (sig)
 149      int sig;
 150 {
 151   fatal_error_code = sig;
 152   signal (sig, SIG_DFL);
 153
 154   /* If fatal error occurs in code below, avoid infinite recursion.  */
 155   if (! fatal_error_in_progress)
 156     {
 157       fatal_error_in_progress = 1;
 158
 159       shut_down_emacs (sig, 0, Qnil);
 160     }
 161
 162 #ifdef VMS
 163   LIB$STOP (SS$_ABORT);
 164 #else
 165   /* Signal the same code; this time it will really be fatal.
 166      Remember that since we're in a signal handler, the signal we're
 167      going to send is probably blocked, so we have to unblock it if we
 168      want to really receive it.  */
 169 #ifndef MSDOS
 170   sigunblock (sigmask (fatal_error_code));
 171 #endif
 172   kill (getpid (), fatal_error_code);
 173 #endif /* not VMS */
 174 }
 175
 176 #ifdef SIGDANGER
 177
 178 /* Handler for SIGDANGER.  */
 179 SIGTYPE
 180 memory_warning_signal (sig)
 181      int sig;
 182 {
 183   signal (sig, memory_warning_signal);
 184
 185   malloc_warning ("Operating system warns that virtual memory is running low.\n");
 186
 187   /* It might be unsafe to call do_auto_save now.  */
 188   force_auto_save_soon ();
 189 }
 190 #endif
 191 \f
 192 /* Code for dealing with Lisp access to the Unix command line */
 193
 194 static
 195 init_cmdargs (argc, argv, skip_args)
 196      int argc;
 197      char **argv;
 198      int skip_args;
 199 {
 200   register int i;
 201   Lisp_Object name, dir;
 202
 203   initial_argv = argv;
 204   initial_argc = argc;
 205
 206   Vinvocation_name = Ffile_name_nondirectory (build_string (argv[0]));
 207   Vinvocation_directory = Ffile_name_directory (build_string (argv[0]));
 208   /* If we got no directory in argv[0], search PATH to find where
 209      Emacs actually came from.  */
 210   if (NILP (Vinvocation_directory))
 211     {
 212       Lisp_Object found;
 213       int yes = openp (Vexec_path, Vinvocation_name,
 214                        EXEC_SUFFIXES, &found, 1);
 215       if (yes == 1)
 216         Vinvocation_directory = Ffile_name_directory (found);
 217     }
 218
 219   Vinstallation_directory = Qnil;
 220
 221   if (!NILP (Vinvocation_directory))
 222     {
 223       dir = Vinvocation_directory;
 224       name = Fexpand_file_name (Vinvocation_name, dir);
 225       while (1)
 226         {
 227           Lisp_Object tem, lib_src_exists;
 228           Lisp_Object etc_exists, info_exists;
 229
 230           /* See if dir contains subdirs for use by Emacs.
 231              Check for the ones that would exist in a build directory,
 232              not including lisp and info.  */
 233           tem = Fexpand_file_name (build_string ("lib-src"), dir);
 234           lib_src_exists = Ffile_exists_p (tem);
 235           if (!NILP (lib_src_exists))
 236             {
 237               tem = Fexpand_file_name (build_string ("etc"), dir);
 238               etc_exists = Ffile_exists_p (tem);
 239               if (!NILP (etc_exists))
 240                 {
 241                   Vinstallation_directory
 242                     = Ffile_name_as_directory (dir);
 243                   break;
 244                 }
 245             }
 246
 247           /* See if dir's parent contains those subdirs.  */
 248           tem = Fexpand_file_name (build_string ("../lib-src"), dir);
 249           lib_src_exists = Ffile_exists_p (tem);
 250           if (!NILP (lib_src_exists))
 251             {
 252               tem = Fexpand_file_name (build_string ("../etc"), dir);
 253               etc_exists = Ffile_exists_p (tem);
 254               if (!NILP (etc_exists))
 255                 {
 256                   tem = Fexpand_file_name (build_string (".."), dir);
 257                   Vinstallation_directory
 258                     = Ffile_name_as_directory (tem);
 259                   break;
 260                 }
 261             }
 262
 263           /* If the Emacs executable is actually a link,
 264              next try the dir that the link points into.  */
 265           tem = Ffile_symlink_p (name);
 266           if (!NILP (tem))
 267             {
 268               name = Fexpand_file_name (tem, dir);
 269               dir = Ffile_name_directory (name);
 270             }
 271           else
 272             break;
 273         }
 274     }
 275
 276   Vcommand_line_args = Qnil;
 277
 278   for (i = argc - 1; i >= 0; i--)
 279     {
 280       if (i == 0 || i > skip_args)
 281         Vcommand_line_args
 282           = Fcons (build_string (argv[i]), Vcommand_line_args);
 283     }
 284 }
 285
 286 DEFUN ("invocation-name", Finvocation_name, Sinvocation_name, 0, 0, 0,
 287   "Return the program name that was used to run Emacs.\n\
 288 Any directory names are omitted.")
 289   ()
 290 {
 291   return Fcopy_sequence (Vinvocation_name);
 292 }
 293
 294 DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory,
 295   0, 0, 0,
 296   "Return the directory name in which the Emacs executable was located")
 297   ()
 298 {
 299   return Fcopy_sequence (Vinvocation_directory);
 300 }
 301
 302 \f
 303 #ifdef VMS
 304 #ifdef LINK_CRTL_SHARE
 305 #ifdef SHAREABLE_LIB_BUG
 306 extern noshare char **environ;
 307 #endif /* SHAREABLE_LIB_BUG */
 308 #endif /* LINK_CRTL_SHARE */
 309 #endif /* VMS */
 310
 311 #ifndef ORDINARY_LINK
 312 /* We don't include crtbegin.o and crtend.o in the link,
 313    so these functions and variables might be missed.
 314    Provide dummy definitions to avoid error.
 315    (We don't have any real constructors or destructors.)  */
 316 #ifdef __GNUC__
 317 #ifndef GCC_CTORS_IN_LIBC
 318 __do_global_ctors ()
 319 {}
 320 __do_global_ctors_aux ()
 321 {}
 322 __do_global_dtors ()
 323 {}
 324 /* Linux has a bug in its library; avoid an error.  */
 325 #ifndef LINUX
 326 char * __CTOR_LIST__[2] = { (char *) (-1), 0 };
 327 #endif
 328 char * __DTOR_LIST__[2] = { (char *) (-1), 0 };
 329 #endif /* GCC_CTORS_IN_LIBC */
 330 __main ()
 331 {}
 332 #endif /* __GNUC__ */
 333 #endif /* ORDINARY_LINK */
 334
 335 /* Test whether the next argument in ARGV matches SSTR or a prefix of
 336    LSTR (at least MINLEN characters).  If so, then if VALPTR is non-null
 337    (the argument is supposed to have a value) store in *VALPTR either
 338    the next argument or the portion of this one after the equal sign.
 339    ARGV is read starting at position *SKIPPTR; this index is advanced
 340    by the number of arguments used.
 341
 342    Too bad we can't just use getopt for all of this, but we don't have
 343    enough information to do it right.  */
 344 static int
 345 argmatch (argv, sstr, lstr, minlen, valptr, skipptr)
 346      char **argv;
 347      char *sstr;
 348      char *lstr;
 349      int minlen;
 350      char **valptr;
 351      int *skipptr;
 352 {
 353   char *p;
 354   int arglen;
 355   char *arg = argv[*skipptr+1];
 356   if (arg == NULL)
 357     return 0;
 358   if (strcmp (arg, sstr) == 0)
 359     {
 360       if (valptr != NULL)
 361         {
 362           *valptr = argv[*skipptr+2];
 363           *skipptr += 2;
 364         }
 365       else
 366         *skipptr += 1;
 367       return 1;
 368     }
 369   arglen = (valptr != NULL && (p = index (arg, '=')) != NULL
 370             ? p - arg : strlen (arg));
 371   if (arglen < minlen || strncmp (arg, lstr, arglen) != 0)
 372     return 0;
 373   else if (valptr == NULL)
 374     {
 375       *skipptr += 1;
 376       return 1;
 377     }
 378   else if (p != NULL)
 379     {
 380       *valptr = p+1;
 381       *skipptr += 1;
 382       return 1;
 383     }
 384   else if (argv[*skipptr+2] != NULL)
 385     {
 386       *valptr = argv[*skipptr+2];
 387       *skipptr += 2;
 388       return 1;
 389     }
 390   else
 391     {
 392       return 0;
 393     }
 394 }
 395
 396 /* ARGSUSED */
 397 main (argc, argv, envp)
 398      int argc;
 399      char **argv;
 400      char **envp;
 401 {
 402   char stack_bottom_variable;
 403   int skip_args = 0;
 404   extern int errno;
 405   extern sys_nerr;
 406
 407 /* Map in shared memory, if we are using that.  */
 408 #ifdef HAVE_SHM
 409   if (argmatch (argv, "-nl", "--no-shared-memory", 6, NULL, &skip_args))
 410     {
 411       map_in_data (0);
 412       /* The shared memory was just restored, which clobbered this.  */
 413       skip_args = 1;
 414     }
 415   else
 416     {
 417       map_in_data (1);
 418       /* The shared memory was just restored, which clobbered this.  */
 419       skip_args = 0;
 420     }
 421 #endif
 422
 423 #ifdef NeXT
 424   extern int malloc_cookie;
 425
 426   /* This helps out unexnext.c.  */
 427   if (initialized)
 428     if (malloc_jumpstart (malloc_cookie) != 0)
 429       printf ("malloc jumpstart failed!\n");
 430 #endif /* NeXT */
 431
 432 #ifdef HAVE_X_WINDOWS
 433   /* Stupid kludge to catch command-line display spec.  We can't
 434      handle this argument entirely in window system dependent code
 435      because we don't even know which window system dependent code
 436      to run until we've recognized this argument.  */
 437   {
 438     int i;
 439
 440     /* We don't check for a long option --display here, since the X code
 441        won't be able to recognize that form anyway.  */
 442     for (i = 1; (i < argc && ! display_arg); i++)
 443       if (!strcmp (argv[i], "-d") || !strcmp (argv[i], "-display"))
 444         display_arg = 1;
 445   }
 446 #endif
 447
 448 #ifdef VMS
 449   /* If -map specified, map the data file in */
 450   {
 451     char *file;
 452     if (argmatch (argv, "-map", "--map-data", 3, &mapin_file, &skip_args))
 453       mapin_data (file);
 454   }
 455
 456 #ifdef LINK_CRTL_SHARE
 457 #ifdef SHAREABLE_LIB_BUG
 458   /* Bletcherous shared libraries! */
 459   if (!stdin)
 460     stdin = fdopen (0, "r");
 461   if (!stdout)
 462     stdout = fdopen (1, "w");
 463   if (!stderr)
 464     stderr = fdopen (2, "w");
 465   if (!environ)
 466     environ = envp;
 467 #endif /* SHAREABLE_LIB_BUG */
 468 #endif /* LINK_CRTL_SHARE */
 469 #endif /* VMS */
 470
 471   /* Record (approximately) where the stack begins.  */
 472   stack_bottom = &stack_bottom_variable;
 473
 474 #ifdef RUN_TIME_REMAP
 475   if (initialized)
 476     run_time_remap (argv[0]);
 477 #endif
 478
 479 #ifdef USG_SHARED_LIBRARIES
 480   if (bss_end)
 481     brk (bss_end);
 482 #endif
 483
 484   clearerr (stdin);
 485
 486 #ifdef APOLLO
 487 #ifndef APOLLO_SR10
 488   /* If USE_DOMAIN_ACLS environment variable exists,
 489      use ACLs rather than UNIX modes. */
 490   if (egetenv ("USE_DOMAIN_ACLS"))
 491     default_acl (USE_DEFACL);
 492 #endif
 493 #endif /* APOLLO */
 494
 495 #ifndef SYSTEM_MALLOC
 496   if (! initialized)
 497     {
 498       /* Arrange to get warning messages as memory fills up.  */
 499       memory_warnings (0, malloc_warning);
 500
 501       /* Arrange to disable interrupt input while malloc and friends are
 502          running.  */
 503       uninterrupt_malloc ();
 504     }
 505 #endif  /* not SYSTEM_MALLOC */
 506
 507 #ifdef MSDOS
 508   /* We do all file input/output as binary files.  When we need to translate
 509      newlines, we do that manually.  */
 510   _fmode = O_BINARY;
 511   (stdin)->_flag &= ~_IOTEXT;
 512   (stdout)->_flag &= ~_IOTEXT;
 513   (stderr)->_flag &= ~_IOTEXT;
 514 #endif /* MSDOS */
 515
 516 #ifdef SET_EMACS_PRIORITY
 517   if (emacs_priority)
 518     nice (emacs_priority);
 519   setuid (getuid ());
 520 #endif /* SET_EMACS_PRIORITY */
 521
 522 #ifdef EXTRA_INITIALIZE
 523   EXTRA_INITIALIZE;
 524 #endif
 525
 526   inhibit_window_system = 0;
 527
 528   /* Handle the -t switch, which specifies filename to use as terminal */
 529   {
 530     char *term;
 531     if (argmatch (argv, "-t", "--terminal", 4, &term, &skip_args))
 532       {
 533         int result;
 534         close (0);
 535         close (1);
 536         result = open (term, O_RDWR, 2 );
 537         if (result < 0)
 538           {
 539             char *errstring = strerror (errno);
 540             fprintf (stderr, "emacs: %s: %s\n", term, errstring);
 541             exit (1);
 542           }
 543         dup (0);
 544         if (! isatty (0))
 545           {
 546             fprintf (stderr, "emacs: %s: not a tty\n", term);
 547             exit (1);
 548           }
 549         fprintf (stderr, "Using %s\n", term);
 550 #ifdef HAVE_X_WINDOWS
 551         inhibit_window_system = 1; /* -t => -nw */
 552 #endif
 553       }
 554   }
 555   if (argmatch (argv, "-nw", "--no-windows", 6, NULL, &skip_args))
 556     inhibit_window_system = 1;
 557
 558   /* Handle the -batch switch, which means don't do interactive display.  */
 559   noninteractive = 0;
 560   if (argmatch (argv, "-batch", "--batch", 5, NULL, &skip_args))
 561     noninteractive = 1;
 562
 563   /* Handle the --help option, which gives a usage message..  */
 564   if (argmatch (argv, "-help", "--help", 3, NULL, &skip_args))
 565     {
 566       printf ("\
 567 Usage: %s [-t term] [--terminal term]  [-nw] [--no-windows]  [--batch]\n\
 568       [-q] [--no-init-file]  [-u user] [--user user]  [--debug-init]\n\
 569 \(Arguments above this line must be first; those below may be in any order)\n\
 570       [-f func] [--funcall func]  [-l file] [--load file]  [--insert file]\n\
 571       file-to-visit  [--kill]\n", argv[0]);
 572       exit (0);
 573     }
 574
 575   if (! noninteractive)
 576     {
 577 #ifdef BSD_PGRPS
 578       if (initialized)
 579         {
 580           inherited_pgroup = EMACS_GETPGRP (0);
 581           setpgrp (0, getpid ());
 582         }
 583 #else
 584 #if defined (USG5) && defined (INTERRUPT_INPUT)
 585       setpgrp ();
 586 #endif
 587 #endif
 588     }
 589
 590 #ifdef POSIX_SIGNALS
 591   init_signals ();
 592 #endif
 593
 594   if (
 595 #ifndef CANNOT_DUMP
 596       ! noninteractive || initialized
 597 #else
 598       1
 599 #endif
 600       )
 601     {
 602       /* Don't catch these signals in batch mode if not initialized.
 603          On some machines, this sets static data that would make
 604          signal fail to work right when the dumped Emacs is run.  */
 605       signal (SIGHUP, fatal_error_signal);
 606       signal (SIGQUIT, fatal_error_signal);
 607       signal (SIGILL, fatal_error_signal);
 608       signal (SIGTRAP, fatal_error_signal);
 609 #ifdef SIGIOT
 610       /* This is missing on some systems - OS/2, for example.  */
 611       signal (SIGIOT, fatal_error_signal);
 612 #endif
 613 #ifdef SIGEMT
 614       signal (SIGEMT, fatal_error_signal);
 615 #endif
 616       signal (SIGFPE, fatal_error_signal);
 617 #ifdef SIGBUS
 618       signal (SIGBUS, fatal_error_signal);
 619 #endif
 620       signal (SIGSEGV, fatal_error_signal);
 621 #ifdef SIGSYS
 622       signal (SIGSYS, fatal_error_signal);
 623 #endif
 624       signal (SIGTERM, fatal_error_signal);
 625 #ifdef SIGXCPU
 626       signal (SIGXCPU, fatal_error_signal);
 627 #endif
 628 #ifdef SIGXFSZ
 629       signal (SIGXFSZ, fatal_error_signal);
 630 #endif /* SIGXFSZ */
 631
 632 #ifdef SIGDANGER
 633       /* This just means available memory is getting low.  */
 634       signal (SIGDANGER, memory_warning_signal);
 635 #endif
 636
 637 #ifdef AIX
 638 /* 20 is SIGCHLD, 21 is SIGTTIN, 22 is SIGTTOU.  */
 639       signal (SIGXCPU, fatal_error_signal);
 640 #ifndef _I386
 641       signal (SIGIOINT, fatal_error_signal);
 642 #endif
 643       signal (SIGGRANT, fatal_error_signal);
 644       signal (SIGRETRACT, fatal_error_signal);
 645       signal (SIGSOUND, fatal_error_signal);
 646       signal (SIGMSG, fatal_error_signal);
 647 #endif /* AIX */
 648     }
 649
 650   noninteractive1 = noninteractive;
 651
 652 /* Perform basic initializations (not merely interning symbols) */
 653
 654   if (!initialized)
 655     {
 656       init_alloc_once ();
 657       init_obarray ();
 658       init_eval_once ();
 659       init_syntax_once ();      /* Create standard syntax table.  */
 660                       /* Must be done before init_buffer */
 661       init_casetab_once ();
 662       init_buffer_once ();      /* Create buffer table and some buffers */
 663       init_minibuf_once ();     /* Create list of minibuffers */
 664                               /* Must precede init_window_once */
 665       init_window_once ();      /* Init the window system */
 666     }
 667
 668   init_alloc ();
 669   init_eval ();
 670   init_data ();
 671
 672 #ifdef MSDOS
 673   /* Call early 'cause init_environment needs it.  */
 674   init_dosfns ();
 675   /* Set defaults for several environment variables.  */
 676   if (initialized) init_environment (argc, argv, skip_args);
 677 #endif
 678
 679   /* egetenv is a pretty low-level facility, which may get called in
 680      many circumstances; it seems flimsy to put off initializing it
 681      until calling init_callproc.  */
 682   set_process_environment ();
 683   /* AIX crashes are reported in system versions 3.2.3 and 3.2.4
 684      if this is not done.  Do it after set_process_environment so that we
 685      don't pollute Vprocess_environment.  */
 686 #ifdef AIX
 687   putenv ("LANG=C");
 688 #endif
 689
 690   init_buffer ();       /* Init default directory of main buffer */
 691
 692   init_callproc_1 ();   /* Must precede init_cmdargs and init_sys_modes.  */
 693   init_cmdargs (argc, argv, skip_args); /* Must precede init_lread.  */
 694   init_callproc ();     /* Must follow init_cmdargs but not init_sys_modes.  */
 695   init_lread ();
 696
 697   if (!noninteractive)
 698     {
 699 #ifdef VMS
 700       init_vms_input ();/* init_display calls get_frame_size, that needs this */
 701 #endif /* VMS */
 702       init_display ();  /* Determine terminal type.  init_sys_modes uses results */
 703     }
 704   init_keyboard ();     /* This too must precede init_sys_modes */
 705 #ifdef VMS
 706   init_vmsproc ();      /* And this too. */
 707 #endif /* VMS */
 708   init_sys_modes ();    /* Init system terminal modes (RAW or CBREAK, etc.) */
 709   init_xdisp ();
 710   init_macros ();
 711   init_editfns ();
 712 #ifdef LISP_FLOAT_TYPE
 713   init_floatfns ();
 714 #endif
 715 #ifdef VMS
 716   init_vmsfns ();
 717 #endif /* VMS */
 718   init_process ();
 719 #ifdef CLASH_DETECTION
 720   init_filelock ();
 721 #endif /* CLASH_DETECTION */
 722
 723 /* Intern the names of all standard functions and variables; define standard keys */
 724
 725   if (!initialized)
 726     {
 727       /* The basic levels of Lisp must come first */
 728       /* And data must come first of all
 729          for the sake of symbols like error-message */
 730       syms_of_data ();
 731       syms_of_alloc ();
 732       syms_of_lread ();
 733       syms_of_print ();
 734       syms_of_eval ();
 735       syms_of_fns ();
 736       syms_of_floatfns ();
 737
 738       syms_of_abbrev ();
 739       syms_of_buffer ();
 740       syms_of_bytecode ();
 741       syms_of_callint ();
 742       syms_of_casefiddle ();
 743       syms_of_casetab ();
 744       syms_of_callproc ();
 745       syms_of_cmds ();
 746 #ifndef NO_DIR_LIBRARY
 747       syms_of_dired ();
 748 #endif /* not NO_DIR_LIBRARY */
 749       syms_of_display ();
 750       syms_of_doc ();
 751       syms_of_editfns ();
 752       syms_of_emacs ();
 753       syms_of_fileio ();
 754 #ifdef CLASH_DETECTION
 755       syms_of_filelock ();
 756 #endif /* CLASH_DETECTION */
 757       syms_of_indent ();
 758       syms_of_keyboard ();
 759       syms_of_keymap ();
 760       syms_of_macros ();
 761       syms_of_marker ();
 762       syms_of_minibuf ();
 763       syms_of_mocklisp ();
 764       syms_of_process ();
 765       syms_of_search ();
 766       syms_of_frame ();
 767       syms_of_syntax ();
 768       syms_of_term ();
 769       syms_of_undo ();
 770
 771       /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */
 772       syms_of_textprop ();
 773 #ifdef VMS
 774       syms_of_vmsproc ();
 775 #endif /* VMS */
 776       syms_of_window ();
 777       syms_of_xdisp ();
 778 #ifdef HAVE_X_WINDOWS
 779       syms_of_xterm ();
 780       syms_of_xfns ();
 781       syms_of_xfaces ();
 782 #ifdef HAVE_X11
 783       syms_of_xselect ();
 784 #endif
 785 #ifdef HAVE_X_MENU
 786       syms_of_xmenu ();
 787 #endif /* HAVE_X_MENU */
 788 #endif /* HAVE_X_WINDOWS */
 789
 790 #if defined (MSDOS) && !defined (HAVE_X_WINDOWS)
 791       syms_of_xfaces ();
 792       syms_of_xmenu ();
 793 #endif
 794
 795 #ifdef SYMS_SYSTEM
 796       SYMS_SYSTEM;
 797 #endif
 798
 799 #ifdef SYMS_MACHINE
 800       SYMS_MACHINE;
 801 #endif
 802
 803       keys_of_casefiddle ();
 804       keys_of_cmds ();
 805       keys_of_buffer ();
 806       keys_of_keyboard ();
 807       keys_of_keymap ();
 808       keys_of_macros ();
 809       keys_of_minibuf ();
 810       keys_of_window ();
 811       keys_of_frame ();
 812     }
 813
 814   if (!initialized)
 815     {
 816       char *file;
 817       /* Handle -l loadup-and-dump, args passed by Makefile. */
 818       if (argmatch (argv, "-l", "--load", 3, &file, &skip_args))
 819         Vtop_level = Fcons (intern ("load"),
 820                             Fcons (build_string (file), Qnil));
 821 #ifdef CANNOT_DUMP
 822       /* Unless next switch is -nl, load "loadup.el" first thing.  */
 823       if (!argmatch (argv, "-nl", "--no-loadup", 6, NULL, &skip_args))
 824         Vtop_level = Fcons (intern ("load"),
 825                             Fcons (build_string ("loadup.el"), Qnil));
 826 #endif /* CANNOT_DUMP */
 827     }
 828
 829   initialized = 1;
 830
 831 #if defined (sun) || defined (LOCALTIME_CACHE)
 832   /* sun's localtime has a bug.  it caches the value of the time
 833      zone rather than looking it up every time.  Since localtime() is
 834      called to bolt the undumping time into the undumped emacs, this
 835      results in localtime ignoring the TZ environment variable.
 836      This flushes the new TZ value into localtime. */
 837   tzset ();
 838 #endif /* defined (sun) || defined (LOCALTIME_CACHE) */
 839
 840   /* Handle the GNU standard option --version.  */
 841   if (argmatch (argv, "-version", "--version", 3, NULL, &skip_args))
 842     {
 843       Lisp_Object ver;
 844       ver = call0 (intern ("emacs-version"));
 845       if (STRINGP (ver))
 846         printf ("%s\n", XSTRING (ver)->data);
 847       exit (0);
 848     }
 849
 850   /* Enter editor command loop.  This never returns.  */
 851   Frecursive_edit ();
 852   /* NOTREACHED */
 853 }
 854 \f
 855 DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P",
 856   "Exit the Emacs job and kill it.\n\
 857 If ARG is an integer, return ARG as the exit program code.\n\
 858 If ARG is a  string, stuff it as keyboard input.\n\n\
 859 The value of `kill-emacs-hook', if not void,\n\
 860 is a list of functions (of no args),\n\
 861 all of which are called before Emacs is actually killed.")
 862   (arg)
 863      Lisp_Object arg;
 864 {
 865   Lisp_Object hook, hook1;
 866   int i;
 867   struct gcpro gcpro1;
 868
 869   GCPRO1 (arg);
 870
 871   if (feof (stdin))
 872     arg = Qt;
 873
 874   if (!NILP (Vrun_hooks) && !noninteractive)
 875     call1 (Vrun_hooks, intern ("kill-emacs-hook"));
 876
 877   UNGCPRO;
 878
 879 /* Is it really necessary to do this deassign
 880    when we are going to exit anyway?  */
 881 /* #ifdef VMS
 882   stop_vms_input ();
 883  #endif  */
 884
 885   shut_down_emacs (0, 0, STRINGP (arg) ? arg : Qnil);
 886
 887   exit (INTEGERP (arg) ? XINT (arg)
 888 #ifdef VMS
 889         : 1
 890 #else
 891         : 0
 892 #endif
 893         );
 894   /* NOTREACHED */
 895 }
 896
 897
 898 /* Perform an orderly shutdown of Emacs.  Autosave any modified
 899    buffers, kill any child processes, clean up the terminal modes (if
 900    we're in the foreground), and other stuff like that.  Don't perform
 901    any redisplay; this may be called when Emacs is shutting down in
 902    the background, or after its X connection has died.
 903
 904    If SIG is a signal number, print a message for it.
 905
 906    This is called by fatal signal handlers, X protocol error handlers,
 907    and Fkill_emacs.  */
 908
 909 void
 910 shut_down_emacs (sig, no_x, stuff)
 911      int sig, no_x;
 912      Lisp_Object stuff;
 913 {
 914   /* Prevent running of hooks from now on.  */
 915   Vrun_hooks = Qnil;
 916
 917   /* If we are controlling the terminal, reset terminal modes */
 918 #ifdef EMACS_HAVE_TTY_PGRP
 919   {
 920     int pgrp = EMACS_GETPGRP (0);
 921
 922     int tpgrp;
 923     if (EMACS_GET_TTY_PGRP (0, &tpgrp) != -1
 924         && tpgrp == pgrp)
 925       {
 926         fflush (stdout);
 927         reset_sys_modes ();
 928         if (sig && sig != SIGTERM)
 929           fprintf (stderr, "Fatal error (%d).", sig);
 930       }
 931   }
 932 #else
 933   fflush (stdout);
 934   reset_sys_modes ();
 935 #endif
 936
 937   stuff_buffered_input (stuff);
 938
 939   kill_buffer_processes (Qnil);
 940   Fdo_auto_save (Qt, Qnil);
 941
 942 #ifdef CLASH_DETECTION
 943   unlock_all_files ();
 944 #endif
 945
 946 #ifdef VMS
 947   kill_vms_processes ();
 948 #endif
 949
 950 #if 0 /* This triggers a bug in XCloseDisplay and is not needed.  */
 951 #ifdef HAVE_X_WINDOWS
 952   /* It's not safe to call intern here.  Maybe we are crashing.  */
 953   if (!noninteractive && SYMBOLP (Vwindow_system)
 954       && XSYMBOL (Vwindow_system)->name->size == 1
 955       && XSYMBOL (Vwindow_system)->name->data[0] == 'x'
 956       && ! no_x)
 957     Fx_close_current_connection ();
 958 #endif /* HAVE_X_WINDOWS */
 959 #endif
 960
 961 #ifdef SIGIO
 962   /* There is a tendency for a SIGIO signal to arrive within exit,
 963      and cause a SIGHUP because the input descriptor is already closed.  */
 964   unrequest_sigio ();
 965   signal (SIGIO, SIG_IGN);
 966 #endif
 967 }
 968
 969
 970 \f
 971 #ifndef CANNOT_DUMP
 972 /* Nothing like this can be implemented on an Apollo.
 973    What a loss!  */
 974
 975 #ifdef HAVE_SHM
 976
 977 DEFUN ("dump-emacs-data", Fdump_emacs_data, Sdump_emacs_data, 1, 1, 0,
 978   "Dump current state of Emacs into data file FILENAME.\n\
 979 This function exists on systems that use HAVE_SHM.")
 980   (intoname)
 981      Lisp_Object intoname;
 982 {
 983   extern int my_edata;
 984   Lisp_Object tem;
 985
 986   CHECK_STRING (intoname, 0);
 987   intoname = Fexpand_file_name (intoname, Qnil);
 988
 989   tem = Vpurify_flag;
 990   Vpurify_flag = Qnil;
 991
 992   fflush (stdout);
 993   /* Tell malloc where start of impure now is */
 994   /* Also arrange for warnings when nearly out of space.  */
 995 #ifndef SYSTEM_MALLOC
 996   memory_warnings (&my_edata, malloc_warning);
 997 #endif
 998   map_out_data (XSTRING (intoname)->data);
 999
1000   Vpurify_flag = tem;
1001
1002   return Qnil;
1003 }
1004
1005 #else /* not HAVE_SHM */
1006
1007 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0,
1008   "Dump current state of Emacs into executable file FILENAME.\n\
1009 Take symbols from SYMFILE (presumably the file you executed to run Emacs).\n\
1010 This is used in the file `loadup.el' when building Emacs.\n\
1011 \n\
1012 Bind `command-line-processed' to nil before dumping,\n\
1013 if you want the dumped Emacs to process its command line\n\
1014 and announce itself normally when it is run.")
1015   (intoname, symname)
1016      Lisp_Object intoname, symname;
1017 {
1018   extern int my_edata;
1019   Lisp_Object tem;
1020
1021   CHECK_STRING (intoname, 0);
1022   intoname = Fexpand_file_name (intoname, Qnil);
1023   if (!NILP (symname))
1024     {
1025       CHECK_STRING (symname, 0);
1026       if (XSTRING (symname)->size)
1027         symname = Fexpand_file_name (symname, Qnil);
1028     }
1029
1030   tem = Vpurify_flag;
1031   Vpurify_flag = Qnil;
1032
1033   fflush (stdout);
1034 #ifdef VMS
1035   mapout_data (XSTRING (intoname)->data);
1036 #else
1037   /* Tell malloc where start of impure now is */
1038   /* Also arrange for warnings when nearly out of space.  */
1039 #ifndef SYSTEM_MALLOC
1040   memory_warnings (&my_edata, malloc_warning);
1041 #endif
1042   unexec (XSTRING (intoname)->data,
1043           !NILP (symname) ? XSTRING (symname)->data : 0, &my_edata, 0, 0);
1044 #endif /* not VMS */
1045
1046   Vpurify_flag = tem;
1047
1048   return Qnil;
1049 }
1050
1051 #endif /* not HAVE_SHM */
1052
1053 #endif /* not CANNOT_DUMP */
1054 \f
1055 #ifndef SEPCHAR
1056 #define SEPCHAR ':'
1057 #endif
1058
1059 Lisp_Object
1060 decode_env_path (evarname, defalt)
1061      char *evarname, *defalt;
1062 {
1063   register char *path, *p;
1064
1065   Lisp_Object lpath;
1066
1067   /* It's okay to use getenv here, because this function is only used
1068      to initialize variables when Emacs starts up, and isn't called
1069      after that.  */
1070   if (evarname != 0)
1071     path = (char *) getenv (evarname);
1072   else
1073     path = 0;
1074   if (!path)
1075     path = defalt;
1076   lpath = Qnil;
1077   while (1)
1078     {
1079       p = index (path, SEPCHAR);
1080       if (!p) p = path + strlen (path);
1081       lpath = Fcons (p - path ? make_string (path, p - path) : Qnil,
1082                      lpath);
1083       if (*p)
1084         path = p + 1;
1085       else
1086         break;
1087     }
1088   return Fnreverse (lpath);
1089 }
1090
1091 syms_of_emacs ()
1092 {
1093 #ifndef CANNOT_DUMP
1094 #ifdef HAVE_SHM
1095   defsubr (&Sdump_emacs_data);
1096 #else
1097   defsubr (&Sdump_emacs);
1098 #endif
1099 #endif
1100
1101   defsubr (&Skill_emacs);
1102
1103   defsubr (&Sinvocation_name);
1104   defsubr (&Sinvocation_directory);
1105
1106   DEFVAR_LISP ("command-line-args", &Vcommand_line_args,
1107     "Args passed by shell to Emacs, as a list of strings.");
1108
1109   DEFVAR_LISP ("system-type", &Vsystem_type,
1110     "Value is symbol indicating type of operating system you are using.");
1111   Vsystem_type = intern (SYSTEM_TYPE);
1112
1113   DEFVAR_LISP ("system-configuration", &Vsystem_configuration,
1114     "Value is string indicating configuration Emacs was built for.");
1115   Vsystem_configuration = build_string (EMACS_CONFIGURATION);
1116
1117   DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options,
1118     "String containing the configuration options Emacs was built with.");
1119   Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
1120
1121   DEFVAR_BOOL ("noninteractive", &noninteractive1,
1122     "Non-nil means Emacs is running without interactive terminal.");
1123
1124   DEFVAR_LISP ("kill-emacs-hook", &Vkill_emacs_hook,
1125     "Hook to be run whenever kill-emacs is called.\n\
1126 Since kill-emacs may be invoked when the terminal is disconnected (or\n\
1127 in other similar situations), functions placed on this hook should not\n\
1128 expect to be able to interact with the user.");
1129   Vkill_emacs_hook = Qnil;
1130
1131   DEFVAR_INT ("emacs-priority", &emacs_priority,
1132     "Priority for Emacs to run at.\n\
1133 This value is effective only if set before Emacs is dumped,\n\
1134 and only if the Emacs executable is installed with setuid to permit\n\
1135 it to change priority.  (Emacs sets its uid back to the real uid.)\n\
1136 Currently, you need to define SET_EMACS_PRIORITY in `config.h'\n\
1137 before you compile Emacs, to enable the code for this feature.");
1138   emacs_priority = 0;
1139
1140   DEFVAR_LISP ("invocation-name", &Vinvocation_name,
1141     "The program name that was used to run Emacs.\n\
1142 Any directory names are omitted.");
1143
1144   DEFVAR_LISP ("invocation-directory", &Vinvocation_directory,
1145     "The directory in which the Emacs executable was found, to run it.\n\
1146 The value is nil if that directory's name is not known.");
1147
1148   DEFVAR_LISP ("installation-directory", &Vinstallation_directory,
1149     "A directory within which to look for the `lib-src' and `etc' directories.\n\
1150 This is non-nil when we can't find those directories in their standard\n\
1151 installed locations, but we can find them\n\
1152 near where the Emacs executable was found.");
1153   Vinstallation_directory = Qnil;
1154 }