| 1 | /* Fully extensible Emacs, running on Unix, intended for GNU. |
| 2 | Copyright (C) 1985, 86, 87, 93, 94, 95 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 | #include "lisp.h" |
| 39 | #include "commands.h" |
| 40 | #include "intervals.h" |
| 41 | |
| 42 | #include "systty.h" |
| 43 | #include "syssignal.h" |
| 44 | #include "process.h" |
| 45 | |
| 46 | #ifndef O_RDWR |
| 47 | #define O_RDWR 2 |
| 48 | #endif |
| 49 | |
| 50 | extern void malloc_warning (); |
| 51 | extern char *index (); |
| 52 | extern char *strerror (); |
| 53 | |
| 54 | /* Command line args from shell, as list of strings */ |
| 55 | Lisp_Object Vcommand_line_args; |
| 56 | |
| 57 | /* The name under which Emacs was invoked, with any leading directory |
| 58 | names discarded. */ |
| 59 | Lisp_Object Vinvocation_name; |
| 60 | |
| 61 | /* The directory name from which Emacs was invoked. */ |
| 62 | Lisp_Object Vinvocation_directory; |
| 63 | |
| 64 | /* The directory name in which to find subdirs such as lisp and etc. |
| 65 | nil means get them only from PATH_LOADSEARCH. */ |
| 66 | Lisp_Object Vinstallation_directory; |
| 67 | |
| 68 | /* Hook run by `kill-emacs' before it does really anything. */ |
| 69 | Lisp_Object Vkill_emacs_hook; |
| 70 | |
| 71 | /* Set nonzero after Emacs has started up the first time. |
| 72 | Prevents reinitialization of the Lisp world and keymaps |
| 73 | on subsequent starts. */ |
| 74 | int initialized; |
| 75 | |
| 76 | /* Variable whose value is symbol giving operating system type. */ |
| 77 | Lisp_Object Vsystem_type; |
| 78 | |
| 79 | /* Variable whose value is string giving configuration built for. */ |
| 80 | Lisp_Object Vsystem_configuration; |
| 81 | |
| 82 | /* Variable whose value is string giving configuration options, |
| 83 | for use when reporting bugs. */ |
| 84 | Lisp_Object Vsystem_configuration_options; |
| 85 | |
| 86 | /* If non-zero, emacs should not attempt to use an window-specific code, |
| 87 | but instead should use the virtual terminal under which it was started */ |
| 88 | int inhibit_window_system; |
| 89 | |
| 90 | /* If nonzero, set Emacs to run at this priority. This is also used |
| 91 | in child_setup and sys_suspend to make sure subshells run at normal |
| 92 | priority; Those functions have their own extern declaration. */ |
| 93 | int emacs_priority; |
| 94 | |
| 95 | /* If non-zero a filter or a sentinel is running. Tested to save the match |
| 96 | data on the first attempt to change it inside asynchronous code. */ |
| 97 | int running_asynch_code; |
| 98 | |
| 99 | #ifdef BSD_PGRPS |
| 100 | /* See sysdep.c. */ |
| 101 | extern int inherited_pgroup; |
| 102 | #endif |
| 103 | |
| 104 | #ifdef HAVE_X_WINDOWS |
| 105 | /* If non-zero, -d was specified, meaning we're using some window system. */ |
| 106 | int display_arg; |
| 107 | #endif |
| 108 | |
| 109 | /* An address near the bottom of the stack. |
| 110 | Tells GC how to save a copy of the stack. */ |
| 111 | char *stack_bottom; |
| 112 | |
| 113 | #ifdef HAVE_WINDOW_SYSTEM |
| 114 | extern Lisp_Object Vwindow_system; |
| 115 | #endif /* HAVE_WINDOW_SYSTEM */ |
| 116 | |
| 117 | extern Lisp_Object Vauto_save_list_file_name; |
| 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 | |
| 140 | static void sort_args (); |
| 141 | \f |
| 142 | /* Signal code for the fatal signal that was received */ |
| 143 | int fatal_error_code; |
| 144 | |
| 145 | /* Nonzero if handling a fatal error already */ |
| 146 | int fatal_error_in_progress; |
| 147 | |
| 148 | /* Handle bus errors, illegal instruction, etc. */ |
| 149 | SIGTYPE |
| 150 | fatal_error_signal (sig) |
| 151 | int sig; |
| 152 | { |
| 153 | fatal_error_code = sig; |
| 154 | signal (sig, SIG_DFL); |
| 155 | |
| 156 | /* If fatal error occurs in code below, avoid infinite recursion. */ |
| 157 | if (! fatal_error_in_progress) |
| 158 | { |
| 159 | fatal_error_in_progress = 1; |
| 160 | |
| 161 | shut_down_emacs (sig, 0, Qnil); |
| 162 | } |
| 163 | |
| 164 | #ifdef VMS |
| 165 | LIB$STOP (SS$_ABORT); |
| 166 | #else |
| 167 | /* Signal the same code; this time it will really be fatal. |
| 168 | Remember that since we're in a signal handler, the signal we're |
| 169 | going to send is probably blocked, so we have to unblock it if we |
| 170 | want to really receive it. */ |
| 171 | #ifndef MSDOS |
| 172 | sigunblock (sigmask (fatal_error_code)); |
| 173 | #endif |
| 174 | kill (getpid (), fatal_error_code); |
| 175 | #endif /* not VMS */ |
| 176 | } |
| 177 | |
| 178 | #ifdef SIGDANGER |
| 179 | |
| 180 | /* Handler for SIGDANGER. */ |
| 181 | SIGTYPE |
| 182 | memory_warning_signal (sig) |
| 183 | int sig; |
| 184 | { |
| 185 | signal (sig, memory_warning_signal); |
| 186 | |
| 187 | malloc_warning ("Operating system warns that virtual memory is running low.\n"); |
| 188 | |
| 189 | /* It might be unsafe to call do_auto_save now. */ |
| 190 | force_auto_save_soon (); |
| 191 | } |
| 192 | #endif |
| 193 | \f |
| 194 | /* Code for dealing with Lisp access to the Unix command line */ |
| 195 | |
| 196 | static |
| 197 | init_cmdargs (argc, argv, skip_args) |
| 198 | int argc; |
| 199 | char **argv; |
| 200 | int skip_args; |
| 201 | { |
| 202 | register int i; |
| 203 | Lisp_Object name, dir; |
| 204 | |
| 205 | initial_argv = argv; |
| 206 | initial_argc = argc; |
| 207 | |
| 208 | Vinvocation_name = Ffile_name_nondirectory (build_string (argv[0])); |
| 209 | Vinvocation_directory = Ffile_name_directory (build_string (argv[0])); |
| 210 | /* If we got no directory in argv[0], search PATH to find where |
| 211 | Emacs actually came from. */ |
| 212 | if (NILP (Vinvocation_directory)) |
| 213 | { |
| 214 | Lisp_Object found; |
| 215 | int yes = openp (Vexec_path, Vinvocation_name, |
| 216 | EXEC_SUFFIXES, &found, 1); |
| 217 | if (yes == 1) |
| 218 | Vinvocation_directory = Ffile_name_directory (found); |
| 219 | } |
| 220 | |
| 221 | if (!NILP (Vinvocation_directory) |
| 222 | && NILP (Ffile_name_absolute_p (Vinvocation_directory))) |
| 223 | /* Emacs was started with relative path, like ./emacs */ |
| 224 | Vinvocation_directory = Fexpand_file_name (Vinvocation_directory, Qnil); |
| 225 | |
| 226 | Vinstallation_directory = Qnil; |
| 227 | |
| 228 | if (!NILP (Vinvocation_directory)) |
| 229 | { |
| 230 | dir = Vinvocation_directory; |
| 231 | name = Fexpand_file_name (Vinvocation_name, dir); |
| 232 | while (1) |
| 233 | { |
| 234 | Lisp_Object tem, lib_src_exists; |
| 235 | Lisp_Object etc_exists, info_exists; |
| 236 | |
| 237 | /* See if dir contains subdirs for use by Emacs. |
| 238 | Check for the ones that would exist in a build directory, |
| 239 | not including lisp and info. */ |
| 240 | tem = Fexpand_file_name (build_string ("lib-src"), dir); |
| 241 | lib_src_exists = Ffile_exists_p (tem); |
| 242 | if (!NILP (lib_src_exists)) |
| 243 | { |
| 244 | tem = Fexpand_file_name (build_string ("etc"), dir); |
| 245 | etc_exists = Ffile_exists_p (tem); |
| 246 | if (!NILP (etc_exists)) |
| 247 | { |
| 248 | Vinstallation_directory |
| 249 | = Ffile_name_as_directory (dir); |
| 250 | break; |
| 251 | } |
| 252 | } |
| 253 | |
| 254 | /* See if dir's parent contains those subdirs. */ |
| 255 | tem = Fexpand_file_name (build_string ("../lib-src"), dir); |
| 256 | lib_src_exists = Ffile_exists_p (tem); |
| 257 | if (!NILP (lib_src_exists)) |
| 258 | { |
| 259 | tem = Fexpand_file_name (build_string ("../etc"), dir); |
| 260 | etc_exists = Ffile_exists_p (tem); |
| 261 | if (!NILP (etc_exists)) |
| 262 | { |
| 263 | tem = Fexpand_file_name (build_string (".."), dir); |
| 264 | Vinstallation_directory |
| 265 | = Ffile_name_as_directory (tem); |
| 266 | break; |
| 267 | } |
| 268 | } |
| 269 | |
| 270 | /* If the Emacs executable is actually a link, |
| 271 | next try the dir that the link points into. */ |
| 272 | tem = Ffile_symlink_p (name); |
| 273 | if (!NILP (tem)) |
| 274 | { |
| 275 | name = Fexpand_file_name (tem, dir); |
| 276 | dir = Ffile_name_directory (name); |
| 277 | } |
| 278 | else |
| 279 | break; |
| 280 | } |
| 281 | } |
| 282 | |
| 283 | Vcommand_line_args = Qnil; |
| 284 | |
| 285 | for (i = argc - 1; i >= 0; i--) |
| 286 | { |
| 287 | if (i == 0 || i > skip_args) |
| 288 | Vcommand_line_args |
| 289 | = Fcons (build_string (argv[i]), Vcommand_line_args); |
| 290 | } |
| 291 | } |
| 292 | |
| 293 | DEFUN ("invocation-name", Finvocation_name, Sinvocation_name, 0, 0, 0, |
| 294 | "Return the program name that was used to run Emacs.\n\ |
| 295 | Any directory names are omitted.") |
| 296 | () |
| 297 | { |
| 298 | return Fcopy_sequence (Vinvocation_name); |
| 299 | } |
| 300 | |
| 301 | DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory, |
| 302 | 0, 0, 0, |
| 303 | "Return the directory name in which the Emacs executable was located") |
| 304 | () |
| 305 | { |
| 306 | return Fcopy_sequence (Vinvocation_directory); |
| 307 | } |
| 308 | |
| 309 | \f |
| 310 | #ifdef VMS |
| 311 | #ifdef LINK_CRTL_SHARE |
| 312 | #ifdef SHAREABLE_LIB_BUG |
| 313 | extern noshare char **environ; |
| 314 | #endif /* SHAREABLE_LIB_BUG */ |
| 315 | #endif /* LINK_CRTL_SHARE */ |
| 316 | #endif /* VMS */ |
| 317 | |
| 318 | #ifndef ORDINARY_LINK |
| 319 | /* We don't include crtbegin.o and crtend.o in the link, |
| 320 | so these functions and variables might be missed. |
| 321 | Provide dummy definitions to avoid error. |
| 322 | (We don't have any real constructors or destructors.) */ |
| 323 | #ifdef __GNUC__ |
| 324 | #ifndef GCC_CTORS_IN_LIBC |
| 325 | __do_global_ctors () |
| 326 | {} |
| 327 | __do_global_ctors_aux () |
| 328 | {} |
| 329 | __do_global_dtors () |
| 330 | {} |
| 331 | /* Linux has a bug in its library; avoid an error. */ |
| 332 | #ifndef LINUX |
| 333 | char * __CTOR_LIST__[2] = { (char *) (-1), 0 }; |
| 334 | #endif |
| 335 | char * __DTOR_LIST__[2] = { (char *) (-1), 0 }; |
| 336 | #endif /* GCC_CTORS_IN_LIBC */ |
| 337 | __main () |
| 338 | {} |
| 339 | #endif /* __GNUC__ */ |
| 340 | #endif /* ORDINARY_LINK */ |
| 341 | |
| 342 | /* Test whether the next argument in ARGV matches SSTR or a prefix of |
| 343 | LSTR (at least MINLEN characters). If so, then if VALPTR is non-null |
| 344 | (the argument is supposed to have a value) store in *VALPTR either |
| 345 | the next argument or the portion of this one after the equal sign. |
| 346 | ARGV is read starting at position *SKIPPTR; this index is advanced |
| 347 | by the number of arguments used. |
| 348 | |
| 349 | Too bad we can't just use getopt for all of this, but we don't have |
| 350 | enough information to do it right. */ |
| 351 | |
| 352 | static int |
| 353 | argmatch (argv, argc, sstr, lstr, minlen, valptr, skipptr) |
| 354 | char **argv; |
| 355 | int argc; |
| 356 | char *sstr; |
| 357 | char *lstr; |
| 358 | int minlen; |
| 359 | char **valptr; |
| 360 | int *skipptr; |
| 361 | { |
| 362 | char *p; |
| 363 | int arglen; |
| 364 | char *arg; |
| 365 | |
| 366 | /* Don't access argv[argc]; give up in advance. */ |
| 367 | if (argc <= *skipptr + 1) |
| 368 | return 0; |
| 369 | |
| 370 | arg = argv[*skipptr+1]; |
| 371 | if (arg == NULL) |
| 372 | return 0; |
| 373 | if (strcmp (arg, sstr) == 0) |
| 374 | { |
| 375 | if (valptr != NULL) |
| 376 | { |
| 377 | *valptr = argv[*skipptr+2]; |
| 378 | *skipptr += 2; |
| 379 | } |
| 380 | else |
| 381 | *skipptr += 1; |
| 382 | return 1; |
| 383 | } |
| 384 | arglen = (valptr != NULL && (p = index (arg, '=')) != NULL |
| 385 | ? p - arg : strlen (arg)); |
| 386 | if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0) |
| 387 | return 0; |
| 388 | else if (valptr == NULL) |
| 389 | { |
| 390 | *skipptr += 1; |
| 391 | return 1; |
| 392 | } |
| 393 | else if (p != NULL) |
| 394 | { |
| 395 | *valptr = p+1; |
| 396 | *skipptr += 1; |
| 397 | return 1; |
| 398 | } |
| 399 | else if (argv[*skipptr+2] != NULL) |
| 400 | { |
| 401 | *valptr = argv[*skipptr+2]; |
| 402 | *skipptr += 2; |
| 403 | return 1; |
| 404 | } |
| 405 | else |
| 406 | { |
| 407 | return 0; |
| 408 | } |
| 409 | } |
| 410 | |
| 411 | /* ARGSUSED */ |
| 412 | main (argc, argv, envp) |
| 413 | int argc; |
| 414 | char **argv; |
| 415 | char **envp; |
| 416 | { |
| 417 | char stack_bottom_variable; |
| 418 | int skip_args = 0; |
| 419 | extern int errno; |
| 420 | extern sys_nerr; |
| 421 | |
| 422 | sort_args (argc, argv); |
| 423 | |
| 424 | if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args)) |
| 425 | { |
| 426 | Lisp_Object tem; |
| 427 | tem = Fsymbol_value (intern ("emacs-version")); |
| 428 | if (!STRINGP (tem)) |
| 429 | { |
| 430 | fprintf (stderr, "Invalid value of `emacs-version'\n"); |
| 431 | exit (1); |
| 432 | } |
| 433 | else |
| 434 | { |
| 435 | printf ("%s\n", XSTRING (tem)->data); |
| 436 | exit (0); |
| 437 | } |
| 438 | } |
| 439 | |
| 440 | /* Map in shared memory, if we are using that. */ |
| 441 | #ifdef HAVE_SHM |
| 442 | if (argmatch (argv, argc, "-nl", "--no-shared-memory", 6, NULL, &skip_args)) |
| 443 | { |
| 444 | map_in_data (0); |
| 445 | /* The shared memory was just restored, which clobbered this. */ |
| 446 | skip_args = 1; |
| 447 | } |
| 448 | else |
| 449 | { |
| 450 | map_in_data (1); |
| 451 | /* The shared memory was just restored, which clobbered this. */ |
| 452 | skip_args = 0; |
| 453 | } |
| 454 | #endif |
| 455 | |
| 456 | #ifdef NeXT |
| 457 | { |
| 458 | extern int malloc_cookie; |
| 459 | /* This helps out unexnext.c. */ |
| 460 | if (initialized) |
| 461 | if (malloc_jumpstart (malloc_cookie) != 0) |
| 462 | printf ("malloc jumpstart failed!\n"); |
| 463 | } |
| 464 | #endif /* NeXT */ |
| 465 | |
| 466 | #ifdef VMS |
| 467 | /* If -map specified, map the data file in */ |
| 468 | { |
| 469 | char *file; |
| 470 | if (argmatch (argv, argc, "-map", "--map-data", 3, &mapin_file, &skip_args)) |
| 471 | mapin_data (file); |
| 472 | } |
| 473 | |
| 474 | #ifdef LINK_CRTL_SHARE |
| 475 | #ifdef SHAREABLE_LIB_BUG |
| 476 | /* Bletcherous shared libraries! */ |
| 477 | if (!stdin) |
| 478 | stdin = fdopen (0, "r"); |
| 479 | if (!stdout) |
| 480 | stdout = fdopen (1, "w"); |
| 481 | if (!stderr) |
| 482 | stderr = fdopen (2, "w"); |
| 483 | if (!environ) |
| 484 | environ = envp; |
| 485 | #endif /* SHAREABLE_LIB_BUG */ |
| 486 | #endif /* LINK_CRTL_SHARE */ |
| 487 | #endif /* VMS */ |
| 488 | |
| 489 | /* Record (approximately) where the stack begins. */ |
| 490 | stack_bottom = &stack_bottom_variable; |
| 491 | |
| 492 | #ifdef RUN_TIME_REMAP |
| 493 | if (initialized) |
| 494 | run_time_remap (argv[0]); |
| 495 | #endif |
| 496 | |
| 497 | #ifdef USG_SHARED_LIBRARIES |
| 498 | if (bss_end) |
| 499 | brk ((void *)bss_end); |
| 500 | #endif |
| 501 | |
| 502 | clearerr (stdin); |
| 503 | |
| 504 | #ifndef SYSTEM_MALLOC |
| 505 | if (! initialized) |
| 506 | { |
| 507 | /* Arrange to get warning messages as memory fills up. */ |
| 508 | memory_warnings (0, malloc_warning); |
| 509 | |
| 510 | /* Arrange to disable interrupt input while malloc and friends are |
| 511 | running. */ |
| 512 | uninterrupt_malloc (); |
| 513 | } |
| 514 | #endif /* not SYSTEM_MALLOC */ |
| 515 | |
| 516 | #ifdef MSDOS |
| 517 | /* We do all file input/output as binary files. When we need to translate |
| 518 | newlines, we do that manually. */ |
| 519 | _fmode = O_BINARY; |
| 520 | (stdin)->_flag &= ~_IOTEXT; |
| 521 | (stdout)->_flag &= ~_IOTEXT; |
| 522 | (stderr)->_flag &= ~_IOTEXT; |
| 523 | #endif /* MSDOS */ |
| 524 | |
| 525 | #ifdef SET_EMACS_PRIORITY |
| 526 | if (emacs_priority) |
| 527 | nice (emacs_priority); |
| 528 | setuid (getuid ()); |
| 529 | #endif /* SET_EMACS_PRIORITY */ |
| 530 | |
| 531 | #ifdef EXTRA_INITIALIZE |
| 532 | EXTRA_INITIALIZE; |
| 533 | #endif |
| 534 | |
| 535 | inhibit_window_system = 0; |
| 536 | |
| 537 | /* Handle the -t switch, which specifies filename to use as terminal */ |
| 538 | { |
| 539 | char *term; |
| 540 | if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args)) |
| 541 | { |
| 542 | int result; |
| 543 | close (0); |
| 544 | close (1); |
| 545 | result = open (term, O_RDWR, 2 ); |
| 546 | if (result < 0) |
| 547 | { |
| 548 | char *errstring = strerror (errno); |
| 549 | fprintf (stderr, "emacs: %s: %s\n", term, errstring); |
| 550 | exit (1); |
| 551 | } |
| 552 | dup (0); |
| 553 | if (! isatty (0)) |
| 554 | { |
| 555 | fprintf (stderr, "emacs: %s: not a tty\n", term); |
| 556 | exit (1); |
| 557 | } |
| 558 | fprintf (stderr, "Using %s\n", term); |
| 559 | #ifdef HAVE_WINDOW_SYSTEM |
| 560 | inhibit_window_system = 1; /* -t => -nw */ |
| 561 | #endif |
| 562 | } |
| 563 | } |
| 564 | if (argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args)) |
| 565 | inhibit_window_system = 1; |
| 566 | |
| 567 | /* Handle the -batch switch, which means don't do interactive display. */ |
| 568 | noninteractive = 0; |
| 569 | if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args)) |
| 570 | noninteractive = 1; |
| 571 | |
| 572 | /* Handle the --help option, which gives a usage message.. */ |
| 573 | if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args)) |
| 574 | { |
| 575 | printf ("\ |
| 576 | Usage: %s [-t term] [--terminal term] [-nw] [--no-windows] [--batch]\n\ |
| 577 | [-q] [--no-init-file] [-u user] [--user user] [--debug-init]\n\ |
| 578 | [--version] [--no-site-file]\n\ |
| 579 | [-f func] [--funcall func] [-l file] [--load file] [--insert file]\n\ |
| 580 | [+linenum] file-to-visit [--kill]\n", argv[0]); |
| 581 | exit (0); |
| 582 | } |
| 583 | |
| 584 | #ifdef HAVE_X_WINDOWS |
| 585 | /* Stupid kludge to catch command-line display spec. We can't |
| 586 | handle this argument entirely in window system dependent code |
| 587 | because we don't even know which window system dependent code |
| 588 | to run until we've recognized this argument. */ |
| 589 | { |
| 590 | char *displayname; |
| 591 | int i; |
| 592 | int count_before = skip_args; |
| 593 | |
| 594 | if (argmatch (argv, argc, "-d", "--display", 3, &displayname, &skip_args)) |
| 595 | display_arg = 1; |
| 596 | else if (argmatch (argv, argc, "-display", 0, 3, &displayname, &skip_args)) |
| 597 | display_arg = 1; |
| 598 | |
| 599 | /* If we have the form --display=NAME, |
| 600 | convert it into -d name. |
| 601 | This requires inserting a new element into argv. */ |
| 602 | if (displayname != 0 && skip_args - count_before == 1) |
| 603 | { |
| 604 | char **new = (char **) xmalloc (sizeof (char *) * (argc + 2)); |
| 605 | int j; |
| 606 | |
| 607 | for (j = 0; j < count_before + 1; j++) |
| 608 | new[j] = argv[j]; |
| 609 | new[count_before + 1] = "-d"; |
| 610 | new[count_before + 2] = displayname; |
| 611 | for (j = count_before + 2; j <argc; j++) |
| 612 | new[j + 1] = argv[j]; |
| 613 | argv = new; |
| 614 | argc++; |
| 615 | } |
| 616 | /* Change --display to -d, when its arg is separate. */ |
| 617 | else if (displayname != 0 && skip_args > count_before |
| 618 | && argv[count_before + 1][1] == '-') |
| 619 | argv[count_before] = "-d"; |
| 620 | |
| 621 | /* Don't actually discard this arg. */ |
| 622 | skip_args = count_before; |
| 623 | } |
| 624 | #endif |
| 625 | |
| 626 | if (! noninteractive) |
| 627 | { |
| 628 | #ifdef BSD_PGRPS |
| 629 | if (initialized) |
| 630 | { |
| 631 | inherited_pgroup = EMACS_GETPGRP (0); |
| 632 | setpgrp (0, getpid ()); |
| 633 | } |
| 634 | #else |
| 635 | #if defined (USG5) && defined (INTERRUPT_INPUT) |
| 636 | setpgrp (); |
| 637 | #endif |
| 638 | #endif |
| 639 | } |
| 640 | |
| 641 | #ifdef POSIX_SIGNALS |
| 642 | init_signals (); |
| 643 | #endif |
| 644 | |
| 645 | if ( |
| 646 | #ifndef CANNOT_DUMP |
| 647 | ! noninteractive || initialized |
| 648 | #else |
| 649 | 1 |
| 650 | #endif |
| 651 | ) |
| 652 | { |
| 653 | /* Don't catch these signals in batch mode if not initialized. |
| 654 | On some machines, this sets static data that would make |
| 655 | signal fail to work right when the dumped Emacs is run. */ |
| 656 | signal (SIGHUP, fatal_error_signal); |
| 657 | signal (SIGQUIT, fatal_error_signal); |
| 658 | signal (SIGILL, fatal_error_signal); |
| 659 | signal (SIGTRAP, fatal_error_signal); |
| 660 | #ifdef SIGABRT |
| 661 | signal (SIGABRT, fatal_error_signal); |
| 662 | #endif |
| 663 | #ifdef SIGHWE |
| 664 | signal (SIGHWE, fatal_error_signal); |
| 665 | #endif |
| 666 | #ifdef SIGPRE |
| 667 | signal (SIGPRE, fatal_error_signal); |
| 668 | #endif |
| 669 | #ifdef SIGORE |
| 670 | signal (SIGORE, fatal_error_signal); |
| 671 | #endif |
| 672 | #ifdef SIGUME |
| 673 | signal (SIGUME, fatal_error_signal); |
| 674 | #endif |
| 675 | #ifdef SIGDLK |
| 676 | signal (SIGDLK, fatal_error_signal); |
| 677 | #endif |
| 678 | #ifdef SIGCPULIM |
| 679 | signal (SIGCPULIM, fatal_error_signal); |
| 680 | #endif |
| 681 | #ifdef SIGIOT |
| 682 | /* This is missing on some systems - OS/2, for example. */ |
| 683 | signal (SIGIOT, fatal_error_signal); |
| 684 | #endif |
| 685 | #ifdef SIGEMT |
| 686 | signal (SIGEMT, fatal_error_signal); |
| 687 | #endif |
| 688 | signal (SIGFPE, fatal_error_signal); |
| 689 | #ifdef SIGBUS |
| 690 | signal (SIGBUS, fatal_error_signal); |
| 691 | #endif |
| 692 | signal (SIGSEGV, fatal_error_signal); |
| 693 | #ifdef SIGSYS |
| 694 | signal (SIGSYS, fatal_error_signal); |
| 695 | #endif |
| 696 | signal (SIGTERM, fatal_error_signal); |
| 697 | #ifdef SIGXCPU |
| 698 | signal (SIGXCPU, fatal_error_signal); |
| 699 | #endif |
| 700 | #ifdef SIGXFSZ |
| 701 | signal (SIGXFSZ, fatal_error_signal); |
| 702 | #endif /* SIGXFSZ */ |
| 703 | |
| 704 | #ifdef SIGDANGER |
| 705 | /* This just means available memory is getting low. */ |
| 706 | signal (SIGDANGER, memory_warning_signal); |
| 707 | #endif |
| 708 | |
| 709 | #ifdef AIX |
| 710 | /* 20 is SIGCHLD, 21 is SIGTTIN, 22 is SIGTTOU. */ |
| 711 | signal (SIGXCPU, fatal_error_signal); |
| 712 | #ifndef _I386 |
| 713 | signal (SIGIOINT, fatal_error_signal); |
| 714 | #endif |
| 715 | signal (SIGGRANT, fatal_error_signal); |
| 716 | signal (SIGRETRACT, fatal_error_signal); |
| 717 | signal (SIGSOUND, fatal_error_signal); |
| 718 | signal (SIGMSG, fatal_error_signal); |
| 719 | #endif /* AIX */ |
| 720 | } |
| 721 | |
| 722 | noninteractive1 = noninteractive; |
| 723 | |
| 724 | /* Perform basic initializations (not merely interning symbols) */ |
| 725 | |
| 726 | if (!initialized) |
| 727 | { |
| 728 | init_alloc_once (); |
| 729 | init_obarray (); |
| 730 | init_eval_once (); |
| 731 | init_syntax_once (); /* Create standard syntax table. */ |
| 732 | /* Must be done before init_buffer */ |
| 733 | init_casetab_once (); |
| 734 | init_buffer_once (); /* Create buffer table and some buffers */ |
| 735 | init_minibuf_once (); /* Create list of minibuffers */ |
| 736 | /* Must precede init_window_once */ |
| 737 | init_window_once (); /* Init the window system */ |
| 738 | } |
| 739 | |
| 740 | init_alloc (); |
| 741 | init_eval (); |
| 742 | init_data (); |
| 743 | running_asynch_code = 0; |
| 744 | |
| 745 | #ifdef MSDOS |
| 746 | /* Call early 'cause init_environment needs it. */ |
| 747 | init_dosfns (); |
| 748 | /* Set defaults for several environment variables. */ |
| 749 | if (initialized) init_environment (argc, argv, skip_args); |
| 750 | else init_gettimeofday (); |
| 751 | #endif |
| 752 | |
| 753 | #ifdef WINDOWSNT |
| 754 | /* Initialize environment from registry settings. */ |
| 755 | init_environment (); |
| 756 | #endif |
| 757 | |
| 758 | /* egetenv is a pretty low-level facility, which may get called in |
| 759 | many circumstances; it seems flimsy to put off initializing it |
| 760 | until calling init_callproc. */ |
| 761 | set_process_environment (); |
| 762 | /* AIX crashes are reported in system versions 3.2.3 and 3.2.4 |
| 763 | if this is not done. Do it after set_process_environment so that we |
| 764 | don't pollute Vprocess_environment. */ |
| 765 | #ifdef AIX |
| 766 | putenv ("LANG=C"); |
| 767 | #endif |
| 768 | |
| 769 | init_buffer (); /* Init default directory of main buffer */ |
| 770 | |
| 771 | init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */ |
| 772 | init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */ |
| 773 | init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */ |
| 774 | init_lread (); |
| 775 | |
| 776 | if (!noninteractive) |
| 777 | { |
| 778 | #ifdef VMS |
| 779 | init_vms_input ();/* init_display calls get_frame_size, that needs this */ |
| 780 | #endif /* VMS */ |
| 781 | init_display (); /* Determine terminal type. init_sys_modes uses results */ |
| 782 | } |
| 783 | init_keyboard (); /* This too must precede init_sys_modes */ |
| 784 | #ifdef VMS |
| 785 | init_vmsproc (); /* And this too. */ |
| 786 | #endif /* VMS */ |
| 787 | init_sys_modes (); /* Init system terminal modes (RAW or CBREAK, etc.) */ |
| 788 | init_xdisp (); |
| 789 | init_macros (); |
| 790 | init_editfns (); |
| 791 | #ifdef LISP_FLOAT_TYPE |
| 792 | init_floatfns (); |
| 793 | #endif |
| 794 | #ifdef VMS |
| 795 | init_vmsfns (); |
| 796 | #endif /* VMS */ |
| 797 | init_process (); |
| 798 | #ifdef CLASH_DETECTION |
| 799 | init_filelock (); |
| 800 | #endif /* CLASH_DETECTION */ |
| 801 | |
| 802 | /* Intern the names of all standard functions and variables; define standard keys */ |
| 803 | |
| 804 | if (!initialized) |
| 805 | { |
| 806 | /* The basic levels of Lisp must come first */ |
| 807 | /* And data must come first of all |
| 808 | for the sake of symbols like error-message */ |
| 809 | syms_of_data (); |
| 810 | syms_of_alloc (); |
| 811 | syms_of_lread (); |
| 812 | syms_of_print (); |
| 813 | syms_of_eval (); |
| 814 | syms_of_fns (); |
| 815 | syms_of_floatfns (); |
| 816 | |
| 817 | syms_of_abbrev (); |
| 818 | syms_of_buffer (); |
| 819 | syms_of_bytecode (); |
| 820 | syms_of_callint (); |
| 821 | syms_of_casefiddle (); |
| 822 | syms_of_casetab (); |
| 823 | syms_of_callproc (); |
| 824 | syms_of_cmds (); |
| 825 | #ifndef NO_DIR_LIBRARY |
| 826 | syms_of_dired (); |
| 827 | #endif /* not NO_DIR_LIBRARY */ |
| 828 | syms_of_display (); |
| 829 | syms_of_doc (); |
| 830 | syms_of_editfns (); |
| 831 | syms_of_emacs (); |
| 832 | syms_of_fileio (); |
| 833 | #ifdef CLASH_DETECTION |
| 834 | syms_of_filelock (); |
| 835 | #endif /* CLASH_DETECTION */ |
| 836 | syms_of_indent (); |
| 837 | syms_of_keyboard (); |
| 838 | syms_of_keymap (); |
| 839 | syms_of_macros (); |
| 840 | syms_of_marker (); |
| 841 | syms_of_minibuf (); |
| 842 | syms_of_mocklisp (); |
| 843 | syms_of_process (); |
| 844 | syms_of_search (); |
| 845 | syms_of_frame (); |
| 846 | syms_of_syntax (); |
| 847 | syms_of_term (); |
| 848 | syms_of_undo (); |
| 849 | |
| 850 | /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ |
| 851 | syms_of_textprop (); |
| 852 | #ifdef VMS |
| 853 | syms_of_vmsproc (); |
| 854 | #endif /* VMS */ |
| 855 | syms_of_window (); |
| 856 | syms_of_xdisp (); |
| 857 | #ifdef HAVE_X_WINDOWS |
| 858 | syms_of_xterm (); |
| 859 | syms_of_xfns (); |
| 860 | syms_of_xfaces (); |
| 861 | #ifdef HAVE_X11 |
| 862 | syms_of_xselect (); |
| 863 | #endif |
| 864 | #ifdef HAVE_X_MENU |
| 865 | syms_of_xmenu (); |
| 866 | #endif /* HAVE_X_MENU */ |
| 867 | #endif /* HAVE_X_WINDOWS */ |
| 868 | |
| 869 | #if defined (MSDOS) && !defined (HAVE_X_WINDOWS) |
| 870 | syms_of_xfaces (); |
| 871 | syms_of_xmenu (); |
| 872 | #endif |
| 873 | |
| 874 | #ifdef HAVE_NTGUI |
| 875 | syms_of_win32term (); |
| 876 | syms_of_win32fns (); |
| 877 | syms_of_win32faces (); |
| 878 | syms_of_win32select (); |
| 879 | syms_of_win32menu (); |
| 880 | #endif /* HAVE_NTGUI */ |
| 881 | |
| 882 | #ifdef SYMS_SYSTEM |
| 883 | SYMS_SYSTEM; |
| 884 | #endif |
| 885 | |
| 886 | #ifdef SYMS_MACHINE |
| 887 | SYMS_MACHINE; |
| 888 | #endif |
| 889 | |
| 890 | keys_of_casefiddle (); |
| 891 | keys_of_cmds (); |
| 892 | keys_of_buffer (); |
| 893 | keys_of_keyboard (); |
| 894 | keys_of_keymap (); |
| 895 | keys_of_macros (); |
| 896 | keys_of_minibuf (); |
| 897 | keys_of_window (); |
| 898 | keys_of_frame (); |
| 899 | } |
| 900 | |
| 901 | if (!initialized) |
| 902 | { |
| 903 | char *file; |
| 904 | /* Handle -l loadup-and-dump, args passed by Makefile. */ |
| 905 | if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args)) |
| 906 | Vtop_level = Fcons (intern ("load"), |
| 907 | Fcons (build_string (file), Qnil)); |
| 908 | #ifdef CANNOT_DUMP |
| 909 | /* Unless next switch is -nl, load "loadup.el" first thing. */ |
| 910 | if (!argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args)) |
| 911 | Vtop_level = Fcons (intern ("load"), |
| 912 | Fcons (build_string ("loadup.el"), Qnil)); |
| 913 | #endif /* CANNOT_DUMP */ |
| 914 | } |
| 915 | |
| 916 | if (initialized) |
| 917 | { |
| 918 | /* Erase any pre-dump messages in the message log, to avoid confusion */ |
| 919 | Lisp_Object old_log_max; |
| 920 | old_log_max = Vmessage_log_max; |
| 921 | XSETFASTINT (Vmessage_log_max, 0); |
| 922 | message_dolog ("", 0, 1); |
| 923 | Vmessage_log_max = old_log_max; |
| 924 | } |
| 925 | |
| 926 | initialized = 1; |
| 927 | |
| 928 | #ifdef LOCALTIME_CACHE |
| 929 | /* Some versions of localtime have a bug. They cache the value of the time |
| 930 | zone rather than looking it up every time. Since localtime() is |
| 931 | called to bolt the undumping time into the undumped emacs, this |
| 932 | results in localtime ignoring the TZ environment variable. |
| 933 | This flushes the new TZ value into localtime. */ |
| 934 | tzset (); |
| 935 | #endif /* defined (LOCALTIME_CACHE) */ |
| 936 | |
| 937 | /* Enter editor command loop. This never returns. */ |
| 938 | Frecursive_edit (); |
| 939 | /* NOTREACHED */ |
| 940 | } |
| 941 | \f |
| 942 | /* Sort the args so we can find the most important ones |
| 943 | at the beginning of argv. */ |
| 944 | |
| 945 | /* First, here's a table of all the standard options. */ |
| 946 | |
| 947 | struct standard_args |
| 948 | { |
| 949 | char *name; |
| 950 | char *longname; |
| 951 | int priority; |
| 952 | int nargs; |
| 953 | }; |
| 954 | |
| 955 | struct standard_args standard_args[] = |
| 956 | { |
| 957 | { "-version", "--version", 110, 0 }, |
| 958 | { "-help", "--help", 110, 0 }, |
| 959 | { "-nl", "--no-shared-memory", 100, 0 }, |
| 960 | #ifdef VMS |
| 961 | { "-map", "--map-data", 100, 0 }, |
| 962 | #endif |
| 963 | { "-t", "--terminal", 90, 1 }, |
| 964 | { "-d", "--display", 80, 1 }, |
| 965 | { "-display", 0, 80, 1 }, |
| 966 | { "-nw", "--no-windows", 70, 0 }, |
| 967 | { "-batch", "--batch", 60, 0 }, |
| 968 | { "-q", "--no-init-file", 50, 0 }, |
| 969 | { "-no-init-file", 0, 50, 0 }, |
| 970 | { "-no-site-file", "--no-site-file", 40, 0 }, |
| 971 | { "-u", "--user", 30, 1 }, |
| 972 | { "-user", 0, 30, 1 }, |
| 973 | { "-debug-init", "--debug-init", 20, 0 }, |
| 974 | { "-i", "--icon-type", 15, 0 }, |
| 975 | { "-itype", 0, 15, 0 }, |
| 976 | { "-iconic", "--iconic", 15, 0 }, |
| 977 | { "-bg", "--background-color", 10, 1 }, |
| 978 | { "-background", 0, 10, 1 }, |
| 979 | { "-fg", "--foreground-color", 10, 1 }, |
| 980 | { "-foreground", 0, 10, 1 }, |
| 981 | { "-bd", "--border-color", 10, 1 }, |
| 982 | { "-bw", "--border-width", 10, 1 }, |
| 983 | { "-ib", "--internal-border", 10, 1 }, |
| 984 | { "-ms", "--mouse-color", 10, 1 }, |
| 985 | { "-cr", "--cursor-color", 10, 1 }, |
| 986 | { "-fn", "--font", 10, 1 }, |
| 987 | { "-font", 0, 10, 1 }, |
| 988 | { "-g", "--geometry", 10, 1 }, |
| 989 | { "-geometry", 0, 10, 1 }, |
| 990 | { "-T", "--title", 10, 1 }, |
| 991 | { "-name", "--name", 10, 1 }, |
| 992 | { "-xrm", "--xrm", 10, 1 }, |
| 993 | { "-r", "--reverse-video", 5, 0 }, |
| 994 | { "-rv", 0, 5, 0 }, |
| 995 | { "-reverse", 0, 5, 0 }, |
| 996 | { "-vb", "--vertical-scroll-bars", 5, 0 }, |
| 997 | /* These have the same priority as ordinary file name args, |
| 998 | so they are not reordered with respect to those. */ |
| 999 | { "-L", "--directory", 0, 1 }, |
| 1000 | { "-directory", 0, 0, 1 }, |
| 1001 | { "-l", "--load", 0, 1 }, |
| 1002 | { "-load", 0, 0, 1 }, |
| 1003 | { "-f", "--funcall", 0, 1 }, |
| 1004 | { "-funcall", 0, 0, 1 }, |
| 1005 | { "-eval", "--eval", 0, 1 }, |
| 1006 | { "-insert", "--insert", 0, 1 }, |
| 1007 | /* This should be processed after ordinary file name args and the like. */ |
| 1008 | { "-kill", "--kill", -10, 0 }, |
| 1009 | }; |
| 1010 | |
| 1011 | /* Reorder the elements of ARGV (assumed to have ARGC elements) |
| 1012 | so that the highest priority ones come first. |
| 1013 | Do not change the order of elements of equal priority. |
| 1014 | If an option takes an argument, keep it and its argument together. */ |
| 1015 | |
| 1016 | static void |
| 1017 | sort_args (argc, argv) |
| 1018 | int argc; |
| 1019 | char **argv; |
| 1020 | { |
| 1021 | char **new = (char **) xmalloc (sizeof (char *) * argc); |
| 1022 | /* For each element of argv, |
| 1023 | the corresponding element of options is: |
| 1024 | 0 for an option that takes no arguments, |
| 1025 | 1 for an option that takes one argument, etc. |
| 1026 | -1 for an ordinary non-option argument. */ |
| 1027 | int *options = (int *) xmalloc (sizeof (int) * argc); |
| 1028 | int *priority = (int *) xmalloc (sizeof (int) * argc); |
| 1029 | int to = 1; |
| 1030 | int from; |
| 1031 | int i; |
| 1032 | |
| 1033 | /* Categorize all the options, |
| 1034 | and figure out which argv elts are option arguments. */ |
| 1035 | for (from = 1; from < argc; from++) |
| 1036 | { |
| 1037 | options[from] = -1; |
| 1038 | priority[from] = 0; |
| 1039 | if (argv[from][0] == '-') |
| 1040 | { |
| 1041 | int match, thislen; |
| 1042 | char *equals; |
| 1043 | |
| 1044 | /* Look for a match with a known old-fashioned option. */ |
| 1045 | for (i = 0; i < sizeof (standard_args) / sizeof (standard_args[0]); i++) |
| 1046 | if (!strcmp (argv[from], standard_args[i].name)) |
| 1047 | { |
| 1048 | options[from] = standard_args[i].nargs; |
| 1049 | priority[from] = standard_args[i].priority; |
| 1050 | from += standard_args[i].nargs; |
| 1051 | goto done; |
| 1052 | } |
| 1053 | |
| 1054 | /* Look for a match with a known long option. |
| 1055 | MATCH is -1 if no match so far, -2 if two or more matches so far, |
| 1056 | >= 0 (the table index of the match) if just one match so far. */ |
| 1057 | if (argv[from][1] == '-') |
| 1058 | { |
| 1059 | match = -1; |
| 1060 | thislen = strlen (argv[from]); |
| 1061 | equals = index (argv[from], '='); |
| 1062 | if (equals != 0) |
| 1063 | thislen = equals - argv[from]; |
| 1064 | |
| 1065 | for (i = 0; |
| 1066 | i < sizeof (standard_args) / sizeof (standard_args[0]); i++) |
| 1067 | if (standard_args[i].longname |
| 1068 | && !strncmp (argv[from], standard_args[i].longname, |
| 1069 | thislen)) |
| 1070 | { |
| 1071 | if (match == -1) |
| 1072 | match = i; |
| 1073 | else |
| 1074 | match = -2; |
| 1075 | } |
| 1076 | |
| 1077 | /* If we found exactly one match, use that. */ |
| 1078 | if (match >= 0) |
| 1079 | { |
| 1080 | options[from] = standard_args[match].nargs; |
| 1081 | priority[from] = standard_args[match].priority; |
| 1082 | /* If --OPTION=VALUE syntax is used, |
| 1083 | this option uses just one argv element. */ |
| 1084 | if (equals != 0) |
| 1085 | options[from] = 0; |
| 1086 | from += options[from]; |
| 1087 | } |
| 1088 | } |
| 1089 | done: ; |
| 1090 | } |
| 1091 | } |
| 1092 | |
| 1093 | /* Copy the arguments, in order of decreasing priority, to NEW. */ |
| 1094 | new[0] = argv[0]; |
| 1095 | while (to < argc) |
| 1096 | { |
| 1097 | int best = -1; |
| 1098 | int best_priority = -9999; |
| 1099 | |
| 1100 | /* Find the highest priority remaining option. |
| 1101 | If several have equal priority, take the first of them. */ |
| 1102 | for (from = 1; from < argc; from++) |
| 1103 | { |
| 1104 | if (argv[from] != 0 && priority[from] > best_priority) |
| 1105 | { |
| 1106 | best_priority = priority[from]; |
| 1107 | best = from; |
| 1108 | } |
| 1109 | /* Skip option arguments--they are tied to the options. */ |
| 1110 | if (options[from] > 0) |
| 1111 | from += options[from]; |
| 1112 | } |
| 1113 | |
| 1114 | if (best < 0) |
| 1115 | abort (); |
| 1116 | |
| 1117 | /* Copy the highest priority remaining option, with its args, to NEW. */ |
| 1118 | new[to++] = argv[best]; |
| 1119 | for (i = 0; i < options[best]; i++) |
| 1120 | new[to++] = argv[best + i + 1]; |
| 1121 | |
| 1122 | /* Clear out this option in ARGV. */ |
| 1123 | argv[best] = 0; |
| 1124 | for (i = 0; i < options[best]; i++) |
| 1125 | argv[best + i + 1] = 0; |
| 1126 | } |
| 1127 | |
| 1128 | bcopy (new, argv, sizeof (char *) * argc); |
| 1129 | } |
| 1130 | \f |
| 1131 | DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P", |
| 1132 | "Exit the Emacs job and kill it.\n\ |
| 1133 | If ARG is an integer, return ARG as the exit program code.\n\ |
| 1134 | If ARG is a string, stuff it as keyboard input.\n\n\ |
| 1135 | The value of `kill-emacs-hook', if not void,\n\ |
| 1136 | is a list of functions (of no args),\n\ |
| 1137 | all of which are called before Emacs is actually killed.") |
| 1138 | (arg) |
| 1139 | Lisp_Object arg; |
| 1140 | { |
| 1141 | Lisp_Object hook, hook1; |
| 1142 | int i; |
| 1143 | struct gcpro gcpro1; |
| 1144 | |
| 1145 | GCPRO1 (arg); |
| 1146 | |
| 1147 | if (feof (stdin)) |
| 1148 | arg = Qt; |
| 1149 | |
| 1150 | if (!NILP (Vrun_hooks) && !noninteractive) |
| 1151 | call1 (Vrun_hooks, intern ("kill-emacs-hook")); |
| 1152 | |
| 1153 | UNGCPRO; |
| 1154 | |
| 1155 | /* Is it really necessary to do this deassign |
| 1156 | when we are going to exit anyway? */ |
| 1157 | /* #ifdef VMS |
| 1158 | stop_vms_input (); |
| 1159 | #endif */ |
| 1160 | |
| 1161 | shut_down_emacs (0, 0, STRINGP (arg) ? arg : Qnil); |
| 1162 | |
| 1163 | /* If we have an auto-save list file, |
| 1164 | kill it because we are exiting Emacs deliberately (not crashing). |
| 1165 | Do it after shut_down_emacs, which does an auto-save. */ |
| 1166 | if (STRINGP (Vauto_save_list_file_name)) |
| 1167 | unlink (XSTRING (Vauto_save_list_file_name)->data); |
| 1168 | |
| 1169 | exit (INTEGERP (arg) ? XINT (arg) |
| 1170 | #ifdef VMS |
| 1171 | : 1 |
| 1172 | #else |
| 1173 | : 0 |
| 1174 | #endif |
| 1175 | ); |
| 1176 | /* NOTREACHED */ |
| 1177 | } |
| 1178 | |
| 1179 | |
| 1180 | /* Perform an orderly shutdown of Emacs. Autosave any modified |
| 1181 | buffers, kill any child processes, clean up the terminal modes (if |
| 1182 | we're in the foreground), and other stuff like that. Don't perform |
| 1183 | any redisplay; this may be called when Emacs is shutting down in |
| 1184 | the background, or after its X connection has died. |
| 1185 | |
| 1186 | If SIG is a signal number, print a message for it. |
| 1187 | |
| 1188 | This is called by fatal signal handlers, X protocol error handlers, |
| 1189 | and Fkill_emacs. */ |
| 1190 | |
| 1191 | void |
| 1192 | shut_down_emacs (sig, no_x, stuff) |
| 1193 | int sig, no_x; |
| 1194 | Lisp_Object stuff; |
| 1195 | { |
| 1196 | /* Prevent running of hooks from now on. */ |
| 1197 | Vrun_hooks = Qnil; |
| 1198 | |
| 1199 | /* If we are controlling the terminal, reset terminal modes */ |
| 1200 | #ifdef EMACS_HAVE_TTY_PGRP |
| 1201 | { |
| 1202 | int pgrp = EMACS_GETPGRP (0); |
| 1203 | |
| 1204 | int tpgrp; |
| 1205 | if (EMACS_GET_TTY_PGRP (0, &tpgrp) != -1 |
| 1206 | && tpgrp == pgrp) |
| 1207 | { |
| 1208 | fflush (stdout); |
| 1209 | reset_sys_modes (); |
| 1210 | if (sig && sig != SIGTERM) |
| 1211 | fprintf (stderr, "Fatal error (%d).", sig); |
| 1212 | } |
| 1213 | } |
| 1214 | #else |
| 1215 | fflush (stdout); |
| 1216 | reset_sys_modes (); |
| 1217 | #endif |
| 1218 | |
| 1219 | stuff_buffered_input (stuff); |
| 1220 | |
| 1221 | kill_buffer_processes (Qnil); |
| 1222 | Fdo_auto_save (Qt, Qnil); |
| 1223 | |
| 1224 | #ifdef CLASH_DETECTION |
| 1225 | unlock_all_files (); |
| 1226 | #endif |
| 1227 | |
| 1228 | #ifdef VMS |
| 1229 | kill_vms_processes (); |
| 1230 | #endif |
| 1231 | |
| 1232 | #if 0 /* This triggers a bug in XCloseDisplay and is not needed. */ |
| 1233 | #ifdef HAVE_X_WINDOWS |
| 1234 | /* It's not safe to call intern here. Maybe we are crashing. */ |
| 1235 | if (!noninteractive && SYMBOLP (Vwindow_system) |
| 1236 | && XSYMBOL (Vwindow_system)->name->size == 1 |
| 1237 | && XSYMBOL (Vwindow_system)->name->data[0] == 'x' |
| 1238 | && ! no_x) |
| 1239 | Fx_close_current_connection (); |
| 1240 | #endif /* HAVE_X_WINDOWS */ |
| 1241 | #endif |
| 1242 | |
| 1243 | #ifdef SIGIO |
| 1244 | /* There is a tendency for a SIGIO signal to arrive within exit, |
| 1245 | and cause a SIGHUP because the input descriptor is already closed. */ |
| 1246 | unrequest_sigio (); |
| 1247 | signal (SIGIO, SIG_IGN); |
| 1248 | #endif |
| 1249 | } |
| 1250 | |
| 1251 | |
| 1252 | \f |
| 1253 | #ifndef CANNOT_DUMP |
| 1254 | |
| 1255 | #ifdef HAVE_SHM |
| 1256 | |
| 1257 | DEFUN ("dump-emacs-data", Fdump_emacs_data, Sdump_emacs_data, 1, 1, 0, |
| 1258 | "Dump current state of Emacs into data file FILENAME.\n\ |
| 1259 | This function exists on systems that use HAVE_SHM.") |
| 1260 | (intoname) |
| 1261 | Lisp_Object intoname; |
| 1262 | { |
| 1263 | extern char my_edata[]; |
| 1264 | Lisp_Object tem; |
| 1265 | |
| 1266 | CHECK_STRING (intoname, 0); |
| 1267 | intoname = Fexpand_file_name (intoname, Qnil); |
| 1268 | |
| 1269 | tem = Vpurify_flag; |
| 1270 | Vpurify_flag = Qnil; |
| 1271 | |
| 1272 | fflush (stdout); |
| 1273 | /* Tell malloc where start of impure now is */ |
| 1274 | /* Also arrange for warnings when nearly out of space. */ |
| 1275 | #ifndef SYSTEM_MALLOC |
| 1276 | memory_warnings (my_edata, malloc_warning); |
| 1277 | #endif |
| 1278 | map_out_data (XSTRING (intoname)->data); |
| 1279 | |
| 1280 | Vpurify_flag = tem; |
| 1281 | |
| 1282 | return Qnil; |
| 1283 | } |
| 1284 | |
| 1285 | #else /* not HAVE_SHM */ |
| 1286 | |
| 1287 | DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0, |
| 1288 | "Dump current state of Emacs into executable file FILENAME.\n\ |
| 1289 | Take symbols from SYMFILE (presumably the file you executed to run Emacs).\n\ |
| 1290 | This is used in the file `loadup.el' when building Emacs.\n\ |
| 1291 | \n\ |
| 1292 | Bind `command-line-processed' to nil before dumping,\n\ |
| 1293 | if you want the dumped Emacs to process its command line\n\ |
| 1294 | and announce itself normally when it is run.") |
| 1295 | (intoname, symname) |
| 1296 | Lisp_Object intoname, symname; |
| 1297 | { |
| 1298 | extern char my_edata[]; |
| 1299 | Lisp_Object tem; |
| 1300 | |
| 1301 | CHECK_STRING (intoname, 0); |
| 1302 | intoname = Fexpand_file_name (intoname, Qnil); |
| 1303 | if (!NILP (symname)) |
| 1304 | { |
| 1305 | CHECK_STRING (symname, 0); |
| 1306 | if (XSTRING (symname)->size) |
| 1307 | symname = Fexpand_file_name (symname, Qnil); |
| 1308 | } |
| 1309 | |
| 1310 | tem = Vpurify_flag; |
| 1311 | Vpurify_flag = Qnil; |
| 1312 | |
| 1313 | fflush (stdout); |
| 1314 | #ifdef VMS |
| 1315 | mapout_data (XSTRING (intoname)->data); |
| 1316 | #else |
| 1317 | /* Tell malloc where start of impure now is */ |
| 1318 | /* Also arrange for warnings when nearly out of space. */ |
| 1319 | #ifndef SYSTEM_MALLOC |
| 1320 | #ifndef WINDOWSNT |
| 1321 | /* On Windows, this was done before dumping, and that once suffices. |
| 1322 | Meanwhile, my_edata is not valid on Windows. */ |
| 1323 | memory_warnings (my_edata, malloc_warning); |
| 1324 | #endif /* not WINDOWSNT */ |
| 1325 | #endif |
| 1326 | unexec (XSTRING (intoname)->data, |
| 1327 | !NILP (symname) ? XSTRING (symname)->data : 0, my_edata, 0, 0); |
| 1328 | #endif /* not VMS */ |
| 1329 | |
| 1330 | Vpurify_flag = tem; |
| 1331 | |
| 1332 | return Qnil; |
| 1333 | } |
| 1334 | |
| 1335 | #endif /* not HAVE_SHM */ |
| 1336 | |
| 1337 | #endif /* not CANNOT_DUMP */ |
| 1338 | \f |
| 1339 | #ifndef SEPCHAR |
| 1340 | #define SEPCHAR ':' |
| 1341 | #endif |
| 1342 | |
| 1343 | Lisp_Object |
| 1344 | decode_env_path (evarname, defalt) |
| 1345 | char *evarname, *defalt; |
| 1346 | { |
| 1347 | register char *path, *p; |
| 1348 | |
| 1349 | Lisp_Object lpath; |
| 1350 | |
| 1351 | /* It's okay to use getenv here, because this function is only used |
| 1352 | to initialize variables when Emacs starts up, and isn't called |
| 1353 | after that. */ |
| 1354 | if (evarname != 0) |
| 1355 | path = (char *) getenv (evarname); |
| 1356 | else |
| 1357 | path = 0; |
| 1358 | if (!path) |
| 1359 | path = defalt; |
| 1360 | lpath = Qnil; |
| 1361 | while (1) |
| 1362 | { |
| 1363 | p = index (path, SEPCHAR); |
| 1364 | if (!p) p = path + strlen (path); |
| 1365 | lpath = Fcons (p - path ? make_string (path, p - path) |
| 1366 | : build_string ("."), |
| 1367 | lpath); |
| 1368 | if (*p) |
| 1369 | path = p + 1; |
| 1370 | else |
| 1371 | break; |
| 1372 | } |
| 1373 | return Fnreverse (lpath); |
| 1374 | } |
| 1375 | |
| 1376 | syms_of_emacs () |
| 1377 | { |
| 1378 | #ifndef CANNOT_DUMP |
| 1379 | #ifdef HAVE_SHM |
| 1380 | defsubr (&Sdump_emacs_data); |
| 1381 | #else |
| 1382 | defsubr (&Sdump_emacs); |
| 1383 | #endif |
| 1384 | #endif |
| 1385 | |
| 1386 | defsubr (&Skill_emacs); |
| 1387 | |
| 1388 | defsubr (&Sinvocation_name); |
| 1389 | defsubr (&Sinvocation_directory); |
| 1390 | |
| 1391 | DEFVAR_LISP ("command-line-args", &Vcommand_line_args, |
| 1392 | "Args passed by shell to Emacs, as a list of strings."); |
| 1393 | |
| 1394 | DEFVAR_LISP ("system-type", &Vsystem_type, |
| 1395 | "Value is symbol indicating type of operating system you are using."); |
| 1396 | Vsystem_type = intern (SYSTEM_TYPE); |
| 1397 | |
| 1398 | DEFVAR_LISP ("system-configuration", &Vsystem_configuration, |
| 1399 | "Value is string indicating configuration Emacs was built for."); |
| 1400 | Vsystem_configuration = build_string (EMACS_CONFIGURATION); |
| 1401 | |
| 1402 | DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options, |
| 1403 | "String containing the configuration options Emacs was built with."); |
| 1404 | Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS); |
| 1405 | |
| 1406 | DEFVAR_BOOL ("noninteractive", &noninteractive1, |
| 1407 | "Non-nil means Emacs is running without interactive terminal."); |
| 1408 | |
| 1409 | DEFVAR_LISP ("kill-emacs-hook", &Vkill_emacs_hook, |
| 1410 | "Hook to be run whenever kill-emacs is called.\n\ |
| 1411 | Since kill-emacs may be invoked when the terminal is disconnected (or\n\ |
| 1412 | in other similar situations), functions placed on this hook should not\n\ |
| 1413 | expect to be able to interact with the user. To ask for confirmation,\n\ |
| 1414 | see `kill-emacs-query-functions' instead."); |
| 1415 | Vkill_emacs_hook = Qnil; |
| 1416 | |
| 1417 | DEFVAR_INT ("emacs-priority", &emacs_priority, |
| 1418 | "Priority for Emacs to run at.\n\ |
| 1419 | This value is effective only if set before Emacs is dumped,\n\ |
| 1420 | and only if the Emacs executable is installed with setuid to permit\n\ |
| 1421 | it to change priority. (Emacs sets its uid back to the real uid.)\n\ |
| 1422 | Currently, you need to define SET_EMACS_PRIORITY in `config.h'\n\ |
| 1423 | before you compile Emacs, to enable the code for this feature."); |
| 1424 | emacs_priority = 0; |
| 1425 | |
| 1426 | DEFVAR_LISP ("invocation-name", &Vinvocation_name, |
| 1427 | "The program name that was used to run Emacs.\n\ |
| 1428 | Any directory names are omitted."); |
| 1429 | |
| 1430 | DEFVAR_LISP ("invocation-directory", &Vinvocation_directory, |
| 1431 | "The directory in which the Emacs executable was found, to run it.\n\ |
| 1432 | The value is nil if that directory's name is not known."); |
| 1433 | |
| 1434 | DEFVAR_LISP ("installation-directory", &Vinstallation_directory, |
| 1435 | "A directory within which to look for the `lib-src' and `etc' directories.\n\ |
| 1436 | This is non-nil when we can't find those directories in their standard\n\ |
| 1437 | installed locations, but we can find them\n\ |
| 1438 | near where the Emacs executable was found."); |
| 1439 | Vinstallation_directory = Qnil; |
| 1440 | } |