* lisp/ielm.el (ielm-menu): New menu.
[emacs.git] / src / emacs.c
blob5115126577b6778c31b24b4476aaf1c7ba5ac564
1 /* Fully extensible Emacs, running on Unix, intended for GNU.
3 Copyright (C) 1985-1987, 1993-1995, 1997-1999, 2001-2013 Free Software
4 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 <errno.h>
24 #include <stdio.h>
26 #include <sys/types.h>
27 #include <sys/file.h>
28 #include <unistd.h>
30 #include <close-stream.h>
31 #include <ignore-value.h>
33 #include "lisp.h"
35 #ifdef WINDOWSNT
36 #include <fcntl.h>
37 #include "w32.h"
38 #include "w32heap.h"
39 #endif
41 #if defined WINDOWSNT || defined HAVE_NTGUI
42 #include "w32select.h"
43 #include "w32font.h"
44 #include "w32common.h"
45 #endif
47 #if defined CYGWIN
48 #include "cygw32.h"
49 #endif
51 #ifdef HAVE_WINDOW_SYSTEM
52 #include TERM_HEADER
53 #endif /* HAVE_WINDOW_SYSTEM */
55 #ifdef NS_IMPL_GNUSTEP
56 /* At least under Debian, GSConfig is in a subdirectory. --Stef */
57 #include <GNUstepBase/GSConfig.h>
58 #endif
60 #include "commands.h"
61 #include "intervals.h"
62 #include "character.h"
63 #include "buffer.h"
64 #include "window.h"
66 #include "systty.h"
67 #include "atimer.h"
68 #include "blockinput.h"
69 #include "syssignal.h"
70 #include "process.h"
71 #include "frame.h"
72 #include "termhooks.h"
73 #include "keyboard.h"
74 #include "keymap.h"
76 #ifdef HAVE_GNUTLS
77 #include "gnutls.h"
78 #endif
80 #if (defined PROFILING \
81 && (defined __FreeBSD__ || defined GNU_LINUX || defined __MINGW32__))
82 # include <sys/gmon.h>
83 extern void moncontrol (int mode);
84 #endif
86 #ifdef HAVE_SETLOCALE
87 #include <locale.h>
88 #endif
90 #ifdef HAVE_SETRLIMIT
91 #include <sys/time.h>
92 #include <sys/resource.h>
93 #endif
95 #ifdef HAVE_PERSONALITY_LINUX32
96 #include <sys/personality.h>
97 #endif
99 static const char emacs_version[] = VERSION;
100 static const char emacs_copyright[] = COPYRIGHT;
102 /* Empty lisp strings. To avoid having to build any others. */
103 Lisp_Object empty_unibyte_string, empty_multibyte_string;
105 #ifdef WINDOWSNT
106 /* Cache for externally loaded libraries. */
107 Lisp_Object Vlibrary_cache;
108 #endif
110 /* Set after Emacs has started up the first time.
111 Prevents reinitialization of the Lisp world and keymaps
112 on subsequent starts. */
113 bool initialized;
115 #ifdef DARWIN_OS
116 extern void unexec_init_emacs_zone (void);
117 #endif
119 #ifdef DOUG_LEA_MALLOC
120 /* Preserves a pointer to the memory allocated that copies that
121 static data inside glibc's malloc. */
122 static void *malloc_state_ptr;
123 /* From glibc, a routine that returns a copy of the malloc internal state. */
124 extern void *malloc_get_state (void);
125 /* From glibc, a routine that overwrites the malloc internal state. */
126 extern int malloc_set_state (void*);
127 /* True if the MALLOC_CHECK_ environment variable was set while
128 dumping. Used to work around a bug in glibc's malloc. */
129 static bool malloc_using_checking;
130 #endif
132 Lisp_Object Qfile_name_handler_alist;
134 Lisp_Object Qrisky_local_variable;
136 Lisp_Object Qkill_emacs;
137 static Lisp_Object Qkill_emacs_hook;
139 /* If true, Emacs should not attempt to use a window-specific code,
140 but instead should use the virtual terminal under which it was started. */
141 bool inhibit_window_system;
143 /* If true, a filter or a sentinel is running. Tested to save the match
144 data on the first attempt to change it inside asynchronous code. */
145 bool running_asynch_code;
147 #if defined (HAVE_X_WINDOWS) || defined (HAVE_NS)
148 /* If true, -d was specified, meaning we're using some window system. */
149 bool display_arg;
150 #endif
152 /* An address near the bottom of the stack.
153 Tells GC how to save a copy of the stack. */
154 char *stack_bottom;
156 #if defined (DOUG_LEA_MALLOC) || defined (GNU_LINUX)
157 /* The address where the heap starts (from the first sbrk (0) call). */
158 static void *my_heap_start;
159 #endif
161 #ifdef GNU_LINUX
162 /* The gap between BSS end and heap start as far as we can tell. */
163 static uprintmax_t heap_bss_diff;
164 #endif
166 /* To run as a daemon under Cocoa or Windows, we must do a fork+exec,
167 not a simple fork.
169 On Cocoa, CoreFoundation lib fails in forked process:
170 http://developer.apple.com/ReleaseNotes/
171 CoreFoundation/CoreFoundation.html)
173 On Windows, a Cygwin fork child cannot access the USER subsystem.
175 We mark being in the exec'd process by a daemon name argument of
176 form "--daemon=\nFD0,FD1\nNAME" where FD are the pipe file descriptors,
177 NAME is the original daemon name, if any. */
178 #if defined NS_IMPL_COCOA || (defined HAVE_NTGUI && defined CYGWIN)
179 # define DAEMON_MUST_EXEC
180 #endif
182 /* True means running Emacs without interactive terminal. */
183 bool noninteractive;
185 /* True means remove site-lisp directories from load-path. */
186 bool no_site_lisp;
188 /* Name for the server started by the daemon.*/
189 static char *daemon_name;
191 /* Pipe used to send exit notification to the daemon parent at
192 startup. */
193 int daemon_pipe[2];
195 /* Save argv and argc. */
196 char **initial_argv;
197 int initial_argc;
199 static void sort_args (int argc, char **argv);
200 static void syms_of_emacs (void);
202 /* MSVC needs each string be shorter than 2048 bytes, so the usage
203 strings below are split to not overflow this limit. */
204 #define USAGE1 "\
205 Usage: %s [OPTION-OR-FILENAME]...\n\
207 Run Emacs, the extensible, customizable, self-documenting real-time\n\
208 display editor. The recommended way to start Emacs for normal editing\n\
209 is with no options at all.\n\
211 Run M-x info RET m emacs RET m emacs invocation RET inside Emacs to\n\
212 read the main documentation for these command-line arguments.\n\
214 Initialization options:\n\
216 --batch do not do interactive display; implies -q\n\
217 --chdir DIR change to directory DIR\n\
218 --daemon start a server in the background\n\
219 --debug-init enable Emacs Lisp debugger for init file\n\
220 --display, -d DISPLAY use X server DISPLAY\n\
221 --no-desktop do not load a saved desktop\n\
222 --no-init-file, -q load neither ~/.emacs nor default.el\n\
223 --no-shared-memory, -nl do not use shared memory\n\
224 --no-site-file do not load site-start.el\n\
225 --no-site-lisp, -nsl do not add site-lisp directories to load-path\n\
226 --no-splash do not display a splash screen on startup\n\
227 --no-window-system, -nw do not communicate with X, ignoring $DISPLAY\n\
228 --quick, -Q equivalent to:\n\
229 -q --no-site-file --no-site-lisp --no-splash\n\
230 --script FILE run FILE as an Emacs Lisp script\n\
231 --terminal, -t DEVICE use DEVICE for terminal I/O\n\
232 --user, -u USER load ~USER/.emacs instead of your own\n\
233 \n%s"
235 #define USAGE2 "\
236 Action options:\n\
238 FILE visit FILE using find-file\n\
239 +LINE go to line LINE in next FILE\n\
240 +LINE:COLUMN go to line LINE, column COLUMN, in next FILE\n\
241 --directory, -L DIR add DIR to variable load-path\n\
242 --eval EXPR evaluate Emacs Lisp expression EXPR\n\
243 --execute EXPR evaluate Emacs Lisp expression EXPR\n\
244 --file FILE visit FILE using find-file\n\
245 --find-file FILE visit FILE using find-file\n\
246 --funcall, -f FUNC call Emacs Lisp function FUNC with no arguments\n\
247 --insert FILE insert contents of FILE into current buffer\n\
248 --kill exit without asking for confirmation\n\
249 --load, -l FILE load Emacs Lisp FILE using the load function\n\
250 --visit FILE visit FILE using find-file\n\
253 #define USAGE3 "\
254 Display options:\n\
256 --background-color, -bg COLOR window background color\n\
257 --basic-display, -D disable many display features;\n\
258 used for debugging Emacs\n\
259 --border-color, -bd COLOR main border color\n\
260 --border-width, -bw WIDTH width of main border\n\
261 --color, --color=MODE override color mode for character terminals;\n\
262 MODE defaults to `auto', and\n\
263 can also be `never', `always',\n\
264 or a mode name like `ansi8'\n\
265 --cursor-color, -cr COLOR color of the Emacs cursor indicating point\n\
266 --font, -fn FONT default font; must be fixed-width\n\
267 --foreground-color, -fg COLOR window foreground color\n\
268 --fullheight, -fh make the first frame high as the screen\n\
269 --fullscreen, -fs make the first frame fullscreen\n\
270 --fullwidth, -fw make the first frame wide as the screen\n\
271 --maximized, -mm make the first frame maximized\n\
272 --geometry, -g GEOMETRY window geometry\n\
273 --no-bitmap-icon, -nbi do not use picture of gnu for Emacs icon\n\
274 --iconic start Emacs in iconified state\n\
275 --internal-border, -ib WIDTH width between text and main border\n\
276 --line-spacing, -lsp PIXELS additional space to put between lines\n\
277 --mouse-color, -ms COLOR mouse cursor color in Emacs window\n\
278 --name NAME title for initial Emacs frame\n\
279 --no-blinking-cursor, -nbc disable blinking cursor\n\
280 --reverse-video, -r, -rv switch foreground and background\n\
281 --title, -T TITLE title for initial Emacs frame\n\
282 --vertical-scroll-bars, -vb enable vertical scroll bars\n\
283 --xrm XRESOURCES set additional X resources\n\
284 --parent-id XID set parent window\n\
285 --help display this help and exit\n\
286 --version output version information and exit\n\
289 #define USAGE4 "\
290 You can generally also specify long option names with a single -; for\n\
291 example, -batch as well as --batch. You can use any unambiguous\n\
292 abbreviation for a --option.\n\
294 Various environment variables and window system resources also affect\n\
295 Emacs' operation. See the main documentation.\n\
297 Report bugs to bug-gnu-emacs@gnu.org. First, please see the Bugs\n\
298 section of the Emacs manual or the file BUGS.\n"
301 /* True if handling a fatal error already. */
302 bool fatal_error_in_progress;
304 #ifdef HAVE_NS
305 /* NS autrelease pool, for memory management. */
306 static void *ns_pool;
307 #endif
311 /* Report a fatal error due to signal SIG, output a backtrace of at
312 most BACKTRACE_LIMIT lines, and exit. */
313 _Noreturn void
314 terminate_due_to_signal (int sig, int backtrace_limit)
316 signal (sig, SIG_DFL);
317 totally_unblock_input ();
319 /* If fatal error occurs in code below, avoid infinite recursion. */
320 if (! fatal_error_in_progress)
322 fatal_error_in_progress = 1;
324 if (sig == SIGTERM || sig == SIGHUP || sig == SIGINT)
325 Fkill_emacs (make_number (sig));
327 shut_down_emacs (sig, Qnil);
328 emacs_backtrace (backtrace_limit);
331 /* Signal the same code; this time it will really be fatal.
332 Since we're in a signal handler, the signal is blocked, so we
333 have to unblock it if we want to really receive it. */
334 #ifndef MSDOS
336 sigset_t unblocked;
337 sigemptyset (&unblocked);
338 sigaddset (&unblocked, sig);
339 pthread_sigmask (SIG_UNBLOCK, &unblocked, 0);
341 #endif
343 emacs_raise (sig);
345 /* This shouldn't be executed, but it prevents a warning. */
346 exit (1);
349 /* Code for dealing with Lisp access to the Unix command line. */
351 static void
352 init_cmdargs (int argc, char **argv, int skip_args)
354 register int i;
355 Lisp_Object name, dir, handler;
356 ptrdiff_t count = SPECPDL_INDEX ();
357 Lisp_Object raw_name;
359 initial_argv = argv;
360 initial_argc = argc;
362 raw_name = build_string (argv[0]);
364 /* Add /: to the front of the name
365 if it would otherwise be treated as magic. */
366 handler = Ffind_file_name_handler (raw_name, Qt);
367 if (! NILP (handler))
368 raw_name = concat2 (build_string ("/:"), raw_name);
370 Vinvocation_name = Ffile_name_nondirectory (raw_name);
371 Vinvocation_directory = Ffile_name_directory (raw_name);
373 /* If we got no directory in argv[0], search PATH to find where
374 Emacs actually came from. */
375 if (NILP (Vinvocation_directory))
377 Lisp_Object found;
378 int yes = openp (Vexec_path, Vinvocation_name,
379 Vexec_suffixes, &found, make_number (X_OK));
380 if (yes == 1)
382 /* Add /: to the front of the name
383 if it would otherwise be treated as magic. */
384 handler = Ffind_file_name_handler (found, Qt);
385 if (! NILP (handler))
386 found = concat2 (build_string ("/:"), found);
387 Vinvocation_directory = Ffile_name_directory (found);
391 if (!NILP (Vinvocation_directory)
392 && NILP (Ffile_name_absolute_p (Vinvocation_directory)))
393 /* Emacs was started with relative path, like ./emacs.
394 Make it absolute. */
395 Vinvocation_directory = Fexpand_file_name (Vinvocation_directory, Qnil);
397 Vinstallation_directory = Qnil;
399 if (!NILP (Vinvocation_directory))
401 dir = Vinvocation_directory;
402 #ifdef WINDOWSNT
403 /* If we are running from the build directory, set DIR to the
404 src subdirectory of the Emacs tree, like on Posix
405 platforms. */
406 if (SBYTES (dir) > sizeof ("/i386/") - 1
407 && 0 == strcmp (SSDATA (dir) + SBYTES (dir) - sizeof ("/i386/") + 1,
408 "/i386/"))
409 dir = Fexpand_file_name (build_string ("../.."), dir);
410 #else /* !WINDOWSNT */
411 #endif
412 name = Fexpand_file_name (Vinvocation_name, dir);
413 while (1)
415 Lisp_Object tem, lib_src_exists;
416 Lisp_Object etc_exists, info_exists;
418 /* See if dir contains subdirs for use by Emacs.
419 Check for the ones that would exist in a build directory,
420 not including lisp and info. */
421 tem = Fexpand_file_name (build_string ("lib-src"), dir);
422 lib_src_exists = Ffile_exists_p (tem);
424 #ifdef MSDOS
425 /* MSDOS installations frequently remove lib-src, but we still
426 must set installation-directory, or else info won't find
427 its files (it uses the value of installation-directory). */
428 tem = Fexpand_file_name (build_string ("info"), dir);
429 info_exists = Ffile_exists_p (tem);
430 #else
431 info_exists = Qnil;
432 #endif
434 if (!NILP (lib_src_exists) || !NILP (info_exists))
436 tem = Fexpand_file_name (build_string ("etc"), dir);
437 etc_exists = Ffile_exists_p (tem);
438 if (!NILP (etc_exists))
440 Vinstallation_directory
441 = Ffile_name_as_directory (dir);
442 break;
446 /* See if dir's parent contains those subdirs. */
447 tem = Fexpand_file_name (build_string ("../lib-src"), dir);
448 lib_src_exists = Ffile_exists_p (tem);
451 #ifdef MSDOS
452 /* See the MSDOS commentary above. */
453 tem = Fexpand_file_name (build_string ("../info"), dir);
454 info_exists = Ffile_exists_p (tem);
455 #else
456 info_exists = Qnil;
457 #endif
459 if (!NILP (lib_src_exists) || !NILP (info_exists))
461 tem = Fexpand_file_name (build_string ("../etc"), dir);
462 etc_exists = Ffile_exists_p (tem);
463 if (!NILP (etc_exists))
465 tem = Fexpand_file_name (build_string (".."), dir);
466 Vinstallation_directory
467 = Ffile_name_as_directory (tem);
468 break;
472 /* If the Emacs executable is actually a link,
473 next try the dir that the link points into. */
474 tem = Ffile_symlink_p (name);
475 if (!NILP (tem))
477 name = Fexpand_file_name (tem, dir);
478 dir = Ffile_name_directory (name);
480 else
481 break;
485 Vcommand_line_args = Qnil;
487 for (i = argc - 1; i >= 0; i--)
489 if (i == 0 || i > skip_args)
490 /* For the moment, we keep arguments as is in unibyte strings.
491 They are decoded in the function command-line after we know
492 locale-coding-system. */
493 Vcommand_line_args
494 = Fcons (make_unibyte_string (argv[i], strlen (argv[i])),
495 Vcommand_line_args);
498 unbind_to (count, Qnil);
501 DEFUN ("invocation-name", Finvocation_name, Sinvocation_name, 0, 0, 0,
502 doc: /* Return the program name that was used to run Emacs.
503 Any directory names are omitted. */)
504 (void)
506 return Fcopy_sequence (Vinvocation_name);
509 DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory,
510 0, 0, 0,
511 doc: /* Return the directory name in which the Emacs executable was located. */)
512 (void)
514 return Fcopy_sequence (Vinvocation_directory);
518 #ifdef HAVE_TZSET
519 /* A valid but unlikely value for the TZ environment value.
520 It is OK (though a bit slower) if the user actually chooses this value. */
521 static char const dump_tz[] = "UtC0";
522 #endif
524 /* Test whether the next argument in ARGV matches SSTR or a prefix of
525 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
526 (the argument is supposed to have a value) store in *VALPTR either
527 the next argument or the portion of this one after the equal sign.
528 ARGV is read starting at position *SKIPPTR; this index is advanced
529 by the number of arguments used.
531 Too bad we can't just use getopt for all of this, but we don't have
532 enough information to do it right. */
534 static bool
535 argmatch (char **argv, int argc, const char *sstr, const char *lstr,
536 int minlen, char **valptr, int *skipptr)
538 char *p = NULL;
539 ptrdiff_t arglen;
540 char *arg;
542 /* Don't access argv[argc]; give up in advance. */
543 if (argc <= *skipptr + 1)
544 return 0;
546 arg = argv[*skipptr+1];
547 if (arg == NULL)
548 return 0;
549 if (strcmp (arg, sstr) == 0)
551 if (valptr != NULL)
553 *valptr = argv[*skipptr+2];
554 *skipptr += 2;
556 else
557 *skipptr += 1;
558 return 1;
560 arglen = (valptr != NULL && (p = strchr (arg, '=')) != NULL
561 ? p - arg : strlen (arg));
562 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
563 return 0;
564 else if (valptr == NULL)
566 *skipptr += 1;
567 return 1;
569 else if (p != NULL)
571 *valptr = p+1;
572 *skipptr += 1;
573 return 1;
575 else if (argv[*skipptr+2] != NULL)
577 *valptr = argv[*skipptr+2];
578 *skipptr += 2;
579 return 1;
581 else
583 return 0;
587 #ifdef DOUG_LEA_MALLOC
589 /* malloc can be invoked even before main (e.g. by the dynamic
590 linker), so the dumped malloc state must be restored as early as
591 possible using this special hook. */
593 static void
594 malloc_initialize_hook (void)
596 if (initialized)
598 if (!malloc_using_checking)
599 /* Work around a bug in glibc's malloc. MALLOC_CHECK_ must be
600 ignored if the heap to be restored was constructed without
601 malloc checking. Can't use unsetenv, since that calls malloc. */
603 char **p;
605 for (p = environ; p && *p; p++)
606 if (strncmp (*p, "MALLOC_CHECK_=", 14) == 0)
609 *p = p[1];
610 while (*++p);
611 break;
615 malloc_set_state (malloc_state_ptr);
616 #ifndef XMALLOC_OVERRUN_CHECK
617 free (malloc_state_ptr);
618 #endif
620 else
622 if (my_heap_start == 0)
623 my_heap_start = sbrk (0);
624 malloc_using_checking = getenv ("MALLOC_CHECK_") != NULL;
628 void (*__malloc_initialize_hook) (void) EXTERNALLY_VISIBLE = malloc_initialize_hook;
630 #endif /* DOUG_LEA_MALLOC */
632 /* Close standard output and standard error, reporting any write
633 errors as best we can. This is intended for use with atexit. */
634 static void
635 close_output_streams (void)
637 if (close_stream (stdout) != 0)
639 fprintf (stderr, "Write error to standard output: %s\n",
640 strerror (errno));
641 fflush (stderr);
642 _exit (EXIT_FAILURE);
645 if (close_stream (stderr) != 0)
646 _exit (EXIT_FAILURE);
649 /* ARGSUSED */
651 main (int argc, char **argv)
653 #if GC_MARK_STACK
654 Lisp_Object dummy;
655 #endif
656 char stack_bottom_variable;
657 bool do_initial_setlocale;
658 bool dumping;
659 int skip_args = 0;
660 #ifdef HAVE_SETRLIMIT
661 struct rlimit rlim;
662 #endif
663 bool no_loadup = 0;
664 char *junk = 0;
665 char *dname_arg = 0;
666 #ifdef DAEMON_MUST_EXEC
667 char dname_arg2[80];
668 #endif
669 char *ch_to_dir;
671 #if GC_MARK_STACK
672 stack_base = &dummy;
673 #endif
675 #ifdef G_SLICE_ALWAYS_MALLOC
676 /* This is used by the Cygwin build. */
677 xputenv ("G_SLICE=always-malloc");
678 #endif
680 #ifdef GNU_LINUX
681 if (!initialized)
683 extern char my_endbss[];
684 extern char *my_endbss_static;
686 if (my_heap_start == 0)
687 my_heap_start = sbrk (0);
689 heap_bss_diff = (char *)my_heap_start - max (my_endbss, my_endbss_static);
691 #endif
693 #if defined WINDOWSNT || defined HAVE_NTGUI
694 /* Set global variables used to detect Windows version. Do this as
695 early as possible. (unexw32.c calls this function as well, but
696 the additional call here is harmless.) */
697 cache_system_info ();
698 #endif
700 #ifdef RUN_TIME_REMAP
701 if (initialized)
702 run_time_remap (argv[0]);
703 #endif
705 /* If using unexmacosx.c (set by s/darwin.h), we must do this. */
706 #ifdef DARWIN_OS
707 if (!initialized)
708 unexec_init_emacs_zone ();
709 #endif
711 atexit (close_output_streams);
713 sort_args (argc, argv);
714 argc = 0;
715 while (argv[argc]) argc++;
717 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args))
719 const char *version, *copyright;
720 if (initialized)
722 Lisp_Object tem, tem2;
723 tem = Fsymbol_value (intern_c_string ("emacs-version"));
724 tem2 = Fsymbol_value (intern_c_string ("emacs-copyright"));
725 if (!STRINGP (tem))
727 fprintf (stderr, "Invalid value of `emacs-version'\n");
728 exit (1);
730 if (!STRINGP (tem2))
732 fprintf (stderr, "Invalid value of `emacs-copyright'\n");
733 exit (1);
735 else
737 version = SSDATA (tem);
738 copyright = SSDATA (tem2);
741 else
743 version = emacs_version;
744 copyright = emacs_copyright;
746 printf ("GNU Emacs %s\n", version);
747 printf ("%s\n", copyright);
748 printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n");
749 printf ("You may redistribute copies of Emacs\n");
750 printf ("under the terms of the GNU General Public License.\n");
751 printf ("For more information about these matters, ");
752 printf ("see the file named COPYING.\n");
753 exit (0);
756 if (argmatch (argv, argc, "-chdir", "--chdir", 4, &ch_to_dir, &skip_args))
757 if (chdir (ch_to_dir) == -1)
759 fprintf (stderr, "%s: Can't chdir to %s: %s\n",
760 argv[0], ch_to_dir, strerror (errno));
761 exit (1);
764 dumping = !initialized && (strcmp (argv[argc - 1], "dump") == 0
765 || strcmp (argv[argc - 1], "bootstrap") == 0);
767 #ifdef HAVE_PERSONALITY_LINUX32
768 if (dumping && ! getenv ("EMACS_HEAP_EXEC"))
770 /* Set this so we only do this once. */
771 xputenv ("EMACS_HEAP_EXEC=true");
773 /* A flag to turn off address randomization which is introduced
774 in linux kernel shipped with fedora core 4 */
775 #define ADD_NO_RANDOMIZE 0x0040000
776 personality (PER_LINUX32 | ADD_NO_RANDOMIZE);
777 #undef ADD_NO_RANDOMIZE
779 execvp (argv[0], argv);
781 /* If the exec fails, try to dump anyway. */
782 perror ("execvp");
784 #endif /* HAVE_PERSONALITY_LINUX32 */
786 #if defined (HAVE_SETRLIMIT) && defined (RLIMIT_STACK)
787 /* Extend the stack space available.
788 Don't do that if dumping, since some systems (e.g. DJGPP)
789 might define a smaller stack limit at that time. */
790 if (1
791 #ifndef CANNOT_DUMP
792 && (!noninteractive || initialized)
793 #endif
794 && !getrlimit (RLIMIT_STACK, &rlim))
796 long newlim;
797 extern size_t re_max_failures;
798 /* Approximate the amount regex.c needs per unit of re_max_failures. */
799 int ratio = 20 * sizeof (char *);
800 /* Then add 33% to cover the size of the smaller stacks that regex.c
801 successively allocates and discards, on its way to the maximum. */
802 ratio += ratio / 3;
803 /* Add in some extra to cover
804 what we're likely to use for other reasons. */
805 newlim = re_max_failures * ratio + 200000;
806 #ifdef __NetBSD__
807 /* NetBSD (at least NetBSD 1.2G and former) has a bug in its
808 stack allocation routine for new process that the allocation
809 fails if stack limit is not on page boundary. So, round up the
810 new limit to page boundary. */
811 newlim = (newlim + getpagesize () - 1) / getpagesize () * getpagesize ();
812 #endif
813 if (newlim > rlim.rlim_max)
815 newlim = rlim.rlim_max;
816 /* Don't let regex.c overflow the stack we have. */
817 re_max_failures = (newlim - 200000) / ratio;
819 if (rlim.rlim_cur < newlim)
820 rlim.rlim_cur = newlim;
822 setrlimit (RLIMIT_STACK, &rlim);
824 #endif /* HAVE_SETRLIMIT and RLIMIT_STACK */
826 /* Record (approximately) where the stack begins. */
827 stack_bottom = &stack_bottom_variable;
829 clearerr (stdin);
831 #ifndef SYSTEM_MALLOC
832 /* Arrange to get warning messages as memory fills up. */
833 memory_warnings (0, malloc_warning);
835 /* Call malloc at least once, to run malloc_initialize_hook.
836 Also call realloc and free for consistency. */
837 free (realloc (malloc (4), 4));
839 #endif /* not SYSTEM_MALLOC */
841 #if defined (MSDOS) || defined (WINDOWSNT)
842 /* We do all file input/output as binary files. When we need to translate
843 newlines, we do that manually. */
844 _fmode = O_BINARY;
845 #endif /* MSDOS || WINDOWSNT */
847 #ifdef MSDOS
848 if (!isatty (fileno (stdin)))
849 setmode (fileno (stdin), O_BINARY);
850 if (!isatty (fileno (stdout)))
852 fflush (stdout);
853 setmode (fileno (stdout), O_BINARY);
855 #endif /* MSDOS */
857 /* Skip initial setlocale if LC_ALL is "C", as it's not needed in that case.
858 The build procedure uses this while dumping, to ensure that the
859 dumped Emacs does not have its system locale tables initialized,
860 as that might cause screwups when the dumped Emacs starts up. */
862 char *lc_all = getenv ("LC_ALL");
863 do_initial_setlocale = ! lc_all || strcmp (lc_all, "C");
866 /* Set locale now, so that initial error messages are localized properly.
867 fixup_locale must wait until later, since it builds strings. */
868 if (do_initial_setlocale)
869 setlocale (LC_ALL, "");
871 inhibit_window_system = 0;
873 /* Handle the -t switch, which specifies filename to use as terminal. */
874 while (1)
876 char *term;
877 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
879 int result;
880 emacs_close (0);
881 emacs_close (1);
882 result = emacs_open (term, O_RDWR, 0);
883 if (result < 0 || dup (0) < 0)
885 char *errstring = strerror (errno);
886 fprintf (stderr, "%s: %s: %s\n", argv[0], term, errstring);
887 exit (1);
889 if (! isatty (0))
891 fprintf (stderr, "%s: %s: not a tty\n", argv[0], term);
892 exit (1);
894 fprintf (stderr, "Using %s\n", term);
895 #ifdef HAVE_WINDOW_SYSTEM
896 inhibit_window_system = 1; /* -t => -nw */
897 #endif
899 else
900 break;
903 /* Command line option --no-windows is deprecated and thus not mentioned
904 in the manual and usage information. */
905 if (argmatch (argv, argc, "-nw", "--no-window-system", 6, NULL, &skip_args)
906 || argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
907 inhibit_window_system = 1;
909 /* Handle the -batch switch, which means don't do interactive display. */
910 noninteractive = 0;
911 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
913 noninteractive = 1;
914 Vundo_outer_limit = Qnil;
916 if (argmatch (argv, argc, "-script", "--script", 3, &junk, &skip_args))
918 noninteractive = 1; /* Set batch mode. */
919 /* Convert --script to -scriptload, un-skip it, and sort again
920 so that it will be handled in proper sequence. */
921 /* FIXME broken for --script=FILE - is that supposed to work? */
922 argv[skip_args - 1] = (char *) "-scriptload";
923 skip_args -= 2;
924 sort_args (argc, argv);
927 /* Handle the --help option, which gives a usage message. */
928 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
930 printf (USAGE1, argv[0], USAGE2);
931 printf (USAGE3);
932 printf (USAGE4);
933 exit (0);
936 if (argmatch (argv, argc, "-daemon", "--daemon", 5, NULL, &skip_args)
937 || argmatch (argv, argc, "-daemon", "--daemon", 5, &dname_arg, &skip_args))
939 #ifndef DOS_NT
940 pid_t f;
942 /* Start as a daemon: fork a new child process which will run the
943 rest of the initialization code, then exit.
945 Detaching a daemon requires the following steps:
946 - fork
947 - setsid
948 - exit the parent
949 - close the tty file-descriptors
951 We only want to do the last 2 steps once the daemon is ready to
952 serve requests, i.e. after loading .emacs (initialization).
953 OTOH initialization may start subprocesses (e.g. ispell) and these
954 should be run from the proper process (the one that will end up
955 running as daemon) and with the proper "session id" in order for
956 them to keep working after detaching, so fork and setsid need to be
957 performed before initialization.
959 We want to avoid exiting before the server socket is ready, so
960 use a pipe for synchronization. The parent waits for the child
961 to close its end of the pipe (using `daemon-initialized')
962 before exiting. */
963 if (pipe (daemon_pipe) == -1)
965 fprintf (stderr, "Cannot pipe!\n");
966 exit (1);
969 #ifndef DAEMON_MUST_EXEC
970 #ifdef USE_GTK
971 fprintf (stderr, "\nWarning: due to a long standing Gtk+ bug\nhttp://bugzilla.gnome.org/show_bug.cgi?id=85715\n\
972 Emacs might crash when run in daemon mode and the X11 connection is unexpectedly lost.\n\
973 Using an Emacs configured with --with-x-toolkit=lucid does not have this problem.\n");
974 #endif /* USE_GTK */
975 f = fork ();
976 #else /* DAEMON_MUST_EXEC */
977 if (!dname_arg || !strchr (dname_arg, '\n'))
978 f = fork (); /* in orig */
979 else
980 f = 0; /* in exec'd */
981 #endif /* !DAEMON_MUST_EXEC */
982 if (f > 0)
984 int retval;
985 char buf[1];
987 /* Close unused writing end of the pipe. */
988 close (daemon_pipe[1]);
990 /* Just wait for the child to close its end of the pipe. */
993 retval = read (daemon_pipe[0], &buf, 1);
995 while (retval == -1 && errno == EINTR);
997 if (retval < 0)
999 fprintf (stderr, "Error reading status from child\n");
1000 exit (1);
1002 else if (retval == 0)
1004 fprintf (stderr, "Error: server did not start correctly\n");
1005 exit (1);
1008 close (daemon_pipe[0]);
1009 exit (0);
1011 if (f < 0)
1013 fprintf (stderr, "Cannot fork!\n");
1014 exit (1);
1017 #ifdef DAEMON_MUST_EXEC
1019 /* In orig process, forked as child, OR in exec'd. */
1020 if (!dname_arg || !strchr (dname_arg, '\n'))
1021 { /* In orig, child: now exec w/special daemon name. */
1022 char fdStr[80];
1023 int fdStrlen =
1024 snprintf (fdStr, sizeof fdStr,
1025 "--daemon=\n%d,%d\n%s", daemon_pipe[0],
1026 daemon_pipe[1], dname_arg ? dname_arg : "");
1028 if (! (0 <= fdStrlen && fdStrlen < sizeof fdStr))
1030 fprintf (stderr, "daemon: child name too long\n");
1031 exit (1);
1034 argv[skip_args] = fdStr;
1036 execvp (argv[0], argv);
1037 fprintf (stderr, "emacs daemon: exec failed: %d\n", errno);
1038 exit (1);
1041 /* In exec'd: parse special dname into pipe and name info. */
1042 if (!dname_arg || !strchr (dname_arg, '\n')
1043 || strlen (dname_arg) < 1 || strlen (dname_arg) > 70)
1045 fprintf (stderr, "emacs daemon: daemon name absent or too long\n");
1046 exit (1);
1048 dname_arg2[0] = '\0';
1049 sscanf (dname_arg, "\n%d,%d\n%s", &(daemon_pipe[0]), &(daemon_pipe[1]),
1050 dname_arg2);
1051 dname_arg = *dname_arg2 ? dname_arg2 : NULL;
1053 #endif /* DAEMON_MUST_EXEC */
1055 if (dname_arg)
1056 daemon_name = xstrdup (dname_arg);
1057 /* Close unused reading end of the pipe. */
1058 close (daemon_pipe[0]);
1059 /* Make sure that the used end of the pipe is closed on exec, so
1060 that it is not accessible to programs started from .emacs. */
1061 fcntl (daemon_pipe[1], F_SETFD, FD_CLOEXEC);
1063 setsid ();
1064 #else /* DOS_NT */
1065 fprintf (stderr, "This platform does not support the -daemon flag.\n");
1066 exit (1);
1067 #endif /* DOS_NT */
1070 #if defined (HAVE_PTHREAD) && !defined (SYSTEM_MALLOC) && !defined (DOUG_LEA_MALLOC)
1071 if (! noninteractive)
1073 extern void malloc_enable_thread (void);
1075 malloc_enable_thread ();
1077 #endif
1079 init_signals (dumping);
1081 noninteractive1 = noninteractive;
1083 /* Perform basic initializations (not merely interning symbols). */
1085 if (!initialized)
1087 init_alloc_once ();
1088 init_obarray ();
1089 init_eval_once ();
1090 init_charset_once ();
1091 init_coding_once ();
1092 init_syntax_once (); /* Create standard syntax table. */
1093 init_category_once (); /* Create standard category table. */
1094 init_casetab_once (); /* Must be done before init_buffer_once. */
1095 init_buffer_once (); /* Create buffer table and some buffers. */
1096 init_minibuf_once (); /* Create list of minibuffers. */
1097 /* Must precede init_window_once. */
1099 /* Call syms_of_xfaces before init_window_once because that
1100 function creates Vterminal_frame. Termcap frames now use
1101 faces, and the face implementation uses some symbols as
1102 face names. */
1103 syms_of_xfaces ();
1104 /* XXX syms_of_keyboard uses some symbols in keymap.c. It would
1105 be better to arrange things not to have this dependency. */
1106 syms_of_keymap ();
1107 /* Call syms_of_keyboard before init_window_once because
1108 keyboard sets up symbols that include some face names that
1109 the X support will want to use. This can happen when
1110 CANNOT_DUMP is defined. */
1111 syms_of_keyboard ();
1113 /* Called before syms_of_fileio, because it sets up Qerror_condition. */
1114 syms_of_data ();
1115 syms_of_fns (); /* Before syms_of_charset which uses hashtables. */
1116 syms_of_fileio ();
1117 /* Before syms_of_coding to initialize Vgc_cons_threshold. */
1118 syms_of_alloc ();
1119 /* May call Ffuncall and so GC, thus the latter should be initialized. */
1120 init_print_once ();
1121 /* Before syms_of_coding because it initializes Qcharsetp. */
1122 syms_of_charset ();
1123 /* Before init_window_once, because it sets up the
1124 Vcoding_system_hash_table. */
1125 syms_of_coding (); /* This should be after syms_of_fileio. */
1127 init_window_once (); /* Init the window system. */
1128 #ifdef HAVE_WINDOW_SYSTEM
1129 init_fringe_once (); /* Swap bitmaps if necessary. */
1130 #endif /* HAVE_WINDOW_SYSTEM */
1133 init_alloc ();
1135 if (do_initial_setlocale)
1137 fixup_locale ();
1138 Vsystem_messages_locale = Vprevious_system_messages_locale;
1139 Vsystem_time_locale = Vprevious_system_time_locale;
1142 init_eval ();
1143 init_atimer ();
1144 running_asynch_code = 0;
1145 init_random ();
1147 no_loadup
1148 = argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args);
1150 no_site_lisp
1151 = argmatch (argv, argc, "-nsl", "--no-site-lisp", 11, NULL, &skip_args);
1153 #ifdef HAVE_NS
1154 ns_pool = ns_alloc_autorelease_pool ();
1155 if (!noninteractive)
1157 #ifdef NS_IMPL_COCOA
1158 if (skip_args < argc)
1160 /* FIXME: Do the right thing if getenv returns NULL, or if
1161 chdir fails. */
1162 if (!strncmp (argv[skip_args], "-psn", 4))
1164 skip_args += 1;
1165 chdir (getenv ("HOME"));
1167 else if (skip_args+1 < argc && !strncmp (argv[skip_args+1], "-psn", 4))
1169 skip_args += 2;
1170 chdir (getenv ("HOME"));
1173 #endif /* COCOA */
1175 #endif /* HAVE_NS */
1177 #ifdef HAVE_X_WINDOWS
1178 /* Stupid kludge to catch command-line display spec. We can't
1179 handle this argument entirely in window system dependent code
1180 because we don't even know which window system dependent code
1181 to run until we've recognized this argument. */
1183 char *displayname = 0;
1184 int count_before = skip_args;
1186 /* Skip any number of -d options, but only use the last one. */
1187 while (1)
1189 int count_before_this = skip_args;
1191 if (argmatch (argv, argc, "-d", "--display", 3, &displayname, &skip_args))
1192 display_arg = 1;
1193 else if (argmatch (argv, argc, "-display", 0, 3, &displayname, &skip_args))
1194 display_arg = 1;
1195 else
1196 break;
1198 count_before = count_before_this;
1201 /* If we have the form --display=NAME,
1202 convert it into -d name.
1203 This requires inserting a new element into argv. */
1204 if (displayname && count_before < skip_args)
1206 if (skip_args == count_before + 1)
1208 memmove (argv + count_before + 3, argv + count_before + 2,
1209 (argc - (count_before + 2)) * sizeof *argv);
1210 argv[count_before + 2] = displayname;
1211 argc++;
1213 argv[count_before + 1] = (char *) "-d";
1216 if (! no_site_lisp)
1218 if (argmatch (argv, argc, "-Q", "--quick", 3, NULL, &skip_args)
1219 || argmatch (argv, argc, "-quick", 0, 2, NULL, &skip_args))
1220 no_site_lisp = 1;
1223 /* Don't actually discard this arg. */
1224 skip_args = count_before;
1226 #else /* !HAVE_X_WINDOWS */
1227 if (! no_site_lisp)
1229 int count_before = skip_args;
1231 if (argmatch (argv, argc, "-Q", "--quick", 3, NULL, &skip_args)
1232 || argmatch (argv, argc, "-quick", 0, 2, NULL, &skip_args))
1233 no_site_lisp = 1;
1235 skip_args = count_before;
1237 #endif
1239 /* argmatch must not be used after here,
1240 except when building temacs
1241 because the -d argument has not been skipped in skip_args. */
1243 #ifdef MSDOS
1244 /* Call early 'cause init_environment needs it. */
1245 init_dosfns ();
1246 /* Set defaults for several environment variables. */
1247 if (initialized)
1248 init_environment (argc, argv, skip_args);
1249 else
1250 tzset ();
1251 #endif /* MSDOS */
1253 #ifdef WINDOWSNT
1254 globals_of_w32 ();
1255 globals_of_w32notify ();
1256 /* Initialize environment from registry settings. */
1257 init_environment (argv);
1258 init_ntproc (dumping); /* must precede init_editfns. */
1259 #endif
1261 /* Initialize and GC-protect Vinitial_environment and
1262 Vprocess_environment before set_initial_environment fills them
1263 in. */
1264 if (!initialized)
1265 syms_of_callproc ();
1266 /* egetenv is a pretty low-level facility, which may get called in
1267 many circumstances; it seems flimsy to put off initializing it
1268 until calling init_callproc. Do not do it when dumping. */
1269 if (! dumping)
1270 set_initial_environment ();
1272 /* AIX crashes are reported in system versions 3.2.3 and 3.2.4
1273 if this is not done. Do it after set_global_environment so that we
1274 don't pollute Vglobal_environment. */
1275 /* Setting LANG here will defeat the startup locale processing... */
1276 #ifdef AIX
1277 xputenv ("LANG=C");
1278 #endif
1280 init_buffer (); /* Init default directory of main buffer. */
1282 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */
1283 init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */
1285 if (initialized)
1287 /* Erase any pre-dump messages in the message log, to avoid confusion. */
1288 Lisp_Object old_log_max;
1289 old_log_max = Vmessage_log_max;
1290 XSETFASTINT (Vmessage_log_max, 0);
1291 message_dolog ("", 0, 1, 0);
1292 Vmessage_log_max = old_log_max;
1295 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */
1296 init_fileio ();
1297 init_lread ();
1298 #ifdef WINDOWSNT
1299 /* Check to see if Emacs has been installed correctly. */
1300 check_windows_init_file ();
1301 #endif
1303 /* Intern the names of all standard functions and variables;
1304 define standard keys. */
1306 if (!initialized)
1308 /* The basic levels of Lisp must come first. Note that
1309 syms_of_data and some others have already been called. */
1310 syms_of_chartab ();
1311 syms_of_lread ();
1312 syms_of_print ();
1313 syms_of_eval ();
1314 syms_of_floatfns ();
1316 syms_of_buffer ();
1317 syms_of_bytecode ();
1318 syms_of_callint ();
1319 syms_of_casefiddle ();
1320 syms_of_casetab ();
1321 syms_of_category ();
1322 syms_of_ccl ();
1323 syms_of_character ();
1324 syms_of_cmds ();
1325 syms_of_dired ();
1326 syms_of_display ();
1327 syms_of_doc ();
1328 syms_of_editfns ();
1329 syms_of_emacs ();
1330 syms_of_filelock ();
1331 syms_of_indent ();
1332 syms_of_insdel ();
1333 /* syms_of_keymap (); */
1334 syms_of_macros ();
1335 syms_of_marker ();
1336 syms_of_minibuf ();
1337 syms_of_process ();
1338 syms_of_search ();
1339 syms_of_frame ();
1340 syms_of_syntax ();
1341 syms_of_terminal ();
1342 syms_of_term ();
1343 syms_of_undo ();
1344 #ifdef HAVE_SOUND
1345 syms_of_sound ();
1346 #endif
1347 syms_of_textprop ();
1348 syms_of_composite ();
1349 #ifdef WINDOWSNT
1350 syms_of_ntproc ();
1351 #endif /* WINDOWSNT */
1352 #if defined CYGWIN
1353 syms_of_cygw32 ();
1354 #endif
1355 syms_of_window ();
1356 syms_of_xdisp ();
1357 syms_of_font ();
1358 #ifdef HAVE_WINDOW_SYSTEM
1359 syms_of_fringe ();
1360 syms_of_image ();
1361 #endif /* HAVE_WINDOW_SYSTEM */
1362 #ifdef HAVE_X_WINDOWS
1363 syms_of_xterm ();
1364 syms_of_xfns ();
1365 syms_of_xmenu ();
1366 syms_of_fontset ();
1367 syms_of_xsettings ();
1368 #ifdef HAVE_X_SM
1369 syms_of_xsmfns ();
1370 #endif
1371 #ifdef HAVE_X11
1372 syms_of_xselect ();
1373 #endif
1374 #endif /* HAVE_X_WINDOWS */
1376 #ifdef HAVE_LIBXML2
1377 syms_of_xml ();
1378 #endif
1380 syms_of_menu ();
1382 #ifdef HAVE_NTGUI
1383 syms_of_w32term ();
1384 syms_of_w32fns ();
1385 syms_of_w32menu ();
1386 syms_of_fontset ();
1387 #endif /* HAVE_NTGUI */
1389 #if defined WINDOWSNT || defined HAVE_NTGUI
1390 syms_of_w32select ();
1391 #endif
1393 #ifdef MSDOS
1394 syms_of_xmenu ();
1395 syms_of_dosfns ();
1396 syms_of_msdos ();
1397 syms_of_win16select ();
1398 #endif /* MSDOS */
1400 #ifdef HAVE_NS
1401 syms_of_nsterm ();
1402 syms_of_nsfns ();
1403 syms_of_nsmenu ();
1404 syms_of_nsselect ();
1405 syms_of_fontset ();
1406 #endif /* HAVE_NS */
1408 #ifdef HAVE_GNUTLS
1409 syms_of_gnutls ();
1410 #endif
1412 #ifdef HAVE_INOTIFY
1413 syms_of_inotify ();
1414 #endif /* HAVE_INOTIFY */
1416 #ifdef HAVE_DBUS
1417 syms_of_dbusbind ();
1418 #endif /* HAVE_DBUS */
1420 #ifdef WINDOWSNT
1421 syms_of_ntterm ();
1422 syms_of_w32notify ();
1423 #endif /* WINDOWSNT */
1425 syms_of_profiler ();
1427 keys_of_casefiddle ();
1428 keys_of_cmds ();
1429 keys_of_buffer ();
1430 keys_of_keyboard ();
1431 keys_of_keymap ();
1432 keys_of_window ();
1434 else
1436 /* Initialization that must be done even if the global variable
1437 initialized is non zero. */
1438 #ifdef HAVE_NTGUI
1439 globals_of_w32font ();
1440 globals_of_w32fns ();
1441 globals_of_w32menu ();
1442 #endif /* HAVE_NTGUI */
1444 #if defined WINDOWSNT || defined HAVE_NTGUI
1445 globals_of_w32select ();
1446 #endif
1449 init_charset ();
1451 init_editfns (); /* init_process_emacs uses Voperating_system_release. */
1452 init_process_emacs (); /* init_display uses add_keyboard_wait_descriptor. */
1453 init_keyboard (); /* This too must precede init_sys_modes. */
1454 if (!noninteractive)
1455 init_display (); /* Determine terminal type. Calls init_sys_modes. */
1456 init_xdisp ();
1457 #ifdef HAVE_WINDOW_SYSTEM
1458 init_fringe ();
1459 #endif /* HAVE_WINDOW_SYSTEM */
1460 init_macros ();
1461 init_window ();
1462 init_font ();
1464 if (!initialized)
1466 char *file;
1467 /* Handle -l loadup, args passed by Makefile. */
1468 if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args))
1469 Vtop_level = Fcons (intern_c_string ("load"),
1470 Fcons (build_string (file), Qnil));
1471 /* Unless next switch is -nl, load "loadup.el" first thing. */
1472 if (! no_loadup)
1473 Vtop_level = Fcons (intern_c_string ("load"),
1474 Fcons (build_string ("loadup.el"), Qnil));
1477 if (initialized)
1479 #ifdef HAVE_TZSET
1481 /* If the execution TZ happens to be the same as the dump TZ,
1482 change it to some other value and then change it back,
1483 to force the underlying implementation to reload the TZ info.
1484 This is needed on implementations that load TZ info from files,
1485 since the TZ file contents may differ between dump and execution. */
1486 char *tz = getenv ("TZ");
1487 if (tz && !strcmp (tz, dump_tz))
1489 ++*tz;
1490 tzset ();
1491 --*tz;
1494 #endif
1497 /* Set up for profiling. This is known to work on FreeBSD,
1498 GNU/Linux and MinGW. It might work on some other systems too.
1499 Give it a try and tell us if it works on your system. To compile
1500 for profiling, use the configure option --enable-profiling. */
1501 #if defined (__FreeBSD__) || defined (GNU_LINUX) || defined (__MINGW32__)
1502 #ifdef PROFILING
1503 if (initialized)
1505 #ifdef __MINGW32__
1506 extern unsigned char etext asm ("etext");
1507 #else
1508 extern char etext;
1509 #endif
1511 atexit (_mcleanup);
1512 monstartup ((uintptr_t) __executable_start, (uintptr_t) &etext);
1514 else
1515 moncontrol (0);
1516 #endif
1517 #endif
1519 initialized = 1;
1521 #ifdef LOCALTIME_CACHE
1522 /* Some versions of localtime have a bug. They cache the value of the time
1523 zone rather than looking it up every time. Since localtime() is
1524 called to bolt the undumping time into the undumped emacs, this
1525 results in localtime ignoring the TZ environment variable.
1526 This flushes the new TZ value into localtime. */
1527 tzset ();
1528 #endif /* defined (LOCALTIME_CACHE) */
1530 /* Enter editor command loop. This never returns. */
1531 Frecursive_edit ();
1532 /* NOTREACHED */
1533 return 0;
1536 /* Sort the args so we can find the most important ones
1537 at the beginning of argv. */
1539 /* First, here's a table of all the standard options. */
1541 struct standard_args
1543 const char *name;
1544 const char *longname;
1545 int priority;
1546 int nargs;
1549 static const struct standard_args standard_args[] =
1551 { "-version", "--version", 150, 0 },
1552 { "-chdir", "--chdir", 130, 1 },
1553 { "-t", "--terminal", 120, 1 },
1554 { "-nw", "--no-window-system", 110, 0 },
1555 { "-nw", "--no-windows", 110, 0 },
1556 { "-batch", "--batch", 100, 0 },
1557 { "-script", "--script", 100, 1 },
1558 { "-daemon", "--daemon", 99, 0 },
1559 { "-help", "--help", 90, 0 },
1560 { "-nl", "--no-loadup", 70, 0 },
1561 { "-nsl", "--no-site-lisp", 65, 0 },
1562 /* -d must come last before the options handled in startup.el. */
1563 { "-d", "--display", 60, 1 },
1564 { "-display", 0, 60, 1 },
1565 /* Now for the options handled in `command-line' (startup.el). */
1566 /* (Note that to imply -nsl, -Q is partially handled here.) */
1567 { "-Q", "--quick", 55, 0 },
1568 { "-quick", 0, 55, 0 },
1569 { "-q", "--no-init-file", 50, 0 },
1570 { "-no-init-file", 0, 50, 0 },
1571 { "-no-site-file", "--no-site-file", 40, 0 },
1572 { "-u", "--user", 30, 1 },
1573 { "-user", 0, 30, 1 },
1574 { "-debug-init", "--debug-init", 20, 0 },
1575 { "-iconic", "--iconic", 15, 0 },
1576 { "-D", "--basic-display", 12, 0},
1577 { "-basic-display", 0, 12, 0},
1578 { "-nbc", "--no-blinking-cursor", 12, 0 },
1579 /* Now for the options handled in `command-line-1' (startup.el). */
1580 { "-nbi", "--no-bitmap-icon", 10, 0 },
1581 { "-bg", "--background-color", 10, 1 },
1582 { "-background", 0, 10, 1 },
1583 { "-fg", "--foreground-color", 10, 1 },
1584 { "-foreground", 0, 10, 1 },
1585 { "-bd", "--border-color", 10, 1 },
1586 { "-bw", "--border-width", 10, 1 },
1587 { "-ib", "--internal-border", 10, 1 },
1588 { "-ms", "--mouse-color", 10, 1 },
1589 { "-cr", "--cursor-color", 10, 1 },
1590 { "-fn", "--font", 10, 1 },
1591 { "-font", 0, 10, 1 },
1592 { "-fs", "--fullscreen", 10, 0 },
1593 { "-fw", "--fullwidth", 10, 0 },
1594 { "-fh", "--fullheight", 10, 0 },
1595 { "-mm", "--maximized", 10, 0 },
1596 { "-g", "--geometry", 10, 1 },
1597 { "-geometry", 0, 10, 1 },
1598 { "-T", "--title", 10, 1 },
1599 { "-title", 0, 10, 1 },
1600 { "-name", "--name", 10, 1 },
1601 { "-xrm", "--xrm", 10, 1 },
1602 { "-parent-id", "--parent-id", 10, 1 },
1603 { "-r", "--reverse-video", 5, 0 },
1604 { "-rv", 0, 5, 0 },
1605 { "-reverse", 0, 5, 0 },
1606 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1607 { "-vb", "--vertical-scroll-bars", 5, 0 },
1608 { "-color", "--color", 5, 0},
1609 { "-no-splash", "--no-splash", 3, 0 },
1610 { "-no-desktop", "--no-desktop", 3, 0 },
1611 #ifdef HAVE_NS
1612 { "-NSAutoLaunch", 0, 5, 1 },
1613 { "-NXAutoLaunch", 0, 5, 1 },
1614 { "-disable-font-backend", "--disable-font-backend", 65, 0 },
1615 { "-_NSMachLaunch", 0, 85, 1 },
1616 { "-MachLaunch", 0, 85, 1 },
1617 { "-macosx", 0, 85, 0 },
1618 { "-NSHost", 0, 85, 1 },
1619 #endif
1620 /* These have the same priority as ordinary file name args,
1621 so they are not reordered with respect to those. */
1622 { "-L", "--directory", 0, 1 },
1623 { "-directory", 0, 0, 1 },
1624 { "-l", "--load", 0, 1 },
1625 { "-load", 0, 0, 1 },
1626 /* This has no longname, because using --scriptload confuses sort_args,
1627 because then the --script long option seems to match twice; ie
1628 you can't have a long option which is a prefix of another long
1629 option. In any case, this is entirely an internal option. */
1630 { "-scriptload", NULL, 0, 1 },
1631 { "-f", "--funcall", 0, 1 },
1632 { "-funcall", 0, 0, 1 },
1633 { "-eval", "--eval", 0, 1 },
1634 { "-execute", "--execute", 0, 1 },
1635 { "-find-file", "--find-file", 0, 1 },
1636 { "-visit", "--visit", 0, 1 },
1637 { "-file", "--file", 0, 1 },
1638 { "-insert", "--insert", 0, 1 },
1639 #ifdef HAVE_NS
1640 { "-NXOpen", 0, 0, 1 },
1641 { "-NXOpenTemp", 0, 0, 1 },
1642 { "-NSOpen", 0, 0, 1 },
1643 { "-NSOpenTemp", 0, 0, 1 },
1644 { "-GSFilePath", 0, 0, 1 },
1645 #endif
1646 /* This should be processed after ordinary file name args and the like. */
1647 { "-kill", "--kill", -10, 0 },
1650 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1651 so that the highest priority ones come first.
1652 Do not change the order of elements of equal priority.
1653 If an option takes an argument, keep it and its argument together.
1655 If an option that takes no argument appears more
1656 than once, eliminate all but one copy of it. */
1658 static void
1659 sort_args (int argc, char **argv)
1661 char **new = xmalloc (argc * sizeof *new);
1662 /* For each element of argv,
1663 the corresponding element of options is:
1664 0 for an option that takes no arguments,
1665 1 for an option that takes one argument, etc.
1666 -1 for an ordinary non-option argument. */
1667 int *options = xnmalloc (argc, sizeof *options);
1668 int *priority = xnmalloc (argc, sizeof *priority);
1669 int to = 1;
1670 int incoming_used = 1;
1671 int from;
1672 int i;
1674 /* Categorize all the options,
1675 and figure out which argv elts are option arguments. */
1676 for (from = 1; from < argc; from++)
1678 options[from] = -1;
1679 priority[from] = 0;
1680 if (argv[from][0] == '-')
1682 int match;
1684 /* If we have found "--", don't consider
1685 any more arguments as options. */
1686 if (argv[from][1] == '-' && argv[from][2] == 0)
1688 /* Leave the "--", and everything following it, at the end. */
1689 for (; from < argc; from++)
1691 priority[from] = -100;
1692 options[from] = -1;
1694 break;
1697 /* Look for a match with a known old-fashioned option. */
1698 for (i = 0; i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1699 if (!strcmp (argv[from], standard_args[i].name))
1701 options[from] = standard_args[i].nargs;
1702 priority[from] = standard_args[i].priority;
1703 if (from + standard_args[i].nargs >= argc)
1704 fatal ("Option `%s' requires an argument\n", argv[from]);
1705 from += standard_args[i].nargs;
1706 goto done;
1709 /* Look for a match with a known long option.
1710 MATCH is -1 if no match so far, -2 if two or more matches so far,
1711 >= 0 (the table index of the match) if just one match so far. */
1712 if (argv[from][1] == '-')
1714 char const *equals = strchr (argv[from], '=');
1715 ptrdiff_t thislen =
1716 equals ? equals - argv[from] : strlen (argv[from]);
1718 match = -1;
1720 for (i = 0;
1721 i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1722 if (standard_args[i].longname
1723 && !strncmp (argv[from], standard_args[i].longname,
1724 thislen))
1726 if (match == -1)
1727 match = i;
1728 else
1729 match = -2;
1732 /* If we found exactly one match, use that. */
1733 if (match >= 0)
1735 options[from] = standard_args[match].nargs;
1736 priority[from] = standard_args[match].priority;
1737 /* If --OPTION=VALUE syntax is used,
1738 this option uses just one argv element. */
1739 if (equals != 0)
1740 options[from] = 0;
1741 if (from + options[from] >= argc)
1742 fatal ("Option `%s' requires an argument\n", argv[from]);
1743 from += options[from];
1745 /* FIXME When match < 0, shouldn't there be some error,
1746 or at least indication to the user that there was a
1747 problem? */
1749 done: ;
1753 /* Copy the arguments, in order of decreasing priority, to NEW. */
1754 new[0] = argv[0];
1755 while (incoming_used < argc)
1757 int best = -1;
1758 int best_priority = -9999;
1760 /* Find the highest priority remaining option.
1761 If several have equal priority, take the first of them. */
1762 for (from = 1; from < argc; from++)
1764 if (argv[from] != 0 && priority[from] > best_priority)
1766 best_priority = priority[from];
1767 best = from;
1769 /* Skip option arguments--they are tied to the options. */
1770 if (options[from] > 0)
1771 from += options[from];
1774 if (best < 0)
1775 emacs_abort ();
1777 /* Copy the highest priority remaining option, with its args, to NEW.
1778 Unless it is a duplicate of the previous one. */
1779 if (! (options[best] == 0
1780 && ! strcmp (new[to - 1], argv[best])))
1782 new[to++] = argv[best];
1783 for (i = 0; i < options[best]; i++)
1784 new[to++] = argv[best + i + 1];
1787 incoming_used += 1 + (options[best] > 0 ? options[best] : 0);
1789 /* Clear out this option in ARGV. */
1790 argv[best] = 0;
1791 for (i = 0; i < options[best]; i++)
1792 argv[best + i + 1] = 0;
1795 /* If duplicate options were deleted, fill up extra space with null ptrs. */
1796 while (to < argc)
1797 new[to++] = 0;
1799 memcpy (argv, new, sizeof (char *) * argc);
1801 xfree (options);
1802 xfree (new);
1803 xfree (priority);
1806 DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P",
1807 doc: /* Exit the Emacs job and kill it.
1808 If ARG is an integer, return ARG as the exit program code.
1809 If ARG is a string, stuff it as keyboard input.
1811 This function is called upon receipt of the signals SIGTERM
1812 or SIGHUP, and upon SIGINT in batch mode.
1814 The value of `kill-emacs-hook', if not void,
1815 is a list of functions (of no args),
1816 all of which are called before Emacs is actually killed. */)
1817 (Lisp_Object arg)
1819 struct gcpro gcpro1;
1820 int exit_code;
1822 GCPRO1 (arg);
1824 if (feof (stdin))
1825 arg = Qt;
1827 /* Fsignal calls emacs_abort () if it sees that waiting_for_input is
1828 set. */
1829 waiting_for_input = 0;
1830 Frun_hooks (1, &Qkill_emacs_hook);
1831 UNGCPRO;
1833 #ifdef HAVE_X_WINDOWS
1834 /* Transfer any clipboards we own to the clipboard manager. */
1835 x_clipboard_manager_save_all ();
1836 #endif
1838 shut_down_emacs (0, STRINGP (arg) ? arg : Qnil);
1840 #ifdef HAVE_NS
1841 ns_release_autorelease_pool (ns_pool);
1842 #endif
1844 /* If we have an auto-save list file,
1845 kill it because we are exiting Emacs deliberately (not crashing).
1846 Do it after shut_down_emacs, which does an auto-save. */
1847 if (STRINGP (Vauto_save_list_file_name))
1848 unlink (SSDATA (Vauto_save_list_file_name));
1850 if (INTEGERP (arg))
1851 exit_code = (XINT (arg) < 0
1852 ? XINT (arg) | INT_MIN
1853 : XINT (arg) & INT_MAX);
1854 else
1855 exit_code = EXIT_SUCCESS;
1856 exit (exit_code);
1860 /* Perform an orderly shutdown of Emacs. Autosave any modified
1861 buffers, kill any child processes, clean up the terminal modes (if
1862 we're in the foreground), and other stuff like that. Don't perform
1863 any redisplay; this may be called when Emacs is shutting down in
1864 the background, or after its X connection has died.
1866 If SIG is a signal number, print a message for it.
1868 This is called by fatal signal handlers, X protocol error handlers,
1869 and Fkill_emacs. */
1871 void
1872 shut_down_emacs (int sig, Lisp_Object stuff)
1874 /* Prevent running of hooks from now on. */
1875 Vrun_hooks = Qnil;
1877 /* Don't update display from now on. */
1878 Vinhibit_redisplay = Qt;
1880 /* If we are controlling the terminal, reset terminal modes. */
1881 #ifndef DOS_NT
1883 pid_t pgrp = getpgrp ();
1884 pid_t tpgrp = tcgetpgrp (0);
1885 if ((tpgrp != -1) && tpgrp == pgrp)
1887 reset_all_sys_modes ();
1888 if (sig && sig != SIGTERM)
1890 static char const format[] = "Fatal error %d: ";
1891 char buf[sizeof format - 2 + INT_STRLEN_BOUND (int)];
1892 int buflen = sprintf (buf, format, sig);
1893 char const *sig_desc = safe_strsignal (sig);
1894 ignore_value (write (STDERR_FILENO, buf, buflen));
1895 ignore_value (write (STDERR_FILENO, sig_desc, strlen (sig_desc)));
1899 #else
1900 fflush (stdout);
1901 reset_all_sys_modes ();
1902 #endif
1904 stuff_buffered_input (stuff);
1906 inhibit_sentinels = 1;
1907 kill_buffer_processes (Qnil);
1908 Fdo_auto_save (Qt, Qnil);
1910 #ifdef CLASH_DETECTION
1911 unlock_all_files ();
1912 #endif
1914 /* There is a tendency for a SIGIO signal to arrive within exit,
1915 and cause a SIGHUP because the input descriptor is already closed. */
1916 unrequest_sigio ();
1917 ignore_sigio ();
1919 /* Do this only if terminating normally, we want glyph matrices
1920 etc. in a core dump. */
1921 if (sig == 0 || sig == SIGTERM)
1923 check_glyph_memory ();
1924 check_message_stack ();
1927 #ifdef MSDOS
1928 dos_cleanup ();
1929 #endif
1931 #ifdef HAVE_NS
1932 ns_term_shutdown (sig);
1933 #endif
1935 #ifdef HAVE_LIBXML2
1936 xml_cleanup_parser ();
1937 #endif
1939 #ifdef WINDOWSNT
1940 term_ntproc (0);
1941 #endif
1946 #ifndef CANNOT_DUMP
1948 #include "unexec.h"
1950 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0,
1951 doc: /* Dump current state of Emacs into executable file FILENAME.
1952 Take symbols from SYMFILE (presumably the file you executed to run Emacs).
1953 This is used in the file `loadup.el' when building Emacs.
1955 You must run Emacs in batch mode in order to dump it. */)
1956 (Lisp_Object filename, Lisp_Object symfile)
1958 Lisp_Object tem;
1959 Lisp_Object symbol;
1960 ptrdiff_t count = SPECPDL_INDEX ();
1962 check_pure_size ();
1964 if (! noninteractive)
1965 error ("Dumping Emacs works only in batch mode");
1967 #ifdef GNU_LINUX
1969 /* Warn if the gap between BSS end and heap start is larger than this. */
1970 # define MAX_HEAP_BSS_DIFF (1024*1024)
1972 if (heap_bss_diff > MAX_HEAP_BSS_DIFF)
1974 fprintf (stderr, "**************************************************\n");
1975 fprintf (stderr, "Warning: Your system has a gap between BSS and the\n");
1976 fprintf (stderr, "heap (%"pMu" bytes). This usually means that exec-shield\n",
1977 heap_bss_diff);
1978 fprintf (stderr, "or something similar is in effect. The dump may\n");
1979 fprintf (stderr, "fail because of this. See the section about\n");
1980 fprintf (stderr, "exec-shield in etc/PROBLEMS for more information.\n");
1981 fprintf (stderr, "**************************************************\n");
1983 #endif /* GNU_LINUX */
1985 /* Bind `command-line-processed' to nil before dumping,
1986 so that the dumped Emacs will process its command line
1987 and set up to work with X windows if appropriate. */
1988 symbol = intern ("command-line-processed");
1989 specbind (symbol, Qnil);
1991 CHECK_STRING (filename);
1992 filename = Fexpand_file_name (filename, Qnil);
1993 if (!NILP (symfile))
1995 CHECK_STRING (symfile);
1996 if (SCHARS (symfile))
1997 symfile = Fexpand_file_name (symfile, Qnil);
2000 tem = Vpurify_flag;
2001 Vpurify_flag = Qnil;
2003 #ifdef HAVE_TZSET
2004 set_time_zone_rule (dump_tz);
2005 #ifndef LOCALTIME_CACHE
2006 /* Force a tz reload, since set_time_zone_rule doesn't. */
2007 tzset ();
2008 #endif
2009 #endif
2011 fflush (stdout);
2012 /* Tell malloc where start of impure now is. */
2013 /* Also arrange for warnings when nearly out of space. */
2014 #ifndef SYSTEM_MALLOC
2015 #ifndef WINDOWSNT
2016 /* On Windows, this was done before dumping, and that once suffices.
2017 Meanwhile, my_edata is not valid on Windows. */
2019 extern char my_edata[];
2020 memory_warnings (my_edata, malloc_warning);
2022 #endif /* not WINDOWSNT */
2023 #endif /* not SYSTEM_MALLOC */
2024 #ifdef DOUG_LEA_MALLOC
2025 malloc_state_ptr = malloc_get_state ();
2026 #endif
2028 #ifdef USE_MMAP_FOR_BUFFERS
2029 mmap_set_vars (0);
2030 #endif
2031 unexec (SSDATA (filename), !NILP (symfile) ? SSDATA (symfile) : 0);
2032 #ifdef USE_MMAP_FOR_BUFFERS
2033 mmap_set_vars (1);
2034 #endif
2035 #ifdef DOUG_LEA_MALLOC
2036 free (malloc_state_ptr);
2037 #endif
2039 #ifdef WINDOWSNT
2040 Vlibrary_cache = Qnil;
2041 #endif
2042 #ifdef HAVE_WINDOW_SYSTEM
2043 reset_image_types ();
2044 #endif
2046 Vpurify_flag = tem;
2048 return unbind_to (count, Qnil);
2051 #endif /* not CANNOT_DUMP */
2053 #if HAVE_SETLOCALE
2054 /* Recover from setlocale (LC_ALL, ""). */
2055 void
2056 fixup_locale (void)
2058 /* The Emacs Lisp reader needs LC_NUMERIC to be "C",
2059 so that numbers are read and printed properly for Emacs Lisp. */
2060 setlocale (LC_NUMERIC, "C");
2063 /* Set system locale CATEGORY, with previous locale *PLOCALE, to
2064 DESIRED_LOCALE. */
2065 static void
2066 synchronize_locale (int category, Lisp_Object *plocale, Lisp_Object desired_locale)
2068 if (! EQ (*plocale, desired_locale))
2070 *plocale = desired_locale;
2071 setlocale (category, (STRINGP (desired_locale)
2072 ? SSDATA (desired_locale)
2073 : ""));
2077 /* Set system time locale to match Vsystem_time_locale, if possible. */
2078 void
2079 synchronize_system_time_locale (void)
2081 synchronize_locale (LC_TIME, &Vprevious_system_time_locale,
2082 Vsystem_time_locale);
2085 /* Set system messages locale to match Vsystem_messages_locale, if
2086 possible. */
2087 void
2088 synchronize_system_messages_locale (void)
2090 #ifdef LC_MESSAGES
2091 synchronize_locale (LC_MESSAGES, &Vprevious_system_messages_locale,
2092 Vsystem_messages_locale);
2093 #endif
2095 #endif /* HAVE_SETLOCALE */
2098 Lisp_Object
2099 decode_env_path (const char *evarname, const char *defalt)
2101 const char *path, *p;
2102 Lisp_Object lpath, element, tem;
2103 #ifdef WINDOWSNT
2104 bool defaulted = 0;
2105 const char *emacs_dir = egetenv ("emacs_dir");
2106 static const char *emacs_dir_env = "%emacs_dir%/";
2107 const size_t emacs_dir_len = strlen (emacs_dir_env);
2108 #endif
2110 /* It's okay to use getenv here, because this function is only used
2111 to initialize variables when Emacs starts up, and isn't called
2112 after that. */
2113 if (evarname != 0)
2114 path = getenv (evarname);
2115 else
2116 path = 0;
2117 if (!path)
2119 path = defalt;
2120 #ifdef WINDOWSNT
2121 defaulted = 1;
2122 #endif
2124 #ifdef DOS_NT
2125 /* Ensure values from the environment use the proper directory separator. */
2126 if (path)
2128 char *path_copy = alloca (strlen (path) + 1);
2129 strcpy (path_copy, path);
2130 dostounix_filename (path_copy, 0);
2131 path = path_copy;
2133 #endif
2134 lpath = Qnil;
2135 while (1)
2137 p = strchr (path, SEPCHAR);
2138 if (!p)
2139 p = path + strlen (path);
2140 element = (p - path ? make_string (path, p - path)
2141 : build_string ("."));
2142 #ifdef WINDOWSNT
2143 /* Relative file names in the default path are interpreted as
2144 being relative to $emacs_dir. */
2145 if (emacs_dir && defaulted
2146 && strncmp (path, emacs_dir_env, emacs_dir_len) == 0)
2147 element = Fexpand_file_name (Fsubstring (element,
2148 make_number (emacs_dir_len),
2149 Qnil),
2150 build_string (emacs_dir));
2151 #endif
2153 /* Add /: to the front of the name
2154 if it would otherwise be treated as magic. */
2155 tem = Ffind_file_name_handler (element, Qt);
2157 /* However, if the handler says "I'm safe",
2158 don't bother adding /:. */
2159 if (SYMBOLP (tem))
2161 Lisp_Object prop;
2162 prop = Fget (tem, intern ("safe-magic"));
2163 if (! NILP (prop))
2164 tem = Qnil;
2167 if (! NILP (tem))
2168 element = concat2 (build_string ("/:"), element);
2170 lpath = Fcons (element, lpath);
2171 if (*p)
2172 path = p + 1;
2173 else
2174 break;
2176 return Fnreverse (lpath);
2179 DEFUN ("daemonp", Fdaemonp, Sdaemonp, 0, 0, 0,
2180 doc: /* Return non-nil if the current emacs process is a daemon.
2181 If the daemon was given a name argument, return that name. */)
2182 (void)
2184 if (IS_DAEMON)
2185 if (daemon_name)
2186 return build_string (daemon_name);
2187 else
2188 return Qt;
2189 else
2190 return Qnil;
2193 DEFUN ("daemon-initialized", Fdaemon_initialized, Sdaemon_initialized, 0, 0, 0,
2194 doc: /* Mark the Emacs daemon as being initialized.
2195 This finishes the daemonization process by doing the other half of detaching
2196 from the parent process and its tty file descriptors. */)
2197 (void)
2199 int nfd;
2200 bool err = 0;
2202 if (!IS_DAEMON)
2203 error ("This function can only be called if emacs is run as a daemon");
2205 if (daemon_pipe[1] < 0)
2206 error ("The daemon has already been initialized");
2208 if (NILP (Vafter_init_time))
2209 error ("This function can only be called after loading the init files");
2211 /* Get rid of stdin, stdout and stderr. */
2212 nfd = open ("/dev/null", O_RDWR);
2213 err |= nfd < 0;
2214 err |= dup2 (nfd, 0) < 0;
2215 err |= dup2 (nfd, 1) < 0;
2216 err |= dup2 (nfd, 2) < 0;
2217 err |= close (nfd) != 0;
2219 /* Closing the pipe will notify the parent that it can exit.
2220 FIXME: In case some other process inherited the pipe, closing it here
2221 won't notify the parent because it's still open elsewhere, so we
2222 additionally send a byte, just to make sure the parent really exits.
2223 Instead, we should probably close the pipe in start-process and
2224 call-process to make sure the pipe is never inherited by
2225 subprocesses. */
2226 err |= write (daemon_pipe[1], "\n", 1) < 0;
2227 err |= close (daemon_pipe[1]) != 0;
2228 /* Set it to an invalid value so we know we've already run this function. */
2229 daemon_pipe[1] = -1;
2231 if (err)
2232 error ("I/O error during daemon initialization");
2233 return Qt;
2236 void
2237 syms_of_emacs (void)
2239 DEFSYM (Qfile_name_handler_alist, "file-name-handler-alist");
2240 DEFSYM (Qrisky_local_variable, "risky-local-variable");
2241 DEFSYM (Qkill_emacs, "kill-emacs");
2242 DEFSYM (Qkill_emacs_hook, "kill-emacs-hook");
2244 #ifndef CANNOT_DUMP
2245 defsubr (&Sdump_emacs);
2246 #endif
2248 defsubr (&Skill_emacs);
2250 defsubr (&Sinvocation_name);
2251 defsubr (&Sinvocation_directory);
2252 defsubr (&Sdaemonp);
2253 defsubr (&Sdaemon_initialized);
2255 DEFVAR_LISP ("command-line-args", Vcommand_line_args,
2256 doc: /* Args passed by shell to Emacs, as a list of strings.
2257 Many arguments are deleted from the list as they are processed. */);
2259 DEFVAR_LISP ("system-type", Vsystem_type,
2260 doc: /* The value is a symbol indicating the type of operating system you are using.
2261 Special values:
2262 `gnu' compiled for a GNU Hurd system.
2263 `gnu/linux' compiled for a GNU/Linux system.
2264 `gnu/kfreebsd' compiled for a GNU system with a FreeBSD kernel.
2265 `darwin' compiled for Darwin (GNU-Darwin, Mac OS X, ...).
2266 `ms-dos' compiled as an MS-DOS application.
2267 `windows-nt' compiled as a native W32 application.
2268 `cygwin' compiled using the Cygwin library.
2269 Anything else (in Emacs 24.1, the possibilities are: aix, berkeley-unix,
2270 hpux, irix, usg-unix-v) indicates some sort of Unix system. */);
2271 Vsystem_type = intern_c_string (SYSTEM_TYPE);
2272 /* See configure.ac (and config.nt) for the possible SYSTEM_TYPEs. */
2274 DEFVAR_LISP ("system-configuration", Vsystem_configuration,
2275 doc: /* Value is string indicating configuration Emacs was built for.
2276 On MS-Windows, the value reflects the OS flavor and version on which
2277 Emacs is running. */);
2278 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
2280 DEFVAR_LISP ("system-configuration-options", Vsystem_configuration_options,
2281 doc: /* String containing the configuration options Emacs was built with. */);
2282 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
2284 DEFVAR_BOOL ("noninteractive", noninteractive1,
2285 doc: /* Non-nil means Emacs is running without interactive terminal. */);
2287 DEFVAR_LISP ("kill-emacs-hook", Vkill_emacs_hook,
2288 doc: /* Hook run when `kill-emacs' is called.
2289 Since `kill-emacs' may be invoked when the terminal is disconnected (or
2290 in other similar situations), functions placed on this hook should not
2291 expect to be able to interact with the user. To ask for confirmation,
2292 see `kill-emacs-query-functions' instead.
2294 Before Emacs 24.1, the hook was not run in batch mode, i.e., if
2295 `noninteractive' was non-nil. */);
2296 Vkill_emacs_hook = Qnil;
2298 DEFVAR_LISP ("path-separator", Vpath_separator,
2299 doc: /* String containing the character that separates directories in
2300 search paths, such as PATH and other similar environment variables. */);
2302 char c = SEPCHAR;
2303 Vpath_separator = make_string (&c, 1);
2306 DEFVAR_LISP ("invocation-name", Vinvocation_name,
2307 doc: /* The program name that was used to run Emacs.
2308 Any directory names are omitted. */);
2310 DEFVAR_LISP ("invocation-directory", Vinvocation_directory,
2311 doc: /* The directory in which the Emacs executable was found, to run it.
2312 The value is nil if that directory's name is not known. */);
2314 DEFVAR_LISP ("installation-directory", Vinstallation_directory,
2315 doc: /* A directory within which to look for the `lib-src' and `etc' directories.
2316 In an installed Emacs, this is normally nil. It is non-nil if
2317 both `lib-src' (on MS-DOS, `info') and `etc' directories are found
2318 within the variable `invocation-directory' or its parent. For example,
2319 this is the case when running an uninstalled Emacs executable from its
2320 build directory. */);
2321 Vinstallation_directory = Qnil;
2323 DEFVAR_LISP ("system-messages-locale", Vsystem_messages_locale,
2324 doc: /* System locale for messages. */);
2325 Vsystem_messages_locale = Qnil;
2327 DEFVAR_LISP ("previous-system-messages-locale",
2328 Vprevious_system_messages_locale,
2329 doc: /* Most recently used system locale for messages. */);
2330 Vprevious_system_messages_locale = Qnil;
2332 DEFVAR_LISP ("system-time-locale", Vsystem_time_locale,
2333 doc: /* System locale for time. */);
2334 Vsystem_time_locale = Qnil;
2336 DEFVAR_LISP ("previous-system-time-locale", Vprevious_system_time_locale,
2337 doc: /* Most recently used system locale for time. */);
2338 Vprevious_system_time_locale = Qnil;
2340 DEFVAR_LISP ("before-init-time", Vbefore_init_time,
2341 doc: /* Value of `current-time' before Emacs begins initialization. */);
2342 Vbefore_init_time = Qnil;
2344 DEFVAR_LISP ("after-init-time", Vafter_init_time,
2345 doc: /* Value of `current-time' after loading the init files.
2346 This is nil during initialization. */);
2347 Vafter_init_time = Qnil;
2349 DEFVAR_BOOL ("inhibit-x-resources", inhibit_x_resources,
2350 doc: /* If non-nil, X resources, Windows Registry settings, and NS defaults are not used. */);
2351 inhibit_x_resources = 0;
2353 DEFVAR_LISP ("emacs-copyright", Vemacs_copyright,
2354 doc: /* Short copyright string for this version of Emacs. */);
2355 Vemacs_copyright = build_string (emacs_copyright);
2357 DEFVAR_LISP ("emacs-version", Vemacs_version,
2358 doc: /* Version numbers of this version of Emacs. */);
2359 Vemacs_version = build_string (emacs_version);
2361 DEFVAR_LISP ("dynamic-library-alist", Vdynamic_library_alist,
2362 doc: /* Alist of dynamic libraries vs external files implementing them.
2363 Each element is a list (LIBRARY FILE...), where the car is a symbol
2364 representing a supported external library, and the rest are strings giving
2365 alternate filenames for that library.
2367 Emacs tries to load the library from the files in the order they appear on
2368 the list; if none is loaded, the running session of Emacs won't have access
2369 to that library.
2371 Note that image types `pbm' and `xbm' do not need entries in this variable
2372 because they do not depend on external libraries and are always available.
2374 Also note that this is not a generic facility for accessing external
2375 libraries; only those already known by Emacs will be loaded. */);
2376 Vdynamic_library_alist = Qnil;
2377 Fput (intern_c_string ("dynamic-library-alist"), Qrisky_local_variable, Qt);
2379 #ifdef WINDOWSNT
2380 Vlibrary_cache = Qnil;
2381 staticpro (&Vlibrary_cache);
2382 #endif
2384 /* Make sure IS_DAEMON starts up as false. */
2385 daemon_pipe[1] = 0;