1 /* Fully extensible Emacs, running on Unix, intended for GNU.
3 Copyright (C) 1985-1987, 1993-1995, 1997-1999, 2001-2013 Free Software
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
26 #include <sys/types.h>
30 #include <close-stream.h>
31 #include <ignore-value.h>
41 #if defined WINDOWSNT || defined HAVE_NTGUI
42 #include "w32select.h"
44 #include "w32common.h"
51 #ifdef HAVE_WINDOW_SYSTEM
53 #endif /* HAVE_WINDOW_SYSTEM */
55 #ifdef NS_IMPL_GNUSTEP
56 /* At least under Debian, GSConfig is in a subdirectory. --Stef */
57 #include <GNUstepBase/GSConfig.h>
61 #include "intervals.h"
62 #include "character.h"
68 #include "blockinput.h"
69 #include "syssignal.h"
72 #include "termhooks.h"
80 #if (defined PROFILING \
81 && (defined __FreeBSD__ || defined GNU_LINUX || defined __MINGW32__))
82 # include <sys/gmon.h>
83 extern void moncontrol (int mode
);
92 #include <sys/resource.h>
95 #ifdef HAVE_PERSONALITY_LINUX32
96 #include <sys/personality.h>
99 static const char emacs_version
[] = VERSION
;
100 static const char emacs_copyright
[] = COPYRIGHT
;
102 /* Empty lisp strings. To avoid having to build any others. */
103 Lisp_Object empty_unibyte_string
, empty_multibyte_string
;
106 /* Cache for externally loaded libraries. */
107 Lisp_Object Vlibrary_cache
;
110 /* Set after Emacs has started up the first time.
111 Prevents reinitialization of the Lisp world and keymaps
112 on subsequent starts. */
116 extern void unexec_init_emacs_zone (void);
119 #ifdef DOUG_LEA_MALLOC
120 /* Preserves a pointer to the memory allocated that copies that
121 static data inside glibc's malloc. */
122 static void *malloc_state_ptr
;
123 /* From glibc, a routine that returns a copy of the malloc internal state. */
124 extern void *malloc_get_state (void);
125 /* From glibc, a routine that overwrites the malloc internal state. */
126 extern int malloc_set_state (void*);
127 /* True if the MALLOC_CHECK_ environment variable was set while
128 dumping. Used to work around a bug in glibc's malloc. */
129 static bool malloc_using_checking
;
132 Lisp_Object Qfile_name_handler_alist
;
134 Lisp_Object Qrisky_local_variable
;
136 Lisp_Object Qkill_emacs
;
137 static Lisp_Object Qkill_emacs_hook
;
139 /* If true, Emacs should not attempt to use a window-specific code,
140 but instead should use the virtual terminal under which it was started. */
141 bool inhibit_window_system
;
143 /* If true, a filter or a sentinel is running. Tested to save the match
144 data on the first attempt to change it inside asynchronous code. */
145 bool running_asynch_code
;
147 #if defined (HAVE_X_WINDOWS) || defined (HAVE_NS)
148 /* If true, -d was specified, meaning we're using some window system. */
152 /* An address near the bottom of the stack.
153 Tells GC how to save a copy of the stack. */
156 #if defined (DOUG_LEA_MALLOC) || defined (GNU_LINUX)
157 /* The address where the heap starts (from the first sbrk (0) call). */
158 static void *my_heap_start
;
162 /* The gap between BSS end and heap start as far as we can tell. */
163 static uprintmax_t heap_bss_diff
;
166 /* To run as a daemon under Cocoa or Windows, we must do a fork+exec,
169 On Cocoa, CoreFoundation lib fails in forked process:
170 http://developer.apple.com/ReleaseNotes/
171 CoreFoundation/CoreFoundation.html)
173 On Windows, a Cygwin fork child cannot access the USER subsystem.
175 We mark being in the exec'd process by a daemon name argument of
176 form "--daemon=\nFD0,FD1\nNAME" where FD are the pipe file descriptors,
177 NAME is the original daemon name, if any. */
178 #if defined NS_IMPL_COCOA || (defined HAVE_NTGUI && defined CYGWIN)
179 # define DAEMON_MUST_EXEC
182 /* True means running Emacs without interactive terminal. */
185 /* True means remove site-lisp directories from load-path. */
188 /* Name for the server started by the daemon.*/
189 static char *daemon_name
;
191 /* Pipe used to send exit notification to the daemon parent at
195 /* Save argv and argc. */
199 static void sort_args (int argc
, char **argv
);
200 static void syms_of_emacs (void);
202 /* MSVC needs each string be shorter than 2048 bytes, so the usage
203 strings below are split to not overflow this limit. */
205 Usage: %s [OPTION-OR-FILENAME]...\n\
207 Run Emacs, the extensible, customizable, self-documenting real-time\n\
208 display editor. The recommended way to start Emacs for normal editing\n\
209 is with no options at all.\n\
211 Run M-x info RET m emacs RET m emacs invocation RET inside Emacs to\n\
212 read the main documentation for these command-line arguments.\n\
214 Initialization options:\n\
216 --batch do not do interactive display; implies -q\n\
217 --chdir DIR change to directory DIR\n\
218 --daemon start a server in the background\n\
219 --debug-init enable Emacs Lisp debugger for init file\n\
220 --display, -d DISPLAY use X server DISPLAY\n\
221 --no-desktop do not load a saved desktop\n\
222 --no-init-file, -q load neither ~/.emacs nor default.el\n\
223 --no-shared-memory, -nl do not use shared memory\n\
224 --no-site-file do not load site-start.el\n\
225 --no-site-lisp, -nsl do not add site-lisp directories to load-path\n\
226 --no-splash do not display a splash screen on startup\n\
227 --no-window-system, -nw do not communicate with X, ignoring $DISPLAY\n\
228 --quick, -Q equivalent to:\n\
229 -q --no-site-file --no-site-lisp --no-splash\n\
230 --script FILE run FILE as an Emacs Lisp script\n\
231 --terminal, -t DEVICE use DEVICE for terminal I/O\n\
232 --user, -u USER load ~USER/.emacs instead of your own\n\
238 FILE visit FILE using find-file\n\
239 +LINE go to line LINE in next FILE\n\
240 +LINE:COLUMN go to line LINE, column COLUMN, in next FILE\n\
241 --directory, -L DIR add DIR to variable load-path\n\
242 --eval EXPR evaluate Emacs Lisp expression EXPR\n\
243 --execute EXPR evaluate Emacs Lisp expression EXPR\n\
244 --file FILE visit FILE using find-file\n\
245 --find-file FILE visit FILE using find-file\n\
246 --funcall, -f FUNC call Emacs Lisp function FUNC with no arguments\n\
247 --insert FILE insert contents of FILE into current buffer\n\
248 --kill exit without asking for confirmation\n\
249 --load, -l FILE load Emacs Lisp FILE using the load function\n\
250 --visit FILE visit FILE using find-file\n\
256 --background-color, -bg COLOR window background color\n\
257 --basic-display, -D disable many display features;\n\
258 used for debugging Emacs\n\
259 --border-color, -bd COLOR main border color\n\
260 --border-width, -bw WIDTH width of main border\n\
261 --color, --color=MODE override color mode for character terminals;\n\
262 MODE defaults to `auto', and\n\
263 can also be `never', `always',\n\
264 or a mode name like `ansi8'\n\
265 --cursor-color, -cr COLOR color of the Emacs cursor indicating point\n\
266 --font, -fn FONT default font; must be fixed-width\n\
267 --foreground-color, -fg COLOR window foreground color\n\
268 --fullheight, -fh make the first frame high as the screen\n\
269 --fullscreen, -fs make the first frame fullscreen\n\
270 --fullwidth, -fw make the first frame wide as the screen\n\
271 --maximized, -mm make the first frame maximized\n\
272 --geometry, -g GEOMETRY window geometry\n\
273 --no-bitmap-icon, -nbi do not use picture of gnu for Emacs icon\n\
274 --iconic start Emacs in iconified state\n\
275 --internal-border, -ib WIDTH width between text and main border\n\
276 --line-spacing, -lsp PIXELS additional space to put between lines\n\
277 --mouse-color, -ms COLOR mouse cursor color in Emacs window\n\
278 --name NAME title for initial Emacs frame\n\
279 --no-blinking-cursor, -nbc disable blinking cursor\n\
280 --reverse-video, -r, -rv switch foreground and background\n\
281 --title, -T TITLE title for initial Emacs frame\n\
282 --vertical-scroll-bars, -vb enable vertical scroll bars\n\
283 --xrm XRESOURCES set additional X resources\n\
284 --parent-id XID set parent window\n\
285 --help display this help and exit\n\
286 --version output version information and exit\n\
290 You can generally also specify long option names with a single -; for\n\
291 example, -batch as well as --batch. You can use any unambiguous\n\
292 abbreviation for a --option.\n\
294 Various environment variables and window system resources also affect\n\
295 Emacs' operation. See the main documentation.\n\
297 Report bugs to bug-gnu-emacs@gnu.org. First, please see the Bugs\n\
298 section of the Emacs manual or the file BUGS.\n"
301 /* True if handling a fatal error already. */
302 bool fatal_error_in_progress
;
305 /* NS autrelease pool, for memory management. */
306 static void *ns_pool
;
311 /* Report a fatal error due to signal SIG, output a backtrace of at
312 most BACKTRACE_LIMIT lines, and exit. */
314 terminate_due_to_signal (int sig
, int backtrace_limit
)
316 signal (sig
, SIG_DFL
);
317 totally_unblock_input ();
319 /* If fatal error occurs in code below, avoid infinite recursion. */
320 if (! fatal_error_in_progress
)
322 fatal_error_in_progress
= 1;
324 if (sig
== SIGTERM
|| sig
== SIGHUP
|| sig
== SIGINT
)
325 Fkill_emacs (make_number (sig
));
327 shut_down_emacs (sig
, Qnil
);
328 emacs_backtrace (backtrace_limit
);
331 /* Signal the same code; this time it will really be fatal.
332 Since we're in a signal handler, the signal is blocked, so we
333 have to unblock it if we want to really receive it. */
337 sigemptyset (&unblocked
);
338 sigaddset (&unblocked
, sig
);
339 pthread_sigmask (SIG_UNBLOCK
, &unblocked
, 0);
345 /* This shouldn't be executed, but it prevents a warning. */
349 /* Code for dealing with Lisp access to the Unix command line. */
352 init_cmdargs (int argc
, char **argv
, int skip_args
)
355 Lisp_Object name
, dir
, handler
;
356 ptrdiff_t count
= SPECPDL_INDEX ();
357 Lisp_Object raw_name
;
362 raw_name
= build_string (argv
[0]);
364 /* Add /: to the front of the name
365 if it would otherwise be treated as magic. */
366 handler
= Ffind_file_name_handler (raw_name
, Qt
);
367 if (! NILP (handler
))
368 raw_name
= concat2 (build_string ("/:"), raw_name
);
370 Vinvocation_name
= Ffile_name_nondirectory (raw_name
);
371 Vinvocation_directory
= Ffile_name_directory (raw_name
);
373 /* If we got no directory in argv[0], search PATH to find where
374 Emacs actually came from. */
375 if (NILP (Vinvocation_directory
))
378 int yes
= openp (Vexec_path
, Vinvocation_name
,
379 Vexec_suffixes
, &found
, make_number (X_OK
));
382 /* Add /: to the front of the name
383 if it would otherwise be treated as magic. */
384 handler
= Ffind_file_name_handler (found
, Qt
);
385 if (! NILP (handler
))
386 found
= concat2 (build_string ("/:"), found
);
387 Vinvocation_directory
= Ffile_name_directory (found
);
391 if (!NILP (Vinvocation_directory
)
392 && NILP (Ffile_name_absolute_p (Vinvocation_directory
)))
393 /* Emacs was started with relative path, like ./emacs.
395 Vinvocation_directory
= Fexpand_file_name (Vinvocation_directory
, Qnil
);
397 Vinstallation_directory
= Qnil
;
399 if (!NILP (Vinvocation_directory
))
401 dir
= Vinvocation_directory
;
403 /* If we are running from the build directory, set DIR to the
404 src subdirectory of the Emacs tree, like on Posix
406 if (SBYTES (dir
) > sizeof ("/i386/") - 1
407 && 0 == strcmp (SSDATA (dir
) + SBYTES (dir
) - sizeof ("/i386/") + 1,
409 dir
= Fexpand_file_name (build_string ("../.."), dir
);
410 #else /* !WINDOWSNT */
412 name
= Fexpand_file_name (Vinvocation_name
, dir
);
415 Lisp_Object tem
, lib_src_exists
;
416 Lisp_Object etc_exists
, info_exists
;
418 /* See if dir contains subdirs for use by Emacs.
419 Check for the ones that would exist in a build directory,
420 not including lisp and info. */
421 tem
= Fexpand_file_name (build_string ("lib-src"), dir
);
422 lib_src_exists
= Ffile_exists_p (tem
);
425 /* MSDOS installations frequently remove lib-src, but we still
426 must set installation-directory, or else info won't find
427 its files (it uses the value of installation-directory). */
428 tem
= Fexpand_file_name (build_string ("info"), dir
);
429 info_exists
= Ffile_exists_p (tem
);
434 if (!NILP (lib_src_exists
) || !NILP (info_exists
))
436 tem
= Fexpand_file_name (build_string ("etc"), dir
);
437 etc_exists
= Ffile_exists_p (tem
);
438 if (!NILP (etc_exists
))
440 Vinstallation_directory
441 = Ffile_name_as_directory (dir
);
446 /* See if dir's parent contains those subdirs. */
447 tem
= Fexpand_file_name (build_string ("../lib-src"), dir
);
448 lib_src_exists
= Ffile_exists_p (tem
);
452 /* See the MSDOS commentary above. */
453 tem
= Fexpand_file_name (build_string ("../info"), dir
);
454 info_exists
= Ffile_exists_p (tem
);
459 if (!NILP (lib_src_exists
) || !NILP (info_exists
))
461 tem
= Fexpand_file_name (build_string ("../etc"), dir
);
462 etc_exists
= Ffile_exists_p (tem
);
463 if (!NILP (etc_exists
))
465 tem
= Fexpand_file_name (build_string (".."), dir
);
466 Vinstallation_directory
467 = Ffile_name_as_directory (tem
);
472 /* If the Emacs executable is actually a link,
473 next try the dir that the link points into. */
474 tem
= Ffile_symlink_p (name
);
477 name
= Fexpand_file_name (tem
, dir
);
478 dir
= Ffile_name_directory (name
);
485 Vcommand_line_args
= Qnil
;
487 for (i
= argc
- 1; i
>= 0; i
--)
489 if (i
== 0 || i
> skip_args
)
490 /* For the moment, we keep arguments as is in unibyte strings.
491 They are decoded in the function command-line after we know
492 locale-coding-system. */
494 = Fcons (make_unibyte_string (argv
[i
], strlen (argv
[i
])),
498 unbind_to (count
, Qnil
);
501 DEFUN ("invocation-name", Finvocation_name
, Sinvocation_name
, 0, 0, 0,
502 doc
: /* Return the program name that was used to run Emacs.
503 Any directory names are omitted. */)
506 return Fcopy_sequence (Vinvocation_name
);
509 DEFUN ("invocation-directory", Finvocation_directory
, Sinvocation_directory
,
511 doc
: /* Return the directory name in which the Emacs executable was located. */)
514 return Fcopy_sequence (Vinvocation_directory
);
519 /* A valid but unlikely value for the TZ environment value.
520 It is OK (though a bit slower) if the user actually chooses this value. */
521 static char const dump_tz
[] = "UtC0";
524 /* Test whether the next argument in ARGV matches SSTR or a prefix of
525 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
526 (the argument is supposed to have a value) store in *VALPTR either
527 the next argument or the portion of this one after the equal sign.
528 ARGV is read starting at position *SKIPPTR; this index is advanced
529 by the number of arguments used.
531 Too bad we can't just use getopt for all of this, but we don't have
532 enough information to do it right. */
535 argmatch (char **argv
, int argc
, const char *sstr
, const char *lstr
,
536 int minlen
, char **valptr
, int *skipptr
)
542 /* Don't access argv[argc]; give up in advance. */
543 if (argc
<= *skipptr
+ 1)
546 arg
= argv
[*skipptr
+1];
549 if (strcmp (arg
, sstr
) == 0)
553 *valptr
= argv
[*skipptr
+2];
560 arglen
= (valptr
!= NULL
&& (p
= strchr (arg
, '=')) != NULL
561 ? p
- arg
: strlen (arg
));
562 if (lstr
== 0 || arglen
< minlen
|| strncmp (arg
, lstr
, arglen
) != 0)
564 else if (valptr
== NULL
)
575 else if (argv
[*skipptr
+2] != NULL
)
577 *valptr
= argv
[*skipptr
+2];
587 #ifdef DOUG_LEA_MALLOC
589 /* malloc can be invoked even before main (e.g. by the dynamic
590 linker), so the dumped malloc state must be restored as early as
591 possible using this special hook. */
594 malloc_initialize_hook (void)
598 if (!malloc_using_checking
)
599 /* Work around a bug in glibc's malloc. MALLOC_CHECK_ must be
600 ignored if the heap to be restored was constructed without
601 malloc checking. Can't use unsetenv, since that calls malloc. */
605 for (p
= environ
; p
&& *p
; p
++)
606 if (strncmp (*p
, "MALLOC_CHECK_=", 14) == 0)
615 malloc_set_state (malloc_state_ptr
);
616 #ifndef XMALLOC_OVERRUN_CHECK
617 free (malloc_state_ptr
);
622 if (my_heap_start
== 0)
623 my_heap_start
= sbrk (0);
624 malloc_using_checking
= getenv ("MALLOC_CHECK_") != NULL
;
628 void (*__malloc_initialize_hook
) (void) EXTERNALLY_VISIBLE
= malloc_initialize_hook
;
630 #endif /* DOUG_LEA_MALLOC */
632 /* Close standard output and standard error, reporting any write
633 errors as best we can. This is intended for use with atexit. */
635 close_output_streams (void)
637 if (close_stream (stdout
) != 0)
639 fprintf (stderr
, "Write error to standard output: %s\n",
642 _exit (EXIT_FAILURE
);
645 if (close_stream (stderr
) != 0)
646 _exit (EXIT_FAILURE
);
651 main (int argc
, char **argv
)
656 char stack_bottom_variable
;
657 bool do_initial_setlocale
;
660 #ifdef HAVE_SETRLIMIT
666 #ifdef DAEMON_MUST_EXEC
675 #ifdef G_SLICE_ALWAYS_MALLOC
676 /* This is used by the Cygwin build. */
677 xputenv ("G_SLICE=always-malloc");
683 extern char my_endbss
[];
684 extern char *my_endbss_static
;
686 if (my_heap_start
== 0)
687 my_heap_start
= sbrk (0);
689 heap_bss_diff
= (char *)my_heap_start
- max (my_endbss
, my_endbss_static
);
693 #if defined WINDOWSNT || defined HAVE_NTGUI
694 /* Set global variables used to detect Windows version. Do this as
695 early as possible. (unexw32.c calls this function as well, but
696 the additional call here is harmless.) */
697 cache_system_info ();
700 #ifdef RUN_TIME_REMAP
702 run_time_remap (argv
[0]);
705 /* If using unexmacosx.c (set by s/darwin.h), we must do this. */
708 unexec_init_emacs_zone ();
711 atexit (close_output_streams
);
713 sort_args (argc
, argv
);
715 while (argv
[argc
]) argc
++;
717 if (argmatch (argv
, argc
, "-version", "--version", 3, NULL
, &skip_args
))
719 const char *version
, *copyright
;
722 Lisp_Object tem
, tem2
;
723 tem
= Fsymbol_value (intern_c_string ("emacs-version"));
724 tem2
= Fsymbol_value (intern_c_string ("emacs-copyright"));
727 fprintf (stderr
, "Invalid value of `emacs-version'\n");
732 fprintf (stderr
, "Invalid value of `emacs-copyright'\n");
737 version
= SSDATA (tem
);
738 copyright
= SSDATA (tem2
);
743 version
= emacs_version
;
744 copyright
= emacs_copyright
;
746 printf ("GNU Emacs %s\n", version
);
747 printf ("%s\n", copyright
);
748 printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n");
749 printf ("You may redistribute copies of Emacs\n");
750 printf ("under the terms of the GNU General Public License.\n");
751 printf ("For more information about these matters, ");
752 printf ("see the file named COPYING.\n");
756 if (argmatch (argv
, argc
, "-chdir", "--chdir", 4, &ch_to_dir
, &skip_args
))
757 if (chdir (ch_to_dir
) == -1)
759 fprintf (stderr
, "%s: Can't chdir to %s: %s\n",
760 argv
[0], ch_to_dir
, strerror (errno
));
764 dumping
= !initialized
&& (strcmp (argv
[argc
- 1], "dump") == 0
765 || strcmp (argv
[argc
- 1], "bootstrap") == 0);
767 #ifdef HAVE_PERSONALITY_LINUX32
768 if (dumping
&& ! getenv ("EMACS_HEAP_EXEC"))
770 /* Set this so we only do this once. */
771 xputenv ("EMACS_HEAP_EXEC=true");
773 /* A flag to turn off address randomization which is introduced
774 in linux kernel shipped with fedora core 4 */
775 #define ADD_NO_RANDOMIZE 0x0040000
776 personality (PER_LINUX32
| ADD_NO_RANDOMIZE
);
777 #undef ADD_NO_RANDOMIZE
779 execvp (argv
[0], argv
);
781 /* If the exec fails, try to dump anyway. */
784 #endif /* HAVE_PERSONALITY_LINUX32 */
786 #if defined (HAVE_SETRLIMIT) && defined (RLIMIT_STACK)
787 /* Extend the stack space available.
788 Don't do that if dumping, since some systems (e.g. DJGPP)
789 might define a smaller stack limit at that time. */
792 && (!noninteractive
|| initialized
)
794 && !getrlimit (RLIMIT_STACK
, &rlim
))
797 extern size_t re_max_failures
;
798 /* Approximate the amount regex.c needs per unit of re_max_failures. */
799 int ratio
= 20 * sizeof (char *);
800 /* Then add 33% to cover the size of the smaller stacks that regex.c
801 successively allocates and discards, on its way to the maximum. */
803 /* Add in some extra to cover
804 what we're likely to use for other reasons. */
805 newlim
= re_max_failures
* ratio
+ 200000;
807 /* NetBSD (at least NetBSD 1.2G and former) has a bug in its
808 stack allocation routine for new process that the allocation
809 fails if stack limit is not on page boundary. So, round up the
810 new limit to page boundary. */
811 newlim
= (newlim
+ getpagesize () - 1) / getpagesize () * getpagesize ();
813 if (newlim
> rlim
.rlim_max
)
815 newlim
= rlim
.rlim_max
;
816 /* Don't let regex.c overflow the stack we have. */
817 re_max_failures
= (newlim
- 200000) / ratio
;
819 if (rlim
.rlim_cur
< newlim
)
820 rlim
.rlim_cur
= newlim
;
822 setrlimit (RLIMIT_STACK
, &rlim
);
824 #endif /* HAVE_SETRLIMIT and RLIMIT_STACK */
826 /* Record (approximately) where the stack begins. */
827 stack_bottom
= &stack_bottom_variable
;
831 #ifndef SYSTEM_MALLOC
832 /* Arrange to get warning messages as memory fills up. */
833 memory_warnings (0, malloc_warning
);
835 /* Call malloc at least once, to run malloc_initialize_hook.
836 Also call realloc and free for consistency. */
837 free (realloc (malloc (4), 4));
839 #endif /* not SYSTEM_MALLOC */
841 #if defined (MSDOS) || defined (WINDOWSNT)
842 /* We do all file input/output as binary files. When we need to translate
843 newlines, we do that manually. */
845 #endif /* MSDOS || WINDOWSNT */
848 if (!isatty (fileno (stdin
)))
849 setmode (fileno (stdin
), O_BINARY
);
850 if (!isatty (fileno (stdout
)))
853 setmode (fileno (stdout
), O_BINARY
);
857 /* Skip initial setlocale if LC_ALL is "C", as it's not needed in that case.
858 The build procedure uses this while dumping, to ensure that the
859 dumped Emacs does not have its system locale tables initialized,
860 as that might cause screwups when the dumped Emacs starts up. */
862 char *lc_all
= getenv ("LC_ALL");
863 do_initial_setlocale
= ! lc_all
|| strcmp (lc_all
, "C");
866 /* Set locale now, so that initial error messages are localized properly.
867 fixup_locale must wait until later, since it builds strings. */
868 if (do_initial_setlocale
)
869 setlocale (LC_ALL
, "");
871 inhibit_window_system
= 0;
873 /* Handle the -t switch, which specifies filename to use as terminal. */
877 if (argmatch (argv
, argc
, "-t", "--terminal", 4, &term
, &skip_args
))
882 result
= emacs_open (term
, O_RDWR
, 0);
883 if (result
< 0 || dup (0) < 0)
885 char *errstring
= strerror (errno
);
886 fprintf (stderr
, "%s: %s: %s\n", argv
[0], term
, errstring
);
891 fprintf (stderr
, "%s: %s: not a tty\n", argv
[0], term
);
894 fprintf (stderr
, "Using %s\n", term
);
895 #ifdef HAVE_WINDOW_SYSTEM
896 inhibit_window_system
= 1; /* -t => -nw */
903 /* Command line option --no-windows is deprecated and thus not mentioned
904 in the manual and usage information. */
905 if (argmatch (argv
, argc
, "-nw", "--no-window-system", 6, NULL
, &skip_args
)
906 || argmatch (argv
, argc
, "-nw", "--no-windows", 6, NULL
, &skip_args
))
907 inhibit_window_system
= 1;
909 /* Handle the -batch switch, which means don't do interactive display. */
911 if (argmatch (argv
, argc
, "-batch", "--batch", 5, NULL
, &skip_args
))
914 Vundo_outer_limit
= Qnil
;
916 if (argmatch (argv
, argc
, "-script", "--script", 3, &junk
, &skip_args
))
918 noninteractive
= 1; /* Set batch mode. */
919 /* Convert --script to -scriptload, un-skip it, and sort again
920 so that it will be handled in proper sequence. */
921 /* FIXME broken for --script=FILE - is that supposed to work? */
922 argv
[skip_args
- 1] = (char *) "-scriptload";
924 sort_args (argc
, argv
);
927 /* Handle the --help option, which gives a usage message. */
928 if (argmatch (argv
, argc
, "-help", "--help", 3, NULL
, &skip_args
))
930 printf (USAGE1
, argv
[0], USAGE2
);
936 if (argmatch (argv
, argc
, "-daemon", "--daemon", 5, NULL
, &skip_args
)
937 || argmatch (argv
, argc
, "-daemon", "--daemon", 5, &dname_arg
, &skip_args
))
942 /* Start as a daemon: fork a new child process which will run the
943 rest of the initialization code, then exit.
945 Detaching a daemon requires the following steps:
949 - close the tty file-descriptors
951 We only want to do the last 2 steps once the daemon is ready to
952 serve requests, i.e. after loading .emacs (initialization).
953 OTOH initialization may start subprocesses (e.g. ispell) and these
954 should be run from the proper process (the one that will end up
955 running as daemon) and with the proper "session id" in order for
956 them to keep working after detaching, so fork and setsid need to be
957 performed before initialization.
959 We want to avoid exiting before the server socket is ready, so
960 use a pipe for synchronization. The parent waits for the child
961 to close its end of the pipe (using `daemon-initialized')
963 if (pipe (daemon_pipe
) == -1)
965 fprintf (stderr
, "Cannot pipe!\n");
969 #ifndef DAEMON_MUST_EXEC
971 fprintf (stderr
, "\nWarning: due to a long standing Gtk+ bug\nhttp://bugzilla.gnome.org/show_bug.cgi?id=85715\n\
972 Emacs might crash when run in daemon mode and the X11 connection is unexpectedly lost.\n\
973 Using an Emacs configured with --with-x-toolkit=lucid does not have this problem.\n");
976 #else /* DAEMON_MUST_EXEC */
977 if (!dname_arg
|| !strchr (dname_arg
, '\n'))
978 f
= fork (); /* in orig */
980 f
= 0; /* in exec'd */
981 #endif /* !DAEMON_MUST_EXEC */
987 /* Close unused writing end of the pipe. */
988 close (daemon_pipe
[1]);
990 /* Just wait for the child to close its end of the pipe. */
993 retval
= read (daemon_pipe
[0], &buf
, 1);
995 while (retval
== -1 && errno
== EINTR
);
999 fprintf (stderr
, "Error reading status from child\n");
1002 else if (retval
== 0)
1004 fprintf (stderr
, "Error: server did not start correctly\n");
1008 close (daemon_pipe
[0]);
1013 fprintf (stderr
, "Cannot fork!\n");
1017 #ifdef DAEMON_MUST_EXEC
1019 /* In orig process, forked as child, OR in exec'd. */
1020 if (!dname_arg
|| !strchr (dname_arg
, '\n'))
1021 { /* In orig, child: now exec w/special daemon name. */
1024 snprintf (fdStr
, sizeof fdStr
,
1025 "--daemon=\n%d,%d\n%s", daemon_pipe
[0],
1026 daemon_pipe
[1], dname_arg
? dname_arg
: "");
1028 if (! (0 <= fdStrlen
&& fdStrlen
< sizeof fdStr
))
1030 fprintf (stderr
, "daemon: child name too long\n");
1034 argv
[skip_args
] = fdStr
;
1036 execvp (argv
[0], argv
);
1037 fprintf (stderr
, "emacs daemon: exec failed: %d\n", errno
);
1041 /* In exec'd: parse special dname into pipe and name info. */
1042 if (!dname_arg
|| !strchr (dname_arg
, '\n')
1043 || strlen (dname_arg
) < 1 || strlen (dname_arg
) > 70)
1045 fprintf (stderr
, "emacs daemon: daemon name absent or too long\n");
1048 dname_arg2
[0] = '\0';
1049 sscanf (dname_arg
, "\n%d,%d\n%s", &(daemon_pipe
[0]), &(daemon_pipe
[1]),
1051 dname_arg
= *dname_arg2
? dname_arg2
: NULL
;
1053 #endif /* DAEMON_MUST_EXEC */
1056 daemon_name
= xstrdup (dname_arg
);
1057 /* Close unused reading end of the pipe. */
1058 close (daemon_pipe
[0]);
1059 /* Make sure that the used end of the pipe is closed on exec, so
1060 that it is not accessible to programs started from .emacs. */
1061 fcntl (daemon_pipe
[1], F_SETFD
, FD_CLOEXEC
);
1065 fprintf (stderr
, "This platform does not support the -daemon flag.\n");
1070 #if defined (HAVE_PTHREAD) && !defined (SYSTEM_MALLOC) && !defined (DOUG_LEA_MALLOC)
1071 if (! noninteractive
)
1073 extern void malloc_enable_thread (void);
1075 malloc_enable_thread ();
1079 init_signals (dumping
);
1081 noninteractive1
= noninteractive
;
1083 /* Perform basic initializations (not merely interning symbols). */
1090 init_charset_once ();
1091 init_coding_once ();
1092 init_syntax_once (); /* Create standard syntax table. */
1093 init_category_once (); /* Create standard category table. */
1094 init_casetab_once (); /* Must be done before init_buffer_once. */
1095 init_buffer_once (); /* Create buffer table and some buffers. */
1096 init_minibuf_once (); /* Create list of minibuffers. */
1097 /* Must precede init_window_once. */
1099 /* Call syms_of_xfaces before init_window_once because that
1100 function creates Vterminal_frame. Termcap frames now use
1101 faces, and the face implementation uses some symbols as
1104 /* XXX syms_of_keyboard uses some symbols in keymap.c. It would
1105 be better to arrange things not to have this dependency. */
1107 /* Call syms_of_keyboard before init_window_once because
1108 keyboard sets up symbols that include some face names that
1109 the X support will want to use. This can happen when
1110 CANNOT_DUMP is defined. */
1111 syms_of_keyboard ();
1113 /* Called before syms_of_fileio, because it sets up Qerror_condition. */
1115 syms_of_fns (); /* Before syms_of_charset which uses hashtables. */
1117 /* Before syms_of_coding to initialize Vgc_cons_threshold. */
1119 /* May call Ffuncall and so GC, thus the latter should be initialized. */
1121 /* Before syms_of_coding because it initializes Qcharsetp. */
1123 /* Before init_window_once, because it sets up the
1124 Vcoding_system_hash_table. */
1125 syms_of_coding (); /* This should be after syms_of_fileio. */
1127 init_window_once (); /* Init the window system. */
1128 #ifdef HAVE_WINDOW_SYSTEM
1129 init_fringe_once (); /* Swap bitmaps if necessary. */
1130 #endif /* HAVE_WINDOW_SYSTEM */
1135 if (do_initial_setlocale
)
1138 Vsystem_messages_locale
= Vprevious_system_messages_locale
;
1139 Vsystem_time_locale
= Vprevious_system_time_locale
;
1144 running_asynch_code
= 0;
1148 = argmatch (argv
, argc
, "-nl", "--no-loadup", 6, NULL
, &skip_args
);
1151 = argmatch (argv
, argc
, "-nsl", "--no-site-lisp", 11, NULL
, &skip_args
);
1154 ns_pool
= ns_alloc_autorelease_pool ();
1155 if (!noninteractive
)
1157 #ifdef NS_IMPL_COCOA
1158 if (skip_args
< argc
)
1160 /* FIXME: Do the right thing if getenv returns NULL, or if
1162 if (!strncmp (argv
[skip_args
], "-psn", 4))
1165 chdir (getenv ("HOME"));
1167 else if (skip_args
+1 < argc
&& !strncmp (argv
[skip_args
+1], "-psn", 4))
1170 chdir (getenv ("HOME"));
1175 #endif /* HAVE_NS */
1177 #ifdef HAVE_X_WINDOWS
1178 /* Stupid kludge to catch command-line display spec. We can't
1179 handle this argument entirely in window system dependent code
1180 because we don't even know which window system dependent code
1181 to run until we've recognized this argument. */
1183 char *displayname
= 0;
1184 int count_before
= skip_args
;
1186 /* Skip any number of -d options, but only use the last one. */
1189 int count_before_this
= skip_args
;
1191 if (argmatch (argv
, argc
, "-d", "--display", 3, &displayname
, &skip_args
))
1193 else if (argmatch (argv
, argc
, "-display", 0, 3, &displayname
, &skip_args
))
1198 count_before
= count_before_this
;
1201 /* If we have the form --display=NAME,
1202 convert it into -d name.
1203 This requires inserting a new element into argv. */
1204 if (displayname
&& count_before
< skip_args
)
1206 if (skip_args
== count_before
+ 1)
1208 memmove (argv
+ count_before
+ 3, argv
+ count_before
+ 2,
1209 (argc
- (count_before
+ 2)) * sizeof *argv
);
1210 argv
[count_before
+ 2] = displayname
;
1213 argv
[count_before
+ 1] = (char *) "-d";
1218 if (argmatch (argv
, argc
, "-Q", "--quick", 3, NULL
, &skip_args
)
1219 || argmatch (argv
, argc
, "-quick", 0, 2, NULL
, &skip_args
))
1223 /* Don't actually discard this arg. */
1224 skip_args
= count_before
;
1226 #else /* !HAVE_X_WINDOWS */
1229 int count_before
= skip_args
;
1231 if (argmatch (argv
, argc
, "-Q", "--quick", 3, NULL
, &skip_args
)
1232 || argmatch (argv
, argc
, "-quick", 0, 2, NULL
, &skip_args
))
1235 skip_args
= count_before
;
1239 /* argmatch must not be used after here,
1240 except when building temacs
1241 because the -d argument has not been skipped in skip_args. */
1244 /* Call early 'cause init_environment needs it. */
1246 /* Set defaults for several environment variables. */
1248 init_environment (argc
, argv
, skip_args
);
1253 #ifdef HAVE_GFILENOTIFY
1254 globals_of_gfilenotify ();
1259 #ifdef HAVE_W32NOTIFY
1260 globals_of_w32notify ();
1262 /* Initialize environment from registry settings. */
1263 init_environment (argv
);
1264 init_ntproc (dumping
); /* must precede init_editfns. */
1267 /* Initialize and GC-protect Vinitial_environment and
1268 Vprocess_environment before set_initial_environment fills them
1271 syms_of_callproc ();
1272 /* egetenv is a pretty low-level facility, which may get called in
1273 many circumstances; it seems flimsy to put off initializing it
1274 until calling init_callproc. Do not do it when dumping. */
1276 set_initial_environment ();
1278 /* AIX crashes are reported in system versions 3.2.3 and 3.2.4
1279 if this is not done. Do it after set_global_environment so that we
1280 don't pollute Vglobal_environment. */
1281 /* Setting LANG here will defeat the startup locale processing... */
1286 init_buffer (); /* Init default directory of main buffer. */
1288 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */
1289 init_cmdargs (argc
, argv
, skip_args
); /* Must precede init_lread. */
1293 /* Erase any pre-dump messages in the message log, to avoid confusion. */
1294 Lisp_Object old_log_max
;
1295 old_log_max
= Vmessage_log_max
;
1296 XSETFASTINT (Vmessage_log_max
, 0);
1297 message_dolog ("", 0, 1, 0);
1298 Vmessage_log_max
= old_log_max
;
1301 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */
1305 /* Check to see if Emacs has been installed correctly. */
1306 check_windows_init_file ();
1309 /* Intern the names of all standard functions and variables;
1310 define standard keys. */
1314 /* The basic levels of Lisp must come first. Note that
1315 syms_of_data and some others have already been called. */
1320 syms_of_floatfns ();
1323 syms_of_bytecode ();
1325 syms_of_casefiddle ();
1327 syms_of_category ();
1329 syms_of_character ();
1336 syms_of_filelock ();
1339 /* syms_of_keymap (); */
1347 syms_of_terminal ();
1353 syms_of_textprop ();
1354 syms_of_composite ();
1357 #endif /* WINDOWSNT */
1364 #ifdef HAVE_WINDOW_SYSTEM
1367 #endif /* HAVE_WINDOW_SYSTEM */
1368 #ifdef HAVE_X_WINDOWS
1373 syms_of_xsettings ();
1380 #endif /* HAVE_X_WINDOWS */
1393 #endif /* HAVE_NTGUI */
1395 #if defined WINDOWSNT || defined HAVE_NTGUI
1396 syms_of_w32select ();
1403 syms_of_win16select ();
1410 syms_of_nsselect ();
1412 #endif /* HAVE_NS */
1418 #ifdef HAVE_GFILENOTIFY
1419 syms_of_gfilenotify ();
1420 #endif /* HAVE_GFILENOTIFY */
1424 #endif /* HAVE_INOTIFY */
1427 syms_of_dbusbind ();
1428 #endif /* HAVE_DBUS */
1432 #ifdef HAVE_W32NOTIFY
1433 syms_of_w32notify ();
1434 #endif /* HAVE_W32NOTIFY */
1435 #endif /* WINDOWSNT */
1437 syms_of_profiler ();
1439 keys_of_casefiddle ();
1442 keys_of_keyboard ();
1448 /* Initialization that must be done even if the global variable
1449 initialized is non zero. */
1451 globals_of_w32font ();
1452 globals_of_w32fns ();
1453 globals_of_w32menu ();
1454 #endif /* HAVE_NTGUI */
1456 #if defined WINDOWSNT || defined HAVE_NTGUI
1457 globals_of_w32select ();
1463 init_editfns (); /* init_process_emacs uses Voperating_system_release. */
1464 init_process_emacs (); /* init_display uses add_keyboard_wait_descriptor. */
1465 init_keyboard (); /* This too must precede init_sys_modes. */
1466 if (!noninteractive
)
1467 init_display (); /* Determine terminal type. Calls init_sys_modes. */
1469 #ifdef HAVE_WINDOW_SYSTEM
1471 #endif /* HAVE_WINDOW_SYSTEM */
1479 /* Handle -l loadup, args passed by Makefile. */
1480 if (argmatch (argv
, argc
, "-l", "--load", 3, &file
, &skip_args
))
1481 Vtop_level
= Fcons (intern_c_string ("load"),
1482 Fcons (build_string (file
), Qnil
));
1483 /* Unless next switch is -nl, load "loadup.el" first thing. */
1485 Vtop_level
= Fcons (intern_c_string ("load"),
1486 Fcons (build_string ("loadup.el"), Qnil
));
1493 /* If the execution TZ happens to be the same as the dump TZ,
1494 change it to some other value and then change it back,
1495 to force the underlying implementation to reload the TZ info.
1496 This is needed on implementations that load TZ info from files,
1497 since the TZ file contents may differ between dump and execution. */
1498 char *tz
= getenv ("TZ");
1499 if (tz
&& !strcmp (tz
, dump_tz
))
1509 /* Set up for profiling. This is known to work on FreeBSD,
1510 GNU/Linux and MinGW. It might work on some other systems too.
1511 Give it a try and tell us if it works on your system. To compile
1512 for profiling, use the configure option --enable-profiling. */
1513 #if defined (__FreeBSD__) || defined (GNU_LINUX) || defined (__MINGW32__)
1518 extern unsigned char etext
asm ("etext");
1524 monstartup ((uintptr_t) __executable_start
, (uintptr_t) &etext
);
1533 #ifdef LOCALTIME_CACHE
1534 /* Some versions of localtime have a bug. They cache the value of the time
1535 zone rather than looking it up every time. Since localtime() is
1536 called to bolt the undumping time into the undumped emacs, this
1537 results in localtime ignoring the TZ environment variable.
1538 This flushes the new TZ value into localtime. */
1540 #endif /* defined (LOCALTIME_CACHE) */
1542 /* Enter editor command loop. This never returns. */
1548 /* Sort the args so we can find the most important ones
1549 at the beginning of argv. */
1551 /* First, here's a table of all the standard options. */
1553 struct standard_args
1556 const char *longname
;
1561 static const struct standard_args standard_args
[] =
1563 { "-version", "--version", 150, 0 },
1564 { "-chdir", "--chdir", 130, 1 },
1565 { "-t", "--terminal", 120, 1 },
1566 { "-nw", "--no-window-system", 110, 0 },
1567 { "-nw", "--no-windows", 110, 0 },
1568 { "-batch", "--batch", 100, 0 },
1569 { "-script", "--script", 100, 1 },
1570 { "-daemon", "--daemon", 99, 0 },
1571 { "-help", "--help", 90, 0 },
1572 { "-nl", "--no-loadup", 70, 0 },
1573 { "-nsl", "--no-site-lisp", 65, 0 },
1574 /* -d must come last before the options handled in startup.el. */
1575 { "-d", "--display", 60, 1 },
1576 { "-display", 0, 60, 1 },
1577 /* Now for the options handled in `command-line' (startup.el). */
1578 /* (Note that to imply -nsl, -Q is partially handled here.) */
1579 { "-Q", "--quick", 55, 0 },
1580 { "-quick", 0, 55, 0 },
1581 { "-q", "--no-init-file", 50, 0 },
1582 { "-no-init-file", 0, 50, 0 },
1583 { "-no-site-file", "--no-site-file", 40, 0 },
1584 { "-u", "--user", 30, 1 },
1585 { "-user", 0, 30, 1 },
1586 { "-debug-init", "--debug-init", 20, 0 },
1587 { "-iconic", "--iconic", 15, 0 },
1588 { "-D", "--basic-display", 12, 0},
1589 { "-basic-display", 0, 12, 0},
1590 { "-nbc", "--no-blinking-cursor", 12, 0 },
1591 /* Now for the options handled in `command-line-1' (startup.el). */
1592 { "-nbi", "--no-bitmap-icon", 10, 0 },
1593 { "-bg", "--background-color", 10, 1 },
1594 { "-background", 0, 10, 1 },
1595 { "-fg", "--foreground-color", 10, 1 },
1596 { "-foreground", 0, 10, 1 },
1597 { "-bd", "--border-color", 10, 1 },
1598 { "-bw", "--border-width", 10, 1 },
1599 { "-ib", "--internal-border", 10, 1 },
1600 { "-ms", "--mouse-color", 10, 1 },
1601 { "-cr", "--cursor-color", 10, 1 },
1602 { "-fn", "--font", 10, 1 },
1603 { "-font", 0, 10, 1 },
1604 { "-fs", "--fullscreen", 10, 0 },
1605 { "-fw", "--fullwidth", 10, 0 },
1606 { "-fh", "--fullheight", 10, 0 },
1607 { "-mm", "--maximized", 10, 0 },
1608 { "-g", "--geometry", 10, 1 },
1609 { "-geometry", 0, 10, 1 },
1610 { "-T", "--title", 10, 1 },
1611 { "-title", 0, 10, 1 },
1612 { "-name", "--name", 10, 1 },
1613 { "-xrm", "--xrm", 10, 1 },
1614 { "-parent-id", "--parent-id", 10, 1 },
1615 { "-r", "--reverse-video", 5, 0 },
1617 { "-reverse", 0, 5, 0 },
1618 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1619 { "-vb", "--vertical-scroll-bars", 5, 0 },
1620 { "-color", "--color", 5, 0},
1621 { "-no-splash", "--no-splash", 3, 0 },
1622 { "-no-desktop", "--no-desktop", 3, 0 },
1624 { "-NSAutoLaunch", 0, 5, 1 },
1625 { "-NXAutoLaunch", 0, 5, 1 },
1626 { "-disable-font-backend", "--disable-font-backend", 65, 0 },
1627 { "-_NSMachLaunch", 0, 85, 1 },
1628 { "-MachLaunch", 0, 85, 1 },
1629 { "-macosx", 0, 85, 0 },
1630 { "-NSHost", 0, 85, 1 },
1632 /* These have the same priority as ordinary file name args,
1633 so they are not reordered with respect to those. */
1634 { "-L", "--directory", 0, 1 },
1635 { "-directory", 0, 0, 1 },
1636 { "-l", "--load", 0, 1 },
1637 { "-load", 0, 0, 1 },
1638 /* This has no longname, because using --scriptload confuses sort_args,
1639 because then the --script long option seems to match twice; ie
1640 you can't have a long option which is a prefix of another long
1641 option. In any case, this is entirely an internal option. */
1642 { "-scriptload", NULL
, 0, 1 },
1643 { "-f", "--funcall", 0, 1 },
1644 { "-funcall", 0, 0, 1 },
1645 { "-eval", "--eval", 0, 1 },
1646 { "-execute", "--execute", 0, 1 },
1647 { "-find-file", "--find-file", 0, 1 },
1648 { "-visit", "--visit", 0, 1 },
1649 { "-file", "--file", 0, 1 },
1650 { "-insert", "--insert", 0, 1 },
1652 { "-NXOpen", 0, 0, 1 },
1653 { "-NXOpenTemp", 0, 0, 1 },
1654 { "-NSOpen", 0, 0, 1 },
1655 { "-NSOpenTemp", 0, 0, 1 },
1656 { "-GSFilePath", 0, 0, 1 },
1658 /* This should be processed after ordinary file name args and the like. */
1659 { "-kill", "--kill", -10, 0 },
1662 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1663 so that the highest priority ones come first.
1664 Do not change the order of elements of equal priority.
1665 If an option takes an argument, keep it and its argument together.
1667 If an option that takes no argument appears more
1668 than once, eliminate all but one copy of it. */
1671 sort_args (int argc
, char **argv
)
1673 char **new = xmalloc (argc
* sizeof *new);
1674 /* For each element of argv,
1675 the corresponding element of options is:
1676 0 for an option that takes no arguments,
1677 1 for an option that takes one argument, etc.
1678 -1 for an ordinary non-option argument. */
1679 int *options
= xnmalloc (argc
, sizeof *options
);
1680 int *priority
= xnmalloc (argc
, sizeof *priority
);
1682 int incoming_used
= 1;
1686 /* Categorize all the options,
1687 and figure out which argv elts are option arguments. */
1688 for (from
= 1; from
< argc
; from
++)
1692 if (argv
[from
][0] == '-')
1696 /* If we have found "--", don't consider
1697 any more arguments as options. */
1698 if (argv
[from
][1] == '-' && argv
[from
][2] == 0)
1700 /* Leave the "--", and everything following it, at the end. */
1701 for (; from
< argc
; from
++)
1703 priority
[from
] = -100;
1709 /* Look for a match with a known old-fashioned option. */
1710 for (i
= 0; i
< sizeof (standard_args
) / sizeof (standard_args
[0]); i
++)
1711 if (!strcmp (argv
[from
], standard_args
[i
].name
))
1713 options
[from
] = standard_args
[i
].nargs
;
1714 priority
[from
] = standard_args
[i
].priority
;
1715 if (from
+ standard_args
[i
].nargs
>= argc
)
1716 fatal ("Option `%s' requires an argument\n", argv
[from
]);
1717 from
+= standard_args
[i
].nargs
;
1721 /* Look for a match with a known long option.
1722 MATCH is -1 if no match so far, -2 if two or more matches so far,
1723 >= 0 (the table index of the match) if just one match so far. */
1724 if (argv
[from
][1] == '-')
1726 char const *equals
= strchr (argv
[from
], '=');
1728 equals
? equals
- argv
[from
] : strlen (argv
[from
]);
1733 i
< sizeof (standard_args
) / sizeof (standard_args
[0]); i
++)
1734 if (standard_args
[i
].longname
1735 && !strncmp (argv
[from
], standard_args
[i
].longname
,
1744 /* If we found exactly one match, use that. */
1747 options
[from
] = standard_args
[match
].nargs
;
1748 priority
[from
] = standard_args
[match
].priority
;
1749 /* If --OPTION=VALUE syntax is used,
1750 this option uses just one argv element. */
1753 if (from
+ options
[from
] >= argc
)
1754 fatal ("Option `%s' requires an argument\n", argv
[from
]);
1755 from
+= options
[from
];
1757 /* FIXME When match < 0, shouldn't there be some error,
1758 or at least indication to the user that there was a
1765 /* Copy the arguments, in order of decreasing priority, to NEW. */
1767 while (incoming_used
< argc
)
1770 int best_priority
= -9999;
1772 /* Find the highest priority remaining option.
1773 If several have equal priority, take the first of them. */
1774 for (from
= 1; from
< argc
; from
++)
1776 if (argv
[from
] != 0 && priority
[from
] > best_priority
)
1778 best_priority
= priority
[from
];
1781 /* Skip option arguments--they are tied to the options. */
1782 if (options
[from
] > 0)
1783 from
+= options
[from
];
1789 /* Copy the highest priority remaining option, with its args, to NEW.
1790 Unless it is a duplicate of the previous one. */
1791 if (! (options
[best
] == 0
1792 && ! strcmp (new[to
- 1], argv
[best
])))
1794 new[to
++] = argv
[best
];
1795 for (i
= 0; i
< options
[best
]; i
++)
1796 new[to
++] = argv
[best
+ i
+ 1];
1799 incoming_used
+= 1 + (options
[best
] > 0 ? options
[best
] : 0);
1801 /* Clear out this option in ARGV. */
1803 for (i
= 0; i
< options
[best
]; i
++)
1804 argv
[best
+ i
+ 1] = 0;
1807 /* If duplicate options were deleted, fill up extra space with null ptrs. */
1811 memcpy (argv
, new, sizeof (char *) * argc
);
1818 DEFUN ("kill-emacs", Fkill_emacs
, Skill_emacs
, 0, 1, "P",
1819 doc
: /* Exit the Emacs job and kill it.
1820 If ARG is an integer, return ARG as the exit program code.
1821 If ARG is a string, stuff it as keyboard input.
1823 This function is called upon receipt of the signals SIGTERM
1824 or SIGHUP, and upon SIGINT in batch mode.
1826 The value of `kill-emacs-hook', if not void,
1827 is a list of functions (of no args),
1828 all of which are called before Emacs is actually killed. */)
1831 struct gcpro gcpro1
;
1839 /* Fsignal calls emacs_abort () if it sees that waiting_for_input is
1841 waiting_for_input
= 0;
1842 Frun_hooks (1, &Qkill_emacs_hook
);
1845 #ifdef HAVE_X_WINDOWS
1846 /* Transfer any clipboards we own to the clipboard manager. */
1847 x_clipboard_manager_save_all ();
1850 shut_down_emacs (0, STRINGP (arg
) ? arg
: Qnil
);
1853 ns_release_autorelease_pool (ns_pool
);
1856 /* If we have an auto-save list file,
1857 kill it because we are exiting Emacs deliberately (not crashing).
1858 Do it after shut_down_emacs, which does an auto-save. */
1859 if (STRINGP (Vauto_save_list_file_name
))
1860 unlink (SSDATA (Vauto_save_list_file_name
));
1863 exit_code
= (XINT (arg
) < 0
1864 ? XINT (arg
) | INT_MIN
1865 : XINT (arg
) & INT_MAX
);
1867 exit_code
= EXIT_SUCCESS
;
1872 /* Perform an orderly shutdown of Emacs. Autosave any modified
1873 buffers, kill any child processes, clean up the terminal modes (if
1874 we're in the foreground), and other stuff like that. Don't perform
1875 any redisplay; this may be called when Emacs is shutting down in
1876 the background, or after its X connection has died.
1878 If SIG is a signal number, print a message for it.
1880 This is called by fatal signal handlers, X protocol error handlers,
1884 shut_down_emacs (int sig
, Lisp_Object stuff
)
1886 /* Prevent running of hooks from now on. */
1889 /* Don't update display from now on. */
1890 Vinhibit_redisplay
= Qt
;
1892 /* If we are controlling the terminal, reset terminal modes. */
1895 pid_t pgrp
= getpgrp ();
1896 pid_t tpgrp
= tcgetpgrp (0);
1897 if ((tpgrp
!= -1) && tpgrp
== pgrp
)
1899 reset_all_sys_modes ();
1900 if (sig
&& sig
!= SIGTERM
)
1902 static char const format
[] = "Fatal error %d: ";
1903 char buf
[sizeof format
- 2 + INT_STRLEN_BOUND (int)];
1904 int buflen
= sprintf (buf
, format
, sig
);
1905 char const *sig_desc
= safe_strsignal (sig
);
1906 ignore_value (write (STDERR_FILENO
, buf
, buflen
));
1907 ignore_value (write (STDERR_FILENO
, sig_desc
, strlen (sig_desc
)));
1913 reset_all_sys_modes ();
1916 stuff_buffered_input (stuff
);
1918 inhibit_sentinels
= 1;
1919 kill_buffer_processes (Qnil
);
1920 Fdo_auto_save (Qt
, Qnil
);
1922 #ifdef CLASH_DETECTION
1923 unlock_all_files ();
1926 /* There is a tendency for a SIGIO signal to arrive within exit,
1927 and cause a SIGHUP because the input descriptor is already closed. */
1931 /* Do this only if terminating normally, we want glyph matrices
1932 etc. in a core dump. */
1933 if (sig
== 0 || sig
== SIGTERM
)
1935 check_glyph_memory ();
1936 check_message_stack ();
1944 ns_term_shutdown (sig
);
1948 xml_cleanup_parser ();
1962 DEFUN ("dump-emacs", Fdump_emacs
, Sdump_emacs
, 2, 2, 0,
1963 doc
: /* Dump current state of Emacs into executable file FILENAME.
1964 Take symbols from SYMFILE (presumably the file you executed to run Emacs).
1965 This is used in the file `loadup.el' when building Emacs.
1967 You must run Emacs in batch mode in order to dump it. */)
1968 (Lisp_Object filename
, Lisp_Object symfile
)
1972 ptrdiff_t count
= SPECPDL_INDEX ();
1976 if (! noninteractive
)
1977 error ("Dumping Emacs works only in batch mode");
1981 /* Warn if the gap between BSS end and heap start is larger than this. */
1982 # define MAX_HEAP_BSS_DIFF (1024*1024)
1984 if (heap_bss_diff
> MAX_HEAP_BSS_DIFF
)
1986 fprintf (stderr
, "**************************************************\n");
1987 fprintf (stderr
, "Warning: Your system has a gap between BSS and the\n");
1988 fprintf (stderr
, "heap (%"pMu
" bytes). This usually means that exec-shield\n",
1990 fprintf (stderr
, "or something similar is in effect. The dump may\n");
1991 fprintf (stderr
, "fail because of this. See the section about\n");
1992 fprintf (stderr
, "exec-shield in etc/PROBLEMS for more information.\n");
1993 fprintf (stderr
, "**************************************************\n");
1995 #endif /* GNU_LINUX */
1997 /* Bind `command-line-processed' to nil before dumping,
1998 so that the dumped Emacs will process its command line
1999 and set up to work with X windows if appropriate. */
2000 symbol
= intern ("command-line-processed");
2001 specbind (symbol
, Qnil
);
2003 CHECK_STRING (filename
);
2004 filename
= Fexpand_file_name (filename
, Qnil
);
2005 if (!NILP (symfile
))
2007 CHECK_STRING (symfile
);
2008 if (SCHARS (symfile
))
2009 symfile
= Fexpand_file_name (symfile
, Qnil
);
2013 Vpurify_flag
= Qnil
;
2016 set_time_zone_rule (dump_tz
);
2017 #ifndef LOCALTIME_CACHE
2018 /* Force a tz reload, since set_time_zone_rule doesn't. */
2024 /* Tell malloc where start of impure now is. */
2025 /* Also arrange for warnings when nearly out of space. */
2026 #ifndef SYSTEM_MALLOC
2028 /* On Windows, this was done before dumping, and that once suffices.
2029 Meanwhile, my_edata is not valid on Windows. */
2031 extern char my_edata
[];
2032 memory_warnings (my_edata
, malloc_warning
);
2034 #endif /* not WINDOWSNT */
2035 #endif /* not SYSTEM_MALLOC */
2036 #ifdef DOUG_LEA_MALLOC
2037 malloc_state_ptr
= malloc_get_state ();
2040 #ifdef USE_MMAP_FOR_BUFFERS
2043 unexec (SSDATA (filename
), !NILP (symfile
) ? SSDATA (symfile
) : 0);
2044 #ifdef USE_MMAP_FOR_BUFFERS
2047 #ifdef DOUG_LEA_MALLOC
2048 free (malloc_state_ptr
);
2052 Vlibrary_cache
= Qnil
;
2054 #ifdef HAVE_WINDOW_SYSTEM
2055 reset_image_types ();
2060 return unbind_to (count
, Qnil
);
2063 #endif /* not CANNOT_DUMP */
2066 /* Recover from setlocale (LC_ALL, ""). */
2070 /* The Emacs Lisp reader needs LC_NUMERIC to be "C",
2071 so that numbers are read and printed properly for Emacs Lisp. */
2072 setlocale (LC_NUMERIC
, "C");
2075 /* Set system locale CATEGORY, with previous locale *PLOCALE, to
2078 synchronize_locale (int category
, Lisp_Object
*plocale
, Lisp_Object desired_locale
)
2080 if (! EQ (*plocale
, desired_locale
))
2082 *plocale
= desired_locale
;
2083 setlocale (category
, (STRINGP (desired_locale
)
2084 ? SSDATA (desired_locale
)
2089 /* Set system time locale to match Vsystem_time_locale, if possible. */
2091 synchronize_system_time_locale (void)
2093 synchronize_locale (LC_TIME
, &Vprevious_system_time_locale
,
2094 Vsystem_time_locale
);
2097 /* Set system messages locale to match Vsystem_messages_locale, if
2100 synchronize_system_messages_locale (void)
2103 synchronize_locale (LC_MESSAGES
, &Vprevious_system_messages_locale
,
2104 Vsystem_messages_locale
);
2107 #endif /* HAVE_SETLOCALE */
2111 decode_env_path (const char *evarname
, const char *defalt
)
2113 const char *path
, *p
;
2114 Lisp_Object lpath
, element
, tem
;
2117 const char *emacs_dir
= egetenv ("emacs_dir");
2118 static const char *emacs_dir_env
= "%emacs_dir%/";
2119 const size_t emacs_dir_len
= strlen (emacs_dir_env
);
2122 /* It's okay to use getenv here, because this function is only used
2123 to initialize variables when Emacs starts up, and isn't called
2126 path
= getenv (evarname
);
2137 /* Ensure values from the environment use the proper directory separator. */
2140 char *path_copy
= alloca (strlen (path
) + 1);
2141 strcpy (path_copy
, path
);
2142 dostounix_filename (path_copy
, 0);
2149 p
= strchr (path
, SEPCHAR
);
2151 p
= path
+ strlen (path
);
2152 element
= (p
- path
? make_string (path
, p
- path
)
2153 : build_string ("."));
2155 /* Relative file names in the default path are interpreted as
2156 being relative to $emacs_dir. */
2157 if (emacs_dir
&& defaulted
2158 && strncmp (path
, emacs_dir_env
, emacs_dir_len
) == 0)
2159 element
= Fexpand_file_name (Fsubstring (element
,
2160 make_number (emacs_dir_len
),
2162 build_string (emacs_dir
));
2165 /* Add /: to the front of the name
2166 if it would otherwise be treated as magic. */
2167 tem
= Ffind_file_name_handler (element
, Qt
);
2169 /* However, if the handler says "I'm safe",
2170 don't bother adding /:. */
2174 prop
= Fget (tem
, intern ("safe-magic"));
2180 element
= concat2 (build_string ("/:"), element
);
2182 lpath
= Fcons (element
, lpath
);
2188 return Fnreverse (lpath
);
2191 DEFUN ("daemonp", Fdaemonp
, Sdaemonp
, 0, 0, 0,
2192 doc
: /* Return non-nil if the current emacs process is a daemon.
2193 If the daemon was given a name argument, return that name. */)
2198 return build_string (daemon_name
);
2205 DEFUN ("daemon-initialized", Fdaemon_initialized
, Sdaemon_initialized
, 0, 0, 0,
2206 doc
: /* Mark the Emacs daemon as being initialized.
2207 This finishes the daemonization process by doing the other half of detaching
2208 from the parent process and its tty file descriptors. */)
2215 error ("This function can only be called if emacs is run as a daemon");
2217 if (daemon_pipe
[1] < 0)
2218 error ("The daemon has already been initialized");
2220 if (NILP (Vafter_init_time
))
2221 error ("This function can only be called after loading the init files");
2223 /* Get rid of stdin, stdout and stderr. */
2224 nfd
= open ("/dev/null", O_RDWR
);
2226 err
|= dup2 (nfd
, 0) < 0;
2227 err
|= dup2 (nfd
, 1) < 0;
2228 err
|= dup2 (nfd
, 2) < 0;
2229 err
|= close (nfd
) != 0;
2231 /* Closing the pipe will notify the parent that it can exit.
2232 FIXME: In case some other process inherited the pipe, closing it here
2233 won't notify the parent because it's still open elsewhere, so we
2234 additionally send a byte, just to make sure the parent really exits.
2235 Instead, we should probably close the pipe in start-process and
2236 call-process to make sure the pipe is never inherited by
2238 err
|= write (daemon_pipe
[1], "\n", 1) < 0;
2239 err
|= close (daemon_pipe
[1]) != 0;
2240 /* Set it to an invalid value so we know we've already run this function. */
2241 daemon_pipe
[1] = -1;
2244 error ("I/O error during daemon initialization");
2249 syms_of_emacs (void)
2251 DEFSYM (Qfile_name_handler_alist
, "file-name-handler-alist");
2252 DEFSYM (Qrisky_local_variable
, "risky-local-variable");
2253 DEFSYM (Qkill_emacs
, "kill-emacs");
2254 DEFSYM (Qkill_emacs_hook
, "kill-emacs-hook");
2257 defsubr (&Sdump_emacs
);
2260 defsubr (&Skill_emacs
);
2262 defsubr (&Sinvocation_name
);
2263 defsubr (&Sinvocation_directory
);
2264 defsubr (&Sdaemonp
);
2265 defsubr (&Sdaemon_initialized
);
2267 DEFVAR_LISP ("command-line-args", Vcommand_line_args
,
2268 doc
: /* Args passed by shell to Emacs, as a list of strings.
2269 Many arguments are deleted from the list as they are processed. */);
2271 DEFVAR_LISP ("system-type", Vsystem_type
,
2272 doc
: /* The value is a symbol indicating the type of operating system you are using.
2274 `gnu' compiled for a GNU Hurd system.
2275 `gnu/linux' compiled for a GNU/Linux system.
2276 `gnu/kfreebsd' compiled for a GNU system with a FreeBSD kernel.
2277 `darwin' compiled for Darwin (GNU-Darwin, Mac OS X, ...).
2278 `ms-dos' compiled as an MS-DOS application.
2279 `windows-nt' compiled as a native W32 application.
2280 `cygwin' compiled using the Cygwin library.
2281 Anything else (in Emacs 24.1, the possibilities are: aix, berkeley-unix,
2282 hpux, irix, usg-unix-v) indicates some sort of Unix system. */);
2283 Vsystem_type
= intern_c_string (SYSTEM_TYPE
);
2284 /* See configure.ac (and config.nt) for the possible SYSTEM_TYPEs. */
2286 DEFVAR_LISP ("system-configuration", Vsystem_configuration
,
2287 doc
: /* Value is string indicating configuration Emacs was built for.
2288 On MS-Windows, the value reflects the OS flavor and version on which
2289 Emacs is running. */);
2290 Vsystem_configuration
= build_string (EMACS_CONFIGURATION
);
2292 DEFVAR_LISP ("system-configuration-options", Vsystem_configuration_options
,
2293 doc
: /* String containing the configuration options Emacs was built with. */);
2294 Vsystem_configuration_options
= build_string (EMACS_CONFIG_OPTIONS
);
2296 DEFVAR_BOOL ("noninteractive", noninteractive1
,
2297 doc
: /* Non-nil means Emacs is running without interactive terminal. */);
2299 DEFVAR_LISP ("kill-emacs-hook", Vkill_emacs_hook
,
2300 doc
: /* Hook run when `kill-emacs' is called.
2301 Since `kill-emacs' may be invoked when the terminal is disconnected (or
2302 in other similar situations), functions placed on this hook should not
2303 expect to be able to interact with the user. To ask for confirmation,
2304 see `kill-emacs-query-functions' instead.
2306 Before Emacs 24.1, the hook was not run in batch mode, i.e., if
2307 `noninteractive' was non-nil. */);
2308 Vkill_emacs_hook
= Qnil
;
2310 DEFVAR_LISP ("path-separator", Vpath_separator
,
2311 doc
: /* String containing the character that separates directories in
2312 search paths, such as PATH and other similar environment variables. */);
2315 Vpath_separator
= make_string (&c
, 1);
2318 DEFVAR_LISP ("invocation-name", Vinvocation_name
,
2319 doc
: /* The program name that was used to run Emacs.
2320 Any directory names are omitted. */);
2322 DEFVAR_LISP ("invocation-directory", Vinvocation_directory
,
2323 doc
: /* The directory in which the Emacs executable was found, to run it.
2324 The value is nil if that directory's name is not known. */);
2326 DEFVAR_LISP ("installation-directory", Vinstallation_directory
,
2327 doc
: /* A directory within which to look for the `lib-src' and `etc' directories.
2328 In an installed Emacs, this is normally nil. It is non-nil if
2329 both `lib-src' (on MS-DOS, `info') and `etc' directories are found
2330 within the variable `invocation-directory' or its parent. For example,
2331 this is the case when running an uninstalled Emacs executable from its
2332 build directory. */);
2333 Vinstallation_directory
= Qnil
;
2335 DEFVAR_LISP ("system-messages-locale", Vsystem_messages_locale
,
2336 doc
: /* System locale for messages. */);
2337 Vsystem_messages_locale
= Qnil
;
2339 DEFVAR_LISP ("previous-system-messages-locale",
2340 Vprevious_system_messages_locale
,
2341 doc
: /* Most recently used system locale for messages. */);
2342 Vprevious_system_messages_locale
= Qnil
;
2344 DEFVAR_LISP ("system-time-locale", Vsystem_time_locale
,
2345 doc
: /* System locale for time. */);
2346 Vsystem_time_locale
= Qnil
;
2348 DEFVAR_LISP ("previous-system-time-locale", Vprevious_system_time_locale
,
2349 doc
: /* Most recently used system locale for time. */);
2350 Vprevious_system_time_locale
= Qnil
;
2352 DEFVAR_LISP ("before-init-time", Vbefore_init_time
,
2353 doc
: /* Value of `current-time' before Emacs begins initialization. */);
2354 Vbefore_init_time
= Qnil
;
2356 DEFVAR_LISP ("after-init-time", Vafter_init_time
,
2357 doc
: /* Value of `current-time' after loading the init files.
2358 This is nil during initialization. */);
2359 Vafter_init_time
= Qnil
;
2361 DEFVAR_BOOL ("inhibit-x-resources", inhibit_x_resources
,
2362 doc
: /* If non-nil, X resources, Windows Registry settings, and NS defaults are not used. */);
2363 inhibit_x_resources
= 0;
2365 DEFVAR_LISP ("emacs-copyright", Vemacs_copyright
,
2366 doc
: /* Short copyright string for this version of Emacs. */);
2367 Vemacs_copyright
= build_string (emacs_copyright
);
2369 DEFVAR_LISP ("emacs-version", Vemacs_version
,
2370 doc
: /* Version numbers of this version of Emacs. */);
2371 Vemacs_version
= build_string (emacs_version
);
2373 DEFVAR_LISP ("dynamic-library-alist", Vdynamic_library_alist
,
2374 doc
: /* Alist of dynamic libraries vs external files implementing them.
2375 Each element is a list (LIBRARY FILE...), where the car is a symbol
2376 representing a supported external library, and the rest are strings giving
2377 alternate filenames for that library.
2379 Emacs tries to load the library from the files in the order they appear on
2380 the list; if none is loaded, the running session of Emacs won't have access
2383 Note that image types `pbm' and `xbm' do not need entries in this variable
2384 because they do not depend on external libraries and are always available.
2386 Also note that this is not a generic facility for accessing external
2387 libraries; only those already known by Emacs will be loaded. */);
2388 Vdynamic_library_alist
= Qnil
;
2389 Fput (intern_c_string ("dynamic-library-alist"), Qrisky_local_variable
, Qt
);
2392 Vlibrary_cache
= Qnil
;
2393 staticpro (&Vlibrary_cache
);
2396 /* Make sure IS_DAEMON starts up as false. */