![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to emacs.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Apple XNU] / GNUtools / emacs / src|
Return to emacs.c CVS log | Up to [Apple XNU] / GNUtools / emacs / src |
1.1 ! root 1: /* Fully extensible Emacs, running on Unix, intended for GNU. ! 2: Copyright (C) 1985, 1986, 1987, 1990 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 1, 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: /* This must precede sys/signal.h on certain machines. */ ! 22: #include <sys/types.h> ! 23: #include <signal.h> ! 24: #include <errno.h> ! 25: ! 26: #include "config.h" ! 27: #ifdef NULL ! 28: #undef NULL ! 29: #endif ! 30: #include "lisp.h" ! 31: #undef NULL ! 32: #include "commands.h" ! 33: ! 34: /* Get FIONREAD, if it is available, ! 35: just to help decide whether SIGIO should be defined. */ ! 36: #ifdef USG ! 37: #include <termio.h> ! 38: #include <fcntl.h> ! 39: #else /* not USG */ ! 40: #ifndef VMS ! 41: #include <sys/ioctl.h> ! 42: #endif /* not VMS */ ! 43: #endif /* not USG */ ! 44: ! 45: /* Allow m- file to inhibit use of FIONREAD. */ ! 46: #ifdef BROKEN_FIONREAD ! 47: #undef FIONREAD ! 48: #endif ! 49: ! 50: /* We are unable to use interrupts if FIONREAD is not available, ! 51: so flush SIGIO so we won't try. */ ! 52: #ifndef FIONREAD ! 53: #ifdef SIGIO ! 54: #undef SIGIO ! 55: #endif ! 56: #endif ! 57: ! 58: #include <stdio.h> ! 59: #include <sys/file.h> ! 60: ! 61: #ifdef VMS ! 62: #include <ssdef.h> ! 63: #endif ! 64: ! 65: #if 0 /* fcntl.h was included above. */ ! 66: #ifdef USG5 ! 67: #include <fcntl.h> ! 68: #endif ! 69: #endif ! 70: ! 71: #ifdef BSD ! 72: #include <sys/ioctl.h> ! 73: #endif ! 74: ! 75: #ifdef APOLLO ! 76: #ifndef APOLLO_SR10 ! 77: #include <default_acl.h> ! 78: #endif ! 79: #endif ! 80: ! 81: #ifndef O_RDWR ! 82: #define O_RDWR 2 ! 83: #endif ! 84: ! 85: #define PRIO_PROCESS 0 ! 86: ! 87: /* Command line args from shell, as list of strings */ ! 88: Lisp_Object Vcommand_line_args; ! 89: ! 90: /* Hook run by `kill-emacs' before it does really anything. */ ! 91: Lisp_Object Vkill_emacs_hook; ! 92: ! 93: /* Set nonzero after Emacs has started up the first time. ! 94: Prevents reinitialization of the Lisp world and keymaps ! 95: on subsequent starts. */ ! 96: int initialized; ! 97: ! 98: /* Variable whose value is symbol giving operating system type */ ! 99: Lisp_Object Vsystem_type; ! 100: ! 101: /* If non-zero, emacs should not attempt to use an window-specific code, ! 102: but instead should use the virtual terminal under which it was started */ ! 103: int inhibit_window_system; ! 104: ! 105: #ifdef HAVE_X_WINDOWS ! 106: /* If -d option is used, this variable points to the name of ! 107: the display to use. */ ! 108: char *alternate_display; ! 109: char **xargv; ! 110: int xargc; ! 111: #endif /* HAVE_X_WINDOWS */ ! 112: ! 113: #ifdef USG_SHARED_LIBRARIES ! 114: /* If nonzero, this is the place to put the end of the writable segment ! 115: at startup. */ ! 116: ! 117: unsigned int bss_end = 0; ! 118: #endif ! 119: ! 120: /* Nonzero means running Emacs without interactive terminal. */ ! 121: ! 122: int noninteractive; ! 123: ! 124: /* Value of Lisp variable `noninteractive'. ! 125: Normally same as C variable `noninteractive' ! 126: but nothing terrible happens if user sets this one. */ ! 127: ! 128: int noninteractive1; ! 129: ! 130: /* Signal code for the fatal signal that was received */ ! 131: int fatal_error_code; ! 132: ! 133: /* Nonzero if handling a fatal error already */ ! 134: int fatal_error_in_progress; ! 135: ! 136: /* Handle bus errors, illegal instruction, etc. */ ! 137: fatal_error_signal (sig) ! 138: int sig; ! 139: { ! 140: #ifdef BSD ! 141: int tpgrp; ! 142: #endif /* BSD */ ! 143: ! 144: fatal_error_code = sig; ! 145: signal (sig, SIG_DFL); ! 146: ! 147: /* If fatal error occurs in code below, avoid infinite recursion. */ ! 148: if (fatal_error_in_progress) ! 149: kill (getpid (), fatal_error_code); ! 150: ! 151: fatal_error_in_progress = 1; ! 152: ! 153: /* If we are controlling the terminal, reset terminal modes */ ! 154: #ifdef BSD ! 155: if (ioctl(0, TIOCGPGRP, &tpgrp) == 0 ! 156: && tpgrp == getpgrp (0)) ! 157: #endif /* BSD */ ! 158: { ! 159: reset_sys_modes (); ! 160: if (sig != SIGTERM) ! 161: fprintf (stderr, "Fatal error (%d).", sig); ! 162: } ! 163: ! 164: /* Clean up */ ! 165: #ifdef subprocesses ! 166: kill_buffer_processes (Qnil); ! 167: #endif ! 168: Fdo_auto_save (Qt); ! 169: ! 170: #ifdef CLASH_DETECTION ! 171: unlock_all_files (); ! 172: #endif /* CLASH_DETECTION */ ! 173: ! 174: #ifdef VMS ! 175: kill_vms_processes (); ! 176: LIB$STOP (SS$_ABORT); ! 177: #else ! 178: /* Signal the same code; this time it will really be fatal. */ ! 179: kill (getpid (), fatal_error_code); ! 180: #endif /* not VMS */ ! 181: } ! 182: ! 183: /* Code for dealing with Lisp access to the Unix command line */ ! 184: ! 185: static ! 186: init_cmdargs (argc, argv, skip_args) ! 187: int argc; ! 188: char **argv; ! 189: int skip_args; ! 190: { ! 191: register int i; ! 192: ! 193: Vcommand_line_args = Qnil; ! 194: ! 195: for (i = argc - 1; i >= 0; i--) ! 196: { ! 197: if (i == 0 || i > skip_args) ! 198: Vcommand_line_args ! 199: = Fcons (build_string (argv[i]), Vcommand_line_args); ! 200: } ! 201: } ! 202: ! 203: #ifdef VMS ! 204: #ifdef LINK_CRTL_SHARE ! 205: #ifdef SHAREABLE_LIB_BUG ! 206: #ifdef __GNUC__ ! 207: #define environ $$PsectAttributes_NOSHR$$environ ! 208: extern char **environ; ! 209: #else ! 210: extern noshare char **environ; ! 211: #endif ! 212: #endif /* SHAREABLE_LIB_BUG */ ! 213: #endif /* LINK_CRTL_SHARE */ ! 214: #endif /* VMS */ ! 215: ! 216: /* We don't include crtbegin.o and crtend.o in the link, ! 217: so these functions and variables might be missed. ! 218: Provide dummy definitions to avoid error. ! 219: (We don't have any real constructors or destructors.) */ ! 220: #ifdef __GNUC__ ! 221: #ifndef ORDINARY_LINK ! 222: __do_clobal_ctors () ! 223: {} ! 224: __do_clobal_ctors_aux () ! 225: {} ! 226: __do_global_dtors () ! 227: {} ! 228: char * __CTOR_LIST__[2] = { (char *) (-1), 0 }; ! 229: char * __DTOR_LIST__[2] = { (char *) (-1), 0 }; ! 230: __main () ! 231: {} ! 232: #endif /* not ORDINARY_LINK */ ! 233: #endif /* __GNUC__ */ ! 234: ! 235: /* ARGSUSED */ ! 236: main (argc, argv, envp) ! 237: int argc; ! 238: char **argv; ! 239: char **envp; ! 240: { ! 241: int skip_args = 0; ! 242: extern int errno; ! 243: extern void malloc_warning (); ! 244: ! 245: /* Map in shared memory, if we are using that. */ ! 246: #ifdef HAVE_SHM ! 247: if (argc > 1 && !strcmp (argv[1], "-nl")) ! 248: { ! 249: map_in_data (0); ! 250: /* The shared memory was just restored, which clobbered this. */ ! 251: skip_args = 1; ! 252: } ! 253: else ! 254: { ! 255: map_in_data (1); ! 256: /* The shared memory was just restored, which clobbered this. */ ! 257: skip_args = 0; ! 258: } ! 259: #endif ! 260: ! 261: #ifdef VMS ! 262: /* If -map specified, map the data file in */ ! 263: if (argc > 2 && ! strcmp (argv[1], "-map")) ! 264: { ! 265: skip_args = 2; ! 266: mapin_data (argv[2]); ! 267: } ! 268: ! 269: #ifdef LINK_CRTL_SHARE ! 270: #ifdef SHAREABLE_LIB_BUG ! 271: /* Bletcherous shared libraries! */ ! 272: if (!stdin) ! 273: stdin = fdopen (0, "r"); ! 274: if (!stdout) ! 275: stdout = fdopen (1, "w"); ! 276: if (!stderr) ! 277: stderr = fdopen (2, "w"); ! 278: if (!environ) ! 279: environ = envp; ! 280: #endif /* SHAREABLE_LIB_BUG */ ! 281: #endif /* LINK_CRTL_SHARE */ ! 282: #endif /* VMS */ ! 283: ! 284: #ifdef USG_SHARED_LIBRARIES ! 285: if (bss_end) ! 286: brk (bss_end); ! 287: #endif ! 288: ! 289: #ifdef NeXT ! 290: extern int malloc_cookie; ! 291: ! 292: /* This helps out unexnext.c. */ ! 293: if (initialized) ! 294: if (malloc_jumpstart (malloc_cookie) != 0) ! 295: printf ("malloc jumpstart failed!\n"); ! 296: #endif /* NeXT */ ! 297: ! 298: clearerr (stdin); ! 299: ! 300: #ifdef APOLLO ! 301: #ifndef APOLLO_SR10 ! 302: /* If USE_DOMAIN_ACLS environment variable exists, ! 303: use ACLs rather than UNIX modes. */ ! 304: if (egetenv ("USE_DOMAIN_ACLS")) ! 305: default_acl (USE_DEFACL); ! 306: #endif ! 307: #endif /* APOLLO */ ! 308: ! 309: #ifndef SYSTEM_MALLOC ! 310: /* Arrange for warnings when nearly out of space. */ ! 311: malloc_init (0, malloc_warning); ! 312: #endif ! 313: ! 314: #ifdef HIGHPRI ! 315: setpriority (PRIO_PROCESS, getpid (), HIGHPRI); ! 316: setuid (getuid ()); ! 317: #endif HIGHPRI ! 318: ! 319: inhibit_window_system = 0; ! 320: ! 321: #ifdef HAVE_X_WINDOWS ! 322: xargv = argv; ! 323: xargc = argc; ! 324: #endif ! 325: ! 326: /* Handle the -t switch, which specifies filename to use as terminal */ ! 327: if (skip_args + 2 < argc && !strcmp (argv[skip_args + 1], "-t")) ! 328: { ! 329: skip_args += 2; ! 330: close (0); ! 331: close (1); ! 332: open (argv[skip_args], O_RDWR, 2 ); ! 333: dup (0); ! 334: fprintf (stderr, "Using %s\n", argv[skip_args]); ! 335: #ifdef HAVE_X_WINDOWS ! 336: inhibit_window_system = 1; /* -t => -nw */ ! 337: #endif ! 338: } ! 339: #ifdef HAVE_X_WINDOWS ! 340: /* Handle the -d switch, which means use a different display for X */ ! 341: if (skip_args + 2 < argc && (!strcmp (argv[skip_args + 1], "-d") || ! 342: !strcmp (argv[skip_args + 1], "-display"))) ! 343: { ! 344: skip_args += 2; ! 345: alternate_display = argv[skip_args]; ! 346: } ! 347: else ! 348: alternate_display = 0; ! 349: #endif /* HAVE_X_WINDOWS */ ! 350: ! 351: if (skip_args + 1 < argc ! 352: && (!strcmp (argv[skip_args + 1], "-nw"))) ! 353: { ! 354: skip_args += 1; ! 355: inhibit_window_system = 1; ! 356: } ! 357: ! 358: /* Handle the -batch switch, which means don't do interactive display. */ ! 359: noninteractive = 0; ! 360: if (skip_args + 1 < argc && !strcmp (argv[skip_args + 1], "-batch")) ! 361: { ! 362: skip_args += 1; ! 363: noninteractive = 1; ! 364: } ! 365: ! 366: #ifdef POSIX_SIGNALS ! 367: init_signals (); ! 368: #endif ! 369: ! 370: #ifdef HAVE_TZSET ! 371: /* Reinitialize the time zone if it was initialized before dumping Emacs. */ ! 372: if (initialized) ! 373: tzset (); ! 374: #endif ! 375: ! 376: if ( ! 377: #ifndef CANNOT_DUMP ! 378: ! noninteractive || initialized ! 379: #else ! 380: 1 ! 381: #endif ! 382: ) ! 383: { ! 384: /* Don't catch these signals in batch mode if not initialized. ! 385: On some machines, this sets static data that would make ! 386: signal fail to work right when the dumped Emacs is run. */ ! 387: signal (SIGHUP, fatal_error_signal); ! 388: signal (SIGQUIT, fatal_error_signal); ! 389: signal (SIGILL, fatal_error_signal); ! 390: signal (SIGTRAP, fatal_error_signal); ! 391: signal (SIGIOT, fatal_error_signal); ! 392: #ifdef SIGEMT ! 393: signal (SIGEMT, fatal_error_signal); ! 394: #endif ! 395: signal (SIGFPE, fatal_error_signal); ! 396: signal (SIGBUS, fatal_error_signal); ! 397: signal (SIGSEGV, fatal_error_signal); ! 398: signal (SIGSYS, fatal_error_signal); ! 399: signal (SIGTERM, fatal_error_signal); ! 400: #ifdef SIGXCPU ! 401: signal (SIGXCPU, fatal_error_signal); ! 402: #endif ! 403: #ifdef SIGXFSZ ! 404: signal (SIGXFSZ, fatal_error_signal); ! 405: #endif SIGXFSZ ! 406: ! 407: #ifdef AIX ! 408: /* This used to run fatal_error_signal, ! 409: but it isn't fatal. There's nothing Emacs can usefully do. ! 410: Might as well let the system kill us if it insists. */ ! 411: signal (SIGDANGER, SIG_IGN); ! 412: signal (20, fatal_error_signal); ! 413: signal (21, fatal_error_signal); ! 414: signal (22, fatal_error_signal); ! 415: signal (23, fatal_error_signal); ! 416: signal (24, fatal_error_signal); ! 417: #ifdef SIGIO ! 418: signal (SIGAIO, fatal_error_signal); ! 419: signal (SIGPTY, fatal_error_signal); ! 420: #endif ! 421: #ifdef SIGURG ! 422: /* Note that SIGIOINT is the same as SIGIO on some machines, ! 423: and the same as SIGURG on others. It seems ore reliable to use the ! 424: name with a uniform meaning. */ ! 425: signal (SIGURG, fatal_error_signal); ! 426: #endif ! 427: signal (SIGGRANT, fatal_error_signal); ! 428: signal (SIGRETRACT, fatal_error_signal); ! 429: signal (SIGSOUND, fatal_error_signal); ! 430: signal (SIGMSG, fatal_error_signal); ! 431: #endif /* AIX */ ! 432: } ! 433: ! 434: noninteractive1 = noninteractive; ! 435: ! 436: /* Perform basic initializations (not merely interning symbols) */ ! 437: ! 438: if (!initialized) ! 439: { ! 440: init_alloc_once (); ! 441: init_obarray (); ! 442: init_eval_once (); ! 443: init_syntax_once (); /* Create standard syntax table. */ ! 444: /* Must be done before init_buffer */ ! 445: init_buffer_once (); /* Create buffer table and some buffers */ ! 446: init_minibuf_once (); /* Create list of minibuffers */ ! 447: /* Must precede init_window_once */ ! 448: init_window_once (); /* Init the window system */ ! 449: } ! 450: ! 451: init_alloc (); ! 452: #ifdef MAINTAIN_ENVIRONMENT ! 453: init_environ (); ! 454: #endif ! 455: init_eval (); ! 456: init_data (); ! 457: init_read (); ! 458: ! 459: init_cmdargs (argc, argv, skip_args); /* Create list Vcommand_line_args */ ! 460: init_buffer (); /* Init default directory of main buffer */ ! 461: if (!noninteractive) ! 462: { ! 463: #ifdef VMS ! 464: init_vms_input ();/* init_display calls get_screen_size, that needs this */ ! 465: #endif /* VMS */ ! 466: init_display (); /* Determine terminal type. init_sys_modes uses results */ ! 467: } ! 468: init_keyboard (); /* This too must precede init_sys_modes */ ! 469: init_callproc (); /* And this too. */ ! 470: init_sys_modes (); /* Init system terminal modes (RAW or CBREAK, etc.) */ ! 471: init_xdisp (); ! 472: init_macros (); ! 473: init_editfns (); ! 474: #ifdef VMS ! 475: init_vmsfns (); ! 476: #endif /* VMS */ ! 477: #ifdef subprocesses ! 478: init_process (); ! 479: #endif /* subprocesses */ ! 480: ! 481: /* Intern the names of all standard functions and variables; define standard keys */ ! 482: ! 483: if (!initialized) ! 484: { ! 485: /* The basic levels of Lisp must come first */ ! 486: /* And data must come first of all ! 487: for the sake of symbols like error-message */ ! 488: syms_of_data (); ! 489: syms_of_alloc (); ! 490: #ifdef MAINTAIN_ENVIRONMENT ! 491: syms_of_environ (); ! 492: #endif MAINTAIN_ENVIRONMENT ! 493: syms_of_read (); ! 494: syms_of_print (); ! 495: syms_of_eval (); ! 496: syms_of_fns (); ! 497: ! 498: syms_of_abbrev (); ! 499: syms_of_buffer (); ! 500: syms_of_bytecode (); ! 501: syms_of_callint (); ! 502: syms_of_casefiddle (); ! 503: syms_of_callproc (); ! 504: syms_of_cmds (); ! 505: #ifndef NO_DIR_LIBRARY ! 506: syms_of_dired (); ! 507: #endif /* not NO_DIR_LIBRARY */ ! 508: syms_of_display (); ! 509: syms_of_doc (); ! 510: syms_of_editfns (); ! 511: syms_of_emacs (); ! 512: syms_of_fileio (); ! 513: #ifdef CLASH_DETECTION ! 514: syms_of_filelock (); ! 515: #endif /* CLASH_DETECTION */ ! 516: syms_of_indent (); ! 517: syms_of_keyboard (); ! 518: syms_of_keymap (); ! 519: syms_of_macros (); ! 520: syms_of_marker (); ! 521: syms_of_minibuf (); ! 522: syms_of_mocklisp (); ! 523: #ifdef subprocesses ! 524: syms_of_process (); ! 525: #endif /* subprocesses */ ! 526: syms_of_search (); ! 527: syms_of_syntax (); ! 528: syms_of_undo (); ! 529: syms_of_window (); ! 530: syms_of_xdisp (); ! 531: #ifdef HAVE_X_WINDOWS ! 532: syms_of_xfns (); ! 533: #ifdef HAVE_X_MENU ! 534: syms_of_xmenu (); ! 535: #endif /* HAVE_X_MENU */ ! 536: #endif /* HAVE_X_WINDOWS */ ! 537: ! 538: #ifdef SYMS_SYSTEM ! 539: SYMS_SYSTEM; ! 540: #endif ! 541: ! 542: #ifdef SYMS_MACHINE ! 543: SYMS_MACHINE; ! 544: #endif ! 545: ! 546: keys_of_casefiddle (); ! 547: keys_of_cmds (); ! 548: keys_of_buffer (); ! 549: keys_of_keyboard (); ! 550: keys_of_keymap (); ! 551: keys_of_macros (); ! 552: keys_of_minibuf (); ! 553: keys_of_window (); ! 554: } ! 555: ! 556: if (!initialized) ! 557: { ! 558: /* Handle -l loadup-and-dump, args passed by Makefile. */ ! 559: if (argc > 2 + skip_args && !strcmp (argv[1 + skip_args], "-l")) ! 560: Vtop_level = Fcons (intern ("load"), ! 561: Fcons (build_string (argv[2 + skip_args]), Qnil)); ! 562: #ifdef CANNOT_DUMP ! 563: /* Unless next switch is -nl, load "loadup.el" first thing. */ ! 564: if (!(argc > 1 + skip_args && !strcmp (argv[1 + skip_args], "-nl"))) ! 565: Vtop_level = Fcons (intern ("load"), ! 566: Fcons (build_string ("loadup.el"), Qnil)); ! 567: #endif /* CANNOT_DUMP */ ! 568: } ! 569: ! 570: initialized = 1; ! 571: ! 572: /* Enter editor command loop. This never returns. */ ! 573: Frecursive_edit (); ! 574: /* NOTREACHED */ ! 575: } ! 576: ! 577: DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P", ! 578: "Exit the Emacs job and kill it. ARG means no query.\n\ ! 579: If emacs is running noninteractively and ARG is an integer,\n\ ! 580: return ARG as the exit program code.") ! 581: (arg) ! 582: Lisp_Object arg; ! 583: { ! 584: Lisp_Object answer; ! 585: int i; ! 586: struct gcpro gcpro1; ! 587: ! 588: GCPRO1 (arg); ! 589: ! 590: if (!EQ (Vkill_emacs_hook, Qnil)) ! 591: call0 (Vkill_emacs_hook); ! 592: ! 593: if (feof (stdin)) ! 594: arg = Qt; ! 595: ! 596: #ifdef subprocesses ! 597: kill_buffer_processes (Qnil); ! 598: #endif /* subprocesses */ ! 599: ! 600: #ifdef VMS ! 601: kill_vms_processes (); ! 602: #endif /* VMS */ ! 603: ! 604: Fdo_auto_save (Qt); ! 605: ! 606: #ifdef CLASH_DETECTION ! 607: unlock_all_files (); ! 608: #endif /* CLASH_DETECTION */ ! 609: ! 610: fflush (stdout); ! 611: reset_sys_modes (); ! 612: UNGCPRO; ! 613: ! 614: /* Is it really necessary to do this deassign ! 615: when we are going to exit anyway? */ ! 616: /* #ifdef VMS ! 617: stop_vms_input (); ! 618: #endif */ ! 619: stuff_buffered_input (arg); ! 620: #ifdef SIGIO ! 621: /* There is a tendency for a SIGIO signal to arrive within exit, ! 622: and cause a SIGHUP because the input descriptor is already closed. */ ! 623: unrequest_sigio (); ! 624: signal (SIGIO, SIG_IGN); ! 625: #endif ! 626: exit ((XTYPE (arg) == Lisp_Int) ? XINT (arg) ! 627: #ifdef VMS ! 628: : 1 ! 629: #else ! 630: : 0 ! 631: #endif ! 632: ); ! 633: /* NOTREACHED */ ! 634: } ! 635: ! 636: #ifndef CANNOT_DUMP ! 637: /* Nothing like this can be implemented on an Apollo. ! 638: What a loss! */ ! 639: ! 640: #ifdef HAVE_SHM ! 641: ! 642: DEFUN ("dump-emacs-data", Fdump_emacs_data, Sdump_emacs_data, 1, 1, 0, ! 643: "Dump current state of Emacs into data file FILENAME.\n\ ! 644: This function exists on systems that use HAVE_SHM.") ! 645: (intoname) ! 646: Lisp_Object intoname; ! 647: { ! 648: extern int my_edata; ! 649: Lisp_Object tem; ! 650: extern void malloc_warning (); ! 651: ! 652: CHECK_STRING (intoname, 0); ! 653: intoname = Fexpand_file_name (intoname, Qnil); ! 654: ! 655: tem = Vpurify_flag; ! 656: Vpurify_flag = Qnil; ! 657: ! 658: fflush (stdout); ! 659: /* Tell malloc where start of impure now is */ ! 660: /* Also arrange for warnings when nearly out of space. */ ! 661: #ifndef SYSTEM_MALLOC ! 662: malloc_init (&my_edata, malloc_warning); ! 663: #endif ! 664: map_out_data (XSTRING (intoname)->data); ! 665: ! 666: Vpurify_flag = tem; ! 667: ! 668: return Qnil; ! 669: } ! 670: ! 671: #else /* not HAVE_SHM */ ! 672: ! 673: DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0, ! 674: "Dump current state of Emacs into executable file FILENAME.\n\ ! 675: Take symbols from SYMFILE (presumably the file you executed to run Emacs).") ! 676: (intoname, symname) ! 677: Lisp_Object intoname, symname; ! 678: { ! 679: extern int my_edata; ! 680: Lisp_Object tem; ! 681: extern void malloc_warning (); ! 682: ! 683: CHECK_STRING (intoname, 0); ! 684: intoname = Fexpand_file_name (intoname, Qnil); ! 685: if (!EQ (symname, Qnil)) ! 686: { ! 687: CHECK_STRING (symname, 0); ! 688: if (XSTRING (symname)->size) ! 689: symname = Fexpand_file_name (symname, Qnil); ! 690: } ! 691: ! 692: tem = Vpurify_flag; ! 693: Vpurify_flag = Qnil; ! 694: ! 695: fflush (stdout); ! 696: #ifdef VMS ! 697: mapout_data (XSTRING (intoname)->data); ! 698: #else ! 699: /* Tell malloc where start of impure now is */ ! 700: /* Also arrange for warnings when nearly out of space. */ ! 701: #ifndef SYSTEM_MALLOC ! 702: malloc_init (&my_edata, malloc_warning); ! 703: #endif ! 704: unexec (XSTRING (intoname)->data, ! 705: !EQ (symname, Qnil) ? XSTRING (symname)->data : 0, &my_edata, 0, 0); ! 706: #endif /* not VMS */ ! 707: ! 708: Vpurify_flag = tem; ! 709: ! 710: return Qnil; ! 711: } ! 712: ! 713: #endif /* not HAVE_SHM */ ! 714: ! 715: #endif /* not CANNOT_DUMP */ ! 716: ! 717: #ifdef VMS ! 718: #define SEPCHAR ',' ! 719: #else ! 720: #define SEPCHAR ':' ! 721: #endif ! 722: ! 723: Lisp_Object ! 724: decode_env_path (evarname, defalt) ! 725: char *evarname, *defalt; ! 726: { ! 727: register char *path, *p; ! 728: extern char *index (); ! 729: ! 730: Lisp_Object lpath; ! 731: ! 732: if (evarname != 0) ! 733: path = (char *) egetenv (evarname); ! 734: else ! 735: path = 0; ! 736: if (!path) ! 737: path = defalt; ! 738: lpath = Qnil; ! 739: while (1) ! 740: { ! 741: p = index (path, SEPCHAR); ! 742: if (!p) p = path + strlen (path); ! 743: lpath = Fcons (p - path ? make_string (path, p - path) : Qnil, ! 744: lpath); ! 745: if (*p) ! 746: path = p + 1; ! 747: else ! 748: break; ! 749: } ! 750: return Fnreverse (lpath); ! 751: } ! 752: ! 753: syms_of_emacs () ! 754: { ! 755: #ifndef CANNOT_DUMP ! 756: #ifdef HAVE_SHM ! 757: defsubr (&Sdump_emacs_data); ! 758: #else ! 759: defsubr (&Sdump_emacs); ! 760: #endif ! 761: #endif /* not CANNOT_DUMP */ ! 762: ! 763: defsubr (&Skill_emacs); ! 764: ! 765: DEFVAR_LISP ("command-line-args", &Vcommand_line_args, ! 766: "Args passed by shell to Emacs, as a list of strings."); ! 767: ! 768: DEFVAR_LISP ("system-type", &Vsystem_type, ! 769: "Symbol indicating type of operating system you are using."); ! 770: Vsystem_type = intern (SYSTEM_TYPE); ! 771: ! 772: DEFVAR_BOOL ("noninteractive", &noninteractive1, ! 773: "Non-nil means Emacs is running without interactive terminal."); ! 774: ! 775: Vkill_emacs_hook = Qnil; ! 776: ! 777: DEFVAR_LISP ("kill-emacs-hook", &Vkill_emacs_hook, ! 778: "Function called, if non-nil, whenever kill-emacs is called."); ! 779: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.