Merge from cygw32 branch
[emacs.git] / src / emacs.c
blobadfff6ff3ed95178cda6431aca3ff6c20d2fe0c3
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 HAVE_WINDOW_SYSTEM
35 #include TERM_HEADER
36 #endif /* HAVE_WINDOW_SYSTEM */
38 #ifdef WINDOWSNT
39 #include <fcntl.h>
40 #include <windows.h> /* just for w32.h */
41 #include "w32.h"
42 #include "w32heap.h" /* for prototype of sbrk */
43 #endif
45 #ifdef NS_IMPL_GNUSTEP
46 /* At least under Debian, GSConfig is in a subdirectory. --Stef */
47 #include <GNUstepBase/GSConfig.h>
48 #endif
50 #include "commands.h"
51 #include "intervals.h"
52 #include "character.h"
53 #include "buffer.h"
54 #include "window.h"
56 #include "systty.h"
57 #include "blockinput.h"
58 #include "syssignal.h"
59 #include "process.h"
60 #include "frame.h"
61 #include "termhooks.h"
62 #include "keyboard.h"
63 #include "keymap.h"
65 #ifdef HAVE_GNUTLS
66 #include "gnutls.h"
67 #endif
69 #if (defined PROFILING \
70 && (defined __FreeBSD__ || defined GNU_LINUX || defined __MINGW32__))
71 # include <sys/gmon.h>
72 extern void moncontrol (int mode);
73 #endif
75 #ifdef HAVE_SETLOCALE
76 #include <locale.h>
77 #endif
79 #ifdef HAVE_SETRLIMIT
80 #include <sys/time.h>
81 #include <sys/resource.h>
82 #endif
84 #ifdef HAVE_PERSONALITY_LINUX32
85 #include <sys/personality.h>
86 #endif
88 #ifndef O_RDWR
89 #define O_RDWR 2
90 #endif
92 static const char emacs_version[] = VERSION;
93 static const char emacs_copyright[] = "Copyright (C) 2012 Free Software Foundation, Inc.";
95 /* Empty lisp strings. To avoid having to build any others. */
96 Lisp_Object empty_unibyte_string, empty_multibyte_string;
98 /* Set nonzero after Emacs has started up the first time.
99 Prevents reinitialization of the Lisp world and keymaps
100 on subsequent starts. */
101 int initialized;
103 #ifdef DARWIN_OS
104 extern void unexec_init_emacs_zone (void);
105 #endif
107 #ifdef DOUG_LEA_MALLOC
108 /* Preserves a pointer to the memory allocated that copies that
109 static data inside glibc's malloc. */
110 static void *malloc_state_ptr;
111 /* From glibc, a routine that returns a copy of the malloc internal state. */
112 extern void *malloc_get_state (void);
113 /* From glibc, a routine that overwrites the malloc internal state. */
114 extern int malloc_set_state (void*);
115 /* Non-zero if the MALLOC_CHECK_ environment variable was set while
116 dumping. Used to work around a bug in glibc's malloc. */
117 static int malloc_using_checking;
118 #endif
120 Lisp_Object Qfile_name_handler_alist;
122 Lisp_Object Qrisky_local_variable;
124 Lisp_Object Qkill_emacs;
126 /* If non-zero, Emacs should not attempt to use a window-specific code,
127 but instead should use the virtual terminal under which it was started. */
128 int inhibit_window_system;
130 /* If non-zero, a filter or a sentinel is running. Tested to save the match
131 data on the first attempt to change it inside asynchronous code. */
132 int running_asynch_code;
134 #if defined (HAVE_X_WINDOWS) || defined (HAVE_NS)
135 /* If non-zero, -d was specified, meaning we're using some window system. */
136 int display_arg;
137 #endif
139 /* An address near the bottom of the stack.
140 Tells GC how to save a copy of the stack. */
141 char *stack_bottom;
143 #if defined (DOUG_LEA_MALLOC) || defined (GNU_LINUX)
144 /* The address where the heap starts (from the first sbrk (0) call). */
145 static void *my_heap_start;
146 #endif
148 #ifdef GNU_LINUX
149 /* The gap between BSS end and heap start as far as we can tell. */
150 static uprintmax_t heap_bss_diff;
151 #endif
153 /* Nonzero means running Emacs without interactive terminal. */
154 int noninteractive;
156 /* Nonzero means remove site-lisp directories from load-path. */
157 int no_site_lisp;
159 /* Name for the server started by the daemon.*/
160 static char *daemon_name;
162 /* Pipe used to send exit notification to the daemon parent at
163 startup. */
164 int daemon_pipe[2];
166 /* Save argv and argc. */
167 char **initial_argv;
168 int initial_argc;
170 static void sort_args (int argc, char **argv);
171 static void syms_of_emacs (void);
173 /* MSVC needs each string be shorter than 2048 bytes, so the usage
174 strings below are split to not overflow this limit. */
175 #define USAGE1 "\
176 Usage: %s [OPTION-OR-FILENAME]...\n\
178 Run Emacs, the extensible, customizable, self-documenting real-time\n\
179 display editor. The recommended way to start Emacs for normal editing\n\
180 is with no options at all.\n\
182 Run M-x info RET m emacs RET m emacs invocation RET inside Emacs to\n\
183 read the main documentation for these command-line arguments.\n\
185 Initialization options:\n\
187 --batch do not do interactive display; implies -q\n\
188 --chdir DIR change to directory DIR\n\
189 --daemon start a server in the background\n\
190 --debug-init enable Emacs Lisp debugger for init file\n\
191 --display, -d DISPLAY use X server DISPLAY\n\
192 --no-desktop do not load a saved desktop\n\
193 --no-init-file, -q load neither ~/.emacs nor default.el\n\
194 --no-shared-memory, -nl do not use shared memory\n\
195 --no-site-file do not load site-start.el\n\
196 --no-site-lisp, -nsl do not add site-lisp directories to load-path\n\
197 --no-splash do not display a splash screen on startup\n\
198 --no-window-system, -nw do not communicate with X, ignoring $DISPLAY\n\
199 --quick, -Q equivalent to:\n\
200 -q --no-site-file --no-site-lisp --no-splash\n\
201 --script FILE run FILE as an Emacs Lisp script\n\
202 --terminal, -t DEVICE use DEVICE for terminal I/O\n\
203 --user, -u USER load ~USER/.emacs instead of your own\n\
204 \n%s"
206 #define USAGE2 "\
207 Action options:\n\
209 FILE visit FILE using find-file\n\
210 +LINE go to line LINE in next FILE\n\
211 +LINE:COLUMN go to line LINE, column COLUMN, in next FILE\n\
212 --directory, -L DIR add DIR to variable load-path\n\
213 --eval EXPR evaluate Emacs Lisp expression EXPR\n\
214 --execute EXPR evaluate Emacs Lisp expression EXPR\n\
215 --file FILE visit FILE using find-file\n\
216 --find-file FILE visit FILE using find-file\n\
217 --funcall, -f FUNC call Emacs Lisp function FUNC with no arguments\n\
218 --insert FILE insert contents of FILE into current buffer\n\
219 --kill exit without asking for confirmation\n\
220 --load, -l FILE load Emacs Lisp FILE using the load function\n\
221 --visit FILE visit FILE using find-file\n\
224 #define USAGE3 "\
225 Display options:\n\
227 --background-color, -bg COLOR window background color\n\
228 --basic-display, -D disable many display features;\n\
229 used for debugging Emacs\n\
230 --border-color, -bd COLOR main border color\n\
231 --border-width, -bw WIDTH width of main border\n\
232 --color, --color=MODE override color mode for character terminals;\n\
233 MODE defaults to `auto', and\n\
234 can also be `never', `always',\n\
235 or a mode name like `ansi8'\n\
236 --cursor-color, -cr COLOR color of the Emacs cursor indicating point\n\
237 --font, -fn FONT default font; must be fixed-width\n\
238 --foreground-color, -fg COLOR window foreground color\n\
239 --fullheight, -fh make the first frame high as the screen\n\
240 --fullscreen, -fs make the first frame fullscreen\n\
241 --fullwidth, -fw make the first frame wide as the screen\n\
242 --maximized, -mm make the first frame maximized\n\
243 --geometry, -g GEOMETRY window geometry\n\
244 --no-bitmap-icon, -nbi do not use picture of gnu for Emacs icon\n\
245 --iconic start Emacs in iconified state\n\
246 --internal-border, -ib WIDTH width between text and main border\n\
247 --line-spacing, -lsp PIXELS additional space to put between lines\n\
248 --mouse-color, -ms COLOR mouse cursor color in Emacs window\n\
249 --name NAME title for initial Emacs frame\n\
250 --no-blinking-cursor, -nbc disable blinking cursor\n\
251 --reverse-video, -r, -rv switch foreground and background\n\
252 --title, -T TITLE title for initial Emacs frame\n\
253 --vertical-scroll-bars, -vb enable vertical scroll bars\n\
254 --xrm XRESOURCES set additional X resources\n\
255 --parent-id XID set parent window\n\
256 --help display this help and exit\n\
257 --version output version information and exit\n\
260 #define USAGE4 "\
261 You can generally also specify long option names with a single -; for\n\
262 example, -batch as well as --batch. You can use any unambiguous\n\
263 abbreviation for a --option.\n\
265 Various environment variables and window system resources also affect\n\
266 Emacs' operation. See the main documentation.\n\
268 Report bugs to bug-gnu-emacs@gnu.org. First, please see the Bugs\n\
269 section of the Emacs manual or the file BUGS.\n"
272 /* Signal code for the fatal signal that was received. */
273 static int fatal_error_code;
275 /* Nonzero if handling a fatal error already. */
276 int fatal_error_in_progress;
278 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
279 /* When compiled with GTK and running under Gnome,
280 multiple threads may be created. Keep track of our main
281 thread to make sure signals are delivered to it (see syssignal.h). */
283 pthread_t main_thread;
284 #endif
286 #ifdef HAVE_NS
287 /* NS autrelease pool, for memory management. */
288 static void *ns_pool;
289 #endif
293 /* Handle bus errors, invalid instruction, etc. */
294 #ifndef FLOAT_CATCH_SIGILL
295 static
296 #endif
297 void
298 fatal_error_signal (int sig)
300 SIGNAL_THREAD_CHECK (sig);
301 fatal_error_code = sig;
302 signal (sig, SIG_DFL);
304 TOTALLY_UNBLOCK_INPUT;
306 /* If fatal error occurs in code below, avoid infinite recursion. */
307 if (! fatal_error_in_progress)
309 fatal_error_in_progress = 1;
311 if (sig == SIGTERM || sig == SIGHUP || sig == SIGINT)
312 Fkill_emacs (make_number (sig));
314 shut_down_emacs (sig, 0, Qnil);
317 /* Signal the same code; this time it will really be fatal.
318 Remember that since we're in a signal handler, the signal we're
319 going to send is probably blocked, so we have to unblock it if we
320 want to really receive it. */
321 #ifndef MSDOS
322 sigunblock (sigmask (fatal_error_code));
323 #endif
325 kill (getpid (), fatal_error_code);
328 #ifdef SIGDANGER
330 /* Handler for SIGDANGER. */
331 void
332 memory_warning_signal (int sig)
334 signal (sig, memory_warning_signal);
335 SIGNAL_THREAD_CHECK (sig);
337 malloc_warning ("Operating system warns that virtual memory is running low.\n");
339 /* It might be unsafe to call do_auto_save now. */
340 force_auto_save_soon ();
342 #endif
344 /* We define abort, rather than using it from the library,
345 so that GDB can return from a breakpoint here.
346 MSDOS has its own definition in msdos.c. */
348 #if ! defined (DOS_NT) && ! defined (NO_ABORT)
350 void
351 abort (void)
353 kill (getpid (), SIGABRT);
354 /* This shouldn't be executed, but it prevents a warning. */
355 exit (1);
357 #endif
360 /* Code for dealing with Lisp access to the Unix command line. */
362 static void
363 init_cmdargs (int argc, char **argv, int skip_args)
365 register int i;
366 Lisp_Object name, dir, handler;
367 ptrdiff_t count = SPECPDL_INDEX ();
368 Lisp_Object raw_name;
370 initial_argv = argv;
371 initial_argc = argc;
373 raw_name = build_string (argv[0]);
375 /* Add /: to the front of the name
376 if it would otherwise be treated as magic. */
377 handler = Ffind_file_name_handler (raw_name, Qt);
378 if (! NILP (handler))
379 raw_name = concat2 (build_string ("/:"), raw_name);
381 Vinvocation_name = Ffile_name_nondirectory (raw_name);
382 Vinvocation_directory = Ffile_name_directory (raw_name);
384 /* If we got no directory in argv[0], search PATH to find where
385 Emacs actually came from. */
386 if (NILP (Vinvocation_directory))
388 Lisp_Object found;
389 int yes = openp (Vexec_path, Vinvocation_name,
390 Vexec_suffixes, &found, make_number (X_OK));
391 if (yes == 1)
393 /* Add /: to the front of the name
394 if it would otherwise be treated as magic. */
395 handler = Ffind_file_name_handler (found, Qt);
396 if (! NILP (handler))
397 found = concat2 (build_string ("/:"), found);
398 Vinvocation_directory = Ffile_name_directory (found);
402 if (!NILP (Vinvocation_directory)
403 && NILP (Ffile_name_absolute_p (Vinvocation_directory)))
404 /* Emacs was started with relative path, like ./emacs.
405 Make it absolute. */
406 Vinvocation_directory = Fexpand_file_name (Vinvocation_directory, Qnil);
408 Vinstallation_directory = Qnil;
410 if (!NILP (Vinvocation_directory))
412 dir = Vinvocation_directory;
413 #ifdef WINDOWSNT
414 /* If we are running from the build directory, set DIR to the
415 src subdirectory of the Emacs tree, like on Posix
416 platforms. */
417 if (SBYTES (dir) > sizeof ("/i386/") - 1
418 && 0 == strcmp (SSDATA (dir) + SBYTES (dir) - sizeof ("/i386/") + 1,
419 "/i386/"))
420 dir = Fexpand_file_name (build_string ("../.."), dir);
421 #else /* !WINDOWSNT */
422 #endif
423 name = Fexpand_file_name (Vinvocation_name, dir);
424 while (1)
426 Lisp_Object tem, lib_src_exists;
427 Lisp_Object etc_exists, info_exists;
429 /* See if dir contains subdirs for use by Emacs.
430 Check for the ones that would exist in a build directory,
431 not including lisp and info. */
432 tem = Fexpand_file_name (build_string ("lib-src"), dir);
433 lib_src_exists = Ffile_exists_p (tem);
435 #ifdef MSDOS
436 /* MSDOS installations frequently remove lib-src, but we still
437 must set installation-directory, or else info won't find
438 its files (it uses the value of installation-directory). */
439 tem = Fexpand_file_name (build_string ("info"), dir);
440 info_exists = Ffile_exists_p (tem);
441 #else
442 info_exists = Qnil;
443 #endif
445 if (!NILP (lib_src_exists) || !NILP (info_exists))
447 tem = Fexpand_file_name (build_string ("etc"), dir);
448 etc_exists = Ffile_exists_p (tem);
449 if (!NILP (etc_exists))
451 Vinstallation_directory
452 = Ffile_name_as_directory (dir);
453 break;
457 /* See if dir's parent contains those subdirs. */
458 tem = Fexpand_file_name (build_string ("../lib-src"), dir);
459 lib_src_exists = Ffile_exists_p (tem);
462 #ifdef MSDOS
463 /* See the MSDOS commentary above. */
464 tem = Fexpand_file_name (build_string ("../info"), dir);
465 info_exists = Ffile_exists_p (tem);
466 #else
467 info_exists = Qnil;
468 #endif
470 if (!NILP (lib_src_exists) || !NILP (info_exists))
472 tem = Fexpand_file_name (build_string ("../etc"), dir);
473 etc_exists = Ffile_exists_p (tem);
474 if (!NILP (etc_exists))
476 tem = Fexpand_file_name (build_string (".."), dir);
477 Vinstallation_directory
478 = Ffile_name_as_directory (tem);
479 break;
483 /* If the Emacs executable is actually a link,
484 next try the dir that the link points into. */
485 tem = Ffile_symlink_p (name);
486 if (!NILP (tem))
488 name = Fexpand_file_name (tem, dir);
489 dir = Ffile_name_directory (name);
491 else
492 break;
496 Vcommand_line_args = Qnil;
498 for (i = argc - 1; i >= 0; i--)
500 if (i == 0 || i > skip_args)
501 /* For the moment, we keep arguments as is in unibyte strings.
502 They are decoded in the function command-line after we know
503 locale-coding-system. */
504 Vcommand_line_args
505 = Fcons (make_unibyte_string (argv[i], strlen (argv[i])),
506 Vcommand_line_args);
509 unbind_to (count, Qnil);
512 DEFUN ("invocation-name", Finvocation_name, Sinvocation_name, 0, 0, 0,
513 doc: /* Return the program name that was used to run Emacs.
514 Any directory names are omitted. */)
515 (void)
517 return Fcopy_sequence (Vinvocation_name);
520 DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory,
521 0, 0, 0,
522 doc: /* Return the directory name in which the Emacs executable was located. */)
523 (void)
525 return Fcopy_sequence (Vinvocation_directory);
529 #ifdef HAVE_TZSET
530 /* A valid but unlikely value for the TZ environment value.
531 It is OK (though a bit slower) if the user actually chooses this value. */
532 static char dump_tz[] = "UtC0";
533 #endif
535 #ifndef ORDINARY_LINK
536 /* We don't include crtbegin.o and crtend.o in the link,
537 so these functions and variables might be missed.
538 Provide dummy definitions to avoid error.
539 (We don't have any real constructors or destructors.) */
540 #ifdef __GNUC__
542 /* Define a dummy function F. Declare F too, to pacify gcc
543 -Wmissing-prototypes. */
544 #define DEFINE_DUMMY_FUNCTION(f) \
545 void f (void) ATTRIBUTE_CONST EXTERNALLY_VISIBLE; void f (void) {}
547 #ifndef GCC_CTORS_IN_LIBC
548 DEFINE_DUMMY_FUNCTION (__do_global_ctors)
549 DEFINE_DUMMY_FUNCTION (__do_global_ctors_aux)
550 DEFINE_DUMMY_FUNCTION (__do_global_dtors)
551 /* GNU/Linux has a bug in its library; avoid an error. */
552 #ifndef GNU_LINUX
553 char * __CTOR_LIST__[2] EXTERNALLY_VISIBLE = { (char *) (-1), 0 };
554 #endif
555 char * __DTOR_LIST__[2] EXTERNALLY_VISIBLE = { (char *) (-1), 0 };
556 #endif /* GCC_CTORS_IN_LIBC */
557 DEFINE_DUMMY_FUNCTION (__main)
558 #endif /* __GNUC__ */
559 #endif /* ORDINARY_LINK */
561 /* Test whether the next argument in ARGV matches SSTR or a prefix of
562 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
563 (the argument is supposed to have a value) store in *VALPTR either
564 the next argument or the portion of this one after the equal sign.
565 ARGV is read starting at position *SKIPPTR; this index is advanced
566 by the number of arguments used.
568 Too bad we can't just use getopt for all of this, but we don't have
569 enough information to do it right. */
571 static int
572 argmatch (char **argv, int argc, const char *sstr, const char *lstr,
573 int minlen, char **valptr, int *skipptr)
575 char *p = NULL;
576 ptrdiff_t arglen;
577 char *arg;
579 /* Don't access argv[argc]; give up in advance. */
580 if (argc <= *skipptr + 1)
581 return 0;
583 arg = argv[*skipptr+1];
584 if (arg == NULL)
585 return 0;
586 if (strcmp (arg, sstr) == 0)
588 if (valptr != NULL)
590 *valptr = argv[*skipptr+2];
591 *skipptr += 2;
593 else
594 *skipptr += 1;
595 return 1;
597 arglen = (valptr != NULL && (p = strchr (arg, '=')) != NULL
598 ? p - arg : strlen (arg));
599 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
600 return 0;
601 else if (valptr == NULL)
603 *skipptr += 1;
604 return 1;
606 else if (p != NULL)
608 *valptr = p+1;
609 *skipptr += 1;
610 return 1;
612 else if (argv[*skipptr+2] != NULL)
614 *valptr = argv[*skipptr+2];
615 *skipptr += 2;
616 return 1;
618 else
620 return 0;
624 #ifdef DOUG_LEA_MALLOC
626 /* malloc can be invoked even before main (e.g. by the dynamic
627 linker), so the dumped malloc state must be restored as early as
628 possible using this special hook. */
630 static void
631 malloc_initialize_hook (void)
633 if (initialized)
635 if (!malloc_using_checking)
636 /* Work around a bug in glibc's malloc. MALLOC_CHECK_ must be
637 ignored if the heap to be restored was constructed without
638 malloc checking. Can't use unsetenv, since that calls malloc. */
640 char **p;
642 for (p = environ; p && *p; p++)
643 if (strncmp (*p, "MALLOC_CHECK_=", 14) == 0)
646 *p = p[1];
647 while (*++p);
648 break;
652 malloc_set_state (malloc_state_ptr);
653 #ifndef XMALLOC_OVERRUN_CHECK
654 free (malloc_state_ptr);
655 #endif
657 else
659 if (my_heap_start == 0)
660 my_heap_start = sbrk (0);
661 malloc_using_checking = getenv ("MALLOC_CHECK_") != NULL;
665 void (*__malloc_initialize_hook) (void) EXTERNALLY_VISIBLE = malloc_initialize_hook;
667 #endif /* DOUG_LEA_MALLOC */
670 /* ARGSUSED */
672 main (int argc, char **argv)
674 #if GC_MARK_STACK
675 Lisp_Object dummy;
676 #endif
677 char stack_bottom_variable;
678 int do_initial_setlocale;
679 int skip_args = 0;
680 #ifdef HAVE_SETRLIMIT
681 struct rlimit rlim;
682 #endif
683 int no_loadup = 0;
684 char *junk = 0;
685 char *dname_arg = 0;
686 #ifdef NS_IMPL_COCOA
687 char dname_arg2[80];
688 #endif
689 char *ch_to_dir;
691 #if GC_MARK_STACK
692 stack_base = &dummy;
693 #endif
695 #if defined (USE_GTK) && defined (G_SLICE_ALWAYS_MALLOC)
696 /* This is used by the Cygwin build. */
697 setenv ("G_SLICE", "always-malloc", 1);
698 #endif
700 #ifdef GNU_LINUX
701 if (!initialized)
703 extern char my_endbss[];
704 extern char *my_endbss_static;
706 if (my_heap_start == 0)
707 my_heap_start = sbrk (0);
709 heap_bss_diff = (char *)my_heap_start - max (my_endbss, my_endbss_static);
711 #endif
713 #ifdef RUN_TIME_REMAP
714 if (initialized)
715 run_time_remap (argv[0]);
716 #endif
718 /* If using unexmacosx.c (set by s/darwin.h), we must do this. */
719 #ifdef DARWIN_OS
720 if (!initialized)
721 unexec_init_emacs_zone ();
722 #endif
724 sort_args (argc, argv);
725 argc = 0;
726 while (argv[argc]) argc++;
728 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args))
730 const char *version, *copyright;
731 if (initialized)
733 Lisp_Object tem, tem2;
734 tem = Fsymbol_value (intern_c_string ("emacs-version"));
735 tem2 = Fsymbol_value (intern_c_string ("emacs-copyright"));
736 if (!STRINGP (tem))
738 fprintf (stderr, "Invalid value of `emacs-version'\n");
739 exit (1);
741 if (!STRINGP (tem2))
743 fprintf (stderr, "Invalid value of `emacs-copyright'\n");
744 exit (1);
746 else
748 version = SSDATA (tem);
749 copyright = SSDATA (tem2);
752 else
754 version = emacs_version;
755 copyright = emacs_copyright;
757 printf ("GNU Emacs %s\n", version);
758 printf ("%s\n", copyright);
759 printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n");
760 printf ("You may redistribute copies of Emacs\n");
761 printf ("under the terms of the GNU General Public License.\n");
762 printf ("For more information about these matters, ");
763 printf ("see the file named COPYING.\n");
764 exit (0);
767 if (argmatch (argv, argc, "-chdir", "--chdir", 4, &ch_to_dir, &skip_args))
768 if (chdir (ch_to_dir) == -1)
770 fprintf (stderr, "%s: Can't chdir to %s: %s\n",
771 argv[0], ch_to_dir, strerror (errno));
772 exit (1);
776 #ifdef HAVE_PERSONALITY_LINUX32
777 if (!initialized
778 && (strcmp (argv[argc-1], "dump") == 0
779 || strcmp (argv[argc-1], "bootstrap") == 0)
780 && ! getenv ("EMACS_HEAP_EXEC"))
782 static char heapexec[] = "EMACS_HEAP_EXEC=true";
783 /* Set this so we only do this once. */
784 putenv (heapexec);
786 /* A flag to turn off address randomization which is introduced
787 in linux kernel shipped with fedora core 4 */
788 #define ADD_NO_RANDOMIZE 0x0040000
789 personality (PER_LINUX32 | ADD_NO_RANDOMIZE);
790 #undef ADD_NO_RANDOMIZE
792 execvp (argv[0], argv);
794 /* If the exec fails, try to dump anyway. */
795 perror ("execvp");
797 #endif /* HAVE_PERSONALITY_LINUX32 */
799 #if defined (HAVE_SETRLIMIT) && defined (RLIMIT_STACK)
800 /* Extend the stack space available.
801 Don't do that if dumping, since some systems (e.g. DJGPP)
802 might define a smaller stack limit at that time. */
803 if (1
804 #ifndef CANNOT_DUMP
805 && (!noninteractive || initialized)
806 #endif
807 && !getrlimit (RLIMIT_STACK, &rlim))
809 long newlim;
810 extern size_t re_max_failures;
811 /* Approximate the amount regex.c needs per unit of re_max_failures. */
812 int ratio = 20 * sizeof (char *);
813 /* Then add 33% to cover the size of the smaller stacks that regex.c
814 successively allocates and discards, on its way to the maximum. */
815 ratio += ratio / 3;
816 /* Add in some extra to cover
817 what we're likely to use for other reasons. */
818 newlim = re_max_failures * ratio + 200000;
819 #ifdef __NetBSD__
820 /* NetBSD (at least NetBSD 1.2G and former) has a bug in its
821 stack allocation routine for new process that the allocation
822 fails if stack limit is not on page boundary. So, round up the
823 new limit to page boundary. */
824 newlim = (newlim + getpagesize () - 1) / getpagesize () * getpagesize ();
825 #endif
826 if (newlim > rlim.rlim_max)
828 newlim = rlim.rlim_max;
829 /* Don't let regex.c overflow the stack we have. */
830 re_max_failures = (newlim - 200000) / ratio;
832 if (rlim.rlim_cur < newlim)
833 rlim.rlim_cur = newlim;
835 setrlimit (RLIMIT_STACK, &rlim);
837 #endif /* HAVE_SETRLIMIT and RLIMIT_STACK */
839 /* Record (approximately) where the stack begins. */
840 stack_bottom = &stack_bottom_variable;
842 clearerr (stdin);
844 #ifndef SYSTEM_MALLOC
845 /* Arrange to get warning messages as memory fills up. */
846 memory_warnings (0, malloc_warning);
848 /* Call malloc at least once, to run the initial __malloc_hook.
849 Also call realloc and free for consistency. */
850 free (realloc (malloc (4), 4));
852 # ifndef SYNC_INPUT
853 /* Arrange to disable interrupt input inside malloc etc. */
854 uninterrupt_malloc ();
855 # endif /* not SYNC_INPUT */
856 #endif /* not SYSTEM_MALLOC */
858 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
859 main_thread = pthread_self ();
860 #endif /* FORWARD_SIGNAL_TO_MAIN_THREAD */
862 #if defined (MSDOS) || defined (WINDOWSNT)
863 /* We do all file input/output as binary files. When we need to translate
864 newlines, we do that manually. */
865 _fmode = O_BINARY;
866 #endif /* MSDOS || WINDOWSNT */
868 #ifdef MSDOS
869 if (!isatty (fileno (stdin)))
870 setmode (fileno (stdin), O_BINARY);
871 if (!isatty (fileno (stdout)))
873 fflush (stdout);
874 setmode (fileno (stdout), O_BINARY);
876 #endif /* MSDOS */
878 /* Skip initial setlocale if LC_ALL is "C", as it's not needed in that case.
879 The build procedure uses this while dumping, to ensure that the
880 dumped Emacs does not have its system locale tables initialized,
881 as that might cause screwups when the dumped Emacs starts up. */
883 char *lc_all = getenv ("LC_ALL");
884 do_initial_setlocale = ! lc_all || strcmp (lc_all, "C");
887 /* Set locale now, so that initial error messages are localized properly.
888 fixup_locale must wait until later, since it builds strings. */
889 if (do_initial_setlocale)
890 setlocale (LC_ALL, "");
892 inhibit_window_system = 0;
894 /* Handle the -t switch, which specifies filename to use as terminal. */
895 while (1)
897 char *term;
898 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
900 int result;
901 emacs_close (0);
902 emacs_close (1);
903 result = emacs_open (term, O_RDWR, 0);
904 if (result < 0 || dup (0) < 0)
906 char *errstring = strerror (errno);
907 fprintf (stderr, "%s: %s: %s\n", argv[0], term, errstring);
908 exit (1);
910 if (! isatty (0))
912 fprintf (stderr, "%s: %s: not a tty\n", argv[0], term);
913 exit (1);
915 fprintf (stderr, "Using %s\n", term);
916 #ifdef HAVE_WINDOW_SYSTEM
917 inhibit_window_system = 1; /* -t => -nw */
918 #endif
920 else
921 break;
924 /* Command line option --no-windows is deprecated and thus not mentioned
925 in the manual and usage information. */
926 if (argmatch (argv, argc, "-nw", "--no-window-system", 6, NULL, &skip_args)
927 || argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
928 inhibit_window_system = 1;
930 /* Handle the -batch switch, which means don't do interactive display. */
931 noninteractive = 0;
932 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
934 noninteractive = 1;
935 Vundo_outer_limit = Qnil;
937 if (argmatch (argv, argc, "-script", "--script", 3, &junk, &skip_args))
939 noninteractive = 1; /* Set batch mode. */
940 /* Convert --script to -scriptload, un-skip it, and sort again
941 so that it will be handled in proper sequence. */
942 /* FIXME broken for --script=FILE - is that supposed to work? */
943 argv[skip_args - 1] = (char *) "-scriptload";
944 skip_args -= 2;
945 sort_args (argc, argv);
948 /* Handle the --help option, which gives a usage message. */
949 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
951 printf (USAGE1, argv[0], USAGE2);
952 printf (USAGE3);
953 printf (USAGE4);
954 exit (0);
957 if (argmatch (argv, argc, "-daemon", "--daemon", 5, NULL, &skip_args)
958 || argmatch (argv, argc, "-daemon", "--daemon", 5, &dname_arg, &skip_args))
960 #ifndef DOS_NT
961 pid_t f;
963 /* Start as a daemon: fork a new child process which will run the
964 rest of the initialization code, then exit.
966 Detaching a daemon requires the following steps:
967 - fork
968 - setsid
969 - exit the parent
970 - close the tty file-descriptors
972 We only want to do the last 2 steps once the daemon is ready to
973 serve requests, i.e. after loading .emacs (initialization).
974 OTOH initialization may start subprocesses (e.g. ispell) and these
975 should be run from the proper process (the one that will end up
976 running as daemon) and with the proper "session id" in order for
977 them to keep working after detaching, so fork and setsid need to be
978 performed before initialization.
980 We want to avoid exiting before the server socket is ready, so
981 use a pipe for synchronization. The parent waits for the child
982 to close its end of the pipe (using `daemon-initialized')
983 before exiting. */
984 if (pipe (daemon_pipe) == -1)
986 fprintf (stderr, "Cannot pipe!\n");
987 exit (1);
990 #ifndef NS_IMPL_COCOA
991 #ifdef USE_GTK
992 fprintf (stderr, "\nWarning: due to a long standing Gtk+ bug\nhttp://bugzilla.gnome.org/show_bug.cgi?id=85715\n\
993 Emacs might crash when run in daemon mode and the X11 connection is unexpectedly lost.\n\
994 Using an Emacs configured with --with-x-toolkit=lucid does not have this problem.\n");
995 #endif
996 f = fork ();
997 #else /* NS_IMPL_COCOA */
998 /* Under Cocoa we must do fork+exec as CoreFoundation lib fails in
999 forked process: http://developer.apple.com/ReleaseNotes/
1000 CoreFoundation/CoreFoundation.html)
1001 We mark being in the exec'd process by a daemon name argument of
1002 form "--daemon=\nFD0,FD1\nNAME" where FD are the pipe file descriptors,
1003 NAME is the original daemon name, if any. */
1004 if (!dname_arg || !strchr (dname_arg, '\n'))
1005 f = fork (); /* in orig */
1006 else
1007 f = 0; /* in exec'd */
1008 #endif /* NS_IMPL_COCOA */
1009 if (f > 0)
1011 int retval;
1012 char buf[1];
1014 /* Close unused writing end of the pipe. */
1015 close (daemon_pipe[1]);
1017 /* Just wait for the child to close its end of the pipe. */
1020 retval = read (daemon_pipe[0], &buf, 1);
1022 while (retval == -1 && errno == EINTR);
1024 if (retval < 0)
1026 fprintf (stderr, "Error reading status from child\n");
1027 exit (1);
1029 else if (retval == 0)
1031 fprintf (stderr, "Error: server did not start correctly\n");
1032 exit (1);
1035 close (daemon_pipe[0]);
1036 exit (0);
1038 if (f < 0)
1040 fprintf (stderr, "Cannot fork!\n");
1041 exit (1);
1044 #ifdef NS_IMPL_COCOA
1046 /* In orig process, forked as child, OR in exec'd. */
1047 if (!dname_arg || !strchr (dname_arg, '\n'))
1048 { /* In orig, child: now exec w/special daemon name. */
1049 char fdStr[80];
1050 int fdStrlen =
1051 snprintf (fdStr, sizeof fdStr,
1052 "--daemon=\n%d,%d\n%s", daemon_pipe[0],
1053 daemon_pipe[1], dname_arg ? dname_arg : "");
1055 if (! (0 <= fdStrlen && fdStrlen < sizeof fdStr))
1057 fprintf (stderr, "daemon: child name too long\n");
1058 exit (1);
1061 argv[skip_args] = fdStr;
1063 execv (argv[0], argv);
1064 fprintf (stderr, "emacs daemon: exec failed: %d\n", errno);
1065 exit (1);
1068 /* In exec'd: parse special dname into pipe and name info. */
1069 if (!dname_arg || !strchr (dname_arg, '\n')
1070 || strlen (dname_arg) < 1 || strlen (dname_arg) > 70)
1072 fprintf (stderr, "emacs daemon: daemon name absent or too long\n");
1073 exit (1);
1075 dname_arg2[0] = '\0';
1076 sscanf (dname_arg, "\n%d,%d\n%s", &(daemon_pipe[0]), &(daemon_pipe[1]),
1077 dname_arg2);
1078 dname_arg = *dname_arg2 ? dname_arg2 : NULL;
1080 #endif /* NS_IMPL_COCOA */
1082 if (dname_arg)
1083 daemon_name = xstrdup (dname_arg);
1084 /* Close unused reading end of the pipe. */
1085 close (daemon_pipe[0]);
1086 /* Make sure that the used end of the pipe is closed on exec, so
1087 that it is not accessible to programs started from .emacs. */
1088 fcntl (daemon_pipe[1], F_SETFD, FD_CLOEXEC);
1090 #ifdef HAVE_SETSID
1091 setsid ();
1092 #endif
1093 #else /* DOS_NT */
1094 fprintf (stderr, "This platform does not support the -daemon flag.\n");
1095 exit (1);
1096 #endif /* DOS_NT */
1099 if (! noninteractive)
1101 #if defined (USG5) && defined (INTERRUPT_INPUT)
1102 setpgrp ();
1103 #endif
1104 #if defined (HAVE_PTHREAD) && !defined (SYSTEM_MALLOC) && !defined (DOUG_LEA_MALLOC)
1106 extern void malloc_enable_thread (void);
1108 malloc_enable_thread ();
1110 #endif
1113 init_signals ();
1115 /* Don't catch SIGHUP if dumping. */
1116 if (1
1117 #ifndef CANNOT_DUMP
1118 && initialized
1119 #endif
1122 sigblock (sigmask (SIGHUP));
1123 /* In --batch mode, don't catch SIGHUP if already ignored.
1124 That makes nohup work. */
1125 if (! noninteractive
1126 || signal (SIGHUP, SIG_IGN) != SIG_IGN)
1127 signal (SIGHUP, fatal_error_signal);
1128 sigunblock (sigmask (SIGHUP));
1131 if (
1132 #ifndef CANNOT_DUMP
1133 ! noninteractive || initialized
1134 #else
1136 #endif
1139 /* Don't catch these signals in batch mode if dumping.
1140 On some machines, this sets static data that would make
1141 signal fail to work right when the dumped Emacs is run. */
1142 signal (SIGQUIT, fatal_error_signal);
1143 signal (SIGILL, fatal_error_signal);
1144 signal (SIGTRAP, fatal_error_signal);
1145 #ifdef SIGUSR1
1146 add_user_signal (SIGUSR1, "sigusr1");
1147 #endif
1148 #ifdef SIGUSR2
1149 add_user_signal (SIGUSR2, "sigusr2");
1150 #endif
1151 #ifdef SIGABRT
1152 signal (SIGABRT, fatal_error_signal);
1153 #endif
1154 #ifdef SIGHWE
1155 signal (SIGHWE, fatal_error_signal);
1156 #endif
1157 #ifdef SIGPRE
1158 signal (SIGPRE, fatal_error_signal);
1159 #endif
1160 #ifdef SIGORE
1161 signal (SIGORE, fatal_error_signal);
1162 #endif
1163 #ifdef SIGUME
1164 signal (SIGUME, fatal_error_signal);
1165 #endif
1166 #ifdef SIGDLK
1167 signal (SIGDLK, fatal_error_signal);
1168 #endif
1169 #ifdef SIGCPULIM
1170 signal (SIGCPULIM, fatal_error_signal);
1171 #endif
1172 #ifdef SIGIOT
1173 /* This is missing on some systems - OS/2, for example. */
1174 signal (SIGIOT, fatal_error_signal);
1175 #endif
1176 #ifdef SIGEMT
1177 signal (SIGEMT, fatal_error_signal);
1178 #endif
1179 signal (SIGFPE, fatal_error_signal);
1180 #ifdef SIGBUS
1181 signal (SIGBUS, fatal_error_signal);
1182 #endif
1183 signal (SIGSEGV, fatal_error_signal);
1184 #ifdef SIGSYS
1185 signal (SIGSYS, fatal_error_signal);
1186 #endif
1187 /* May need special treatment on MS-Windows. See
1188 http://lists.gnu.org/archive/html/emacs-devel/2010-09/msg01062.html
1189 Please update the doc of kill-emacs, kill-emacs-hook, and
1190 NEWS if you change this.
1192 if (noninteractive) signal (SIGINT, fatal_error_signal);
1193 signal (SIGTERM, fatal_error_signal);
1194 #ifdef SIGXCPU
1195 signal (SIGXCPU, fatal_error_signal);
1196 #endif
1197 #ifdef SIGXFSZ
1198 signal (SIGXFSZ, fatal_error_signal);
1199 #endif /* SIGXFSZ */
1201 #ifdef SIGDANGER
1202 /* This just means available memory is getting low. */
1203 signal (SIGDANGER, memory_warning_signal);
1204 #endif
1206 #ifdef AIX
1207 /* 20 is SIGCHLD, 21 is SIGTTIN, 22 is SIGTTOU. */
1208 signal (SIGXCPU, fatal_error_signal);
1209 signal (SIGIOINT, fatal_error_signal);
1210 signal (SIGGRANT, fatal_error_signal);
1211 signal (SIGRETRACT, fatal_error_signal);
1212 signal (SIGSOUND, fatal_error_signal);
1213 signal (SIGMSG, fatal_error_signal);
1214 #endif /* AIX */
1217 noninteractive1 = noninteractive;
1219 /* Perform basic initializations (not merely interning symbols). */
1221 if (!initialized)
1223 init_alloc_once ();
1224 init_obarray ();
1225 init_eval_once ();
1226 init_charset_once ();
1227 init_coding_once ();
1228 init_syntax_once (); /* Create standard syntax table. */
1229 init_category_once (); /* Create standard category table. */
1230 /* Must be done before init_buffer. */
1231 init_casetab_once ();
1232 init_buffer_once (); /* Create buffer table and some buffers. */
1233 init_minibuf_once (); /* Create list of minibuffers. */
1234 /* Must precede init_window_once. */
1236 /* Call syms_of_xfaces before init_window_once because that
1237 function creates Vterminal_frame. Termcap frames now use
1238 faces, and the face implementation uses some symbols as
1239 face names. */
1240 syms_of_xfaces ();
1241 /* XXX syms_of_keyboard uses some symbols in keymap.c. It would
1242 be better to arrange things not to have this dependency. */
1243 syms_of_keymap ();
1244 /* Call syms_of_keyboard before init_window_once because
1245 keyboard sets up symbols that include some face names that
1246 the X support will want to use. This can happen when
1247 CANNOT_DUMP is defined. */
1248 syms_of_keyboard ();
1250 /* Called before syms_of_fileio, because it sets up Qerror_condition. */
1251 syms_of_data ();
1252 syms_of_fileio ();
1253 /* Before syms_of_coding to initialize Vgc_cons_threshold. */
1254 syms_of_alloc ();
1255 /* Before syms_of_coding because it initializes Qcharsetp. */
1256 syms_of_charset ();
1257 /* Before init_window_once, because it sets up the
1258 Vcoding_system_hash_table. */
1259 syms_of_coding (); /* This should be after syms_of_fileio. */
1261 init_window_once (); /* Init the window system. */
1262 #ifdef HAVE_WINDOW_SYSTEM
1263 init_fringe_once (); /* Swap bitmaps if necessary. */
1264 #endif /* HAVE_WINDOW_SYSTEM */
1267 init_alloc ();
1269 if (do_initial_setlocale)
1271 fixup_locale ();
1272 Vsystem_messages_locale = Vprevious_system_messages_locale;
1273 Vsystem_time_locale = Vprevious_system_time_locale;
1276 init_eval ();
1277 init_data ();
1278 init_atimer ();
1279 running_asynch_code = 0;
1280 init_random ();
1282 no_loadup
1283 = argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args);
1285 no_site_lisp
1286 = argmatch (argv, argc, "-nsl", "--no-site-lisp", 11, NULL, &skip_args);
1288 #ifdef HAVE_NS
1289 ns_pool = ns_alloc_autorelease_pool ();
1290 if (!noninteractive)
1292 #ifdef NS_IMPL_COCOA
1293 if (skip_args < argc)
1295 /* FIXME: Do the right thing if getenv returns NULL, or if
1296 chdir fails. */
1297 if (!strncmp (argv[skip_args], "-psn", 4))
1299 skip_args += 1;
1300 chdir (getenv ("HOME"));
1302 else if (skip_args+1 < argc && !strncmp (argv[skip_args+1], "-psn", 4))
1304 skip_args += 2;
1305 chdir (getenv ("HOME"));
1308 #endif /* COCOA */
1310 #endif /* HAVE_NS */
1312 #ifdef HAVE_X_WINDOWS
1313 /* Stupid kludge to catch command-line display spec. We can't
1314 handle this argument entirely in window system dependent code
1315 because we don't even know which window system dependent code
1316 to run until we've recognized this argument. */
1318 char *displayname = 0;
1319 int count_before = skip_args;
1321 /* Skip any number of -d options, but only use the last one. */
1322 while (1)
1324 int count_before_this = skip_args;
1326 if (argmatch (argv, argc, "-d", "--display", 3, &displayname, &skip_args))
1327 display_arg = 1;
1328 else if (argmatch (argv, argc, "-display", 0, 3, &displayname, &skip_args))
1329 display_arg = 1;
1330 else
1331 break;
1333 count_before = count_before_this;
1336 /* If we have the form --display=NAME,
1337 convert it into -d name.
1338 This requires inserting a new element into argv. */
1339 if (displayname && count_before < skip_args)
1341 if (skip_args == count_before + 1)
1343 memmove (argv + count_before + 3, argv + count_before + 2,
1344 (argc - (count_before + 2)) * sizeof *argv);
1345 argv[count_before + 2] = displayname;
1346 argc++;
1348 argv[count_before + 1] = (char *) "-d";
1351 if (! no_site_lisp)
1353 if (argmatch (argv, argc, "-Q", "--quick", 3, NULL, &skip_args)
1354 || argmatch (argv, argc, "-quick", 0, 2, NULL, &skip_args))
1355 no_site_lisp = 1;
1358 /* Don't actually discard this arg. */
1359 skip_args = count_before;
1361 #else /* !HAVE_X_WINDOWS */
1362 if (! no_site_lisp)
1364 int count_before = skip_args;
1366 if (argmatch (argv, argc, "-Q", "--quick", 3, NULL, &skip_args)
1367 || argmatch (argv, argc, "-quick", 0, 2, NULL, &skip_args))
1368 no_site_lisp = 1;
1370 skip_args = count_before;
1372 #endif
1374 /* argmatch must not be used after here,
1375 except when building temacs
1376 because the -d argument has not been skipped in skip_args. */
1378 #ifdef MSDOS
1379 /* Call early 'cause init_environment needs it. */
1380 init_dosfns ();
1381 /* Set defaults for several environment variables. */
1382 if (initialized)
1383 init_environment (argc, argv, skip_args);
1384 else
1385 tzset ();
1386 #endif /* MSDOS */
1388 #ifdef WINDOWSNT
1389 globals_of_w32 ();
1390 /* Initialize environment from registry settings. */
1391 init_environment (argv);
1392 init_ntproc (); /* must precede init_editfns. */
1393 #endif
1395 /* Initialize and GC-protect Vinitial_environment and
1396 Vprocess_environment before set_initial_environment fills them
1397 in. */
1398 if (!initialized)
1399 syms_of_callproc ();
1400 /* egetenv is a pretty low-level facility, which may get called in
1401 many circumstances; it seems flimsy to put off initializing it
1402 until calling init_callproc. Do not do it when dumping. */
1403 if (initialized || ((strcmp (argv[argc-1], "dump") != 0
1404 && strcmp (argv[argc-1], "bootstrap") != 0)))
1405 set_initial_environment ();
1407 /* AIX crashes are reported in system versions 3.2.3 and 3.2.4
1408 if this is not done. Do it after set_global_environment so that we
1409 don't pollute Vglobal_environment. */
1410 /* Setting LANG here will defeat the startup locale processing... */
1411 #ifdef AIX
1412 putenv ("LANG=C");
1413 #endif
1415 init_buffer (); /* Init default directory of main buffer. */
1417 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */
1418 init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */
1420 if (initialized)
1422 /* Erase any pre-dump messages in the message log, to avoid confusion. */
1423 Lisp_Object old_log_max;
1424 old_log_max = Vmessage_log_max;
1425 XSETFASTINT (Vmessage_log_max, 0);
1426 message_dolog ("", 0, 1, 0);
1427 Vmessage_log_max = old_log_max;
1430 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */
1431 init_lread ();
1432 #ifdef WINDOWSNT
1433 /* Check to see if Emacs has been installed correctly. */
1434 check_windows_init_file ();
1435 #endif
1437 /* Intern the names of all standard functions and variables;
1438 define standard keys. */
1440 if (!initialized)
1442 /* The basic levels of Lisp must come first. Note that
1443 syms_of_data and some others have already been called. */
1444 syms_of_chartab ();
1445 syms_of_lread ();
1446 syms_of_print ();
1447 syms_of_eval ();
1448 syms_of_fns ();
1449 syms_of_floatfns ();
1451 syms_of_buffer ();
1452 syms_of_bytecode ();
1453 syms_of_callint ();
1454 syms_of_casefiddle ();
1455 syms_of_casetab ();
1456 syms_of_category ();
1457 syms_of_ccl ();
1458 syms_of_character ();
1459 syms_of_cmds ();
1460 syms_of_dired ();
1461 syms_of_display ();
1462 syms_of_doc ();
1463 syms_of_editfns ();
1464 syms_of_emacs ();
1465 syms_of_filelock ();
1466 syms_of_indent ();
1467 syms_of_insdel ();
1468 /* syms_of_keymap (); */
1469 syms_of_macros ();
1470 syms_of_marker ();
1471 syms_of_minibuf ();
1472 syms_of_process ();
1473 syms_of_search ();
1474 syms_of_frame ();
1475 syms_of_syntax ();
1476 syms_of_terminal ();
1477 syms_of_term ();
1478 syms_of_undo ();
1479 #ifdef HAVE_SOUND
1480 syms_of_sound ();
1481 #endif
1482 syms_of_textprop ();
1483 syms_of_composite ();
1484 #ifdef WINDOWSNT
1485 syms_of_ntproc ();
1486 #endif /* WINDOWSNT */
1487 syms_of_window ();
1488 syms_of_xdisp ();
1489 syms_of_font ();
1490 #ifdef HAVE_WINDOW_SYSTEM
1491 syms_of_fringe ();
1492 syms_of_image ();
1493 #endif /* HAVE_WINDOW_SYSTEM */
1494 #ifdef HAVE_X_WINDOWS
1495 syms_of_xterm ();
1496 syms_of_xfns ();
1497 syms_of_xmenu ();
1498 syms_of_fontset ();
1499 syms_of_xsettings ();
1500 #ifdef HAVE_X_SM
1501 syms_of_xsmfns ();
1502 #endif
1503 #ifdef HAVE_X11
1504 syms_of_xselect ();
1505 #endif
1506 #endif /* HAVE_X_WINDOWS */
1508 #ifdef HAVE_LIBXML2
1509 syms_of_xml ();
1510 #endif
1512 syms_of_menu ();
1514 #ifdef HAVE_NTGUI
1515 syms_of_w32term ();
1516 syms_of_w32fns ();
1517 syms_of_w32select ();
1518 syms_of_w32menu ();
1519 syms_of_fontset ();
1520 #endif /* HAVE_NTGUI */
1522 #ifdef MSDOS
1523 syms_of_xmenu ();
1524 syms_of_dosfns ();
1525 syms_of_msdos ();
1526 syms_of_win16select ();
1527 #endif /* MSDOS */
1529 #ifdef HAVE_NS
1530 syms_of_nsterm ();
1531 syms_of_nsfns ();
1532 syms_of_nsmenu ();
1533 syms_of_nsselect ();
1534 syms_of_fontset ();
1535 #endif /* HAVE_NS */
1537 #ifdef HAVE_GNUTLS
1538 syms_of_gnutls ();
1539 #endif
1541 #ifdef HAVE_DBUS
1542 syms_of_dbusbind ();
1543 #endif /* HAVE_DBUS */
1545 #ifdef WINDOWSNT
1546 syms_of_ntterm ();
1547 #endif /* WINDOWSNT */
1549 keys_of_casefiddle ();
1550 keys_of_cmds ();
1551 keys_of_buffer ();
1552 keys_of_keyboard ();
1553 keys_of_keymap ();
1554 keys_of_window ();
1556 else
1558 /* Initialization that must be done even if the global variable
1559 initialized is non zero. */
1560 #ifdef HAVE_NTGUI
1561 globals_of_w32font ();
1562 globals_of_w32fns ();
1563 globals_of_w32menu ();
1564 globals_of_w32select ();
1565 #endif /* HAVE_NTGUI */
1568 init_charset ();
1570 init_editfns (); /* init_process_emacs uses Voperating_system_release. */
1571 init_process_emacs (); /* init_display uses add_keyboard_wait_descriptor. */
1572 init_keyboard (); /* This too must precede init_sys_modes. */
1573 if (!noninteractive)
1574 init_display (); /* Determine terminal type. Calls init_sys_modes. */
1575 init_xdisp ();
1576 #ifdef HAVE_WINDOW_SYSTEM
1577 init_fringe ();
1578 #endif /* HAVE_WINDOW_SYSTEM */
1579 init_macros ();
1580 init_floatfns ();
1581 init_window ();
1582 init_font ();
1584 if (!initialized)
1586 char *file;
1587 /* Handle -l loadup, args passed by Makefile. */
1588 if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args))
1589 Vtop_level = Fcons (intern_c_string ("load"),
1590 Fcons (build_string (file), Qnil));
1591 /* Unless next switch is -nl, load "loadup.el" first thing. */
1592 if (! no_loadup)
1593 Vtop_level = Fcons (intern_c_string ("load"),
1594 Fcons (build_string ("loadup.el"), Qnil));
1597 if (initialized)
1599 #ifdef HAVE_TZSET
1601 /* If the execution TZ happens to be the same as the dump TZ,
1602 change it to some other value and then change it back,
1603 to force the underlying implementation to reload the TZ info.
1604 This is needed on implementations that load TZ info from files,
1605 since the TZ file contents may differ between dump and execution. */
1606 char *tz = getenv ("TZ");
1607 if (tz && !strcmp (tz, dump_tz))
1609 ++*tz;
1610 tzset ();
1611 --*tz;
1614 #endif
1617 /* Set up for profiling. This is known to work on FreeBSD,
1618 GNU/Linux and MinGW. It might work on some other systems too.
1619 Give it a try and tell us if it works on your system. To compile
1620 for profiling, use the configure option --enable-profiling. */
1621 #if defined (__FreeBSD__) || defined (GNU_LINUX) || defined (__MINGW32__)
1622 #ifdef PROFILING
1623 if (initialized)
1625 #ifdef __MINGW32__
1626 extern unsigned char etext asm ("etext");
1627 #else
1628 extern char etext;
1629 #endif
1631 atexit (_mcleanup);
1632 monstartup ((uintptr_t) __executable_start, (uintptr_t) &etext);
1634 else
1635 moncontrol (0);
1636 #endif
1637 #endif
1639 initialized = 1;
1641 #ifdef LOCALTIME_CACHE
1642 /* Some versions of localtime have a bug. They cache the value of the time
1643 zone rather than looking it up every time. Since localtime() is
1644 called to bolt the undumping time into the undumped emacs, this
1645 results in localtime ignoring the TZ environment variable.
1646 This flushes the new TZ value into localtime. */
1647 tzset ();
1648 #endif /* defined (LOCALTIME_CACHE) */
1650 /* Enter editor command loop. This never returns. */
1651 Frecursive_edit ();
1652 /* NOTREACHED */
1653 return 0;
1656 /* Sort the args so we can find the most important ones
1657 at the beginning of argv. */
1659 /* First, here's a table of all the standard options. */
1661 struct standard_args
1663 const char *name;
1664 const char *longname;
1665 int priority;
1666 int nargs;
1669 static const struct standard_args standard_args[] =
1671 { "-version", "--version", 150, 0 },
1672 { "-chdir", "--chdir", 130, 1 },
1673 { "-t", "--terminal", 120, 1 },
1674 { "-nw", "--no-window-system", 110, 0 },
1675 { "-nw", "--no-windows", 110, 0 },
1676 { "-batch", "--batch", 100, 0 },
1677 { "-script", "--script", 100, 1 },
1678 { "-daemon", "--daemon", 99, 0 },
1679 { "-help", "--help", 90, 0 },
1680 { "-nl", "--no-loadup", 70, 0 },
1681 { "-nsl", "--no-site-lisp", 65, 0 },
1682 /* -d must come last before the options handled in startup.el. */
1683 { "-d", "--display", 60, 1 },
1684 { "-display", 0, 60, 1 },
1685 /* Now for the options handled in `command-line' (startup.el). */
1686 /* (Note that to imply -nsl, -Q is partially handled here.) */
1687 { "-Q", "--quick", 55, 0 },
1688 { "-quick", 0, 55, 0 },
1689 { "-q", "--no-init-file", 50, 0 },
1690 { "-no-init-file", 0, 50, 0 },
1691 { "-no-site-file", "--no-site-file", 40, 0 },
1692 { "-u", "--user", 30, 1 },
1693 { "-user", 0, 30, 1 },
1694 { "-debug-init", "--debug-init", 20, 0 },
1695 { "-iconic", "--iconic", 15, 0 },
1696 { "-D", "--basic-display", 12, 0},
1697 { "-basic-display", 0, 12, 0},
1698 { "-nbc", "--no-blinking-cursor", 12, 0 },
1699 /* Now for the options handled in `command-line-1' (startup.el). */
1700 { "-nbi", "--no-bitmap-icon", 10, 0 },
1701 { "-bg", "--background-color", 10, 1 },
1702 { "-background", 0, 10, 1 },
1703 { "-fg", "--foreground-color", 10, 1 },
1704 { "-foreground", 0, 10, 1 },
1705 { "-bd", "--border-color", 10, 1 },
1706 { "-bw", "--border-width", 10, 1 },
1707 { "-ib", "--internal-border", 10, 1 },
1708 { "-ms", "--mouse-color", 10, 1 },
1709 { "-cr", "--cursor-color", 10, 1 },
1710 { "-fn", "--font", 10, 1 },
1711 { "-font", 0, 10, 1 },
1712 { "-fs", "--fullscreen", 10, 0 },
1713 { "-fw", "--fullwidth", 10, 0 },
1714 { "-fh", "--fullheight", 10, 0 },
1715 { "-mm", "--maximized", 10, 0 },
1716 { "-g", "--geometry", 10, 1 },
1717 { "-geometry", 0, 10, 1 },
1718 { "-T", "--title", 10, 1 },
1719 { "-title", 0, 10, 1 },
1720 { "-name", "--name", 10, 1 },
1721 { "-xrm", "--xrm", 10, 1 },
1722 { "-parent-id", "--parent-id", 10, 1 },
1723 { "-r", "--reverse-video", 5, 0 },
1724 { "-rv", 0, 5, 0 },
1725 { "-reverse", 0, 5, 0 },
1726 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1727 { "-vb", "--vertical-scroll-bars", 5, 0 },
1728 { "-color", "--color", 5, 0},
1729 { "-no-splash", "--no-splash", 3, 0 },
1730 { "-no-desktop", "--no-desktop", 3, 0 },
1731 #ifdef HAVE_NS
1732 { "-NSAutoLaunch", 0, 5, 1 },
1733 { "-NXAutoLaunch", 0, 5, 1 },
1734 { "-disable-font-backend", "--disable-font-backend", 65, 0 },
1735 { "-_NSMachLaunch", 0, 85, 1 },
1736 { "-MachLaunch", 0, 85, 1 },
1737 { "-macosx", 0, 85, 0 },
1738 { "-NSHost", 0, 85, 1 },
1739 #endif
1740 /* These have the same priority as ordinary file name args,
1741 so they are not reordered with respect to those. */
1742 { "-L", "--directory", 0, 1 },
1743 { "-directory", 0, 0, 1 },
1744 { "-l", "--load", 0, 1 },
1745 { "-load", 0, 0, 1 },
1746 /* This has no longname, because using --scriptload confuses sort_args,
1747 because then the --script long option seems to match twice; ie
1748 you can't have a long option which is a prefix of another long
1749 option. In any case, this is entirely an internal option. */
1750 { "-scriptload", NULL, 0, 1 },
1751 { "-f", "--funcall", 0, 1 },
1752 { "-funcall", 0, 0, 1 },
1753 { "-eval", "--eval", 0, 1 },
1754 { "-execute", "--execute", 0, 1 },
1755 { "-find-file", "--find-file", 0, 1 },
1756 { "-visit", "--visit", 0, 1 },
1757 { "-file", "--file", 0, 1 },
1758 { "-insert", "--insert", 0, 1 },
1759 #ifdef HAVE_NS
1760 { "-NXOpen", 0, 0, 1 },
1761 { "-NXOpenTemp", 0, 0, 1 },
1762 { "-NSOpen", 0, 0, 1 },
1763 { "-NSOpenTemp", 0, 0, 1 },
1764 { "-GSFilePath", 0, 0, 1 },
1765 #endif
1766 /* This should be processed after ordinary file name args and the like. */
1767 { "-kill", "--kill", -10, 0 },
1770 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1771 so that the highest priority ones come first.
1772 Do not change the order of elements of equal priority.
1773 If an option takes an argument, keep it and its argument together.
1775 If an option that takes no argument appears more
1776 than once, eliminate all but one copy of it. */
1778 static void
1779 sort_args (int argc, char **argv)
1781 char **new = xmalloc (argc * sizeof *new);
1782 /* For each element of argv,
1783 the corresponding element of options is:
1784 0 for an option that takes no arguments,
1785 1 for an option that takes one argument, etc.
1786 -1 for an ordinary non-option argument. */
1787 int *options = xnmalloc (argc, sizeof *options);
1788 int *priority = xnmalloc (argc, sizeof *priority);
1789 int to = 1;
1790 int incoming_used = 1;
1791 int from;
1792 int i;
1794 /* Categorize all the options,
1795 and figure out which argv elts are option arguments. */
1796 for (from = 1; from < argc; from++)
1798 options[from] = -1;
1799 priority[from] = 0;
1800 if (argv[from][0] == '-')
1802 int match;
1804 /* If we have found "--", don't consider
1805 any more arguments as options. */
1806 if (argv[from][1] == '-' && argv[from][2] == 0)
1808 /* Leave the "--", and everything following it, at the end. */
1809 for (; from < argc; from++)
1811 priority[from] = -100;
1812 options[from] = -1;
1814 break;
1817 /* Look for a match with a known old-fashioned option. */
1818 for (i = 0; i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1819 if (!strcmp (argv[from], standard_args[i].name))
1821 options[from] = standard_args[i].nargs;
1822 priority[from] = standard_args[i].priority;
1823 if (from + standard_args[i].nargs >= argc)
1824 fatal ("Option `%s' requires an argument\n", argv[from]);
1825 from += standard_args[i].nargs;
1826 goto done;
1829 /* Look for a match with a known long option.
1830 MATCH is -1 if no match so far, -2 if two or more matches so far,
1831 >= 0 (the table index of the match) if just one match so far. */
1832 if (argv[from][1] == '-')
1834 char const *equals = strchr (argv[from], '=');
1835 ptrdiff_t thislen =
1836 equals ? equals - argv[from] : strlen (argv[from]);
1838 match = -1;
1840 for (i = 0;
1841 i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1842 if (standard_args[i].longname
1843 && !strncmp (argv[from], standard_args[i].longname,
1844 thislen))
1846 if (match == -1)
1847 match = i;
1848 else
1849 match = -2;
1852 /* If we found exactly one match, use that. */
1853 if (match >= 0)
1855 options[from] = standard_args[match].nargs;
1856 priority[from] = standard_args[match].priority;
1857 /* If --OPTION=VALUE syntax is used,
1858 this option uses just one argv element. */
1859 if (equals != 0)
1860 options[from] = 0;
1861 if (from + options[from] >= argc)
1862 fatal ("Option `%s' requires an argument\n", argv[from]);
1863 from += options[from];
1865 /* FIXME When match < 0, shouldn't there be some error,
1866 or at least indication to the user that there was a
1867 problem? */
1869 done: ;
1873 /* Copy the arguments, in order of decreasing priority, to NEW. */
1874 new[0] = argv[0];
1875 while (incoming_used < argc)
1877 int best = -1;
1878 int best_priority = -9999;
1880 /* Find the highest priority remaining option.
1881 If several have equal priority, take the first of them. */
1882 for (from = 1; from < argc; from++)
1884 if (argv[from] != 0 && priority[from] > best_priority)
1886 best_priority = priority[from];
1887 best = from;
1889 /* Skip option arguments--they are tied to the options. */
1890 if (options[from] > 0)
1891 from += options[from];
1894 if (best < 0)
1895 abort ();
1897 /* Copy the highest priority remaining option, with its args, to NEW.
1898 Unless it is a duplicate of the previous one. */
1899 if (! (options[best] == 0
1900 && ! strcmp (new[to - 1], argv[best])))
1902 new[to++] = argv[best];
1903 for (i = 0; i < options[best]; i++)
1904 new[to++] = argv[best + i + 1];
1907 incoming_used += 1 + (options[best] > 0 ? options[best] : 0);
1909 /* Clear out this option in ARGV. */
1910 argv[best] = 0;
1911 for (i = 0; i < options[best]; i++)
1912 argv[best + i + 1] = 0;
1915 /* If duplicate options were deleted, fill up extra space with null ptrs. */
1916 while (to < argc)
1917 new[to++] = 0;
1919 memcpy (argv, new, sizeof (char *) * argc);
1921 xfree (options);
1922 xfree (new);
1923 xfree (priority);
1926 DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P",
1927 doc: /* Exit the Emacs job and kill it.
1928 If ARG is an integer, return ARG as the exit program code.
1929 If ARG is a string, stuff it as keyboard input.
1931 This function is called upon receipt of the signals SIGTERM
1932 or SIGHUP, and upon SIGINT in batch mode.
1934 The value of `kill-emacs-hook', if not void,
1935 is a list of functions (of no args),
1936 all of which are called before Emacs is actually killed. */)
1937 (Lisp_Object arg)
1939 struct gcpro gcpro1;
1940 Lisp_Object hook;
1941 int exit_code;
1943 GCPRO1 (arg);
1945 if (feof (stdin))
1946 arg = Qt;
1948 hook = intern ("kill-emacs-hook");
1949 Frun_hooks (1, &hook);
1951 UNGCPRO;
1953 #ifdef HAVE_X_WINDOWS
1954 /* Transfer any clipboards we own to the clipboard manager. */
1955 x_clipboard_manager_save_all ();
1956 #endif
1958 shut_down_emacs (0, 0, STRINGP (arg) ? arg : Qnil);
1960 #ifdef HAVE_NS
1961 ns_release_autorelease_pool (ns_pool);
1962 #endif
1964 /* If we have an auto-save list file,
1965 kill it because we are exiting Emacs deliberately (not crashing).
1966 Do it after shut_down_emacs, which does an auto-save. */
1967 if (STRINGP (Vauto_save_list_file_name))
1968 unlink (SSDATA (Vauto_save_list_file_name));
1970 if (INTEGERP (arg))
1971 exit_code = (XINT (arg) < 0
1972 ? XINT (arg) | INT_MIN
1973 : XINT (arg) & INT_MAX);
1974 else if (noninteractive && (fflush (stdout) || ferror (stdout)))
1975 exit_code = EXIT_FAILURE;
1976 else
1977 exit_code = EXIT_SUCCESS;
1978 exit (exit_code);
1982 /* Perform an orderly shutdown of Emacs. Autosave any modified
1983 buffers, kill any child processes, clean up the terminal modes (if
1984 we're in the foreground), and other stuff like that. Don't perform
1985 any redisplay; this may be called when Emacs is shutting down in
1986 the background, or after its X connection has died.
1988 If SIG is a signal number, print a message for it.
1990 This is called by fatal signal handlers, X protocol error handlers,
1991 and Fkill_emacs. */
1993 void
1994 shut_down_emacs (int sig, int no_x, Lisp_Object stuff)
1996 /* Prevent running of hooks from now on. */
1997 Vrun_hooks = Qnil;
1999 /* Don't update display from now on. */
2000 Vinhibit_redisplay = Qt;
2002 /* If we are controlling the terminal, reset terminal modes. */
2003 #ifndef DOS_NT
2005 int pgrp = EMACS_GETPGRP (0);
2006 int tpgrp = tcgetpgrp (0);
2007 if ((tpgrp != -1) && tpgrp == pgrp)
2009 reset_all_sys_modes ();
2010 if (sig && sig != SIGTERM)
2011 fprintf (stderr, "Fatal error (%d)", sig);
2014 #else
2015 fflush (stdout);
2016 reset_all_sys_modes ();
2017 #endif
2019 stuff_buffered_input (stuff);
2021 inhibit_sentinels = 1;
2022 kill_buffer_processes (Qnil);
2023 Fdo_auto_save (Qt, Qnil);
2025 #ifdef CLASH_DETECTION
2026 unlock_all_files ();
2027 #endif
2029 #if 0 /* This triggers a bug in XCloseDisplay and is not needed. */
2030 #ifdef HAVE_X_WINDOWS
2031 /* It's not safe to call intern here. Maybe we are crashing. */
2032 if (!noninteractive && SYMBOLP (Vinitial_window_system)
2033 && SCHARS (SYMBOL_NAME (Vinitial_window_system)) == 1
2034 && SREF (SYMBOL_NAME (Vinitial_window_system), 0) == 'x'
2035 && ! no_x)
2036 Fx_close_current_connection ();
2037 #endif /* HAVE_X_WINDOWS */
2038 #endif
2040 #ifdef SIGIO
2041 /* There is a tendency for a SIGIO signal to arrive within exit,
2042 and cause a SIGHUP because the input descriptor is already closed. */
2043 unrequest_sigio ();
2044 signal (SIGIO, SIG_IGN);
2045 #endif
2047 #ifdef WINDOWSNT
2048 term_ntproc ();
2049 #endif
2051 /* Do this only if terminating normally, we want glyph matrices
2052 etc. in a core dump. */
2053 if (sig == 0 || sig == SIGTERM)
2055 check_glyph_memory ();
2056 check_message_stack ();
2059 #ifdef MSDOS
2060 dos_cleanup ();
2061 #endif
2063 #ifdef HAVE_NS
2064 ns_term_shutdown (sig);
2065 #endif
2067 #ifdef HAVE_LIBXML2
2068 xml_cleanup_parser ();
2069 #endif
2074 #ifndef CANNOT_DUMP
2076 #include "unexec.h"
2078 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0,
2079 doc: /* Dump current state of Emacs into executable file FILENAME.
2080 Take symbols from SYMFILE (presumably the file you executed to run Emacs).
2081 This is used in the file `loadup.el' when building Emacs.
2083 You must run Emacs in batch mode in order to dump it. */)
2084 (Lisp_Object filename, Lisp_Object symfile)
2086 Lisp_Object tem;
2087 Lisp_Object symbol;
2088 ptrdiff_t count = SPECPDL_INDEX ();
2090 check_pure_size ();
2092 if (! noninteractive)
2093 error ("Dumping Emacs works only in batch mode");
2095 #ifdef GNU_LINUX
2097 /* Warn if the gap between BSS end and heap start is larger than this. */
2098 # define MAX_HEAP_BSS_DIFF (1024*1024)
2100 if (heap_bss_diff > MAX_HEAP_BSS_DIFF)
2102 fprintf (stderr, "**************************************************\n");
2103 fprintf (stderr, "Warning: Your system has a gap between BSS and the\n");
2104 fprintf (stderr, "heap (%"pMu" bytes). This usually means that exec-shield\n",
2105 heap_bss_diff);
2106 fprintf (stderr, "or something similar is in effect. The dump may\n");
2107 fprintf (stderr, "fail because of this. See the section about\n");
2108 fprintf (stderr, "exec-shield in etc/PROBLEMS for more information.\n");
2109 fprintf (stderr, "**************************************************\n");
2111 #endif /* GNU_LINUX */
2113 /* Bind `command-line-processed' to nil before dumping,
2114 so that the dumped Emacs will process its command line
2115 and set up to work with X windows if appropriate. */
2116 symbol = intern ("command-line-processed");
2117 specbind (symbol, Qnil);
2119 CHECK_STRING (filename);
2120 filename = Fexpand_file_name (filename, Qnil);
2121 if (!NILP (symfile))
2123 CHECK_STRING (symfile);
2124 if (SCHARS (symfile))
2125 symfile = Fexpand_file_name (symfile, Qnil);
2128 tem = Vpurify_flag;
2129 Vpurify_flag = Qnil;
2131 #ifdef HAVE_TZSET
2132 set_time_zone_rule (dump_tz);
2133 #ifndef LOCALTIME_CACHE
2134 /* Force a tz reload, since set_time_zone_rule doesn't. */
2135 tzset ();
2136 #endif
2137 #endif
2139 fflush (stdout);
2140 /* Tell malloc where start of impure now is. */
2141 /* Also arrange for warnings when nearly out of space. */
2142 #ifndef SYSTEM_MALLOC
2143 #ifndef WINDOWSNT
2144 /* On Windows, this was done before dumping, and that once suffices.
2145 Meanwhile, my_edata is not valid on Windows. */
2147 extern char my_edata[];
2148 memory_warnings (my_edata, malloc_warning);
2150 #endif /* not WINDOWSNT */
2151 #if defined (HAVE_PTHREAD) && !defined SYNC_INPUT
2152 /* Pthread may call malloc before main, and then we will get an endless
2153 loop, because pthread_self (see alloc.c) calls malloc the first time
2154 it is called on some systems. */
2155 reset_malloc_hooks ();
2156 #endif
2157 #endif /* not SYSTEM_MALLOC */
2158 #ifdef DOUG_LEA_MALLOC
2159 malloc_state_ptr = malloc_get_state ();
2160 #endif
2162 #ifdef USE_MMAP_FOR_BUFFERS
2163 mmap_set_vars (0);
2164 #endif
2165 unexec (SSDATA (filename), !NILP (symfile) ? SSDATA (symfile) : 0);
2166 #ifdef USE_MMAP_FOR_BUFFERS
2167 mmap_set_vars (1);
2168 #endif
2169 #ifdef DOUG_LEA_MALLOC
2170 free (malloc_state_ptr);
2171 #endif
2173 Vpurify_flag = tem;
2175 return unbind_to (count, Qnil);
2178 #endif /* not CANNOT_DUMP */
2180 #if HAVE_SETLOCALE
2181 /* Recover from setlocale (LC_ALL, ""). */
2182 void
2183 fixup_locale (void)
2185 /* The Emacs Lisp reader needs LC_NUMERIC to be "C",
2186 so that numbers are read and printed properly for Emacs Lisp. */
2187 setlocale (LC_NUMERIC, "C");
2190 /* Set system locale CATEGORY, with previous locale *PLOCALE, to
2191 DESIRED_LOCALE. */
2192 static void
2193 synchronize_locale (int category, Lisp_Object *plocale, Lisp_Object desired_locale)
2195 if (! EQ (*plocale, desired_locale))
2197 *plocale = desired_locale;
2198 setlocale (category, (STRINGP (desired_locale)
2199 ? SSDATA (desired_locale)
2200 : ""));
2204 /* Set system time locale to match Vsystem_time_locale, if possible. */
2205 void
2206 synchronize_system_time_locale (void)
2208 synchronize_locale (LC_TIME, &Vprevious_system_time_locale,
2209 Vsystem_time_locale);
2212 /* Set system messages locale to match Vsystem_messages_locale, if
2213 possible. */
2214 void
2215 synchronize_system_messages_locale (void)
2217 #ifdef LC_MESSAGES
2218 synchronize_locale (LC_MESSAGES, &Vprevious_system_messages_locale,
2219 Vsystem_messages_locale);
2220 #endif
2222 #endif /* HAVE_SETLOCALE */
2225 Lisp_Object
2226 decode_env_path (const char *evarname, const char *defalt)
2228 const char *path, *p;
2229 Lisp_Object lpath, element, tem;
2230 #ifdef WINDOWSNT
2231 int defaulted = 0;
2232 const char *emacs_dir = egetenv ("emacs_dir");
2233 static const char *emacs_dir_env = "%emacs_dir%/";
2234 const size_t emacs_dir_len = strlen (emacs_dir_env);
2235 #endif
2237 /* It's okay to use getenv here, because this function is only used
2238 to initialize variables when Emacs starts up, and isn't called
2239 after that. */
2240 if (evarname != 0)
2241 path = getenv (evarname);
2242 else
2243 path = 0;
2244 if (!path)
2246 path = defalt;
2247 #ifdef WINDOWSNT
2248 defaulted = 1;
2249 #endif
2251 #ifdef DOS_NT
2252 /* Ensure values from the environment use the proper directory separator. */
2253 if (path)
2255 char *path_copy = alloca (strlen (path) + 1);
2256 strcpy (path_copy, path);
2257 dostounix_filename (path_copy);
2258 path = path_copy;
2260 #endif
2261 lpath = Qnil;
2262 while (1)
2264 p = strchr (path, SEPCHAR);
2265 if (!p)
2266 p = path + strlen (path);
2267 element = (p - path ? make_string (path, p - path)
2268 : build_string ("."));
2269 #ifdef WINDOWSNT
2270 /* Relative file names in the default path are interpreted as
2271 being relative to $emacs_dir. */
2272 if (emacs_dir && defaulted
2273 && strncmp (path, emacs_dir_env, emacs_dir_len) == 0)
2274 element = Fexpand_file_name (Fsubstring (element,
2275 make_number (emacs_dir_len),
2276 Qnil),
2277 build_string (emacs_dir));
2278 #endif
2280 /* Add /: to the front of the name
2281 if it would otherwise be treated as magic. */
2282 tem = Ffind_file_name_handler (element, Qt);
2284 /* However, if the handler says "I'm safe",
2285 don't bother adding /:. */
2286 if (SYMBOLP (tem))
2288 Lisp_Object prop;
2289 prop = Fget (tem, intern ("safe-magic"));
2290 if (! NILP (prop))
2291 tem = Qnil;
2294 if (! NILP (tem))
2295 element = concat2 (build_string ("/:"), element);
2297 lpath = Fcons (element, lpath);
2298 if (*p)
2299 path = p + 1;
2300 else
2301 break;
2303 return Fnreverse (lpath);
2306 DEFUN ("daemonp", Fdaemonp, Sdaemonp, 0, 0, 0,
2307 doc: /* Return non-nil if the current emacs process is a daemon.
2308 If the daemon was given a name argument, return that name. */)
2309 (void)
2311 if (IS_DAEMON)
2312 if (daemon_name)
2313 return build_string (daemon_name);
2314 else
2315 return Qt;
2316 else
2317 return Qnil;
2320 DEFUN ("daemon-initialized", Fdaemon_initialized, Sdaemon_initialized, 0, 0, 0,
2321 doc: /* Mark the Emacs daemon as being initialized.
2322 This finishes the daemonization process by doing the other half of detaching
2323 from the parent process and its tty file descriptors. */)
2324 (void)
2326 int nfd;
2327 int err = 0;
2329 if (!IS_DAEMON)
2330 error ("This function can only be called if emacs is run as a daemon");
2332 if (daemon_pipe[1] < 0)
2333 error ("The daemon has already been initialized");
2335 if (NILP (Vafter_init_time))
2336 error ("This function can only be called after loading the init files");
2338 /* Get rid of stdin, stdout and stderr. */
2339 nfd = open ("/dev/null", O_RDWR);
2340 err |= nfd < 0;
2341 err |= dup2 (nfd, 0) < 0;
2342 err |= dup2 (nfd, 1) < 0;
2343 err |= dup2 (nfd, 2) < 0;
2344 err |= close (nfd) != 0;
2346 /* Closing the pipe will notify the parent that it can exit.
2347 FIXME: In case some other process inherited the pipe, closing it here
2348 won't notify the parent because it's still open elsewhere, so we
2349 additionally send a byte, just to make sure the parent really exits.
2350 Instead, we should probably close the pipe in start-process and
2351 call-process to make sure the pipe is never inherited by
2352 subprocesses. */
2353 err |= write (daemon_pipe[1], "\n", 1) < 0;
2354 err |= close (daemon_pipe[1]) != 0;
2355 /* Set it to an invalid value so we know we've already run this function. */
2356 daemon_pipe[1] = -1;
2358 if (err)
2359 error ("I/O error during daemon initialization");
2360 return Qt;
2363 void
2364 syms_of_emacs (void)
2366 DEFSYM (Qfile_name_handler_alist, "file-name-handler-alist");
2367 DEFSYM (Qrisky_local_variable, "risky-local-variable");
2368 DEFSYM (Qkill_emacs, "kill-emacs");
2370 #ifndef CANNOT_DUMP
2371 defsubr (&Sdump_emacs);
2372 #endif
2374 defsubr (&Skill_emacs);
2376 defsubr (&Sinvocation_name);
2377 defsubr (&Sinvocation_directory);
2378 defsubr (&Sdaemonp);
2379 defsubr (&Sdaemon_initialized);
2381 DEFVAR_LISP ("command-line-args", Vcommand_line_args,
2382 doc: /* Args passed by shell to Emacs, as a list of strings.
2383 Many arguments are deleted from the list as they are processed. */);
2385 DEFVAR_LISP ("system-type", Vsystem_type,
2386 doc: /* The value is a symbol indicating the type of operating system you are using.
2387 Special values:
2388 `gnu' compiled for a GNU Hurd system.
2389 `gnu/linux' compiled for a GNU/Linux system.
2390 `gnu/kfreebsd' compiled for a GNU system with a FreeBSD kernel.
2391 `darwin' compiled for Darwin (GNU-Darwin, Mac OS X, ...).
2392 `ms-dos' compiled as an MS-DOS application.
2393 `windows-nt' compiled as a native W32 application.
2394 `cygwin' compiled using the Cygwin library.
2395 Anything else (in Emacs 24.1, the possibilities are: aix, berkeley-unix,
2396 hpux, irix, usg-unix-v) indicates some sort of Unix system. */);
2397 Vsystem_type = intern_c_string (SYSTEM_TYPE);
2398 /* See configure.ac (and config.nt) for the possible SYSTEM_TYPEs. */
2400 DEFVAR_LISP ("system-configuration", Vsystem_configuration,
2401 doc: /* Value is string indicating configuration Emacs was built for.
2402 On MS-Windows, the value reflects the OS flavor and version on which
2403 Emacs is running. */);
2404 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
2406 DEFVAR_LISP ("system-configuration-options", Vsystem_configuration_options,
2407 doc: /* String containing the configuration options Emacs was built with. */);
2408 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
2410 DEFVAR_BOOL ("noninteractive", noninteractive1,
2411 doc: /* Non-nil means Emacs is running without interactive terminal. */);
2413 DEFVAR_LISP ("kill-emacs-hook", Vkill_emacs_hook,
2414 doc: /* Hook run when `kill-emacs' is called.
2415 Since `kill-emacs' may be invoked when the terminal is disconnected (or
2416 in other similar situations), functions placed on this hook should not
2417 expect to be able to interact with the user. To ask for confirmation,
2418 see `kill-emacs-query-functions' instead.
2420 Before Emacs 24.1, the hook was not run in batch mode, i.e., if
2421 `noninteractive' was non-nil. */);
2422 Vkill_emacs_hook = Qnil;
2424 DEFVAR_LISP ("path-separator", Vpath_separator,
2425 doc: /* String containing the character that separates directories in
2426 search paths, such as PATH and other similar environment variables. */);
2428 char c = SEPCHAR;
2429 Vpath_separator = make_string (&c, 1);
2432 DEFVAR_LISP ("invocation-name", Vinvocation_name,
2433 doc: /* The program name that was used to run Emacs.
2434 Any directory names are omitted. */);
2436 DEFVAR_LISP ("invocation-directory", Vinvocation_directory,
2437 doc: /* The directory in which the Emacs executable was found, to run it.
2438 The value is nil if that directory's name is not known. */);
2440 DEFVAR_LISP ("installation-directory", Vinstallation_directory,
2441 doc: /* A directory within which to look for the `lib-src' and `etc' directories.
2442 In an installed Emacs, this is normally nil. It is non-nil if
2443 both `lib-src' (on MS-DOS, `info') and `etc' directories are found
2444 within the variable `invocation-directory' or its parent. For example,
2445 this is the case when running an uninstalled Emacs executable from its
2446 build directory. */);
2447 Vinstallation_directory = Qnil;
2449 DEFVAR_LISP ("system-messages-locale", Vsystem_messages_locale,
2450 doc: /* System locale for messages. */);
2451 Vsystem_messages_locale = Qnil;
2453 DEFVAR_LISP ("previous-system-messages-locale",
2454 Vprevious_system_messages_locale,
2455 doc: /* Most recently used system locale for messages. */);
2456 Vprevious_system_messages_locale = Qnil;
2458 DEFVAR_LISP ("system-time-locale", Vsystem_time_locale,
2459 doc: /* System locale for time. */);
2460 Vsystem_time_locale = Qnil;
2462 DEFVAR_LISP ("previous-system-time-locale", Vprevious_system_time_locale,
2463 doc: /* Most recently used system locale for time. */);
2464 Vprevious_system_time_locale = Qnil;
2466 DEFVAR_LISP ("before-init-time", Vbefore_init_time,
2467 doc: /* Value of `current-time' before Emacs begins initialization. */);
2468 Vbefore_init_time = Qnil;
2470 DEFVAR_LISP ("after-init-time", Vafter_init_time,
2471 doc: /* Value of `current-time' after loading the init files.
2472 This is nil during initialization. */);
2473 Vafter_init_time = Qnil;
2475 DEFVAR_BOOL ("inhibit-x-resources", inhibit_x_resources,
2476 doc: /* If non-nil, X resources, Windows Registry settings, and NS defaults are not used. */);
2477 inhibit_x_resources = 0;
2479 DEFVAR_LISP ("emacs-copyright", Vemacs_copyright,
2480 doc: /* Short copyright string for this version of Emacs. */);
2481 Vemacs_copyright = build_string (emacs_copyright);
2483 DEFVAR_LISP ("emacs-version", Vemacs_version,
2484 doc: /* Version numbers of this version of Emacs. */);
2485 Vemacs_version = build_string (emacs_version);
2487 DEFVAR_LISP ("dynamic-library-alist", Vdynamic_library_alist,
2488 doc: /* Alist of dynamic libraries vs external files implementing them.
2489 Each element is a list (LIBRARY FILE...), where the car is a symbol
2490 representing a supported external library, and the rest are strings giving
2491 alternate filenames for that library.
2493 Emacs tries to load the library from the files in the order they appear on
2494 the list; if none is loaded, the running session of Emacs won't have access
2495 to that library.
2497 Note that image types `pbm' and `xbm' do not need entries in this variable
2498 because they do not depend on external libraries and are always available.
2500 Also note that this is not a generic facility for accessing external
2501 libraries; only those already known by Emacs will be loaded. */);
2502 Vdynamic_library_alist = Qnil;
2503 Fput (intern_c_string ("dynamic-library-alist"), Qrisky_local_variable, Qt);
2505 /* Make sure IS_DAEMON starts up as false. */
2506 daemon_pipe[1] = 0;