lisp/window.el: Fix previous change (2013-06-25T15:08:47Z!lekktu@gmail.com).
[emacs.git] / src / emacs.c
blob13f6d117ebc5ea7559fe2c199d06d9471453b092
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
309 #if !HAVE_SETLOCALE
310 static char *
311 setlocale (int cat, char const *locale)
313 return 0;
315 #endif
318 /* Report a fatal error due to signal SIG, output a backtrace of at
319 most BACKTRACE_LIMIT lines, and exit. */
320 _Noreturn void
321 terminate_due_to_signal (int sig, int backtrace_limit)
323 signal (sig, SIG_DFL);
324 totally_unblock_input ();
326 /* If fatal error occurs in code below, avoid infinite recursion. */
327 if (! fatal_error_in_progress)
329 fatal_error_in_progress = 1;
331 if (sig == SIGTERM || sig == SIGHUP || sig == SIGINT)
332 Fkill_emacs (make_number (sig));
334 shut_down_emacs (sig, Qnil);
335 emacs_backtrace (backtrace_limit);
338 /* Signal the same code; this time it will really be fatal.
339 Since we're in a signal handler, the signal is blocked, so we
340 have to unblock it if we want to really receive it. */
341 #ifndef MSDOS
343 sigset_t unblocked;
344 sigemptyset (&unblocked);
345 sigaddset (&unblocked, sig);
346 pthread_sigmask (SIG_UNBLOCK, &unblocked, 0);
348 #endif
350 emacs_raise (sig);
352 /* This shouldn't be executed, but it prevents a warning. */
353 exit (1);
356 /* Code for dealing with Lisp access to the Unix command line. */
358 static void
359 init_cmdargs (int argc, char **argv, int skip_args)
361 register int i;
362 Lisp_Object name, dir, handler;
363 ptrdiff_t count = SPECPDL_INDEX ();
364 Lisp_Object raw_name;
366 initial_argv = argv;
367 initial_argc = argc;
369 raw_name = build_string (argv[0]);
371 /* Add /: to the front of the name
372 if it would otherwise be treated as magic. */
373 handler = Ffind_file_name_handler (raw_name, Qt);
374 if (! NILP (handler))
375 raw_name = concat2 (build_string ("/:"), raw_name);
377 Vinvocation_name = Ffile_name_nondirectory (raw_name);
378 Vinvocation_directory = Ffile_name_directory (raw_name);
380 /* If we got no directory in argv[0], search PATH to find where
381 Emacs actually came from. */
382 if (NILP (Vinvocation_directory))
384 Lisp_Object found;
385 int yes = openp (Vexec_path, Vinvocation_name,
386 Vexec_suffixes, &found, make_number (X_OK));
387 if (yes == 1)
389 /* Add /: to the front of the name
390 if it would otherwise be treated as magic. */
391 handler = Ffind_file_name_handler (found, Qt);
392 if (! NILP (handler))
393 found = concat2 (build_string ("/:"), found);
394 Vinvocation_directory = Ffile_name_directory (found);
398 if (!NILP (Vinvocation_directory)
399 && NILP (Ffile_name_absolute_p (Vinvocation_directory)))
400 /* Emacs was started with relative path, like ./emacs.
401 Make it absolute. */
402 Vinvocation_directory = Fexpand_file_name (Vinvocation_directory, Qnil);
404 Vinstallation_directory = Qnil;
406 if (!NILP (Vinvocation_directory))
408 dir = Vinvocation_directory;
409 #ifdef WINDOWSNT
410 /* If we are running from the build directory, set DIR to the
411 src subdirectory of the Emacs tree, like on Posix
412 platforms. */
413 if (SBYTES (dir) > sizeof ("/i386/") - 1
414 && 0 == strcmp (SSDATA (dir) + SBYTES (dir) - sizeof ("/i386/") + 1,
415 "/i386/"))
416 dir = Fexpand_file_name (build_string ("../.."), dir);
417 #else /* !WINDOWSNT */
418 #endif
419 name = Fexpand_file_name (Vinvocation_name, dir);
420 while (1)
422 Lisp_Object tem, lib_src_exists;
423 Lisp_Object etc_exists, info_exists;
425 /* See if dir contains subdirs for use by Emacs.
426 Check for the ones that would exist in a build directory,
427 not including lisp and info. */
428 tem = Fexpand_file_name (build_string ("lib-src"), dir);
429 lib_src_exists = Ffile_exists_p (tem);
431 #ifdef MSDOS
432 /* MSDOS installations frequently remove lib-src, but we still
433 must set installation-directory, or else info won't find
434 its files (it uses the value of installation-directory). */
435 tem = Fexpand_file_name (build_string ("info"), dir);
436 info_exists = Ffile_exists_p (tem);
437 #else
438 info_exists = Qnil;
439 #endif
441 if (!NILP (lib_src_exists) || !NILP (info_exists))
443 tem = Fexpand_file_name (build_string ("etc"), dir);
444 etc_exists = Ffile_exists_p (tem);
445 if (!NILP (etc_exists))
447 Vinstallation_directory
448 = Ffile_name_as_directory (dir);
449 break;
453 /* See if dir's parent contains those subdirs. */
454 tem = Fexpand_file_name (build_string ("../lib-src"), dir);
455 lib_src_exists = Ffile_exists_p (tem);
458 #ifdef MSDOS
459 /* See the MSDOS commentary above. */
460 tem = Fexpand_file_name (build_string ("../info"), dir);
461 info_exists = Ffile_exists_p (tem);
462 #else
463 info_exists = Qnil;
464 #endif
466 if (!NILP (lib_src_exists) || !NILP (info_exists))
468 tem = Fexpand_file_name (build_string ("../etc"), dir);
469 etc_exists = Ffile_exists_p (tem);
470 if (!NILP (etc_exists))
472 tem = Fexpand_file_name (build_string (".."), dir);
473 Vinstallation_directory
474 = Ffile_name_as_directory (tem);
475 break;
479 /* If the Emacs executable is actually a link,
480 next try the dir that the link points into. */
481 tem = Ffile_symlink_p (name);
482 if (!NILP (tem))
484 name = Fexpand_file_name (tem, dir);
485 dir = Ffile_name_directory (name);
487 else
488 break;
492 Vcommand_line_args = Qnil;
494 for (i = argc - 1; i >= 0; i--)
496 if (i == 0 || i > skip_args)
497 /* For the moment, we keep arguments as is in unibyte strings.
498 They are decoded in the function command-line after we know
499 locale-coding-system. */
500 Vcommand_line_args
501 = Fcons (make_unibyte_string (argv[i], strlen (argv[i])),
502 Vcommand_line_args);
505 unbind_to (count, Qnil);
508 DEFUN ("invocation-name", Finvocation_name, Sinvocation_name, 0, 0, 0,
509 doc: /* Return the program name that was used to run Emacs.
510 Any directory names are omitted. */)
511 (void)
513 return Fcopy_sequence (Vinvocation_name);
516 DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory,
517 0, 0, 0,
518 doc: /* Return the directory name in which the Emacs executable was located. */)
519 (void)
521 return Fcopy_sequence (Vinvocation_directory);
525 #ifdef HAVE_TZSET
526 /* A valid but unlikely value for the TZ environment value.
527 It is OK (though a bit slower) if the user actually chooses this value. */
528 static char const dump_tz[] = "UtC0";
529 #endif
531 /* Test whether the next argument in ARGV matches SSTR or a prefix of
532 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
533 (the argument is supposed to have a value) store in *VALPTR either
534 the next argument or the portion of this one after the equal sign.
535 ARGV is read starting at position *SKIPPTR; this index is advanced
536 by the number of arguments used.
538 Too bad we can't just use getopt for all of this, but we don't have
539 enough information to do it right. */
541 static bool
542 argmatch (char **argv, int argc, const char *sstr, const char *lstr,
543 int minlen, char **valptr, int *skipptr)
545 char *p = NULL;
546 ptrdiff_t arglen;
547 char *arg;
549 /* Don't access argv[argc]; give up in advance. */
550 if (argc <= *skipptr + 1)
551 return 0;
553 arg = argv[*skipptr+1];
554 if (arg == NULL)
555 return 0;
556 if (strcmp (arg, sstr) == 0)
558 if (valptr != NULL)
560 *valptr = argv[*skipptr+2];
561 *skipptr += 2;
563 else
564 *skipptr += 1;
565 return 1;
567 arglen = (valptr != NULL && (p = strchr (arg, '=')) != NULL
568 ? p - arg : strlen (arg));
569 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
570 return 0;
571 else if (valptr == NULL)
573 *skipptr += 1;
574 return 1;
576 else if (p != NULL)
578 *valptr = p+1;
579 *skipptr += 1;
580 return 1;
582 else if (argv[*skipptr+2] != NULL)
584 *valptr = argv[*skipptr+2];
585 *skipptr += 2;
586 return 1;
588 else
590 return 0;
594 #ifdef DOUG_LEA_MALLOC
596 /* malloc can be invoked even before main (e.g. by the dynamic
597 linker), so the dumped malloc state must be restored as early as
598 possible using this special hook. */
600 static void
601 malloc_initialize_hook (void)
603 if (initialized)
605 if (!malloc_using_checking)
606 /* Work around a bug in glibc's malloc. MALLOC_CHECK_ must be
607 ignored if the heap to be restored was constructed without
608 malloc checking. Can't use unsetenv, since that calls malloc. */
610 char **p;
612 for (p = environ; p && *p; p++)
613 if (strncmp (*p, "MALLOC_CHECK_=", 14) == 0)
616 *p = p[1];
617 while (*++p);
618 break;
622 malloc_set_state (malloc_state_ptr);
623 #ifndef XMALLOC_OVERRUN_CHECK
624 free (malloc_state_ptr);
625 #endif
627 else
629 if (my_heap_start == 0)
630 my_heap_start = sbrk (0);
631 malloc_using_checking = getenv ("MALLOC_CHECK_") != NULL;
635 void (*__malloc_initialize_hook) (void) EXTERNALLY_VISIBLE = malloc_initialize_hook;
637 #endif /* DOUG_LEA_MALLOC */
639 /* Close standard output and standard error, reporting any write
640 errors as best we can. This is intended for use with atexit. */
641 static void
642 close_output_streams (void)
644 if (close_stream (stdout) != 0)
646 fprintf (stderr, "Write error to standard output: %s\n",
647 strerror (errno));
648 fflush (stderr);
649 _exit (EXIT_FAILURE);
652 if (close_stream (stderr) != 0)
653 _exit (EXIT_FAILURE);
656 /* ARGSUSED */
658 main (int argc, char **argv)
660 #if GC_MARK_STACK
661 Lisp_Object dummy;
662 #endif
663 char stack_bottom_variable;
664 bool do_initial_setlocale;
665 bool dumping;
666 int skip_args = 0;
667 #ifdef HAVE_SETRLIMIT
668 struct rlimit rlim;
669 #endif
670 bool no_loadup = 0;
671 char *junk = 0;
672 char *dname_arg = 0;
673 #ifdef DAEMON_MUST_EXEC
674 char dname_arg2[80];
675 #endif
676 char *ch_to_dir;
678 #if GC_MARK_STACK
679 stack_base = &dummy;
680 #endif
682 #ifdef G_SLICE_ALWAYS_MALLOC
683 /* This is used by the Cygwin build. */
684 xputenv ("G_SLICE=always-malloc");
685 #endif
687 #ifdef GNU_LINUX
688 if (!initialized)
690 extern char my_endbss[];
691 extern char *my_endbss_static;
693 if (my_heap_start == 0)
694 my_heap_start = sbrk (0);
696 heap_bss_diff = (char *)my_heap_start - max (my_endbss, my_endbss_static);
698 #endif
700 #if defined WINDOWSNT || defined HAVE_NTGUI
701 /* Set global variables used to detect Windows version. Do this as
702 early as possible. (unexw32.c calls this function as well, but
703 the additional call here is harmless.) */
704 cache_system_info ();
705 #endif
707 #ifdef RUN_TIME_REMAP
708 if (initialized)
709 run_time_remap (argv[0]);
710 #endif
712 /* If using unexmacosx.c (set by s/darwin.h), we must do this. */
713 #ifdef DARWIN_OS
714 if (!initialized)
715 unexec_init_emacs_zone ();
716 #endif
718 atexit (close_output_streams);
720 sort_args (argc, argv);
721 argc = 0;
722 while (argv[argc]) argc++;
724 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args))
726 const char *version, *copyright;
727 if (initialized)
729 Lisp_Object tem, tem2;
730 tem = Fsymbol_value (intern_c_string ("emacs-version"));
731 tem2 = Fsymbol_value (intern_c_string ("emacs-copyright"));
732 if (!STRINGP (tem))
734 fprintf (stderr, "Invalid value of `emacs-version'\n");
735 exit (1);
737 if (!STRINGP (tem2))
739 fprintf (stderr, "Invalid value of `emacs-copyright'\n");
740 exit (1);
742 else
744 version = SSDATA (tem);
745 copyright = SSDATA (tem2);
748 else
750 version = emacs_version;
751 copyright = emacs_copyright;
753 printf ("GNU Emacs %s\n", version);
754 printf ("%s\n", copyright);
755 printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n");
756 printf ("You may redistribute copies of Emacs\n");
757 printf ("under the terms of the GNU General Public License.\n");
758 printf ("For more information about these matters, ");
759 printf ("see the file named COPYING.\n");
760 exit (0);
763 if (argmatch (argv, argc, "-chdir", "--chdir", 4, &ch_to_dir, &skip_args))
764 if (chdir (ch_to_dir) == -1)
766 fprintf (stderr, "%s: Can't chdir to %s: %s\n",
767 argv[0], ch_to_dir, strerror (errno));
768 exit (1);
771 dumping = !initialized && (strcmp (argv[argc - 1], "dump") == 0
772 || strcmp (argv[argc - 1], "bootstrap") == 0);
774 #ifdef HAVE_PERSONALITY_LINUX32
775 if (dumping && ! getenv ("EMACS_HEAP_EXEC"))
777 /* Set this so we only do this once. */
778 xputenv ("EMACS_HEAP_EXEC=true");
780 /* A flag to turn off address randomization which is introduced
781 in linux kernel shipped with fedora core 4 */
782 #define ADD_NO_RANDOMIZE 0x0040000
783 personality (PER_LINUX32 | ADD_NO_RANDOMIZE);
784 #undef ADD_NO_RANDOMIZE
786 execvp (argv[0], argv);
788 /* If the exec fails, try to dump anyway. */
789 perror ("execvp");
791 #endif /* HAVE_PERSONALITY_LINUX32 */
793 #if defined (HAVE_SETRLIMIT) && defined (RLIMIT_STACK)
794 /* Extend the stack space available.
795 Don't do that if dumping, since some systems (e.g. DJGPP)
796 might define a smaller stack limit at that time. */
797 if (1
798 #ifndef CANNOT_DUMP
799 && (!noninteractive || initialized)
800 #endif
801 && !getrlimit (RLIMIT_STACK, &rlim))
803 long newlim;
804 extern size_t re_max_failures;
805 /* Approximate the amount regex.c needs per unit of re_max_failures. */
806 int ratio = 20 * sizeof (char *);
807 /* Then add 33% to cover the size of the smaller stacks that regex.c
808 successively allocates and discards, on its way to the maximum. */
809 ratio += ratio / 3;
810 /* Add in some extra to cover
811 what we're likely to use for other reasons. */
812 newlim = re_max_failures * ratio + 200000;
813 #ifdef __NetBSD__
814 /* NetBSD (at least NetBSD 1.2G and former) has a bug in its
815 stack allocation routine for new process that the allocation
816 fails if stack limit is not on page boundary. So, round up the
817 new limit to page boundary. */
818 newlim = (newlim + getpagesize () - 1) / getpagesize () * getpagesize ();
819 #endif
820 if (newlim > rlim.rlim_max)
822 newlim = rlim.rlim_max;
823 /* Don't let regex.c overflow the stack we have. */
824 re_max_failures = (newlim - 200000) / ratio;
826 if (rlim.rlim_cur < newlim)
827 rlim.rlim_cur = newlim;
829 setrlimit (RLIMIT_STACK, &rlim);
831 #endif /* HAVE_SETRLIMIT and RLIMIT_STACK */
833 /* Record (approximately) where the stack begins. */
834 stack_bottom = &stack_bottom_variable;
836 clearerr (stdin);
838 #ifndef SYSTEM_MALLOC
839 /* Arrange to get warning messages as memory fills up. */
840 memory_warnings (0, malloc_warning);
842 /* Call malloc at least once, to run malloc_initialize_hook.
843 Also call realloc and free for consistency. */
844 free (realloc (malloc (4), 4));
846 #endif /* not SYSTEM_MALLOC */
848 #if defined (MSDOS) || defined (WINDOWSNT)
849 /* We do all file input/output as binary files. When we need to translate
850 newlines, we do that manually. */
851 _fmode = O_BINARY;
852 #endif /* MSDOS || WINDOWSNT */
854 #ifdef MSDOS
855 if (!isatty (fileno (stdin)))
856 setmode (fileno (stdin), O_BINARY);
857 if (!isatty (fileno (stdout)))
859 fflush (stdout);
860 setmode (fileno (stdout), O_BINARY);
862 #endif /* MSDOS */
864 /* Skip initial setlocale if LC_ALL is "C", as it's not needed in that case.
865 The build procedure uses this while dumping, to ensure that the
866 dumped Emacs does not have its system locale tables initialized,
867 as that might cause screwups when the dumped Emacs starts up. */
869 char *lc_all = getenv ("LC_ALL");
870 do_initial_setlocale = ! lc_all || strcmp (lc_all, "C");
873 /* Set locale now, so that initial error messages are localized properly.
874 fixup_locale must wait until later, since it builds strings. */
875 if (do_initial_setlocale)
876 setlocale (LC_ALL, "");
878 inhibit_window_system = 0;
880 /* Handle the -t switch, which specifies filename to use as terminal. */
881 while (1)
883 char *term;
884 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
886 int result;
887 emacs_close (0);
888 emacs_close (1);
889 result = emacs_open (term, O_RDWR, 0);
890 if (result < 0 || dup (0) < 0)
892 char *errstring = strerror (errno);
893 fprintf (stderr, "%s: %s: %s\n", argv[0], term, errstring);
894 exit (1);
896 if (! isatty (0))
898 fprintf (stderr, "%s: %s: not a tty\n", argv[0], term);
899 exit (1);
901 fprintf (stderr, "Using %s\n", term);
902 #ifdef HAVE_WINDOW_SYSTEM
903 inhibit_window_system = 1; /* -t => -nw */
904 #endif
906 else
907 break;
910 /* Command line option --no-windows is deprecated and thus not mentioned
911 in the manual and usage information. */
912 if (argmatch (argv, argc, "-nw", "--no-window-system", 6, NULL, &skip_args)
913 || argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
914 inhibit_window_system = 1;
916 /* Handle the -batch switch, which means don't do interactive display. */
917 noninteractive = 0;
918 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
920 noninteractive = 1;
921 Vundo_outer_limit = Qnil;
923 if (argmatch (argv, argc, "-script", "--script", 3, &junk, &skip_args))
925 noninteractive = 1; /* Set batch mode. */
926 /* Convert --script to -scriptload, un-skip it, and sort again
927 so that it will be handled in proper sequence. */
928 /* FIXME broken for --script=FILE - is that supposed to work? */
929 argv[skip_args - 1] = (char *) "-scriptload";
930 skip_args -= 2;
931 sort_args (argc, argv);
934 /* Handle the --help option, which gives a usage message. */
935 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
937 printf (USAGE1, argv[0], USAGE2);
938 printf (USAGE3);
939 printf (USAGE4);
940 exit (0);
943 if (argmatch (argv, argc, "-daemon", "--daemon", 5, NULL, &skip_args)
944 || argmatch (argv, argc, "-daemon", "--daemon", 5, &dname_arg, &skip_args))
946 #ifndef DOS_NT
947 pid_t f;
949 /* Start as a daemon: fork a new child process which will run the
950 rest of the initialization code, then exit.
952 Detaching a daemon requires the following steps:
953 - fork
954 - setsid
955 - exit the parent
956 - close the tty file-descriptors
958 We only want to do the last 2 steps once the daemon is ready to
959 serve requests, i.e. after loading .emacs (initialization).
960 OTOH initialization may start subprocesses (e.g. ispell) and these
961 should be run from the proper process (the one that will end up
962 running as daemon) and with the proper "session id" in order for
963 them to keep working after detaching, so fork and setsid need to be
964 performed before initialization.
966 We want to avoid exiting before the server socket is ready, so
967 use a pipe for synchronization. The parent waits for the child
968 to close its end of the pipe (using `daemon-initialized')
969 before exiting. */
970 if (pipe (daemon_pipe) == -1)
972 fprintf (stderr, "Cannot pipe!\n");
973 exit (1);
976 #ifndef DAEMON_MUST_EXEC
977 #ifdef USE_GTK
978 fprintf (stderr, "\nWarning: due to a long standing Gtk+ bug\nhttp://bugzilla.gnome.org/show_bug.cgi?id=85715\n\
979 Emacs might crash when run in daemon mode and the X11 connection is unexpectedly lost.\n\
980 Using an Emacs configured with --with-x-toolkit=lucid does not have this problem.\n");
981 #endif /* USE_GTK */
982 f = fork ();
983 #else /* DAEMON_MUST_EXEC */
984 if (!dname_arg || !strchr (dname_arg, '\n'))
985 f = fork (); /* in orig */
986 else
987 f = 0; /* in exec'd */
988 #endif /* !DAEMON_MUST_EXEC */
989 if (f > 0)
991 int retval;
992 char buf[1];
994 /* Close unused writing end of the pipe. */
995 close (daemon_pipe[1]);
997 /* Just wait for the child to close its end of the pipe. */
1000 retval = read (daemon_pipe[0], &buf, 1);
1002 while (retval == -1 && errno == EINTR);
1004 if (retval < 0)
1006 fprintf (stderr, "Error reading status from child\n");
1007 exit (1);
1009 else if (retval == 0)
1011 fprintf (stderr, "Error: server did not start correctly\n");
1012 exit (1);
1015 close (daemon_pipe[0]);
1016 exit (0);
1018 if (f < 0)
1020 fprintf (stderr, "Cannot fork!\n");
1021 exit (1);
1024 #ifdef DAEMON_MUST_EXEC
1026 /* In orig process, forked as child, OR in exec'd. */
1027 if (!dname_arg || !strchr (dname_arg, '\n'))
1028 { /* In orig, child: now exec w/special daemon name. */
1029 char fdStr[80];
1030 int fdStrlen =
1031 snprintf (fdStr, sizeof fdStr,
1032 "--daemon=\n%d,%d\n%s", daemon_pipe[0],
1033 daemon_pipe[1], dname_arg ? dname_arg : "");
1035 if (! (0 <= fdStrlen && fdStrlen < sizeof fdStr))
1037 fprintf (stderr, "daemon: child name too long\n");
1038 exit (1);
1041 argv[skip_args] = fdStr;
1043 execvp (argv[0], argv);
1044 fprintf (stderr, "emacs daemon: exec failed: %d\n", errno);
1045 exit (1);
1048 /* In exec'd: parse special dname into pipe and name info. */
1049 if (!dname_arg || !strchr (dname_arg, '\n')
1050 || strlen (dname_arg) < 1 || strlen (dname_arg) > 70)
1052 fprintf (stderr, "emacs daemon: daemon name absent or too long\n");
1053 exit (1);
1055 dname_arg2[0] = '\0';
1056 sscanf (dname_arg, "\n%d,%d\n%s", &(daemon_pipe[0]), &(daemon_pipe[1]),
1057 dname_arg2);
1058 dname_arg = *dname_arg2 ? dname_arg2 : NULL;
1060 #endif /* DAEMON_MUST_EXEC */
1062 if (dname_arg)
1063 daemon_name = xstrdup (dname_arg);
1064 /* Close unused reading end of the pipe. */
1065 close (daemon_pipe[0]);
1066 /* Make sure that the used end of the pipe is closed on exec, so
1067 that it is not accessible to programs started from .emacs. */
1068 fcntl (daemon_pipe[1], F_SETFD, FD_CLOEXEC);
1070 setsid ();
1071 #else /* DOS_NT */
1072 fprintf (stderr, "This platform does not support the -daemon flag.\n");
1073 exit (1);
1074 #endif /* DOS_NT */
1077 #if defined (HAVE_PTHREAD) && !defined (SYSTEM_MALLOC) && !defined (DOUG_LEA_MALLOC)
1078 if (! noninteractive)
1080 extern void malloc_enable_thread (void);
1082 malloc_enable_thread ();
1084 #endif
1086 init_signals (dumping);
1088 noninteractive1 = noninteractive;
1090 /* Perform basic initializations (not merely interning symbols). */
1092 if (!initialized)
1094 init_alloc_once ();
1095 init_obarray ();
1096 init_eval_once ();
1097 init_charset_once ();
1098 init_coding_once ();
1099 init_syntax_once (); /* Create standard syntax table. */
1100 init_category_once (); /* Create standard category table. */
1101 init_casetab_once (); /* Must be done before init_buffer_once. */
1102 init_buffer_once (); /* Create buffer table and some buffers. */
1103 init_minibuf_once (); /* Create list of minibuffers. */
1104 /* Must precede init_window_once. */
1106 /* Call syms_of_xfaces before init_window_once because that
1107 function creates Vterminal_frame. Termcap frames now use
1108 faces, and the face implementation uses some symbols as
1109 face names. */
1110 syms_of_xfaces ();
1111 /* XXX syms_of_keyboard uses some symbols in keymap.c. It would
1112 be better to arrange things not to have this dependency. */
1113 syms_of_keymap ();
1114 /* Call syms_of_keyboard before init_window_once because
1115 keyboard sets up symbols that include some face names that
1116 the X support will want to use. This can happen when
1117 CANNOT_DUMP is defined. */
1118 syms_of_keyboard ();
1120 /* Called before syms_of_fileio, because it sets up Qerror_condition. */
1121 syms_of_data ();
1122 syms_of_fns (); /* Before syms_of_charset which uses hashtables. */
1123 syms_of_fileio ();
1124 /* Before syms_of_coding to initialize Vgc_cons_threshold. */
1125 syms_of_alloc ();
1126 /* May call Ffuncall and so GC, thus the latter should be initialized. */
1127 init_print_once ();
1128 /* Before syms_of_coding because it initializes Qcharsetp. */
1129 syms_of_charset ();
1130 /* Before init_window_once, because it sets up the
1131 Vcoding_system_hash_table. */
1132 syms_of_coding (); /* This should be after syms_of_fileio. */
1134 init_window_once (); /* Init the window system. */
1135 #ifdef HAVE_WINDOW_SYSTEM
1136 init_fringe_once (); /* Swap bitmaps if necessary. */
1137 #endif /* HAVE_WINDOW_SYSTEM */
1140 init_alloc ();
1142 if (do_initial_setlocale)
1144 fixup_locale ();
1145 Vsystem_messages_locale = Vprevious_system_messages_locale;
1146 Vsystem_time_locale = Vprevious_system_time_locale;
1149 init_eval ();
1150 init_atimer ();
1151 running_asynch_code = 0;
1152 init_random ();
1154 no_loadup
1155 = argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args);
1157 no_site_lisp
1158 = argmatch (argv, argc, "-nsl", "--no-site-lisp", 11, NULL, &skip_args);
1160 #ifdef HAVE_NS
1161 ns_pool = ns_alloc_autorelease_pool ();
1162 if (!noninteractive)
1164 #ifdef NS_IMPL_COCOA
1165 if (skip_args < argc)
1167 /* FIXME: Do the right thing if getenv returns NULL, or if
1168 chdir fails. */
1169 if (!strncmp (argv[skip_args], "-psn", 4))
1171 skip_args += 1;
1172 chdir (getenv ("HOME"));
1174 else if (skip_args+1 < argc && !strncmp (argv[skip_args+1], "-psn", 4))
1176 skip_args += 2;
1177 chdir (getenv ("HOME"));
1180 #endif /* COCOA */
1182 #endif /* HAVE_NS */
1184 #ifdef HAVE_X_WINDOWS
1185 /* Stupid kludge to catch command-line display spec. We can't
1186 handle this argument entirely in window system dependent code
1187 because we don't even know which window system dependent code
1188 to run until we've recognized this argument. */
1190 char *displayname = 0;
1191 int count_before = skip_args;
1193 /* Skip any number of -d options, but only use the last one. */
1194 while (1)
1196 int count_before_this = skip_args;
1198 if (argmatch (argv, argc, "-d", "--display", 3, &displayname, &skip_args))
1199 display_arg = 1;
1200 else if (argmatch (argv, argc, "-display", 0, 3, &displayname, &skip_args))
1201 display_arg = 1;
1202 else
1203 break;
1205 count_before = count_before_this;
1208 /* If we have the form --display=NAME,
1209 convert it into -d name.
1210 This requires inserting a new element into argv. */
1211 if (displayname && count_before < skip_args)
1213 if (skip_args == count_before + 1)
1215 memmove (argv + count_before + 3, argv + count_before + 2,
1216 (argc - (count_before + 2)) * sizeof *argv);
1217 argv[count_before + 2] = displayname;
1218 argc++;
1220 argv[count_before + 1] = (char *) "-d";
1223 if (! no_site_lisp)
1225 if (argmatch (argv, argc, "-Q", "--quick", 3, NULL, &skip_args)
1226 || argmatch (argv, argc, "-quick", 0, 2, NULL, &skip_args))
1227 no_site_lisp = 1;
1230 /* Don't actually discard this arg. */
1231 skip_args = count_before;
1233 #else /* !HAVE_X_WINDOWS */
1234 if (! no_site_lisp)
1236 int count_before = skip_args;
1238 if (argmatch (argv, argc, "-Q", "--quick", 3, NULL, &skip_args)
1239 || argmatch (argv, argc, "-quick", 0, 2, NULL, &skip_args))
1240 no_site_lisp = 1;
1242 skip_args = count_before;
1244 #endif
1246 /* argmatch must not be used after here,
1247 except when building temacs
1248 because the -d argument has not been skipped in skip_args. */
1250 #ifdef MSDOS
1251 /* Call early 'cause init_environment needs it. */
1252 init_dosfns ();
1253 /* Set defaults for several environment variables. */
1254 if (initialized)
1255 init_environment (argc, argv, skip_args);
1256 else
1257 tzset ();
1258 #endif /* MSDOS */
1260 #ifdef HAVE_GFILENOTIFY
1261 globals_of_gfilenotify ();
1262 #endif
1264 #ifdef WINDOWSNT
1265 globals_of_w32 ();
1266 #ifdef HAVE_W32NOTIFY
1267 globals_of_w32notify ();
1268 #endif
1269 /* Initialize environment from registry settings. */
1270 init_environment (argv);
1271 init_ntproc (dumping); /* must precede init_editfns. */
1272 #endif
1274 /* Initialize and GC-protect Vinitial_environment and
1275 Vprocess_environment before set_initial_environment fills them
1276 in. */
1277 if (!initialized)
1278 syms_of_callproc ();
1279 /* egetenv is a pretty low-level facility, which may get called in
1280 many circumstances; it seems flimsy to put off initializing it
1281 until calling init_callproc. Do not do it when dumping. */
1282 if (! dumping)
1283 set_initial_environment ();
1285 /* AIX crashes are reported in system versions 3.2.3 and 3.2.4
1286 if this is not done. Do it after set_global_environment so that we
1287 don't pollute Vglobal_environment. */
1288 /* Setting LANG here will defeat the startup locale processing... */
1289 #ifdef AIX
1290 xputenv ("LANG=C");
1291 #endif
1293 init_buffer (); /* Init default directory of main buffer. */
1295 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */
1296 init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */
1298 if (initialized)
1300 /* Erase any pre-dump messages in the message log, to avoid confusion. */
1301 Lisp_Object old_log_max;
1302 old_log_max = Vmessage_log_max;
1303 XSETFASTINT (Vmessage_log_max, 0);
1304 message_dolog ("", 0, 1, 0);
1305 Vmessage_log_max = old_log_max;
1308 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */
1309 init_fileio ();
1310 init_lread ();
1311 #ifdef WINDOWSNT
1312 /* Check to see if Emacs has been installed correctly. */
1313 check_windows_init_file ();
1314 #endif
1316 /* Intern the names of all standard functions and variables;
1317 define standard keys. */
1319 if (!initialized)
1321 /* The basic levels of Lisp must come first. Note that
1322 syms_of_data and some others have already been called. */
1323 syms_of_chartab ();
1324 syms_of_lread ();
1325 syms_of_print ();
1326 syms_of_eval ();
1327 syms_of_floatfns ();
1329 syms_of_buffer ();
1330 syms_of_bytecode ();
1331 syms_of_callint ();
1332 syms_of_casefiddle ();
1333 syms_of_casetab ();
1334 syms_of_category ();
1335 syms_of_ccl ();
1336 syms_of_character ();
1337 syms_of_cmds ();
1338 syms_of_dired ();
1339 syms_of_display ();
1340 syms_of_doc ();
1341 syms_of_editfns ();
1342 syms_of_emacs ();
1343 syms_of_filelock ();
1344 syms_of_indent ();
1345 syms_of_insdel ();
1346 /* syms_of_keymap (); */
1347 syms_of_macros ();
1348 syms_of_marker ();
1349 syms_of_minibuf ();
1350 syms_of_process ();
1351 syms_of_search ();
1352 syms_of_frame ();
1353 syms_of_syntax ();
1354 syms_of_terminal ();
1355 syms_of_term ();
1356 syms_of_undo ();
1357 #ifdef HAVE_SOUND
1358 syms_of_sound ();
1359 #endif
1360 syms_of_textprop ();
1361 syms_of_composite ();
1362 #ifdef WINDOWSNT
1363 syms_of_ntproc ();
1364 #endif /* WINDOWSNT */
1365 #if defined CYGWIN
1366 syms_of_cygw32 ();
1367 #endif
1368 syms_of_window ();
1369 syms_of_xdisp ();
1370 syms_of_font ();
1371 #ifdef HAVE_WINDOW_SYSTEM
1372 syms_of_fringe ();
1373 syms_of_image ();
1374 #endif /* HAVE_WINDOW_SYSTEM */
1375 #ifdef HAVE_X_WINDOWS
1376 syms_of_xterm ();
1377 syms_of_xfns ();
1378 syms_of_xmenu ();
1379 syms_of_fontset ();
1380 syms_of_xsettings ();
1381 #ifdef HAVE_X_SM
1382 syms_of_xsmfns ();
1383 #endif
1384 #ifdef HAVE_X11
1385 syms_of_xselect ();
1386 #endif
1387 #endif /* HAVE_X_WINDOWS */
1389 #ifdef HAVE_LIBXML2
1390 syms_of_xml ();
1391 #endif
1393 syms_of_menu ();
1395 #ifdef HAVE_NTGUI
1396 syms_of_w32term ();
1397 syms_of_w32fns ();
1398 syms_of_w32menu ();
1399 syms_of_fontset ();
1400 #endif /* HAVE_NTGUI */
1402 #if defined WINDOWSNT || defined HAVE_NTGUI
1403 syms_of_w32select ();
1404 #endif
1406 #ifdef MSDOS
1407 syms_of_xmenu ();
1408 syms_of_dosfns ();
1409 syms_of_msdos ();
1410 syms_of_win16select ();
1411 #endif /* MSDOS */
1413 #ifdef HAVE_NS
1414 syms_of_nsterm ();
1415 syms_of_nsfns ();
1416 syms_of_nsmenu ();
1417 syms_of_nsselect ();
1418 syms_of_fontset ();
1419 #endif /* HAVE_NS */
1421 #ifdef HAVE_GNUTLS
1422 syms_of_gnutls ();
1423 #endif
1425 #ifdef HAVE_GFILENOTIFY
1426 syms_of_gfilenotify ();
1427 #endif /* HAVE_GFILENOTIFY */
1429 #ifdef HAVE_INOTIFY
1430 syms_of_inotify ();
1431 #endif /* HAVE_INOTIFY */
1433 #ifdef HAVE_DBUS
1434 syms_of_dbusbind ();
1435 #endif /* HAVE_DBUS */
1437 #ifdef WINDOWSNT
1438 syms_of_ntterm ();
1439 #ifdef HAVE_W32NOTIFY
1440 syms_of_w32notify ();
1441 #endif /* HAVE_W32NOTIFY */
1442 #endif /* WINDOWSNT */
1444 syms_of_profiler ();
1446 keys_of_casefiddle ();
1447 keys_of_cmds ();
1448 keys_of_buffer ();
1449 keys_of_keyboard ();
1450 keys_of_keymap ();
1451 keys_of_window ();
1453 else
1455 /* Initialization that must be done even if the global variable
1456 initialized is non zero. */
1457 #ifdef HAVE_NTGUI
1458 globals_of_w32font ();
1459 globals_of_w32fns ();
1460 globals_of_w32menu ();
1461 #endif /* HAVE_NTGUI */
1463 #if defined WINDOWSNT || defined HAVE_NTGUI
1464 globals_of_w32select ();
1465 #endif
1468 init_charset ();
1470 init_editfns (); /* init_process_emacs uses Voperating_system_release. */
1471 init_process_emacs (); /* init_display uses add_keyboard_wait_descriptor. */
1472 init_keyboard (); /* This too must precede init_sys_modes. */
1473 if (!noninteractive)
1474 init_display (); /* Determine terminal type. Calls init_sys_modes. */
1475 init_xdisp ();
1476 #ifdef HAVE_WINDOW_SYSTEM
1477 init_fringe ();
1478 #endif /* HAVE_WINDOW_SYSTEM */
1479 init_macros ();
1480 init_window ();
1481 init_font ();
1483 if (!initialized)
1485 char *file;
1486 /* Handle -l loadup, args passed by Makefile. */
1487 if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args))
1488 Vtop_level = Fcons (intern_c_string ("load"),
1489 Fcons (build_string (file), Qnil));
1490 /* Unless next switch is -nl, load "loadup.el" first thing. */
1491 if (! no_loadup)
1492 Vtop_level = Fcons (intern_c_string ("load"),
1493 Fcons (build_string ("loadup.el"), Qnil));
1496 if (initialized)
1498 #ifdef HAVE_TZSET
1500 /* If the execution TZ happens to be the same as the dump TZ,
1501 change it to some other value and then change it back,
1502 to force the underlying implementation to reload the TZ info.
1503 This is needed on implementations that load TZ info from files,
1504 since the TZ file contents may differ between dump and execution. */
1505 char *tz = getenv ("TZ");
1506 if (tz && !strcmp (tz, dump_tz))
1508 ++*tz;
1509 tzset ();
1510 --*tz;
1513 #endif
1516 /* Set up for profiling. This is known to work on FreeBSD,
1517 GNU/Linux and MinGW. It might work on some other systems too.
1518 Give it a try and tell us if it works on your system. To compile
1519 for profiling, use the configure option --enable-profiling. */
1520 #if defined (__FreeBSD__) || defined (GNU_LINUX) || defined (__MINGW32__)
1521 #ifdef PROFILING
1522 if (initialized)
1524 #ifdef __MINGW32__
1525 extern unsigned char etext asm ("etext");
1526 #else
1527 extern char etext;
1528 #endif
1530 atexit (_mcleanup);
1531 monstartup ((uintptr_t) __executable_start, (uintptr_t) &etext);
1533 else
1534 moncontrol (0);
1535 #endif
1536 #endif
1538 initialized = 1;
1540 #ifdef LOCALTIME_CACHE
1541 /* Some versions of localtime have a bug. They cache the value of the time
1542 zone rather than looking it up every time. Since localtime() is
1543 called to bolt the undumping time into the undumped emacs, this
1544 results in localtime ignoring the TZ environment variable.
1545 This flushes the new TZ value into localtime. */
1546 tzset ();
1547 #endif /* defined (LOCALTIME_CACHE) */
1549 /* Enter editor command loop. This never returns. */
1550 Frecursive_edit ();
1551 /* NOTREACHED */
1552 return 0;
1555 /* Sort the args so we can find the most important ones
1556 at the beginning of argv. */
1558 /* First, here's a table of all the standard options. */
1560 struct standard_args
1562 const char *name;
1563 const char *longname;
1564 int priority;
1565 int nargs;
1568 static const struct standard_args standard_args[] =
1570 { "-version", "--version", 150, 0 },
1571 { "-chdir", "--chdir", 130, 1 },
1572 { "-t", "--terminal", 120, 1 },
1573 { "-nw", "--no-window-system", 110, 0 },
1574 { "-nw", "--no-windows", 110, 0 },
1575 { "-batch", "--batch", 100, 0 },
1576 { "-script", "--script", 100, 1 },
1577 { "-daemon", "--daemon", 99, 0 },
1578 { "-help", "--help", 90, 0 },
1579 { "-nl", "--no-loadup", 70, 0 },
1580 { "-nsl", "--no-site-lisp", 65, 0 },
1581 /* -d must come last before the options handled in startup.el. */
1582 { "-d", "--display", 60, 1 },
1583 { "-display", 0, 60, 1 },
1584 /* Now for the options handled in `command-line' (startup.el). */
1585 /* (Note that to imply -nsl, -Q is partially handled here.) */
1586 { "-Q", "--quick", 55, 0 },
1587 { "-quick", 0, 55, 0 },
1588 { "-q", "--no-init-file", 50, 0 },
1589 { "-no-init-file", 0, 50, 0 },
1590 { "-no-site-file", "--no-site-file", 40, 0 },
1591 { "-u", "--user", 30, 1 },
1592 { "-user", 0, 30, 1 },
1593 { "-debug-init", "--debug-init", 20, 0 },
1594 { "-iconic", "--iconic", 15, 0 },
1595 { "-D", "--basic-display", 12, 0},
1596 { "-basic-display", 0, 12, 0},
1597 { "-nbc", "--no-blinking-cursor", 12, 0 },
1598 /* Now for the options handled in `command-line-1' (startup.el). */
1599 { "-nbi", "--no-bitmap-icon", 10, 0 },
1600 { "-bg", "--background-color", 10, 1 },
1601 { "-background", 0, 10, 1 },
1602 { "-fg", "--foreground-color", 10, 1 },
1603 { "-foreground", 0, 10, 1 },
1604 { "-bd", "--border-color", 10, 1 },
1605 { "-bw", "--border-width", 10, 1 },
1606 { "-ib", "--internal-border", 10, 1 },
1607 { "-ms", "--mouse-color", 10, 1 },
1608 { "-cr", "--cursor-color", 10, 1 },
1609 { "-fn", "--font", 10, 1 },
1610 { "-font", 0, 10, 1 },
1611 { "-fs", "--fullscreen", 10, 0 },
1612 { "-fw", "--fullwidth", 10, 0 },
1613 { "-fh", "--fullheight", 10, 0 },
1614 { "-mm", "--maximized", 10, 0 },
1615 { "-g", "--geometry", 10, 1 },
1616 { "-geometry", 0, 10, 1 },
1617 { "-T", "--title", 10, 1 },
1618 { "-title", 0, 10, 1 },
1619 { "-name", "--name", 10, 1 },
1620 { "-xrm", "--xrm", 10, 1 },
1621 { "-parent-id", "--parent-id", 10, 1 },
1622 { "-r", "--reverse-video", 5, 0 },
1623 { "-rv", 0, 5, 0 },
1624 { "-reverse", 0, 5, 0 },
1625 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1626 { "-vb", "--vertical-scroll-bars", 5, 0 },
1627 { "-color", "--color", 5, 0},
1628 { "-no-splash", "--no-splash", 3, 0 },
1629 { "-no-desktop", "--no-desktop", 3, 0 },
1630 #ifdef HAVE_NS
1631 { "-NSAutoLaunch", 0, 5, 1 },
1632 { "-NXAutoLaunch", 0, 5, 1 },
1633 { "-disable-font-backend", "--disable-font-backend", 65, 0 },
1634 { "-_NSMachLaunch", 0, 85, 1 },
1635 { "-MachLaunch", 0, 85, 1 },
1636 { "-macosx", 0, 85, 0 },
1637 { "-NSHost", 0, 85, 1 },
1638 #endif
1639 /* These have the same priority as ordinary file name args,
1640 so they are not reordered with respect to those. */
1641 { "-L", "--directory", 0, 1 },
1642 { "-directory", 0, 0, 1 },
1643 { "-l", "--load", 0, 1 },
1644 { "-load", 0, 0, 1 },
1645 /* This has no longname, because using --scriptload confuses sort_args,
1646 because then the --script long option seems to match twice; ie
1647 you can't have a long option which is a prefix of another long
1648 option. In any case, this is entirely an internal option. */
1649 { "-scriptload", NULL, 0, 1 },
1650 { "-f", "--funcall", 0, 1 },
1651 { "-funcall", 0, 0, 1 },
1652 { "-eval", "--eval", 0, 1 },
1653 { "-execute", "--execute", 0, 1 },
1654 { "-find-file", "--find-file", 0, 1 },
1655 { "-visit", "--visit", 0, 1 },
1656 { "-file", "--file", 0, 1 },
1657 { "-insert", "--insert", 0, 1 },
1658 #ifdef HAVE_NS
1659 { "-NXOpen", 0, 0, 1 },
1660 { "-NXOpenTemp", 0, 0, 1 },
1661 { "-NSOpen", 0, 0, 1 },
1662 { "-NSOpenTemp", 0, 0, 1 },
1663 { "-GSFilePath", 0, 0, 1 },
1664 #endif
1665 /* This should be processed after ordinary file name args and the like. */
1666 { "-kill", "--kill", -10, 0 },
1669 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1670 so that the highest priority ones come first.
1671 Do not change the order of elements of equal priority.
1672 If an option takes an argument, keep it and its argument together.
1674 If an option that takes no argument appears more
1675 than once, eliminate all but one copy of it. */
1677 static void
1678 sort_args (int argc, char **argv)
1680 char **new = xmalloc (argc * sizeof *new);
1681 /* For each element of argv,
1682 the corresponding element of options is:
1683 0 for an option that takes no arguments,
1684 1 for an option that takes one argument, etc.
1685 -1 for an ordinary non-option argument. */
1686 int *options = xnmalloc (argc, sizeof *options);
1687 int *priority = xnmalloc (argc, sizeof *priority);
1688 int to = 1;
1689 int incoming_used = 1;
1690 int from;
1691 int i;
1693 /* Categorize all the options,
1694 and figure out which argv elts are option arguments. */
1695 for (from = 1; from < argc; from++)
1697 options[from] = -1;
1698 priority[from] = 0;
1699 if (argv[from][0] == '-')
1701 int match;
1703 /* If we have found "--", don't consider
1704 any more arguments as options. */
1705 if (argv[from][1] == '-' && argv[from][2] == 0)
1707 /* Leave the "--", and everything following it, at the end. */
1708 for (; from < argc; from++)
1710 priority[from] = -100;
1711 options[from] = -1;
1713 break;
1716 /* Look for a match with a known old-fashioned option. */
1717 for (i = 0; i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1718 if (!strcmp (argv[from], standard_args[i].name))
1720 options[from] = standard_args[i].nargs;
1721 priority[from] = standard_args[i].priority;
1722 if (from + standard_args[i].nargs >= argc)
1723 fatal ("Option `%s' requires an argument\n", argv[from]);
1724 from += standard_args[i].nargs;
1725 goto done;
1728 /* Look for a match with a known long option.
1729 MATCH is -1 if no match so far, -2 if two or more matches so far,
1730 >= 0 (the table index of the match) if just one match so far. */
1731 if (argv[from][1] == '-')
1733 char const *equals = strchr (argv[from], '=');
1734 ptrdiff_t thislen =
1735 equals ? equals - argv[from] : strlen (argv[from]);
1737 match = -1;
1739 for (i = 0;
1740 i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1741 if (standard_args[i].longname
1742 && !strncmp (argv[from], standard_args[i].longname,
1743 thislen))
1745 if (match == -1)
1746 match = i;
1747 else
1748 match = -2;
1751 /* If we found exactly one match, use that. */
1752 if (match >= 0)
1754 options[from] = standard_args[match].nargs;
1755 priority[from] = standard_args[match].priority;
1756 /* If --OPTION=VALUE syntax is used,
1757 this option uses just one argv element. */
1758 if (equals != 0)
1759 options[from] = 0;
1760 if (from + options[from] >= argc)
1761 fatal ("Option `%s' requires an argument\n", argv[from]);
1762 from += options[from];
1764 /* FIXME When match < 0, shouldn't there be some error,
1765 or at least indication to the user that there was a
1766 problem? */
1768 done: ;
1772 /* Copy the arguments, in order of decreasing priority, to NEW. */
1773 new[0] = argv[0];
1774 while (incoming_used < argc)
1776 int best = -1;
1777 int best_priority = -9999;
1779 /* Find the highest priority remaining option.
1780 If several have equal priority, take the first of them. */
1781 for (from = 1; from < argc; from++)
1783 if (argv[from] != 0 && priority[from] > best_priority)
1785 best_priority = priority[from];
1786 best = from;
1788 /* Skip option arguments--they are tied to the options. */
1789 if (options[from] > 0)
1790 from += options[from];
1793 if (best < 0)
1794 emacs_abort ();
1796 /* Copy the highest priority remaining option, with its args, to NEW.
1797 Unless it is a duplicate of the previous one. */
1798 if (! (options[best] == 0
1799 && ! strcmp (new[to - 1], argv[best])))
1801 new[to++] = argv[best];
1802 for (i = 0; i < options[best]; i++)
1803 new[to++] = argv[best + i + 1];
1806 incoming_used += 1 + (options[best] > 0 ? options[best] : 0);
1808 /* Clear out this option in ARGV. */
1809 argv[best] = 0;
1810 for (i = 0; i < options[best]; i++)
1811 argv[best + i + 1] = 0;
1814 /* If duplicate options were deleted, fill up extra space with null ptrs. */
1815 while (to < argc)
1816 new[to++] = 0;
1818 memcpy (argv, new, sizeof (char *) * argc);
1820 xfree (options);
1821 xfree (new);
1822 xfree (priority);
1825 DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P",
1826 doc: /* Exit the Emacs job and kill it.
1827 If ARG is an integer, return ARG as the exit program code.
1828 If ARG is a string, stuff it as keyboard input.
1830 This function is called upon receipt of the signals SIGTERM
1831 or SIGHUP, and upon SIGINT in batch mode.
1833 The value of `kill-emacs-hook', if not void,
1834 is a list of functions (of no args),
1835 all of which are called before Emacs is actually killed. */)
1836 (Lisp_Object arg)
1838 struct gcpro gcpro1;
1839 int exit_code;
1841 GCPRO1 (arg);
1843 if (feof (stdin))
1844 arg = Qt;
1846 /* Fsignal calls emacs_abort () if it sees that waiting_for_input is
1847 set. */
1848 waiting_for_input = 0;
1849 Frun_hooks (1, &Qkill_emacs_hook);
1850 UNGCPRO;
1852 #ifdef HAVE_X_WINDOWS
1853 /* Transfer any clipboards we own to the clipboard manager. */
1854 x_clipboard_manager_save_all ();
1855 #endif
1857 shut_down_emacs (0, STRINGP (arg) ? arg : Qnil);
1859 #ifdef HAVE_NS
1860 ns_release_autorelease_pool (ns_pool);
1861 #endif
1863 /* If we have an auto-save list file,
1864 kill it because we are exiting Emacs deliberately (not crashing).
1865 Do it after shut_down_emacs, which does an auto-save. */
1866 if (STRINGP (Vauto_save_list_file_name))
1867 unlink (SSDATA (Vauto_save_list_file_name));
1869 if (INTEGERP (arg))
1870 exit_code = (XINT (arg) < 0
1871 ? XINT (arg) | INT_MIN
1872 : XINT (arg) & INT_MAX);
1873 else
1874 exit_code = EXIT_SUCCESS;
1875 exit (exit_code);
1879 /* Perform an orderly shutdown of Emacs. Autosave any modified
1880 buffers, kill any child processes, clean up the terminal modes (if
1881 we're in the foreground), and other stuff like that. Don't perform
1882 any redisplay; this may be called when Emacs is shutting down in
1883 the background, or after its X connection has died.
1885 If SIG is a signal number, print a message for it.
1887 This is called by fatal signal handlers, X protocol error handlers,
1888 and Fkill_emacs. */
1890 void
1891 shut_down_emacs (int sig, Lisp_Object stuff)
1893 /* Prevent running of hooks from now on. */
1894 Vrun_hooks = Qnil;
1896 /* Don't update display from now on. */
1897 Vinhibit_redisplay = Qt;
1899 /* If we are controlling the terminal, reset terminal modes. */
1900 #ifndef DOS_NT
1902 pid_t pgrp = getpgrp ();
1903 pid_t tpgrp = tcgetpgrp (0);
1904 if ((tpgrp != -1) && tpgrp == pgrp)
1906 reset_all_sys_modes ();
1907 if (sig && sig != SIGTERM)
1909 static char const format[] = "Fatal error %d: ";
1910 char buf[sizeof format - 2 + INT_STRLEN_BOUND (int)];
1911 int buflen = sprintf (buf, format, sig);
1912 char const *sig_desc = safe_strsignal (sig);
1913 ignore_value (write (STDERR_FILENO, buf, buflen));
1914 ignore_value (write (STDERR_FILENO, sig_desc, strlen (sig_desc)));
1918 #else
1919 fflush (stdout);
1920 reset_all_sys_modes ();
1921 #endif
1923 stuff_buffered_input (stuff);
1925 inhibit_sentinels = 1;
1926 kill_buffer_processes (Qnil);
1927 Fdo_auto_save (Qt, Qnil);
1929 #ifdef CLASH_DETECTION
1930 unlock_all_files ();
1931 #endif
1933 /* There is a tendency for a SIGIO signal to arrive within exit,
1934 and cause a SIGHUP because the input descriptor is already closed. */
1935 unrequest_sigio ();
1936 ignore_sigio ();
1938 /* Do this only if terminating normally, we want glyph matrices
1939 etc. in a core dump. */
1940 if (sig == 0 || sig == SIGTERM)
1942 check_glyph_memory ();
1943 check_message_stack ();
1946 #ifdef MSDOS
1947 dos_cleanup ();
1948 #endif
1950 #ifdef HAVE_NS
1951 ns_term_shutdown (sig);
1952 #endif
1954 #ifdef HAVE_LIBXML2
1955 xml_cleanup_parser ();
1956 #endif
1958 #ifdef WINDOWSNT
1959 term_ntproc (0);
1960 #endif
1965 #ifndef CANNOT_DUMP
1967 #include "unexec.h"
1969 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0,
1970 doc: /* Dump current state of Emacs into executable file FILENAME.
1971 Take symbols from SYMFILE (presumably the file you executed to run Emacs).
1972 This is used in the file `loadup.el' when building Emacs.
1974 You must run Emacs in batch mode in order to dump it. */)
1975 (Lisp_Object filename, Lisp_Object symfile)
1977 Lisp_Object tem;
1978 Lisp_Object symbol;
1979 ptrdiff_t count = SPECPDL_INDEX ();
1981 check_pure_size ();
1983 if (! noninteractive)
1984 error ("Dumping Emacs works only in batch mode");
1986 #ifdef GNU_LINUX
1988 /* Warn if the gap between BSS end and heap start is larger than this. */
1989 # define MAX_HEAP_BSS_DIFF (1024*1024)
1991 if (heap_bss_diff > MAX_HEAP_BSS_DIFF)
1993 fprintf (stderr, "**************************************************\n");
1994 fprintf (stderr, "Warning: Your system has a gap between BSS and the\n");
1995 fprintf (stderr, "heap (%"pMu" bytes). This usually means that exec-shield\n",
1996 heap_bss_diff);
1997 fprintf (stderr, "or something similar is in effect. The dump may\n");
1998 fprintf (stderr, "fail because of this. See the section about\n");
1999 fprintf (stderr, "exec-shield in etc/PROBLEMS for more information.\n");
2000 fprintf (stderr, "**************************************************\n");
2002 #endif /* GNU_LINUX */
2004 /* Bind `command-line-processed' to nil before dumping,
2005 so that the dumped Emacs will process its command line
2006 and set up to work with X windows if appropriate. */
2007 symbol = intern ("command-line-processed");
2008 specbind (symbol, Qnil);
2010 CHECK_STRING (filename);
2011 filename = Fexpand_file_name (filename, Qnil);
2012 if (!NILP (symfile))
2014 CHECK_STRING (symfile);
2015 if (SCHARS (symfile))
2016 symfile = Fexpand_file_name (symfile, Qnil);
2019 tem = Vpurify_flag;
2020 Vpurify_flag = Qnil;
2022 #ifdef HAVE_TZSET
2023 set_time_zone_rule (dump_tz);
2024 #ifndef LOCALTIME_CACHE
2025 /* Force a tz reload, since set_time_zone_rule doesn't. */
2026 tzset ();
2027 #endif
2028 #endif
2030 fflush (stdout);
2031 /* Tell malloc where start of impure now is. */
2032 /* Also arrange for warnings when nearly out of space. */
2033 #ifndef SYSTEM_MALLOC
2034 #ifndef WINDOWSNT
2035 /* On Windows, this was done before dumping, and that once suffices.
2036 Meanwhile, my_edata is not valid on Windows. */
2038 extern char my_edata[];
2039 memory_warnings (my_edata, malloc_warning);
2041 #endif /* not WINDOWSNT */
2042 #endif /* not SYSTEM_MALLOC */
2043 #ifdef DOUG_LEA_MALLOC
2044 malloc_state_ptr = malloc_get_state ();
2045 #endif
2047 #ifdef USE_MMAP_FOR_BUFFERS
2048 mmap_set_vars (0);
2049 #endif
2050 unexec (SSDATA (filename), !NILP (symfile) ? SSDATA (symfile) : 0);
2051 #ifdef USE_MMAP_FOR_BUFFERS
2052 mmap_set_vars (1);
2053 #endif
2054 #ifdef DOUG_LEA_MALLOC
2055 free (malloc_state_ptr);
2056 #endif
2058 #ifdef WINDOWSNT
2059 Vlibrary_cache = Qnil;
2060 #endif
2061 #ifdef HAVE_WINDOW_SYSTEM
2062 reset_image_types ();
2063 #endif
2065 Vpurify_flag = tem;
2067 return unbind_to (count, Qnil);
2070 #endif /* not CANNOT_DUMP */
2072 #if HAVE_SETLOCALE
2073 /* Recover from setlocale (LC_ALL, ""). */
2074 void
2075 fixup_locale (void)
2077 /* The Emacs Lisp reader needs LC_NUMERIC to be "C",
2078 so that numbers are read and printed properly for Emacs Lisp. */
2079 setlocale (LC_NUMERIC, "C");
2082 /* Set system locale CATEGORY, with previous locale *PLOCALE, to
2083 DESIRED_LOCALE. */
2084 static void
2085 synchronize_locale (int category, Lisp_Object *plocale, Lisp_Object desired_locale)
2087 if (! EQ (*plocale, desired_locale))
2089 *plocale = desired_locale;
2090 setlocale (category, (STRINGP (desired_locale)
2091 ? SSDATA (desired_locale)
2092 : ""));
2096 /* Set system time locale to match Vsystem_time_locale, if possible. */
2097 void
2098 synchronize_system_time_locale (void)
2100 synchronize_locale (LC_TIME, &Vprevious_system_time_locale,
2101 Vsystem_time_locale);
2104 /* Set system messages locale to match Vsystem_messages_locale, if
2105 possible. */
2106 void
2107 synchronize_system_messages_locale (void)
2109 #ifdef LC_MESSAGES
2110 synchronize_locale (LC_MESSAGES, &Vprevious_system_messages_locale,
2111 Vsystem_messages_locale);
2112 #endif
2114 #endif /* HAVE_SETLOCALE */
2117 Lisp_Object
2118 decode_env_path (const char *evarname, const char *defalt)
2120 const char *path, *p;
2121 Lisp_Object lpath, element, tem;
2122 #ifdef WINDOWSNT
2123 bool defaulted = 0;
2124 const char *emacs_dir = egetenv ("emacs_dir");
2125 static const char *emacs_dir_env = "%emacs_dir%/";
2126 const size_t emacs_dir_len = strlen (emacs_dir_env);
2127 #endif
2129 /* It's okay to use getenv here, because this function is only used
2130 to initialize variables when Emacs starts up, and isn't called
2131 after that. */
2132 if (evarname != 0)
2133 path = getenv (evarname);
2134 else
2135 path = 0;
2136 if (!path)
2138 path = defalt;
2139 #ifdef WINDOWSNT
2140 defaulted = 1;
2141 #endif
2143 #ifdef DOS_NT
2144 /* Ensure values from the environment use the proper directory separator. */
2145 if (path)
2147 char *path_copy = alloca (strlen (path) + 1);
2148 strcpy (path_copy, path);
2149 dostounix_filename (path_copy, 0);
2150 path = path_copy;
2152 #endif
2153 lpath = Qnil;
2154 while (1)
2156 p = strchr (path, SEPCHAR);
2157 if (!p)
2158 p = path + strlen (path);
2159 element = (p - path ? make_string (path, p - path)
2160 : build_string ("."));
2161 #ifdef WINDOWSNT
2162 /* Relative file names in the default path are interpreted as
2163 being relative to $emacs_dir. */
2164 if (emacs_dir && defaulted
2165 && strncmp (path, emacs_dir_env, emacs_dir_len) == 0)
2166 element = Fexpand_file_name (Fsubstring (element,
2167 make_number (emacs_dir_len),
2168 Qnil),
2169 build_string (emacs_dir));
2170 #endif
2172 /* Add /: to the front of the name
2173 if it would otherwise be treated as magic. */
2174 tem = Ffind_file_name_handler (element, Qt);
2176 /* However, if the handler says "I'm safe",
2177 don't bother adding /:. */
2178 if (SYMBOLP (tem))
2180 Lisp_Object prop;
2181 prop = Fget (tem, intern ("safe-magic"));
2182 if (! NILP (prop))
2183 tem = Qnil;
2186 if (! NILP (tem))
2187 element = concat2 (build_string ("/:"), element);
2189 lpath = Fcons (element, lpath);
2190 if (*p)
2191 path = p + 1;
2192 else
2193 break;
2195 return Fnreverse (lpath);
2198 DEFUN ("daemonp", Fdaemonp, Sdaemonp, 0, 0, 0,
2199 doc: /* Return non-nil if the current emacs process is a daemon.
2200 If the daemon was given a name argument, return that name. */)
2201 (void)
2203 if (IS_DAEMON)
2204 if (daemon_name)
2205 return build_string (daemon_name);
2206 else
2207 return Qt;
2208 else
2209 return Qnil;
2212 DEFUN ("daemon-initialized", Fdaemon_initialized, Sdaemon_initialized, 0, 0, 0,
2213 doc: /* Mark the Emacs daemon as being initialized.
2214 This finishes the daemonization process by doing the other half of detaching
2215 from the parent process and its tty file descriptors. */)
2216 (void)
2218 int nfd;
2219 bool err = 0;
2221 if (!IS_DAEMON)
2222 error ("This function can only be called if emacs is run as a daemon");
2224 if (daemon_pipe[1] < 0)
2225 error ("The daemon has already been initialized");
2227 if (NILP (Vafter_init_time))
2228 error ("This function can only be called after loading the init files");
2230 /* Get rid of stdin, stdout and stderr. */
2231 nfd = open ("/dev/null", O_RDWR);
2232 err |= nfd < 0;
2233 err |= dup2 (nfd, 0) < 0;
2234 err |= dup2 (nfd, 1) < 0;
2235 err |= dup2 (nfd, 2) < 0;
2236 err |= close (nfd) != 0;
2238 /* Closing the pipe will notify the parent that it can exit.
2239 FIXME: In case some other process inherited the pipe, closing it here
2240 won't notify the parent because it's still open elsewhere, so we
2241 additionally send a byte, just to make sure the parent really exits.
2242 Instead, we should probably close the pipe in start-process and
2243 call-process to make sure the pipe is never inherited by
2244 subprocesses. */
2245 err |= write (daemon_pipe[1], "\n", 1) < 0;
2246 err |= close (daemon_pipe[1]) != 0;
2247 /* Set it to an invalid value so we know we've already run this function. */
2248 daemon_pipe[1] = -1;
2250 if (err)
2251 error ("I/O error during daemon initialization");
2252 return Qt;
2255 void
2256 syms_of_emacs (void)
2258 DEFSYM (Qfile_name_handler_alist, "file-name-handler-alist");
2259 DEFSYM (Qrisky_local_variable, "risky-local-variable");
2260 DEFSYM (Qkill_emacs, "kill-emacs");
2261 DEFSYM (Qkill_emacs_hook, "kill-emacs-hook");
2263 #ifndef CANNOT_DUMP
2264 defsubr (&Sdump_emacs);
2265 #endif
2267 defsubr (&Skill_emacs);
2269 defsubr (&Sinvocation_name);
2270 defsubr (&Sinvocation_directory);
2271 defsubr (&Sdaemonp);
2272 defsubr (&Sdaemon_initialized);
2274 DEFVAR_LISP ("command-line-args", Vcommand_line_args,
2275 doc: /* Args passed by shell to Emacs, as a list of strings.
2276 Many arguments are deleted from the list as they are processed. */);
2278 DEFVAR_LISP ("system-type", Vsystem_type,
2279 doc: /* The value is a symbol indicating the type of operating system you are using.
2280 Special values:
2281 `gnu' compiled for a GNU Hurd system.
2282 `gnu/linux' compiled for a GNU/Linux system.
2283 `gnu/kfreebsd' compiled for a GNU system with a FreeBSD kernel.
2284 `darwin' compiled for Darwin (GNU-Darwin, Mac OS X, ...).
2285 `ms-dos' compiled as an MS-DOS application.
2286 `windows-nt' compiled as a native W32 application.
2287 `cygwin' compiled using the Cygwin library.
2288 Anything else (in Emacs 24.1, the possibilities are: aix, berkeley-unix,
2289 hpux, irix, usg-unix-v) indicates some sort of Unix system. */);
2290 Vsystem_type = intern_c_string (SYSTEM_TYPE);
2291 /* See configure.ac (and config.nt) for the possible SYSTEM_TYPEs. */
2293 DEFVAR_LISP ("system-configuration", Vsystem_configuration,
2294 doc: /* Value is string indicating configuration Emacs was built for.
2295 On MS-Windows, the value reflects the OS flavor and version on which
2296 Emacs is running. */);
2297 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
2299 DEFVAR_LISP ("system-configuration-options", Vsystem_configuration_options,
2300 doc: /* String containing the configuration options Emacs was built with. */);
2301 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
2303 DEFVAR_BOOL ("noninteractive", noninteractive1,
2304 doc: /* Non-nil means Emacs is running without interactive terminal. */);
2306 DEFVAR_LISP ("kill-emacs-hook", Vkill_emacs_hook,
2307 doc: /* Hook run when `kill-emacs' is called.
2308 Since `kill-emacs' may be invoked when the terminal is disconnected (or
2309 in other similar situations), functions placed on this hook should not
2310 expect to be able to interact with the user. To ask for confirmation,
2311 see `kill-emacs-query-functions' instead.
2313 Before Emacs 24.1, the hook was not run in batch mode, i.e., if
2314 `noninteractive' was non-nil. */);
2315 Vkill_emacs_hook = Qnil;
2317 DEFVAR_LISP ("path-separator", Vpath_separator,
2318 doc: /* String containing the character that separates directories in
2319 search paths, such as PATH and other similar environment variables. */);
2321 char c = SEPCHAR;
2322 Vpath_separator = make_string (&c, 1);
2325 DEFVAR_LISP ("invocation-name", Vinvocation_name,
2326 doc: /* The program name that was used to run Emacs.
2327 Any directory names are omitted. */);
2329 DEFVAR_LISP ("invocation-directory", Vinvocation_directory,
2330 doc: /* The directory in which the Emacs executable was found, to run it.
2331 The value is nil if that directory's name is not known. */);
2333 DEFVAR_LISP ("installation-directory", Vinstallation_directory,
2334 doc: /* A directory within which to look for the `lib-src' and `etc' directories.
2335 In an installed Emacs, this is normally nil. It is non-nil if
2336 both `lib-src' (on MS-DOS, `info') and `etc' directories are found
2337 within the variable `invocation-directory' or its parent. For example,
2338 this is the case when running an uninstalled Emacs executable from its
2339 build directory. */);
2340 Vinstallation_directory = Qnil;
2342 DEFVAR_LISP ("system-messages-locale", Vsystem_messages_locale,
2343 doc: /* System locale for messages. */);
2344 Vsystem_messages_locale = Qnil;
2346 DEFVAR_LISP ("previous-system-messages-locale",
2347 Vprevious_system_messages_locale,
2348 doc: /* Most recently used system locale for messages. */);
2349 Vprevious_system_messages_locale = Qnil;
2351 DEFVAR_LISP ("system-time-locale", Vsystem_time_locale,
2352 doc: /* System locale for time. */);
2353 Vsystem_time_locale = Qnil;
2355 DEFVAR_LISP ("previous-system-time-locale", Vprevious_system_time_locale,
2356 doc: /* Most recently used system locale for time. */);
2357 Vprevious_system_time_locale = Qnil;
2359 DEFVAR_LISP ("before-init-time", Vbefore_init_time,
2360 doc: /* Value of `current-time' before Emacs begins initialization. */);
2361 Vbefore_init_time = Qnil;
2363 DEFVAR_LISP ("after-init-time", Vafter_init_time,
2364 doc: /* Value of `current-time' after loading the init files.
2365 This is nil during initialization. */);
2366 Vafter_init_time = Qnil;
2368 DEFVAR_BOOL ("inhibit-x-resources", inhibit_x_resources,
2369 doc: /* If non-nil, X resources, Windows Registry settings, and NS defaults are not used. */);
2370 inhibit_x_resources = 0;
2372 DEFVAR_LISP ("emacs-copyright", Vemacs_copyright,
2373 doc: /* Short copyright string for this version of Emacs. */);
2374 Vemacs_copyright = build_string (emacs_copyright);
2376 DEFVAR_LISP ("emacs-version", Vemacs_version,
2377 doc: /* Version numbers of this version of Emacs. */);
2378 Vemacs_version = build_string (emacs_version);
2380 DEFVAR_LISP ("dynamic-library-alist", Vdynamic_library_alist,
2381 doc: /* Alist of dynamic libraries vs external files implementing them.
2382 Each element is a list (LIBRARY FILE...), where the car is a symbol
2383 representing a supported external library, and the rest are strings giving
2384 alternate filenames for that library.
2386 Emacs tries to load the library from the files in the order they appear on
2387 the list; if none is loaded, the running session of Emacs won't have access
2388 to that library.
2390 Note that image types `pbm' and `xbm' do not need entries in this variable
2391 because they do not depend on external libraries and are always available.
2393 Also note that this is not a generic facility for accessing external
2394 libraries; only those already known by Emacs will be loaded. */);
2395 Vdynamic_library_alist = Qnil;
2396 Fput (intern_c_string ("dynamic-library-alist"), Qrisky_local_variable, Qt);
2398 #ifdef WINDOWSNT
2399 Vlibrary_cache = Qnil;
2400 staticpro (&Vlibrary_cache);
2401 #endif
2403 /* Make sure IS_DAEMON starts up as false. */
2404 daemon_pipe[1] = 0;