Regenerate ldefs-boot.el.
[emacs.git] / src / emacs.c
blob0e77223ee00510d8fa3bd2a6ad8279425c096661
1 /* Fully extensible Emacs, running on Unix, intended for GNU.
3 Copyright (C) 1985-1987, 1993-1995, 1997-1999, 2001-2012
4 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
22 #include <config.h>
23 #include <signal.h>
24 #include <errno.h>
25 #include <stdio.h>
27 #include <sys/types.h>
28 #include <sys/file.h>
29 #include <setjmp.h>
30 #include <unistd.h>
32 #include "lisp.h"
34 #ifdef WINDOWSNT
35 #include <fcntl.h>
36 #include <windows.h> /* just for w32.h */
37 #include "w32.h"
38 #include "w32heap.h" /* for prototype of sbrk */
39 #endif
41 #ifdef NS_IMPL_GNUSTEP
42 /* At least under Debian, GSConfig is in a subdirectory. --Stef */
43 #include <GNUstepBase/GSConfig.h>
44 #endif
46 #include "commands.h"
47 #include "intervals.h"
48 #include "buffer.h"
49 #include "window.h"
51 #include "systty.h"
52 #include "blockinput.h"
53 #include "syssignal.h"
54 #include "process.h"
55 #include "frame.h"
56 #include "termhooks.h"
57 #include "keyboard.h"
58 #include "keymap.h"
60 #ifdef HAVE_GNUTLS
61 #include "gnutls.h"
62 #endif
64 #ifdef HAVE_NS
65 #include "nsterm.h"
66 #endif
68 #ifdef HAVE_X_WINDOWS
69 #include "xterm.h"
70 #endif
72 #ifdef HAVE_SETLOCALE
73 #include <locale.h>
74 #endif
76 #ifdef HAVE_SETRLIMIT
77 #include <sys/time.h>
78 #include <sys/resource.h>
79 #endif
81 #ifdef HAVE_PERSONALITY_LINUX32
82 #include <sys/personality.h>
83 #endif
85 #ifdef HAVE_LIBXML2
86 #include <libxml/parser.h>
87 #endif
89 #ifndef O_RDWR
90 #define O_RDWR 2
91 #endif
93 #ifdef HAVE_SETPGID
94 #if !defined (USG)
95 #undef setpgrp
96 #define setpgrp setpgid
97 #endif
98 #endif
100 static const char emacs_version[] = VERSION;
101 static const char emacs_copyright[] = "Copyright (C) 2012 Free Software Foundation, Inc.";
103 /* Make these values available in GDB, which doesn't see macros. */
105 #ifdef USE_LSB_TAG
106 int gdb_use_lsb EXTERNALLY_VISIBLE = 1;
107 #else
108 int gdb_use_lsb EXTERNALLY_VISIBLE = 0;
109 #endif
110 #ifndef USE_LISP_UNION_TYPE
111 int gdb_use_union EXTERNALLY_VISIBLE = 0;
112 #else
113 int gdb_use_union EXTERNALLY_VISIBLE = 1;
114 #endif
115 EMACS_INT gdb_valbits EXTERNALLY_VISIBLE = VALBITS;
116 EMACS_INT gdb_gctypebits EXTERNALLY_VISIBLE = GCTYPEBITS;
117 #if defined (DATA_SEG_BITS) && ! defined (USE_LSB_TAG)
118 EMACS_INT gdb_data_seg_bits EXTERNALLY_VISIBLE = DATA_SEG_BITS;
119 #else
120 EMACS_INT gdb_data_seg_bits EXTERNALLY_VISIBLE = 0;
121 #endif
122 EMACS_INT PVEC_FLAG EXTERNALLY_VISIBLE = PSEUDOVECTOR_FLAG;
123 EMACS_INT gdb_array_mark_flag EXTERNALLY_VISIBLE = ARRAY_MARK_FLAG;
124 /* GDB might say "No enum type named pvec_type" if we don't have at
125 least one symbol with that type, and then xbacktrace could fail. */
126 enum pvec_type gdb_pvec_type EXTERNALLY_VISIBLE = PVEC_TYPE_MASK;
128 /* Empty lisp strings. To avoid having to build any others. */
129 Lisp_Object empty_unibyte_string, empty_multibyte_string;
131 /* Set nonzero after Emacs has started up the first time.
132 Prevents reinitialization of the Lisp world and keymaps
133 on subsequent starts. */
134 int initialized;
136 #ifdef DARWIN_OS
137 extern void unexec_init_emacs_zone (void);
138 #endif
140 #ifdef DOUG_LEA_MALLOC
141 /* Preserves a pointer to the memory allocated that copies that
142 static data inside glibc's malloc. */
143 static void *malloc_state_ptr;
144 /* From glibc, a routine that returns a copy of the malloc internal state. */
145 extern void *malloc_get_state (void);
146 /* From glibc, a routine that overwrites the malloc internal state. */
147 extern int malloc_set_state (void*);
148 /* Non-zero if the MALLOC_CHECK_ environment variable was set while
149 dumping. Used to work around a bug in glibc's malloc. */
150 static int malloc_using_checking;
151 #endif
153 Lisp_Object Qfile_name_handler_alist;
155 Lisp_Object Qrisky_local_variable;
157 Lisp_Object Qkill_emacs;
159 /* If non-zero, Emacs should not attempt to use a window-specific code,
160 but instead should use the virtual terminal under which it was started. */
161 int inhibit_window_system;
163 /* If non-zero, a filter or a sentinel is running. Tested to save the match
164 data on the first attempt to change it inside asynchronous code. */
165 int running_asynch_code;
167 #if defined (HAVE_X_WINDOWS) || defined (HAVE_NS)
168 /* If non-zero, -d was specified, meaning we're using some window system. */
169 int display_arg;
170 #endif
172 /* An address near the bottom of the stack.
173 Tells GC how to save a copy of the stack. */
174 char *stack_bottom;
176 #if defined (DOUG_LEA_MALLOC) || defined (GNU_LINUX)
177 /* The address where the heap starts (from the first sbrk (0) call). */
178 static void *my_heap_start;
179 #endif
181 #ifdef GNU_LINUX
182 /* The gap between BSS end and heap start as far as we can tell. */
183 static uprintmax_t heap_bss_diff;
184 #endif
186 /* Nonzero means running Emacs without interactive terminal. */
187 int noninteractive;
189 /* Nonzero means remove site-lisp directories from load-path. */
190 int no_site_lisp;
192 /* Name for the server started by the daemon.*/
193 static char *daemon_name;
195 /* Pipe used to send exit notification to the daemon parent at
196 startup. */
197 int daemon_pipe[2];
199 /* Save argv and argc. */
200 char **initial_argv;
201 int initial_argc;
203 static void sort_args (int argc, char **argv);
204 static void syms_of_emacs (void);
206 /* MSVC needs each string be shorter than 2048 bytes, so the usage
207 strings below are split to not overflow this limit. */
208 #define USAGE1 "\
209 Usage: %s [OPTION-OR-FILENAME]...\n\
211 Run Emacs, the extensible, customizable, self-documenting real-time\n\
212 display editor. The recommended way to start Emacs for normal editing\n\
213 is with no options at all.\n\
215 Run M-x info RET m emacs RET m emacs invocation RET inside Emacs to\n\
216 read the main documentation for these command-line arguments.\n\
218 Initialization options:\n\
220 --batch do not do interactive display; implies -q\n\
221 --chdir DIR change to directory DIR\n\
222 --daemon start a server in the background\n\
223 --debug-init enable Emacs Lisp debugger for init file\n\
224 --display, -d DISPLAY use X server DISPLAY\n\
225 --no-desktop do not load a saved desktop\n\
226 --no-init-file, -q load neither ~/.emacs nor default.el\n\
227 --no-shared-memory, -nl do not use shared memory\n\
228 --no-site-file do not load site-start.el\n\
229 --no-site-lisp, -nsl do not add site-lisp directories to load-path\n\
230 --no-splash do not display a splash screen on startup\n\
231 --no-window-system, -nw do not communicate with X, ignoring $DISPLAY\n\
232 --quick, -Q equivalent to:\n\
233 -q --no-site-file --no-site-lisp --no-splash\n\
234 --script FILE run FILE as an Emacs Lisp script\n\
235 --terminal, -t DEVICE use DEVICE for terminal I/O\n\
236 --user, -u USER load ~USER/.emacs instead of your own\n\
237 \n%s"
239 #define USAGE2 "\
240 Action options:\n\
242 FILE visit FILE using find-file\n\
243 +LINE go to line LINE in next FILE\n\
244 +LINE:COLUMN go to line LINE, column COLUMN, in next FILE\n\
245 --directory, -L DIR add DIR to variable load-path\n\
246 --eval EXPR evaluate Emacs Lisp expression EXPR\n\
247 --execute EXPR evaluate Emacs Lisp expression EXPR\n\
248 --file FILE visit FILE using find-file\n\
249 --find-file FILE visit FILE using find-file\n\
250 --funcall, -f FUNC call Emacs Lisp function FUNC with no arguments\n\
251 --insert FILE insert contents of FILE into current buffer\n\
252 --kill exit without asking for confirmation\n\
253 --load, -l FILE load Emacs Lisp FILE using the load function\n\
254 --visit FILE visit FILE using find-file\n\
257 #define USAGE3 "\
258 Display options:\n\
260 --background-color, -bg COLOR window background color\n\
261 --basic-display, -D disable many display features;\n\
262 used for debugging Emacs\n\
263 --border-color, -bd COLOR main border color\n\
264 --border-width, -bw WIDTH width of main border\n\
265 --color, --color=MODE override color mode for character terminals;\n\
266 MODE defaults to `auto', and\n\
267 can also be `never', `always',\n\
268 or a mode name like `ansi8'\n\
269 --cursor-color, -cr COLOR color of the Emacs cursor indicating point\n\
270 --font, -fn FONT default font; must be fixed-width\n\
271 --foreground-color, -fg COLOR window foreground color\n\
272 --fullheight, -fh make the first frame high as the screen\n\
273 --fullscreen, -fs make the first frame fullscreen\n\
274 --fullwidth, -fw make the first frame wide as the screen\n\
275 --maximized, -mm make the first frame maximized\n\
276 --geometry, -g GEOMETRY window geometry\n\
277 --no-bitmap-icon, -nbi do not use picture of gnu for Emacs icon\n\
278 --iconic start Emacs in iconified state\n\
279 --internal-border, -ib WIDTH width between text and main border\n\
280 --line-spacing, -lsp PIXELS additional space to put between lines\n\
281 --mouse-color, -ms COLOR mouse cursor color in Emacs window\n\
282 --name NAME title for initial Emacs frame\n\
283 --no-blinking-cursor, -nbc disable blinking cursor\n\
284 --reverse-video, -r, -rv switch foreground and background\n\
285 --title, -T TITLE title for initial Emacs frame\n\
286 --vertical-scroll-bars, -vb enable vertical scroll bars\n\
287 --xrm XRESOURCES set additional X resources\n\
288 --parent-id XID set parent window\n\
289 --help display this help and exit\n\
290 --version output version information and exit\n\
293 #define USAGE4 "\
294 You can generally also specify long option names with a single -; for\n\
295 example, -batch as well as --batch. You can use any unambiguous\n\
296 abbreviation for a --option.\n\
298 Various environment variables and window system resources also affect\n\
299 Emacs' operation. See the main documentation.\n\
301 Report bugs to bug-gnu-emacs@gnu.org. First, please see the Bugs\n\
302 section of the Emacs manual or the file BUGS.\n"
305 /* Signal code for the fatal signal that was received. */
306 static int fatal_error_code;
308 /* Nonzero if handling a fatal error already. */
309 int fatal_error_in_progress;
311 /* If non-null, call this function from fatal_error_signal before
312 committing suicide. */
314 static void (*fatal_error_signal_hook) (void);
316 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
317 /* When compiled with GTK and running under Gnome,
318 multiple threads may be created. Keep track of our main
319 thread to make sure signals are delivered to it (see syssignal.h). */
321 pthread_t main_thread;
322 #endif
324 #ifdef HAVE_NS
325 /* NS autrelease pool, for memory management. */
326 static void *ns_pool;
327 #endif
331 /* Handle bus errors, invalid instruction, etc. */
332 #ifndef FLOAT_CATCH_SIGILL
333 static
334 #endif
335 void
336 fatal_error_signal (int sig)
338 SIGNAL_THREAD_CHECK (sig);
339 fatal_error_code = sig;
340 signal (sig, SIG_DFL);
342 TOTALLY_UNBLOCK_INPUT;
344 /* If fatal error occurs in code below, avoid infinite recursion. */
345 if (! fatal_error_in_progress)
347 fatal_error_in_progress = 1;
349 if (sig == SIGTERM || sig == SIGHUP || sig == SIGINT)
350 Fkill_emacs (make_number (sig));
352 shut_down_emacs (sig, 0, Qnil);
355 /* Signal the same code; this time it will really be fatal.
356 Remember that since we're in a signal handler, the signal we're
357 going to send is probably blocked, so we have to unblock it if we
358 want to really receive it. */
359 #ifndef MSDOS
360 sigunblock (sigmask (fatal_error_code));
361 #endif
363 if (fatal_error_signal_hook)
364 fatal_error_signal_hook ();
366 kill (getpid (), fatal_error_code);
369 #ifdef SIGDANGER
371 /* Handler for SIGDANGER. */
372 void
373 memory_warning_signal (int sig)
375 signal (sig, memory_warning_signal);
376 SIGNAL_THREAD_CHECK (sig);
378 malloc_warning ("Operating system warns that virtual memory is running low.\n");
380 /* It might be unsafe to call do_auto_save now. */
381 force_auto_save_soon ();
383 #endif
385 /* We define abort, rather than using it from the library,
386 so that GDB can return from a breakpoint here.
387 MSDOS has its own definition in msdos.c. */
389 #if ! defined (DOS_NT) && ! defined (NO_ABORT)
391 void
392 abort (void)
394 kill (getpid (), SIGABRT);
395 /* This shouldn't be executed, but it prevents a warning. */
396 exit (1);
398 #endif
401 /* Code for dealing with Lisp access to the Unix command line. */
403 static void
404 init_cmdargs (int argc, char **argv, int skip_args)
406 register int i;
407 Lisp_Object name, dir, handler;
408 int count = SPECPDL_INDEX ();
409 Lisp_Object raw_name;
411 initial_argv = argv;
412 initial_argc = argc;
414 raw_name = build_string (argv[0]);
416 /* Add /: to the front of the name
417 if it would otherwise be treated as magic. */
418 handler = Ffind_file_name_handler (raw_name, Qt);
419 if (! NILP (handler))
420 raw_name = concat2 (build_string ("/:"), raw_name);
422 Vinvocation_name = Ffile_name_nondirectory (raw_name);
423 Vinvocation_directory = Ffile_name_directory (raw_name);
425 /* If we got no directory in argv[0], search PATH to find where
426 Emacs actually came from. */
427 if (NILP (Vinvocation_directory))
429 Lisp_Object found;
430 int yes = openp (Vexec_path, Vinvocation_name,
431 Vexec_suffixes, &found, make_number (X_OK));
432 if (yes == 1)
434 /* Add /: to the front of the name
435 if it would otherwise be treated as magic. */
436 handler = Ffind_file_name_handler (found, Qt);
437 if (! NILP (handler))
438 found = concat2 (build_string ("/:"), found);
439 Vinvocation_directory = Ffile_name_directory (found);
443 if (!NILP (Vinvocation_directory)
444 && NILP (Ffile_name_absolute_p (Vinvocation_directory)))
445 /* Emacs was started with relative path, like ./emacs.
446 Make it absolute. */
447 Vinvocation_directory = Fexpand_file_name (Vinvocation_directory, Qnil);
449 Vinstallation_directory = Qnil;
451 if (!NILP (Vinvocation_directory))
453 dir = Vinvocation_directory;
454 name = Fexpand_file_name (Vinvocation_name, dir);
455 while (1)
457 Lisp_Object tem, lib_src_exists;
458 Lisp_Object etc_exists, info_exists;
460 /* See if dir contains subdirs for use by Emacs.
461 Check for the ones that would exist in a build directory,
462 not including lisp and info. */
463 tem = Fexpand_file_name (build_string ("lib-src"), dir);
464 lib_src_exists = Ffile_exists_p (tem);
466 #ifdef MSDOS
467 /* MSDOS installations frequently remove lib-src, but we still
468 must set installation-directory, or else info won't find
469 its files (it uses the value of installation-directory). */
470 tem = Fexpand_file_name (build_string ("info"), dir);
471 info_exists = Ffile_exists_p (tem);
472 #else
473 info_exists = Qnil;
474 #endif
476 if (!NILP (lib_src_exists) || !NILP (info_exists))
478 tem = Fexpand_file_name (build_string ("etc"), dir);
479 etc_exists = Ffile_exists_p (tem);
480 if (!NILP (etc_exists))
482 Vinstallation_directory
483 = Ffile_name_as_directory (dir);
484 break;
488 /* See if dir's parent contains those subdirs. */
489 tem = Fexpand_file_name (build_string ("../lib-src"), dir);
490 lib_src_exists = Ffile_exists_p (tem);
493 #ifdef MSDOS
494 /* See the MSDOS commentary above. */
495 tem = Fexpand_file_name (build_string ("../info"), dir);
496 info_exists = Ffile_exists_p (tem);
497 #else
498 info_exists = Qnil;
499 #endif
501 if (!NILP (lib_src_exists) || !NILP (info_exists))
503 tem = Fexpand_file_name (build_string ("../etc"), dir);
504 etc_exists = Ffile_exists_p (tem);
505 if (!NILP (etc_exists))
507 tem = Fexpand_file_name (build_string (".."), dir);
508 Vinstallation_directory
509 = Ffile_name_as_directory (tem);
510 break;
514 /* If the Emacs executable is actually a link,
515 next try the dir that the link points into. */
516 tem = Ffile_symlink_p (name);
517 if (!NILP (tem))
519 name = Fexpand_file_name (tem, dir);
520 dir = Ffile_name_directory (name);
522 else
523 break;
527 Vcommand_line_args = Qnil;
529 for (i = argc - 1; i >= 0; i--)
531 if (i == 0 || i > skip_args)
532 /* For the moment, we keep arguments as is in unibyte strings.
533 They are decoded in the function command-line after we know
534 locale-coding-system. */
535 Vcommand_line_args
536 = Fcons (make_unibyte_string (argv[i], strlen (argv[i])),
537 Vcommand_line_args);
540 unbind_to (count, Qnil);
543 DEFUN ("invocation-name", Finvocation_name, Sinvocation_name, 0, 0, 0,
544 doc: /* Return the program name that was used to run Emacs.
545 Any directory names are omitted. */)
546 (void)
548 return Fcopy_sequence (Vinvocation_name);
551 DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory,
552 0, 0, 0,
553 doc: /* Return the directory name in which the Emacs executable was located. */)
554 (void)
556 return Fcopy_sequence (Vinvocation_directory);
560 #ifdef HAVE_TZSET
561 /* A valid but unlikely value for the TZ environment value.
562 It is OK (though a bit slower) if the user actually chooses this value. */
563 static char dump_tz[] = "UtC0";
564 #endif
566 #ifndef ORDINARY_LINK
567 /* We don't include crtbegin.o and crtend.o in the link,
568 so these functions and variables might be missed.
569 Provide dummy definitions to avoid error.
570 (We don't have any real constructors or destructors.) */
571 #ifdef __GNUC__
573 /* Define a dummy function F. Declare F too, to pacify gcc
574 -Wmissing-prototypes. */
575 #define DEFINE_DUMMY_FUNCTION(f) \
576 void f (void) EXTERNALLY_VISIBLE; void f (void) {}
578 #ifndef GCC_CTORS_IN_LIBC
579 DEFINE_DUMMY_FUNCTION (__do_global_ctors)
580 DEFINE_DUMMY_FUNCTION (__do_global_ctors_aux)
581 DEFINE_DUMMY_FUNCTION (__do_global_dtors)
582 /* GNU/Linux has a bug in its library; avoid an error. */
583 #ifndef GNU_LINUX
584 char * __CTOR_LIST__[2] EXTERNALLY_VISIBLE = { (char *) (-1), 0 };
585 #endif
586 char * __DTOR_LIST__[2] EXTERNALLY_VISIBLE = { (char *) (-1), 0 };
587 #endif /* GCC_CTORS_IN_LIBC */
588 DEFINE_DUMMY_FUNCTION (__main)
589 #endif /* __GNUC__ */
590 #endif /* ORDINARY_LINK */
592 /* Test whether the next argument in ARGV matches SSTR or a prefix of
593 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
594 (the argument is supposed to have a value) store in *VALPTR either
595 the next argument or the portion of this one after the equal sign.
596 ARGV is read starting at position *SKIPPTR; this index is advanced
597 by the number of arguments used.
599 Too bad we can't just use getopt for all of this, but we don't have
600 enough information to do it right. */
602 static int
603 argmatch (char **argv, int argc, const char *sstr, const char *lstr,
604 int minlen, char **valptr, int *skipptr)
606 char *p = NULL;
607 ptrdiff_t arglen;
608 char *arg;
610 /* Don't access argv[argc]; give up in advance. */
611 if (argc <= *skipptr + 1)
612 return 0;
614 arg = argv[*skipptr+1];
615 if (arg == NULL)
616 return 0;
617 if (strcmp (arg, sstr) == 0)
619 if (valptr != NULL)
621 *valptr = argv[*skipptr+2];
622 *skipptr += 2;
624 else
625 *skipptr += 1;
626 return 1;
628 arglen = (valptr != NULL && (p = strchr (arg, '=')) != NULL
629 ? p - arg : strlen (arg));
630 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
631 return 0;
632 else if (valptr == NULL)
634 *skipptr += 1;
635 return 1;
637 else if (p != NULL)
639 *valptr = p+1;
640 *skipptr += 1;
641 return 1;
643 else if (argv[*skipptr+2] != NULL)
645 *valptr = argv[*skipptr+2];
646 *skipptr += 2;
647 return 1;
649 else
651 return 0;
655 #ifdef DOUG_LEA_MALLOC
657 /* malloc can be invoked even before main (e.g. by the dynamic
658 linker), so the dumped malloc state must be restored as early as
659 possible using this special hook. */
661 static void
662 malloc_initialize_hook (void)
664 #ifndef USE_CRT_DLL
665 extern char **environ;
666 #endif
668 if (initialized)
670 if (!malloc_using_checking)
671 /* Work around a bug in glibc's malloc. MALLOC_CHECK_ must be
672 ignored if the heap to be restored was constructed without
673 malloc checking. Can't use unsetenv, since that calls malloc. */
675 char **p;
677 for (p = environ; p && *p; p++)
678 if (strncmp (*p, "MALLOC_CHECK_=", 14) == 0)
681 *p = p[1];
682 while (*++p);
683 break;
687 malloc_set_state (malloc_state_ptr);
688 #ifndef XMALLOC_OVERRUN_CHECK
689 free (malloc_state_ptr);
690 #endif
692 else
694 if (my_heap_start == 0)
695 my_heap_start = sbrk (0);
696 malloc_using_checking = getenv ("MALLOC_CHECK_") != NULL;
700 void (*__malloc_initialize_hook) (void) EXTERNALLY_VISIBLE = malloc_initialize_hook;
702 #endif /* DOUG_LEA_MALLOC */
705 /* ARGSUSED */
707 main (int argc, char **argv)
709 #if GC_MARK_STACK
710 Lisp_Object dummy;
711 #endif
712 char stack_bottom_variable;
713 int do_initial_setlocale;
714 int skip_args = 0;
715 #ifdef HAVE_SETRLIMIT
716 struct rlimit rlim;
717 #endif
718 int no_loadup = 0;
719 char *junk = 0;
720 char *dname_arg = 0;
721 #ifdef NS_IMPL_COCOA
722 char dname_arg2[80];
723 #endif
724 char *ch_to_dir;
726 #if GC_MARK_STACK
727 stack_base = &dummy;
728 #endif
730 #if defined (USE_GTK) && defined (G_SLICE_ALWAYS_MALLOC)
731 /* This is used by the Cygwin build. */
732 setenv ("G_SLICE", "always-malloc", 1);
733 #endif
735 #ifdef GNU_LINUX
736 if (!initialized)
738 extern char my_endbss[];
739 extern char *my_endbss_static;
741 if (my_heap_start == 0)
742 my_heap_start = sbrk (0);
744 heap_bss_diff = (char *)my_heap_start - max (my_endbss, my_endbss_static);
746 #endif
748 #ifdef RUN_TIME_REMAP
749 if (initialized)
750 run_time_remap (argv[0]);
751 #endif
753 /* If using unexmacosx.c (set by s/darwin.h), we must do this. */
754 #ifdef DARWIN_OS
755 if (!initialized)
756 unexec_init_emacs_zone ();
757 #endif
759 sort_args (argc, argv);
760 argc = 0;
761 while (argv[argc]) argc++;
763 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args))
765 const char *version, *copyright;
766 if (initialized)
768 Lisp_Object tem, tem2;
769 tem = Fsymbol_value (intern_c_string ("emacs-version"));
770 tem2 = Fsymbol_value (intern_c_string ("emacs-copyright"));
771 if (!STRINGP (tem))
773 fprintf (stderr, "Invalid value of `emacs-version'\n");
774 exit (1);
776 if (!STRINGP (tem2))
778 fprintf (stderr, "Invalid value of `emacs-copyright'\n");
779 exit (1);
781 else
783 version = SSDATA (tem);
784 copyright = SSDATA (tem2);
787 else
789 version = emacs_version;
790 copyright = emacs_copyright;
792 printf ("GNU Emacs %s\n", version);
793 printf ("%s\n", copyright);
794 printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n");
795 printf ("You may redistribute copies of Emacs\n");
796 printf ("under the terms of the GNU General Public License.\n");
797 printf ("For more information about these matters, ");
798 printf ("see the file named COPYING.\n");
799 exit (0);
802 if (argmatch (argv, argc, "-chdir", "--chdir", 4, &ch_to_dir, &skip_args))
803 if (chdir (ch_to_dir) == -1)
805 fprintf (stderr, "%s: Can't chdir to %s: %s\n",
806 argv[0], ch_to_dir, strerror (errno));
807 exit (1);
811 #ifdef HAVE_PERSONALITY_LINUX32
812 if (!initialized
813 && (strcmp (argv[argc-1], "dump") == 0
814 || strcmp (argv[argc-1], "bootstrap") == 0)
815 && ! getenv ("EMACS_HEAP_EXEC"))
817 static char heapexec[] = "EMACS_HEAP_EXEC=true";
818 /* Set this so we only do this once. */
819 putenv (heapexec);
821 /* A flag to turn off address randomization which is introduced
822 in linux kernel shipped with fedora core 4 */
823 #define ADD_NO_RANDOMIZE 0x0040000
824 personality (PER_LINUX32 | ADD_NO_RANDOMIZE);
825 #undef ADD_NO_RANDOMIZE
827 execvp (argv[0], argv);
829 /* If the exec fails, try to dump anyway. */
830 perror ("execvp");
832 #endif /* HAVE_PERSONALITY_LINUX32 */
834 #if defined (HAVE_SETRLIMIT) && defined (RLIMIT_STACK)
835 /* Extend the stack space available.
836 Don't do that if dumping, since some systems (e.g. DJGPP)
837 might define a smaller stack limit at that time. */
838 if (1
839 #ifndef CANNOT_DUMP
840 && (!noninteractive || initialized)
841 #endif
842 && !getrlimit (RLIMIT_STACK, &rlim))
844 long newlim;
845 extern size_t re_max_failures;
846 /* Approximate the amount regex.c needs per unit of re_max_failures. */
847 int ratio = 20 * sizeof (char *);
848 /* Then add 33% to cover the size of the smaller stacks that regex.c
849 successively allocates and discards, on its way to the maximum. */
850 ratio += ratio / 3;
851 /* Add in some extra to cover
852 what we're likely to use for other reasons. */
853 newlim = re_max_failures * ratio + 200000;
854 #ifdef __NetBSD__
855 /* NetBSD (at least NetBSD 1.2G and former) has a bug in its
856 stack allocation routine for new process that the allocation
857 fails if stack limit is not on page boundary. So, round up the
858 new limit to page boundary. */
859 newlim = (newlim + getpagesize () - 1) / getpagesize () * getpagesize ();
860 #endif
861 if (newlim > rlim.rlim_max)
863 newlim = rlim.rlim_max;
864 /* Don't let regex.c overflow the stack we have. */
865 re_max_failures = (newlim - 200000) / ratio;
867 if (rlim.rlim_cur < newlim)
868 rlim.rlim_cur = newlim;
870 setrlimit (RLIMIT_STACK, &rlim);
872 #endif /* HAVE_SETRLIMIT and RLIMIT_STACK */
874 /* Record (approximately) where the stack begins. */
875 stack_bottom = &stack_bottom_variable;
877 clearerr (stdin);
879 #ifndef SYSTEM_MALLOC
880 /* Arrange to get warning messages as memory fills up. */
881 memory_warnings (0, malloc_warning);
883 /* Call malloc at least once, to run the initial __malloc_hook.
884 Also call realloc and free for consistency. */
885 free (realloc (malloc (4), 4));
887 # ifndef SYNC_INPUT
888 /* Arrange to disable interrupt input inside malloc etc. */
889 uninterrupt_malloc ();
890 # endif /* not SYNC_INPUT */
891 #endif /* not SYSTEM_MALLOC */
893 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
894 main_thread = pthread_self ();
895 #endif /* FORWARD_SIGNAL_TO_MAIN_THREAD */
897 #if defined (MSDOS) || defined (WINDOWSNT)
898 /* We do all file input/output as binary files. When we need to translate
899 newlines, we do that manually. */
900 _fmode = O_BINARY;
901 #endif /* MSDOS || WINDOWSNT */
903 #ifdef MSDOS
904 if (!isatty (fileno (stdin)))
905 setmode (fileno (stdin), O_BINARY);
906 if (!isatty (fileno (stdout)))
908 fflush (stdout);
909 setmode (fileno (stdout), O_BINARY);
911 #endif /* MSDOS */
913 /* Skip initial setlocale if LC_ALL is "C", as it's not needed in that case.
914 The build procedure uses this while dumping, to ensure that the
915 dumped Emacs does not have its system locale tables initialized,
916 as that might cause screwups when the dumped Emacs starts up. */
918 char *lc_all = getenv ("LC_ALL");
919 do_initial_setlocale = ! lc_all || strcmp (lc_all, "C");
922 /* Set locale now, so that initial error messages are localized properly.
923 fixup_locale must wait until later, since it builds strings. */
924 if (do_initial_setlocale)
925 setlocale (LC_ALL, "");
927 inhibit_window_system = 0;
929 /* Handle the -t switch, which specifies filename to use as terminal. */
930 while (1)
932 char *term;
933 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
935 int result;
936 emacs_close (0);
937 emacs_close (1);
938 result = emacs_open (term, O_RDWR, 0);
939 if (result < 0 || dup (0) < 0)
941 char *errstring = strerror (errno);
942 fprintf (stderr, "%s: %s: %s\n", argv[0], term, errstring);
943 exit (1);
945 if (! isatty (0))
947 fprintf (stderr, "%s: %s: not a tty\n", argv[0], term);
948 exit (1);
950 fprintf (stderr, "Using %s\n", term);
951 #ifdef HAVE_WINDOW_SYSTEM
952 inhibit_window_system = 1; /* -t => -nw */
953 #endif
955 else
956 break;
959 /* Command line option --no-windows is deprecated and thus not mentioned
960 in the manual and usage information. */
961 if (argmatch (argv, argc, "-nw", "--no-window-system", 6, NULL, &skip_args)
962 || argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
963 inhibit_window_system = 1;
965 /* Handle the -batch switch, which means don't do interactive display. */
966 noninteractive = 0;
967 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
969 noninteractive = 1;
970 Vundo_outer_limit = Qnil;
972 if (argmatch (argv, argc, "-script", "--script", 3, &junk, &skip_args))
974 noninteractive = 1; /* Set batch mode. */
975 /* Convert --script to -scriptload, un-skip it, and sort again
976 so that it will be handled in proper sequence. */
977 /* FIXME broken for --script=FILE - is that supposed to work? */
978 argv[skip_args - 1] = (char *) "-scriptload";
979 skip_args -= 2;
980 sort_args (argc, argv);
983 /* Handle the --help option, which gives a usage message. */
984 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
986 printf (USAGE1, argv[0], USAGE2);
987 printf (USAGE3);
988 printf (USAGE4);
989 exit (0);
992 if (argmatch (argv, argc, "-daemon", "--daemon", 5, NULL, &skip_args)
993 || argmatch (argv, argc, "-daemon", "--daemon", 5, &dname_arg, &skip_args))
995 #ifndef DOS_NT
996 pid_t f;
998 /* Start as a daemon: fork a new child process which will run the
999 rest of the initialization code, then exit.
1001 Detaching a daemon requires the following steps:
1002 - fork
1003 - setsid
1004 - exit the parent
1005 - close the tty file-descriptors
1007 We only want to do the last 2 steps once the daemon is ready to
1008 serve requests, i.e. after loading .emacs (initialization).
1009 OTOH initialization may start subprocesses (e.g. ispell) and these
1010 should be run from the proper process (the one that will end up
1011 running as daemon) and with the proper "session id" in order for
1012 them to keep working after detaching, so fork and setsid need to be
1013 performed before initialization.
1015 We want to avoid exiting before the server socket is ready, so
1016 use a pipe for synchronization. The parent waits for the child
1017 to close its end of the pipe (using `daemon-initialized')
1018 before exiting. */
1019 if (pipe (daemon_pipe) == -1)
1021 fprintf (stderr, "Cannot pipe!\n");
1022 exit (1);
1025 #ifndef NS_IMPL_COCOA
1026 #ifdef USE_GTK
1027 fprintf (stderr, "\nWarning: due to a long standing Gtk+ bug\nhttp://bugzilla.gnome.org/show_bug.cgi?id=85715\n\
1028 Emacs might crash when run in daemon mode and the X11 connection is unexpectedly lost.\n\
1029 Using an Emacs configured with --with-x-toolkit=lucid does not have this problem.\n");
1030 #endif
1031 f = fork ();
1032 #else /* NS_IMPL_COCOA */
1033 /* Under Cocoa we must do fork+exec as CoreFoundation lib fails in
1034 forked process: http://developer.apple.com/ReleaseNotes/
1035 CoreFoundation/CoreFoundation.html)
1036 We mark being in the exec'd process by a daemon name argument of
1037 form "--daemon=\nFD0,FD1\nNAME" where FD are the pipe file descriptors,
1038 NAME is the original daemon name, if any. */
1039 if (!dname_arg || !strchr (dname_arg, '\n'))
1040 f = fork (); /* in orig */
1041 else
1042 f = 0; /* in exec'd */
1043 #endif /* NS_IMPL_COCOA */
1044 if (f > 0)
1046 int retval;
1047 char buf[1];
1049 /* Close unused writing end of the pipe. */
1050 close (daemon_pipe[1]);
1052 /* Just wait for the child to close its end of the pipe. */
1055 retval = read (daemon_pipe[0], &buf, 1);
1057 while (retval == -1 && errno == EINTR);
1059 if (retval < 0)
1061 fprintf (stderr, "Error reading status from child\n");
1062 exit (1);
1064 else if (retval == 0)
1066 fprintf (stderr, "Error: server did not start correctly\n");
1067 exit (1);
1070 close (daemon_pipe[0]);
1071 exit (0);
1073 if (f < 0)
1075 fprintf (stderr, "Cannot fork!\n");
1076 exit (1);
1079 #ifdef NS_IMPL_COCOA
1081 /* In orig process, forked as child, OR in exec'd. */
1082 if (!dname_arg || !strchr (dname_arg, '\n'))
1083 { /* In orig, child: now exec w/special daemon name. */
1084 char fdStr[80];
1085 int fdStrlen =
1086 snprintf (fdStr, sizeof fdStr,
1087 "--daemon=\n%d,%d\n%s", daemon_pipe[0],
1088 daemon_pipe[1], dname_arg ? dname_arg : "");
1090 if (! (0 <= fdStrlen && fdStrlen < sizeof fdStr))
1092 fprintf (stderr, "daemon: child name too long\n");
1093 exit (1);
1096 argv[skip_args] = fdStr;
1098 execv (argv[0], argv);
1099 fprintf (stderr, "emacs daemon: exec failed: %d\n", errno);
1100 exit (1);
1103 /* In exec'd: parse special dname into pipe and name info. */
1104 if (!dname_arg || !strchr (dname_arg, '\n')
1105 || strlen (dname_arg) < 1 || strlen (dname_arg) > 70)
1107 fprintf (stderr, "emacs daemon: daemon name absent or too long\n");
1108 exit (1);
1110 dname_arg2[0] = '\0';
1111 sscanf (dname_arg, "\n%d,%d\n%s", &(daemon_pipe[0]), &(daemon_pipe[1]),
1112 dname_arg2);
1113 dname_arg = *dname_arg2 ? dname_arg2 : NULL;
1115 #endif /* NS_IMPL_COCOA */
1117 if (dname_arg)
1118 daemon_name = xstrdup (dname_arg);
1119 /* Close unused reading end of the pipe. */
1120 close (daemon_pipe[0]);
1121 /* Make sure that the used end of the pipe is closed on exec, so
1122 that it is not accessible to programs started from .emacs. */
1123 fcntl (daemon_pipe[1], F_SETFD, FD_CLOEXEC);
1125 #ifdef HAVE_SETSID
1126 setsid ();
1127 #endif
1128 #else /* DOS_NT */
1129 fprintf (stderr, "This platform does not support the -daemon flag.\n");
1130 exit (1);
1131 #endif /* DOS_NT */
1134 if (! noninteractive)
1136 #if defined (USG5) && defined (INTERRUPT_INPUT)
1137 setpgrp ();
1138 #endif
1139 #if defined (HAVE_PTHREAD) && !defined (SYSTEM_MALLOC) && !defined (DOUG_LEA_MALLOC)
1141 extern void malloc_enable_thread (void);
1143 malloc_enable_thread ();
1145 #endif
1148 init_signals ();
1150 /* Don't catch SIGHUP if dumping. */
1151 if (1
1152 #ifndef CANNOT_DUMP
1153 && initialized
1154 #endif
1157 sigblock (sigmask (SIGHUP));
1158 /* In --batch mode, don't catch SIGHUP if already ignored.
1159 That makes nohup work. */
1160 if (! noninteractive
1161 || signal (SIGHUP, SIG_IGN) != SIG_IGN)
1162 signal (SIGHUP, fatal_error_signal);
1163 sigunblock (sigmask (SIGHUP));
1166 if (
1167 #ifndef CANNOT_DUMP
1168 ! noninteractive || initialized
1169 #else
1171 #endif
1174 /* Don't catch these signals in batch mode if dumping.
1175 On some machines, this sets static data that would make
1176 signal fail to work right when the dumped Emacs is run. */
1177 signal (SIGQUIT, fatal_error_signal);
1178 signal (SIGILL, fatal_error_signal);
1179 signal (SIGTRAP, fatal_error_signal);
1180 #ifdef SIGUSR1
1181 add_user_signal (SIGUSR1, "sigusr1");
1182 #endif
1183 #ifdef SIGUSR2
1184 add_user_signal (SIGUSR2, "sigusr2");
1185 #endif
1186 #ifdef SIGABRT
1187 signal (SIGABRT, fatal_error_signal);
1188 #endif
1189 #ifdef SIGHWE
1190 signal (SIGHWE, fatal_error_signal);
1191 #endif
1192 #ifdef SIGPRE
1193 signal (SIGPRE, fatal_error_signal);
1194 #endif
1195 #ifdef SIGORE
1196 signal (SIGORE, fatal_error_signal);
1197 #endif
1198 #ifdef SIGUME
1199 signal (SIGUME, fatal_error_signal);
1200 #endif
1201 #ifdef SIGDLK
1202 signal (SIGDLK, fatal_error_signal);
1203 #endif
1204 #ifdef SIGCPULIM
1205 signal (SIGCPULIM, fatal_error_signal);
1206 #endif
1207 #ifdef SIGIOT
1208 /* This is missing on some systems - OS/2, for example. */
1209 signal (SIGIOT, fatal_error_signal);
1210 #endif
1211 #ifdef SIGEMT
1212 signal (SIGEMT, fatal_error_signal);
1213 #endif
1214 signal (SIGFPE, fatal_error_signal);
1215 #ifdef SIGBUS
1216 signal (SIGBUS, fatal_error_signal);
1217 #endif
1218 signal (SIGSEGV, fatal_error_signal);
1219 #ifdef SIGSYS
1220 signal (SIGSYS, fatal_error_signal);
1221 #endif
1222 /* May need special treatment on MS-Windows. See
1223 http://lists.gnu.org/archive/html/emacs-devel/2010-09/msg01062.html
1224 Please update the doc of kill-emacs, kill-emacs-hook, and
1225 NEWS if you change this.
1227 if (noninteractive) signal (SIGINT, fatal_error_signal);
1228 signal (SIGTERM, fatal_error_signal);
1229 #ifdef SIGXCPU
1230 signal (SIGXCPU, fatal_error_signal);
1231 #endif
1232 #ifdef SIGXFSZ
1233 signal (SIGXFSZ, fatal_error_signal);
1234 #endif /* SIGXFSZ */
1236 #ifdef SIGDANGER
1237 /* This just means available memory is getting low. */
1238 signal (SIGDANGER, memory_warning_signal);
1239 #endif
1241 #ifdef AIX
1242 /* 20 is SIGCHLD, 21 is SIGTTIN, 22 is SIGTTOU. */
1243 signal (SIGXCPU, fatal_error_signal);
1244 signal (SIGIOINT, fatal_error_signal);
1245 signal (SIGGRANT, fatal_error_signal);
1246 signal (SIGRETRACT, fatal_error_signal);
1247 signal (SIGSOUND, fatal_error_signal);
1248 signal (SIGMSG, fatal_error_signal);
1249 #endif /* AIX */
1252 noninteractive1 = noninteractive;
1254 /* Perform basic initializations (not merely interning symbols). */
1256 if (!initialized)
1258 init_alloc_once ();
1259 init_obarray ();
1260 init_eval_once ();
1261 init_character_once ();
1262 init_charset_once ();
1263 init_coding_once ();
1264 init_syntax_once (); /* Create standard syntax table. */
1265 init_category_once (); /* Create standard category table. */
1266 /* Must be done before init_buffer. */
1267 init_casetab_once ();
1268 init_buffer_once (); /* Create buffer table and some buffers. */
1269 init_minibuf_once (); /* Create list of minibuffers. */
1270 /* Must precede init_window_once. */
1272 /* Call syms_of_xfaces before init_window_once because that
1273 function creates Vterminal_frame. Termcap frames now use
1274 faces, and the face implementation uses some symbols as
1275 face names. */
1276 syms_of_xfaces ();
1277 /* XXX syms_of_keyboard uses some symbols in keymap.c. It would
1278 be better to arrange things not to have this dependency. */
1279 syms_of_keymap ();
1280 /* Call syms_of_keyboard before init_window_once because
1281 keyboard sets up symbols that include some face names that
1282 the X support will want to use. This can happen when
1283 CANNOT_DUMP is defined. */
1284 syms_of_keyboard ();
1286 /* Called before syms_of_fileio, because it sets up Qerror_condition. */
1287 syms_of_data ();
1288 syms_of_fileio ();
1289 /* Before syms_of_coding to initialize Vgc_cons_threshold. */
1290 syms_of_alloc ();
1291 /* Before syms_of_coding because it initializes Qcharsetp. */
1292 syms_of_charset ();
1293 /* Before init_window_once, because it sets up the
1294 Vcoding_system_hash_table. */
1295 syms_of_coding (); /* This should be after syms_of_fileio. */
1297 init_window_once (); /* Init the window system. */
1298 #ifdef HAVE_WINDOW_SYSTEM
1299 init_fringe_once (); /* Swap bitmaps if necessary. */
1300 #endif /* HAVE_WINDOW_SYSTEM */
1303 init_alloc ();
1305 if (do_initial_setlocale)
1307 fixup_locale ();
1308 Vsystem_messages_locale = Vprevious_system_messages_locale;
1309 Vsystem_time_locale = Vprevious_system_time_locale;
1312 init_eval ();
1313 init_data ();
1314 #ifdef CLASH_DETECTION
1315 init_filelock ();
1316 #endif
1317 init_atimer ();
1318 running_asynch_code = 0;
1320 no_loadup
1321 = argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args);
1323 no_site_lisp
1324 = argmatch (argv, argc, "-nsl", "--no-site-lisp", 11, NULL, &skip_args);
1326 #ifdef HAVE_NS
1327 ns_pool = ns_alloc_autorelease_pool ();
1328 if (!noninteractive)
1330 #ifdef NS_IMPL_COCOA
1331 if (skip_args < argc)
1333 /* FIXME: Do the right thing if getenv returns NULL, or if
1334 chdir fails. */
1335 if (!strncmp (argv[skip_args], "-psn", 4))
1337 skip_args += 1;
1338 chdir (getenv ("HOME"));
1340 else if (skip_args+1 < argc && !strncmp (argv[skip_args+1], "-psn", 4))
1342 skip_args += 2;
1343 chdir (getenv ("HOME"));
1346 #endif /* COCOA */
1348 #endif /* HAVE_NS */
1350 #ifdef HAVE_X_WINDOWS
1351 /* Stupid kludge to catch command-line display spec. We can't
1352 handle this argument entirely in window system dependent code
1353 because we don't even know which window system dependent code
1354 to run until we've recognized this argument. */
1356 char *displayname = 0;
1357 int count_before = skip_args;
1359 /* Skip any number of -d options, but only use the last one. */
1360 while (1)
1362 int count_before_this = skip_args;
1364 if (argmatch (argv, argc, "-d", "--display", 3, &displayname, &skip_args))
1365 display_arg = 1;
1366 else if (argmatch (argv, argc, "-display", 0, 3, &displayname, &skip_args))
1367 display_arg = 1;
1368 else
1369 break;
1371 count_before = count_before_this;
1374 /* If we have the form --display=NAME,
1375 convert it into -d name.
1376 This requires inserting a new element into argv. */
1377 if (displayname && count_before < skip_args)
1379 if (skip_args == count_before + 1)
1381 memmove (argv + count_before + 3, argv + count_before + 2,
1382 (argc - (count_before + 2)) * sizeof *argv);
1383 argv[count_before + 2] = displayname;
1384 argc++;
1386 argv[count_before + 1] = (char *) "-d";
1389 if (! no_site_lisp)
1391 if (argmatch (argv, argc, "-Q", "--quick", 3, NULL, &skip_args)
1392 || argmatch (argv, argc, "-quick", 0, 2, NULL, &skip_args))
1393 no_site_lisp = 1;
1396 /* Don't actually discard this arg. */
1397 skip_args = count_before;
1399 #else /* !HAVE_X_WINDOWS */
1400 if (! no_site_lisp)
1402 int count_before = skip_args;
1404 if (argmatch (argv, argc, "-Q", "--quick", 3, NULL, &skip_args)
1405 || argmatch (argv, argc, "-quick", 0, 2, NULL, &skip_args))
1406 no_site_lisp = 1;
1408 skip_args = count_before;
1410 #endif
1412 /* argmatch must not be used after here,
1413 except when building temacs
1414 because the -d argument has not been skipped in skip_args. */
1416 #ifdef MSDOS
1417 /* Call early 'cause init_environment needs it. */
1418 init_dosfns ();
1419 /* Set defaults for several environment variables. */
1420 if (initialized)
1421 init_environment (argc, argv, skip_args);
1422 else
1423 tzset ();
1424 #endif /* MSDOS */
1426 #ifdef WINDOWSNT
1427 globals_of_w32 ();
1428 /* Initialize environment from registry settings. */
1429 init_environment (argv);
1430 init_ntproc (); /* must precede init_editfns. */
1431 #endif
1433 #ifdef HAVE_NS
1434 #ifndef CANNOT_DUMP
1435 if (initialized)
1436 #endif
1437 ns_init_paths ();
1438 #endif
1440 /* Initialize and GC-protect Vinitial_environment and
1441 Vprocess_environment before set_initial_environment fills them
1442 in. */
1443 if (!initialized)
1444 syms_of_callproc ();
1445 /* egetenv is a pretty low-level facility, which may get called in
1446 many circumstances; it seems flimsy to put off initializing it
1447 until calling init_callproc. Do not do it when dumping. */
1448 if (initialized || ((strcmp (argv[argc-1], "dump") != 0
1449 && strcmp (argv[argc-1], "bootstrap") != 0)))
1450 set_initial_environment ();
1452 /* AIX crashes are reported in system versions 3.2.3 and 3.2.4
1453 if this is not done. Do it after set_global_environment so that we
1454 don't pollute Vglobal_environment. */
1455 /* Setting LANG here will defeat the startup locale processing... */
1456 #ifdef AIX
1457 putenv ("LANG=C");
1458 #endif
1460 init_buffer (); /* Init default directory of main buffer. */
1462 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */
1463 init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */
1465 if (initialized)
1467 /* Erase any pre-dump messages in the message log, to avoid confusion. */
1468 Lisp_Object old_log_max;
1469 old_log_max = Vmessage_log_max;
1470 XSETFASTINT (Vmessage_log_max, 0);
1471 message_dolog ("", 0, 1, 0);
1472 Vmessage_log_max = old_log_max;
1475 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */
1476 init_lread ();
1478 /* Intern the names of all standard functions and variables;
1479 define standard keys. */
1481 if (!initialized)
1483 /* The basic levels of Lisp must come first. Note that
1484 syms_of_data and some others have already been called. */
1485 syms_of_chartab ();
1486 syms_of_lread ();
1487 syms_of_print ();
1488 syms_of_eval ();
1489 syms_of_fns ();
1490 syms_of_floatfns ();
1492 syms_of_buffer ();
1493 syms_of_bytecode ();
1494 syms_of_callint ();
1495 syms_of_casefiddle ();
1496 syms_of_casetab ();
1497 syms_of_category ();
1498 syms_of_ccl ();
1499 syms_of_character ();
1500 syms_of_cmds ();
1501 syms_of_dired ();
1502 syms_of_display ();
1503 syms_of_doc ();
1504 syms_of_editfns ();
1505 syms_of_emacs ();
1506 syms_of_filelock ();
1507 syms_of_indent ();
1508 syms_of_insdel ();
1509 /* syms_of_keymap (); */
1510 syms_of_macros ();
1511 syms_of_marker ();
1512 syms_of_minibuf ();
1513 syms_of_process ();
1514 syms_of_search ();
1515 syms_of_frame ();
1516 syms_of_syntax ();
1517 syms_of_terminal ();
1518 syms_of_term ();
1519 syms_of_undo ();
1520 #ifdef HAVE_SOUND
1521 syms_of_sound ();
1522 #endif
1523 syms_of_textprop ();
1524 syms_of_composite ();
1525 #ifdef WINDOWSNT
1526 syms_of_ntproc ();
1527 #endif /* WINDOWSNT */
1528 syms_of_window ();
1529 syms_of_xdisp ();
1530 syms_of_font ();
1531 #ifdef HAVE_WINDOW_SYSTEM
1532 syms_of_fringe ();
1533 syms_of_image ();
1534 #endif /* HAVE_WINDOW_SYSTEM */
1535 #ifdef HAVE_X_WINDOWS
1536 syms_of_xterm ();
1537 syms_of_xfns ();
1538 syms_of_xmenu ();
1539 syms_of_fontset ();
1540 syms_of_xsettings ();
1541 #ifdef HAVE_X_SM
1542 syms_of_xsmfns ();
1543 #endif
1544 #ifdef HAVE_X11
1545 syms_of_xselect ();
1546 #endif
1547 #endif /* HAVE_X_WINDOWS */
1549 #ifdef HAVE_LIBXML2
1550 syms_of_xml ();
1551 #endif
1553 syms_of_menu ();
1555 #ifdef HAVE_NTGUI
1556 syms_of_w32term ();
1557 syms_of_w32fns ();
1558 syms_of_w32select ();
1559 syms_of_w32menu ();
1560 syms_of_fontset ();
1561 #endif /* HAVE_NTGUI */
1563 #ifdef MSDOS
1564 syms_of_xmenu ();
1565 syms_of_dosfns ();
1566 syms_of_msdos ();
1567 syms_of_win16select ();
1568 #endif /* MSDOS */
1570 #ifdef HAVE_NS
1571 syms_of_nsterm ();
1572 syms_of_nsfns ();
1573 syms_of_nsmenu ();
1574 syms_of_nsselect ();
1575 syms_of_fontset ();
1576 #endif /* HAVE_NS */
1578 #ifdef HAVE_GNUTLS
1579 syms_of_gnutls ();
1580 #endif
1582 #ifdef HAVE_DBUS
1583 syms_of_dbusbind ();
1584 #endif /* HAVE_DBUS */
1586 #ifdef WINDOWSNT
1587 syms_of_ntterm ();
1588 #endif /* WINDOWSNT */
1590 keys_of_casefiddle ();
1591 keys_of_cmds ();
1592 keys_of_buffer ();
1593 keys_of_keyboard ();
1594 keys_of_keymap ();
1595 keys_of_window ();
1597 else
1599 /* Initialization that must be done even if the global variable
1600 initialized is non zero. */
1601 #ifdef HAVE_NTGUI
1602 globals_of_w32font ();
1603 globals_of_w32fns ();
1604 globals_of_w32menu ();
1605 globals_of_w32select ();
1606 #endif /* HAVE_NTGUI */
1609 init_charset ();
1611 init_editfns (); /* init_process uses Voperating_system_release. */
1612 init_process (); /* init_display uses add_keyboard_wait_descriptor. */
1613 init_keyboard (); /* This too must precede init_sys_modes. */
1614 if (!noninteractive)
1615 init_display (); /* Determine terminal type. Calls init_sys_modes. */
1616 init_fns ();
1617 init_xdisp ();
1618 #ifdef HAVE_WINDOW_SYSTEM
1619 init_fringe ();
1620 init_image ();
1621 #endif /* HAVE_WINDOW_SYSTEM */
1622 init_macros ();
1623 init_floatfns ();
1624 #ifdef HAVE_SOUND
1625 init_sound ();
1626 #endif
1627 init_window ();
1628 init_font ();
1630 if (!initialized)
1632 char *file;
1633 /* Handle -l loadup, args passed by Makefile. */
1634 if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args))
1635 Vtop_level = Fcons (intern_c_string ("load"),
1636 Fcons (build_string (file), Qnil));
1637 /* Unless next switch is -nl, load "loadup.el" first thing. */
1638 if (! no_loadup)
1639 Vtop_level = Fcons (intern_c_string ("load"),
1640 Fcons (build_string ("loadup.el"), Qnil));
1643 if (initialized)
1645 #ifdef HAVE_TZSET
1647 /* If the execution TZ happens to be the same as the dump TZ,
1648 change it to some other value and then change it back,
1649 to force the underlying implementation to reload the TZ info.
1650 This is needed on implementations that load TZ info from files,
1651 since the TZ file contents may differ between dump and execution. */
1652 char *tz = getenv ("TZ");
1653 if (tz && !strcmp (tz, dump_tz))
1655 ++*tz;
1656 tzset ();
1657 --*tz;
1660 #endif
1663 /* Set up for profiling. This is known to work on FreeBSD,
1664 GNU/Linux and MinGW. It might work on some other systems too.
1665 Give it a try and tell us if it works on your system. To compile
1666 for profiling, use the configure option --enable-profiling. */
1667 #if defined (__FreeBSD__) || defined (GNU_LINUX) || defined (__MINGW32__)
1668 #ifdef PROFILING
1669 if (initialized)
1671 extern void _mcleanup ();
1672 #ifdef __MINGW32__
1673 extern unsigned char etext asm ("etext");
1674 #else
1675 extern char etext;
1676 #endif
1677 #ifdef HAVE___EXECUTABLE_START
1678 /* This symbol is defined by GNU ld to the start of the text
1679 segment. */
1680 extern char __executable_start[];
1681 #else
1682 extern void safe_bcopy ();
1683 #endif
1685 atexit (_mcleanup);
1686 #ifdef HAVE___EXECUTABLE_START
1687 monstartup (__executable_start, &etext);
1688 #else
1689 /* This uses safe_bcopy because that function comes first in the
1690 Emacs executable. It might be better to use something that
1691 gives the start of the text segment, but start_of_text is not
1692 defined on all systems now. */
1693 /* FIXME: Does not work on architectures with function
1694 descriptors. */
1695 monstartup (safe_bcopy, &etext);
1696 #endif
1698 else
1699 moncontrol (0);
1700 #endif
1701 #endif
1703 initialized = 1;
1705 #ifdef LOCALTIME_CACHE
1706 /* Some versions of localtime have a bug. They cache the value of the time
1707 zone rather than looking it up every time. Since localtime() is
1708 called to bolt the undumping time into the undumped emacs, this
1709 results in localtime ignoring the TZ environment variable.
1710 This flushes the new TZ value into localtime. */
1711 tzset ();
1712 #endif /* defined (LOCALTIME_CACHE) */
1714 /* Enter editor command loop. This never returns. */
1715 Frecursive_edit ();
1716 /* NOTREACHED */
1717 return 0;
1720 /* Sort the args so we can find the most important ones
1721 at the beginning of argv. */
1723 /* First, here's a table of all the standard options. */
1725 struct standard_args
1727 const char *name;
1728 const char *longname;
1729 int priority;
1730 int nargs;
1733 static const struct standard_args standard_args[] =
1735 { "-version", "--version", 150, 0 },
1736 { "-chdir", "--chdir", 130, 1 },
1737 { "-t", "--terminal", 120, 1 },
1738 { "-nw", "--no-window-system", 110, 0 },
1739 { "-nw", "--no-windows", 110, 0 },
1740 { "-batch", "--batch", 100, 0 },
1741 { "-script", "--script", 100, 1 },
1742 { "-daemon", "--daemon", 99, 0 },
1743 { "-help", "--help", 90, 0 },
1744 { "-nl", "--no-loadup", 70, 0 },
1745 { "-nsl", "--no-site-lisp", 65, 0 },
1746 /* -d must come last before the options handled in startup.el. */
1747 { "-d", "--display", 60, 1 },
1748 { "-display", 0, 60, 1 },
1749 /* Now for the options handled in `command-line' (startup.el). */
1750 /* (Note that to imply -nsl, -Q is partially handled here.) */
1751 { "-Q", "--quick", 55, 0 },
1752 { "-quick", 0, 55, 0 },
1753 { "-q", "--no-init-file", 50, 0 },
1754 { "-no-init-file", 0, 50, 0 },
1755 { "-no-site-file", "--no-site-file", 40, 0 },
1756 { "-u", "--user", 30, 1 },
1757 { "-user", 0, 30, 1 },
1758 { "-debug-init", "--debug-init", 20, 0 },
1759 { "-iconic", "--iconic", 15, 0 },
1760 { "-D", "--basic-display", 12, 0},
1761 { "-basic-display", 0, 12, 0},
1762 { "-nbc", "--no-blinking-cursor", 12, 0 },
1763 /* Now for the options handled in `command-line-1' (startup.el). */
1764 { "-nbi", "--no-bitmap-icon", 10, 0 },
1765 { "-bg", "--background-color", 10, 1 },
1766 { "-background", 0, 10, 1 },
1767 { "-fg", "--foreground-color", 10, 1 },
1768 { "-foreground", 0, 10, 1 },
1769 { "-bd", "--border-color", 10, 1 },
1770 { "-bw", "--border-width", 10, 1 },
1771 { "-ib", "--internal-border", 10, 1 },
1772 { "-ms", "--mouse-color", 10, 1 },
1773 { "-cr", "--cursor-color", 10, 1 },
1774 { "-fn", "--font", 10, 1 },
1775 { "-font", 0, 10, 1 },
1776 { "-fs", "--fullscreen", 10, 0 },
1777 { "-fw", "--fullwidth", 10, 0 },
1778 { "-fh", "--fullheight", 10, 0 },
1779 { "-mm", "--maximized", 10, 0 },
1780 { "-g", "--geometry", 10, 1 },
1781 { "-geometry", 0, 10, 1 },
1782 { "-T", "--title", 10, 1 },
1783 { "-title", 0, 10, 1 },
1784 { "-name", "--name", 10, 1 },
1785 { "-xrm", "--xrm", 10, 1 },
1786 { "-parent-id", "--parent-id", 10, 1 },
1787 { "-r", "--reverse-video", 5, 0 },
1788 { "-rv", 0, 5, 0 },
1789 { "-reverse", 0, 5, 0 },
1790 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1791 { "-vb", "--vertical-scroll-bars", 5, 0 },
1792 { "-color", "--color", 5, 0},
1793 { "-no-splash", "--no-splash", 3, 0 },
1794 { "-no-desktop", "--no-desktop", 3, 0 },
1795 #ifdef HAVE_NS
1796 { "-NSAutoLaunch", 0, 5, 1 },
1797 { "-NXAutoLaunch", 0, 5, 1 },
1798 { "-disable-font-backend", "--disable-font-backend", 65, 0 },
1799 { "-_NSMachLaunch", 0, 85, 1 },
1800 { "-MachLaunch", 0, 85, 1 },
1801 { "-macosx", 0, 85, 0 },
1802 { "-NSHost", 0, 85, 1 },
1803 #endif
1804 /* These have the same priority as ordinary file name args,
1805 so they are not reordered with respect to those. */
1806 { "-L", "--directory", 0, 1 },
1807 { "-directory", 0, 0, 1 },
1808 { "-l", "--load", 0, 1 },
1809 { "-load", 0, 0, 1 },
1810 /* This has no longname, because using --scriptload confuses sort_args,
1811 because then the --script long option seems to match twice; ie
1812 you can't have a long option which is a prefix of another long
1813 option. In any case, this is entirely an internal option. */
1814 { "-scriptload", NULL, 0, 1 },
1815 { "-f", "--funcall", 0, 1 },
1816 { "-funcall", 0, 0, 1 },
1817 { "-eval", "--eval", 0, 1 },
1818 { "-execute", "--execute", 0, 1 },
1819 { "-find-file", "--find-file", 0, 1 },
1820 { "-visit", "--visit", 0, 1 },
1821 { "-file", "--file", 0, 1 },
1822 { "-insert", "--insert", 0, 1 },
1823 #ifdef HAVE_NS
1824 { "-NXOpen", 0, 0, 1 },
1825 { "-NXOpenTemp", 0, 0, 1 },
1826 { "-NSOpen", 0, 0, 1 },
1827 { "-NSOpenTemp", 0, 0, 1 },
1828 { "-GSFilePath", 0, 0, 1 },
1829 #endif
1830 /* This should be processed after ordinary file name args and the like. */
1831 { "-kill", "--kill", -10, 0 },
1834 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1835 so that the highest priority ones come first.
1836 Do not change the order of elements of equal priority.
1837 If an option takes an argument, keep it and its argument together.
1839 If an option that takes no argument appears more
1840 than once, eliminate all but one copy of it. */
1842 static void
1843 sort_args (int argc, char **argv)
1845 char **new = (char **) xmalloc (sizeof (char *) * argc);
1846 /* For each element of argv,
1847 the corresponding element of options is:
1848 0 for an option that takes no arguments,
1849 1 for an option that takes one argument, etc.
1850 -1 for an ordinary non-option argument. */
1851 int *options = xnmalloc (argc, sizeof *options);
1852 int *priority = xnmalloc (argc, sizeof *priority);
1853 int to = 1;
1854 int incoming_used = 1;
1855 int from;
1856 int i;
1858 /* Categorize all the options,
1859 and figure out which argv elts are option arguments. */
1860 for (from = 1; from < argc; from++)
1862 options[from] = -1;
1863 priority[from] = 0;
1864 if (argv[from][0] == '-')
1866 int match;
1868 /* If we have found "--", don't consider
1869 any more arguments as options. */
1870 if (argv[from][1] == '-' && argv[from][2] == 0)
1872 /* Leave the "--", and everything following it, at the end. */
1873 for (; from < argc; from++)
1875 priority[from] = -100;
1876 options[from] = -1;
1878 break;
1881 /* Look for a match with a known old-fashioned option. */
1882 for (i = 0; i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1883 if (!strcmp (argv[from], standard_args[i].name))
1885 options[from] = standard_args[i].nargs;
1886 priority[from] = standard_args[i].priority;
1887 if (from + standard_args[i].nargs >= argc)
1888 fatal ("Option `%s' requires an argument\n", argv[from]);
1889 from += standard_args[i].nargs;
1890 goto done;
1893 /* Look for a match with a known long option.
1894 MATCH is -1 if no match so far, -2 if two or more matches so far,
1895 >= 0 (the table index of the match) if just one match so far. */
1896 if (argv[from][1] == '-')
1898 char const *equals = strchr (argv[from], '=');
1899 ptrdiff_t thislen =
1900 equals ? equals - argv[from] : strlen (argv[from]);
1902 match = -1;
1904 for (i = 0;
1905 i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1906 if (standard_args[i].longname
1907 && !strncmp (argv[from], standard_args[i].longname,
1908 thislen))
1910 if (match == -1)
1911 match = i;
1912 else
1913 match = -2;
1916 /* If we found exactly one match, use that. */
1917 if (match >= 0)
1919 options[from] = standard_args[match].nargs;
1920 priority[from] = standard_args[match].priority;
1921 /* If --OPTION=VALUE syntax is used,
1922 this option uses just one argv element. */
1923 if (equals != 0)
1924 options[from] = 0;
1925 if (from + options[from] >= argc)
1926 fatal ("Option `%s' requires an argument\n", argv[from]);
1927 from += options[from];
1929 /* FIXME When match < 0, shouldn't there be some error,
1930 or at least indication to the user that there was a
1931 problem? */
1933 done: ;
1937 /* Copy the arguments, in order of decreasing priority, to NEW. */
1938 new[0] = argv[0];
1939 while (incoming_used < argc)
1941 int best = -1;
1942 int best_priority = -9999;
1944 /* Find the highest priority remaining option.
1945 If several have equal priority, take the first of them. */
1946 for (from = 1; from < argc; from++)
1948 if (argv[from] != 0 && priority[from] > best_priority)
1950 best_priority = priority[from];
1951 best = from;
1953 /* Skip option arguments--they are tied to the options. */
1954 if (options[from] > 0)
1955 from += options[from];
1958 if (best < 0)
1959 abort ();
1961 /* Copy the highest priority remaining option, with its args, to NEW.
1962 Unless it is a duplicate of the previous one. */
1963 if (! (options[best] == 0
1964 && ! strcmp (new[to - 1], argv[best])))
1966 new[to++] = argv[best];
1967 for (i = 0; i < options[best]; i++)
1968 new[to++] = argv[best + i + 1];
1971 incoming_used += 1 + (options[best] > 0 ? options[best] : 0);
1973 /* Clear out this option in ARGV. */
1974 argv[best] = 0;
1975 for (i = 0; i < options[best]; i++)
1976 argv[best + i + 1] = 0;
1979 /* If duplicate options were deleted, fill up extra space with null ptrs. */
1980 while (to < argc)
1981 new[to++] = 0;
1983 memcpy (argv, new, sizeof (char *) * argc);
1985 xfree (options);
1986 xfree (new);
1987 xfree (priority);
1990 DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P",
1991 doc: /* Exit the Emacs job and kill it.
1992 If ARG is an integer, return ARG as the exit program code.
1993 If ARG is a string, stuff it as keyboard input.
1995 This function is called upon receipt of the signals SIGTERM
1996 or SIGHUP, and upon SIGINT in batch mode.
1998 The value of `kill-emacs-hook', if not void,
1999 is a list of functions (of no args),
2000 all of which are called before Emacs is actually killed. */)
2001 (Lisp_Object arg)
2003 struct gcpro gcpro1;
2004 Lisp_Object hook;
2005 int exit_code;
2007 GCPRO1 (arg);
2009 if (feof (stdin))
2010 arg = Qt;
2012 hook = intern ("kill-emacs-hook");
2013 Frun_hooks (1, &hook);
2015 UNGCPRO;
2017 #ifdef HAVE_X_WINDOWS
2018 /* Transfer any clipboards we own to the clipboard manager. */
2019 x_clipboard_manager_save_all ();
2020 #endif
2022 shut_down_emacs (0, 0, STRINGP (arg) ? arg : Qnil);
2024 #ifdef HAVE_NS
2025 ns_release_autorelease_pool (ns_pool);
2026 #endif
2028 /* If we have an auto-save list file,
2029 kill it because we are exiting Emacs deliberately (not crashing).
2030 Do it after shut_down_emacs, which does an auto-save. */
2031 if (STRINGP (Vauto_save_list_file_name))
2032 unlink (SSDATA (Vauto_save_list_file_name));
2034 exit_code = EXIT_SUCCESS;
2035 if (noninteractive && (fflush (stdout) || ferror (stdout)))
2036 exit_code = EXIT_FAILURE;
2037 exit (INTEGERP (arg) ? XINT (arg) : exit_code);
2041 /* Perform an orderly shutdown of Emacs. Autosave any modified
2042 buffers, kill any child processes, clean up the terminal modes (if
2043 we're in the foreground), and other stuff like that. Don't perform
2044 any redisplay; this may be called when Emacs is shutting down in
2045 the background, or after its X connection has died.
2047 If SIG is a signal number, print a message for it.
2049 This is called by fatal signal handlers, X protocol error handlers,
2050 and Fkill_emacs. */
2052 void
2053 shut_down_emacs (int sig, int no_x, Lisp_Object stuff)
2055 /* Prevent running of hooks from now on. */
2056 Vrun_hooks = Qnil;
2058 /* Don't update display from now on. */
2059 Vinhibit_redisplay = Qt;
2061 /* If we are controlling the terminal, reset terminal modes. */
2062 #ifndef DOS_NT
2064 int pgrp = EMACS_GETPGRP (0);
2065 int tpgrp = tcgetpgrp (0);
2066 if ((tpgrp != -1) && tpgrp == pgrp)
2068 reset_all_sys_modes ();
2069 if (sig && sig != SIGTERM)
2070 fprintf (stderr, "Fatal error (%d)", sig);
2073 #else
2074 fflush (stdout);
2075 reset_all_sys_modes ();
2076 #endif
2078 stuff_buffered_input (stuff);
2080 inhibit_sentinels = 1;
2081 kill_buffer_processes (Qnil);
2082 Fdo_auto_save (Qt, Qnil);
2084 #ifdef CLASH_DETECTION
2085 unlock_all_files ();
2086 #endif
2088 #if 0 /* This triggers a bug in XCloseDisplay and is not needed. */
2089 #ifdef HAVE_X_WINDOWS
2090 /* It's not safe to call intern here. Maybe we are crashing. */
2091 if (!noninteractive && SYMBOLP (Vinitial_window_system)
2092 && SCHARS (SYMBOL_NAME (Vinitial_window_system)) == 1
2093 && SREF (SYMBOL_NAME (Vinitial_window_system), 0) == 'x'
2094 && ! no_x)
2095 Fx_close_current_connection ();
2096 #endif /* HAVE_X_WINDOWS */
2097 #endif
2099 #ifdef SIGIO
2100 /* There is a tendency for a SIGIO signal to arrive within exit,
2101 and cause a SIGHUP because the input descriptor is already closed. */
2102 unrequest_sigio ();
2103 signal (SIGIO, SIG_IGN);
2104 #endif
2106 #ifdef WINDOWSNT
2107 term_ntproc ();
2108 #endif
2110 /* Do this only if terminating normally, we want glyph matrices
2111 etc. in a core dump. */
2112 if (sig == 0 || sig == SIGTERM)
2114 check_glyph_memory ();
2115 check_message_stack ();
2118 #ifdef MSDOS
2119 dos_cleanup ();
2120 #endif
2122 #ifdef HAVE_NS
2123 ns_term_shutdown (sig);
2124 #endif
2126 #ifdef HAVE_LIBXML2
2127 xmlCleanupParser ();
2128 #endif
2133 #ifndef CANNOT_DUMP
2135 #include "unexec.h"
2137 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0,
2138 doc: /* Dump current state of Emacs into executable file FILENAME.
2139 Take symbols from SYMFILE (presumably the file you executed to run Emacs).
2140 This is used in the file `loadup.el' when building Emacs.
2142 You must run Emacs in batch mode in order to dump it. */)
2143 (Lisp_Object filename, Lisp_Object symfile)
2145 Lisp_Object tem;
2146 Lisp_Object symbol;
2147 int count = SPECPDL_INDEX ();
2149 check_pure_size ();
2151 if (! noninteractive)
2152 error ("Dumping Emacs works only in batch mode");
2154 #ifdef GNU_LINUX
2156 /* Warn if the gap between BSS end and heap start is larger than this. */
2157 # define MAX_HEAP_BSS_DIFF (1024*1024)
2159 if (heap_bss_diff > MAX_HEAP_BSS_DIFF)
2161 fprintf (stderr, "**************************************************\n");
2162 fprintf (stderr, "Warning: Your system has a gap between BSS and the\n");
2163 fprintf (stderr, "heap (%"pMu" bytes). This usually means that exec-shield\n",
2164 heap_bss_diff);
2165 fprintf (stderr, "or something similar is in effect. The dump may\n");
2166 fprintf (stderr, "fail because of this. See the section about\n");
2167 fprintf (stderr, "exec-shield in etc/PROBLEMS for more information.\n");
2168 fprintf (stderr, "**************************************************\n");
2170 #endif /* GNU_LINUX */
2172 /* Bind `command-line-processed' to nil before dumping,
2173 so that the dumped Emacs will process its command line
2174 and set up to work with X windows if appropriate. */
2175 symbol = intern ("command-line-processed");
2176 specbind (symbol, Qnil);
2178 CHECK_STRING (filename);
2179 filename = Fexpand_file_name (filename, Qnil);
2180 if (!NILP (symfile))
2182 CHECK_STRING (symfile);
2183 if (SCHARS (symfile))
2184 symfile = Fexpand_file_name (symfile, Qnil);
2187 tem = Vpurify_flag;
2188 Vpurify_flag = Qnil;
2190 #ifdef HAVE_TZSET
2191 set_time_zone_rule (dump_tz);
2192 #ifndef LOCALTIME_CACHE
2193 /* Force a tz reload, since set_time_zone_rule doesn't. */
2194 tzset ();
2195 #endif
2196 #endif
2198 fflush (stdout);
2199 /* Tell malloc where start of impure now is. */
2200 /* Also arrange for warnings when nearly out of space. */
2201 #ifndef SYSTEM_MALLOC
2202 #ifndef WINDOWSNT
2203 /* On Windows, this was done before dumping, and that once suffices.
2204 Meanwhile, my_edata is not valid on Windows. */
2206 extern char my_edata[];
2207 memory_warnings (my_edata, malloc_warning);
2209 #endif /* not WINDOWSNT */
2210 #if defined (HAVE_PTHREAD) && !defined SYNC_INPUT
2211 /* Pthread may call malloc before main, and then we will get an endless
2212 loop, because pthread_self (see alloc.c) calls malloc the first time
2213 it is called on some systems. */
2214 reset_malloc_hooks ();
2215 #endif
2216 #endif /* not SYSTEM_MALLOC */
2217 #ifdef DOUG_LEA_MALLOC
2218 malloc_state_ptr = malloc_get_state ();
2219 #endif
2221 #ifdef USE_MMAP_FOR_BUFFERS
2222 mmap_set_vars (0);
2223 #endif
2224 unexec (SSDATA (filename), !NILP (symfile) ? SSDATA (symfile) : 0);
2225 #ifdef USE_MMAP_FOR_BUFFERS
2226 mmap_set_vars (1);
2227 #endif
2228 #ifdef DOUG_LEA_MALLOC
2229 free (malloc_state_ptr);
2230 #endif
2232 Vpurify_flag = tem;
2234 return unbind_to (count, Qnil);
2237 #endif /* not CANNOT_DUMP */
2239 #if HAVE_SETLOCALE
2240 /* Recover from setlocale (LC_ALL, ""). */
2241 void
2242 fixup_locale (void)
2244 /* The Emacs Lisp reader needs LC_NUMERIC to be "C",
2245 so that numbers are read and printed properly for Emacs Lisp. */
2246 setlocale (LC_NUMERIC, "C");
2249 /* Set system locale CATEGORY, with previous locale *PLOCALE, to
2250 DESIRED_LOCALE. */
2251 static void
2252 synchronize_locale (int category, Lisp_Object *plocale, Lisp_Object desired_locale)
2254 if (! EQ (*plocale, desired_locale))
2256 *plocale = desired_locale;
2257 setlocale (category, (STRINGP (desired_locale)
2258 ? SSDATA (desired_locale)
2259 : ""));
2263 /* Set system time locale to match Vsystem_time_locale, if possible. */
2264 void
2265 synchronize_system_time_locale (void)
2267 synchronize_locale (LC_TIME, &Vprevious_system_time_locale,
2268 Vsystem_time_locale);
2271 /* Set system messages locale to match Vsystem_messages_locale, if
2272 possible. */
2273 void
2274 synchronize_system_messages_locale (void)
2276 #ifdef LC_MESSAGES
2277 synchronize_locale (LC_MESSAGES, &Vprevious_system_messages_locale,
2278 Vsystem_messages_locale);
2279 #endif
2281 #endif /* HAVE_SETLOCALE */
2283 #ifndef SEPCHAR
2284 #define SEPCHAR ':'
2285 #endif
2287 Lisp_Object
2288 decode_env_path (const char *evarname, const char *defalt)
2290 const char *path, *p;
2291 Lisp_Object lpath, element, tem;
2293 /* It's okay to use getenv here, because this function is only used
2294 to initialize variables when Emacs starts up, and isn't called
2295 after that. */
2296 if (evarname != 0)
2297 path = getenv (evarname);
2298 else
2299 path = 0;
2300 if (!path)
2301 path = defalt;
2302 #ifdef DOS_NT
2303 /* Ensure values from the environment use the proper directory separator. */
2304 if (path)
2306 char *path_copy = alloca (strlen (path) + 1);
2307 strcpy (path_copy, path);
2308 dostounix_filename (path_copy);
2309 path = path_copy;
2311 #endif
2312 lpath = Qnil;
2313 while (1)
2315 p = strchr (path, SEPCHAR);
2316 if (!p)
2317 p = path + strlen (path);
2318 element = (p - path ? make_string (path, p - path)
2319 : build_string ("."));
2321 /* Add /: to the front of the name
2322 if it would otherwise be treated as magic. */
2323 tem = Ffind_file_name_handler (element, Qt);
2325 /* However, if the handler says "I'm safe",
2326 don't bother adding /:. */
2327 if (SYMBOLP (tem))
2329 Lisp_Object prop;
2330 prop = Fget (tem, intern ("safe-magic"));
2331 if (! NILP (prop))
2332 tem = Qnil;
2335 if (! NILP (tem))
2336 element = concat2 (build_string ("/:"), element);
2338 lpath = Fcons (element, lpath);
2339 if (*p)
2340 path = p + 1;
2341 else
2342 break;
2344 return Fnreverse (lpath);
2347 DEFUN ("daemonp", Fdaemonp, Sdaemonp, 0, 0, 0,
2348 doc: /* Return non-nil if the current emacs process is a daemon.
2349 If the daemon was given a name argument, return that name. */)
2350 (void)
2352 if (IS_DAEMON)
2353 if (daemon_name)
2354 return build_string (daemon_name);
2355 else
2356 return Qt;
2357 else
2358 return Qnil;
2361 DEFUN ("daemon-initialized", Fdaemon_initialized, Sdaemon_initialized, 0, 0, 0,
2362 doc: /* Mark the Emacs daemon as being initialized.
2363 This finishes the daemonization process by doing the other half of detaching
2364 from the parent process and its tty file descriptors. */)
2365 (void)
2367 int nfd;
2368 int err = 0;
2370 if (!IS_DAEMON)
2371 error ("This function can only be called if emacs is run as a daemon");
2373 if (daemon_pipe[1] < 0)
2374 error ("The daemon has already been initialized");
2376 if (NILP (Vafter_init_time))
2377 error ("This function can only be called after loading the init files");
2379 /* Get rid of stdin, stdout and stderr. */
2380 nfd = open ("/dev/null", O_RDWR);
2381 err |= nfd < 0;
2382 err |= dup2 (nfd, 0) < 0;
2383 err |= dup2 (nfd, 1) < 0;
2384 err |= dup2 (nfd, 2) < 0;
2385 err |= close (nfd) != 0;
2387 /* Closing the pipe will notify the parent that it can exit.
2388 FIXME: In case some other process inherited the pipe, closing it here
2389 won't notify the parent because it's still open elsewhere, so we
2390 additionally send a byte, just to make sure the parent really exits.
2391 Instead, we should probably close the pipe in start-process and
2392 call-process to make sure the pipe is never inherited by
2393 subprocesses. */
2394 err |= write (daemon_pipe[1], "\n", 1) < 0;
2395 err |= close (daemon_pipe[1]) != 0;
2396 /* Set it to an invalid value so we know we've already run this function. */
2397 daemon_pipe[1] = -1;
2399 if (err)
2400 error ("I/O error during daemon initialization");
2401 return Qt;
2404 void
2405 syms_of_emacs (void)
2407 DEFSYM (Qfile_name_handler_alist, "file-name-handler-alist");
2408 DEFSYM (Qrisky_local_variable, "risky-local-variable");
2409 DEFSYM (Qkill_emacs, "kill-emacs");
2411 #ifndef CANNOT_DUMP
2412 defsubr (&Sdump_emacs);
2413 #endif
2415 defsubr (&Skill_emacs);
2417 defsubr (&Sinvocation_name);
2418 defsubr (&Sinvocation_directory);
2419 defsubr (&Sdaemonp);
2420 defsubr (&Sdaemon_initialized);
2422 DEFVAR_LISP ("command-line-args", Vcommand_line_args,
2423 doc: /* Args passed by shell to Emacs, as a list of strings.
2424 Many arguments are deleted from the list as they are processed. */);
2426 DEFVAR_LISP ("system-type", Vsystem_type,
2427 doc: /* The value is a symbol indicating the type of operating system you are using.
2428 Special values:
2429 `gnu' compiled for a GNU Hurd system.
2430 `gnu/linux' compiled for a GNU/Linux system.
2431 `gnu/kfreebsd' compiled for a GNU system with a FreeBSD kernel.
2432 `darwin' compiled for Darwin (GNU-Darwin, Mac OS X, ...).
2433 `ms-dos' compiled as an MS-DOS application.
2434 `windows-nt' compiled as a native W32 application.
2435 `cygwin' compiled using the Cygwin library.
2436 Anything else (in Emacs 24.1, the possibilities are: aix, berkeley-unix,
2437 hpux, irix, usg-unix-v) indicates some sort of Unix system. */);
2438 Vsystem_type = intern_c_string (SYSTEM_TYPE);
2439 /* The above values are from SYSTEM_TYPE in include files under src/s. */
2441 DEFVAR_LISP ("system-configuration", Vsystem_configuration,
2442 doc: /* Value is string indicating configuration Emacs was built for.
2443 On MS-Windows, the value reflects the OS flavor and version on which
2444 Emacs is running. */);
2445 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
2447 DEFVAR_LISP ("system-configuration-options", Vsystem_configuration_options,
2448 doc: /* String containing the configuration options Emacs was built with. */);
2449 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
2451 DEFVAR_BOOL ("noninteractive", noninteractive1,
2452 doc: /* Non-nil means Emacs is running without interactive terminal. */);
2454 DEFVAR_LISP ("kill-emacs-hook", Vkill_emacs_hook,
2455 doc: /* Hook to be run when `kill-emacs' is called.
2456 Since `kill-emacs' may be invoked when the terminal is disconnected (or
2457 in other similar situations), functions placed on this hook should not
2458 expect to be able to interact with the user. To ask for confirmation,
2459 see `kill-emacs-query-functions' instead.
2461 Before Emacs 24.1, the hook was not run in batch mode, i.e., if
2462 `noninteractive' was non-nil. */);
2463 Vkill_emacs_hook = Qnil;
2465 DEFVAR_LISP ("path-separator", Vpath_separator,
2466 doc: /* String containing the character that separates directories in
2467 search paths, such as PATH and other similar environment variables. */);
2469 char c = SEPCHAR;
2470 Vpath_separator = make_string (&c, 1);
2473 DEFVAR_LISP ("invocation-name", Vinvocation_name,
2474 doc: /* The program name that was used to run Emacs.
2475 Any directory names are omitted. */);
2477 DEFVAR_LISP ("invocation-directory", Vinvocation_directory,
2478 doc: /* The directory in which the Emacs executable was found, to run it.
2479 The value is nil if that directory's name is not known. */);
2481 DEFVAR_LISP ("installation-directory", Vinstallation_directory,
2482 doc: /* A directory within which to look for the `lib-src' and `etc' directories.
2483 In an installed Emacs, this is normally nil. It is non-nil if
2484 both `lib-src' (on MS-DOS, `info') and `etc' directories are found
2485 within the variable `invocation-directory' or its parent. For example,
2486 this is the case when running an uninstalled Emacs executable from its
2487 build directory. */);
2488 Vinstallation_directory = Qnil;
2490 DEFVAR_LISP ("system-messages-locale", Vsystem_messages_locale,
2491 doc: /* System locale for messages. */);
2492 Vsystem_messages_locale = Qnil;
2494 DEFVAR_LISP ("previous-system-messages-locale",
2495 Vprevious_system_messages_locale,
2496 doc: /* Most recently used system locale for messages. */);
2497 Vprevious_system_messages_locale = Qnil;
2499 DEFVAR_LISP ("system-time-locale", Vsystem_time_locale,
2500 doc: /* System locale for time. */);
2501 Vsystem_time_locale = Qnil;
2503 DEFVAR_LISP ("previous-system-time-locale", Vprevious_system_time_locale,
2504 doc: /* Most recently used system locale for time. */);
2505 Vprevious_system_time_locale = Qnil;
2507 DEFVAR_LISP ("before-init-time", Vbefore_init_time,
2508 doc: /* Value of `current-time' before Emacs begins initialization. */);
2509 Vbefore_init_time = Qnil;
2511 DEFVAR_LISP ("after-init-time", Vafter_init_time,
2512 doc: /* Value of `current-time' after loading the init files.
2513 This is nil during initialization. */);
2514 Vafter_init_time = Qnil;
2516 DEFVAR_BOOL ("inhibit-x-resources", inhibit_x_resources,
2517 doc: /* If non-nil, X resources, Windows Registry settings, and NS defaults are not used. */);
2518 inhibit_x_resources = 0;
2520 DEFVAR_LISP ("emacs-copyright", Vemacs_copyright,
2521 doc: /* Short copyright string for this version of Emacs. */);
2522 Vemacs_copyright = build_string (emacs_copyright);
2524 DEFVAR_LISP ("emacs-version", Vemacs_version,
2525 doc: /* Version numbers of this version of Emacs. */);
2526 Vemacs_version = build_string (emacs_version);
2528 DEFVAR_LISP ("dynamic-library-alist", Vdynamic_library_alist,
2529 doc: /* Alist of dynamic libraries vs external files implementing them.
2530 Each element is a list (LIBRARY FILE...), where the car is a symbol
2531 representing a supported external library, and the rest are strings giving
2532 alternate filenames for that library.
2534 Emacs tries to load the library from the files in the order they appear on
2535 the list; if none is loaded, the running session of Emacs won't have access
2536 to that library.
2538 Note that image types `pbm' and `xbm' do not need entries in this variable
2539 because they do not depend on external libraries and are always available.
2541 Also note that this is not a generic facility for accessing external
2542 libraries; only those already known by Emacs will be loaded. */);
2543 Vdynamic_library_alist = Qnil;
2544 Fput (intern_c_string ("dynamic-library-alist"), Qrisky_local_variable, Qt);
2546 /* Make sure IS_DAEMON starts up as false. */
2547 daemon_pipe[1] = 0;