Warn about incomplete untarring of link files
[emacs.git] / src / emacs.c
blobae29e9ad29baa9b804e06c4439233a377acd23ac
1 /* Fully extensible Emacs, running on Unix, intended for GNU.
3 Copyright (C) 1985-1987, 1993-1995, 1997-1999, 2001-2017 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 (at
11 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/>. */
21 #define INLINE EXTERN_INLINE
22 #include <config.h>
24 #include <errno.h>
25 #include <fcntl.h>
26 #include <stdio.h>
27 #include <stdlib.h>
29 #include <sys/file.h>
30 #include <unistd.h>
32 #include <close-stream.h>
34 #define MAIN_PROGRAM
35 #include "lisp.h"
37 #ifdef WINDOWSNT
38 #include <fcntl.h>
39 #include <sys/socket.h>
40 #include <mbstring.h>
41 #include "w32.h"
42 #include "w32heap.h"
43 #endif
45 #if defined WINDOWSNT || defined HAVE_NTGUI
46 #include "w32select.h"
47 #include "w32font.h"
48 #include "w32common.h"
49 #endif
51 #if defined CYGWIN
52 #include "cygw32.h"
53 #endif
55 #ifdef MSDOS
56 #include <binary-io.h>
57 #include "dosfns.h"
58 #endif
60 #ifdef HAVE_LIBSYSTEMD
61 # include <systemd/sd-daemon.h>
62 # include <sys/socket.h>
63 #endif
65 #ifdef HAVE_WINDOW_SYSTEM
66 #include TERM_HEADER
67 #endif /* HAVE_WINDOW_SYSTEM */
69 #include "intervals.h"
70 #include "character.h"
71 #include "buffer.h"
72 #include "window.h"
73 #include "xwidget.h"
74 #include "atimer.h"
75 #include "blockinput.h"
76 #include "syssignal.h"
77 #include "process.h"
78 #include "frame.h"
79 #include "termhooks.h"
80 #include "keyboard.h"
81 #include "keymap.h"
82 #include "category.h"
83 #include "charset.h"
84 #include "composite.h"
85 #include "dispextern.h"
86 #include "regex.h"
87 #include "sheap.h"
88 #include "syntax.h"
89 #include "sysselect.h"
90 #include "systime.h"
91 #include "puresize.h"
93 #include "getpagesize.h"
94 #include "gnutls.h"
96 #if (defined PROFILING \
97 && (defined __FreeBSD__ || defined GNU_LINUX || defined __MINGW32__))
98 # include <sys/gmon.h>
99 extern void moncontrol (int mode);
100 #endif
102 #ifdef HAVE_SETLOCALE
103 #include <locale.h>
104 #endif
106 #if HAVE_WCHAR_H
107 # include <wchar.h>
108 #endif
110 #ifdef HAVE_SETRLIMIT
111 #include <sys/time.h>
112 #include <sys/resource.h>
113 #endif
115 static const char emacs_version[] = PACKAGE_VERSION;
116 static const char emacs_copyright[] = COPYRIGHT;
117 static const char emacs_bugreport[] = PACKAGE_BUGREPORT;
119 /* Empty lisp strings. To avoid having to build any others. */
120 Lisp_Object empty_unibyte_string, empty_multibyte_string;
122 #ifdef WINDOWSNT
123 /* Cache for externally loaded libraries. */
124 Lisp_Object Vlibrary_cache;
125 #endif
127 /* Set after Emacs has started up the first time.
128 Prevents reinitialization of the Lisp world and keymaps
129 on subsequent starts. */
130 bool initialized;
132 bool generating_ldefs_boot;
134 #ifndef CANNOT_DUMP
135 /* Set to true if this instance of Emacs might dump. */
136 # ifndef DOUG_LEA_MALLOC
137 static
138 # endif
139 bool might_dump;
140 #endif
142 #ifdef DARWIN_OS
143 extern void unexec_init_emacs_zone (void);
144 #endif
146 /* If true, Emacs should not attempt to use a window-specific code,
147 but instead should use the virtual terminal under which it was started. */
148 bool inhibit_window_system;
150 /* If true, a filter or a sentinel is running. Tested to save the match
151 data on the first attempt to change it inside asynchronous code. */
152 bool running_asynch_code;
154 #if defined (HAVE_X_WINDOWS) || defined (HAVE_NS)
155 /* If true, -d was specified, meaning we're using some window system. */
156 bool display_arg;
157 #endif
159 #if defined GNU_LINUX && !defined CANNOT_DUMP
160 /* The gap between BSS end and heap start as far as we can tell. */
161 static uprintmax_t heap_bss_diff;
162 #endif
164 /* To run as a background daemon under Cocoa or Windows,
165 we must do a fork+exec, not a simple fork.
167 On Cocoa, CoreFoundation lib fails in forked process:
168 http://developer.apple.com/ReleaseNotes/
169 CoreFoundation/CoreFoundation.html)
171 On Windows, a Cygwin fork child cannot access the USER subsystem.
173 We mark being in the exec'd process by a daemon name argument of
174 form "--daemon=\nFD0,FD1\nNAME" where FD are the pipe file descriptors,
175 NAME is the original daemon name, if any. */
176 #if defined NS_IMPL_COCOA || (defined HAVE_NTGUI && defined CYGWIN)
177 # define DAEMON_MUST_EXEC
178 #endif
180 /* True means running Emacs without interactive terminal. */
181 bool noninteractive;
183 /* True means remove site-lisp directories from load-path. */
184 bool no_site_lisp;
186 /* True means put details like time stamps into builds. */
187 bool build_details;
189 /* Name for the server started by the daemon.*/
190 static char *daemon_name;
192 /* 0 not a daemon, 1 new-style (foreground), 2 old-style (background). */
193 int daemon_type;
195 #ifndef WINDOWSNT
196 /* Pipe used to send exit notification to the background daemon parent at
197 startup. On Windows, we use a kernel event instead. */
198 static int daemon_pipe[2];
199 #else
200 HANDLE w32_daemon_event;
201 #endif
203 /* Save argv and argc. */
204 char **initial_argv;
205 int initial_argc;
207 static void sort_args (int argc, char **argv);
208 static void syms_of_emacs (void);
210 /* C99 needs each string to be at most 4095 characters, and the usage
211 strings below are split to not overflow this limit. */
212 static char const *const usage_message[] =
213 { "\
215 Run Emacs, the extensible, customizable, self-documenting real-time\n\
216 display editor. The recommended way to start Emacs for normal editing\n\
217 is with no options at all.\n\
219 Run M-x info RET m emacs RET m emacs invocation RET inside Emacs to\n\
220 read the main documentation for these command-line arguments.\n\
222 Initialization options:\n\
226 --batch do not do interactive display; implies -q\n\
227 --chdir DIR change to directory DIR\n\
228 --daemon, --old-daemon[=NAME] start a (named) server in the background\n\
229 --new-daemon[=NAME] start a (named) server in the foreground\n\
230 --debug-init enable Emacs Lisp debugger for init file\n\
231 --display, -d DISPLAY use X server DISPLAY\n\
234 --no-build-details do not add build details such as time stamps\n\
235 --no-desktop do not load a saved desktop\n\
236 --no-init-file, -q load neither ~/.emacs nor default.el\n\
237 --no-loadup, -nl do not load loadup.el into bare Emacs\n\
238 --no-site-file do not load site-start.el\n\
239 --no-x-resources do not load X resources\n\
240 --no-site-lisp, -nsl do not add site-lisp directories to load-path\n\
241 --no-splash do not display a splash screen on startup\n\
242 --no-window-system, -nw do not communicate with X, ignoring $DISPLAY\n\
245 --quick, -Q equivalent to:\n\
246 -q --no-site-file --no-site-lisp --no-splash\n\
247 --no-x-resources\n\
248 --script FILE run FILE as an Emacs Lisp script\n\
249 --terminal, -t DEVICE use DEVICE for terminal I/O\n\
250 --user, -u USER load ~USER/.emacs instead of your own\n\
254 Action options:\n\
256 FILE visit FILE using find-file\n\
257 +LINE go to line LINE in next FILE\n\
258 +LINE:COLUMN go to line LINE, column COLUMN, in next FILE\n\
259 --directory, -L DIR prepend DIR to load-path (with :DIR, append DIR)\n\
260 --eval EXPR evaluate Emacs Lisp expression EXPR\n\
261 --execute EXPR evaluate Emacs Lisp expression EXPR\n\
264 --file FILE visit FILE using find-file\n\
265 --find-file FILE visit FILE using find-file\n\
266 --funcall, -f FUNC call Emacs Lisp function FUNC with no arguments\n\
267 --insert FILE insert contents of FILE into current buffer\n\
268 --kill exit without asking for confirmation\n\
269 --load, -l FILE load Emacs Lisp FILE using the load function\n\
270 --visit FILE visit FILE using find-file\n\
274 Display options:\n\
276 --background-color, -bg COLOR window background color\n\
277 --basic-display, -D disable many display features;\n\
278 used for debugging Emacs\n\
279 --border-color, -bd COLOR main border color\n\
280 --border-width, -bw WIDTH width of main border\n\
283 --color, --color=MODE override color mode for character terminals;\n\
284 MODE defaults to `auto', and\n\
285 can also be `never', `always',\n\
286 or a mode name like `ansi8'\n\
287 --cursor-color, -cr COLOR color of the Emacs cursor indicating point\n\
288 --font, -fn FONT default font; must be fixed-width\n\
289 --foreground-color, -fg COLOR window foreground color\n\
292 --fullheight, -fh make the first frame high as the screen\n\
293 --fullscreen, -fs make the first frame fullscreen\n\
294 --fullwidth, -fw make the first frame wide as the screen\n\
295 --maximized, -mm make the first frame maximized\n\
296 --geometry, -g GEOMETRY window geometry\n\
299 --no-bitmap-icon, -nbi do not use picture of gnu for Emacs icon\n\
300 --iconic start Emacs in iconified state\n\
301 --internal-border, -ib WIDTH width between text and main border\n\
302 --line-spacing, -lsp PIXELS additional space to put between lines\n\
303 --mouse-color, -ms COLOR mouse cursor color in Emacs window\n\
304 --name NAME title for initial Emacs frame\n\
307 --no-blinking-cursor, -nbc disable blinking cursor\n\
308 --reverse-video, -r, -rv switch foreground and background\n\
309 --title, -T TITLE title for initial Emacs frame\n\
310 --vertical-scroll-bars, -vb enable vertical scroll bars\n\
311 --xrm XRESOURCES set additional X resources\n\
312 --parent-id XID set parent window\n\
313 --help display this help and exit\n\
314 --version output version information and exit\n\
318 You can generally also specify long option names with a single -; for\n\
319 example, -batch as well as --batch. You can use any unambiguous\n\
320 abbreviation for a --option.\n\
322 Various environment variables and window system resources also affect\n\
323 the operation of Emacs. See the main documentation.\n\
325 Report bugs to " PACKAGE_BUGREPORT ". First, please see the Bugs\n\
326 section of the Emacs manual or the file BUGS.\n"
330 /* True if handling a fatal error already. */
331 bool fatal_error_in_progress;
333 #ifdef HAVE_NS
334 /* NS autrelease pool, for memory management. */
335 static void *ns_pool;
336 #endif
338 #if !HAVE_SETLOCALE
339 static char *
340 setlocale (int cat, char const *locale)
342 return 0;
344 #endif
346 /* True if the current system locale uses UTF-8 encoding. */
347 static bool
348 using_utf8 (void)
350 #ifdef HAVE_WCHAR_H
351 wchar_t wc;
352 mbstate_t mbs = { 0 };
353 return mbrtowc (&wc, "\xc4\x80", 2, &mbs) == 2 && wc == 0x100;
354 #else
355 return false;
356 #endif
360 /* Report a fatal error due to signal SIG, output a backtrace of at
361 most BACKTRACE_LIMIT lines, and exit. */
362 _Noreturn void
363 terminate_due_to_signal (int sig, int backtrace_limit)
365 signal (sig, SIG_DFL);
367 if (attempt_orderly_shutdown_on_fatal_signal)
369 /* If fatal error occurs in code below, avoid infinite recursion. */
370 if (! fatal_error_in_progress)
372 fatal_error_in_progress = 1;
374 totally_unblock_input ();
375 if (sig == SIGTERM || sig == SIGHUP || sig == SIGINT)
376 Fkill_emacs (make_number (sig));
378 shut_down_emacs (sig, Qnil);
379 emacs_backtrace (backtrace_limit);
383 /* Signal the same code; this time it will really be fatal.
384 Since we're in a signal handler, the signal is blocked, so we
385 have to unblock it if we want to really receive it. */
386 #ifndef MSDOS
388 sigset_t unblocked;
389 sigemptyset (&unblocked);
390 sigaddset (&unblocked, sig);
391 pthread_sigmask (SIG_UNBLOCK, &unblocked, 0);
393 #endif
395 emacs_raise (sig);
397 /* This shouldn't be executed, but it prevents a warning. */
398 exit (1);
401 /* Code for dealing with Lisp access to the Unix command line. */
403 static void
404 init_cmdargs (int argc, char **argv, int skip_args, char *original_pwd)
406 int i;
407 Lisp_Object name, dir, handler;
408 ptrdiff_t count = SPECPDL_INDEX ();
409 Lisp_Object raw_name;
410 AUTO_STRING (slash_colon, "/:");
412 initial_argv = argv;
413 initial_argc = argc;
415 #ifdef WINDOWSNT
416 /* Must use argv[0] converted to UTF-8, as it begets many standard
417 file and directory names. */
419 char argv0[MAX_UTF8_PATH];
421 if (filename_from_ansi (argv[0], argv0) == 0)
422 raw_name = build_unibyte_string (argv0);
423 else
424 raw_name = build_unibyte_string (argv[0]);
426 #else
427 raw_name = build_unibyte_string (argv[0]);
428 #endif
430 /* Add /: to the front of the name
431 if it would otherwise be treated as magic. */
432 handler = Ffind_file_name_handler (raw_name, Qt);
433 if (! NILP (handler))
434 raw_name = concat2 (slash_colon, raw_name);
436 Vinvocation_name = Ffile_name_nondirectory (raw_name);
437 Vinvocation_directory = Ffile_name_directory (raw_name);
439 /* If we got no directory in argv[0], search PATH to find where
440 Emacs actually came from. */
441 if (NILP (Vinvocation_directory))
443 Lisp_Object found;
444 int yes = openp (Vexec_path, Vinvocation_name,
445 Vexec_suffixes, &found, make_number (X_OK), false);
446 if (yes == 1)
448 /* Add /: to the front of the name
449 if it would otherwise be treated as magic. */
450 handler = Ffind_file_name_handler (found, Qt);
451 if (! NILP (handler))
452 found = concat2 (slash_colon, found);
453 Vinvocation_directory = Ffile_name_directory (found);
457 if (!NILP (Vinvocation_directory)
458 && NILP (Ffile_name_absolute_p (Vinvocation_directory)))
459 /* Emacs was started with relative path, like ./emacs.
460 Make it absolute. */
462 Lisp_Object odir =
463 original_pwd ? build_unibyte_string (original_pwd) : Qnil;
465 Vinvocation_directory = Fexpand_file_name (Vinvocation_directory, odir);
468 Vinstallation_directory = Qnil;
470 if (!NILP (Vinvocation_directory))
472 dir = Vinvocation_directory;
473 #ifdef WINDOWSNT
474 /* If we are running from the build directory, set DIR to the
475 src subdirectory of the Emacs tree, like on Posix
476 platforms. */
477 if (SBYTES (dir) > sizeof ("/i386/") - 1
478 && 0 == strcmp (SSDATA (dir) + SBYTES (dir) - sizeof ("/i386/") + 1,
479 "/i386/"))
480 dir = Fexpand_file_name (build_string ("../.."), dir);
481 #else /* !WINDOWSNT */
482 #endif
483 name = Fexpand_file_name (Vinvocation_name, dir);
484 while (1)
486 Lisp_Object tem, lib_src_exists;
487 Lisp_Object etc_exists, info_exists;
489 /* See if dir contains subdirs for use by Emacs.
490 Check for the ones that would exist in a build directory,
491 not including lisp and info. */
492 tem = Fexpand_file_name (build_string ("lib-src"), dir);
493 lib_src_exists = Ffile_exists_p (tem);
495 #ifdef MSDOS
496 /* MSDOS installations frequently remove lib-src, but we still
497 must set installation-directory, or else info won't find
498 its files (it uses the value of installation-directory). */
499 tem = Fexpand_file_name (build_string ("info"), dir);
500 info_exists = Ffile_exists_p (tem);
501 #else
502 info_exists = Qnil;
503 #endif
505 if (!NILP (lib_src_exists) || !NILP (info_exists))
507 tem = Fexpand_file_name (build_string ("etc"), dir);
508 etc_exists = Ffile_exists_p (tem);
509 if (!NILP (etc_exists))
511 Vinstallation_directory
512 = Ffile_name_as_directory (dir);
513 break;
517 /* See if dir's parent contains those subdirs. */
518 tem = Fexpand_file_name (build_string ("../lib-src"), dir);
519 lib_src_exists = Ffile_exists_p (tem);
522 #ifdef MSDOS
523 /* See the MSDOS commentary above. */
524 tem = Fexpand_file_name (build_string ("../info"), dir);
525 info_exists = Ffile_exists_p (tem);
526 #else
527 info_exists = Qnil;
528 #endif
530 if (!NILP (lib_src_exists) || !NILP (info_exists))
532 tem = Fexpand_file_name (build_string ("../etc"), dir);
533 etc_exists = Ffile_exists_p (tem);
534 if (!NILP (etc_exists))
536 tem = Fexpand_file_name (build_string (".."), dir);
537 Vinstallation_directory
538 = Ffile_name_as_directory (tem);
539 break;
543 /* If the Emacs executable is actually a link,
544 next try the dir that the link points into. */
545 tem = Ffile_symlink_p (name);
546 if (!NILP (tem))
548 name = Fexpand_file_name (tem, dir);
549 dir = Ffile_name_directory (name);
551 else
552 break;
556 Vcommand_line_args = Qnil;
558 for (i = argc - 1; i >= 0; i--)
560 if (i == 0 || i > skip_args)
561 /* For the moment, we keep arguments as is in unibyte strings.
562 They are decoded in the function command-line after we know
563 locale-coding-system. */
564 Vcommand_line_args
565 = Fcons (build_unibyte_string (argv[i]), Vcommand_line_args);
568 unbind_to (count, Qnil);
571 DEFUN ("invocation-name", Finvocation_name, Sinvocation_name, 0, 0, 0,
572 doc: /* Return the program name that was used to run Emacs.
573 Any directory names are omitted. */)
574 (void)
576 return Fcopy_sequence (Vinvocation_name);
579 DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory,
580 0, 0, 0,
581 doc: /* Return the directory name in which the Emacs executable was located. */)
582 (void)
584 return Fcopy_sequence (Vinvocation_directory);
588 /* Test whether the next argument in ARGV matches SSTR or a prefix of
589 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
590 (the argument is supposed to have a value) store in *VALPTR either
591 the next argument or the portion of this one after the equal sign.
592 ARGV is read starting at position *SKIPPTR; this index is advanced
593 by the number of arguments used.
595 Too bad we can't just use getopt for all of this, but we don't have
596 enough information to do it right. */
598 static bool
599 argmatch (char **argv, int argc, const char *sstr, const char *lstr,
600 int minlen, char **valptr, int *skipptr)
602 char *p = NULL;
603 ptrdiff_t arglen;
604 char *arg;
606 /* Don't access argv[argc]; give up in advance. */
607 if (argc <= *skipptr + 1)
608 return 0;
610 arg = argv[*skipptr+1];
611 if (arg == NULL)
612 return 0;
613 if (strcmp (arg, sstr) == 0)
615 if (valptr != NULL)
617 *valptr = argv[*skipptr+2];
618 *skipptr += 2;
620 else
621 *skipptr += 1;
622 return 1;
624 arglen = (valptr != NULL && (p = strchr (arg, '=')) != NULL
625 ? p - arg : strlen (arg));
626 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
627 return 0;
628 else if (valptr == NULL)
630 *skipptr += 1;
631 return 1;
633 else if (p != NULL)
635 *valptr = p+1;
636 *skipptr += 1;
637 return 1;
639 else if (argv[*skipptr+2] != NULL)
641 *valptr = argv[*skipptr+2];
642 *skipptr += 2;
643 return 1;
645 else
647 return 0;
651 /* Close standard output and standard error, reporting any write
652 errors as best we can. This is intended for use with atexit. */
653 static void
654 close_output_streams (void)
656 if (close_stream (stdout) != 0)
658 emacs_perror ("Write error to standard output");
659 _exit (EXIT_FAILURE);
662 if (close_stream (stderr) != 0)
663 _exit (EXIT_FAILURE);
666 /* ARGSUSED */
668 main (int argc, char **argv)
670 char stack_bottom_variable;
671 bool do_initial_setlocale;
672 bool dumping;
673 int skip_args = 0;
674 bool no_loadup = false;
675 char *junk = 0;
676 char *dname_arg = 0;
677 #ifdef DAEMON_MUST_EXEC
678 char dname_arg2[80];
679 #endif
680 char *ch_to_dir = 0;
682 /* If we use --chdir, this records the original directory. */
683 char *original_pwd = 0;
685 /* Record (approximately) where the stack begins. */
686 stack_bottom = &stack_bottom_variable;
688 dumping = !initialized && (strcmp (argv[argc - 1], "dump") == 0
689 || strcmp (argv[argc - 1], "bootstrap") == 0 );
691 generating_ldefs_boot = getenv ("GENERATE_LDEFS_BOOT");
694 /* True if address randomization interferes with memory allocation. */
695 # ifdef __PPC64__
696 bool disable_aslr = true;
697 # else
698 bool disable_aslr = dumping;
699 # endif
701 if (disable_aslr && disable_address_randomization ())
703 /* Set this so the personality will be reverted before execs
704 after this one. */
705 xputenv ("EMACS_HEAP_EXEC=true");
707 /* Address randomization was enabled, but is now disabled.
708 Re-execute Emacs to get a clean slate. */
709 execvp (argv[0], argv);
711 /* If the exec fails, warn and then try anyway. */
712 perror (argv[0]);
715 #ifndef CANNOT_DUMP
716 might_dump = !initialized;
718 # ifdef GNU_LINUX
719 if (!initialized)
721 char *heap_start = my_heap_start ();
722 heap_bss_diff = heap_start - max (my_endbss, my_endbss_static);
724 # endif
725 #endif
727 #if defined WINDOWSNT || defined HAVE_NTGUI
728 /* Set global variables used to detect Windows version. Do this as
729 early as possible. (unexw32.c calls this function as well, but
730 the additional call here is harmless.) */
731 cache_system_info ();
732 #ifdef WINDOWSNT
733 /* On Windows 9X, we have to load UNICOWS.DLL as early as possible,
734 to have non-stub implementations of APIs we need to convert file
735 names between UTF-8 and the system's ANSI codepage. */
736 maybe_load_unicows_dll ();
737 /* Initialize the codepage for file names, needed to decode
738 non-ASCII file names during startup. */
739 w32_init_file_name_codepage ();
740 #endif
741 w32_init_main_thread ();
742 #endif
744 #ifdef RUN_TIME_REMAP
745 if (initialized)
746 run_time_remap (argv[0]);
747 #endif
749 /* If using unexmacosx.c (set by s/darwin.h), we must do this. */
750 #ifdef DARWIN_OS
751 if (!initialized)
752 unexec_init_emacs_zone ();
753 #endif
755 init_standard_fds ();
756 atexit (close_output_streams);
758 sort_args (argc, argv);
759 argc = 0;
760 while (argv[argc]) argc++;
762 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args))
764 const char *version, *copyright;
765 if (initialized)
767 Lisp_Object tem, tem2;
768 tem = Fsymbol_value (intern_c_string ("emacs-version"));
769 tem2 = Fsymbol_value (intern_c_string ("emacs-copyright"));
770 if (!STRINGP (tem))
772 fprintf (stderr, "Invalid value of 'emacs-version'\n");
773 exit (1);
775 if (!STRINGP (tem2))
777 fprintf (stderr, "Invalid value of 'emacs-copyright'\n");
778 exit (1);
780 else
782 version = SSDATA (tem);
783 copyright = SSDATA (tem2);
786 else
788 version = emacs_version;
789 copyright = emacs_copyright;
791 printf ("%s %s\n", PACKAGE_NAME, version);
792 printf ("%s\n", copyright);
793 printf ("%s comes with ABSOLUTELY NO WARRANTY.\n", PACKAGE_NAME);
794 printf ("You may redistribute copies of %s\n", PACKAGE_NAME);
795 printf ("under the terms of the GNU General Public License.\n");
796 printf ("For more information about these matters, ");
797 printf ("see the file named COPYING.\n");
798 exit (0);
801 if (argmatch (argv, argc, "-chdir", "--chdir", 4, &ch_to_dir, &skip_args))
803 #ifdef WINDOWSNT
804 /* argv[] array is kept in its original ANSI codepage encoding,
805 we need to convert to UTF-8, for chdir to work. */
806 char newdir[MAX_UTF8_PATH];
808 filename_from_ansi (ch_to_dir, newdir);
809 ch_to_dir = newdir;
810 #endif
811 original_pwd = emacs_get_current_dir_name ();
812 if (chdir (ch_to_dir) != 0)
814 fprintf (stderr, "%s: Can't chdir to %s: %s\n",
815 argv[0], ch_to_dir, strerror (errno));
816 exit (1);
820 #if defined (HAVE_SETRLIMIT) && defined (RLIMIT_STACK) && !defined (CYGWIN)
821 /* Extend the stack space available. Don't do that if dumping,
822 since some systems (e.g. DJGPP) might define a smaller stack
823 limit at that time. And it's not needed on Cygwin, since emacs
824 is built with an 8MB stack. Moreover, the setrlimit call can
825 cause problems on Cygwin
826 (https://www.cygwin.com/ml/cygwin/2015-07/msg00096.html). */
827 struct rlimit rlim;
828 if (getrlimit (RLIMIT_STACK, &rlim) == 0
829 && 0 <= rlim.rlim_cur && rlim.rlim_cur <= LONG_MAX)
831 rlim_t lim = rlim.rlim_cur;
833 /* Approximate the amount regex.c needs per unit of
834 re_max_failures, then add 33% to cover the size of the
835 smaller stacks that regex.c successively allocates and
836 discards on its way to the maximum. */
837 int ratio = 20 * sizeof (char *);
838 ratio += ratio / 3;
840 /* Extra space to cover what we're likely to use for other reasons. */
841 int extra = 200000;
843 bool try_to_grow_stack = true;
844 #ifndef CANNOT_DUMP
845 try_to_grow_stack = !noninteractive || initialized;
846 #endif
848 if (try_to_grow_stack)
850 rlim_t newlim = re_max_failures * ratio + extra;
852 /* Round the new limit to a page boundary; this is needed
853 for Darwin kernel 15.4.0 (see Bug#23622) and perhaps
854 other systems. Do not shrink the stack and do not exceed
855 rlim_max. Don't worry about exact values of
856 RLIM_INFINITY etc. since in practice when they are
857 nonnegative they are so large that the code does the
858 right thing anyway. */
859 long pagesize = getpagesize ();
860 newlim += pagesize - 1;
861 if (0 <= rlim.rlim_max && rlim.rlim_max < newlim)
862 newlim = rlim.rlim_max;
863 newlim -= newlim % pagesize;
865 if (pagesize <= newlim - lim)
867 rlim.rlim_cur = newlim;
868 if (setrlimit (RLIMIT_STACK, &rlim) == 0)
869 lim = newlim;
873 /* Don't let regex.c overflow the stack. */
874 re_max_failures = lim < extra ? 0 : min (lim - extra, SIZE_MAX) / ratio;
876 #endif /* HAVE_SETRLIMIT and RLIMIT_STACK and not CYGWIN */
878 clearerr (stdin);
880 emacs_backtrace (-1);
882 #if !defined SYSTEM_MALLOC && !defined HYBRID_MALLOC
883 /* Arrange to get warning messages as memory fills up. */
884 memory_warnings (0, malloc_warning);
886 /* Call malloc at least once, to run malloc_initialize_hook.
887 Also call realloc and free for consistency. */
888 free (realloc (malloc (4), 4));
890 #endif /* not SYSTEM_MALLOC and not HYBRID_MALLOC */
892 #ifdef MSDOS
893 SET_BINARY (fileno (stdin));
894 fflush (stdout);
895 SET_BINARY (fileno (stdout));
896 #endif /* MSDOS */
898 /* Skip initial setlocale if LC_ALL is "C", as it's not needed in that case.
899 The build procedure uses this while dumping, to ensure that the
900 dumped Emacs does not have its system locale tables initialized,
901 as that might cause screwups when the dumped Emacs starts up. */
903 char *lc_all = getenv ("LC_ALL");
904 do_initial_setlocale = ! lc_all || strcmp (lc_all, "C");
907 /* Set locale now, so that initial error messages are localized properly.
908 fixup_locale must wait until later, since it builds strings. */
909 if (do_initial_setlocale)
910 setlocale (LC_ALL, "");
911 text_quoting_flag = using_utf8 ();
913 inhibit_window_system = 0;
915 /* Handle the -t switch, which specifies filename to use as terminal. */
916 while (1)
918 char *term;
919 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
921 emacs_close (STDIN_FILENO);
922 emacs_close (STDOUT_FILENO);
923 int result = emacs_open (term, O_RDWR, 0);
924 if (result != STDIN_FILENO
925 || (fcntl (STDIN_FILENO, F_DUPFD_CLOEXEC, STDOUT_FILENO)
926 != STDOUT_FILENO))
928 char *errstring = strerror (errno);
929 fprintf (stderr, "%s: %s: %s\n", argv[0], term, errstring);
930 exit (EXIT_FAILURE);
932 if (! isatty (STDIN_FILENO))
934 fprintf (stderr, "%s: %s: not a tty\n", argv[0], term);
935 exit (EXIT_FAILURE);
937 fprintf (stderr, "Using %s\n", term);
938 #ifdef HAVE_WINDOW_SYSTEM
939 inhibit_window_system = true; /* -t => -nw */
940 #endif
942 else
943 break;
946 /* Command line option --no-windows is deprecated and thus not mentioned
947 in the manual and usage information. */
948 if (argmatch (argv, argc, "-nw", "--no-window-system", 6, NULL, &skip_args)
949 || argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
950 inhibit_window_system = 1;
952 /* Handle the -batch switch, which means don't do interactive display. */
953 noninteractive = 0;
954 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
956 noninteractive = 1;
957 Vundo_outer_limit = Qnil;
959 if (argmatch (argv, argc, "-script", "--script", 3, &junk, &skip_args))
961 noninteractive = 1; /* Set batch mode. */
962 /* Convert --script to -scriptload, un-skip it, and sort again
963 so that it will be handled in proper sequence. */
964 /* FIXME broken for --script=FILE - is that supposed to work? */
965 argv[skip_args - 1] = (char *) "-scriptload";
966 skip_args -= 2;
967 sort_args (argc, argv);
970 /* Handle the --help option, which gives a usage message. */
971 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
973 int i;
974 printf ("Usage: %s [OPTION-OR-FILENAME]...\n", argv[0]);
975 for (i = 0; i < ARRAYELTS (usage_message); i++)
976 fputs (usage_message[i], stdout);
977 exit (0);
980 daemon_type = 0;
982 #ifndef WINDOWSNT
983 /* Make sure IS_DAEMON starts up as false. */
984 daemon_pipe[1] = 0;
985 #else
986 w32_daemon_event = NULL;
987 #endif
990 int sockfd = -1;
992 if (argmatch (argv, argc, "-new-daemon", "--new-daemon", 10, NULL, &skip_args)
993 || argmatch (argv, argc, "-new-daemon", "--new-daemon", 10, &dname_arg, &skip_args))
995 daemon_type = 1; /* foreground */
997 else if (argmatch (argv, argc, "-daemon", "--daemon", 5, NULL, &skip_args)
998 || argmatch (argv, argc, "-daemon", "--daemon", 5, &dname_arg, &skip_args)
999 || argmatch (argv, argc, "-old-daemon", "--old-daemon", 10, NULL, &skip_args)
1000 || argmatch (argv, argc, "-old-daemon", "--old-daemon", 10, &dname_arg, &skip_args))
1002 daemon_type = 2; /* background */
1006 if (daemon_type > 0)
1008 #ifndef DOS_NT
1009 if (daemon_type == 2)
1011 /* Start as a background daemon: fork a new child process which
1012 will run the rest of the initialization code, then exit.
1014 Detaching a daemon requires the following steps:
1015 - fork
1016 - setsid
1017 - exit the parent
1018 - close the tty file-descriptors
1020 We only want to do the last 2 steps once the daemon is ready to
1021 serve requests, i.e. after loading .emacs (initialization).
1022 OTOH initialization may start subprocesses (e.g. ispell) and these
1023 should be run from the proper process (the one that will end up
1024 running as daemon) and with the proper "session id" in order for
1025 them to keep working after detaching, so fork and setsid need to be
1026 performed before initialization.
1028 We want to avoid exiting before the server socket is ready, so
1029 use a pipe for synchronization. The parent waits for the child
1030 to close its end of the pipe (using `daemon-initialized')
1031 before exiting. */
1032 if (emacs_pipe (daemon_pipe) != 0)
1034 fprintf (stderr, "Cannot pipe!\n");
1035 exit (1);
1037 } /* daemon_type == 2 */
1039 #ifdef HAVE_LIBSYSTEMD
1040 /* Read the number of sockets passed through by systemd. */
1041 int systemd_socket = sd_listen_fds (1);
1043 if (systemd_socket > 1)
1044 fprintf (stderr,
1045 ("\n"
1046 "Warning: systemd passed more than one socket to Emacs.\n"
1047 "Try 'Accept=false' in the Emacs socket unit file.\n"));
1048 else if (systemd_socket == 1
1049 && (0 < sd_is_socket (SD_LISTEN_FDS_START,
1050 AF_UNSPEC, SOCK_STREAM, 1)))
1051 sockfd = SD_LISTEN_FDS_START;
1052 #endif /* HAVE_LIBSYSTEMD */
1054 #ifdef USE_GTK
1055 fprintf (stderr, "\nWarning: due to a long standing Gtk+ bug\nhttp://bugzilla.gnome.org/show_bug.cgi?id=85715\n\
1056 Emacs might crash when run in daemon mode and the X11 connection is unexpectedly lost.\n\
1057 Using an Emacs configured with --with-x-toolkit=lucid does not have this problem.\n");
1058 #endif /* USE_GTK */
1060 if (daemon_type == 2)
1062 pid_t f;
1063 #ifndef DAEMON_MUST_EXEC
1065 f = fork ();
1066 #else /* DAEMON_MUST_EXEC */
1067 if (!dname_arg || !strchr (dname_arg, '\n'))
1068 f = fork (); /* in orig */
1069 else
1070 f = 0; /* in exec'd */
1071 #endif /* !DAEMON_MUST_EXEC */
1072 if (f > 0)
1074 int retval;
1075 char buf[1];
1077 /* Close unused writing end of the pipe. */
1078 emacs_close (daemon_pipe[1]);
1080 /* Just wait for the child to close its end of the pipe. */
1083 retval = read (daemon_pipe[0], &buf, 1);
1085 while (retval == -1 && errno == EINTR);
1087 if (retval < 0)
1089 fprintf (stderr, "Error reading status from child\n");
1090 exit (1);
1092 else if (retval == 0)
1094 fprintf (stderr, "Error: server did not start correctly\n");
1095 exit (1);
1098 emacs_close (daemon_pipe[0]);
1099 exit (0);
1101 if (f < 0)
1103 emacs_perror ("fork");
1104 exit (EXIT_CANCELED);
1107 #ifdef DAEMON_MUST_EXEC
1109 /* In orig process, forked as child, OR in exec'd. */
1110 if (!dname_arg || !strchr (dname_arg, '\n'))
1111 { /* In orig, child: now exec w/special daemon name. */
1112 char fdStr[80];
1113 int fdStrlen =
1114 snprintf (fdStr, sizeof fdStr,
1115 "--old-daemon=\n%d,%d\n%s", daemon_pipe[0],
1116 daemon_pipe[1], dname_arg ? dname_arg : "");
1118 if (! (0 <= fdStrlen && fdStrlen < sizeof fdStr))
1120 fprintf (stderr, "daemon: child name too long\n");
1121 exit (EXIT_CANNOT_INVOKE);
1124 argv[skip_args] = fdStr;
1126 fcntl (daemon_pipe[0], F_SETFD, 0);
1127 fcntl (daemon_pipe[1], F_SETFD, 0);
1128 execvp (argv[0], argv);
1129 emacs_perror (argv[0]);
1130 exit (errno == ENOENT ? EXIT_ENOENT : EXIT_CANNOT_INVOKE);
1133 /* In exec'd: parse special dname into pipe and name info. */
1134 if (!dname_arg || !strchr (dname_arg, '\n')
1135 || strlen (dname_arg) < 1 || strlen (dname_arg) > 70)
1137 fprintf (stderr, "emacs daemon: daemon name absent or too long\n");
1138 exit (EXIT_CANNOT_INVOKE);
1140 dname_arg2[0] = '\0';
1141 sscanf (dname_arg, "\n%d,%d\n%s", &(daemon_pipe[0]), &(daemon_pipe[1]),
1142 dname_arg2);
1143 dname_arg = *dname_arg2 ? dname_arg2 : NULL;
1144 fcntl (daemon_pipe[1], F_SETFD, FD_CLOEXEC);
1146 #endif /* DAEMON_MUST_EXEC */
1148 /* Close unused reading end of the pipe. */
1149 emacs_close (daemon_pipe[0]);
1151 setsid ();
1152 } /* daemon_type == 2 */
1153 #elif defined(WINDOWSNT)
1154 /* Indicate that we want daemon mode. */
1155 w32_daemon_event = CreateEvent (NULL, TRUE, FALSE, W32_DAEMON_EVENT);
1156 if (w32_daemon_event == NULL)
1158 fprintf (stderr, "Couldn't create MS-Windows event for daemon: %s\n",
1159 w32_strerror (0));
1160 exit (1);
1162 #else /* MSDOS */
1163 fprintf (stderr, "This platform does not support daemon mode.\n");
1164 exit (1);
1165 #endif /* MSDOS */
1166 if (dname_arg)
1167 daemon_name = xstrdup (dname_arg);
1170 #if defined HAVE_PTHREAD && !defined SYSTEM_MALLOC \
1171 && !defined DOUG_LEA_MALLOC && !defined HYBRID_MALLOC
1172 # ifndef CANNOT_DUMP
1173 /* Do not make gmalloc thread-safe when creating bootstrap-emacs, as
1174 that causes an infinite recursive loop with FreeBSD. See
1175 Bug#14569. The part of this bug involving Cygwin is no longer
1176 relevant, now that Cygwin defines HYBRID_MALLOC. */
1177 if (!noninteractive || initialized)
1178 # endif
1179 malloc_enable_thread ();
1180 #endif
1182 init_signals (dumping);
1184 noninteractive1 = noninteractive;
1186 /* Perform basic initializations (not merely interning symbols). */
1188 if (!initialized)
1190 init_alloc_once ();
1191 init_threads_once ();
1192 init_obarray ();
1193 init_eval_once ();
1194 init_charset_once ();
1195 init_coding_once ();
1196 init_syntax_once (); /* Create standard syntax table. */
1197 init_category_once (); /* Create standard category table. */
1198 init_casetab_once (); /* Must be done before init_buffer_once. */
1199 init_buffer_once (); /* Create buffer table and some buffers. */
1200 init_minibuf_once (); /* Create list of minibuffers. */
1201 /* Must precede init_window_once. */
1203 /* Call syms_of_xfaces before init_window_once because that
1204 function creates Vterminal_frame. Termcap frames now use
1205 faces, and the face implementation uses some symbols as
1206 face names. */
1207 syms_of_xfaces ();
1208 /* XXX syms_of_keyboard uses some symbols in keymap.c. It would
1209 be better to arrange things not to have this dependency. */
1210 syms_of_keymap ();
1211 /* Call syms_of_keyboard before init_window_once because
1212 keyboard sets up symbols that include some face names that
1213 the X support will want to use. This can happen when
1214 CANNOT_DUMP is defined. */
1215 syms_of_keyboard ();
1217 /* Called before syms_of_fileio, because it sets up Qerror_condition. */
1218 syms_of_data ();
1219 syms_of_fns (); /* Before syms_of_charset which uses hash tables. */
1220 syms_of_fileio ();
1221 /* Before syms_of_coding to initialize Vgc_cons_threshold. */
1222 syms_of_alloc ();
1223 /* May call Ffuncall and so GC, thus the latter should be initialized. */
1224 init_print_once ();
1225 /* Before syms_of_coding because it initializes Qcharsetp. */
1226 syms_of_charset ();
1227 /* Before init_window_once, because it sets up the
1228 Vcoding_system_hash_table. */
1229 syms_of_coding (); /* This should be after syms_of_fileio. */
1231 init_window_once (); /* Init the window system. */
1232 #ifdef HAVE_WINDOW_SYSTEM
1233 init_fringe_once (); /* Swap bitmaps if necessary. */
1234 #endif /* HAVE_WINDOW_SYSTEM */
1237 init_alloc ();
1238 init_threads ();
1240 if (do_initial_setlocale)
1242 fixup_locale ();
1243 Vsystem_messages_locale = Vprevious_system_messages_locale;
1244 Vsystem_time_locale = Vprevious_system_time_locale;
1247 init_eval ();
1248 init_atimer ();
1249 running_asynch_code = 0;
1250 init_random ();
1252 no_loadup
1253 = argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args);
1255 no_site_lisp
1256 = argmatch (argv, argc, "-nsl", "--no-site-lisp", 11, NULL, &skip_args);
1258 build_details = ! argmatch (argv, argc, "-no-build-details",
1259 "--no-build-details", 7, NULL, &skip_args);
1261 #ifdef HAVE_NS
1262 ns_pool = ns_alloc_autorelease_pool ();
1263 #ifdef NS_IMPL_GNUSTEP
1264 /* GNUstep stupidly resets our locale settings after we made them. */
1265 fixup_locale ();
1266 #endif
1268 if (!noninteractive)
1270 #ifdef NS_IMPL_COCOA
1271 /* Started from GUI? */
1272 /* FIXME: Do the right thing if getenv returns NULL, or if
1273 chdir fails. */
1274 if (! inhibit_window_system && ! isatty (STDIN_FILENO) && ! ch_to_dir)
1275 chdir (getenv ("HOME"));
1276 if (skip_args < argc)
1278 if (!strncmp (argv[skip_args], "-psn", 4))
1280 skip_args += 1;
1281 if (! ch_to_dir) chdir (getenv ("HOME"));
1283 else if (skip_args+1 < argc && !strncmp (argv[skip_args+1], "-psn", 4))
1285 skip_args += 2;
1286 if (! ch_to_dir) chdir (getenv ("HOME"));
1289 #endif /* COCOA */
1291 #endif /* HAVE_NS */
1293 #ifdef HAVE_X_WINDOWS
1294 /* Stupid kludge to catch command-line display spec. We can't
1295 handle this argument entirely in window system dependent code
1296 because we don't even know which window system dependent code
1297 to run until we've recognized this argument. */
1299 char *displayname = 0;
1300 int count_before = skip_args;
1302 /* Skip any number of -d options, but only use the last one. */
1303 while (1)
1305 int count_before_this = skip_args;
1307 if (argmatch (argv, argc, "-d", "--display", 3, &displayname, &skip_args))
1308 display_arg = 1;
1309 else if (argmatch (argv, argc, "-display", 0, 3, &displayname, &skip_args))
1310 display_arg = 1;
1311 else
1312 break;
1314 count_before = count_before_this;
1317 /* If we have the form --display=NAME,
1318 convert it into -d name.
1319 This requires inserting a new element into argv. */
1320 if (displayname && count_before < skip_args)
1322 if (skip_args == count_before + 1)
1324 memmove (argv + count_before + 3, argv + count_before + 2,
1325 (argc - (count_before + 2)) * sizeof *argv);
1326 argv[count_before + 2] = displayname;
1327 argc++;
1329 argv[count_before + 1] = (char *) "-d";
1332 if (! no_site_lisp)
1334 if (argmatch (argv, argc, "-Q", "--quick", 3, NULL, &skip_args)
1335 || argmatch (argv, argc, "-quick", 0, 2, NULL, &skip_args))
1336 no_site_lisp = 1;
1339 /* Don't actually discard this arg. */
1340 skip_args = count_before;
1342 #else /* !HAVE_X_WINDOWS */
1343 if (! no_site_lisp)
1345 int count_before = skip_args;
1347 if (argmatch (argv, argc, "-Q", "--quick", 3, NULL, &skip_args)
1348 || argmatch (argv, argc, "-quick", 0, 2, NULL, &skip_args))
1349 no_site_lisp = 1;
1351 skip_args = count_before;
1353 #endif
1355 /* argmatch must not be used after here,
1356 except when building temacs
1357 because the -d argument has not been skipped in skip_args. */
1359 #ifdef MSDOS
1360 /* Call early 'cause init_environment needs it. */
1361 init_dosfns ();
1362 /* Set defaults for several environment variables. */
1363 if (initialized)
1364 init_environment (argc, argv, skip_args);
1365 else
1366 tzset ();
1367 #endif /* MSDOS */
1369 #ifdef HAVE_KQUEUE
1370 globals_of_kqueue ();
1371 #endif
1373 #ifdef HAVE_GFILENOTIFY
1374 globals_of_gfilenotify ();
1375 #endif
1377 #ifdef HAVE_NS
1378 /* Initialize the locale from user defaults. */
1379 ns_init_locale ();
1380 #endif
1382 /* Initialize and GC-protect Vinitial_environment and
1383 Vprocess_environment before set_initial_environment fills them
1384 in. */
1385 if (!initialized)
1386 syms_of_callproc ();
1387 /* egetenv is a pretty low-level facility, which may get called in
1388 many circumstances; it seems flimsy to put off initializing it
1389 until calling init_callproc. Do not do it when dumping. */
1390 if (! dumping)
1391 set_initial_environment ();
1393 #ifdef WINDOWSNT
1394 globals_of_w32 ();
1395 #ifdef HAVE_W32NOTIFY
1396 globals_of_w32notify ();
1397 #endif
1398 /* Initialize environment from registry settings. Make sure to do
1399 this only after calling set_initial_environment so that
1400 Vinitial_environment and Vprocess_environment will contain only
1401 variables from the parent process without modifications from
1402 Emacs. */
1403 init_environment (argv);
1404 init_ntproc (dumping); /* must precede init_editfns. */
1405 #endif
1407 /* AIX crashes are reported in system versions 3.2.3 and 3.2.4
1408 if this is not done. Do it after set_global_environment so that we
1409 don't pollute Vglobal_environment. */
1410 /* Setting LANG here will defeat the startup locale processing... */
1411 #ifdef AIX
1412 xputenv ("LANG=C");
1413 #endif
1415 /* Init buffer storage and default directory of main buffer. */
1416 init_buffer (initialized);
1418 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */
1420 /* Must precede init_lread. */
1421 init_cmdargs (argc, argv, skip_args, original_pwd);
1423 if (initialized)
1425 /* Erase any pre-dump messages in the message log, to avoid confusion. */
1426 Lisp_Object old_log_max;
1427 old_log_max = Vmessage_log_max;
1428 XSETFASTINT (Vmessage_log_max, 0);
1429 message_dolog ("", 0, 1, 0);
1430 Vmessage_log_max = old_log_max;
1433 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */
1434 init_fileio ();
1435 init_lread ();
1436 #ifdef WINDOWSNT
1437 /* Check to see if Emacs has been installed correctly. */
1438 check_windows_init_file ();
1439 #endif
1441 /* Intern the names of all standard functions and variables;
1442 define standard keys. */
1444 if (!initialized)
1446 /* The basic levels of Lisp must come first. Note that
1447 syms_of_data and some others have already been called. */
1448 syms_of_chartab ();
1449 syms_of_lread ();
1450 syms_of_print ();
1451 syms_of_eval ();
1452 syms_of_floatfns ();
1454 syms_of_buffer ();
1455 syms_of_bytecode ();
1456 syms_of_callint ();
1457 syms_of_casefiddle ();
1458 syms_of_casetab ();
1459 syms_of_category ();
1460 syms_of_ccl ();
1461 syms_of_character ();
1462 syms_of_cmds ();
1463 syms_of_dired ();
1464 syms_of_display ();
1465 syms_of_doc ();
1466 syms_of_editfns ();
1467 syms_of_emacs ();
1468 syms_of_filelock ();
1469 syms_of_indent ();
1470 syms_of_insdel ();
1471 /* syms_of_keymap (); */
1472 syms_of_macros ();
1473 syms_of_marker ();
1474 syms_of_minibuf ();
1475 syms_of_process ();
1476 syms_of_search ();
1477 syms_of_frame ();
1478 syms_of_syntax ();
1479 syms_of_terminal ();
1480 syms_of_term ();
1481 syms_of_undo ();
1483 #ifdef HAVE_MODULES
1484 syms_of_module ();
1485 #endif
1487 #ifdef HAVE_SOUND
1488 syms_of_sound ();
1489 #endif
1490 syms_of_textprop ();
1491 syms_of_composite ();
1492 #ifdef WINDOWSNT
1493 syms_of_ntproc ();
1494 #endif /* WINDOWSNT */
1495 #if defined CYGWIN
1496 syms_of_cygw32 ();
1497 #endif
1498 syms_of_window ();
1499 syms_of_xdisp ();
1500 syms_of_font ();
1501 #ifdef HAVE_WINDOW_SYSTEM
1502 syms_of_fringe ();
1503 syms_of_image ();
1504 #endif /* HAVE_WINDOW_SYSTEM */
1505 #ifdef HAVE_X_WINDOWS
1506 syms_of_xterm ();
1507 syms_of_xfns ();
1508 syms_of_xmenu ();
1509 syms_of_fontset ();
1510 syms_of_xwidget ();
1511 syms_of_xsettings ();
1512 #ifdef HAVE_X_SM
1513 syms_of_xsmfns ();
1514 #endif
1515 #ifdef HAVE_X11
1516 syms_of_xselect ();
1517 #endif
1518 #endif /* HAVE_X_WINDOWS */
1520 #ifdef HAVE_LIBXML2
1521 syms_of_xml ();
1522 #endif
1524 #ifdef HAVE_ZLIB
1525 syms_of_decompress ();
1526 #endif
1528 syms_of_menu ();
1530 #ifdef HAVE_NTGUI
1531 syms_of_w32term ();
1532 syms_of_w32fns ();
1533 syms_of_w32menu ();
1534 syms_of_fontset ();
1535 #endif /* HAVE_NTGUI */
1537 #if defined WINDOWSNT || defined HAVE_NTGUI
1538 syms_of_w32select ();
1539 #endif
1541 #ifdef MSDOS
1542 syms_of_xmenu ();
1543 syms_of_dosfns ();
1544 syms_of_msdos ();
1545 syms_of_win16select ();
1546 #endif /* MSDOS */
1548 #ifdef HAVE_NS
1549 syms_of_nsterm ();
1550 syms_of_nsfns ();
1551 syms_of_nsmenu ();
1552 syms_of_nsselect ();
1553 syms_of_fontset ();
1554 #endif /* HAVE_NS */
1556 syms_of_gnutls ();
1558 #ifdef HAVE_INOTIFY
1559 syms_of_inotify ();
1560 #endif /* HAVE_INOTIFY */
1562 #ifdef HAVE_KQUEUE
1563 syms_of_kqueue ();
1564 #endif /* HAVE_KQUEUE */
1566 #ifdef HAVE_GFILENOTIFY
1567 syms_of_gfilenotify ();
1568 #endif /* HAVE_GFILENOTIFY */
1570 #ifdef HAVE_DBUS
1571 syms_of_dbusbind ();
1572 #endif /* HAVE_DBUS */
1574 #ifdef WINDOWSNT
1575 syms_of_ntterm ();
1576 #ifdef HAVE_W32NOTIFY
1577 syms_of_w32notify ();
1578 #endif /* HAVE_W32NOTIFY */
1579 #endif /* WINDOWSNT */
1581 syms_of_threads ();
1582 syms_of_profiler ();
1584 keys_of_casefiddle ();
1585 keys_of_cmds ();
1586 keys_of_buffer ();
1587 keys_of_keyboard ();
1588 keys_of_keymap ();
1589 keys_of_window ();
1591 else
1593 /* Initialization that must be done even if the global variable
1594 initialized is non zero. */
1595 #ifdef HAVE_NTGUI
1596 globals_of_w32font ();
1597 globals_of_w32fns ();
1598 globals_of_w32menu ();
1599 #endif /* HAVE_NTGUI */
1601 #if defined WINDOWSNT || defined HAVE_NTGUI
1602 globals_of_w32select ();
1603 #endif
1606 init_charset ();
1608 /* This calls putenv and so must precede init_process_emacs. Also,
1609 it sets Voperating_system_release, which init_process_emacs uses. */
1610 init_editfns (dumping);
1612 /* These two call putenv. */
1613 #ifdef HAVE_DBUS
1614 init_dbusbind ();
1615 #endif
1616 #ifdef USE_GTK
1617 init_xterm ();
1618 #endif
1620 /* This can create a thread that may call getenv, so it must follow
1621 all calls to putenv and setenv. Also, this sets up
1622 add_keyboard_wait_descriptor, which init_display uses. */
1623 init_process_emacs (sockfd);
1625 init_keyboard (); /* This too must precede init_sys_modes. */
1626 if (!noninteractive)
1627 init_display (); /* Determine terminal type. Calls init_sys_modes. */
1628 #if HAVE_W32NOTIFY
1629 else
1630 init_crit (); /* w32notify.c needs this in batch mode. */
1631 #endif /* HAVE_W32NOTIFY */
1632 init_xdisp ();
1633 #ifdef HAVE_WINDOW_SYSTEM
1634 init_fringe ();
1635 #endif /* HAVE_WINDOW_SYSTEM */
1636 init_macros ();
1637 init_window ();
1638 init_font ();
1640 if (!initialized)
1642 char *file;
1643 /* Handle -l loadup, args passed by Makefile. */
1644 if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args))
1646 #ifdef WINDOWSNT
1647 char file_utf8[MAX_UTF8_PATH];
1649 if (filename_from_ansi (file, file_utf8) == 0)
1650 file = file_utf8;
1651 #endif
1652 Vtop_level = list2 (Qload, build_unibyte_string (file));
1654 /* Unless next switch is -nl, load "loadup.el" first thing. */
1655 if (! no_loadup)
1656 Vtop_level = list2 (Qload, build_string ("loadup.el"));
1659 /* Set up for profiling. This is known to work on FreeBSD,
1660 GNU/Linux and MinGW. It might work on some other systems too.
1661 Give it a try and tell us if it works on your system. To compile
1662 for profiling, use the configure option --enable-profiling. */
1663 #if defined (__FreeBSD__) || defined (GNU_LINUX) || defined (__MINGW32__)
1664 #ifdef PROFILING
1665 if (initialized)
1667 #ifdef __MINGW32__
1668 extern unsigned char etext asm ("etext");
1669 #else
1670 extern char etext;
1671 #endif
1673 atexit (_mcleanup);
1674 monstartup ((uintptr_t) __executable_start, (uintptr_t) &etext);
1676 else
1677 moncontrol (0);
1678 #endif
1679 #endif
1681 initialized = 1;
1683 /* Enter editor command loop. This never returns. */
1684 Frecursive_edit ();
1685 /* NOTREACHED */
1686 return 0;
1689 /* Sort the args so we can find the most important ones
1690 at the beginning of argv. */
1692 /* First, here's a table of all the standard options. */
1694 struct standard_args
1696 const char *name;
1697 const char *longname;
1698 int priority;
1699 int nargs;
1702 static const struct standard_args standard_args[] =
1704 { "-version", "--version", 150, 0 },
1705 { "-chdir", "--chdir", 130, 1 },
1706 { "-t", "--terminal", 120, 1 },
1707 { "-nw", "--no-window-system", 110, 0 },
1708 { "-nw", "--no-windows", 110, 0 },
1709 { "-batch", "--batch", 100, 0 },
1710 { "-script", "--script", 100, 1 },
1711 { "-daemon", "--daemon", 99, 0 },
1712 { "-old-daemon", "--old-daemon", 99, 0 },
1713 { "-new-daemon", "--new-daemon", 99, 0 },
1714 { "-help", "--help", 90, 0 },
1715 { "-nl", "--no-loadup", 70, 0 },
1716 { "-nsl", "--no-site-lisp", 65, 0 },
1717 { "-no-build-details", "--no-build-details", 63, 0 },
1718 /* -d must come last before the options handled in startup.el. */
1719 { "-d", "--display", 60, 1 },
1720 { "-display", 0, 60, 1 },
1721 /* Now for the options handled in `command-line' (startup.el). */
1722 /* (Note that to imply -nsl, -Q is partially handled here.) */
1723 { "-Q", "--quick", 55, 0 },
1724 { "-quick", 0, 55, 0 },
1725 { "-q", "--no-init-file", 50, 0 },
1726 { "-no-init-file", 0, 50, 0 },
1727 { "-no-x-resources", "--no-x-resources", 40, 0 },
1728 { "-no-site-file", "--no-site-file", 40, 0 },
1729 { "-u", "--user", 30, 1 },
1730 { "-user", 0, 30, 1 },
1731 { "-debug-init", "--debug-init", 20, 0 },
1732 { "-iconic", "--iconic", 15, 0 },
1733 { "-D", "--basic-display", 12, 0},
1734 { "-basic-display", 0, 12, 0},
1735 { "-nbc", "--no-blinking-cursor", 12, 0 },
1736 /* Now for the options handled in `command-line-1' (startup.el). */
1737 { "-nbi", "--no-bitmap-icon", 10, 0 },
1738 { "-bg", "--background-color", 10, 1 },
1739 { "-background", 0, 10, 1 },
1740 { "-fg", "--foreground-color", 10, 1 },
1741 { "-foreground", 0, 10, 1 },
1742 { "-bd", "--border-color", 10, 1 },
1743 { "-bw", "--border-width", 10, 1 },
1744 { "-ib", "--internal-border", 10, 1 },
1745 { "-ms", "--mouse-color", 10, 1 },
1746 { "-cr", "--cursor-color", 10, 1 },
1747 { "-fn", "--font", 10, 1 },
1748 { "-font", 0, 10, 1 },
1749 { "-fs", "--fullscreen", 10, 0 },
1750 { "-fw", "--fullwidth", 10, 0 },
1751 { "-fh", "--fullheight", 10, 0 },
1752 { "-mm", "--maximized", 10, 0 },
1753 { "-g", "--geometry", 10, 1 },
1754 { "-geometry", 0, 10, 1 },
1755 { "-T", "--title", 10, 1 },
1756 { "-title", 0, 10, 1 },
1757 { "-name", "--name", 10, 1 },
1758 { "-xrm", "--xrm", 10, 1 },
1759 { "-parent-id", "--parent-id", 10, 1 },
1760 { "-r", "--reverse-video", 5, 0 },
1761 { "-rv", 0, 5, 0 },
1762 { "-reverse", 0, 5, 0 },
1763 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1764 { "-vb", "--vertical-scroll-bars", 5, 0 },
1765 { "-color", "--color", 5, 0},
1766 { "-no-splash", "--no-splash", 3, 0 },
1767 { "-no-desktop", "--no-desktop", 3, 0 },
1768 #ifdef HAVE_NS
1769 { "-NSAutoLaunch", 0, 5, 1 },
1770 { "-NXAutoLaunch", 0, 5, 1 },
1771 { "-_NSMachLaunch", 0, 85, 1 },
1772 { "-MachLaunch", 0, 85, 1 },
1773 { "-macosx", 0, 85, 0 },
1774 { "-NSHost", 0, 85, 1 },
1775 #endif
1776 /* These have the same priority as ordinary file name args,
1777 so they are not reordered with respect to those. */
1778 { "-L", "--directory", 0, 1 },
1779 { "-directory", 0, 0, 1 },
1780 { "-l", "--load", 0, 1 },
1781 { "-load", 0, 0, 1 },
1782 /* This has no longname, because using --scriptload confuses sort_args,
1783 because then the --script long option seems to match twice; ie
1784 you can't have a long option which is a prefix of another long
1785 option. In any case, this is entirely an internal option. */
1786 { "-scriptload", NULL, 0, 1 },
1787 { "-f", "--funcall", 0, 1 },
1788 { "-funcall", 0, 0, 1 },
1789 { "-eval", "--eval", 0, 1 },
1790 { "-execute", "--execute", 0, 1 },
1791 { "-find-file", "--find-file", 0, 1 },
1792 { "-visit", "--visit", 0, 1 },
1793 { "-file", "--file", 0, 1 },
1794 { "-insert", "--insert", 0, 1 },
1795 #ifdef HAVE_NS
1796 { "-NXOpen", 0, 0, 1 },
1797 { "-NXOpenTemp", 0, 0, 1 },
1798 { "-NSOpen", 0, 0, 1 },
1799 { "-NSOpenTemp", 0, 0, 1 },
1800 { "-GSFilePath", 0, 0, 1 },
1801 #endif
1802 /* This should be processed after ordinary file name args and the like. */
1803 { "-kill", "--kill", -10, 0 },
1806 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1807 so that the highest priority ones come first.
1808 Do not change the order of elements of equal priority.
1809 If an option takes an argument, keep it and its argument together.
1811 If an option that takes no argument appears more
1812 than once, eliminate all but one copy of it. */
1814 static void
1815 sort_args (int argc, char **argv)
1817 char **new = xmalloc (argc * sizeof *new);
1818 /* For each element of argv,
1819 the corresponding element of options is:
1820 0 for an option that takes no arguments,
1821 1 for an option that takes one argument, etc.
1822 -1 for an ordinary non-option argument. */
1823 int *options = xnmalloc (argc, sizeof *options);
1824 int *priority = xnmalloc (argc, sizeof *priority);
1825 int to = 1;
1826 int incoming_used = 1;
1827 int from;
1828 int i;
1830 /* Categorize all the options,
1831 and figure out which argv elts are option arguments. */
1832 for (from = 1; from < argc; from++)
1834 options[from] = -1;
1835 priority[from] = 0;
1836 if (argv[from][0] == '-')
1838 int match;
1840 /* If we have found "--", don't consider
1841 any more arguments as options. */
1842 if (argv[from][1] == '-' && argv[from][2] == 0)
1844 /* Leave the "--", and everything following it, at the end. */
1845 for (; from < argc; from++)
1847 priority[from] = -100;
1848 options[from] = -1;
1850 break;
1853 /* Look for a match with a known old-fashioned option. */
1854 for (i = 0; i < ARRAYELTS (standard_args); i++)
1855 if (!strcmp (argv[from], standard_args[i].name))
1857 options[from] = standard_args[i].nargs;
1858 priority[from] = standard_args[i].priority;
1859 if (from + standard_args[i].nargs >= argc)
1860 fatal ("Option '%s' requires an argument\n", argv[from]);
1861 from += standard_args[i].nargs;
1862 goto done;
1865 /* Look for a match with a known long option.
1866 MATCH is -1 if no match so far, -2 if two or more matches so far,
1867 >= 0 (the table index of the match) if just one match so far. */
1868 if (argv[from][1] == '-')
1870 char const *equals = strchr (argv[from], '=');
1871 ptrdiff_t thislen =
1872 equals ? equals - argv[from] : strlen (argv[from]);
1874 match = -1;
1876 for (i = 0; i < ARRAYELTS (standard_args); i++)
1877 if (standard_args[i].longname
1878 && !strncmp (argv[from], standard_args[i].longname,
1879 thislen))
1881 if (match == -1)
1882 match = i;
1883 else
1884 match = -2;
1887 /* If we found exactly one match, use that. */
1888 if (match >= 0)
1890 options[from] = standard_args[match].nargs;
1891 priority[from] = standard_args[match].priority;
1892 /* If --OPTION=VALUE syntax is used,
1893 this option uses just one argv element. */
1894 if (equals != 0)
1895 options[from] = 0;
1896 if (from + options[from] >= argc)
1897 fatal ("Option '%s' requires an argument\n", argv[from]);
1898 from += options[from];
1900 else if (match == -2)
1902 /* This is an internal error.
1903 Eg if one long option is a prefix of another. */
1904 fprintf (stderr, "Option '%s' matched multiple standard arguments\n", argv[from]);
1906 /* Should we not also warn if there was no match? */
1908 done: ;
1912 /* Copy the arguments, in order of decreasing priority, to NEW. */
1913 new[0] = argv[0];
1914 while (incoming_used < argc)
1916 int best = -1;
1917 int best_priority = -9999;
1919 /* Find the highest priority remaining option.
1920 If several have equal priority, take the first of them. */
1921 for (from = 1; from < argc; from++)
1923 if (argv[from] != 0 && priority[from] > best_priority)
1925 best_priority = priority[from];
1926 best = from;
1928 /* Skip option arguments--they are tied to the options. */
1929 if (options[from] > 0)
1930 from += options[from];
1933 if (best < 0)
1934 emacs_abort ();
1936 /* Copy the highest priority remaining option, with its args, to NEW.
1937 Unless it is a duplicate of the previous one. */
1938 if (! (options[best] == 0
1939 && ! strcmp (new[to - 1], argv[best])))
1941 new[to++] = argv[best];
1942 for (i = 0; i < options[best]; i++)
1943 new[to++] = argv[best + i + 1];
1946 incoming_used += 1 + (options[best] > 0 ? options[best] : 0);
1948 /* Clear out this option in ARGV. */
1949 argv[best] = 0;
1950 for (i = 0; i < options[best]; i++)
1951 argv[best + i + 1] = 0;
1954 /* If duplicate options were deleted, fill up extra space with null ptrs. */
1955 while (to < argc)
1956 new[to++] = 0;
1958 memcpy (argv, new, sizeof (char *) * argc);
1960 xfree (options);
1961 xfree (new);
1962 xfree (priority);
1965 DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P",
1966 doc: /* Exit the Emacs job and kill it.
1967 If ARG is an integer, return ARG as the exit program code.
1968 If ARG is a string, stuff it as keyboard input.
1970 This function is called upon receipt of the signals SIGTERM
1971 or SIGHUP, and upon SIGINT in batch mode.
1973 The value of `kill-emacs-hook', if not void,
1974 is a list of functions (of no args),
1975 all of which are called before Emacs is actually killed. */
1976 attributes: noreturn)
1977 (Lisp_Object arg)
1979 int exit_code;
1981 /* Fsignal calls emacs_abort () if it sees that waiting_for_input is
1982 set. */
1983 waiting_for_input = 0;
1984 run_hook (Qkill_emacs_hook);
1986 #ifdef HAVE_X_WINDOWS
1987 /* Transfer any clipboards we own to the clipboard manager. */
1988 x_clipboard_manager_save_all ();
1989 #endif
1991 shut_down_emacs (0, (STRINGP (arg) && !feof (stdin)) ? arg : Qnil);
1993 #ifdef HAVE_NS
1994 ns_release_autorelease_pool (ns_pool);
1995 #endif
1997 /* If we have an auto-save list file,
1998 kill it because we are exiting Emacs deliberately (not crashing).
1999 Do it after shut_down_emacs, which does an auto-save. */
2000 if (STRINGP (Vauto_save_list_file_name))
2002 Lisp_Object listfile;
2003 listfile = Fexpand_file_name (Vauto_save_list_file_name, Qnil);
2004 unlink (SSDATA (listfile));
2007 if (INTEGERP (arg))
2008 exit_code = (XINT (arg) < 0
2009 ? XINT (arg) | INT_MIN
2010 : XINT (arg) & INT_MAX);
2011 else
2012 exit_code = EXIT_SUCCESS;
2013 exit (exit_code);
2017 /* Perform an orderly shutdown of Emacs. Autosave any modified
2018 buffers, kill any child processes, clean up the terminal modes (if
2019 we're in the foreground), and other stuff like that. Don't perform
2020 any redisplay; this may be called when Emacs is shutting down in
2021 the background, or after its X connection has died.
2023 If SIG is a signal number, print a message for it.
2025 This is called by fatal signal handlers, X protocol error handlers,
2026 and Fkill_emacs. */
2028 void
2029 shut_down_emacs (int sig, Lisp_Object stuff)
2031 /* Prevent running of hooks from now on. */
2032 Vrun_hooks = Qnil;
2034 /* Don't update display from now on. */
2035 Vinhibit_redisplay = Qt;
2037 /* If we are controlling the terminal, reset terminal modes. */
2038 #ifndef DOS_NT
2040 pid_t pgrp = getpgrp ();
2041 pid_t tpgrp = tcgetpgrp (0);
2042 if ((tpgrp != -1) && tpgrp == pgrp)
2044 reset_all_sys_modes ();
2045 if (sig && sig != SIGTERM)
2047 static char const format[] = "Fatal error %d: ";
2048 char buf[sizeof format - 2 + INT_STRLEN_BOUND (int)];
2049 int buflen = sprintf (buf, format, sig);
2050 char const *sig_desc = safe_strsignal (sig);
2051 emacs_write (STDERR_FILENO, buf, buflen);
2052 emacs_write (STDERR_FILENO, sig_desc, strlen (sig_desc));
2056 #else
2057 fflush (stdout);
2058 reset_all_sys_modes ();
2059 #endif
2061 stuff_buffered_input (stuff);
2063 inhibit_sentinels = 1;
2064 kill_buffer_processes (Qnil);
2065 Fdo_auto_save (Qt, Qnil);
2067 unlock_all_files ();
2069 /* There is a tendency for a SIGIO signal to arrive within exit,
2070 and cause a SIGHUP because the input descriptor is already closed. */
2071 unrequest_sigio ();
2073 /* Do this only if terminating normally, we want glyph matrices
2074 etc. in a core dump. */
2075 if (sig == 0 || sig == SIGTERM)
2077 check_glyph_memory ();
2078 check_message_stack ();
2081 #ifdef MSDOS
2082 dos_cleanup ();
2083 #endif
2085 #ifdef HAVE_NS
2086 ns_term_shutdown (sig);
2087 #endif
2089 #ifdef HAVE_LIBXML2
2090 xml_cleanup_parser ();
2091 #endif
2093 #ifdef WINDOWSNT
2094 term_ntproc (0);
2095 #endif
2100 #ifndef CANNOT_DUMP
2102 #include "unexec.h"
2104 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0,
2105 doc: /* Dump current state of Emacs into executable file FILENAME.
2106 Take symbols from SYMFILE (presumably the file you executed to run Emacs).
2107 This is used in the file `loadup.el' when building Emacs.
2109 You must run Emacs in batch mode in order to dump it. */)
2110 (Lisp_Object filename, Lisp_Object symfile)
2112 Lisp_Object tem;
2113 Lisp_Object symbol;
2114 ptrdiff_t count = SPECPDL_INDEX ();
2116 check_pure_size ();
2118 if (! noninteractive)
2119 error ("Dumping Emacs works only in batch mode");
2121 if (!might_dump)
2122 error ("Emacs can be dumped only once");
2124 #if defined GNU_LINUX && !defined CANNOT_DUMP
2126 /* Warn if the gap between BSS end and heap start is larger than this. */
2127 # define MAX_HEAP_BSS_DIFF (1024*1024)
2129 if (heap_bss_diff > MAX_HEAP_BSS_DIFF)
2131 fprintf (stderr, "**************************************************\n");
2132 fprintf (stderr, "Warning: Your system has a gap between BSS and the\n");
2133 fprintf (stderr, "heap (%"pMu" bytes). This usually means that exec-shield\n",
2134 heap_bss_diff);
2135 fprintf (stderr, "or something similar is in effect. The dump may\n");
2136 fprintf (stderr, "fail because of this. See the section about\n");
2137 fprintf (stderr, "exec-shield in etc/PROBLEMS for more information.\n");
2138 fprintf (stderr, "**************************************************\n");
2140 #endif /* GNU_LINUX */
2142 /* Bind `command-line-processed' to nil before dumping,
2143 so that the dumped Emacs will process its command line
2144 and set up to work with X windows if appropriate. */
2145 symbol = intern ("command-line-processed");
2146 specbind (symbol, Qnil);
2148 CHECK_STRING (filename);
2149 filename = Fexpand_file_name (filename, Qnil);
2150 filename = ENCODE_FILE (filename);
2151 if (!NILP (symfile))
2153 CHECK_STRING (symfile);
2154 if (SCHARS (symfile))
2156 symfile = Fexpand_file_name (symfile, Qnil);
2157 symfile = ENCODE_FILE (symfile);
2161 tem = Vpurify_flag;
2162 Vpurify_flag = Qnil;
2164 #ifdef HYBRID_MALLOC
2166 static char const fmt[] = "%d of %d static heap bytes used";
2167 char buf[sizeof fmt + 2 * (INT_STRLEN_BOUND (int) - 2)];
2168 int max_usage = max_bss_sbrk_ptr - bss_sbrk_buffer;
2169 sprintf (buf, fmt, max_usage, STATIC_HEAP_SIZE);
2170 /* Don't log messages, because at this point buffers cannot be created. */
2171 message1_nolog (buf);
2173 #endif
2175 fflush (stdout);
2176 /* Tell malloc where start of impure now is. */
2177 /* Also arrange for warnings when nearly out of space. */
2178 #if !defined SYSTEM_MALLOC && !defined HYBRID_MALLOC
2179 #ifndef WINDOWSNT
2180 /* On Windows, this was done before dumping, and that once suffices.
2181 Meanwhile, my_edata is not valid on Windows. */
2182 memory_warnings (my_edata, malloc_warning);
2183 #endif /* not WINDOWSNT */
2184 #endif /* not SYSTEM_MALLOC and not HYBRID_MALLOC */
2186 alloc_unexec_pre ();
2188 unexec (SSDATA (filename), !NILP (symfile) ? SSDATA (symfile) : 0);
2190 alloc_unexec_post ();
2192 #ifdef WINDOWSNT
2193 Vlibrary_cache = Qnil;
2194 #endif
2195 #ifdef HAVE_WINDOW_SYSTEM
2196 reset_image_types ();
2197 #endif
2199 Vpurify_flag = tem;
2201 return unbind_to (count, Qnil);
2204 #endif /* not CANNOT_DUMP */
2206 #if HAVE_SETLOCALE
2207 /* Recover from setlocale (LC_ALL, ""). */
2208 void
2209 fixup_locale (void)
2211 /* The Emacs Lisp reader needs LC_NUMERIC to be "C",
2212 so that numbers are read and printed properly for Emacs Lisp. */
2213 setlocale (LC_NUMERIC, "C");
2216 /* Set system locale CATEGORY, with previous locale *PLOCALE, to
2217 DESIRED_LOCALE. */
2218 static void
2219 synchronize_locale (int category, Lisp_Object *plocale, Lisp_Object desired_locale)
2221 if (! EQ (*plocale, desired_locale))
2223 *plocale = desired_locale;
2224 #ifdef WINDOWSNT
2225 /* Changing categories like LC_TIME usually requires specifying
2226 an encoding suitable for the new locale, but MS-Windows's
2227 'setlocale' will only switch the encoding when LC_ALL is
2228 specified. So we ignore CATEGORY, use LC_ALL instead, and
2229 then restore LC_NUMERIC to "C", so reading and printing
2230 numbers is unaffected. */
2231 setlocale (LC_ALL, (STRINGP (desired_locale)
2232 ? SSDATA (desired_locale)
2233 : ""));
2234 fixup_locale ();
2235 #else /* !WINDOWSNT */
2236 setlocale (category, (STRINGP (desired_locale)
2237 ? SSDATA (desired_locale)
2238 : ""));
2239 #endif /* !WINDOWSNT */
2243 /* Set system time locale to match Vsystem_time_locale, if possible. */
2244 void
2245 synchronize_system_time_locale (void)
2247 synchronize_locale (LC_TIME, &Vprevious_system_time_locale,
2248 Vsystem_time_locale);
2251 /* Set system messages locale to match Vsystem_messages_locale, if
2252 possible. */
2253 void
2254 synchronize_system_messages_locale (void)
2256 #ifdef LC_MESSAGES
2257 synchronize_locale (LC_MESSAGES, &Vprevious_system_messages_locale,
2258 Vsystem_messages_locale);
2259 #endif
2261 #endif /* HAVE_SETLOCALE */
2263 /* Return a diagnostic string for ERROR_NUMBER, in the wording
2264 and encoding appropriate for the current locale. */
2265 char *
2266 emacs_strerror (int error_number)
2268 synchronize_system_messages_locale ();
2269 return strerror (error_number);
2273 Lisp_Object
2274 decode_env_path (const char *evarname, const char *defalt, bool empty)
2276 const char *path, *p;
2277 Lisp_Object lpath, element, tem;
2278 /* Default is to use "." for empty path elements.
2279 But if argument EMPTY is true, use nil instead. */
2280 Lisp_Object empty_element = empty ? Qnil : build_string (".");
2281 #ifdef WINDOWSNT
2282 bool defaulted = 0;
2283 static const char *emacs_dir_env = "%emacs_dir%/";
2284 const size_t emacs_dir_len = strlen (emacs_dir_env);
2285 const char *edir = egetenv ("emacs_dir");
2286 char emacs_dir[MAX_UTF8_PATH];
2288 /* egetenv looks in process-environment, which holds the variables
2289 in their original system-locale encoding. We need emacs_dir to
2290 be in UTF-8. */
2291 if (edir)
2292 filename_from_ansi (edir, emacs_dir);
2293 #endif
2295 /* It's okay to use getenv here, because this function is only used
2296 to initialize variables when Emacs starts up, and isn't called
2297 after that. */
2298 if (evarname != 0)
2299 path = getenv (evarname);
2300 else
2301 path = 0;
2302 if (!path)
2304 path = defalt;
2305 #ifdef WINDOWSNT
2306 defaulted = 1;
2307 #endif
2309 #ifdef DOS_NT
2310 /* Ensure values from the environment use the proper directory separator. */
2311 if (path)
2313 char *path_copy;
2315 #ifdef WINDOWSNT
2316 char *path_utf8, *q, *d;
2317 int cnv_result;
2319 /* Convert each element of PATH to UTF-8. */
2320 p = path_copy = alloca (strlen (path) + 1);
2321 strcpy (path_copy, path);
2322 d = path_utf8 = alloca (4 * strlen (path) + 1);
2323 *d = '\0';
2324 do {
2325 q = _mbschr (p, SEPCHAR);
2326 if (q)
2327 *q = '\0';
2328 cnv_result = filename_from_ansi (p, d);
2329 if (q)
2331 *q++ = SEPCHAR;
2332 p = q;
2333 /* If conversion of this PATH elements fails, make sure
2334 destination pointer will stay put, thus effectively
2335 ignoring the offending element. */
2336 if (cnv_result == 0)
2338 d += strlen (d);
2339 *d++ = SEPCHAR;
2342 else if (cnv_result != 0 && d > path_utf8)
2343 d[-1] = '\0'; /* remove last semi-colon and null-terminate PATH */
2344 } while (q);
2345 path_copy = path_utf8;
2346 #else /* MSDOS */
2347 path_copy = alloca (strlen (path) + 1);
2348 strcpy (path_copy, path);
2349 #endif
2350 dostounix_filename (path_copy);
2351 path = path_copy;
2353 #endif
2354 lpath = Qnil;
2355 while (1)
2357 p = strchr (path, SEPCHAR);
2358 if (!p)
2359 p = path + strlen (path);
2360 element = ((p - path) ? make_unibyte_string (path, p - path)
2361 : empty_element);
2362 if (! NILP (element))
2364 #ifdef WINDOWSNT
2365 /* Relative file names in the default path are interpreted as
2366 being relative to $emacs_dir. */
2367 if (edir && defaulted
2368 && strncmp (path, emacs_dir_env, emacs_dir_len) == 0)
2369 element = Fexpand_file_name (Fsubstring
2370 (element,
2371 make_number (emacs_dir_len),
2372 Qnil),
2373 build_unibyte_string (emacs_dir));
2374 #endif
2376 /* Add /: to the front of the name
2377 if it would otherwise be treated as magic. */
2378 tem = Ffind_file_name_handler (element, Qt);
2380 /* However, if the handler says "I'm safe",
2381 don't bother adding /:. */
2382 if (SYMBOLP (tem))
2384 Lisp_Object prop;
2385 prop = Fget (tem, intern ("safe-magic"));
2386 if (! NILP (prop))
2387 tem = Qnil;
2390 if (! NILP (tem))
2392 AUTO_STRING (slash_colon, "/:");
2393 element = concat2 (slash_colon, element);
2395 } /* !NILP (element) */
2397 lpath = Fcons (element, lpath);
2398 if (*p)
2399 path = p + 1;
2400 else
2401 break;
2403 return Fnreverse (lpath);
2406 DEFUN ("daemonp", Fdaemonp, Sdaemonp, 0, 0, 0,
2407 doc: /* Return non-nil if the current emacs process is a daemon.
2408 If the daemon was given a name argument, return that name. */)
2409 (void)
2411 if (IS_DAEMON)
2412 if (daemon_name)
2413 return build_string (daemon_name);
2414 else
2415 return Qt;
2416 else
2417 return Qnil;
2420 DEFUN ("daemon-initialized", Fdaemon_initialized, Sdaemon_initialized, 0, 0, 0,
2421 doc: /* Mark the Emacs daemon as being initialized.
2422 This finishes the daemonization process by doing the other half of detaching
2423 from the parent process and its tty file descriptors. */)
2424 (void)
2426 bool err = 0;
2428 if (!IS_DAEMON)
2429 error ("This function can only be called if emacs is run as a daemon");
2431 if (!DAEMON_RUNNING)
2432 error ("The daemon has already been initialized");
2434 if (NILP (Vafter_init_time))
2435 error ("This function can only be called after loading the init files");
2436 #ifndef WINDOWSNT
2438 if (daemon_type == 2)
2440 int nfd;
2442 /* Get rid of stdin, stdout and stderr. */
2443 nfd = emacs_open ("/dev/null", O_RDWR, 0);
2444 err |= nfd < 0;
2445 err |= dup2 (nfd, STDIN_FILENO) < 0;
2446 err |= dup2 (nfd, STDOUT_FILENO) < 0;
2447 err |= dup2 (nfd, STDERR_FILENO) < 0;
2448 err |= emacs_close (nfd) != 0;
2450 /* Closing the pipe will notify the parent that it can exit.
2451 FIXME: In case some other process inherited the pipe, closing it here
2452 won't notify the parent because it's still open elsewhere, so we
2453 additionally send a byte, just to make sure the parent really exits.
2454 Instead, we should probably close the pipe in start-process and
2455 call-process to make sure the pipe is never inherited by
2456 subprocesses. */
2457 err |= write (daemon_pipe[1], "\n", 1) < 0;
2458 err |= emacs_close (daemon_pipe[1]) != 0;
2461 /* Set it to an invalid value so we know we've already run this function. */
2462 daemon_type = -1;
2464 #else /* WINDOWSNT */
2465 /* Signal the waiting emacsclient process. */
2466 err |= SetEvent (w32_daemon_event) == 0;
2467 err |= CloseHandle (w32_daemon_event) == 0;
2468 /* Set it to an invalid value so we know we've already run this function. */
2469 w32_daemon_event = INVALID_HANDLE_VALUE;
2470 #endif
2472 if (err)
2473 error ("I/O error during daemon initialization");
2474 return Qt;
2477 void
2478 syms_of_emacs (void)
2480 DEFSYM (Qfile_name_handler_alist, "file-name-handler-alist");
2481 DEFSYM (Qrisky_local_variable, "risky-local-variable");
2482 DEFSYM (Qkill_emacs, "kill-emacs");
2483 DEFSYM (Qkill_emacs_hook, "kill-emacs-hook");
2485 #ifndef CANNOT_DUMP
2486 defsubr (&Sdump_emacs);
2487 #endif
2489 defsubr (&Skill_emacs);
2491 defsubr (&Sinvocation_name);
2492 defsubr (&Sinvocation_directory);
2493 defsubr (&Sdaemonp);
2494 defsubr (&Sdaemon_initialized);
2496 DEFVAR_LISP ("command-line-args", Vcommand_line_args,
2497 doc: /* Args passed by shell to Emacs, as a list of strings.
2498 Many arguments are deleted from the list as they are processed. */);
2500 DEFVAR_LISP ("system-type", Vsystem_type,
2501 doc: /* The value is a symbol indicating the type of operating system you are using.
2502 Special values:
2503 `gnu' compiled for a GNU Hurd system.
2504 `gnu/linux' compiled for a GNU/Linux system.
2505 `gnu/kfreebsd' compiled for a GNU system with a FreeBSD kernel.
2506 `darwin' compiled for Darwin (GNU-Darwin, macOS, ...).
2507 `ms-dos' compiled as an MS-DOS application.
2508 `windows-nt' compiled as a native W32 application.
2509 `cygwin' compiled using the Cygwin library.
2510 Anything else (in Emacs 26, the possibilities are: aix, berkeley-unix,
2511 hpux, usg-unix-v) indicates some sort of Unix system. */);
2512 Vsystem_type = intern_c_string (SYSTEM_TYPE);
2513 /* See configure.ac for the possible SYSTEM_TYPEs. */
2515 DEFVAR_LISP ("system-configuration", Vsystem_configuration,
2516 doc: /* Value is string indicating configuration Emacs was built for. */);
2517 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
2519 DEFVAR_LISP ("system-configuration-options", Vsystem_configuration_options,
2520 doc: /* String containing the configuration options Emacs was built with. */);
2521 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
2523 DEFVAR_LISP ("system-configuration-features", Vsystem_configuration_features,
2524 doc: /* String listing some of the main features this Emacs was compiled with.
2525 An element of the form \"FOO\" generally means that HAVE_FOO was
2526 defined during the build.
2528 This is mainly intended for diagnostic purposes in bug reports.
2529 Don't rely on it for testing whether a feature you want to use is available. */);
2530 Vsystem_configuration_features = build_string (EMACS_CONFIG_FEATURES);
2532 DEFVAR_BOOL ("noninteractive", noninteractive1,
2533 doc: /* Non-nil means Emacs is running without interactive terminal. */);
2535 DEFVAR_LISP ("kill-emacs-hook", Vkill_emacs_hook,
2536 doc: /* Hook run when `kill-emacs' is called.
2537 Since `kill-emacs' may be invoked when the terminal is disconnected (or
2538 in other similar situations), functions placed on this hook should not
2539 expect to be able to interact with the user. To ask for confirmation,
2540 see `kill-emacs-query-functions' instead.
2542 Before Emacs 24.1, the hook was not run in batch mode, i.e., if
2543 `noninteractive' was non-nil. */);
2544 Vkill_emacs_hook = Qnil;
2546 DEFVAR_LISP ("path-separator", Vpath_separator,
2547 doc: /* String containing the character that separates directories in
2548 search paths, such as PATH and other similar environment variables. */);
2550 char c = SEPCHAR;
2551 Vpath_separator = make_string (&c, 1);
2554 DEFVAR_LISP ("invocation-name", Vinvocation_name,
2555 doc: /* The program name that was used to run Emacs.
2556 Any directory names are omitted. */);
2558 DEFVAR_LISP ("invocation-directory", Vinvocation_directory,
2559 doc: /* The directory in which the Emacs executable was found, to run it.
2560 The value is nil if that directory's name is not known. */);
2562 DEFVAR_LISP ("installation-directory", Vinstallation_directory,
2563 doc: /* A directory within which to look for the `lib-src' and `etc' directories.
2564 In an installed Emacs, this is normally nil. It is non-nil if
2565 both `lib-src' (on MS-DOS, `info') and `etc' directories are found
2566 within the variable `invocation-directory' or its parent. For example,
2567 this is the case when running an uninstalled Emacs executable from its
2568 build directory. */);
2569 Vinstallation_directory = Qnil;
2571 DEFVAR_LISP ("system-messages-locale", Vsystem_messages_locale,
2572 doc: /* System locale for messages. */);
2573 Vsystem_messages_locale = Qnil;
2575 DEFVAR_LISP ("previous-system-messages-locale",
2576 Vprevious_system_messages_locale,
2577 doc: /* Most recently used system locale for messages. */);
2578 Vprevious_system_messages_locale = Qnil;
2580 DEFVAR_LISP ("system-time-locale", Vsystem_time_locale,
2581 doc: /* System locale for time. */);
2582 Vsystem_time_locale = Qnil;
2584 DEFVAR_LISP ("previous-system-time-locale", Vprevious_system_time_locale,
2585 doc: /* Most recently used system locale for time. */);
2586 Vprevious_system_time_locale = Qnil;
2588 DEFVAR_LISP ("before-init-time", Vbefore_init_time,
2589 doc: /* Value of `current-time' before Emacs begins initialization. */);
2590 Vbefore_init_time = Qnil;
2592 DEFVAR_LISP ("after-init-time", Vafter_init_time,
2593 doc: /* Value of `current-time' after loading the init files.
2594 This is nil during initialization. */);
2595 Vafter_init_time = Qnil;
2597 DEFVAR_BOOL ("inhibit-x-resources", inhibit_x_resources,
2598 doc: /* If non-nil, X resources, Windows Registry settings, and NS defaults are not used. */);
2599 inhibit_x_resources = 0;
2601 DEFVAR_LISP ("emacs-copyright", Vemacs_copyright,
2602 doc: /* Short copyright string for this version of Emacs. */);
2603 Vemacs_copyright = build_string (emacs_copyright);
2605 DEFVAR_LISP ("emacs-version", Vemacs_version,
2606 doc: /* Version numbers of this version of Emacs. */);
2607 Vemacs_version = build_string (emacs_version);
2609 DEFVAR_LISP ("report-emacs-bug-address", Vreport_emacs_bug_address,
2610 doc: /* Address of mailing list for GNU Emacs bugs. */);
2611 Vreport_emacs_bug_address = build_string (emacs_bugreport);
2613 DEFVAR_LISP ("dynamic-library-alist", Vdynamic_library_alist,
2614 doc: /* Alist of dynamic libraries vs external files implementing them.
2615 Each element is a list (LIBRARY FILE...), where the car is a symbol
2616 representing a supported external library, and the rest are strings giving
2617 alternate filenames for that library.
2619 Emacs tries to load the library from the files in the order they appear on
2620 the list; if none is loaded, the running session of Emacs won't have access
2621 to that library.
2623 Note that image types `pbm' and `xbm' do not need entries in this variable
2624 because they do not depend on external libraries and are always available.
2626 Also note that this is not a generic facility for accessing external
2627 libraries; only those already known by Emacs will be loaded. */);
2628 Vdynamic_library_alist = Qnil;
2629 Fput (intern_c_string ("dynamic-library-alist"), Qrisky_local_variable, Qt);
2631 #ifdef WINDOWSNT
2632 Vlibrary_cache = Qnil;
2633 staticpro (&Vlibrary_cache);
2634 #endif