autorevert: Resume with polling if file is deleted
[emacs.git] / src / emacs.c
bloba738bac40724c33cf288519b0a1067a4ccfff502
1 /* Fully extensible Emacs, running on Unix, intended for GNU.
3 Copyright (C) 1985-1987, 1993-1995, 1997-1999, 2001-2016 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>
28 #include <sys/types.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 #endif
59 #ifdef HAVE_LIBSYSTEMD
60 # include <systemd/sd-daemon.h>
61 # include <sys/socket.h>
62 #endif
64 #ifdef HAVE_WINDOW_SYSTEM
65 #include TERM_HEADER
66 #endif /* HAVE_WINDOW_SYSTEM */
68 #include "coding.h"
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 "gnutls.h"
95 #if (defined PROFILING \
96 && (defined __FreeBSD__ || defined GNU_LINUX || defined __MINGW32__))
97 # include <sys/gmon.h>
98 extern void moncontrol (int mode);
99 #endif
101 #ifdef HAVE_SETLOCALE
102 #include <locale.h>
103 #endif
105 #if HAVE_WCHAR_H
106 # include <wchar.h>
107 #endif
109 #ifdef HAVE_SETRLIMIT
110 #include <sys/time.h>
111 #include <sys/resource.h>
112 #endif
114 #ifdef HAVE_PERSONALITY_LINUX32
115 #include <sys/personality.h>
116 #endif
118 static const char emacs_version[] = PACKAGE_VERSION;
119 static const char emacs_copyright[] = COPYRIGHT;
120 static const char emacs_bugreport[] = PACKAGE_BUGREPORT;
122 /* Empty lisp strings. To avoid having to build any others. */
123 Lisp_Object empty_unibyte_string, empty_multibyte_string;
125 #ifdef WINDOWSNT
126 /* Cache for externally loaded libraries. */
127 Lisp_Object Vlibrary_cache;
128 #endif
130 /* Set after Emacs has started up the first time.
131 Prevents reinitialization of the Lisp world and keymaps
132 on subsequent starts. */
133 bool initialized;
135 /* Set to true if this instance of Emacs might dump. */
136 #ifndef DOUG_LEA_MALLOC
137 static
138 #endif
139 bool might_dump;
141 #ifdef DARWIN_OS
142 extern void unexec_init_emacs_zone (void);
143 #endif
145 /* If true, Emacs should not attempt to use a window-specific code,
146 but instead should use the virtual terminal under which it was started. */
147 bool inhibit_window_system;
149 /* If true, a filter or a sentinel is running. Tested to save the match
150 data on the first attempt to change it inside asynchronous code. */
151 bool running_asynch_code;
153 #if defined (HAVE_X_WINDOWS) || defined (HAVE_NS)
154 /* If true, -d was specified, meaning we're using some window system. */
155 bool display_arg;
156 #endif
158 /* An address near the bottom of the stack.
159 Tells GC how to save a copy of the stack. */
160 char *stack_bottom;
162 #ifdef GNU_LINUX
163 /* The gap between BSS end and heap start as far as we can tell. */
164 static uprintmax_t heap_bss_diff;
165 #endif
167 /* To run as a daemon under Cocoa or Windows, we must do a fork+exec,
168 not a simple fork.
170 On Cocoa, CoreFoundation lib fails in forked process:
171 http://developer.apple.com/ReleaseNotes/
172 CoreFoundation/CoreFoundation.html)
174 On Windows, a Cygwin fork child cannot access the USER subsystem.
176 We mark being in the exec'd process by a daemon name argument of
177 form "--daemon=\nFD0,FD1\nNAME" where FD are the pipe file descriptors,
178 NAME is the original daemon name, if any. */
179 #if defined NS_IMPL_COCOA || (defined HAVE_NTGUI && defined CYGWIN)
180 # define DAEMON_MUST_EXEC
181 #endif
183 /* True means running Emacs without interactive terminal. */
184 bool noninteractive;
186 /* True means remove site-lisp directories from load-path. */
187 bool no_site_lisp;
189 /* True means put details like time stamps into builds. */
190 bool build_details;
192 /* Name for the server started by the daemon.*/
193 static char *daemon_name;
195 #ifndef WINDOWSNT
196 /* Pipe used to send exit notification to the daemon parent at
197 startup. */
198 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 start a server in the background\n\
229 --debug-init enable Emacs Lisp debugger for init file\n\
230 --display, -d DISPLAY use X server DISPLAY\n\
233 --no-build-details do not add build details such as time stamps\n\
234 --no-desktop do not load a saved desktop\n\
235 --no-init-file, -q load neither ~/.emacs nor default.el\n\
236 --no-loadup, -nl do not load loadup.el into bare Emacs\n\
237 --no-site-file do not load site-start.el\n\
238 --no-x-resources do not load X resources\n\
239 --no-site-lisp, -nsl do not add site-lisp directories to load-path\n\
240 --no-splash do not display a splash screen on startup\n\
241 --no-window-system, -nw do not communicate with X, ignoring $DISPLAY\n\
244 --quick, -Q equivalent to:\n\
245 -q --no-site-file --no-site-lisp --no-splash\n\
246 --no-x-resources\n\
247 --script FILE run FILE as an Emacs Lisp script\n\
248 --terminal, -t DEVICE use DEVICE for terminal I/O\n\
249 --user, -u USER load ~USER/.emacs instead of your own\n\
253 Action options:\n\
255 FILE visit FILE using find-file\n\
256 +LINE go to line LINE in next FILE\n\
257 +LINE:COLUMN go to line LINE, column COLUMN, in next FILE\n\
258 --directory, -L DIR prepend DIR to load-path (with :DIR, append DIR)\n\
259 --eval EXPR evaluate Emacs Lisp expression EXPR\n\
260 --execute EXPR evaluate Emacs Lisp expression EXPR\n\
263 --file FILE visit FILE using find-file\n\
264 --find-file FILE visit FILE using find-file\n\
265 --funcall, -f FUNC call Emacs Lisp function FUNC with no arguments\n\
266 --insert FILE insert contents of FILE into current buffer\n\
267 --kill exit without asking for confirmation\n\
268 --load, -l FILE load Emacs Lisp FILE using the load function\n\
269 --visit FILE visit FILE using find-file\n\
273 Display options:\n\
275 --background-color, -bg COLOR window background color\n\
276 --basic-display, -D disable many display features;\n\
277 used for debugging Emacs\n\
278 --border-color, -bd COLOR main border color\n\
279 --border-width, -bw WIDTH width of main border\n\
282 --color, --color=MODE override color mode for character terminals;\n\
283 MODE defaults to `auto', and\n\
284 can also be `never', `always',\n\
285 or a mode name like `ansi8'\n\
286 --cursor-color, -cr COLOR color of the Emacs cursor indicating point\n\
287 --font, -fn FONT default font; must be fixed-width\n\
288 --foreground-color, -fg COLOR window foreground color\n\
291 --fullheight, -fh make the first frame high as the screen\n\
292 --fullscreen, -fs make the first frame fullscreen\n\
293 --fullwidth, -fw make the first frame wide as the screen\n\
294 --maximized, -mm make the first frame maximized\n\
295 --geometry, -g GEOMETRY window geometry\n\
298 --no-bitmap-icon, -nbi do not use picture of gnu for Emacs icon\n\
299 --iconic start Emacs in iconified state\n\
300 --internal-border, -ib WIDTH width between text and main border\n\
301 --line-spacing, -lsp PIXELS additional space to put between lines\n\
302 --mouse-color, -ms COLOR mouse cursor color in Emacs window\n\
303 --name NAME title for initial Emacs frame\n\
306 --no-blinking-cursor, -nbc disable blinking cursor\n\
307 --reverse-video, -r, -rv switch foreground and background\n\
308 --title, -T TITLE title for initial Emacs frame\n\
309 --vertical-scroll-bars, -vb enable vertical scroll bars\n\
310 --xrm XRESOURCES set additional X resources\n\
311 --parent-id XID set parent window\n\
312 --help display this help and exit\n\
313 --version output version information and exit\n\
317 You can generally also specify long option names with a single -; for\n\
318 example, -batch as well as --batch. You can use any unambiguous\n\
319 abbreviation for a --option.\n\
321 Various environment variables and window system resources also affect\n\
322 the operation of Emacs. See the main documentation.\n\
324 Report bugs to " PACKAGE_BUGREPORT ". First, please see the Bugs\n\
325 section of the Emacs manual or the file BUGS.\n"
329 /* True if handling a fatal error already. */
330 bool fatal_error_in_progress;
332 #ifdef HAVE_NS
333 /* NS autrelease pool, for memory management. */
334 static void *ns_pool;
335 #endif
337 #if !HAVE_SETLOCALE
338 static char *
339 setlocale (int cat, char const *locale)
341 return 0;
343 #endif
345 /* True if the current system locale uses UTF-8 encoding. */
346 static bool
347 using_utf8 (void)
349 #ifdef HAVE_WCHAR_H
350 wchar_t wc;
351 mbstate_t mbs = { 0 };
352 return mbrtowc (&wc, "\xc4\x80", 2, &mbs) == 2 && wc == 0x100;
353 #else
354 return false;
355 #endif
359 /* Report a fatal error due to signal SIG, output a backtrace of at
360 most BACKTRACE_LIMIT lines, and exit. */
361 _Noreturn void
362 terminate_due_to_signal (int sig, int backtrace_limit)
364 signal (sig, SIG_DFL);
366 if (attempt_orderly_shutdown_on_fatal_signal)
368 /* If fatal error occurs in code below, avoid infinite recursion. */
369 if (! fatal_error_in_progress)
371 fatal_error_in_progress = 1;
373 totally_unblock_input ();
374 if (sig == SIGTERM || sig == SIGHUP || sig == SIGINT)
375 Fkill_emacs (make_number (sig));
377 shut_down_emacs (sig, Qnil);
378 emacs_backtrace (backtrace_limit);
382 /* Signal the same code; this time it will really be fatal.
383 Since we're in a signal handler, the signal is blocked, so we
384 have to unblock it if we want to really receive it. */
385 #ifndef MSDOS
387 sigset_t unblocked;
388 sigemptyset (&unblocked);
389 sigaddset (&unblocked, sig);
390 pthread_sigmask (SIG_UNBLOCK, &unblocked, 0);
392 #endif
394 emacs_raise (sig);
396 /* This shouldn't be executed, but it prevents a warning. */
397 exit (1);
400 /* Code for dealing with Lisp access to the Unix command line. */
402 static void
403 init_cmdargs (int argc, char **argv, int skip_args, char *original_pwd)
405 int i;
406 Lisp_Object name, dir, handler;
407 ptrdiff_t count = SPECPDL_INDEX ();
408 Lisp_Object raw_name;
409 AUTO_STRING (slash_colon, "/:");
411 initial_argv = argv;
412 initial_argc = argc;
414 #ifdef WINDOWSNT
415 /* Must use argv[0] converted to UTF-8, as it begets many standard
416 file and directory names. */
418 char argv0[MAX_UTF8_PATH];
420 if (filename_from_ansi (argv[0], argv0) == 0)
421 raw_name = build_unibyte_string (argv0);
422 else
423 raw_name = build_unibyte_string (argv[0]);
425 #else
426 raw_name = build_unibyte_string (argv[0]);
427 #endif
429 /* Add /: to the front of the name
430 if it would otherwise be treated as magic. */
431 handler = Ffind_file_name_handler (raw_name, Qt);
432 if (! NILP (handler))
433 raw_name = concat2 (slash_colon, raw_name);
435 Vinvocation_name = Ffile_name_nondirectory (raw_name);
436 Vinvocation_directory = Ffile_name_directory (raw_name);
438 /* If we got no directory in argv[0], search PATH to find where
439 Emacs actually came from. */
440 if (NILP (Vinvocation_directory))
442 Lisp_Object found;
443 int yes = openp (Vexec_path, Vinvocation_name,
444 Vexec_suffixes, &found, make_number (X_OK), false);
445 if (yes == 1)
447 /* Add /: to the front of the name
448 if it would otherwise be treated as magic. */
449 handler = Ffind_file_name_handler (found, Qt);
450 if (! NILP (handler))
451 found = concat2 (slash_colon, found);
452 Vinvocation_directory = Ffile_name_directory (found);
456 if (!NILP (Vinvocation_directory)
457 && NILP (Ffile_name_absolute_p (Vinvocation_directory)))
458 /* Emacs was started with relative path, like ./emacs.
459 Make it absolute. */
461 Lisp_Object odir =
462 original_pwd ? build_unibyte_string (original_pwd) : Qnil;
464 Vinvocation_directory = Fexpand_file_name (Vinvocation_directory, odir);
467 Vinstallation_directory = Qnil;
469 if (!NILP (Vinvocation_directory))
471 dir = Vinvocation_directory;
472 #ifdef WINDOWSNT
473 /* If we are running from the build directory, set DIR to the
474 src subdirectory of the Emacs tree, like on Posix
475 platforms. */
476 if (SBYTES (dir) > sizeof ("/i386/") - 1
477 && 0 == strcmp (SSDATA (dir) + SBYTES (dir) - sizeof ("/i386/") + 1,
478 "/i386/"))
479 dir = Fexpand_file_name (build_string ("../.."), dir);
480 #else /* !WINDOWSNT */
481 #endif
482 name = Fexpand_file_name (Vinvocation_name, dir);
483 while (1)
485 Lisp_Object tem, lib_src_exists;
486 Lisp_Object etc_exists, info_exists;
488 /* See if dir contains subdirs for use by Emacs.
489 Check for the ones that would exist in a build directory,
490 not including lisp and info. */
491 tem = Fexpand_file_name (build_string ("lib-src"), dir);
492 lib_src_exists = Ffile_exists_p (tem);
494 #ifdef MSDOS
495 /* MSDOS installations frequently remove lib-src, but we still
496 must set installation-directory, or else info won't find
497 its files (it uses the value of installation-directory). */
498 tem = Fexpand_file_name (build_string ("info"), dir);
499 info_exists = Ffile_exists_p (tem);
500 #else
501 info_exists = Qnil;
502 #endif
504 if (!NILP (lib_src_exists) || !NILP (info_exists))
506 tem = Fexpand_file_name (build_string ("etc"), dir);
507 etc_exists = Ffile_exists_p (tem);
508 if (!NILP (etc_exists))
510 Vinstallation_directory
511 = Ffile_name_as_directory (dir);
512 break;
516 /* See if dir's parent contains those subdirs. */
517 tem = Fexpand_file_name (build_string ("../lib-src"), dir);
518 lib_src_exists = Ffile_exists_p (tem);
521 #ifdef MSDOS
522 /* See the MSDOS commentary above. */
523 tem = Fexpand_file_name (build_string ("../info"), dir);
524 info_exists = Ffile_exists_p (tem);
525 #else
526 info_exists = Qnil;
527 #endif
529 if (!NILP (lib_src_exists) || !NILP (info_exists))
531 tem = Fexpand_file_name (build_string ("../etc"), dir);
532 etc_exists = Ffile_exists_p (tem);
533 if (!NILP (etc_exists))
535 tem = Fexpand_file_name (build_string (".."), dir);
536 Vinstallation_directory
537 = Ffile_name_as_directory (tem);
538 break;
542 /* If the Emacs executable is actually a link,
543 next try the dir that the link points into. */
544 tem = Ffile_symlink_p (name);
545 if (!NILP (tem))
547 name = Fexpand_file_name (tem, dir);
548 dir = Ffile_name_directory (name);
550 else
551 break;
555 Vcommand_line_args = Qnil;
557 for (i = argc - 1; i >= 0; i--)
559 if (i == 0 || i > skip_args)
560 /* For the moment, we keep arguments as is in unibyte strings.
561 They are decoded in the function command-line after we know
562 locale-coding-system. */
563 Vcommand_line_args
564 = Fcons (build_unibyte_string (argv[i]), Vcommand_line_args);
567 unbind_to (count, Qnil);
570 DEFUN ("invocation-name", Finvocation_name, Sinvocation_name, 0, 0, 0,
571 doc: /* Return the program name that was used to run Emacs.
572 Any directory names are omitted. */)
573 (void)
575 return Fcopy_sequence (Vinvocation_name);
578 DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory,
579 0, 0, 0,
580 doc: /* Return the directory name in which the Emacs executable was located. */)
581 (void)
583 return Fcopy_sequence (Vinvocation_directory);
587 /* Test whether the next argument in ARGV matches SSTR or a prefix of
588 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
589 (the argument is supposed to have a value) store in *VALPTR either
590 the next argument or the portion of this one after the equal sign.
591 ARGV is read starting at position *SKIPPTR; this index is advanced
592 by the number of arguments used.
594 Too bad we can't just use getopt for all of this, but we don't have
595 enough information to do it right. */
597 static bool
598 argmatch (char **argv, int argc, const char *sstr, const char *lstr,
599 int minlen, char **valptr, int *skipptr)
601 char *p = NULL;
602 ptrdiff_t arglen;
603 char *arg;
605 /* Don't access argv[argc]; give up in advance. */
606 if (argc <= *skipptr + 1)
607 return 0;
609 arg = argv[*skipptr+1];
610 if (arg == NULL)
611 return 0;
612 if (strcmp (arg, sstr) == 0)
614 if (valptr != NULL)
616 *valptr = argv[*skipptr+2];
617 *skipptr += 2;
619 else
620 *skipptr += 1;
621 return 1;
623 arglen = (valptr != NULL && (p = strchr (arg, '=')) != NULL
624 ? p - arg : strlen (arg));
625 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
626 return 0;
627 else if (valptr == NULL)
629 *skipptr += 1;
630 return 1;
632 else if (p != NULL)
634 *valptr = p+1;
635 *skipptr += 1;
636 return 1;
638 else if (argv[*skipptr+2] != NULL)
640 *valptr = argv[*skipptr+2];
641 *skipptr += 2;
642 return 1;
644 else
646 return 0;
650 /* Close standard output and standard error, reporting any write
651 errors as best we can. This is intended for use with atexit. */
652 static void
653 close_output_streams (void)
655 if (close_stream (stdout) != 0)
657 emacs_perror ("Write error to standard output");
658 _exit (EXIT_FAILURE);
661 if (close_stream (stderr) != 0)
662 _exit (EXIT_FAILURE);
665 /* ARGSUSED */
667 main (int argc, char **argv)
669 Lisp_Object dummy;
670 char stack_bottom_variable;
671 bool do_initial_setlocale;
672 bool dumping;
673 int skip_args = 0;
674 #ifdef HAVE_SETRLIMIT
675 struct rlimit rlim;
676 #endif
677 bool no_loadup = 0;
678 char *junk = 0;
679 char *dname_arg = 0;
680 #ifdef DAEMON_MUST_EXEC
681 char dname_arg2[80];
682 #endif
683 char *ch_to_dir = 0;
685 /* If we use --chdir, this records the original directory. */
686 char *original_pwd = 0;
688 stack_base = &dummy;
690 #ifndef CANNOT_DUMP
691 might_dump = !initialized;
692 #endif
694 #ifdef GNU_LINUX
695 if (!initialized)
697 char *heap_start = my_heap_start ();
698 heap_bss_diff = heap_start - max (my_endbss, my_endbss_static);
700 #endif
702 #if defined WINDOWSNT || defined HAVE_NTGUI
703 /* Set global variables used to detect Windows version. Do this as
704 early as possible. (unexw32.c calls this function as well, but
705 the additional call here is harmless.) */
706 cache_system_info ();
707 #ifdef WINDOWSNT
708 /* On Windows 9X, we have to load UNICOWS.DLL as early as possible,
709 to have non-stub implementations of APIs we need to convert file
710 names between UTF-8 and the system's ANSI codepage. */
711 maybe_load_unicows_dll ();
712 #endif
713 /* This has to be done before module_init is called below, so that
714 the latter could use the thread ID of the main thread. */
715 w32_init_main_thread ();
716 #endif
718 #ifdef RUN_TIME_REMAP
719 if (initialized)
720 run_time_remap (argv[0]);
721 #endif
723 /* If using unexmacosx.c (set by s/darwin.h), we must do this. */
724 #ifdef DARWIN_OS
725 if (!initialized)
726 unexec_init_emacs_zone ();
727 #endif
729 init_standard_fds ();
730 atexit (close_output_streams);
732 #ifdef HAVE_MODULES
733 module_init ();
734 #endif
736 sort_args (argc, argv);
737 argc = 0;
738 while (argv[argc]) argc++;
740 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args))
742 const char *version, *copyright;
743 if (initialized)
745 Lisp_Object tem, tem2;
746 tem = Fsymbol_value (intern_c_string ("emacs-version"));
747 tem2 = Fsymbol_value (intern_c_string ("emacs-copyright"));
748 if (!STRINGP (tem))
750 fprintf (stderr, "Invalid value of 'emacs-version'\n");
751 exit (1);
753 if (!STRINGP (tem2))
755 fprintf (stderr, "Invalid value of 'emacs-copyright'\n");
756 exit (1);
758 else
760 version = SSDATA (tem);
761 copyright = SSDATA (tem2);
764 else
766 version = emacs_version;
767 copyright = emacs_copyright;
769 printf ("%s %s\n", PACKAGE_NAME, version);
770 printf ("%s\n", copyright);
771 printf ("%s comes with ABSOLUTELY NO WARRANTY.\n", PACKAGE_NAME);
772 printf ("You may redistribute copies of %s\n", PACKAGE_NAME);
773 printf ("under the terms of the GNU General Public License.\n");
774 printf ("For more information about these matters, ");
775 printf ("see the file named COPYING.\n");
776 exit (0);
779 if (argmatch (argv, argc, "-chdir", "--chdir", 4, &ch_to_dir, &skip_args))
781 #ifdef WINDOWSNT
782 /* argv[] array is kept in its original ANSI codepage encoding,
783 we need to convert to UTF-8, for chdir to work. */
784 char newdir[MAX_UTF8_PATH];
786 filename_from_ansi (ch_to_dir, newdir);
787 ch_to_dir = newdir;
788 #endif
789 original_pwd = emacs_get_current_dir_name ();
790 if (chdir (ch_to_dir) != 0)
792 fprintf (stderr, "%s: Can't chdir to %s: %s\n",
793 argv[0], ch_to_dir, strerror (errno));
794 exit (1);
798 dumping = !initialized && (strcmp (argv[argc - 1], "dump") == 0
799 || strcmp (argv[argc - 1], "bootstrap") == 0);
801 #ifdef HAVE_PERSONALITY_LINUX32
802 if (dumping && ! getenv ("EMACS_HEAP_EXEC"))
804 /* Set this so we only do this once. */
805 xputenv ("EMACS_HEAP_EXEC=true");
807 /* A flag to turn off address randomization which is introduced
808 in linux kernel shipped with fedora core 4 */
809 #define ADD_NO_RANDOMIZE 0x0040000
810 personality (PER_LINUX32 | ADD_NO_RANDOMIZE);
811 #undef ADD_NO_RANDOMIZE
813 execvp (argv[0], argv);
815 /* If the exec fails, try to dump anyway. */
816 emacs_perror (argv[0]);
818 #endif /* HAVE_PERSONALITY_LINUX32 */
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 if (1
828 #ifndef CANNOT_DUMP
829 && (!noninteractive || initialized)
830 #endif
831 && !getrlimit (RLIMIT_STACK, &rlim))
833 long newlim;
834 /* Approximate the amount regex.c needs per unit of re_max_failures. */
835 int ratio = 20 * sizeof (char *);
836 /* Then add 33% to cover the size of the smaller stacks that regex.c
837 successively allocates and discards, on its way to the maximum. */
838 ratio += ratio / 3;
839 /* Add in some extra to cover
840 what we're likely to use for other reasons. */
841 newlim = re_max_failures * ratio + 200000;
842 #ifdef __NetBSD__
843 /* NetBSD (at least NetBSD 1.2G and former) has a bug in its
844 stack allocation routine for new process that the allocation
845 fails if stack limit is not on page boundary. So, round up the
846 new limit to page boundary. */
847 newlim = (newlim + getpagesize () - 1) / getpagesize () * getpagesize ();
848 #endif
849 if (newlim > rlim.rlim_max)
851 newlim = rlim.rlim_max;
852 /* Don't let regex.c overflow the stack we have. */
853 re_max_failures = (newlim - 200000) / ratio;
855 if (rlim.rlim_cur < newlim)
856 rlim.rlim_cur = newlim;
858 setrlimit (RLIMIT_STACK, &rlim);
860 #endif /* HAVE_SETRLIMIT and RLIMIT_STACK and not CYGWIN */
862 /* Record (approximately) where the stack begins. */
863 stack_bottom = &stack_bottom_variable;
865 clearerr (stdin);
867 emacs_backtrace (-1);
869 #if !defined SYSTEM_MALLOC && !defined HYBRID_MALLOC
870 /* Arrange to get warning messages as memory fills up. */
871 memory_warnings (0, malloc_warning);
873 /* Call malloc at least once, to run malloc_initialize_hook.
874 Also call realloc and free for consistency. */
875 free (realloc (malloc (4), 4));
877 #endif /* not SYSTEM_MALLOC and not HYBRID_MALLOC */
879 #ifdef MSDOS
880 SET_BINARY (fileno (stdin));
881 fflush (stdout);
882 SET_BINARY (fileno (stdout));
883 #endif /* MSDOS */
885 /* Skip initial setlocale if LC_ALL is "C", as it's not needed in that case.
886 The build procedure uses this while dumping, to ensure that the
887 dumped Emacs does not have its system locale tables initialized,
888 as that might cause screwups when the dumped Emacs starts up. */
890 char *lc_all = getenv ("LC_ALL");
891 do_initial_setlocale = ! lc_all || strcmp (lc_all, "C");
894 /* Set locale now, so that initial error messages are localized properly.
895 fixup_locale must wait until later, since it builds strings. */
896 if (do_initial_setlocale)
897 setlocale (LC_ALL, "");
898 text_quoting_flag = using_utf8 ();
900 inhibit_window_system = 0;
902 /* Handle the -t switch, which specifies filename to use as terminal. */
903 while (1)
905 char *term;
906 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
908 emacs_close (STDIN_FILENO);
909 emacs_close (STDOUT_FILENO);
910 int result = emacs_open (term, O_RDWR, 0);
911 if (result != STDIN_FILENO
912 || (fcntl (STDIN_FILENO, F_DUPFD_CLOEXEC, STDOUT_FILENO)
913 != STDOUT_FILENO))
915 char *errstring = strerror (errno);
916 fprintf (stderr, "%s: %s: %s\n", argv[0], term, errstring);
917 exit (EXIT_FAILURE);
919 if (! isatty (STDIN_FILENO))
921 fprintf (stderr, "%s: %s: not a tty\n", argv[0], term);
922 exit (EXIT_FAILURE);
924 fprintf (stderr, "Using %s\n", term);
925 #ifdef HAVE_WINDOW_SYSTEM
926 inhibit_window_system = true; /* -t => -nw */
927 #endif
929 else
930 break;
933 /* Command line option --no-windows is deprecated and thus not mentioned
934 in the manual and usage information. */
935 if (argmatch (argv, argc, "-nw", "--no-window-system", 6, NULL, &skip_args)
936 || argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
937 inhibit_window_system = 1;
939 /* Handle the -batch switch, which means don't do interactive display. */
940 noninteractive = 0;
941 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
943 noninteractive = 1;
944 Vundo_outer_limit = Qnil;
946 if (argmatch (argv, argc, "-script", "--script", 3, &junk, &skip_args))
948 noninteractive = 1; /* Set batch mode. */
949 /* Convert --script to -scriptload, un-skip it, and sort again
950 so that it will be handled in proper sequence. */
951 /* FIXME broken for --script=FILE - is that supposed to work? */
952 argv[skip_args - 1] = (char *) "-scriptload";
953 skip_args -= 2;
954 sort_args (argc, argv);
957 /* Handle the --help option, which gives a usage message. */
958 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
960 int i;
961 printf ("Usage: %s [OPTION-OR-FILENAME]...\n", argv[0]);
962 for (i = 0; i < ARRAYELTS (usage_message); i++)
963 fputs (usage_message[i], stdout);
964 exit (0);
967 #ifndef WINDOWSNT
968 /* Make sure IS_DAEMON starts up as false. */
969 daemon_pipe[1] = 0;
970 #else
971 w32_daemon_event = NULL;
972 #endif
974 if (argmatch (argv, argc, "-daemon", "--daemon", 5, NULL, &skip_args)
975 || argmatch (argv, argc, "-daemon", "--daemon", 5, &dname_arg, &skip_args))
977 #ifndef DOS_NT
978 pid_t f;
980 /* Start as a daemon: fork a new child process which will run the
981 rest of the initialization code, then exit.
983 Detaching a daemon requires the following steps:
984 - fork
985 - setsid
986 - exit the parent
987 - close the tty file-descriptors
989 We only want to do the last 2 steps once the daemon is ready to
990 serve requests, i.e. after loading .emacs (initialization).
991 OTOH initialization may start subprocesses (e.g. ispell) and these
992 should be run from the proper process (the one that will end up
993 running as daemon) and with the proper "session id" in order for
994 them to keep working after detaching, so fork and setsid need to be
995 performed before initialization.
997 We want to avoid exiting before the server socket is ready, so
998 use a pipe for synchronization. The parent waits for the child
999 to close its end of the pipe (using `daemon-initialized')
1000 before exiting. */
1001 if (emacs_pipe (daemon_pipe) != 0)
1003 fprintf (stderr, "Cannot pipe!\n");
1004 exit (1);
1007 #ifdef HAVE_LIBSYSTEMD
1008 /* Read the number of sockets passed through by systemd. */
1009 int systemd_socket = sd_listen_fds (1);
1011 if (systemd_socket > 1)
1012 fprintf (stderr,
1013 ("\n"
1014 "Warning: systemd passed more than one socket to Emacs.\n"
1015 "Try 'Accept=false' in the Emacs socket unit file.\n"));
1016 else if (systemd_socket == 1
1017 && (0 < sd_is_socket (SD_LISTEN_FDS_START,
1018 AF_UNSPEC, SOCK_STREAM, 1)))
1019 set_external_socket_descriptor (SD_LISTEN_FDS_START);
1020 #endif /* HAVE_LIBSYSTEMD */
1022 #ifndef DAEMON_MUST_EXEC
1023 #ifdef USE_GTK
1024 fprintf (stderr, "\nWarning: due to a long standing Gtk+ bug\nhttp://bugzilla.gnome.org/show_bug.cgi?id=85715\n\
1025 Emacs might crash when run in daemon mode and the X11 connection is unexpectedly lost.\n\
1026 Using an Emacs configured with --with-x-toolkit=lucid does not have this problem.\n");
1027 #endif /* USE_GTK */
1028 f = fork ();
1029 #else /* DAEMON_MUST_EXEC */
1030 if (!dname_arg || !strchr (dname_arg, '\n'))
1031 f = fork (); /* in orig */
1032 else
1033 f = 0; /* in exec'd */
1034 #endif /* !DAEMON_MUST_EXEC */
1035 if (f > 0)
1037 int retval;
1038 char buf[1];
1040 /* Close unused writing end of the pipe. */
1041 emacs_close (daemon_pipe[1]);
1043 /* Just wait for the child to close its end of the pipe. */
1046 retval = read (daemon_pipe[0], &buf, 1);
1048 while (retval == -1 && errno == EINTR);
1050 if (retval < 0)
1052 fprintf (stderr, "Error reading status from child\n");
1053 exit (1);
1055 else if (retval == 0)
1057 fprintf (stderr, "Error: server did not start correctly\n");
1058 exit (1);
1061 emacs_close (daemon_pipe[0]);
1062 exit (0);
1064 if (f < 0)
1066 emacs_perror ("fork");
1067 exit (EXIT_CANCELED);
1070 #ifdef DAEMON_MUST_EXEC
1072 /* In orig process, forked as child, OR in exec'd. */
1073 if (!dname_arg || !strchr (dname_arg, '\n'))
1074 { /* In orig, child: now exec w/special daemon name. */
1075 char fdStr[80];
1076 int fdStrlen =
1077 snprintf (fdStr, sizeof fdStr,
1078 "--daemon=\n%d,%d\n%s", daemon_pipe[0],
1079 daemon_pipe[1], dname_arg ? dname_arg : "");
1081 if (! (0 <= fdStrlen && fdStrlen < sizeof fdStr))
1083 fprintf (stderr, "daemon: child name too long\n");
1084 exit (EXIT_CANNOT_INVOKE);
1087 argv[skip_args] = fdStr;
1089 fcntl (daemon_pipe[0], F_SETFD, 0);
1090 fcntl (daemon_pipe[1], F_SETFD, 0);
1091 execvp (argv[0], argv);
1092 emacs_perror (argv[0]);
1093 exit (errno == ENOENT ? EXIT_ENOENT : EXIT_CANNOT_INVOKE);
1096 /* In exec'd: parse special dname into pipe and name info. */
1097 if (!dname_arg || !strchr (dname_arg, '\n')
1098 || strlen (dname_arg) < 1 || strlen (dname_arg) > 70)
1100 fprintf (stderr, "emacs daemon: daemon name absent or too long\n");
1101 exit (EXIT_CANNOT_INVOKE);
1103 dname_arg2[0] = '\0';
1104 sscanf (dname_arg, "\n%d,%d\n%s", &(daemon_pipe[0]), &(daemon_pipe[1]),
1105 dname_arg2);
1106 dname_arg = *dname_arg2 ? dname_arg2 : NULL;
1107 fcntl (daemon_pipe[1], F_SETFD, FD_CLOEXEC);
1109 #endif /* DAEMON_MUST_EXEC */
1111 /* Close unused reading end of the pipe. */
1112 emacs_close (daemon_pipe[0]);
1114 setsid ();
1115 #elif defined(WINDOWSNT)
1116 /* Indicate that we want daemon mode. */
1117 w32_daemon_event = CreateEvent (NULL, TRUE, FALSE, W32_DAEMON_EVENT);
1118 if (w32_daemon_event == NULL)
1120 fprintf (stderr, "Couldn't create MS-Windows event for daemon: %s\n",
1121 w32_strerror (0));
1122 exit (1);
1124 #else /* MSDOS */
1125 fprintf (stderr, "This platform does not support the -daemon flag.\n");
1126 exit (1);
1127 #endif /* MSDOS */
1128 if (dname_arg)
1129 daemon_name = xstrdup (dname_arg);
1132 #if defined HAVE_PTHREAD && !defined SYSTEM_MALLOC \
1133 && !defined DOUG_LEA_MALLOC && !defined HYBRID_MALLOC
1134 # ifndef CANNOT_DUMP
1135 /* Do not make gmalloc thread-safe when creating bootstrap-emacs, as
1136 that causes an infinite recursive loop with FreeBSD. See
1137 Bug#14569. The part of this bug involving Cygwin is no longer
1138 relevant, now that Cygwin defines HYBRID_MALLOC. */
1139 if (!noninteractive || initialized)
1140 # endif
1141 malloc_enable_thread ();
1142 #endif
1144 init_signals (dumping);
1146 noninteractive1 = noninteractive;
1148 /* Perform basic initializations (not merely interning symbols). */
1150 if (!initialized)
1152 init_alloc_once ();
1153 init_obarray ();
1154 init_eval_once ();
1155 init_charset_once ();
1156 init_coding_once ();
1157 init_syntax_once (); /* Create standard syntax table. */
1158 init_category_once (); /* Create standard category table. */
1159 init_casetab_once (); /* Must be done before init_buffer_once. */
1160 init_buffer_once (); /* Create buffer table and some buffers. */
1161 init_minibuf_once (); /* Create list of minibuffers. */
1162 /* Must precede init_window_once. */
1164 /* Call syms_of_xfaces before init_window_once because that
1165 function creates Vterminal_frame. Termcap frames now use
1166 faces, and the face implementation uses some symbols as
1167 face names. */
1168 syms_of_xfaces ();
1169 /* XXX syms_of_keyboard uses some symbols in keymap.c. It would
1170 be better to arrange things not to have this dependency. */
1171 syms_of_keymap ();
1172 /* Call syms_of_keyboard before init_window_once because
1173 keyboard sets up symbols that include some face names that
1174 the X support will want to use. This can happen when
1175 CANNOT_DUMP is defined. */
1176 syms_of_keyboard ();
1178 /* Called before syms_of_fileio, because it sets up Qerror_condition. */
1179 syms_of_data ();
1180 syms_of_fns (); /* Before syms_of_charset which uses hashtables. */
1181 syms_of_fileio ();
1182 /* Before syms_of_coding to initialize Vgc_cons_threshold. */
1183 syms_of_alloc ();
1184 /* May call Ffuncall and so GC, thus the latter should be initialized. */
1185 init_print_once ();
1186 /* Before syms_of_coding because it initializes Qcharsetp. */
1187 syms_of_charset ();
1188 /* Before init_window_once, because it sets up the
1189 Vcoding_system_hash_table. */
1190 syms_of_coding (); /* This should be after syms_of_fileio. */
1192 init_window_once (); /* Init the window system. */
1193 #ifdef HAVE_WINDOW_SYSTEM
1194 init_fringe_once (); /* Swap bitmaps if necessary. */
1195 #endif /* HAVE_WINDOW_SYSTEM */
1198 init_alloc ();
1200 if (do_initial_setlocale)
1202 fixup_locale ();
1203 Vsystem_messages_locale = Vprevious_system_messages_locale;
1204 Vsystem_time_locale = Vprevious_system_time_locale;
1207 init_eval ();
1208 init_atimer ();
1209 running_asynch_code = 0;
1210 init_random ();
1212 no_loadup
1213 = argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args);
1215 no_site_lisp
1216 = argmatch (argv, argc, "-nsl", "--no-site-lisp", 11, NULL, &skip_args);
1218 build_details = ! argmatch (argv, argc, "-no-build-details",
1219 "--no-build-details", 7, NULL, &skip_args);
1221 #ifdef HAVE_NS
1222 ns_pool = ns_alloc_autorelease_pool ();
1223 #ifdef NS_IMPL_GNUSTEP
1224 /* GNUstep stupidly resets our locale settings after we made them. */
1225 fixup_locale ();
1226 #endif
1228 if (!noninteractive)
1230 #ifdef NS_IMPL_COCOA
1231 /* Started from GUI? */
1232 /* FIXME: Do the right thing if getenv returns NULL, or if
1233 chdir fails. */
1234 if (! inhibit_window_system && ! isatty (STDIN_FILENO) && ! ch_to_dir)
1235 chdir (getenv ("HOME"));
1236 if (skip_args < argc)
1238 if (!strncmp (argv[skip_args], "-psn", 4))
1240 skip_args += 1;
1241 if (! ch_to_dir) chdir (getenv ("HOME"));
1243 else if (skip_args+1 < argc && !strncmp (argv[skip_args+1], "-psn", 4))
1245 skip_args += 2;
1246 if (! ch_to_dir) chdir (getenv ("HOME"));
1249 #endif /* COCOA */
1251 #endif /* HAVE_NS */
1253 #ifdef HAVE_X_WINDOWS
1254 /* Stupid kludge to catch command-line display spec. We can't
1255 handle this argument entirely in window system dependent code
1256 because we don't even know which window system dependent code
1257 to run until we've recognized this argument. */
1259 char *displayname = 0;
1260 int count_before = skip_args;
1262 /* Skip any number of -d options, but only use the last one. */
1263 while (1)
1265 int count_before_this = skip_args;
1267 if (argmatch (argv, argc, "-d", "--display", 3, &displayname, &skip_args))
1268 display_arg = 1;
1269 else if (argmatch (argv, argc, "-display", 0, 3, &displayname, &skip_args))
1270 display_arg = 1;
1271 else
1272 break;
1274 count_before = count_before_this;
1277 /* If we have the form --display=NAME,
1278 convert it into -d name.
1279 This requires inserting a new element into argv. */
1280 if (displayname && count_before < skip_args)
1282 if (skip_args == count_before + 1)
1284 memmove (argv + count_before + 3, argv + count_before + 2,
1285 (argc - (count_before + 2)) * sizeof *argv);
1286 argv[count_before + 2] = displayname;
1287 argc++;
1289 argv[count_before + 1] = (char *) "-d";
1292 if (! no_site_lisp)
1294 if (argmatch (argv, argc, "-Q", "--quick", 3, NULL, &skip_args)
1295 || argmatch (argv, argc, "-quick", 0, 2, NULL, &skip_args))
1296 no_site_lisp = 1;
1299 /* Don't actually discard this arg. */
1300 skip_args = count_before;
1302 #else /* !HAVE_X_WINDOWS */
1303 if (! no_site_lisp)
1305 int count_before = skip_args;
1307 if (argmatch (argv, argc, "-Q", "--quick", 3, NULL, &skip_args)
1308 || argmatch (argv, argc, "-quick", 0, 2, NULL, &skip_args))
1309 no_site_lisp = 1;
1311 skip_args = count_before;
1313 #endif
1315 /* argmatch must not be used after here,
1316 except when building temacs
1317 because the -d argument has not been skipped in skip_args. */
1319 #ifdef MSDOS
1320 /* Call early 'cause init_environment needs it. */
1321 init_dosfns ();
1322 /* Set defaults for several environment variables. */
1323 if (initialized)
1324 init_environment (argc, argv, skip_args);
1325 else
1326 tzset ();
1327 #endif /* MSDOS */
1329 #ifdef HAVE_KQUEUE
1330 globals_of_kqueue ();
1331 #endif
1333 #ifdef HAVE_GFILENOTIFY
1334 globals_of_gfilenotify ();
1335 #endif
1337 #ifdef WINDOWSNT
1338 globals_of_w32 ();
1339 #ifdef HAVE_W32NOTIFY
1340 globals_of_w32notify ();
1341 #endif
1342 /* Initialize environment from registry settings. */
1343 init_environment (argv);
1344 init_ntproc (dumping); /* must precede init_editfns. */
1345 #endif
1347 #ifdef HAVE_NS
1348 /* Initialize the locale from user defaults. */
1349 ns_init_locale ();
1350 #endif
1352 /* Initialize and GC-protect Vinitial_environment and
1353 Vprocess_environment before set_initial_environment fills them
1354 in. */
1355 if (!initialized)
1356 syms_of_callproc ();
1357 /* egetenv is a pretty low-level facility, which may get called in
1358 many circumstances; it seems flimsy to put off initializing it
1359 until calling init_callproc. Do not do it when dumping. */
1360 if (! dumping)
1361 set_initial_environment ();
1363 /* AIX crashes are reported in system versions 3.2.3 and 3.2.4
1364 if this is not done. Do it after set_global_environment so that we
1365 don't pollute Vglobal_environment. */
1366 /* Setting LANG here will defeat the startup locale processing... */
1367 #ifdef AIX
1368 xputenv ("LANG=C");
1369 #endif
1371 /* Init buffer storage and default directory of main buffer. */
1372 init_buffer (initialized);
1374 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */
1376 /* Must precede init_lread. */
1377 init_cmdargs (argc, argv, skip_args, original_pwd);
1379 if (initialized)
1381 /* Erase any pre-dump messages in the message log, to avoid confusion. */
1382 Lisp_Object old_log_max;
1383 old_log_max = Vmessage_log_max;
1384 XSETFASTINT (Vmessage_log_max, 0);
1385 message_dolog ("", 0, 1, 0);
1386 Vmessage_log_max = old_log_max;
1389 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */
1390 init_fileio ();
1391 init_lread ();
1392 #ifdef WINDOWSNT
1393 /* Check to see if Emacs has been installed correctly. */
1394 check_windows_init_file ();
1395 #endif
1397 /* Intern the names of all standard functions and variables;
1398 define standard keys. */
1400 if (!initialized)
1402 /* The basic levels of Lisp must come first. Note that
1403 syms_of_data and some others have already been called. */
1404 syms_of_chartab ();
1405 syms_of_lread ();
1406 syms_of_print ();
1407 syms_of_eval ();
1408 syms_of_floatfns ();
1410 syms_of_buffer ();
1411 syms_of_bytecode ();
1412 syms_of_callint ();
1413 syms_of_casefiddle ();
1414 syms_of_casetab ();
1415 syms_of_category ();
1416 syms_of_ccl ();
1417 syms_of_character ();
1418 syms_of_cmds ();
1419 syms_of_dired ();
1420 syms_of_display ();
1421 syms_of_doc ();
1422 syms_of_editfns ();
1423 syms_of_emacs ();
1424 syms_of_filelock ();
1425 syms_of_indent ();
1426 syms_of_insdel ();
1427 /* syms_of_keymap (); */
1428 syms_of_macros ();
1429 syms_of_marker ();
1430 syms_of_minibuf ();
1431 syms_of_process ();
1432 syms_of_search ();
1433 syms_of_frame ();
1434 syms_of_syntax ();
1435 syms_of_terminal ();
1436 syms_of_term ();
1437 syms_of_undo ();
1439 #ifdef HAVE_MODULES
1440 syms_of_module ();
1441 #endif
1443 #ifdef HAVE_SOUND
1444 syms_of_sound ();
1445 #endif
1446 syms_of_textprop ();
1447 syms_of_composite ();
1448 #ifdef WINDOWSNT
1449 syms_of_ntproc ();
1450 #endif /* WINDOWSNT */
1451 #if defined CYGWIN
1452 syms_of_cygw32 ();
1453 #endif
1454 syms_of_window ();
1455 syms_of_xdisp ();
1456 syms_of_font ();
1457 #ifdef HAVE_WINDOW_SYSTEM
1458 syms_of_fringe ();
1459 syms_of_image ();
1460 #endif /* HAVE_WINDOW_SYSTEM */
1461 #ifdef HAVE_X_WINDOWS
1462 syms_of_xterm ();
1463 syms_of_xfns ();
1464 syms_of_xmenu ();
1465 syms_of_fontset ();
1466 syms_of_xwidget ();
1467 syms_of_xsettings ();
1468 #ifdef HAVE_X_SM
1469 syms_of_xsmfns ();
1470 #endif
1471 #ifdef HAVE_X11
1472 syms_of_xselect ();
1473 #endif
1474 #endif /* HAVE_X_WINDOWS */
1476 #ifdef HAVE_LIBXML2
1477 syms_of_xml ();
1478 #endif
1480 #ifdef HAVE_ZLIB
1481 syms_of_decompress ();
1482 #endif
1484 syms_of_menu ();
1486 #ifdef HAVE_NTGUI
1487 syms_of_w32term ();
1488 syms_of_w32fns ();
1489 syms_of_w32menu ();
1490 syms_of_fontset ();
1491 #endif /* HAVE_NTGUI */
1493 #if defined WINDOWSNT || defined HAVE_NTGUI
1494 syms_of_w32select ();
1495 #endif
1497 #ifdef MSDOS
1498 syms_of_xmenu ();
1499 syms_of_dosfns ();
1500 syms_of_msdos ();
1501 syms_of_win16select ();
1502 #endif /* MSDOS */
1504 #ifdef HAVE_NS
1505 syms_of_nsterm ();
1506 syms_of_nsfns ();
1507 syms_of_nsmenu ();
1508 syms_of_nsselect ();
1509 syms_of_fontset ();
1510 #endif /* HAVE_NS */
1512 syms_of_gnutls ();
1514 #ifdef HAVE_INOTIFY
1515 syms_of_inotify ();
1516 #endif /* HAVE_INOTIFY */
1518 #ifdef HAVE_KQUEUE
1519 syms_of_kqueue ();
1520 #endif /* HAVE_KQUEUE */
1522 #ifdef HAVE_GFILENOTIFY
1523 syms_of_gfilenotify ();
1524 #endif /* HAVE_GFILENOTIFY */
1526 #ifdef HAVE_DBUS
1527 syms_of_dbusbind ();
1528 #endif /* HAVE_DBUS */
1530 #ifdef WINDOWSNT
1531 syms_of_ntterm ();
1532 #ifdef HAVE_W32NOTIFY
1533 syms_of_w32notify ();
1534 #endif /* HAVE_W32NOTIFY */
1535 #endif /* WINDOWSNT */
1537 syms_of_profiler ();
1539 keys_of_casefiddle ();
1540 keys_of_cmds ();
1541 keys_of_buffer ();
1542 keys_of_keyboard ();
1543 keys_of_keymap ();
1544 keys_of_window ();
1546 else
1548 /* Initialization that must be done even if the global variable
1549 initialized is non zero. */
1550 #ifdef HAVE_NTGUI
1551 globals_of_w32font ();
1552 globals_of_w32fns ();
1553 globals_of_w32menu ();
1554 #endif /* HAVE_NTGUI */
1556 #if defined WINDOWSNT || defined HAVE_NTGUI
1557 globals_of_w32select ();
1558 #endif
1561 init_charset ();
1563 /* This calls putenv and so must precede init_process_emacs. Also,
1564 it sets Voperating_system_release, which init_process_emacs uses. */
1565 init_editfns (dumping);
1567 /* These two call putenv. */
1568 #ifdef HAVE_DBUS
1569 init_dbusbind ();
1570 #endif
1571 #ifdef USE_GTK
1572 init_xterm ();
1573 #endif
1575 /* This can create a thread that may call getenv, so it must follow
1576 all calls to putenv and setenv. Also, this sets up
1577 add_keyboard_wait_descriptor, which init_display uses. */
1578 init_process_emacs ();
1580 init_keyboard (); /* This too must precede init_sys_modes. */
1581 if (!noninteractive)
1582 init_display (); /* Determine terminal type. Calls init_sys_modes. */
1583 #if HAVE_W32NOTIFY
1584 else
1585 init_crit (); /* w32notify.c needs this in batch mode. */
1586 #endif /* HAVE_W32NOTIFY */
1587 init_xdisp ();
1588 #ifdef HAVE_WINDOW_SYSTEM
1589 init_fringe ();
1590 #endif /* HAVE_WINDOW_SYSTEM */
1591 init_macros ();
1592 init_window ();
1593 init_font ();
1595 if (!initialized)
1597 char *file;
1598 /* Handle -l loadup, args passed by Makefile. */
1599 if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args))
1601 #ifdef WINDOWSNT
1602 char file_utf8[MAX_UTF8_PATH];
1604 if (filename_from_ansi (file, file_utf8) == 0)
1605 file = file_utf8;
1606 #endif
1607 Vtop_level = list2 (Qload, build_unibyte_string (file));
1609 /* Unless next switch is -nl, load "loadup.el" first thing. */
1610 if (! no_loadup)
1611 Vtop_level = list2 (Qload, build_string ("loadup.el"));
1614 /* Set up for profiling. This is known to work on FreeBSD,
1615 GNU/Linux and MinGW. It might work on some other systems too.
1616 Give it a try and tell us if it works on your system. To compile
1617 for profiling, use the configure option --enable-profiling. */
1618 #if defined (__FreeBSD__) || defined (GNU_LINUX) || defined (__MINGW32__)
1619 #ifdef PROFILING
1620 if (initialized)
1622 #ifdef __MINGW32__
1623 extern unsigned char etext asm ("etext");
1624 #else
1625 extern char etext;
1626 #endif
1628 atexit (_mcleanup);
1629 monstartup ((uintptr_t) __executable_start, (uintptr_t) &etext);
1631 else
1632 moncontrol (0);
1633 #endif
1634 #endif
1636 initialized = 1;
1638 /* Enter editor command loop. This never returns. */
1639 Frecursive_edit ();
1640 /* NOTREACHED */
1641 return 0;
1644 /* Sort the args so we can find the most important ones
1645 at the beginning of argv. */
1647 /* First, here's a table of all the standard options. */
1649 struct standard_args
1651 const char *name;
1652 const char *longname;
1653 int priority;
1654 int nargs;
1657 static const struct standard_args standard_args[] =
1659 { "-version", "--version", 150, 0 },
1660 { "-chdir", "--chdir", 130, 1 },
1661 { "-t", "--terminal", 120, 1 },
1662 { "-nw", "--no-window-system", 110, 0 },
1663 { "-nw", "--no-windows", 110, 0 },
1664 { "-batch", "--batch", 100, 0 },
1665 { "-script", "--script", 100, 1 },
1666 { "-daemon", "--daemon", 99, 0 },
1667 { "-help", "--help", 90, 0 },
1668 { "-nl", "--no-loadup", 70, 0 },
1669 { "-nsl", "--no-site-lisp", 65, 0 },
1670 { "-no-build-details", "--no-build-details", 63, 0 },
1671 /* -d must come last before the options handled in startup.el. */
1672 { "-d", "--display", 60, 1 },
1673 { "-display", 0, 60, 1 },
1674 /* Now for the options handled in `command-line' (startup.el). */
1675 /* (Note that to imply -nsl, -Q is partially handled here.) */
1676 { "-Q", "--quick", 55, 0 },
1677 { "-quick", 0, 55, 0 },
1678 { "-q", "--no-init-file", 50, 0 },
1679 { "-no-init-file", 0, 50, 0 },
1680 { "-no-x-resources", "--no-x-resources", 40, 0 },
1681 { "-no-site-file", "--no-site-file", 40, 0 },
1682 { "-u", "--user", 30, 1 },
1683 { "-user", 0, 30, 1 },
1684 { "-debug-init", "--debug-init", 20, 0 },
1685 { "-iconic", "--iconic", 15, 0 },
1686 { "-D", "--basic-display", 12, 0},
1687 { "-basic-display", 0, 12, 0},
1688 { "-nbc", "--no-blinking-cursor", 12, 0 },
1689 /* Now for the options handled in `command-line-1' (startup.el). */
1690 { "-nbi", "--no-bitmap-icon", 10, 0 },
1691 { "-bg", "--background-color", 10, 1 },
1692 { "-background", 0, 10, 1 },
1693 { "-fg", "--foreground-color", 10, 1 },
1694 { "-foreground", 0, 10, 1 },
1695 { "-bd", "--border-color", 10, 1 },
1696 { "-bw", "--border-width", 10, 1 },
1697 { "-ib", "--internal-border", 10, 1 },
1698 { "-ms", "--mouse-color", 10, 1 },
1699 { "-cr", "--cursor-color", 10, 1 },
1700 { "-fn", "--font", 10, 1 },
1701 { "-font", 0, 10, 1 },
1702 { "-fs", "--fullscreen", 10, 0 },
1703 { "-fw", "--fullwidth", 10, 0 },
1704 { "-fh", "--fullheight", 10, 0 },
1705 { "-mm", "--maximized", 10, 0 },
1706 { "-g", "--geometry", 10, 1 },
1707 { "-geometry", 0, 10, 1 },
1708 { "-T", "--title", 10, 1 },
1709 { "-title", 0, 10, 1 },
1710 { "-name", "--name", 10, 1 },
1711 { "-xrm", "--xrm", 10, 1 },
1712 { "-parent-id", "--parent-id", 10, 1 },
1713 { "-r", "--reverse-video", 5, 0 },
1714 { "-rv", 0, 5, 0 },
1715 { "-reverse", 0, 5, 0 },
1716 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1717 { "-vb", "--vertical-scroll-bars", 5, 0 },
1718 { "-color", "--color", 5, 0},
1719 { "-no-splash", "--no-splash", 3, 0 },
1720 { "-no-desktop", "--no-desktop", 3, 0 },
1721 #ifdef HAVE_NS
1722 { "-NSAutoLaunch", 0, 5, 1 },
1723 { "-NXAutoLaunch", 0, 5, 1 },
1724 { "-_NSMachLaunch", 0, 85, 1 },
1725 { "-MachLaunch", 0, 85, 1 },
1726 { "-macosx", 0, 85, 0 },
1727 { "-NSHost", 0, 85, 1 },
1728 #endif
1729 /* These have the same priority as ordinary file name args,
1730 so they are not reordered with respect to those. */
1731 { "-L", "--directory", 0, 1 },
1732 { "-directory", 0, 0, 1 },
1733 { "-l", "--load", 0, 1 },
1734 { "-load", 0, 0, 1 },
1735 /* This has no longname, because using --scriptload confuses sort_args,
1736 because then the --script long option seems to match twice; ie
1737 you can't have a long option which is a prefix of another long
1738 option. In any case, this is entirely an internal option. */
1739 { "-scriptload", NULL, 0, 1 },
1740 { "-f", "--funcall", 0, 1 },
1741 { "-funcall", 0, 0, 1 },
1742 { "-eval", "--eval", 0, 1 },
1743 { "-execute", "--execute", 0, 1 },
1744 { "-find-file", "--find-file", 0, 1 },
1745 { "-visit", "--visit", 0, 1 },
1746 { "-file", "--file", 0, 1 },
1747 { "-insert", "--insert", 0, 1 },
1748 #ifdef HAVE_NS
1749 { "-NXOpen", 0, 0, 1 },
1750 { "-NXOpenTemp", 0, 0, 1 },
1751 { "-NSOpen", 0, 0, 1 },
1752 { "-NSOpenTemp", 0, 0, 1 },
1753 { "-GSFilePath", 0, 0, 1 },
1754 #endif
1755 /* This should be processed after ordinary file name args and the like. */
1756 { "-kill", "--kill", -10, 0 },
1759 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1760 so that the highest priority ones come first.
1761 Do not change the order of elements of equal priority.
1762 If an option takes an argument, keep it and its argument together.
1764 If an option that takes no argument appears more
1765 than once, eliminate all but one copy of it. */
1767 static void
1768 sort_args (int argc, char **argv)
1770 char **new = xmalloc (argc * sizeof *new);
1771 /* For each element of argv,
1772 the corresponding element of options is:
1773 0 for an option that takes no arguments,
1774 1 for an option that takes one argument, etc.
1775 -1 for an ordinary non-option argument. */
1776 int *options = xnmalloc (argc, sizeof *options);
1777 int *priority = xnmalloc (argc, sizeof *priority);
1778 int to = 1;
1779 int incoming_used = 1;
1780 int from;
1781 int i;
1783 /* Categorize all the options,
1784 and figure out which argv elts are option arguments. */
1785 for (from = 1; from < argc; from++)
1787 options[from] = -1;
1788 priority[from] = 0;
1789 if (argv[from][0] == '-')
1791 int match;
1793 /* If we have found "--", don't consider
1794 any more arguments as options. */
1795 if (argv[from][1] == '-' && argv[from][2] == 0)
1797 /* Leave the "--", and everything following it, at the end. */
1798 for (; from < argc; from++)
1800 priority[from] = -100;
1801 options[from] = -1;
1803 break;
1806 /* Look for a match with a known old-fashioned option. */
1807 for (i = 0; i < ARRAYELTS (standard_args); i++)
1808 if (!strcmp (argv[from], standard_args[i].name))
1810 options[from] = standard_args[i].nargs;
1811 priority[from] = standard_args[i].priority;
1812 if (from + standard_args[i].nargs >= argc)
1813 fatal ("Option '%s' requires an argument\n", argv[from]);
1814 from += standard_args[i].nargs;
1815 goto done;
1818 /* Look for a match with a known long option.
1819 MATCH is -1 if no match so far, -2 if two or more matches so far,
1820 >= 0 (the table index of the match) if just one match so far. */
1821 if (argv[from][1] == '-')
1823 char const *equals = strchr (argv[from], '=');
1824 ptrdiff_t thislen =
1825 equals ? equals - argv[from] : strlen (argv[from]);
1827 match = -1;
1829 for (i = 0; i < ARRAYELTS (standard_args); i++)
1830 if (standard_args[i].longname
1831 && !strncmp (argv[from], standard_args[i].longname,
1832 thislen))
1834 if (match == -1)
1835 match = i;
1836 else
1837 match = -2;
1840 /* If we found exactly one match, use that. */
1841 if (match >= 0)
1843 options[from] = standard_args[match].nargs;
1844 priority[from] = standard_args[match].priority;
1845 /* If --OPTION=VALUE syntax is used,
1846 this option uses just one argv element. */
1847 if (equals != 0)
1848 options[from] = 0;
1849 if (from + options[from] >= argc)
1850 fatal ("Option '%s' requires an argument\n", argv[from]);
1851 from += options[from];
1853 /* FIXME When match < 0, shouldn't there be some error,
1854 or at least indication to the user that there was a
1855 problem? */
1857 done: ;
1861 /* Copy the arguments, in order of decreasing priority, to NEW. */
1862 new[0] = argv[0];
1863 while (incoming_used < argc)
1865 int best = -1;
1866 int best_priority = -9999;
1868 /* Find the highest priority remaining option.
1869 If several have equal priority, take the first of them. */
1870 for (from = 1; from < argc; from++)
1872 if (argv[from] != 0 && priority[from] > best_priority)
1874 best_priority = priority[from];
1875 best = from;
1877 /* Skip option arguments--they are tied to the options. */
1878 if (options[from] > 0)
1879 from += options[from];
1882 if (best < 0)
1883 emacs_abort ();
1885 /* Copy the highest priority remaining option, with its args, to NEW.
1886 Unless it is a duplicate of the previous one. */
1887 if (! (options[best] == 0
1888 && ! strcmp (new[to - 1], argv[best])))
1890 new[to++] = argv[best];
1891 for (i = 0; i < options[best]; i++)
1892 new[to++] = argv[best + i + 1];
1895 incoming_used += 1 + (options[best] > 0 ? options[best] : 0);
1897 /* Clear out this option in ARGV. */
1898 argv[best] = 0;
1899 for (i = 0; i < options[best]; i++)
1900 argv[best + i + 1] = 0;
1903 /* If duplicate options were deleted, fill up extra space with null ptrs. */
1904 while (to < argc)
1905 new[to++] = 0;
1907 memcpy (argv, new, sizeof (char *) * argc);
1909 xfree (options);
1910 xfree (new);
1911 xfree (priority);
1914 DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P",
1915 doc: /* Exit the Emacs job and kill it.
1916 If ARG is an integer, return ARG as the exit program code.
1917 If ARG is a string, stuff it as keyboard input.
1919 This function is called upon receipt of the signals SIGTERM
1920 or SIGHUP, and upon SIGINT in batch mode.
1922 The value of `kill-emacs-hook', if not void,
1923 is a list of functions (of no args),
1924 all of which are called before Emacs is actually killed. */
1925 attributes: noreturn)
1926 (Lisp_Object arg)
1928 int exit_code;
1930 /* Fsignal calls emacs_abort () if it sees that waiting_for_input is
1931 set. */
1932 waiting_for_input = 0;
1933 run_hook (Qkill_emacs_hook);
1935 #ifdef HAVE_X_WINDOWS
1936 /* Transfer any clipboards we own to the clipboard manager. */
1937 x_clipboard_manager_save_all ();
1938 #endif
1940 shut_down_emacs (0, (STRINGP (arg) && !feof (stdin)) ? arg : Qnil);
1942 #ifdef HAVE_NS
1943 ns_release_autorelease_pool (ns_pool);
1944 #endif
1946 /* If we have an auto-save list file,
1947 kill it because we are exiting Emacs deliberately (not crashing).
1948 Do it after shut_down_emacs, which does an auto-save. */
1949 if (STRINGP (Vauto_save_list_file_name))
1951 Lisp_Object listfile;
1952 listfile = Fexpand_file_name (Vauto_save_list_file_name, Qnil);
1953 unlink (SSDATA (listfile));
1956 if (INTEGERP (arg))
1957 exit_code = (XINT (arg) < 0
1958 ? XINT (arg) | INT_MIN
1959 : XINT (arg) & INT_MAX);
1960 else
1961 exit_code = EXIT_SUCCESS;
1962 exit (exit_code);
1966 /* Perform an orderly shutdown of Emacs. Autosave any modified
1967 buffers, kill any child processes, clean up the terminal modes (if
1968 we're in the foreground), and other stuff like that. Don't perform
1969 any redisplay; this may be called when Emacs is shutting down in
1970 the background, or after its X connection has died.
1972 If SIG is a signal number, print a message for it.
1974 This is called by fatal signal handlers, X protocol error handlers,
1975 and Fkill_emacs. */
1977 void
1978 shut_down_emacs (int sig, Lisp_Object stuff)
1980 /* Prevent running of hooks from now on. */
1981 Vrun_hooks = Qnil;
1983 /* Don't update display from now on. */
1984 Vinhibit_redisplay = Qt;
1986 /* If we are controlling the terminal, reset terminal modes. */
1987 #ifndef DOS_NT
1989 pid_t pgrp = getpgrp ();
1990 pid_t tpgrp = tcgetpgrp (0);
1991 if ((tpgrp != -1) && tpgrp == pgrp)
1993 reset_all_sys_modes ();
1994 if (sig && sig != SIGTERM)
1996 static char const format[] = "Fatal error %d: ";
1997 char buf[sizeof format - 2 + INT_STRLEN_BOUND (int)];
1998 int buflen = sprintf (buf, format, sig);
1999 char const *sig_desc = safe_strsignal (sig);
2000 emacs_write (STDERR_FILENO, buf, buflen);
2001 emacs_write (STDERR_FILENO, sig_desc, strlen (sig_desc));
2005 #else
2006 fflush (stdout);
2007 reset_all_sys_modes ();
2008 #endif
2010 stuff_buffered_input (stuff);
2012 inhibit_sentinels = 1;
2013 kill_buffer_processes (Qnil);
2014 Fdo_auto_save (Qt, Qnil);
2016 unlock_all_files ();
2018 /* There is a tendency for a SIGIO signal to arrive within exit,
2019 and cause a SIGHUP because the input descriptor is already closed. */
2020 unrequest_sigio ();
2022 /* Do this only if terminating normally, we want glyph matrices
2023 etc. in a core dump. */
2024 if (sig == 0 || sig == SIGTERM)
2026 check_glyph_memory ();
2027 check_message_stack ();
2030 #ifdef MSDOS
2031 dos_cleanup ();
2032 #endif
2034 #ifdef HAVE_NS
2035 ns_term_shutdown (sig);
2036 #endif
2038 #ifdef HAVE_LIBXML2
2039 xml_cleanup_parser ();
2040 #endif
2042 #ifdef WINDOWSNT
2043 term_ntproc (0);
2044 #endif
2049 #ifndef CANNOT_DUMP
2051 #include "unexec.h"
2053 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0,
2054 doc: /* Dump current state of Emacs into executable file FILENAME.
2055 Take symbols from SYMFILE (presumably the file you executed to run Emacs).
2056 This is used in the file `loadup.el' when building Emacs.
2058 You must run Emacs in batch mode in order to dump it. */)
2059 (Lisp_Object filename, Lisp_Object symfile)
2061 Lisp_Object tem;
2062 Lisp_Object symbol;
2063 ptrdiff_t count = SPECPDL_INDEX ();
2065 check_pure_size ();
2067 if (! noninteractive)
2068 error ("Dumping Emacs works only in batch mode");
2070 if (!might_dump)
2071 error ("Emacs can be dumped only once");
2073 #ifdef GNU_LINUX
2075 /* Warn if the gap between BSS end and heap start is larger than this. */
2076 # define MAX_HEAP_BSS_DIFF (1024*1024)
2078 if (heap_bss_diff > MAX_HEAP_BSS_DIFF)
2080 fprintf (stderr, "**************************************************\n");
2081 fprintf (stderr, "Warning: Your system has a gap between BSS and the\n");
2082 fprintf (stderr, "heap (%"pMu" bytes). This usually means that exec-shield\n",
2083 heap_bss_diff);
2084 fprintf (stderr, "or something similar is in effect. The dump may\n");
2085 fprintf (stderr, "fail because of this. See the section about\n");
2086 fprintf (stderr, "exec-shield in etc/PROBLEMS for more information.\n");
2087 fprintf (stderr, "**************************************************\n");
2089 #endif /* GNU_LINUX */
2091 /* Bind `command-line-processed' to nil before dumping,
2092 so that the dumped Emacs will process its command line
2093 and set up to work with X windows if appropriate. */
2094 symbol = intern ("command-line-processed");
2095 specbind (symbol, Qnil);
2097 CHECK_STRING (filename);
2098 filename = Fexpand_file_name (filename, Qnil);
2099 filename = ENCODE_FILE (filename);
2100 if (!NILP (symfile))
2102 CHECK_STRING (symfile);
2103 if (SCHARS (symfile))
2105 symfile = Fexpand_file_name (symfile, Qnil);
2106 symfile = ENCODE_FILE (symfile);
2110 tem = Vpurify_flag;
2111 Vpurify_flag = Qnil;
2113 #ifdef HYBRID_MALLOC
2115 static char const fmt[] = "%d of %d static heap bytes used";
2116 char buf[sizeof fmt + 2 * (INT_STRLEN_BOUND (int) - 2)];
2117 int max_usage = max_bss_sbrk_ptr - bss_sbrk_buffer;
2118 sprintf (buf, fmt, max_usage, STATIC_HEAP_SIZE);
2119 /* Don't log messages, because at this point buffers cannot be created. */
2120 message1_nolog (buf);
2122 #endif
2124 fflush (stdout);
2125 /* Tell malloc where start of impure now is. */
2126 /* Also arrange for warnings when nearly out of space. */
2127 #if !defined SYSTEM_MALLOC && !defined HYBRID_MALLOC
2128 #ifndef WINDOWSNT
2129 /* On Windows, this was done before dumping, and that once suffices.
2130 Meanwhile, my_edata is not valid on Windows. */
2131 memory_warnings (my_edata, malloc_warning);
2132 #endif /* not WINDOWSNT */
2133 #endif /* not SYSTEM_MALLOC and not HYBRID_MALLOC */
2135 alloc_unexec_pre ();
2137 unexec (SSDATA (filename), !NILP (symfile) ? SSDATA (symfile) : 0);
2139 alloc_unexec_post ();
2141 #ifdef WINDOWSNT
2142 Vlibrary_cache = Qnil;
2143 #endif
2144 #ifdef HAVE_WINDOW_SYSTEM
2145 reset_image_types ();
2146 #endif
2148 Vpurify_flag = tem;
2150 return unbind_to (count, Qnil);
2153 #endif /* not CANNOT_DUMP */
2155 #if HAVE_SETLOCALE
2156 /* Recover from setlocale (LC_ALL, ""). */
2157 void
2158 fixup_locale (void)
2160 /* The Emacs Lisp reader needs LC_NUMERIC to be "C",
2161 so that numbers are read and printed properly for Emacs Lisp. */
2162 setlocale (LC_NUMERIC, "C");
2165 /* Set system locale CATEGORY, with previous locale *PLOCALE, to
2166 DESIRED_LOCALE. */
2167 static void
2168 synchronize_locale (int category, Lisp_Object *plocale, Lisp_Object desired_locale)
2170 if (! EQ (*plocale, desired_locale))
2172 *plocale = desired_locale;
2173 #ifdef WINDOWSNT
2174 /* Changing categories like LC_TIME usually requires specifying
2175 an encoding suitable for the new locale, but MS-Windows's
2176 'setlocale' will only switch the encoding when LC_ALL is
2177 specified. So we ignore CATEGORY, use LC_ALL instead, and
2178 then restore LC_NUMERIC to "C", so reading and printing
2179 numbers is unaffected. */
2180 setlocale (LC_ALL, (STRINGP (desired_locale)
2181 ? SSDATA (desired_locale)
2182 : ""));
2183 fixup_locale ();
2184 #else /* !WINDOWSNT */
2185 setlocale (category, (STRINGP (desired_locale)
2186 ? SSDATA (desired_locale)
2187 : ""));
2188 #endif /* !WINDOWSNT */
2192 /* Set system time locale to match Vsystem_time_locale, if possible. */
2193 void
2194 synchronize_system_time_locale (void)
2196 synchronize_locale (LC_TIME, &Vprevious_system_time_locale,
2197 Vsystem_time_locale);
2200 /* Set system messages locale to match Vsystem_messages_locale, if
2201 possible. */
2202 void
2203 synchronize_system_messages_locale (void)
2205 #ifdef LC_MESSAGES
2206 synchronize_locale (LC_MESSAGES, &Vprevious_system_messages_locale,
2207 Vsystem_messages_locale);
2208 #endif
2210 #endif /* HAVE_SETLOCALE */
2213 Lisp_Object
2214 decode_env_path (const char *evarname, const char *defalt, bool empty)
2216 const char *path, *p;
2217 Lisp_Object lpath, element, tem;
2218 /* Default is to use "." for empty path elements.
2219 But if argument EMPTY is true, use nil instead. */
2220 Lisp_Object empty_element = empty ? Qnil : build_string (".");
2221 #ifdef WINDOWSNT
2222 bool defaulted = 0;
2223 static const char *emacs_dir_env = "%emacs_dir%/";
2224 const size_t emacs_dir_len = strlen (emacs_dir_env);
2225 const char *edir = egetenv ("emacs_dir");
2226 char emacs_dir[MAX_UTF8_PATH];
2228 /* egetenv looks in process-environment, which holds the variables
2229 in their original system-locale encoding. We need emacs_dir to
2230 be in UTF-8. */
2231 if (edir)
2232 filename_from_ansi (edir, emacs_dir);
2233 #endif
2235 /* It's okay to use getenv here, because this function is only used
2236 to initialize variables when Emacs starts up, and isn't called
2237 after that. */
2238 if (evarname != 0)
2239 path = getenv (evarname);
2240 else
2241 path = 0;
2242 if (!path)
2244 path = defalt;
2245 #ifdef WINDOWSNT
2246 defaulted = 1;
2247 #endif
2249 #ifdef DOS_NT
2250 /* Ensure values from the environment use the proper directory separator. */
2251 if (path)
2253 char *path_copy;
2255 #ifdef WINDOWSNT
2256 char *path_utf8, *q, *d;
2257 int cnv_result;
2259 /* Convert each element of PATH to UTF-8. */
2260 p = path_copy = alloca (strlen (path) + 1);
2261 strcpy (path_copy, path);
2262 d = path_utf8 = alloca (4 * strlen (path) + 1);
2263 *d = '\0';
2264 do {
2265 q = _mbschr (p, SEPCHAR);
2266 if (q)
2267 *q = '\0';
2268 cnv_result = filename_from_ansi (p, d);
2269 if (q)
2271 *q++ = SEPCHAR;
2272 p = q;
2273 /* If conversion of this PATH elements fails, make sure
2274 destination pointer will stay put, thus effectively
2275 ignoring the offending element. */
2276 if (cnv_result == 0)
2278 d += strlen (d);
2279 *d++ = SEPCHAR;
2282 else if (cnv_result != 0 && d > path_utf8)
2283 d[-1] = '\0'; /* remove last semi-colon and null-terminate PATH */
2284 } while (q);
2285 path_copy = path_utf8;
2286 #else /* MSDOS */
2287 path_copy = alloca (strlen (path) + 1);
2288 strcpy (path_copy, path);
2289 #endif
2290 dostounix_filename (path_copy);
2291 path = path_copy;
2293 #endif
2294 lpath = Qnil;
2295 while (1)
2297 p = strchr (path, SEPCHAR);
2298 if (!p)
2299 p = path + strlen (path);
2300 element = ((p - path) ? make_unibyte_string (path, p - path)
2301 : empty_element);
2302 if (! NILP (element))
2304 #ifdef WINDOWSNT
2305 /* Relative file names in the default path are interpreted as
2306 being relative to $emacs_dir. */
2307 if (edir && defaulted
2308 && strncmp (path, emacs_dir_env, emacs_dir_len) == 0)
2309 element = Fexpand_file_name (Fsubstring
2310 (element,
2311 make_number (emacs_dir_len),
2312 Qnil),
2313 build_unibyte_string (emacs_dir));
2314 #endif
2316 /* Add /: to the front of the name
2317 if it would otherwise be treated as magic. */
2318 tem = Ffind_file_name_handler (element, Qt);
2320 /* However, if the handler says "I'm safe",
2321 don't bother adding /:. */
2322 if (SYMBOLP (tem))
2324 Lisp_Object prop;
2325 prop = Fget (tem, intern ("safe-magic"));
2326 if (! NILP (prop))
2327 tem = Qnil;
2330 if (! NILP (tem))
2332 AUTO_STRING (slash_colon, "/:");
2333 element = concat2 (slash_colon, element);
2335 } /* !NILP (element) */
2337 lpath = Fcons (element, lpath);
2338 if (*p)
2339 path = p + 1;
2340 else
2341 break;
2343 return Fnreverse (lpath);
2346 DEFUN ("daemonp", Fdaemonp, Sdaemonp, 0, 0, 0,
2347 doc: /* Return non-nil if the current emacs process is a daemon.
2348 If the daemon was given a name argument, return that name. */)
2349 (void)
2351 if (IS_DAEMON)
2352 if (daemon_name)
2353 return build_string (daemon_name);
2354 else
2355 return Qt;
2356 else
2357 return Qnil;
2360 DEFUN ("daemon-initialized", Fdaemon_initialized, Sdaemon_initialized, 0, 0, 0,
2361 doc: /* Mark the Emacs daemon as being initialized.
2362 This finishes the daemonization process by doing the other half of detaching
2363 from the parent process and its tty file descriptors. */)
2364 (void)
2366 bool err = 0;
2368 if (!IS_DAEMON)
2369 error ("This function can only be called if emacs is run as a daemon");
2371 if (!DAEMON_RUNNING)
2372 error ("The daemon has already been initialized");
2374 if (NILP (Vafter_init_time))
2375 error ("This function can only be called after loading the init files");
2376 #ifndef WINDOWSNT
2377 int nfd;
2379 /* Get rid of stdin, stdout and stderr. */
2380 nfd = emacs_open ("/dev/null", O_RDWR, 0);
2381 err |= nfd < 0;
2382 err |= dup2 (nfd, STDIN_FILENO) < 0;
2383 err |= dup2 (nfd, STDOUT_FILENO) < 0;
2384 err |= dup2 (nfd, STDERR_FILENO) < 0;
2385 err |= emacs_close (nfd) != 0;
2387 /* Closing the pipe will notify the parent that it can exit.
2388 FIXME: In case some other process inherited the pipe, closing it here
2389 won't notify the parent because it's still open elsewhere, so we
2390 additionally send a byte, just to make sure the parent really exits.
2391 Instead, we should probably close the pipe in start-process and
2392 call-process to make sure the pipe is never inherited by
2393 subprocesses. */
2394 err |= write (daemon_pipe[1], "\n", 1) < 0;
2395 err |= emacs_close (daemon_pipe[1]) != 0;
2396 /* Set it to an invalid value so we know we've already run this function. */
2397 daemon_pipe[1] = -1;
2398 #else /* WINDOWSNT */
2399 /* Signal the waiting emacsclient process. */
2400 err |= SetEvent (w32_daemon_event) == 0;
2401 err |= CloseHandle (w32_daemon_event) == 0;
2402 /* Set it to an invalid value so we know we've already run this function. */
2403 w32_daemon_event = INVALID_HANDLE_VALUE;
2404 #endif
2406 if (err)
2407 error ("I/O error during daemon initialization");
2408 return Qt;
2411 void
2412 syms_of_emacs (void)
2414 DEFSYM (Qfile_name_handler_alist, "file-name-handler-alist");
2415 DEFSYM (Qrisky_local_variable, "risky-local-variable");
2416 DEFSYM (Qkill_emacs, "kill-emacs");
2417 DEFSYM (Qkill_emacs_hook, "kill-emacs-hook");
2419 #ifndef CANNOT_DUMP
2420 defsubr (&Sdump_emacs);
2421 #endif
2423 defsubr (&Skill_emacs);
2425 defsubr (&Sinvocation_name);
2426 defsubr (&Sinvocation_directory);
2427 defsubr (&Sdaemonp);
2428 defsubr (&Sdaemon_initialized);
2430 DEFVAR_LISP ("command-line-args", Vcommand_line_args,
2431 doc: /* Args passed by shell to Emacs, as a list of strings.
2432 Many arguments are deleted from the list as they are processed. */);
2434 DEFVAR_LISP ("system-type", Vsystem_type,
2435 doc: /* The value is a symbol indicating the type of operating system you are using.
2436 Special values:
2437 `gnu' compiled for a GNU Hurd system.
2438 `gnu/linux' compiled for a GNU/Linux system.
2439 `gnu/kfreebsd' compiled for a GNU system with a FreeBSD kernel.
2440 `darwin' compiled for Darwin (GNU-Darwin, Mac OS X, ...).
2441 `ms-dos' compiled as an MS-DOS application.
2442 `windows-nt' compiled as a native W32 application.
2443 `cygwin' compiled using the Cygwin library.
2444 Anything else (in Emacs 26, the possibilities are: aix, berkeley-unix,
2445 hpux, usg-unix-v) indicates some sort of Unix system. */);
2446 Vsystem_type = intern_c_string (SYSTEM_TYPE);
2447 /* See configure.ac for the possible SYSTEM_TYPEs. */
2449 DEFVAR_LISP ("system-configuration", Vsystem_configuration,
2450 doc: /* Value is string indicating configuration Emacs was built for. */);
2451 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
2453 DEFVAR_LISP ("system-configuration-options", Vsystem_configuration_options,
2454 doc: /* String containing the configuration options Emacs was built with. */);
2455 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
2457 DEFVAR_LISP ("system-configuration-features", Vsystem_configuration_features,
2458 doc: /* String listing some of the main features this Emacs was compiled with.
2459 An element of the form \"FOO\" generally means that HAVE_FOO was
2460 defined during the build.
2462 This is mainly intended for diagnostic purposes in bug reports.
2463 Don't rely on it for testing whether a feature you want to use is available. */);
2464 Vsystem_configuration_features = build_string (EMACS_CONFIG_FEATURES);
2466 DEFVAR_BOOL ("noninteractive", noninteractive1,
2467 doc: /* Non-nil means Emacs is running without interactive terminal. */);
2469 DEFVAR_LISP ("kill-emacs-hook", Vkill_emacs_hook,
2470 doc: /* Hook run when `kill-emacs' is called.
2471 Since `kill-emacs' may be invoked when the terminal is disconnected (or
2472 in other similar situations), functions placed on this hook should not
2473 expect to be able to interact with the user. To ask for confirmation,
2474 see `kill-emacs-query-functions' instead.
2476 Before Emacs 24.1, the hook was not run in batch mode, i.e., if
2477 `noninteractive' was non-nil. */);
2478 Vkill_emacs_hook = Qnil;
2480 DEFVAR_LISP ("path-separator", Vpath_separator,
2481 doc: /* String containing the character that separates directories in
2482 search paths, such as PATH and other similar environment variables. */);
2484 char c = SEPCHAR;
2485 Vpath_separator = make_string (&c, 1);
2488 DEFVAR_LISP ("invocation-name", Vinvocation_name,
2489 doc: /* The program name that was used to run Emacs.
2490 Any directory names are omitted. */);
2492 DEFVAR_LISP ("invocation-directory", Vinvocation_directory,
2493 doc: /* The directory in which the Emacs executable was found, to run it.
2494 The value is nil if that directory's name is not known. */);
2496 DEFVAR_LISP ("installation-directory", Vinstallation_directory,
2497 doc: /* A directory within which to look for the `lib-src' and `etc' directories.
2498 In an installed Emacs, this is normally nil. It is non-nil if
2499 both `lib-src' (on MS-DOS, `info') and `etc' directories are found
2500 within the variable `invocation-directory' or its parent. For example,
2501 this is the case when running an uninstalled Emacs executable from its
2502 build directory. */);
2503 Vinstallation_directory = Qnil;
2505 DEFVAR_LISP ("system-messages-locale", Vsystem_messages_locale,
2506 doc: /* System locale for messages. */);
2507 Vsystem_messages_locale = Qnil;
2509 DEFVAR_LISP ("previous-system-messages-locale",
2510 Vprevious_system_messages_locale,
2511 doc: /* Most recently used system locale for messages. */);
2512 Vprevious_system_messages_locale = Qnil;
2514 DEFVAR_LISP ("system-time-locale", Vsystem_time_locale,
2515 doc: /* System locale for time. */);
2516 Vsystem_time_locale = Qnil;
2518 DEFVAR_LISP ("previous-system-time-locale", Vprevious_system_time_locale,
2519 doc: /* Most recently used system locale for time. */);
2520 Vprevious_system_time_locale = Qnil;
2522 DEFVAR_LISP ("before-init-time", Vbefore_init_time,
2523 doc: /* Value of `current-time' before Emacs begins initialization. */);
2524 Vbefore_init_time = Qnil;
2526 DEFVAR_LISP ("after-init-time", Vafter_init_time,
2527 doc: /* Value of `current-time' after loading the init files.
2528 This is nil during initialization. */);
2529 Vafter_init_time = Qnil;
2531 DEFVAR_BOOL ("inhibit-x-resources", inhibit_x_resources,
2532 doc: /* If non-nil, X resources, Windows Registry settings, and NS defaults are not used. */);
2533 inhibit_x_resources = 0;
2535 DEFVAR_LISP ("emacs-copyright", Vemacs_copyright,
2536 doc: /* Short copyright string for this version of Emacs. */);
2537 Vemacs_copyright = build_string (emacs_copyright);
2539 DEFVAR_LISP ("emacs-version", Vemacs_version,
2540 doc: /* Version numbers of this version of Emacs. */);
2541 Vemacs_version = build_string (emacs_version);
2543 DEFVAR_LISP ("report-emacs-bug-address", Vreport_emacs_bug_address,
2544 doc: /* Address of mailing list for GNU Emacs bugs. */);
2545 Vreport_emacs_bug_address = build_string (emacs_bugreport);
2547 DEFVAR_LISP ("dynamic-library-alist", Vdynamic_library_alist,
2548 doc: /* Alist of dynamic libraries vs external files implementing them.
2549 Each element is a list (LIBRARY FILE...), where the car is a symbol
2550 representing a supported external library, and the rest are strings giving
2551 alternate filenames for that library.
2553 Emacs tries to load the library from the files in the order they appear on
2554 the list; if none is loaded, the running session of Emacs won't have access
2555 to that library.
2557 Note that image types `pbm' and `xbm' do not need entries in this variable
2558 because they do not depend on external libraries and are always available.
2560 Also note that this is not a generic facility for accessing external
2561 libraries; only those already known by Emacs will be loaded. */);
2562 Vdynamic_library_alist = Qnil;
2563 Fput (intern_c_string ("dynamic-library-alist"), Qrisky_local_variable, Qt);
2565 #ifdef WINDOWSNT
2566 Vlibrary_cache = Qnil;
2567 staticpro (&Vlibrary_cache);
2568 #endif