* lisp/help-fns.el (describe-variable): Don't emit trailing whitespace (Bug#7511).
[emacs.git] / src / emacs.c
blob71ffa998bfe9bc648994f866620bd985fb62e902
1 /* Fully extensible Emacs, running on Unix, intended for GNU.
2 Copyright (C) 1985, 1986, 1987, 1993, 1994, 1995, 1997, 1998, 1999,
3 2001, 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009,
4 2010 Free Software Foundation, Inc.
6 This file is part of GNU Emacs.
8 GNU Emacs is free software: you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation, either version 3 of the License, or
11 (at your option) any later version.
13 GNU Emacs is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
22 #include <config.h>
23 #include <signal.h>
24 #include <errno.h>
25 #include <stdio.h>
27 #include <sys/types.h>
28 #include <sys/file.h>
29 #include <setjmp.h>
31 #ifdef HAVE_UNISTD_H
32 #include <unistd.h>
33 #endif
35 #ifdef BSD_SYSTEM
36 #include <sys/ioctl.h>
37 #endif
39 #ifdef WINDOWSNT
40 #include <fcntl.h>
41 #include <windows.h> /* just for w32.h */
42 #include "w32.h"
43 #include "w32heap.h" /* for prototype of sbrk */
44 #endif
46 #ifdef NS_IMPL_GNUSTEP
47 /* At least under Debian, GSConfig is in a subdirectory. --Stef */
48 #include <GNUstepBase/GSConfig.h>
49 #endif
51 #include "lisp.h"
52 #include "commands.h"
53 #include "intervals.h"
54 #include "buffer.h"
55 #include "window.h"
57 #include "systty.h"
58 #include "blockinput.h"
59 #include "syssignal.h"
60 #include "process.h"
61 #include "frame.h"
62 #include "termhooks.h"
63 #include "keyboard.h"
64 #include "keymap.h"
66 #ifdef HAVE_SETLOCALE
67 #include <locale.h>
68 #endif
70 #ifdef HAVE_SETRLIMIT
71 #include <sys/time.h>
72 #include <sys/resource.h>
73 #endif
75 #ifdef HAVE_PERSONALITY_LINUX32
76 #include <sys/personality.h>
77 #endif
79 #ifndef O_RDWR
80 #define O_RDWR 2
81 #endif
83 #ifdef HAVE_SETPGID
84 #if !defined (USG) || defined (BSD_PGRPS)
85 #undef setpgrp
86 #define setpgrp setpgid
87 #endif
88 #endif
90 extern void malloc_warning P_ ((char *));
91 extern void set_time_zone_rule P_ ((char *));
92 #ifdef HAVE_INDEX
93 extern char *index P_ ((const char *, int));
94 #endif
96 /* Make these values available in GDB, which doesn't see macros. */
98 #ifdef USE_LSB_TAG
99 int gdb_use_lsb = 1;
100 #else
101 int gdb_use_lsb = 0;
102 #endif
103 #ifndef USE_LISP_UNION_TYPE
104 int gdb_use_union = 0;
105 #else
106 int gdb_use_union = 1;
107 #endif
108 EMACS_INT gdb_valbits = VALBITS;
109 EMACS_INT gdb_gctypebits = GCTYPEBITS;
110 #if defined (DATA_SEG_BITS) && ! defined (USE_LSB_TAG)
111 EMACS_INT gdb_data_seg_bits = DATA_SEG_BITS;
112 #else
113 EMACS_INT gdb_data_seg_bits = 0;
114 #endif
115 EMACS_INT PVEC_FLAG = PSEUDOVECTOR_FLAG;
116 EMACS_INT gdb_array_mark_flag = ARRAY_MARK_FLAG;
117 /* GDB might say "No enum type named pvec_type" if we don't have at
118 least one symbol with that type, and then xbacktrace could fail. */
119 enum pvec_type gdb_pvec_type = PVEC_TYPE_MASK;
121 /* Command line args from shell, as list of strings. */
122 Lisp_Object Vcommand_line_args;
124 /* The name under which Emacs was invoked, with any leading directory
125 names discarded. */
126 Lisp_Object Vinvocation_name;
128 /* The directory name from which Emacs was invoked. */
129 Lisp_Object Vinvocation_directory;
131 /* The directory name in which to find subdirs such as lisp and etc.
132 nil means get them only from PATH_LOADSEARCH. */
133 Lisp_Object Vinstallation_directory;
135 /* The values of `current-time' before and after Emacs initialization. */
136 Lisp_Object Vbefore_init_time, Vafter_init_time;
138 /* Hook run by `kill-emacs' before it does really anything. */
139 Lisp_Object Vkill_emacs_hook;
141 /* Empty lisp strings. To avoid having to build any others. */
142 Lisp_Object empty_unibyte_string, empty_multibyte_string;
144 /* Search path separator. */
145 Lisp_Object Vpath_separator;
147 /* Set nonzero after Emacs has started up the first time.
148 Prevents reinitialization of the Lisp world and keymaps
149 on subsequent starts. */
150 int initialized;
152 #ifdef DOUG_LEA_MALLOC
153 /* Preserves a pointer to the memory allocated that copies that
154 static data inside glibc's malloc. */
155 void *malloc_state_ptr;
156 /* From glibc, a routine that returns a copy of the malloc internal state. */
157 extern void *malloc_get_state ();
158 /* From glibc, a routine that overwrites the malloc internal state. */
159 extern int malloc_set_state ();
160 /* Non-zero if the MALLOC_CHECK_ environment variable was set while
161 dumping. Used to work around a bug in glibc's malloc. */
162 int malloc_using_checking;
163 #endif
165 /* Variable whose value is symbol giving operating system type. */
166 Lisp_Object Vsystem_type;
168 /* Variable whose value is string giving configuration built for. */
169 Lisp_Object Vsystem_configuration;
171 /* Variable whose value is string giving configuration options,
172 for use when reporting bugs. */
173 Lisp_Object Vsystem_configuration_options;
175 Lisp_Object Qfile_name_handler_alist;
177 /* Current and previous system locales for messages and time. */
178 Lisp_Object Vsystem_messages_locale;
179 Lisp_Object Vprevious_system_messages_locale;
180 Lisp_Object Vsystem_time_locale;
181 Lisp_Object Vprevious_system_time_locale;
183 /* If non-zero, emacs should not attempt to use a window-specific code,
184 but instead should use the virtual terminal under which it was started. */
185 int inhibit_window_system;
187 /* If nonzero, set Emacs to run at this priority. This is also used
188 in child_setup and sys_suspend to make sure subshells run at normal
189 priority; those functions have their own extern declaration. */
190 EMACS_INT emacs_priority;
192 /* If non-zero, a filter or a sentinel is running. Tested to save the match
193 data on the first attempt to change it inside asynchronous code. */
194 int running_asynch_code;
196 #ifdef BSD_PGRPS
197 /* See sysdep.c. */
198 extern int inherited_pgroup;
199 #endif
201 #if defined(HAVE_X_WINDOWS) || defined(HAVE_NS)
202 /* If non-zero, -d was specified, meaning we're using some window system. */
203 int display_arg;
204 #endif
206 /* An address near the bottom of the stack.
207 Tells GC how to save a copy of the stack. */
208 char *stack_bottom;
210 /* The address where the heap starts (from the first sbrk (0) call). */
211 static void *my_heap_start;
213 /* The gap between BSS end and heap start as far as we can tell. */
214 static unsigned long heap_bss_diff;
216 /* If the gap between BSS end and heap start is larger than this
217 output a warning in dump-emacs. */
218 #define MAX_HEAP_BSS_DIFF (1024*1024)
221 #ifdef HAVE_WINDOW_SYSTEM
222 extern Lisp_Object Vinitial_window_system;
223 #endif /* HAVE_WINDOW_SYSTEM */
225 extern Lisp_Object Vauto_save_list_file_name;
227 extern Lisp_Object Vinhibit_redisplay;
229 /* Nonzero means running Emacs without interactive terminal. */
231 int noninteractive;
233 /* Value of Lisp variable `noninteractive'.
234 Normally same as C variable `noninteractive'
235 but nothing terrible happens if user sets this one. */
237 int noninteractive1;
239 /* Nonzero means Emacs was run in --quick mode. */
240 int inhibit_x_resources;
242 /* Name for the server started by the daemon.*/
243 static char *daemon_name;
245 /* Pipe used to send exit notification to the daemon parent at
246 startup. */
247 int daemon_pipe[2];
249 /* Save argv and argc. */
250 char **initial_argv;
251 int initial_argc;
253 static void sort_args ();
254 void syms_of_emacs ();
256 /* MSVC needs each string be shorter than 2048 bytes, so the usage
257 strings below are split to not overflow this limit. */
258 #define USAGE1 "\
259 Usage: %s [OPTION-OR-FILENAME]...\n\
261 Run Emacs, the extensible, customizable, self-documenting real-time\n\
262 display editor. The recommended way to start Emacs for normal editing\n\
263 is with no options at all.\n\
265 Run M-x info RET m emacs RET m emacs invocation RET inside Emacs to\n\
266 read the main documentation for these command-line arguments.\n\
268 Initialization options:\n\
270 --batch do not do interactive display; implies -q\n\
271 --daemon start a server in the background\n\
272 --debug-init enable Emacs Lisp debugger for init file\n\
273 --display, -d DISPLAY use X server DISPLAY\n\
274 --no-desktop do not load a saved desktop\n\
275 --no-init-file, -q load neither ~/.emacs nor default.el\n\
276 --no-shared-memory, -nl do not use shared memory\n\
277 --no-site-file do not load site-start.el\n\
278 --no-splash do not display a splash screen on startup\n\
279 --no-window-system, -nw do not communicate with X, ignoring $DISPLAY\n\
280 --quick, -Q equivalent to -q --no-site-file --no-splash\n\
281 --script FILE run FILE as an Emacs Lisp script\n\
282 --terminal, -t DEVICE use DEVICE for terminal I/O\n\
283 --user, -u USER load ~USER/.emacs instead of your own\n\
284 \n%s"
286 #define USAGE2 "\
287 Action options:\n\
289 FILE visit FILE using find-file\n\
290 +LINE go to line LINE in next FILE\n\
291 +LINE:COLUMN go to line LINE, column COLUMN, in next FILE\n\
292 --directory, -L DIR add DIR to variable load-path\n\
293 --eval EXPR evaluate Emacs Lisp expression EXPR\n\
294 --execute EXPR evaluate Emacs Lisp expression EXPR\n\
295 --file FILE visit FILE using find-file\n\
296 --find-file FILE visit FILE using find-file\n\
297 --funcall, -f FUNC call Emacs Lisp function FUNC with no arguments\n\
298 --insert FILE insert contents of FILE into current buffer\n\
299 --kill exit without asking for confirmation\n\
300 --load, -l FILE load Emacs Lisp FILE using the load function\n\
301 --visit FILE visit FILE using find-file\n\
304 #define USAGE3 "\
305 Display options:\n\
307 --background-color, -bg COLOR window background color\n\
308 --basic-display, -D disable many display features;\n\
309 used for debugging Emacs\n\
310 --border-color, -bd COLOR main border color\n\
311 --border-width, -bw WIDTH width of main border\n\
312 --color, --color=MODE override color mode for character terminals;\n\
313 MODE defaults to `auto', and can also\n\
314 be `never', `auto', `always',\n\
315 or a mode name like `ansi8'\n\
316 --cursor-color, -cr COLOR color of the Emacs cursor indicating point\n\
317 --font, -fn FONT default font; must be fixed-width\n\
318 --foreground-color, -fg COLOR window foreground color\n\
319 --fullheight, -fh make the first frame high as the screen\n\
320 --fullscreen, -fs make first frame fullscreen\n\
321 --fullwidth, -fw make the first frame wide as the screen\n\
322 --maximized, -mm make the first frame maximized\n\
323 --geometry, -g GEOMETRY window geometry\n\
324 --no-bitmap-icon, -nbi do not use picture of gnu for Emacs icon\n\
325 --iconic start Emacs in iconified state\n\
326 --internal-border, -ib WIDTH width between text and main border\n\
327 --line-spacing, -lsp PIXELS additional space to put between lines\n\
328 --mouse-color, -ms COLOR mouse cursor color in Emacs window\n\
329 --name NAME title for initial Emacs frame\n\
330 --no-blinking-cursor, -nbc disable blinking cursor\n\
331 --reverse-video, -r, -rv switch foreground and background\n\
332 --title, -T TITLE title for initial Emacs frame\n\
333 --vertical-scroll-bars, -vb enable vertical scroll bars\n\
334 --xrm XRESOURCES set additional X resources\n\
335 --parent-id XID set parent window\n\
336 --help display this help and exit\n\
337 --version output version information and exit\n\
340 #define USAGE4 "\
341 You can generally also specify long option names with a single -; for\n\
342 example, -batch as well as --batch. You can use any unambiguous\n\
343 abbreviation for a --option.\n\
345 Various environment variables and window system resources also affect\n\
346 Emacs' operation. See the main documentation.\n\
348 Report bugs to %s. First, please see the Bugs\n\
349 section of the Emacs manual or the file BUGS.\n"
352 /* Signal code for the fatal signal that was received. */
353 int fatal_error_code;
355 /* Nonzero if handling a fatal error already. */
356 int fatal_error_in_progress;
358 /* If non-null, call this function from fatal_error_signal before
359 committing suicide. */
361 void (*fatal_error_signal_hook) P_ ((void));
363 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
364 /* When compiled with GTK and running under Gnome,
365 multiple threads may be created. Keep track of our main
366 thread to make sure signals are delivered to it (see syssignal.h). */
368 pthread_t main_thread;
369 #endif
372 /* Handle bus errors, invalid instruction, etc. */
373 SIGTYPE
374 fatal_error_signal (sig)
375 int sig;
377 SIGNAL_THREAD_CHECK (sig);
378 fatal_error_code = sig;
379 signal (sig, SIG_DFL);
381 TOTALLY_UNBLOCK_INPUT;
383 /* If fatal error occurs in code below, avoid infinite recursion. */
384 if (! fatal_error_in_progress)
386 fatal_error_in_progress = 1;
388 shut_down_emacs (sig, 0, Qnil);
391 /* Signal the same code; this time it will really be fatal.
392 Remember that since we're in a signal handler, the signal we're
393 going to send is probably blocked, so we have to unblock it if we
394 want to really receive it. */
395 #ifndef MSDOS
396 sigunblock (sigmask (fatal_error_code));
397 #endif
399 if (fatal_error_signal_hook)
400 fatal_error_signal_hook ();
402 kill (getpid (), fatal_error_code);
405 #ifdef SIGDANGER
407 /* Handler for SIGDANGER. */
408 SIGTYPE
409 memory_warning_signal (sig)
410 int sig;
412 signal (sig, memory_warning_signal);
413 SIGNAL_THREAD_CHECK (sig);
415 malloc_warning ("Operating system warns that virtual memory is running low.\n");
417 /* It might be unsafe to call do_auto_save now. */
418 force_auto_save_soon ();
420 #endif
422 /* We define abort, rather than using it from the library,
423 so that GDB can return from a breakpoint here.
424 MSDOS has its own definition in msdos.c. */
426 #if ! defined (DOS_NT) && ! defined (NO_ABORT)
428 void
429 abort ()
431 kill (getpid (), SIGABRT);
432 /* This shouldn't be executed, but it prevents a warning. */
433 exit (1);
435 #endif
438 /* Code for dealing with Lisp access to the Unix command line. */
440 static void
441 init_cmdargs (argc, argv, skip_args)
442 int argc;
443 char **argv;
444 int skip_args;
446 register int i;
447 Lisp_Object name, dir, tem;
448 int count = SPECPDL_INDEX ();
449 Lisp_Object raw_name;
451 initial_argv = argv;
452 initial_argc = argc;
454 raw_name = build_string (argv[0]);
456 /* Add /: to the front of the name
457 if it would otherwise be treated as magic. */
458 tem = Ffind_file_name_handler (raw_name, Qt);
459 if (! NILP (tem))
460 raw_name = concat2 (build_string ("/:"), raw_name);
462 Vinvocation_name = Ffile_name_nondirectory (raw_name);
463 Vinvocation_directory = Ffile_name_directory (raw_name);
465 /* If we got no directory in argv[0], search PATH to find where
466 Emacs actually came from. */
467 if (NILP (Vinvocation_directory))
469 Lisp_Object found;
470 int yes = openp (Vexec_path, Vinvocation_name,
471 Vexec_suffixes, &found, make_number (X_OK));
472 if (yes == 1)
474 /* Add /: to the front of the name
475 if it would otherwise be treated as magic. */
476 tem = Ffind_file_name_handler (found, Qt);
477 if (! NILP (tem))
478 found = concat2 (build_string ("/:"), found);
479 Vinvocation_directory = Ffile_name_directory (found);
483 if (!NILP (Vinvocation_directory)
484 && NILP (Ffile_name_absolute_p (Vinvocation_directory)))
485 /* Emacs was started with relative path, like ./emacs.
486 Make it absolute. */
487 Vinvocation_directory = Fexpand_file_name (Vinvocation_directory, Qnil);
489 Vinstallation_directory = Qnil;
491 if (!NILP (Vinvocation_directory))
493 dir = Vinvocation_directory;
494 name = Fexpand_file_name (Vinvocation_name, dir);
495 while (1)
497 Lisp_Object tem, lib_src_exists;
498 Lisp_Object etc_exists, info_exists;
500 /* See if dir contains subdirs for use by Emacs.
501 Check for the ones that would exist in a build directory,
502 not including lisp and info. */
503 tem = Fexpand_file_name (build_string ("lib-src"), dir);
504 lib_src_exists = Ffile_exists_p (tem);
506 #ifdef MSDOS
507 /* MSDOS installations frequently remove lib-src, but we still
508 must set installation-directory, or else info won't find
509 its files (it uses the value of installation-directory). */
510 tem = Fexpand_file_name (build_string ("info"), dir);
511 info_exists = Ffile_exists_p (tem);
512 #else
513 info_exists = Qnil;
514 #endif
516 if (!NILP (lib_src_exists) || !NILP (info_exists))
518 tem = Fexpand_file_name (build_string ("etc"), dir);
519 etc_exists = Ffile_exists_p (tem);
520 if (!NILP (etc_exists))
522 Vinstallation_directory
523 = Ffile_name_as_directory (dir);
524 break;
528 /* See if dir's parent contains those subdirs. */
529 tem = Fexpand_file_name (build_string ("../lib-src"), dir);
530 lib_src_exists = Ffile_exists_p (tem);
533 #ifdef MSDOS
534 /* See the MSDOS commentary above. */
535 tem = Fexpand_file_name (build_string ("../info"), dir);
536 info_exists = Ffile_exists_p (tem);
537 #else
538 info_exists = Qnil;
539 #endif
541 if (!NILP (lib_src_exists) || !NILP (info_exists))
543 tem = Fexpand_file_name (build_string ("../etc"), dir);
544 etc_exists = Ffile_exists_p (tem);
545 if (!NILP (etc_exists))
547 tem = Fexpand_file_name (build_string (".."), dir);
548 Vinstallation_directory
549 = Ffile_name_as_directory (tem);
550 break;
554 /* If the Emacs executable is actually a link,
555 next try the dir that the link points into. */
556 tem = Ffile_symlink_p (name);
557 if (!NILP (tem))
559 name = Fexpand_file_name (tem, dir);
560 dir = Ffile_name_directory (name);
562 else
563 break;
567 Vcommand_line_args = Qnil;
569 for (i = argc - 1; i >= 0; i--)
571 if (i == 0 || i > skip_args)
572 /* For the moment, we keep arguments as is in unibyte strings.
573 They are decoded in the function command-line after we know
574 locale-coding-system. */
575 Vcommand_line_args
576 = Fcons (make_unibyte_string (argv[i], strlen (argv[i])),
577 Vcommand_line_args);
580 unbind_to (count, Qnil);
583 DEFUN ("invocation-name", Finvocation_name, Sinvocation_name, 0, 0, 0,
584 doc: /* Return the program name that was used to run Emacs.
585 Any directory names are omitted. */)
588 return Fcopy_sequence (Vinvocation_name);
591 DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory,
592 0, 0, 0,
593 doc: /* Return the directory name in which the Emacs executable was located. */)
596 return Fcopy_sequence (Vinvocation_directory);
600 #ifdef HAVE_TZSET
601 /* A valid but unlikely value for the TZ environment value.
602 It is OK (though a bit slower) if the user actually chooses this value. */
603 static char dump_tz[] = "UtC0";
604 #endif
606 #ifndef ORDINARY_LINK
607 /* We don't include crtbegin.o and crtend.o in the link,
608 so these functions and variables might be missed.
609 Provide dummy definitions to avoid error.
610 (We don't have any real constructors or destructors.) */
611 #ifdef __GNUC__
612 #ifndef GCC_CTORS_IN_LIBC
613 void __do_global_ctors ()
615 void __do_global_ctors_aux ()
617 void __do_global_dtors ()
619 /* GNU/Linux has a bug in its library; avoid an error. */
620 #ifndef GNU_LINUX
621 char * __CTOR_LIST__[2] = { (char *) (-1), 0 };
622 #endif
623 char * __DTOR_LIST__[2] = { (char *) (-1), 0 };
624 #endif /* GCC_CTORS_IN_LIBC */
625 void __main ()
627 #endif /* __GNUC__ */
628 #endif /* ORDINARY_LINK */
630 /* Test whether the next argument in ARGV matches SSTR or a prefix of
631 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
632 (the argument is supposed to have a value) store in *VALPTR either
633 the next argument or the portion of this one after the equal sign.
634 ARGV is read starting at position *SKIPPTR; this index is advanced
635 by the number of arguments used.
637 Too bad we can't just use getopt for all of this, but we don't have
638 enough information to do it right. */
640 static int
641 argmatch (argv, argc, sstr, lstr, minlen, valptr, skipptr)
642 char **argv;
643 int argc;
644 char *sstr;
645 char *lstr;
646 int minlen;
647 char **valptr;
648 int *skipptr;
650 char *p = NULL;
651 int arglen;
652 char *arg;
654 /* Don't access argv[argc]; give up in advance. */
655 if (argc <= *skipptr + 1)
656 return 0;
658 arg = argv[*skipptr+1];
659 if (arg == NULL)
660 return 0;
661 if (strcmp (arg, sstr) == 0)
663 if (valptr != NULL)
665 *valptr = argv[*skipptr+2];
666 *skipptr += 2;
668 else
669 *skipptr += 1;
670 return 1;
672 arglen = (valptr != NULL && (p = index (arg, '=')) != NULL
673 ? p - arg : strlen (arg));
674 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
675 return 0;
676 else if (valptr == NULL)
678 *skipptr += 1;
679 return 1;
681 else if (p != NULL)
683 *valptr = p+1;
684 *skipptr += 1;
685 return 1;
687 else if (argv[*skipptr+2] != NULL)
689 *valptr = argv[*skipptr+2];
690 *skipptr += 2;
691 return 1;
693 else
695 return 0;
699 #ifdef DOUG_LEA_MALLOC
701 /* malloc can be invoked even before main (e.g. by the dynamic
702 linker), so the dumped malloc state must be restored as early as
703 possible using this special hook. */
705 static void
706 malloc_initialize_hook ()
708 #ifndef USE_CRT_DLL
709 extern char **environ;
710 #endif
712 if (initialized)
714 if (!malloc_using_checking)
715 /* Work around a bug in glibc's malloc. MALLOC_CHECK_ must be
716 ignored if the heap to be restored was constructed without
717 malloc checking. Can't use unsetenv, since that calls malloc. */
719 char **p;
721 for (p = environ; p && *p; p++)
722 if (strncmp (*p, "MALLOC_CHECK_=", 14) == 0)
725 *p = p[1];
726 while (*++p);
727 break;
731 malloc_set_state (malloc_state_ptr);
732 #ifndef XMALLOC_OVERRUN_CHECK
733 free (malloc_state_ptr);
734 #endif
736 else
738 if (my_heap_start == 0)
739 my_heap_start = sbrk (0);
740 malloc_using_checking = getenv ("MALLOC_CHECK_") != NULL;
744 void (*__malloc_initialize_hook) () = malloc_initialize_hook;
746 #endif /* DOUG_LEA_MALLOC */
749 #define REPORT_EMACS_BUG_ADDRESS "bug-gnu-emacs@gnu.org"
750 #define REPORT_EMACS_BUG_PRETEST_ADDRESS "bug-gnu-emacs@gnu.org"
752 /* This function is used to determine an address to which bug report should
753 be sent. */
755 char *
756 bug_reporting_address ()
758 int count = 0;
759 Lisp_Object temp;
760 char *string;
762 temp = Fsymbol_value (intern ("emacs-version"));
764 /* When `emacs-version' is invalid, use normal address. */
765 if (!STRINGP(temp))
766 return REPORT_EMACS_BUG_ADDRESS;
768 string = SDATA (temp);
770 /* Count dots in `emacs-version'. */
771 while (*string)
773 if (*string == '.')
774 count++;
775 string++;
778 /* When `emacs-version' has at least three dots, it is development or
779 pretest version of Emacs. */
780 return count >= 3 ? REPORT_EMACS_BUG_PRETEST_ADDRESS : REPORT_EMACS_BUG_ADDRESS;
784 /* ARGSUSED */
786 main (int argc, char **argv)
788 #if GC_MARK_STACK
789 Lisp_Object dummy;
790 #endif
791 char stack_bottom_variable;
792 int do_initial_setlocale;
793 int skip_args = 0;
794 #ifndef USE_CRT_DLL
795 extern int errno;
796 #endif
797 #ifdef HAVE_SETRLIMIT
798 struct rlimit rlim;
799 #endif
800 int no_loadup = 0;
801 char *junk = 0;
802 char *dname_arg = 0;
803 #ifdef NS_IMPL_COCOA
804 char dname_arg2[80];
805 #endif
807 #if GC_MARK_STACK
808 extern Lisp_Object *stack_base;
809 stack_base = &dummy;
810 #endif
812 #if defined (USE_GTK) && defined (G_SLICE_ALWAYS_MALLOC)
813 /* This is used by the Cygwin build. */
814 setenv ("G_SLICE", "always-malloc", 1);
815 #endif
817 if (!initialized)
819 extern char my_endbss[];
820 extern char *my_endbss_static;
822 if (my_heap_start == 0)
823 my_heap_start = sbrk (0);
825 heap_bss_diff = (char *)my_heap_start - max (my_endbss, my_endbss_static);
828 #ifdef LINUX_SBRK_BUG
829 /* This is only used GNU/LINUX running on alpha when using libc5 */
830 __sbrk (1);
831 #endif
833 #ifdef RUN_TIME_REMAP
834 if (initialized)
835 run_time_remap (argv[0]);
836 #endif
838 /* If using unexmacosx.c (set by s/darwin.h), we must do this. */
839 #ifdef DARWIN_OS
840 if (!initialized)
841 unexec_init_emacs_zone ();
842 #endif
844 sort_args (argc, argv);
845 argc = 0;
846 while (argv[argc]) argc++;
848 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args)
849 /* We don't know the version number unless this is a dumped Emacs.
850 So ignore --version otherwise. */
851 && initialized)
853 Lisp_Object tem, tem2;
854 tem = Fsymbol_value (intern_c_string ("emacs-version"));
855 tem2 = Fsymbol_value (intern_c_string ("emacs-copyright"));
856 if (!STRINGP (tem))
858 fprintf (stderr, "Invalid value of `emacs-version'\n");
859 exit (1);
861 if (!STRINGP (tem2))
863 fprintf (stderr, "Invalid value of `emacs-copyright'\n");
864 exit (1);
866 else
868 printf ("GNU Emacs %s\n", SDATA (tem));
869 printf ("%s\n", SDATA(tem2));
870 printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n");
871 printf ("You may redistribute copies of Emacs\n");
872 printf ("under the terms of the GNU General Public License.\n");
873 printf ("For more information about these matters, ");
874 printf ("see the file named COPYING.\n");
875 exit (0);
879 #ifdef HAVE_PERSONALITY_LINUX32
880 if (!initialized
881 && (strcmp (argv[argc-1], "dump") == 0
882 || strcmp (argv[argc-1], "bootstrap") == 0)
883 && ! getenv ("EMACS_HEAP_EXEC"))
885 /* Set this so we only do this once. */
886 putenv("EMACS_HEAP_EXEC=true");
888 /* A flag to turn off address randomization which is introduced
889 in linux kernel shipped with fedora core 4 */
890 #define ADD_NO_RANDOMIZE 0x0040000
891 personality (PER_LINUX32 | ADD_NO_RANDOMIZE);
892 #undef ADD_NO_RANDOMIZE
894 execvp (argv[0], argv);
896 /* If the exec fails, try to dump anyway. */
897 perror ("execvp");
899 #endif /* HAVE_PERSONALITY_LINUX32 */
902 /* Map in shared memory, if we are using that. */
903 #ifdef HAVE_SHM
904 if (argmatch (argv, argc, "-nl", "--no-shared-memory", 6, NULL, &skip_args))
906 map_in_data (0);
907 /* The shared memory was just restored, which clobbered this. */
908 skip_args = 1;
910 else
912 map_in_data (1);
913 /* The shared memory was just restored, which clobbered this. */
914 skip_args = 0;
916 #endif
918 #if defined (HAVE_SETRLIMIT) && defined (RLIMIT_STACK)
919 /* Extend the stack space available.
920 Don't do that if dumping, since some systems (e.g. DJGPP)
921 might define a smaller stack limit at that time. */
922 if (1
923 #ifndef CANNOT_DUMP
924 && (!noninteractive || initialized)
925 #endif
926 && !getrlimit (RLIMIT_STACK, &rlim))
928 long newlim;
929 extern size_t re_max_failures;
930 /* Approximate the amount regex.c needs per unit of re_max_failures. */
931 int ratio = 20 * sizeof (char *);
932 /* Then add 33% to cover the size of the smaller stacks that regex.c
933 successively allocates and discards, on its way to the maximum. */
934 ratio += ratio / 3;
935 /* Add in some extra to cover
936 what we're likely to use for other reasons. */
937 newlim = re_max_failures * ratio + 200000;
938 #ifdef __NetBSD__
939 /* NetBSD (at least NetBSD 1.2G and former) has a bug in its
940 stack allocation routine for new process that the allocation
941 fails if stack limit is not on page boundary. So, round up the
942 new limit to page boundary. */
943 newlim = (newlim + getpagesize () - 1) / getpagesize () * getpagesize();
944 #endif
945 if (newlim > rlim.rlim_max)
947 newlim = rlim.rlim_max;
948 /* Don't let regex.c overflow the stack we have. */
949 re_max_failures = (newlim - 200000) / ratio;
951 if (rlim.rlim_cur < newlim)
952 rlim.rlim_cur = newlim;
954 setrlimit (RLIMIT_STACK, &rlim);
956 #endif /* HAVE_SETRLIMIT and RLIMIT_STACK */
958 /* Record (approximately) where the stack begins. */
959 stack_bottom = &stack_bottom_variable;
961 clearerr (stdin);
963 #ifndef SYSTEM_MALLOC
964 /* Arrange to get warning messages as memory fills up. */
965 memory_warnings (0, malloc_warning);
967 /* Call malloc at least once, to run the initial __malloc_hook.
968 Also call realloc and free for consistency. */
969 free (realloc (malloc (4), 4));
971 # ifndef SYNC_INPUT
972 /* Arrange to disable interrupt input inside malloc etc. */
973 uninterrupt_malloc ();
974 # endif /* not SYNC_INPUT */
975 #endif /* not SYSTEM_MALLOC */
977 #ifdef FORWARD_SIGNAL_TO_MAIN_THREAD
978 main_thread = pthread_self ();
979 #endif /* FORWARD_SIGNAL_TO_MAIN_THREAD */
981 #if defined (MSDOS) || defined (WINDOWSNT)
982 /* We do all file input/output as binary files. When we need to translate
983 newlines, we do that manually. */
984 _fmode = O_BINARY;
985 #endif /* MSDOS || WINDOWSNT */
987 #ifdef MSDOS
988 #if __DJGPP__ >= 2
989 if (!isatty (fileno (stdin)))
990 setmode (fileno (stdin), O_BINARY);
991 if (!isatty (fileno (stdout)))
993 fflush (stdout);
994 setmode (fileno (stdout), O_BINARY);
996 #else /* not __DJGPP__ >= 2 */
997 (stdin)->_flag &= ~_IOTEXT;
998 (stdout)->_flag &= ~_IOTEXT;
999 (stderr)->_flag &= ~_IOTEXT;
1000 #endif /* not __DJGPP__ >= 2 */
1001 #endif /* MSDOS */
1003 #ifdef SET_EMACS_PRIORITY
1004 if (emacs_priority)
1005 nice (emacs_priority);
1006 setuid (getuid ());
1007 #endif /* SET_EMACS_PRIORITY */
1009 /* Skip initial setlocale if LC_ALL is "C", as it's not needed in that case.
1010 The build procedure uses this while dumping, to ensure that the
1011 dumped Emacs does not have its system locale tables initialized,
1012 as that might cause screwups when the dumped Emacs starts up. */
1014 char *lc_all = getenv ("LC_ALL");
1015 do_initial_setlocale = ! lc_all || strcmp (lc_all, "C");
1018 /* Set locale now, so that initial error messages are localized properly.
1019 fixup_locale must wait until later, since it builds strings. */
1020 if (do_initial_setlocale)
1021 setlocale (LC_ALL, "");
1023 inhibit_window_system = 0;
1025 /* Handle the -t switch, which specifies filename to use as terminal. */
1026 while (1)
1028 char *term;
1029 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
1031 int result;
1032 emacs_close (0);
1033 emacs_close (1);
1034 result = emacs_open (term, O_RDWR, 0);
1035 if (result < 0)
1037 char *errstring = strerror (errno);
1038 fprintf (stderr, "%s: %s: %s\n", argv[0], term, errstring);
1039 exit (1);
1041 dup (0);
1042 if (! isatty (0))
1044 fprintf (stderr, "%s: %s: not a tty\n", argv[0], term);
1045 exit (1);
1047 fprintf (stderr, "Using %s\n", term);
1048 #ifdef HAVE_WINDOW_SYSTEM
1049 inhibit_window_system = 1; /* -t => -nw */
1050 #endif
1052 else
1053 break;
1056 /* Command line option --no-windows is deprecated and thus not mentioned
1057 in the manual and usage informations. */
1058 if (argmatch (argv, argc, "-nw", "--no-window-system", 6, NULL, &skip_args)
1059 || argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
1060 inhibit_window_system = 1;
1062 /* Handle the -batch switch, which means don't do interactive display. */
1063 noninteractive = 0;
1064 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
1066 noninteractive = 1;
1067 Vundo_outer_limit = Qnil;
1069 if (argmatch (argv, argc, "-script", "--script", 3, &junk, &skip_args))
1071 noninteractive = 1; /* Set batch mode. */
1072 /* Convert --script to -scriptload, un-skip it, and sort again
1073 so that it will be handled in proper sequence. */
1074 /* FIXME broken for --script=FILE - is that supposed to work? */
1075 argv[skip_args - 1] = "-scriptload";
1076 skip_args -= 2;
1077 sort_args (argc, argv);
1080 /* Handle the --help option, which gives a usage message. */
1081 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
1083 printf (USAGE1, argv[0], USAGE2);
1084 printf (USAGE3);
1085 printf (USAGE4, bug_reporting_address ());
1086 exit (0);
1089 if (argmatch (argv, argc, "-daemon", "--daemon", 5, NULL, &skip_args)
1090 || argmatch (argv, argc, "-daemon", "--daemon", 5, &dname_arg, &skip_args))
1092 #ifndef DOS_NT
1093 pid_t f;
1095 /* Start as a daemon: fork a new child process which will run the
1096 rest of the initialization code, then exit.
1098 Detaching a daemon requires the following steps:
1099 - fork
1100 - setsid
1101 - exit the parent
1102 - close the tty file-descriptors
1104 We only want to do the last 2 steps once the daemon is ready to
1105 serve requests, i.e. after loading .emacs (initialization).
1106 OTOH initialization may start subprocesses (e.g. ispell) and these
1107 should be run from the proper process (the one that will end up
1108 running as daemon) and with the proper "session id" in order for
1109 them to keep working after detaching, so fork and setsid need to be
1110 performed before initialization.
1112 We want to avoid exiting before the server socket is ready, so
1113 use a pipe for synchronization. The parent waits for the child
1114 to close its end of the pipe (using `daemon-initialized')
1115 before exiting. */
1116 if (pipe (daemon_pipe) == -1)
1118 fprintf (stderr, "Cannot pipe!\n");
1119 exit (1);
1122 #ifndef NS_IMPL_COCOA
1123 f = fork ();
1124 #else /* NS_IMPL_COCOA */
1125 /* Under Cocoa we must do fork+exec as CoreFoundation lib fails in
1126 forked process: http://developer.apple.com/ReleaseNotes/
1127 CoreFoundation/CoreFoundation.html)
1128 We mark being in the exec'd process by a daemon name argument of
1129 form "--daemon=\nFD0,FD1\nNAME" where FD are the pipe file descriptors,
1130 NAME is the original daemon name, if any. */
1131 if (!dname_arg || !strchr (dname_arg, '\n'))
1132 f = fork (); /* in orig */
1133 else
1134 f = 0; /* in exec'd */
1135 #endif /* NS_IMPL_COCOA */
1136 if (f > 0)
1138 int retval;
1139 char buf[1];
1141 /* Close unused writing end of the pipe. */
1142 close (daemon_pipe[1]);
1144 /* Just wait for the child to close its end of the pipe. */
1147 retval = read (daemon_pipe[0], &buf, 1);
1149 while (retval == -1 && errno == EINTR);
1151 if (retval < 0)
1153 fprintf (stderr, "Error reading status from child\n");
1154 exit (1);
1156 else if (retval == 0)
1158 fprintf (stderr, "Error: server did not start correctly\n");
1159 exit (1);
1162 close (daemon_pipe[0]);
1163 exit (0);
1165 if (f < 0)
1167 fprintf (stderr, "Cannot fork!\n");
1168 exit (1);
1171 #ifdef NS_IMPL_COCOA
1173 /* In orig process, forked as child, OR in exec'd. */
1174 if (!dname_arg || !strchr (dname_arg, '\n'))
1175 { /* In orig, child: now exec w/special daemon name. */
1176 char fdStr[80];
1178 if (dname_arg && strlen (dname_arg) > 70)
1180 fprintf (stderr, "daemon: child name too long\n");
1181 exit (1);
1184 sprintf (fdStr, "--daemon=\n%d,%d\n%s", daemon_pipe[0],
1185 daemon_pipe[1], dname_arg ? dname_arg : "");
1186 argv[skip_args] = fdStr;
1188 execv (argv[0], argv);
1189 fprintf (stderr, "emacs daemon: exec failed: %d\n", errno);
1190 exit (1);
1193 /* In exec'd: parse special dname into pipe and name info. */
1194 if (!dname_arg || !strchr (dname_arg, '\n')
1195 || strlen (dname_arg) < 1 || strlen (dname_arg) > 70)
1197 fprintf (stderr, "emacs daemon: daemon name absent or too long\n");
1198 exit(1);
1200 dname_arg2[0] = '\0';
1201 sscanf (dname_arg, "\n%d,%d\n%s", &(daemon_pipe[0]), &(daemon_pipe[1]),
1202 dname_arg2);
1203 dname_arg = strlen (dname_arg2) ? dname_arg2 : NULL;
1205 #endif /* NS_IMPL_COCOA */
1207 if (dname_arg)
1208 daemon_name = xstrdup (dname_arg);
1209 /* Close unused reading end of the pipe. */
1210 close (daemon_pipe[0]);
1211 /* Make sure that the used end of the pipe is closed on exec, so
1212 that it is not accessible to programs started from .emacs. */
1213 fcntl (daemon_pipe[1], F_SETFD, FD_CLOEXEC);
1215 #ifdef HAVE_SETSID
1216 setsid();
1217 #endif
1218 #else /* DOS_NT */
1219 fprintf (stderr, "This platform does not support the -daemon flag.\n");
1220 exit (1);
1221 #endif /* DOS_NT */
1224 if (! noninteractive)
1226 #ifdef BSD_PGRPS
1227 if (initialized)
1229 inherited_pgroup = EMACS_GETPGRP (0);
1230 setpgrp (0, getpid ());
1232 #else
1233 #if defined (USG5) && defined (INTERRUPT_INPUT)
1234 setpgrp ();
1235 #endif
1236 #endif
1237 #if defined (HAVE_GTK_AND_PTHREAD) && !defined (SYSTEM_MALLOC) && !defined (DOUG_LEA_MALLOC)
1239 extern void malloc_enable_thread P_ ((void));
1241 malloc_enable_thread ();
1243 #endif
1246 init_signals ();
1248 /* Don't catch SIGHUP if dumping. */
1249 if (1
1250 #ifndef CANNOT_DUMP
1251 && initialized
1252 #endif
1255 sigblock (sigmask (SIGHUP));
1256 /* In --batch mode, don't catch SIGHUP if already ignored.
1257 That makes nohup work. */
1258 if (! noninteractive
1259 || signal (SIGHUP, SIG_IGN) != SIG_IGN)
1260 signal (SIGHUP, fatal_error_signal);
1261 sigunblock (sigmask (SIGHUP));
1264 if (
1265 #ifndef CANNOT_DUMP
1266 ! noninteractive || initialized
1267 #else
1269 #endif
1272 /* Don't catch these signals in batch mode if dumping.
1273 On some machines, this sets static data that would make
1274 signal fail to work right when the dumped Emacs is run. */
1275 signal (SIGQUIT, fatal_error_signal);
1276 signal (SIGILL, fatal_error_signal);
1277 signal (SIGTRAP, fatal_error_signal);
1278 #ifdef SIGUSR1
1279 add_user_signal (SIGUSR1, "sigusr1");
1280 #endif
1281 #ifdef SIGUSR2
1282 add_user_signal (SIGUSR2, "sigusr2");
1283 #endif
1284 #ifdef SIGABRT
1285 signal (SIGABRT, fatal_error_signal);
1286 #endif
1287 #ifdef SIGHWE
1288 signal (SIGHWE, fatal_error_signal);
1289 #endif
1290 #ifdef SIGPRE
1291 signal (SIGPRE, fatal_error_signal);
1292 #endif
1293 #ifdef SIGORE
1294 signal (SIGORE, fatal_error_signal);
1295 #endif
1296 #ifdef SIGUME
1297 signal (SIGUME, fatal_error_signal);
1298 #endif
1299 #ifdef SIGDLK
1300 signal (SIGDLK, fatal_error_signal);
1301 #endif
1302 #ifdef SIGCPULIM
1303 signal (SIGCPULIM, fatal_error_signal);
1304 #endif
1305 #ifdef SIGIOT
1306 /* This is missing on some systems - OS/2, for example. */
1307 signal (SIGIOT, fatal_error_signal);
1308 #endif
1309 #ifdef SIGEMT
1310 signal (SIGEMT, fatal_error_signal);
1311 #endif
1312 signal (SIGFPE, fatal_error_signal);
1313 #ifdef SIGBUS
1314 signal (SIGBUS, fatal_error_signal);
1315 #endif
1316 signal (SIGSEGV, fatal_error_signal);
1317 #ifdef SIGSYS
1318 signal (SIGSYS, fatal_error_signal);
1319 #endif
1320 signal (SIGTERM, fatal_error_signal);
1321 #ifdef SIGXCPU
1322 signal (SIGXCPU, fatal_error_signal);
1323 #endif
1324 #ifdef SIGXFSZ
1325 signal (SIGXFSZ, fatal_error_signal);
1326 #endif /* SIGXFSZ */
1328 #ifdef SIGDANGER
1329 /* This just means available memory is getting low. */
1330 signal (SIGDANGER, memory_warning_signal);
1331 #endif
1333 #ifdef AIX
1334 /* 20 is SIGCHLD, 21 is SIGTTIN, 22 is SIGTTOU. */
1335 signal (SIGXCPU, fatal_error_signal);
1336 #ifndef _I386
1337 signal (SIGIOINT, fatal_error_signal);
1338 #endif
1339 signal (SIGGRANT, fatal_error_signal);
1340 signal (SIGRETRACT, fatal_error_signal);
1341 signal (SIGSOUND, fatal_error_signal);
1342 signal (SIGMSG, fatal_error_signal);
1343 #endif /* AIX */
1346 noninteractive1 = noninteractive;
1348 /* Perform basic initializations (not merely interning symbols). */
1350 if (!initialized)
1352 init_alloc_once ();
1353 init_obarray ();
1354 init_eval_once ();
1355 init_character_once ();
1356 init_charset_once ();
1357 init_coding_once ();
1358 init_syntax_once (); /* Create standard syntax table. */
1359 init_category_once (); /* Create standard category table. */
1360 /* Must be done before init_buffer. */
1361 init_casetab_once ();
1362 init_buffer_once (); /* Create buffer table and some buffers. */
1363 init_minibuf_once (); /* Create list of minibuffers. */
1364 /* Must precede init_window_once. */
1366 /* Call syms_of_xfaces before init_window_once because that
1367 function creates Vterminal_frame. Termcap frames now use
1368 faces, and the face implementation uses some symbols as
1369 face names. */
1370 syms_of_xfaces ();
1371 /* XXX syms_of_keyboard uses some symbols in keymap.c. It would
1372 be better to arrange things not to have this dependency. */
1373 syms_of_keymap ();
1374 /* Call syms_of_keyboard before init_window_once because
1375 keyboard sets up symbols that include some face names that
1376 the X support will want to use. This can happen when
1377 CANNOT_DUMP is defined. */
1378 syms_of_keyboard ();
1380 /* Called before syms_of_fileio, because it sets up Qerror_condition. */
1381 syms_of_data ();
1382 syms_of_fileio ();
1383 /* Before syms_of_coding to initialize Vgc_cons_threshold. */
1384 syms_of_alloc ();
1385 /* Before syms_of_coding because it initializes Qcharsetp. */
1386 syms_of_charset ();
1387 /* Before init_window_once, because it sets up the
1388 Vcoding_system_hash_table. */
1389 syms_of_coding (); /* This should be after syms_of_fileio. */
1391 init_window_once (); /* Init the window system. */
1392 #ifdef HAVE_WINDOW_SYSTEM
1393 init_fringe_once (); /* Swap bitmaps if necessary. */
1394 #endif /* HAVE_WINDOW_SYSTEM */
1397 init_alloc ();
1399 if (do_initial_setlocale)
1401 fixup_locale ();
1402 Vsystem_messages_locale = Vprevious_system_messages_locale;
1403 Vsystem_time_locale = Vprevious_system_time_locale;
1406 init_eval ();
1407 init_data ();
1408 #ifdef CLASH_DETECTION
1409 init_filelock ();
1410 #endif
1411 init_atimer ();
1412 running_asynch_code = 0;
1414 /* Handle --unibyte and the EMACS_UNIBYTE envvar,
1415 but not while dumping. */
1416 if (1)
1418 int inhibit_unibyte = 0;
1420 /* --multibyte overrides EMACS_UNIBYTE. */
1421 if (argmatch (argv, argc, "-no-unibyte", "--no-unibyte", 4, NULL, &skip_args)
1422 || argmatch (argv, argc, "-multibyte", "--multibyte", 4, NULL, &skip_args)
1423 /* Ignore EMACS_UNIBYTE before dumping. */
1424 || (!initialized && noninteractive))
1425 inhibit_unibyte = 1;
1427 /* --unibyte requests that we set up to do everything with single-byte
1428 buffers and strings. We need to handle this before calling
1429 init_lread, init_editfns and other places that generate Lisp strings
1430 from text in the environment. */
1431 /* Actually this shouldn't be needed as of 20.4 in a generally
1432 unibyte environment. As handa says, environment values
1433 aren't now decoded; also existing buffers are now made
1434 unibyte during startup if .emacs sets unibyte. Tested with
1435 8-bit data in environment variables and /etc/passwd, setting
1436 unibyte and Latin-1 in .emacs. -- Dave Love */
1437 if (argmatch (argv, argc, "-unibyte", "--unibyte", 4, NULL, &skip_args)
1438 || argmatch (argv, argc, "-no-multibyte", "--no-multibyte", 4, NULL, &skip_args)
1439 || (getenv ("EMACS_UNIBYTE") && !inhibit_unibyte))
1441 Lisp_Object old_log_max;
1442 Lisp_Object symbol, tail;
1444 symbol = intern_c_string ("enable-multibyte-characters");
1445 Fset_default (symbol, Qnil);
1447 if (initialized)
1449 /* Erase pre-dump messages in *Messages* now so no abort. */
1450 old_log_max = Vmessage_log_max;
1451 XSETFASTINT (Vmessage_log_max, 0);
1452 message_dolog ("", 0, 1, 0);
1453 Vmessage_log_max = old_log_max;
1456 for (tail = Vbuffer_alist; CONSP (tail);
1457 tail = XCDR (tail))
1459 Lisp_Object buffer;
1461 buffer = Fcdr (XCAR (tail));
1462 /* Make a multibyte buffer unibyte. */
1463 if (BUF_Z_BYTE (XBUFFER (buffer)) > BUF_Z (XBUFFER (buffer)))
1465 struct buffer *current = current_buffer;
1467 set_buffer_temp (XBUFFER (buffer));
1468 Fset_buffer_multibyte (Qnil);
1469 set_buffer_temp (current);
1472 message ("Warning: unibyte sessions are obsolete and will disappear");
1476 no_loadup
1477 = argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args);
1479 #ifdef HAVE_NS
1480 ns_alloc_autorelease_pool();
1481 if (!noninteractive)
1483 #ifdef NS_IMPL_COCOA
1484 if (skip_args < argc)
1486 if (!strncmp(argv[skip_args], "-psn", 4))
1488 skip_args += 1;
1489 chdir (getenv ("HOME"));
1491 else if (skip_args+1 < argc && !strncmp(argv[skip_args+1], "-psn", 4))
1493 skip_args += 2;
1494 chdir (getenv ("HOME"));
1497 #endif /* COCOA */
1499 #endif /* HAVE_NS */
1501 #ifdef HAVE_X_WINDOWS
1502 /* Stupid kludge to catch command-line display spec. We can't
1503 handle this argument entirely in window system dependent code
1504 because we don't even know which window system dependent code
1505 to run until we've recognized this argument. */
1507 char *displayname = 0;
1508 int count_before = skip_args;
1510 /* Skip any number of -d options, but only use the last one. */
1511 while (1)
1513 int count_before_this = skip_args;
1515 if (argmatch (argv, argc, "-d", "--display", 3, &displayname, &skip_args))
1516 display_arg = 1;
1517 else if (argmatch (argv, argc, "-display", 0, 3, &displayname, &skip_args))
1518 display_arg = 1;
1519 else
1520 break;
1522 count_before = count_before_this;
1525 /* If we have the form --display=NAME,
1526 convert it into -d name.
1527 This requires inserting a new element into argv. */
1528 if (displayname != 0 && skip_args - count_before == 1)
1530 char **new = (char **) xmalloc (sizeof (char *) * (argc + 2));
1531 int j;
1533 for (j = 0; j < count_before + 1; j++)
1534 new[j] = argv[j];
1535 new[count_before + 1] = "-d";
1536 new[count_before + 2] = displayname;
1537 for (j = count_before + 2; j <argc; j++)
1538 new[j + 1] = argv[j];
1539 argv = new;
1540 argc++;
1542 /* Change --display to -d, when its arg is separate. */
1543 else if (displayname != 0 && skip_args > count_before
1544 && argv[count_before + 1][1] == '-')
1545 argv[count_before + 1] = "-d";
1547 /* Don't actually discard this arg. */
1548 skip_args = count_before;
1550 #endif
1552 /* argmatch must not be used after here,
1553 except when bulding temacs
1554 because the -d argument has not been skipped in skip_args. */
1556 #ifdef MSDOS
1557 /* Call early 'cause init_environment needs it. */
1558 init_dosfns ();
1559 /* Set defaults for several environment variables. */
1560 if (initialized)
1561 init_environment (argc, argv, skip_args);
1562 else
1563 tzset ();
1564 #endif /* MSDOS */
1566 #ifdef WINDOWSNT
1567 globals_of_w32 ();
1568 /* Initialize environment from registry settings. */
1569 init_environment (argv);
1570 init_ntproc (); /* must precede init_editfns. */
1571 #endif
1573 #ifdef HAVE_NS
1574 #ifndef CANNOT_DUMP
1575 if (initialized)
1576 #endif
1577 ns_init_paths ();
1578 #endif
1580 /* egetenv is a pretty low-level facility, which may get called in
1581 many circumstances; it seems flimsy to put off initializing it
1582 until calling init_callproc. */
1583 set_initial_environment ();
1584 /* AIX crashes are reported in system versions 3.2.3 and 3.2.4
1585 if this is not done. Do it after set_global_environment so that we
1586 don't pollute Vglobal_environment. */
1587 /* Setting LANG here will defeat the startup locale processing... */
1588 #ifdef AIX
1589 putenv ("LANG=C");
1590 #endif
1592 init_buffer (); /* Init default directory of main buffer. */
1594 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */
1595 init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */
1597 if (initialized)
1599 /* Erase any pre-dump messages in the message log, to avoid confusion. */
1600 Lisp_Object old_log_max;
1601 old_log_max = Vmessage_log_max;
1602 XSETFASTINT (Vmessage_log_max, 0);
1603 message_dolog ("", 0, 1, 0);
1604 Vmessage_log_max = old_log_max;
1607 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */
1608 init_lread ();
1610 /* Intern the names of all standard functions and variables;
1611 define standard keys. */
1613 if (!initialized)
1615 /* The basic levels of Lisp must come first. Note that
1616 syms_of_data and some others have already been called. */
1617 syms_of_chartab ();
1618 syms_of_lread ();
1619 syms_of_print ();
1620 syms_of_eval ();
1621 syms_of_fns ();
1622 syms_of_floatfns ();
1624 syms_of_buffer ();
1625 syms_of_bytecode ();
1626 syms_of_callint ();
1627 syms_of_casefiddle ();
1628 syms_of_casetab ();
1629 syms_of_callproc ();
1630 syms_of_category ();
1631 syms_of_ccl ();
1632 syms_of_character ();
1633 syms_of_cmds ();
1634 #ifndef NO_DIR_LIBRARY
1635 syms_of_dired ();
1636 #endif /* not NO_DIR_LIBRARY */
1637 syms_of_display ();
1638 syms_of_doc ();
1639 syms_of_editfns ();
1640 syms_of_emacs ();
1641 #ifdef CLASH_DETECTION
1642 syms_of_filelock ();
1643 #endif /* CLASH_DETECTION */
1644 syms_of_indent ();
1645 syms_of_insdel ();
1646 /* syms_of_keymap (); */
1647 syms_of_macros ();
1648 syms_of_marker ();
1649 syms_of_minibuf ();
1650 syms_of_process ();
1651 syms_of_search ();
1652 syms_of_frame ();
1653 syms_of_syntax ();
1654 syms_of_terminal ();
1655 syms_of_term ();
1656 syms_of_undo ();
1657 #ifdef HAVE_SOUND
1658 syms_of_sound ();
1659 #endif
1660 syms_of_textprop ();
1661 syms_of_composite ();
1662 #ifdef WINDOWSNT
1663 syms_of_ntproc ();
1664 #endif /* WINDOWSNT */
1665 syms_of_window ();
1666 syms_of_xdisp ();
1667 syms_of_font ();
1668 #ifdef HAVE_WINDOW_SYSTEM
1669 syms_of_fringe ();
1670 syms_of_image ();
1671 #endif /* HAVE_WINDOW_SYSTEM */
1672 #ifdef HAVE_X_WINDOWS
1673 syms_of_xterm ();
1674 syms_of_xfns ();
1675 syms_of_xmenu ();
1676 syms_of_fontset ();
1677 syms_of_xsettings ();
1678 #ifdef HAVE_X_SM
1679 syms_of_xsmfns ();
1680 #endif
1681 #ifdef HAVE_X11
1682 syms_of_xselect ();
1683 #endif
1684 #endif /* HAVE_X_WINDOWS */
1686 syms_of_menu ();
1688 #ifdef HAVE_NTGUI
1689 syms_of_w32term ();
1690 syms_of_w32fns ();
1691 syms_of_w32select ();
1692 syms_of_w32menu ();
1693 syms_of_fontset ();
1694 #endif /* HAVE_NTGUI */
1696 #ifdef MSDOS
1697 syms_of_xmenu ();
1698 #endif /* MSDOS */
1700 #ifdef HAVE_NS
1701 syms_of_nsterm ();
1702 syms_of_nsfns ();
1703 syms_of_nsmenu ();
1704 syms_of_nsselect ();
1705 syms_of_fontset ();
1706 #endif /* HAVE_NS */
1708 #ifdef HAVE_DBUS
1709 syms_of_dbusbind ();
1710 #endif /* HAVE_DBUS */
1712 #ifdef SYMS_SYSTEM
1713 SYMS_SYSTEM;
1714 #endif
1716 #ifdef SYMS_MACHINE
1717 SYMS_MACHINE;
1718 #endif
1720 keys_of_casefiddle ();
1721 keys_of_cmds ();
1722 keys_of_buffer ();
1723 keys_of_keyboard ();
1724 keys_of_keymap ();
1725 keys_of_window ();
1727 else
1729 /* Initialization that must be done even if the global variable
1730 initialized is non zero. */
1731 #ifdef HAVE_NTGUI
1732 globals_of_w32fns ();
1733 globals_of_w32menu ();
1734 globals_of_w32select ();
1735 #endif /* HAVE_NTGUI */
1738 init_charset ();
1740 init_editfns (); /* init_process uses Voperating_system_release. */
1741 init_process (); /* init_display uses add_keyboard_wait_descriptor. */
1742 init_keyboard (); /* This too must precede init_sys_modes. */
1743 if (!noninteractive)
1744 init_display (); /* Determine terminal type. Calls init_sys_modes. */
1745 init_fns ();
1746 init_xdisp ();
1747 #ifdef HAVE_WINDOW_SYSTEM
1748 init_fringe ();
1749 init_image ();
1750 #endif /* HAVE_WINDOW_SYSTEM */
1751 init_macros ();
1752 init_floatfns ();
1753 #ifdef HAVE_SOUND
1754 init_sound ();
1755 #endif
1756 init_window ();
1757 init_font ();
1759 if (!initialized)
1761 char *file;
1762 /* Handle -l loadup, args passed by Makefile. */
1763 if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args))
1764 Vtop_level = Fcons (intern_c_string ("load"),
1765 Fcons (build_string (file), Qnil));
1766 /* Unless next switch is -nl, load "loadup.el" first thing. */
1767 if (! no_loadup)
1768 Vtop_level = Fcons (intern_c_string ("load"),
1769 Fcons (build_string ("loadup.el"), Qnil));
1772 if (initialized)
1774 #ifdef HAVE_TZSET
1776 /* If the execution TZ happens to be the same as the dump TZ,
1777 change it to some other value and then change it back,
1778 to force the underlying implementation to reload the TZ info.
1779 This is needed on implementations that load TZ info from files,
1780 since the TZ file contents may differ between dump and execution. */
1781 char *tz = getenv ("TZ");
1782 if (tz && !strcmp (tz, dump_tz))
1784 ++*tz;
1785 tzset ();
1786 --*tz;
1789 #endif
1792 /* Set up for profiling. This is known to work on FreeBSD,
1793 GNU/Linux and MinGW. It might work on some other systems too.
1794 Give it a try and tell us if it works on your system. To compile
1795 for profiling, use the configure option --enable-profiling. */
1796 #if defined (__FreeBSD__) || defined (GNU_LINUX) || defined(__MINGW32__)
1797 #ifdef PROFILING
1798 if (initialized)
1800 extern void _mcleanup ();
1801 #ifdef __MINGW32__
1802 extern unsigned char etext asm ("etext");
1803 #else
1804 extern char etext;
1805 #endif
1806 extern void safe_bcopy ();
1807 extern void dump_opcode_frequencies ();
1809 atexit (_mcleanup);
1810 /* This uses safe_bcopy because that function comes first in the
1811 Emacs executable. It might be better to use something that
1812 gives the start of the text segment, but start_of_text is not
1813 defined on all systems now. */
1814 monstartup (safe_bcopy, &etext);
1816 else
1817 moncontrol (0);
1818 #endif
1819 #endif
1821 initialized = 1;
1823 #ifdef LOCALTIME_CACHE
1824 /* Some versions of localtime have a bug. They cache the value of the time
1825 zone rather than looking it up every time. Since localtime() is
1826 called to bolt the undumping time into the undumped emacs, this
1827 results in localtime ignoring the TZ environment variable.
1828 This flushes the new TZ value into localtime. */
1829 tzset ();
1830 #endif /* defined (LOCALTIME_CACHE) */
1832 /* Enter editor command loop. This never returns. */
1833 Frecursive_edit ();
1834 /* NOTREACHED */
1835 return 0;
1838 /* Sort the args so we can find the most important ones
1839 at the beginning of argv. */
1841 /* First, here's a table of all the standard options. */
1843 struct standard_args
1845 const char *name;
1846 const char *longname;
1847 int priority;
1848 int nargs;
1851 const struct standard_args standard_args[] =
1853 { "-version", "--version", 150, 0 },
1854 #ifdef HAVE_SHM
1855 { "-nl", "--no-shared-memory", 140, 0 },
1856 #endif
1857 { "-t", "--terminal", 120, 1 },
1858 { "-nw", "--no-window-system", 110, 0 },
1859 { "-nw", "--no-windows", 110, 0 },
1860 { "-batch", "--batch", 100, 0 },
1861 { "-script", "--script", 100, 1 },
1862 { "-daemon", "--daemon", 99, 0 },
1863 { "-help", "--help", 90, 0 },
1864 { "-no-unibyte", "--no-unibyte", 83, 0 },
1865 { "-multibyte", "--multibyte", 82, 0 },
1866 { "-unibyte", "--unibyte", 81, 0 },
1867 { "-no-multibyte", "--no-multibyte", 80, 0 },
1868 { "-nl", "--no-loadup", 70, 0 },
1869 /* -d must come last before the options handled in startup.el. */
1870 { "-d", "--display", 60, 1 },
1871 { "-display", 0, 60, 1 },
1872 /* Now for the options handled in `command-line' (startup.el). */
1873 { "-Q", "--quick", 55, 0 },
1874 { "-quick", 0, 55, 0 },
1875 { "-q", "--no-init-file", 50, 0 },
1876 { "-no-init-file", 0, 50, 0 },
1877 { "-no-site-file", "--no-site-file", 40, 0 },
1878 { "-u", "--user", 30, 1 },
1879 { "-user", 0, 30, 1 },
1880 { "-debug-init", "--debug-init", 20, 0 },
1881 { "-iconic", "--iconic", 15, 0 },
1882 { "-D", "--basic-display", 12, 0},
1883 { "-basic-display", 0, 12, 0},
1884 { "-nbc", "--no-blinking-cursor", 12, 0 },
1885 /* Now for the options handled in `command-line-1' (startup.el). */
1886 { "-nbi", "--no-bitmap-icon", 10, 0 },
1887 { "-bg", "--background-color", 10, 1 },
1888 { "-background", 0, 10, 1 },
1889 { "-fg", "--foreground-color", 10, 1 },
1890 { "-foreground", 0, 10, 1 },
1891 { "-bd", "--border-color", 10, 1 },
1892 { "-bw", "--border-width", 10, 1 },
1893 { "-ib", "--internal-border", 10, 1 },
1894 { "-ms", "--mouse-color", 10, 1 },
1895 { "-cr", "--cursor-color", 10, 1 },
1896 { "-fn", "--font", 10, 1 },
1897 { "-font", 0, 10, 1 },
1898 { "-fs", "--fullscreen", 10, 0 },
1899 { "-fw", "--fullwidth", 10, 0 },
1900 { "-fh", "--fullheight", 10, 0 },
1901 { "-mm", "--maximized", 10, 0 },
1902 { "-g", "--geometry", 10, 1 },
1903 { "-geometry", 0, 10, 1 },
1904 { "-T", "--title", 10, 1 },
1905 { "-title", 0, 10, 1 },
1906 { "-name", "--name", 10, 1 },
1907 { "-xrm", "--xrm", 10, 1 },
1908 { "-parent-id", "--parent-id", 10, 1 },
1909 { "-r", "--reverse-video", 5, 0 },
1910 { "-rv", 0, 5, 0 },
1911 { "-reverse", 0, 5, 0 },
1912 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1913 { "-vb", "--vertical-scroll-bars", 5, 0 },
1914 { "-color", "--color", 5, 0},
1915 { "-no-splash", "--no-splash", 3, 0 },
1916 { "-no-desktop", "--no-desktop", 3, 0 },
1917 #ifdef HAVE_NS
1918 { "-NSAutoLaunch", 0, 5, 1 },
1919 { "-NXAutoLaunch", 0, 5, 1 },
1920 { "-disable-font-backend", "--disable-font-backend", 65, 0 },
1921 { "-_NSMachLaunch", 0, 85, 1 },
1922 { "-MachLaunch", 0, 85, 1 },
1923 { "-macosx", 0, 85, 0 },
1924 { "-NSHost", 0, 85, 1 },
1925 #endif
1926 /* These have the same priority as ordinary file name args,
1927 so they are not reordered with respect to those. */
1928 { "-L", "--directory", 0, 1 },
1929 { "-directory", 0, 0, 1 },
1930 { "-l", "--load", 0, 1 },
1931 { "-load", 0, 0, 1 },
1932 /* This has no longname, because using --scriptload confuses sort_args,
1933 because then the --script long option seems to match twice; ie
1934 you can't have a long option which is a prefix of another long
1935 option. In any case, this is entirely an internal option. */
1936 { "-scriptload", NULL, 0, 1 },
1937 { "-f", "--funcall", 0, 1 },
1938 { "-funcall", 0, 0, 1 },
1939 { "-eval", "--eval", 0, 1 },
1940 { "-execute", "--execute", 0, 1 },
1941 { "-find-file", "--find-file", 0, 1 },
1942 { "-visit", "--visit", 0, 1 },
1943 { "-file", "--file", 0, 1 },
1944 { "-insert", "--insert", 0, 1 },
1945 #ifdef HAVE_NS
1946 { "-NXOpen", 0, 0, 1 },
1947 { "-NXOpenTemp", 0, 0, 1 },
1948 { "-NSOpen", 0, 0, 1 },
1949 { "-NSOpenTemp", 0, 0, 1 },
1950 { "-GSFilePath", 0, 0, 1 },
1951 #endif
1952 /* This should be processed after ordinary file name args and the like. */
1953 { "-kill", "--kill", -10, 0 },
1956 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1957 so that the highest priority ones come first.
1958 Do not change the order of elements of equal priority.
1959 If an option takes an argument, keep it and its argument together.
1961 If an option that takes no argument appears more
1962 than once, eliminate all but one copy of it. */
1964 static void
1965 sort_args (argc, argv)
1966 int argc;
1967 char **argv;
1969 char **new = (char **) xmalloc (sizeof (char *) * argc);
1970 /* For each element of argv,
1971 the corresponding element of options is:
1972 0 for an option that takes no arguments,
1973 1 for an option that takes one argument, etc.
1974 -1 for an ordinary non-option argument. */
1975 int *options = (int *) xmalloc (sizeof (int) * argc);
1976 int *priority = (int *) xmalloc (sizeof (int) * argc);
1977 int to = 1;
1978 int incoming_used = 1;
1979 int from;
1980 int i;
1982 /* Categorize all the options,
1983 and figure out which argv elts are option arguments. */
1984 for (from = 1; from < argc; from++)
1986 options[from] = -1;
1987 priority[from] = 0;
1988 if (argv[from][0] == '-')
1990 int match, thislen;
1991 char *equals;
1993 /* If we have found "--", don't consider
1994 any more arguments as options. */
1995 if (argv[from][1] == '-' && argv[from][2] == 0)
1997 /* Leave the "--", and everything following it, at the end. */
1998 for (; from < argc; from++)
2000 priority[from] = -100;
2001 options[from] = -1;
2003 break;
2006 /* Look for a match with a known old-fashioned option. */
2007 for (i = 0; i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
2008 if (!strcmp (argv[from], standard_args[i].name))
2010 options[from] = standard_args[i].nargs;
2011 priority[from] = standard_args[i].priority;
2012 if (from + standard_args[i].nargs >= argc)
2013 fatal ("Option `%s' requires an argument\n", argv[from]);
2014 from += standard_args[i].nargs;
2015 goto done;
2018 /* Look for a match with a known long option.
2019 MATCH is -1 if no match so far, -2 if two or more matches so far,
2020 >= 0 (the table index of the match) if just one match so far. */
2021 if (argv[from][1] == '-')
2023 match = -1;
2024 thislen = strlen (argv[from]);
2025 equals = index (argv[from], '=');
2026 if (equals != 0)
2027 thislen = equals - argv[from];
2029 for (i = 0;
2030 i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
2031 if (standard_args[i].longname
2032 && !strncmp (argv[from], standard_args[i].longname,
2033 thislen))
2035 if (match == -1)
2036 match = i;
2037 else
2038 match = -2;
2041 /* If we found exactly one match, use that. */
2042 if (match >= 0)
2044 options[from] = standard_args[match].nargs;
2045 priority[from] = standard_args[match].priority;
2046 /* If --OPTION=VALUE syntax is used,
2047 this option uses just one argv element. */
2048 if (equals != 0)
2049 options[from] = 0;
2050 if (from + options[from] >= argc)
2051 fatal ("Option `%s' requires an argument\n", argv[from]);
2052 from += options[from];
2054 /* FIXME When match < 0, shouldn't there be some error,
2055 or at least indication to the user that there was a
2056 problem? */
2058 done: ;
2062 /* Copy the arguments, in order of decreasing priority, to NEW. */
2063 new[0] = argv[0];
2064 while (incoming_used < argc)
2066 int best = -1;
2067 int best_priority = -9999;
2069 /* Find the highest priority remaining option.
2070 If several have equal priority, take the first of them. */
2071 for (from = 1; from < argc; from++)
2073 if (argv[from] != 0 && priority[from] > best_priority)
2075 best_priority = priority[from];
2076 best = from;
2078 /* Skip option arguments--they are tied to the options. */
2079 if (options[from] > 0)
2080 from += options[from];
2083 if (best < 0)
2084 abort ();
2086 /* Copy the highest priority remaining option, with its args, to NEW.
2087 Unless it is a duplicate of the previous one. */
2088 if (! (options[best] == 0
2089 && ! strcmp (new[to - 1], argv[best])))
2091 new[to++] = argv[best];
2092 for (i = 0; i < options[best]; i++)
2093 new[to++] = argv[best + i + 1];
2096 incoming_used += 1 + (options[best] > 0 ? options[best] : 0);
2098 /* Clear out this option in ARGV. */
2099 argv[best] = 0;
2100 for (i = 0; i < options[best]; i++)
2101 argv[best + i + 1] = 0;
2104 /* If duplicate options were deleted, fill up extra space with null ptrs. */
2105 while (to < argc)
2106 new[to++] = 0;
2108 bcopy (new, argv, sizeof (char *) * argc);
2110 xfree (options);
2111 xfree (new);
2112 xfree (priority);
2115 DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P",
2116 doc: /* Exit the Emacs job and kill it.
2117 If ARG is an integer, return ARG as the exit program code.
2118 If ARG is a string, stuff it as keyboard input.
2120 The value of `kill-emacs-hook', if not void,
2121 is a list of functions (of no args),
2122 all of which are called before Emacs is actually killed. */)
2123 (arg)
2124 Lisp_Object arg;
2126 struct gcpro gcpro1;
2128 GCPRO1 (arg);
2130 if (feof (stdin))
2131 arg = Qt;
2133 if (!NILP (Vrun_hooks) && !noninteractive)
2134 call1 (Vrun_hooks, intern ("kill-emacs-hook"));
2136 UNGCPRO;
2138 shut_down_emacs (0, 0, STRINGP (arg) ? arg : Qnil);
2140 /* If we have an auto-save list file,
2141 kill it because we are exiting Emacs deliberately (not crashing).
2142 Do it after shut_down_emacs, which does an auto-save. */
2143 if (STRINGP (Vauto_save_list_file_name))
2144 unlink (SDATA (Vauto_save_list_file_name));
2146 exit (INTEGERP (arg) ? XINT (arg) : EXIT_SUCCESS);
2147 /* NOTREACHED */
2148 return Qnil;
2152 /* Perform an orderly shutdown of Emacs. Autosave any modified
2153 buffers, kill any child processes, clean up the terminal modes (if
2154 we're in the foreground), and other stuff like that. Don't perform
2155 any redisplay; this may be called when Emacs is shutting down in
2156 the background, or after its X connection has died.
2158 If SIG is a signal number, print a message for it.
2160 This is called by fatal signal handlers, X protocol error handlers,
2161 and Fkill_emacs. */
2163 void
2164 shut_down_emacs (sig, no_x, stuff)
2165 int sig, no_x;
2166 Lisp_Object stuff;
2168 /* Prevent running of hooks from now on. */
2169 Vrun_hooks = Qnil;
2171 /* Don't update display from now on. */
2172 Vinhibit_redisplay = Qt;
2174 /* If we are controlling the terminal, reset terminal modes. */
2175 #ifdef EMACS_HAVE_TTY_PGRP
2177 int pgrp = EMACS_GETPGRP (0);
2179 int tpgrp;
2180 if (EMACS_GET_TTY_PGRP (0, &tpgrp) != -1
2181 && tpgrp == pgrp)
2183 reset_all_sys_modes ();
2184 if (sig && sig != SIGTERM)
2185 fprintf (stderr, "Fatal error (%d)", sig);
2188 #else
2189 fflush (stdout);
2190 reset_all_sys_modes ();
2191 #endif
2193 stuff_buffered_input (stuff);
2195 #ifdef subprocesses
2196 inhibit_sentinels = 1;
2197 #endif
2198 kill_buffer_processes (Qnil);
2199 Fdo_auto_save (Qt, Qnil);
2201 #ifdef CLASH_DETECTION
2202 unlock_all_files ();
2203 #endif
2205 #if 0 /* This triggers a bug in XCloseDisplay and is not needed. */
2206 #ifdef HAVE_X_WINDOWS
2207 /* It's not safe to call intern here. Maybe we are crashing. */
2208 if (!noninteractive && SYMBOLP (Vinitial_window_system)
2209 && SCHARS (SYMBOL_NAME (Vinitial_window_system)) == 1
2210 && SREF (SYMBOL_NAME (Vinitial_window_system), 0) == 'x'
2211 && ! no_x)
2212 Fx_close_current_connection ();
2213 #endif /* HAVE_X_WINDOWS */
2214 #endif
2216 #ifdef SIGIO
2217 /* There is a tendency for a SIGIO signal to arrive within exit,
2218 and cause a SIGHUP because the input descriptor is already closed. */
2219 unrequest_sigio ();
2220 signal (SIGIO, SIG_IGN);
2221 #endif
2223 #ifdef WINDOWSNT
2224 term_ntproc ();
2225 #endif
2227 /* Do this only if terminating normally, we want glyph matrices
2228 etc. in a core dump. */
2229 if (sig == 0 || sig == SIGTERM)
2231 check_glyph_memory ();
2232 check_message_stack ();
2235 #ifdef MSDOS
2236 dos_cleanup ();
2237 #endif
2239 #ifdef HAVE_NS
2240 ns_term_shutdown (sig);
2241 #endif
2246 #ifndef CANNOT_DUMP
2248 #ifdef HAVE_SHM
2250 DEFUN ("dump-emacs-data", Fdump_emacs_data, Sdump_emacs_data, 1, 1, 0,
2251 doc: /* Dump current state of Emacs into data file FILENAME.
2252 This function exists on systems that use HAVE_SHM. */)
2253 (filename)
2254 Lisp_Object filename;
2256 extern char my_edata[];
2257 Lisp_Object tem;
2259 check_pure_size ();
2260 CHECK_STRING (filename);
2261 filename = Fexpand_file_name (filename, Qnil);
2263 tem = Vpurify_flag;
2264 Vpurify_flag = Qnil;
2266 fflush (stdout);
2267 /* Tell malloc where start of impure now is. */
2268 /* Also arrange for warnings when nearly out of space. */
2269 #ifndef SYSTEM_MALLOC
2270 memory_warnings (my_edata, malloc_warning);
2271 #endif
2272 map_out_data (SDATA (filename));
2274 Vpurify_flag = tem;
2276 return Qnil;
2279 #else /* not HAVE_SHM */
2281 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0,
2282 doc: /* Dump current state of Emacs into executable file FILENAME.
2283 Take symbols from SYMFILE (presumably the file you executed to run Emacs).
2284 This is used in the file `loadup.el' when building Emacs.
2286 You must run Emacs in batch mode in order to dump it. */)
2287 (filename, symfile)
2288 Lisp_Object filename, symfile;
2290 extern char my_edata[];
2291 Lisp_Object tem;
2292 Lisp_Object symbol;
2293 int count = SPECPDL_INDEX ();
2295 check_pure_size ();
2297 if (! noninteractive)
2298 error ("Dumping Emacs works only in batch mode");
2300 #ifdef GNU_LINUX
2301 if (heap_bss_diff > MAX_HEAP_BSS_DIFF)
2303 fprintf (stderr, "**************************************************\n");
2304 fprintf (stderr, "Warning: Your system has a gap between BSS and the\n");
2305 fprintf (stderr, "heap (%lu bytes). This usually means that exec-shield\n",
2306 heap_bss_diff);
2307 fprintf (stderr, "or something similar is in effect. The dump may\n");
2308 fprintf (stderr, "fail because of this. See the section about\n");
2309 fprintf (stderr, "exec-shield in etc/PROBLEMS for more information.\n");
2310 fprintf (stderr, "**************************************************\n");
2312 #endif /* GNU_LINUX */
2314 /* Bind `command-line-processed' to nil before dumping,
2315 so that the dumped Emacs will process its command line
2316 and set up to work with X windows if appropriate. */
2317 symbol = intern ("command-line-processed");
2318 specbind (symbol, Qnil);
2320 CHECK_STRING (filename);
2321 filename = Fexpand_file_name (filename, Qnil);
2322 if (!NILP (symfile))
2324 CHECK_STRING (symfile);
2325 if (SCHARS (symfile))
2326 symfile = Fexpand_file_name (symfile, Qnil);
2329 tem = Vpurify_flag;
2330 Vpurify_flag = Qnil;
2332 #ifdef HAVE_TZSET
2333 set_time_zone_rule (dump_tz);
2334 #ifndef LOCALTIME_CACHE
2335 /* Force a tz reload, since set_time_zone_rule doesn't. */
2336 tzset ();
2337 #endif
2338 #endif
2340 fflush (stdout);
2341 /* Tell malloc where start of impure now is. */
2342 /* Also arrange for warnings when nearly out of space. */
2343 #ifndef SYSTEM_MALLOC
2344 #ifndef WINDOWSNT
2345 /* On Windows, this was done before dumping, and that once suffices.
2346 Meanwhile, my_edata is not valid on Windows. */
2347 memory_warnings (my_edata, malloc_warning);
2348 #endif /* not WINDOWSNT */
2349 #endif
2350 #if !defined (SYSTEM_MALLOC) && defined (HAVE_GTK_AND_PTHREAD) && !defined SYNC_INPUT
2351 /* Pthread may call malloc before main, and then we will get an endless
2352 loop, because pthread_self (see alloc.c) calls malloc the first time
2353 it is called on some systems. */
2354 reset_malloc_hooks ();
2355 #endif
2356 #ifdef DOUG_LEA_MALLOC
2357 malloc_state_ptr = malloc_get_state ();
2358 #endif
2360 #ifdef USE_MMAP_FOR_BUFFERS
2361 mmap_set_vars (0);
2362 #endif
2363 unexec (SDATA (filename),
2364 !NILP (symfile) ? SDATA (symfile) : 0, my_edata, 0, 0);
2365 #ifdef USE_MMAP_FOR_BUFFERS
2366 mmap_set_vars (1);
2367 #endif
2368 #ifdef DOUG_LEA_MALLOC
2369 free (malloc_state_ptr);
2370 #endif
2372 Vpurify_flag = tem;
2374 return unbind_to (count, Qnil);
2377 #endif /* not HAVE_SHM */
2379 #endif /* not CANNOT_DUMP */
2381 #if HAVE_SETLOCALE
2382 /* Recover from setlocale (LC_ALL, ""). */
2383 void
2384 fixup_locale ()
2386 /* The Emacs Lisp reader needs LC_NUMERIC to be "C",
2387 so that numbers are read and printed properly for Emacs Lisp. */
2388 setlocale (LC_NUMERIC, "C");
2391 /* Set system locale CATEGORY, with previous locale *PLOCALE, to
2392 DESIRED_LOCALE. */
2393 static void
2394 synchronize_locale (category, plocale, desired_locale)
2395 int category;
2396 Lisp_Object *plocale;
2397 Lisp_Object desired_locale;
2399 if (! EQ (*plocale, desired_locale))
2401 *plocale = desired_locale;
2402 setlocale (category, (STRINGP (desired_locale)
2403 ? (char *) SDATA (desired_locale)
2404 : ""));
2408 /* Set system time locale to match Vsystem_time_locale, if possible. */
2409 void
2410 synchronize_system_time_locale ()
2412 synchronize_locale (LC_TIME, &Vprevious_system_time_locale,
2413 Vsystem_time_locale);
2416 /* Set system messages locale to match Vsystem_messages_locale, if
2417 possible. */
2418 void
2419 synchronize_system_messages_locale ()
2421 #ifdef LC_MESSAGES
2422 synchronize_locale (LC_MESSAGES, &Vprevious_system_messages_locale,
2423 Vsystem_messages_locale);
2424 #endif
2426 #endif /* HAVE_SETLOCALE */
2428 #ifndef SEPCHAR
2429 #define SEPCHAR ':'
2430 #endif
2432 Lisp_Object
2433 decode_env_path (evarname, defalt)
2434 char *evarname, *defalt;
2436 register char *path, *p;
2437 Lisp_Object lpath, element, tem;
2439 /* It's okay to use getenv here, because this function is only used
2440 to initialize variables when Emacs starts up, and isn't called
2441 after that. */
2442 if (evarname != 0)
2443 path = (char *) getenv (evarname);
2444 else
2445 path = 0;
2446 if (!path)
2447 path = defalt;
2448 #ifdef DOS_NT
2449 /* Ensure values from the environment use the proper directory separator. */
2450 if (path)
2452 p = alloca (strlen (path) + 1);
2453 strcpy (p, path);
2454 path = p;
2456 if ('/' == DIRECTORY_SEP)
2457 dostounix_filename (path);
2458 else
2459 unixtodos_filename (path);
2461 #endif
2462 lpath = Qnil;
2463 while (1)
2465 p = index (path, SEPCHAR);
2466 if (!p) p = path + strlen (path);
2467 element = (p - path ? make_string (path, p - path)
2468 : build_string ("."));
2470 /* Add /: to the front of the name
2471 if it would otherwise be treated as magic. */
2472 tem = Ffind_file_name_handler (element, Qt);
2474 /* However, if the handler says "I'm safe",
2475 don't bother adding /:. */
2476 if (SYMBOLP (tem))
2478 Lisp_Object prop;
2479 prop = Fget (tem, intern ("safe-magic"));
2480 if (! NILP (prop))
2481 tem = Qnil;
2484 if (! NILP (tem))
2485 element = concat2 (build_string ("/:"), element);
2487 lpath = Fcons (element, lpath);
2488 if (*p)
2489 path = p + 1;
2490 else
2491 break;
2493 return Fnreverse (lpath);
2496 DEFUN ("daemonp", Fdaemonp, Sdaemonp, 0, 0, 0,
2497 doc: /* Return non-nil if the current emacs process is a daemon.
2498 If the daemon was given a name argument, return that name. */)
2501 if (IS_DAEMON)
2502 if (daemon_name)
2503 return build_string (daemon_name);
2504 else
2505 return Qt;
2506 else
2507 return Qnil;
2510 DEFUN ("daemon-initialized", Fdaemon_initialized, Sdaemon_initialized, 0, 0, 0,
2511 doc: /* Mark the Emacs daemon as being initialized.
2512 This finishes the daemonization process by doing the other half of detaching
2513 from the parent process and its tty file descriptors. */)
2516 int nfd;
2518 if (!IS_DAEMON)
2519 error ("This function can only be called if emacs is run as a daemon");
2521 if (daemon_pipe[1] < 0)
2522 error ("The daemon has already been initialized");
2524 if (NILP (Vafter_init_time))
2525 error ("This function can only be called after loading the init files");
2527 /* Get rid of stdin, stdout and stderr. */
2528 nfd = open ("/dev/null", O_RDWR);
2529 dup2 (nfd, 0);
2530 dup2 (nfd, 1);
2531 dup2 (nfd, 2);
2532 close (nfd);
2534 /* Closing the pipe will notify the parent that it can exit.
2535 FIXME: In case some other process inherited the pipe, closing it here
2536 won't notify the parent because it's still open elsewhere, so we
2537 additionally send a byte, just to make sure the parent really exits.
2538 Instead, we should probably close the pipe in start-process and
2539 call-process to make sure the pipe is never inherited by
2540 subprocesses. */
2541 write (daemon_pipe[1], "\n", 1);
2542 close (daemon_pipe[1]);
2543 /* Set it to an invalid value so we know we've already run this function. */
2544 daemon_pipe[1] = -1;
2545 return Qt;
2548 void
2549 syms_of_emacs ()
2551 Qfile_name_handler_alist = intern_c_string ("file-name-handler-alist");
2552 staticpro (&Qfile_name_handler_alist);
2554 #ifndef CANNOT_DUMP
2555 #ifdef HAVE_SHM
2556 defsubr (&Sdump_emacs_data);
2557 #else
2558 defsubr (&Sdump_emacs);
2559 #endif
2560 #endif
2562 defsubr (&Skill_emacs);
2564 defsubr (&Sinvocation_name);
2565 defsubr (&Sinvocation_directory);
2566 defsubr (&Sdaemonp);
2567 defsubr (&Sdaemon_initialized);
2569 DEFVAR_LISP ("command-line-args", &Vcommand_line_args,
2570 doc: /* Args passed by shell to Emacs, as a list of strings.
2571 Many arguments are deleted from the list as they are processed. */);
2573 DEFVAR_LISP ("system-type", &Vsystem_type,
2574 doc: /* The value is a symbol indicating the type of operating system you are using.
2575 Special values:
2576 `gnu' compiled for a GNU Hurd system.
2577 `gnu/linux' compiled for a GNU/Linux system.
2578 `gnu/kfreebsd' compiled for a GNU system with a FreeBSD kernel.
2579 `darwin' compiled for Darwin (GNU-Darwin, Mac OS X, ...).
2580 `ms-dos' compiled as an MS-DOS application.
2581 `windows-nt' compiled as a native W32 application.
2582 `cygwin' compiled using the Cygwin library.
2583 Anything else (in Emacs 23.1, the possibilities are: aix, berkeley-unix,
2584 hpux, irix, lynxos 3.0.1, usg-unix-v) indicates some sort of Unix system. */);
2585 Vsystem_type = intern_c_string (SYSTEM_TYPE);
2587 DEFVAR_LISP ("system-configuration", &Vsystem_configuration,
2588 doc: /* Value is string indicating configuration Emacs was built for.
2589 On MS-Windows, the value reflects the OS flavor and version on which
2590 Emacs is running. */);
2591 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
2593 DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options,
2594 doc: /* String containing the configuration options Emacs was built with. */);
2595 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
2597 DEFVAR_BOOL ("noninteractive", &noninteractive1,
2598 doc: /* Non-nil means Emacs is running without interactive terminal. */);
2600 DEFVAR_LISP ("kill-emacs-hook", &Vkill_emacs_hook,
2601 doc: /* Hook to be run when `kill-emacs' is called.
2602 Since `kill-emacs' may be invoked when the terminal is disconnected (or
2603 in other similar situations), functions placed on this hook should not
2604 expect to be able to interact with the user. To ask for confirmation,
2605 see `kill-emacs-query-functions' instead.
2607 The hook is not run in batch mode, i.e., if `noninteractive' is non-nil. */);
2608 Vkill_emacs_hook = Qnil;
2610 DEFVAR_INT ("emacs-priority", &emacs_priority,
2611 doc: /* Priority for Emacs to run at.
2612 This value is effective only if set before Emacs is dumped,
2613 and only if the Emacs executable is installed with setuid to permit
2614 it to change priority. (Emacs sets its uid back to the real uid.)
2615 Currently, you need to define SET_EMACS_PRIORITY in `config.h'
2616 before you compile Emacs, to enable the code for this feature. */);
2617 emacs_priority = 0;
2619 DEFVAR_LISP ("path-separator", &Vpath_separator,
2620 doc: /* String containing the character that separates directories in
2621 search paths, such as PATH and other similar environment variables. */);
2623 char c = SEPCHAR;
2624 Vpath_separator = make_string (&c, 1);
2627 DEFVAR_LISP ("invocation-name", &Vinvocation_name,
2628 doc: /* The program name that was used to run Emacs.
2629 Any directory names are omitted. */);
2631 DEFVAR_LISP ("invocation-directory", &Vinvocation_directory,
2632 doc: /* The directory in which the Emacs executable was found, to run it.
2633 The value is nil if that directory's name is not known. */);
2635 DEFVAR_LISP ("installation-directory", &Vinstallation_directory,
2636 doc: /* A directory within which to look for the `lib-src' and `etc' directories.
2637 This is non-nil when we can't find those directories in their standard
2638 installed locations, but we can find them near where the Emacs executable
2639 was found. */);
2640 Vinstallation_directory = Qnil;
2642 DEFVAR_LISP ("system-messages-locale", &Vsystem_messages_locale,
2643 doc: /* System locale for messages. */);
2644 Vsystem_messages_locale = Qnil;
2646 DEFVAR_LISP ("previous-system-messages-locale",
2647 &Vprevious_system_messages_locale,
2648 doc: /* Most recently used system locale for messages. */);
2649 Vprevious_system_messages_locale = Qnil;
2651 DEFVAR_LISP ("system-time-locale", &Vsystem_time_locale,
2652 doc: /* System locale for time. */);
2653 Vsystem_time_locale = Qnil;
2655 DEFVAR_LISP ("previous-system-time-locale", &Vprevious_system_time_locale,
2656 doc: /* Most recently used system locale for time. */);
2657 Vprevious_system_time_locale = Qnil;
2659 DEFVAR_LISP ("before-init-time", &Vbefore_init_time,
2660 doc: /* Value of `current-time' before Emacs begins initialization. */);
2661 Vbefore_init_time = Qnil;
2663 DEFVAR_LISP ("after-init-time", &Vafter_init_time,
2664 doc: /* Value of `current-time' after loading the init files.
2665 This is nil during initialization. */);
2666 Vafter_init_time = Qnil;
2668 DEFVAR_BOOL ("inhibit-x-resources", &inhibit_x_resources,
2669 doc: /* If non-nil, X resources, Windows Registry settings, and NS defaults are not used. */);
2670 inhibit_x_resources = 0;
2672 /* Make sure IS_DAEMON starts up as false. */
2673 daemon_pipe[1] = 0;
2676 /* arch-tag: 7bfd356a-c720-4612-8ab6-aa4222931c2e
2677 (do not change this comment) */