(list-diary-entries-hook): Declare for compiler.
[emacs.git] / src / emacs.c
blob6c589ce105009b60b6198eb4fc1d01ca48c381c1
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
4 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, or (at your option)
11 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; see the file COPYING. If not, write to
20 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
21 Boston, MA 02110-1301, USA. */
24 #include <config.h>
25 #include <signal.h>
26 #include <errno.h>
27 #include <stdio.h>
29 #include <sys/types.h>
30 #include <sys/file.h>
32 #ifdef VMS
33 #include <ssdef.h>
34 #endif
36 #ifdef HAVE_UNISTD_H
37 #include <unistd.h>
38 #endif
40 #ifdef BSD_SYSTEM
41 #include <sys/ioctl.h>
42 #endif
44 #ifdef WINDOWSNT
45 #include <fcntl.h>
46 #include <windows.h> /* just for w32.h */
47 #include "w32.h"
48 #include "w32heap.h" /* for prototype of sbrk */
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 #ifdef NO_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 #ifdef DATA_SEG_BITS
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 /* Hook run by `kill-emacs' before it does really anything. */
136 Lisp_Object Vkill_emacs_hook;
138 /* Empty lisp strings. To avoid having to build any others. */
139 Lisp_Object empty_unibyte_string, empty_multibyte_string;
141 /* Search path separator. */
142 Lisp_Object Vpath_separator;
144 /* Set nonzero after Emacs has started up the first time.
145 Prevents reinitialization of the Lisp world and keymaps
146 on subsequent starts. */
147 int initialized;
149 #ifdef DOUG_LEA_MALLOC
150 /* Preserves a pointer to the memory allocated that copies that
151 static data inside glibc's malloc. */
152 void *malloc_state_ptr;
153 /* From glibc, a routine that returns a copy of the malloc internal state. */
154 extern void *malloc_get_state ();
155 /* From glibc, a routine that overwrites the malloc internal state. */
156 extern int malloc_set_state ();
157 /* Non-zero if the MALLOC_CHECK_ enviroment variable was set while
158 dumping. Used to work around a bug in glibc's malloc. */
159 int malloc_using_checking;
160 #endif
162 /* Variable whose value is symbol giving operating system type. */
163 Lisp_Object Vsystem_type;
165 /* Variable whose value is string giving configuration built for. */
166 Lisp_Object Vsystem_configuration;
168 /* Variable whose value is string giving configuration options,
169 for use when reporting bugs. */
170 Lisp_Object Vsystem_configuration_options;
172 Lisp_Object Qfile_name_handler_alist;
174 /* Current and previous system locales for messages and time. */
175 Lisp_Object Vsystem_messages_locale;
176 Lisp_Object Vprevious_system_messages_locale;
177 Lisp_Object Vsystem_time_locale;
178 Lisp_Object Vprevious_system_time_locale;
180 /* If non-zero, emacs should not attempt to use a window-specific code,
181 but instead should use the virtual terminal under which it was started. */
182 int inhibit_window_system;
184 /* If nonzero, set Emacs to run at this priority. This is also used
185 in child_setup and sys_suspend to make sure subshells run at normal
186 priority; those functions have their own extern declaration. */
187 EMACS_INT emacs_priority;
189 /* If non-zero, a filter or a sentinel is running. Tested to save the match
190 data on the first attempt to change it inside asynchronous code. */
191 int running_asynch_code;
193 #ifdef BSD_PGRPS
194 /* See sysdep.c. */
195 extern int inherited_pgroup;
196 #endif
198 #ifdef HAVE_X_WINDOWS
199 /* If non-zero, -d was specified, meaning we're using some window system. */
200 int display_arg;
201 #endif
203 /* An address near the bottom of the stack.
204 Tells GC how to save a copy of the stack. */
205 char *stack_bottom;
207 /* The address where the heap starts (from the first sbrk (0) call). */
208 static void *my_heap_start;
210 /* The gap between BSS end and heap start as far as we can tell. */
211 static unsigned long heap_bss_diff;
213 /* If the gap between BSS end and heap start is larger than this we try to
214 work around it, and if that fails, output a warning in dump-emacs. */
215 #define MAX_HEAP_BSS_DIFF (1024*1024)
218 #ifdef HAVE_WINDOW_SYSTEM
219 extern Lisp_Object Vinitial_window_system;
220 #endif /* HAVE_WINDOW_SYSTEM */
222 extern Lisp_Object Vauto_save_list_file_name;
224 extern Lisp_Object Vinhibit_redisplay;
226 #ifdef USG_SHARED_LIBRARIES
227 /* If nonzero, this is the place to put the end of the writable segment
228 at startup. */
230 unsigned int bss_end = 0;
231 #endif
233 /* Nonzero means running Emacs without interactive terminal. */
235 int noninteractive;
237 /* Value of Lisp variable `noninteractive'.
238 Normally same as C variable `noninteractive'
239 but nothing terrible happens if user sets this one. */
241 int noninteractive1;
243 /* Save argv and argc. */
244 char **initial_argv;
245 int initial_argc;
247 static void sort_args ();
248 void syms_of_emacs ();
250 /* MSVC needs each string be shorter than 2048 bytes, so the usage
251 strings below are split to not overflow this limit. */
252 #define USAGE1 "\
253 Usage: %s [OPTION-OR-FILENAME]...\n\
255 Run Emacs, the extensible, customizable, self-documenting real-time\n\
256 display editor. The recommended way to start Emacs for normal editing\n\
257 is with no options at all.\n\
259 Run M-x info RET m emacs RET m emacs invocation RET inside Emacs to\n\
260 read the main documentation for these command-line arguments.\n\
262 Initialization options:\n\
264 --batch do not do interactive display; implies -q\n\
265 --debug-init enable Emacs Lisp debugger for init file\n\
266 --disable-font-backend do not use font backend (only if compiled)\n\
267 --display, -d DISPLAY use X server DISPLAY\n\
268 --multibyte, --no-unibyte inhibit the effect of EMACS_UNIBYTE\n\
269 --no-desktop do not load a saved desktop\n\
270 --no-init-file, -q load neither ~/.emacs nor default.el\n\
271 --no-shared-memory, -nl do not use shared memory\n\
272 --no-site-file do not load site-start.el\n\
273 --no-splash do not display a splash screen on startup\n\
274 --no-window-system, -nw do not communicate with X, ignoring $DISPLAY\n\
275 --quick, -Q equivalent to -q --no-site-file --no-splash\n\
276 --script FILE run FILE as an Emacs Lisp script\n\
277 --terminal, -t DEVICE use DEVICE for terminal I/O\n\
278 --unibyte, --no-multibyte run Emacs in unibyte mode\n\
279 --user, -u USER load ~USER/.emacs instead of your own\n\
280 \n%s"
282 #define USAGE2 "\
283 Action options:\n\
285 FILE visit FILE using find-file\n\
286 +LINE go to line LINE in next FILE\n\
287 +LINE:COLUMN go to line LINE, column COLUMN, in next FILE\n\
288 --directory, -L DIR add DIR to variable load-path\n\
289 --eval EXPR evaluate Emacs Lisp expression EXPR\n\
290 --execute EXPR evaluate Emacs Lisp expression EXPR\n\
291 --file FILE visit FILE using find-file\n\
292 --find-file FILE visit FILE using find-file\n\
293 --funcall, -f FUNC call Emacs Lisp function FUNC with no arguments\n\
294 --insert FILE insert contents of FILE into current buffer\n\
295 --kill exit without asking for confirmation\n\
296 --load, -l FILE load Emacs Lisp FILE using the load function\n\
297 --visit FILE visit FILE using find-file\n\
300 #define USAGE3 "\
301 Display options:\n\
303 --background-color, -bg COLOR window background color\n\
304 --basic-display, -D disable many display features;\n\
305 used for debugging Emacs\n\
306 --border-color, -bd COLOR main border color\n\
307 --border-width, -bw WIDTH width of main border\n\
308 --color, --color=MODE override color mode for character terminals;\n\
309 MODE defaults to `auto', and can also\n\
310 be `never', `auto', `always',\n\
311 or a mode name like `ansi8'\n\
312 --cursor-color, -cr COLOR color of the Emacs cursor indicating point\n\
313 --font, -fn FONT default font; must be fixed-width\n\
314 --foreground-color, -fg COLOR window foreground color\n\
315 --fullheight, -fh make the first frame high as the screen\n\
316 --fullscreen, -fs make first frame fullscreen\n\
317 --fullwidth, -fw make the first frame wide as the screen\n\
318 --geometry, -g GEOMETRY window geometry\n\
319 --no-bitmap-icon, -nbi do not use picture of gnu for Emacs icon\n\
320 --iconic start Emacs in iconified state\n\
321 --internal-border, -ib WIDTH width between text and main border\n\
322 --line-spacing, -lsp PIXELS additional space to put between lines\n\
323 --mouse-color, -ms COLOR mouse cursor color in Emacs window\n\
324 --name NAME title for initial Emacs frame\n\
325 --no-blinking-cursor, -nbc disable blinking cursor\n\
326 --reverse-video, -r, -rv switch foreground and background\n\
327 --title, -T TITLE title for initial Emacs frame\n\
328 --vertical-scroll-bars, -vb enable vertical scroll bars\n\
329 --xrm XRESOURCES set additional X resources\n\
330 --parent-id XID set parent window\n\
331 --help display this help and exit\n\
332 --version output version information and exit\n\
335 #define USAGE4 "\
336 You can generally also specify long option names with a single -; for\n\
337 example, -batch as well as --batch. You can use any unambiguous\n\
338 abbreviation for a --option.\n\
340 Various environment variables and window system resources also affect\n\
341 Emacs' operation. See the main documentation.\n\
343 Report bugs to %s. First, please see the Bugs\n\
344 section of the Emacs manual or the file BUGS.\n"
347 /* Signal code for the fatal signal that was received. */
348 int fatal_error_code;
350 /* Nonzero if handling a fatal error already. */
351 int fatal_error_in_progress;
353 /* If non-null, call this function from fatal_error_signal before
354 committing suicide. */
356 void (*fatal_error_signal_hook) P_ ((void));
358 #ifdef HAVE_GTK_AND_PTHREAD
359 /* When compiled with GTK and running under Gnome, multiple threads may be
360 created. Keep track of our main thread to make sure signals are delivered
361 to it (see syssignal.h). */
363 pthread_t main_thread;
364 #endif
367 /* Handle bus errors, invalid instruction, etc. */
368 SIGTYPE
369 fatal_error_signal (sig)
370 int sig;
372 SIGNAL_THREAD_CHECK (sig);
373 fatal_error_code = sig;
374 signal (sig, SIG_DFL);
376 TOTALLY_UNBLOCK_INPUT;
378 /* If fatal error occurs in code below, avoid infinite recursion. */
379 if (! fatal_error_in_progress)
381 fatal_error_in_progress = 1;
383 shut_down_emacs (sig, 0, Qnil);
386 #ifdef VMS
387 LIB$STOP (SS$_ABORT);
388 #else
389 /* Signal the same code; this time it will really be fatal.
390 Remember that since we're in a signal handler, the signal we're
391 going to send is probably blocked, so we have to unblock it if we
392 want to really receive it. */
393 #ifndef MSDOS
394 sigunblock (sigmask (fatal_error_code));
395 #endif
397 if (fatal_error_signal_hook)
398 fatal_error_signal_hook ();
400 kill (getpid (), fatal_error_code);
401 #endif /* not VMS */
404 #ifdef SIGDANGER
406 /* Handler for SIGDANGER. */
407 SIGTYPE
408 memory_warning_signal (sig)
409 int sig;
411 signal (sig, memory_warning_signal);
412 SIGNAL_THREAD_CHECK (sig);
414 malloc_warning ("Operating system warns that virtual memory is running low.\n");
416 /* It might be unsafe to call do_auto_save now. */
417 force_auto_save_soon ();
419 #endif
421 /* We define abort, rather than using it from the library,
422 so that GDB can return from a breakpoint here.
423 MSDOS has its own definition in msdos.c. */
425 #if ! defined (DOS_NT) && ! defined (NO_ABORT)
427 void
428 abort ()
430 kill (getpid (), SIGABRT);
431 /* This shouldn't be executed, but it prevents a warning. */
432 exit (1);
434 #endif
437 /* Code for dealing with Lisp access to the Unix command line. */
439 static void
440 init_cmdargs (argc, argv, skip_args)
441 int argc;
442 char **argv;
443 int skip_args;
445 register int i;
446 Lisp_Object name, dir, tem;
447 int count = SPECPDL_INDEX ();
448 Lisp_Object raw_name;
450 initial_argv = argv;
451 initial_argc = argc;
453 raw_name = build_string (argv[0]);
455 /* Add /: to the front of the name
456 if it would otherwise be treated as magic. */
457 tem = Ffind_file_name_handler (raw_name, Qt);
458 if (! NILP (tem))
459 raw_name = concat2 (build_string ("/:"), raw_name);
461 Vinvocation_name = Ffile_name_nondirectory (raw_name);
462 Vinvocation_directory = Ffile_name_directory (raw_name);
464 /* If we got no directory in argv[0], search PATH to find where
465 Emacs actually came from. */
466 if (NILP (Vinvocation_directory))
468 Lisp_Object found;
469 int yes = openp (Vexec_path, Vinvocation_name,
470 Vexec_suffixes, &found, make_number (X_OK));
471 if (yes == 1)
473 /* Add /: to the front of the name
474 if it would otherwise be treated as magic. */
475 tem = Ffind_file_name_handler (found, Qt);
476 if (! NILP (tem))
477 found = concat2 (build_string ("/:"), found);
478 Vinvocation_directory = Ffile_name_directory (found);
482 if (!NILP (Vinvocation_directory)
483 && NILP (Ffile_name_absolute_p (Vinvocation_directory)))
484 /* Emacs was started with relative path, like ./emacs.
485 Make it absolute. */
486 Vinvocation_directory = Fexpand_file_name (Vinvocation_directory, Qnil);
488 Vinstallation_directory = Qnil;
490 if (!NILP (Vinvocation_directory))
492 dir = Vinvocation_directory;
493 name = Fexpand_file_name (Vinvocation_name, dir);
494 while (1)
496 Lisp_Object tem, lib_src_exists;
497 Lisp_Object etc_exists, info_exists;
499 /* See if dir contains subdirs for use by Emacs.
500 Check for the ones that would exist in a build directory,
501 not including lisp and info. */
502 tem = Fexpand_file_name (build_string ("lib-src"), dir);
503 lib_src_exists = Ffile_exists_p (tem);
505 #ifdef MSDOS
506 /* MSDOS installations frequently remove lib-src, but we still
507 must set installation-directory, or else info won't find
508 its files (it uses the value of installation-directory). */
509 tem = Fexpand_file_name (build_string ("info"), dir);
510 info_exists = Ffile_exists_p (tem);
511 #else
512 info_exists = Qnil;
513 #endif
515 if (!NILP (lib_src_exists) || !NILP (info_exists))
517 tem = Fexpand_file_name (build_string ("etc"), dir);
518 etc_exists = Ffile_exists_p (tem);
519 if (!NILP (etc_exists))
521 Vinstallation_directory
522 = Ffile_name_as_directory (dir);
523 break;
527 /* See if dir's parent contains those subdirs. */
528 tem = Fexpand_file_name (build_string ("../lib-src"), dir);
529 lib_src_exists = Ffile_exists_p (tem);
532 #ifdef MSDOS
533 /* See the MSDOS commentary above. */
534 tem = Fexpand_file_name (build_string ("../info"), dir);
535 info_exists = Ffile_exists_p (tem);
536 #else
537 info_exists = Qnil;
538 #endif
540 if (!NILP (lib_src_exists) || !NILP (info_exists))
542 tem = Fexpand_file_name (build_string ("../etc"), dir);
543 etc_exists = Ffile_exists_p (tem);
544 if (!NILP (etc_exists))
546 tem = Fexpand_file_name (build_string (".."), dir);
547 Vinstallation_directory
548 = Ffile_name_as_directory (tem);
549 break;
553 /* If the Emacs executable is actually a link,
554 next try the dir that the link points into. */
555 tem = Ffile_symlink_p (name);
556 if (!NILP (tem))
558 name = Fexpand_file_name (tem, dir);
559 dir = Ffile_name_directory (name);
561 else
562 break;
566 Vcommand_line_args = Qnil;
568 for (i = argc - 1; i >= 0; i--)
570 if (i == 0 || i > skip_args)
571 /* For the moment, we keep arguments as is in unibyte strings.
572 They are decoded in the function command-line after we know
573 locale-coding-system. */
574 Vcommand_line_args
575 = Fcons (make_unibyte_string (argv[i], strlen (argv[i])),
576 Vcommand_line_args);
579 unbind_to (count, Qnil);
582 DEFUN ("invocation-name", Finvocation_name, Sinvocation_name, 0, 0, 0,
583 doc: /* Return the program name that was used to run Emacs.
584 Any directory names are omitted. */)
587 return Fcopy_sequence (Vinvocation_name);
590 DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory,
591 0, 0, 0,
592 doc: /* Return the directory name in which the Emacs executable was located. */)
595 return Fcopy_sequence (Vinvocation_directory);
599 #ifdef VMS
600 #ifdef LINK_CRTL_SHARE
601 #ifdef SHARABLE_LIB_BUG
602 extern noshare char **environ;
603 #endif /* SHARABLE_LIB_BUG */
604 #endif /* LINK_CRTL_SHARE */
605 #endif /* VMS */
607 #ifdef HAVE_TZSET
608 /* A valid but unlikely value for the TZ environment value.
609 It is OK (though a bit slower) if the user actually chooses this value. */
610 static char dump_tz[] = "UtC0";
611 #endif
613 #ifndef ORDINARY_LINK
614 /* We don't include crtbegin.o and crtend.o in the link,
615 so these functions and variables might be missed.
616 Provide dummy definitions to avoid error.
617 (We don't have any real constructors or destructors.) */
618 #ifdef __GNUC__
619 #ifndef GCC_CTORS_IN_LIBC
620 void __do_global_ctors ()
622 void __do_global_ctors_aux ()
624 void __do_global_dtors ()
626 /* GNU/Linux has a bug in its library; avoid an error. */
627 #ifndef GNU_LINUX
628 char * __CTOR_LIST__[2] = { (char *) (-1), 0 };
629 #endif
630 char * __DTOR_LIST__[2] = { (char *) (-1), 0 };
631 #endif /* GCC_CTORS_IN_LIBC */
632 void __main ()
634 #endif /* __GNUC__ */
635 #endif /* ORDINARY_LINK */
637 /* Test whether the next argument in ARGV matches SSTR or a prefix of
638 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
639 (the argument is supposed to have a value) store in *VALPTR either
640 the next argument or the portion of this one after the equal sign.
641 ARGV is read starting at position *SKIPPTR; this index is advanced
642 by the number of arguments used.
644 Too bad we can't just use getopt for all of this, but we don't have
645 enough information to do it right. */
647 static int
648 argmatch (argv, argc, sstr, lstr, minlen, valptr, skipptr)
649 char **argv;
650 int argc;
651 char *sstr;
652 char *lstr;
653 int minlen;
654 char **valptr;
655 int *skipptr;
657 char *p = NULL;
658 int arglen;
659 char *arg;
661 /* Don't access argv[argc]; give up in advance. */
662 if (argc <= *skipptr + 1)
663 return 0;
665 arg = argv[*skipptr+1];
666 if (arg == NULL)
667 return 0;
668 if (strcmp (arg, sstr) == 0)
670 if (valptr != NULL)
672 *valptr = argv[*skipptr+2];
673 *skipptr += 2;
675 else
676 *skipptr += 1;
677 return 1;
679 arglen = (valptr != NULL && (p = index (arg, '=')) != NULL
680 ? p - arg : strlen (arg));
681 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
682 return 0;
683 else if (valptr == NULL)
685 *skipptr += 1;
686 return 1;
688 else if (p != NULL)
690 *valptr = p+1;
691 *skipptr += 1;
692 return 1;
694 else if (argv[*skipptr+2] != NULL)
696 *valptr = argv[*skipptr+2];
697 *skipptr += 2;
698 return 1;
700 else
702 return 0;
706 #ifdef DOUG_LEA_MALLOC
708 /* malloc can be invoked even before main (e.g. by the dynamic
709 linker), so the dumped malloc state must be restored as early as
710 possible using this special hook. */
712 static void
713 malloc_initialize_hook ()
715 #ifndef USE_CRT_DLL
716 extern char **environ;
717 #endif
719 if (initialized)
721 if (!malloc_using_checking)
722 /* Work around a bug in glibc's malloc. MALLOC_CHECK_ must be
723 ignored if the heap to be restored was constructed without
724 malloc checking. Can't use unsetenv, since that calls malloc. */
726 char **p;
728 for (p = environ; p && *p; p++)
729 if (strncmp (*p, "MALLOC_CHECK_=", 14) == 0)
732 *p = p[1];
733 while (*++p);
734 break;
738 malloc_set_state (malloc_state_ptr);
739 #ifndef XMALLOC_OVERRUN_CHECK
740 free (malloc_state_ptr);
741 #endif
743 else
745 if (my_heap_start == 0)
746 my_heap_start = sbrk (0);
747 malloc_using_checking = getenv ("MALLOC_CHECK_") != NULL;
751 void (*__malloc_initialize_hook) () = malloc_initialize_hook;
753 #endif /* DOUG_LEA_MALLOC */
756 #define REPORT_EMACS_BUG_ADDRESS "bug-gnu-emacs@gnu.org"
757 #define REPORT_EMACS_BUG_PRETEST_ADDRESS "emacs-pretest-bug@gnu.org"
759 /* This function is used to determine an address to which bug report should
760 be sent. */
762 char *
763 bug_reporting_address ()
765 int count = 0;
766 Lisp_Object temp;
767 char *string;
769 temp = Fsymbol_value (intern ("emacs-version"));
771 /* When `emacs-version' is invalid, use normal address. */
772 if (!STRINGP(temp))
773 return REPORT_EMACS_BUG_ADDRESS;
775 string = SDATA (temp);
777 /* Count dots in `emacs-version'. */
778 while (*string)
780 if (*string == '.')
781 count++;
782 string++;
785 /* When `emacs-version' has at least three dots, it is development or
786 pretest version of Emacs. */
787 return count >= 3 ? REPORT_EMACS_BUG_PRETEST_ADDRESS : REPORT_EMACS_BUG_ADDRESS;
790 #ifdef USE_FONT_BACKEND
791 extern int enable_font_backend;
792 #endif /* USE_FONT_BACKEND */
794 /* ARGSUSED */
796 main (argc, argv
797 #ifdef VMS
798 , envp
799 #endif
801 int argc;
802 char **argv;
803 #ifdef VMS
804 char **envp;
805 #endif
807 #if GC_MARK_STACK
808 Lisp_Object dummy;
809 #endif
810 char stack_bottom_variable;
811 int do_initial_setlocale;
812 int skip_args = 0;
813 #ifndef USE_CRT_DLL
814 extern int errno;
815 #endif
816 #ifdef HAVE_SETRLIMIT
817 struct rlimit rlim;
818 #endif
819 int no_loadup = 0;
820 char *junk = 0;
822 #if GC_MARK_STACK
823 extern Lisp_Object *stack_base;
824 stack_base = &dummy;
825 #endif
827 if (!initialized)
829 extern char my_endbss[];
830 extern char *my_endbss_static;
832 if (my_heap_start == 0)
833 my_heap_start = sbrk (0);
835 heap_bss_diff = (char *)my_heap_start - max (my_endbss, my_endbss_static);
838 #ifdef LINUX_SBRK_BUG
839 __sbrk (1);
840 #endif
842 #ifdef RUN_TIME_REMAP
843 if (initialized)
844 run_time_remap (argv[0]);
845 #endif
847 #ifdef MAC_OSX
848 if (!initialized)
849 unexec_init_emacs_zone ();
850 #endif
852 sort_args (argc, argv);
853 argc = 0;
854 while (argv[argc]) argc++;
856 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args)
857 /* We don't know the version number unless this is a dumped Emacs.
858 So ignore --version otherwise. */
859 && initialized)
861 Lisp_Object tem, tem2;
862 tem = Fsymbol_value (intern ("emacs-version"));
863 tem2 = Fsymbol_value (intern ("emacs-copyright"));
864 if (!STRINGP (tem))
866 fprintf (stderr, "Invalid value of `emacs-version'\n");
867 exit (1);
869 if (!STRINGP (tem2))
871 fprintf (stderr, "Invalid value of `emacs-copyright'\n");
872 exit (1);
874 else
876 printf ("GNU Emacs %s\n", SDATA (tem));
877 printf ("%s\n", SDATA(tem2));
878 printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n");
879 printf ("You may redistribute copies of Emacs\n");
880 printf ("under the terms of the GNU General Public License.\n");
881 printf ("For more information about these matters, ");
882 printf ("see the file named COPYING.\n");
883 exit (0);
887 #ifdef HAVE_PERSONALITY_LINUX32
888 /* See if there is a gap between the end of BSS and the heap.
889 In that case, set personality and exec ourself again. */
890 if (!initialized
891 && (strcmp (argv[argc-1], "dump") == 0
892 || strcmp (argv[argc-1], "bootstrap") == 0)
893 && heap_bss_diff > MAX_HEAP_BSS_DIFF)
895 if (! getenv ("EMACS_HEAP_EXEC"))
897 /* Set this so we only do this once. */
898 putenv("EMACS_HEAP_EXEC=true");
900 /* A flag to turn off address randomization which is introduced
901 in linux kernel shipped with fedora core 4 */
902 #define ADD_NO_RANDOMIZE 0x0040000
903 personality (PER_LINUX32 | ADD_NO_RANDOMIZE);
904 #undef ADD_NO_RANDOMIZE
906 execvp (argv[0], argv);
908 /* If the exec fails, try to dump anyway. */
909 perror ("execvp");
912 #endif /* HAVE_PERSONALITY_LINUX32 */
915 /* Map in shared memory, if we are using that. */
916 #ifdef HAVE_SHM
917 if (argmatch (argv, argc, "-nl", "--no-shared-memory", 6, NULL, &skip_args))
919 map_in_data (0);
920 /* The shared memory was just restored, which clobbered this. */
921 skip_args = 1;
923 else
925 map_in_data (1);
926 /* The shared memory was just restored, which clobbered this. */
927 skip_args = 0;
929 #endif
931 #ifdef NeXT
933 extern int malloc_cookie;
934 /* This helps out unexnext.c. */
935 if (initialized)
936 if (malloc_jumpstart (malloc_cookie) != 0)
937 printf ("malloc jumpstart failed!\n");
939 #endif /* NeXT */
941 #ifdef MAC_OSX
942 /* Skip process serial number passed in the form -psn_x_y as
943 command-line argument. The WindowServer adds this option when
944 Emacs is invoked from the Finder or by the `open' command. In
945 these cases, the working directory becomes `/', so we change it
946 to the user's home directory. */
947 if (argc > skip_args + 1 && strncmp (argv[skip_args+1], "-psn_", 5) == 0)
949 chdir (getenv ("HOME"));
950 skip_args++;
952 #endif /* MAC_OSX */
954 #ifdef VMS
955 /* If -map specified, map the data file in. */
957 char *file;
958 if (argmatch (argv, argc, "-map", "--map-data", 3, &file, &skip_args))
959 mapin_data (file);
962 #ifdef LINK_CRTL_SHARE
963 #ifdef SHARABLE_LIB_BUG
964 /* Bletcherous shared libraries! */
965 if (!stdin)
966 stdin = fdopen (0, "r");
967 if (!stdout)
968 stdout = fdopen (1, "w");
969 if (!stderr)
970 stderr = fdopen (2, "w");
971 if (!environ)
972 environ = envp;
973 #endif /* SHARABLE_LIB_BUG */
974 #endif /* LINK_CRTL_SHARE */
975 #endif /* VMS */
977 #if defined (HAVE_SETRLIMIT) && defined (RLIMIT_STACK)
978 /* Extend the stack space available.
979 Don't do that if dumping, since some systems (e.g. DJGPP)
980 might define a smaller stack limit at that time. */
981 if (1
982 #ifndef CANNOT_DUMP
983 && (!noninteractive || initialized)
984 #endif
985 && !getrlimit (RLIMIT_STACK, &rlim))
987 long newlim;
988 extern size_t re_max_failures;
989 /* Approximate the amount regex.c needs per unit of re_max_failures. */
990 int ratio = 20 * sizeof (char *);
991 /* Then add 33% to cover the size of the smaller stacks that regex.c
992 successively allocates and discards, on its way to the maximum. */
993 ratio += ratio / 3;
994 /* Add in some extra to cover
995 what we're likely to use for other reasons. */
996 newlim = re_max_failures * ratio + 200000;
997 #ifdef __NetBSD__
998 /* NetBSD (at least NetBSD 1.2G and former) has a bug in its
999 stack allocation routine for new process that the allocation
1000 fails if stack limit is not on page boundary. So, round up the
1001 new limit to page boundary. */
1002 newlim = (newlim + getpagesize () - 1) / getpagesize () * getpagesize();
1003 #endif
1004 if (newlim > rlim.rlim_max)
1006 newlim = rlim.rlim_max;
1007 /* Don't let regex.c overflow the stack we have. */
1008 re_max_failures = (newlim - 200000) / ratio;
1010 if (rlim.rlim_cur < newlim)
1011 rlim.rlim_cur = newlim;
1013 setrlimit (RLIMIT_STACK, &rlim);
1015 #endif /* HAVE_SETRLIMIT and RLIMIT_STACK */
1017 /* Record (approximately) where the stack begins. */
1018 stack_bottom = &stack_bottom_variable;
1020 #ifdef USG_SHARED_LIBRARIES
1021 if (bss_end)
1022 brk ((void *)bss_end);
1023 #endif
1025 clearerr (stdin);
1027 #ifndef SYSTEM_MALLOC
1028 /* Arrange to get warning messages as memory fills up. */
1029 memory_warnings (0, malloc_warning);
1031 /* Call malloc at least once, to run the initial __malloc_hook.
1032 Also call realloc and free for consistency. */
1033 free (realloc (malloc (4), 4));
1035 # ifndef SYNC_INPUT
1036 /* Arrange to disable interrupt input inside malloc etc. */
1037 uninterrupt_malloc ();
1038 # endif /* not SYNC_INPUT */
1039 #endif /* not SYSTEM_MALLOC */
1041 #ifdef HAVE_GTK_AND_PTHREAD
1042 main_thread = pthread_self ();
1043 #endif /* HAVE_GTK_AND_PTHREAD */
1045 #if defined (MSDOS) || defined (WINDOWSNT)
1046 /* We do all file input/output as binary files. When we need to translate
1047 newlines, we do that manually. */
1048 _fmode = O_BINARY;
1049 #endif /* MSDOS || WINDOWSNT */
1051 #ifdef MSDOS
1052 #if __DJGPP__ >= 2
1053 if (!isatty (fileno (stdin)))
1054 setmode (fileno (stdin), O_BINARY);
1055 if (!isatty (fileno (stdout)))
1057 fflush (stdout);
1058 setmode (fileno (stdout), O_BINARY);
1060 #else /* not __DJGPP__ >= 2 */
1061 (stdin)->_flag &= ~_IOTEXT;
1062 (stdout)->_flag &= ~_IOTEXT;
1063 (stderr)->_flag &= ~_IOTEXT;
1064 #endif /* not __DJGPP__ >= 2 */
1065 #endif /* MSDOS */
1067 #ifdef SET_EMACS_PRIORITY
1068 if (emacs_priority)
1069 nice (emacs_priority);
1070 setuid (getuid ());
1071 #endif /* SET_EMACS_PRIORITY */
1073 /* Skip initial setlocale if LC_ALL is "C", as it's not needed in that case.
1074 The build procedure uses this while dumping, to ensure that the
1075 dumped Emacs does not have its system locale tables initialized,
1076 as that might cause screwups when the dumped Emacs starts up. */
1078 char *lc_all = getenv ("LC_ALL");
1079 do_initial_setlocale = ! lc_all || strcmp (lc_all, "C");
1082 /* Set locale now, so that initial error messages are localized properly.
1083 fixup_locale must wait until later, since it builds strings. */
1084 if (do_initial_setlocale)
1085 setlocale (LC_ALL, "");
1087 inhibit_window_system = 0;
1089 /* Handle the -t switch, which specifies filename to use as terminal. */
1090 while (1)
1092 char *term;
1093 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
1095 int result;
1096 emacs_close (0);
1097 emacs_close (1);
1098 result = emacs_open (term, O_RDWR, 0);
1099 if (result < 0)
1101 char *errstring = strerror (errno);
1102 fprintf (stderr, "%s: %s: %s\n", argv[0], term, errstring);
1103 exit (1);
1105 dup (0);
1106 if (! isatty (0))
1108 fprintf (stderr, "%s: %s: not a tty\n", argv[0], term);
1109 exit (1);
1111 fprintf (stderr, "Using %s\n", term);
1112 #ifdef HAVE_WINDOW_SYSTEM
1113 inhibit_window_system = 1; /* -t => -nw */
1114 #endif
1116 else
1117 break;
1120 /* Command line option --no-windows is deprecated and thus not mentioned
1121 in the manual and usage informations. */
1122 if (argmatch (argv, argc, "-nw", "--no-window-system", 6, NULL, &skip_args)
1123 || argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
1124 inhibit_window_system = 1;
1126 /* Handle the -batch switch, which means don't do interactive display. */
1127 noninteractive = 0;
1128 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
1130 noninteractive = 1;
1131 Vundo_outer_limit = Qnil;
1133 if (argmatch (argv, argc, "-script", "--script", 3, &junk, &skip_args))
1135 noninteractive = 1; /* Set batch mode. */
1136 /* Convert --script to --scriptload, un-skip it, and sort again
1137 so that it will be handled in proper sequence. */
1138 argv[skip_args - 1] = "-scriptload";
1139 skip_args -= 2;
1140 sort_args (argc, argv);
1143 /* Handle the --help option, which gives a usage message. */
1144 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
1146 printf (USAGE1, argv[0], USAGE2);
1147 printf (USAGE3);
1148 printf (USAGE4, bug_reporting_address ());
1149 exit (0);
1152 if (! noninteractive)
1154 #ifdef BSD_PGRPS
1155 if (initialized)
1157 inherited_pgroup = EMACS_GETPGRP (0);
1158 setpgrp (0, getpid ());
1160 #else
1161 #if defined (USG5) && defined (INTERRUPT_INPUT)
1162 setpgrp ();
1163 #endif
1164 #endif
1165 #if defined (HAVE_GTK_AND_PTHREAD) && !defined (SYSTEM_MALLOC) && !defined (DOUG_LEA_MALLOC)
1167 extern void malloc_enable_thread P_ ((void));
1169 malloc_enable_thread ();
1171 #endif
1174 init_signals ();
1176 /* Don't catch SIGHUP if dumping. */
1177 if (1
1178 #ifndef CANNOT_DUMP
1179 && initialized
1180 #endif
1183 sigblock (sigmask (SIGHUP));
1184 /* In --batch mode, don't catch SIGHUP if already ignored.
1185 That makes nohup work. */
1186 if (! noninteractive
1187 || signal (SIGHUP, SIG_IGN) != SIG_IGN)
1188 signal (SIGHUP, fatal_error_signal);
1189 sigunblock (sigmask (SIGHUP));
1192 if (
1193 #ifndef CANNOT_DUMP
1194 ! noninteractive || initialized
1195 #else
1197 #endif
1200 /* Don't catch these signals in batch mode if dumping.
1201 On some machines, this sets static data that would make
1202 signal fail to work right when the dumped Emacs is run. */
1203 signal (SIGQUIT, fatal_error_signal);
1204 signal (SIGILL, fatal_error_signal);
1205 signal (SIGTRAP, fatal_error_signal);
1206 #ifdef SIGUSR1
1207 add_user_signal (SIGUSR1, "sigusr1");
1208 #endif
1209 #ifdef SIGUSR2
1210 add_user_signal (SIGUSR2, "sigusr2");
1211 #endif
1212 #ifdef SIGABRT
1213 signal (SIGABRT, fatal_error_signal);
1214 #endif
1215 #ifdef SIGHWE
1216 signal (SIGHWE, fatal_error_signal);
1217 #endif
1218 #ifdef SIGPRE
1219 signal (SIGPRE, fatal_error_signal);
1220 #endif
1221 #ifdef SIGORE
1222 signal (SIGORE, fatal_error_signal);
1223 #endif
1224 #ifdef SIGUME
1225 signal (SIGUME, fatal_error_signal);
1226 #endif
1227 #ifdef SIGDLK
1228 signal (SIGDLK, fatal_error_signal);
1229 #endif
1230 #ifdef SIGCPULIM
1231 signal (SIGCPULIM, fatal_error_signal);
1232 #endif
1233 #ifdef SIGIOT
1234 /* This is missing on some systems - OS/2, for example. */
1235 signal (SIGIOT, fatal_error_signal);
1236 #endif
1237 #ifdef SIGEMT
1238 signal (SIGEMT, fatal_error_signal);
1239 #endif
1240 signal (SIGFPE, fatal_error_signal);
1241 #ifdef SIGBUS
1242 signal (SIGBUS, fatal_error_signal);
1243 #endif
1244 signal (SIGSEGV, fatal_error_signal);
1245 #ifdef SIGSYS
1246 signal (SIGSYS, fatal_error_signal);
1247 #endif
1248 signal (SIGTERM, fatal_error_signal);
1249 #ifdef SIGXCPU
1250 signal (SIGXCPU, fatal_error_signal);
1251 #endif
1252 #ifdef SIGXFSZ
1253 signal (SIGXFSZ, fatal_error_signal);
1254 #endif /* SIGXFSZ */
1256 #ifdef SIGDANGER
1257 /* This just means available memory is getting low. */
1258 signal (SIGDANGER, memory_warning_signal);
1259 #endif
1261 #ifdef AIX
1262 /* 20 is SIGCHLD, 21 is SIGTTIN, 22 is SIGTTOU. */
1263 signal (SIGXCPU, fatal_error_signal);
1264 #ifndef _I386
1265 signal (SIGIOINT, fatal_error_signal);
1266 #endif
1267 signal (SIGGRANT, fatal_error_signal);
1268 signal (SIGRETRACT, fatal_error_signal);
1269 signal (SIGSOUND, fatal_error_signal);
1270 signal (SIGMSG, fatal_error_signal);
1271 #endif /* AIX */
1274 noninteractive1 = noninteractive;
1276 /* Perform basic initializations (not merely interning symbols). */
1278 if (!initialized)
1280 init_alloc_once ();
1281 init_obarray ();
1282 init_eval_once ();
1283 init_character_once ();
1284 init_charset_once ();
1285 init_coding_once ();
1286 init_syntax_once (); /* Create standard syntax table. */
1287 init_category_once (); /* Create standard category table. */
1288 /* Must be done before init_buffer. */
1289 init_casetab_once ();
1290 init_buffer_once (); /* Create buffer table and some buffers. */
1291 init_minibuf_once (); /* Create list of minibuffers. */
1292 /* Must precede init_window_once. */
1294 /* Call syms_of_xfaces before init_window_once because that
1295 function creates Vterminal_frame. Termcap frames now use
1296 faces, and the face implementation uses some symbols as
1297 face names. */
1298 syms_of_xfaces ();
1299 /* XXX syms_of_keyboard uses some symbols in keymap.c. It would
1300 be better to arrange things not to have this dependency. */
1301 syms_of_keymap ();
1302 /* Call syms_of_keyboard before init_window_once because
1303 keyboard sets up symbols that include some face names that
1304 the X support will want to use. This can happen when
1305 CANNOT_DUMP is defined. */
1306 syms_of_keyboard ();
1308 #ifdef MAC_OS8
1309 /* init_window_once calls make_terminal_frame which on Mac OS
1310 creates a full-fledge output_mac type frame. This does not
1311 work correctly before syms_of_textprop, syms_of_macfns,
1312 syms_of_ccl, syms_of_fontset, syms_of_xterm, syms_of_search,
1313 syms_of_frame, mac_term_init, and init_keyboard have already
1314 been called. */
1315 syms_of_textprop ();
1316 syms_of_macfns ();
1317 syms_of_ccl ();
1318 syms_of_fontset ();
1319 syms_of_macterm ();
1320 syms_of_macmenu ();
1321 syms_of_macselect ();
1322 syms_of_search ();
1323 syms_of_frame ();
1325 init_atimer ();
1326 mac_term_init (build_string ("Mac"), NULL, NULL);
1327 init_keyboard ();
1328 #endif
1329 /* Called before syms_of_fileio, because it sets up Qerror_condition. */
1330 syms_of_data ();
1331 syms_of_fileio ();
1332 /* Before syms_of_coding to initialize Vgc_cons_threshold. */
1333 syms_of_alloc ();
1334 /* Before syms_of_coding because it initializes Qcharsetp. */
1335 syms_of_charset ();
1336 /* Before init_window_once, because it sets up the
1337 Vcoding_system_hash_table. */
1338 syms_of_coding (); /* This should be after syms_of_fileio. */
1340 init_window_once (); /* Init the window system. */
1341 init_fileio_once (); /* Must precede any path manipulation. */
1342 #ifdef HAVE_WINDOW_SYSTEM
1343 init_fringe_once (); /* Swap bitmaps if necessary. */
1344 #endif /* HAVE_WINDOW_SYSTEM */
1347 init_alloc ();
1349 if (do_initial_setlocale)
1351 fixup_locale ();
1352 Vsystem_messages_locale = Vprevious_system_messages_locale;
1353 Vsystem_time_locale = Vprevious_system_time_locale;
1356 init_eval ();
1357 init_data ();
1358 #ifdef CLASH_DETECTION
1359 init_filelock ();
1360 #endif
1361 init_atimer ();
1362 running_asynch_code = 0;
1364 /* Handle --unibyte and the EMACS_UNIBYTE envvar,
1365 but not while dumping. */
1366 if (1)
1368 int inhibit_unibyte = 0;
1370 /* --multibyte overrides EMACS_UNIBYTE. */
1371 if (argmatch (argv, argc, "-no-unibyte", "--no-unibyte", 4, NULL, &skip_args)
1372 || argmatch (argv, argc, "-multibyte", "--multibyte", 4, NULL, &skip_args)
1373 /* Ignore EMACS_UNIBYTE before dumping. */
1374 || (!initialized && noninteractive))
1375 inhibit_unibyte = 1;
1377 /* --unibyte requests that we set up to do everything with single-byte
1378 buffers and strings. We need to handle this before calling
1379 init_lread, init_editfns and other places that generate Lisp strings
1380 from text in the environment. */
1381 /* Actually this shouldn't be needed as of 20.4 in a generally
1382 unibyte environment. As handa says, environment values
1383 aren't now decoded; also existing buffers are now made
1384 unibyte during startup if .emacs sets unibyte. Tested with
1385 8-bit data in environment variables and /etc/passwd, setting
1386 unibyte and Latin-1 in .emacs. -- Dave Love */
1387 if (argmatch (argv, argc, "-unibyte", "--unibyte", 4, NULL, &skip_args)
1388 || argmatch (argv, argc, "-no-multibyte", "--no-multibyte", 4, NULL, &skip_args)
1389 || (getenv ("EMACS_UNIBYTE") && !inhibit_unibyte))
1391 Lisp_Object old_log_max;
1392 Lisp_Object symbol, tail;
1394 symbol = intern ("default-enable-multibyte-characters");
1395 Fset (symbol, Qnil);
1397 if (initialized)
1399 /* Erase pre-dump messages in *Messages* now so no abort. */
1400 old_log_max = Vmessage_log_max;
1401 XSETFASTINT (Vmessage_log_max, 0);
1402 message_dolog ("", 0, 1, 0);
1403 Vmessage_log_max = old_log_max;
1406 for (tail = Vbuffer_alist; CONSP (tail);
1407 tail = XCDR (tail))
1409 Lisp_Object buffer;
1411 buffer = Fcdr (XCAR (tail));
1412 /* Make a multibyte buffer unibyte. */
1413 if (BUF_Z_BYTE (XBUFFER (buffer)) > BUF_Z (XBUFFER (buffer)))
1415 struct buffer *current = current_buffer;
1417 set_buffer_temp (XBUFFER (buffer));
1418 Fset_buffer_multibyte (Qnil);
1419 set_buffer_temp (current);
1425 no_loadup
1426 = argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args);
1428 #ifdef USE_FONT_BACKEND
1429 enable_font_backend = 1;
1430 if (argmatch (argv, argc, "-enable-font-backend", "--enable-font-backend",
1431 4, NULL, &skip_args))
1432 enable_font_backend = 1;
1433 else if (argmatch (argv, argc,
1434 "-disable-font-backend", "--disable-font-backend",
1435 4, NULL, &skip_args))
1436 enable_font_backend = 0;
1437 #endif /* USE_FONT_BACKEND */
1439 #ifdef HAVE_X_WINDOWS
1440 /* Stupid kludge to catch command-line display spec. We can't
1441 handle this argument entirely in window system dependent code
1442 because we don't even know which window system dependent code
1443 to run until we've recognized this argument. */
1445 char *displayname = 0;
1446 int count_before = skip_args;
1448 /* Skip any number of -d options, but only use the last one. */
1449 while (1)
1451 int count_before_this = skip_args;
1453 if (argmatch (argv, argc, "-d", "--display", 3, &displayname, &skip_args))
1454 display_arg = 1;
1455 else if (argmatch (argv, argc, "-display", 0, 3, &displayname, &skip_args))
1456 display_arg = 1;
1457 else
1458 break;
1460 count_before = count_before_this;
1463 /* If we have the form --display=NAME,
1464 convert it into -d name.
1465 This requires inserting a new element into argv. */
1466 if (displayname != 0 && skip_args - count_before == 1)
1468 char **new = (char **) xmalloc (sizeof (char *) * (argc + 2));
1469 int j;
1471 for (j = 0; j < count_before + 1; j++)
1472 new[j] = argv[j];
1473 new[count_before + 1] = "-d";
1474 new[count_before + 2] = displayname;
1475 for (j = count_before + 2; j <argc; j++)
1476 new[j + 1] = argv[j];
1477 argv = new;
1478 argc++;
1480 /* Change --display to -d, when its arg is separate. */
1481 else if (displayname != 0 && skip_args > count_before
1482 && argv[count_before + 1][1] == '-')
1483 argv[count_before + 1] = "-d";
1485 /* Don't actually discard this arg. */
1486 skip_args = count_before;
1488 #endif
1490 /* argmatch must not be used after here,
1491 except when bulding temacs
1492 because the -d argument has not been skipped in skip_args. */
1494 #ifdef MSDOS
1495 /* Call early 'cause init_environment needs it. */
1496 init_dosfns ();
1497 /* Set defaults for several environment variables. */
1498 if (initialized)
1499 init_environment (argc, argv, skip_args);
1500 else
1501 tzset ();
1502 #endif /* MSDOS */
1504 #ifdef WINDOWSNT
1505 globals_of_w32 ();
1506 /* Initialize environment from registry settings. */
1507 init_environment (argv);
1508 init_ntproc (); /* must precede init_editfns. */
1509 #endif
1511 #if defined (MAC_OSX) && defined (HAVE_CARBON)
1512 if (initialized)
1513 init_mac_osx_environment ();
1514 #endif
1516 /* egetenv is a pretty low-level facility, which may get called in
1517 many circumstances; it seems flimsy to put off initializing it
1518 until calling init_callproc. */
1519 set_initial_environment ();
1520 /* AIX crashes are reported in system versions 3.2.3 and 3.2.4
1521 if this is not done. Do it after set_global_environment so that we
1522 don't pollute Vglobal_environment. */
1523 /* Setting LANG here will defeat the startup locale processing... */
1524 #ifdef AIX3_2
1525 putenv ("LANG=C");
1526 #endif
1528 init_buffer (); /* Init default directory of main buffer. */
1530 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */
1531 init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */
1533 if (initialized)
1535 /* Erase any pre-dump messages in the message log, to avoid confusion. */
1536 Lisp_Object old_log_max;
1537 old_log_max = Vmessage_log_max;
1538 XSETFASTINT (Vmessage_log_max, 0);
1539 message_dolog ("", 0, 1, 0);
1540 Vmessage_log_max = old_log_max;
1543 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */
1544 init_lread ();
1546 /* Intern the names of all standard functions and variables;
1547 define standard keys. */
1549 if (!initialized)
1551 /* The basic levels of Lisp must come first. */
1552 /* And data must come first of all
1553 for the sake of symbols like error-message. */
1554 /* Called before init_window_once for Mac OS Classic. */
1555 syms_of_data ();
1556 syms_of_chartab ();
1557 syms_of_lread ();
1558 syms_of_print ();
1559 syms_of_eval ();
1560 syms_of_fns ();
1561 syms_of_floatfns ();
1563 syms_of_buffer ();
1564 syms_of_bytecode ();
1565 syms_of_callint ();
1566 syms_of_casefiddle ();
1567 syms_of_casetab ();
1568 syms_of_callproc ();
1569 syms_of_category ();
1570 syms_of_ccl ();
1571 syms_of_character ();
1572 syms_of_cmds ();
1573 #ifndef NO_DIR_LIBRARY
1574 syms_of_dired ();
1575 #endif /* not NO_DIR_LIBRARY */
1576 syms_of_display ();
1577 syms_of_doc ();
1578 syms_of_editfns ();
1579 syms_of_emacs ();
1580 #ifdef CLASH_DETECTION
1581 syms_of_filelock ();
1582 #endif /* CLASH_DETECTION */
1583 syms_of_indent ();
1584 syms_of_insdel ();
1585 /* syms_of_keymap (); */
1586 syms_of_macros ();
1587 syms_of_marker ();
1588 syms_of_minibuf ();
1589 syms_of_process ();
1590 syms_of_search ();
1591 syms_of_frame ();
1592 syms_of_syntax ();
1593 syms_of_terminal ();
1594 syms_of_term ();
1595 syms_of_undo ();
1596 #ifdef HAVE_SOUND
1597 syms_of_sound ();
1598 #endif
1599 syms_of_textprop ();
1600 syms_of_composite ();
1601 #ifdef VMS
1602 syms_of_vmsproc ();
1603 #endif /* VMS */
1604 #ifdef WINDOWSNT
1605 syms_of_ntproc ();
1606 #endif /* WINDOWSNT */
1607 syms_of_window ();
1608 syms_of_xdisp ();
1609 #ifdef HAVE_WINDOW_SYSTEM
1610 syms_of_font ();
1611 syms_of_fringe ();
1612 syms_of_image ();
1613 #endif /* HAVE_WINDOW_SYSTEM */
1614 #ifdef HAVE_X_WINDOWS
1615 syms_of_xterm ();
1616 syms_of_xfns ();
1617 syms_of_fontset ();
1618 #ifdef HAVE_X_SM
1619 syms_of_xsmfns ();
1620 #endif
1621 #ifdef HAVE_X11
1622 syms_of_xselect ();
1623 #endif
1624 #endif /* HAVE_X_WINDOWS */
1626 #ifndef HAVE_NTGUI
1627 #ifndef MAC_OS
1628 /* Called before init_window_once for Mac OS Classic. */
1629 syms_of_xmenu ();
1630 #endif
1631 #endif
1633 #ifdef HAVE_NTGUI
1634 syms_of_w32term ();
1635 syms_of_w32fns ();
1636 syms_of_w32select ();
1637 syms_of_w32menu ();
1638 syms_of_fontset ();
1639 #endif /* HAVE_NTGUI */
1641 #if defined (MAC_OSX) && defined (HAVE_CARBON)
1642 syms_of_macterm ();
1643 syms_of_macfns ();
1644 syms_of_macmenu ();
1645 syms_of_macselect ();
1646 syms_of_fontset ();
1647 #endif /* MAC_OSX && HAVE_CARBON */
1649 #ifdef HAVE_DBUS
1650 syms_of_dbusbind ();
1651 #endif /* HAVE_DBUS */
1653 #ifdef SYMS_SYSTEM
1654 SYMS_SYSTEM;
1655 #endif
1657 #ifdef SYMS_MACHINE
1658 SYMS_MACHINE;
1659 #endif
1661 keys_of_casefiddle ();
1662 keys_of_cmds ();
1663 keys_of_buffer ();
1664 keys_of_keyboard ();
1665 keys_of_keymap ();
1666 keys_of_minibuf ();
1667 keys_of_window ();
1669 else
1671 /* Initialization that must be done even if the global variable
1672 initialized is non zero. */
1673 #ifdef HAVE_NTGUI
1674 globals_of_w32fns ();
1675 globals_of_w32menu ();
1676 globals_of_w32select ();
1677 #endif /* HAVE_NTGUI */
1680 init_charset ();
1682 init_editfns (); /* init_process uses Voperating_system_release. */
1683 init_process (); /* init_display uses add_keyboard_wait_descriptor. */
1684 init_keyboard (); /* This too must precede init_sys_modes. */
1685 #ifdef VMS
1686 init_vmsproc (); /* And this too. */
1687 #endif /* VMS */
1688 if (!noninteractive)
1690 #ifdef VMS
1691 init_vms_input ();/* init_display calls get_tty_size, that needs this. */
1692 #endif /* VMS */
1693 init_display (); /* Determine terminal type. Calls init_sys_modes. */
1695 init_fns ();
1696 init_xdisp ();
1697 #ifdef HAVE_WINDOW_SYSTEM
1698 init_fringe ();
1699 init_image ();
1700 #endif /* HAVE_WINDOW_SYSTEM */
1701 init_macros ();
1702 init_floatfns ();
1703 #ifdef VMS
1704 init_vmsfns ();
1705 #endif /* VMS */
1706 #ifdef HAVE_SOUND
1707 init_sound ();
1708 #endif
1709 init_window ();
1711 if (!initialized)
1713 char *file;
1714 /* Handle -l loadup, args passed by Makefile. */
1715 if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args))
1716 Vtop_level = Fcons (intern ("load"),
1717 Fcons (build_string (file), Qnil));
1718 /* Unless next switch is -nl, load "loadup.el" first thing. */
1719 if (! no_loadup)
1720 Vtop_level = Fcons (intern ("load"),
1721 Fcons (build_string ("loadup.el"), Qnil));
1724 if (initialized)
1726 #ifdef HAVE_TZSET
1728 /* If the execution TZ happens to be the same as the dump TZ,
1729 change it to some other value and then change it back,
1730 to force the underlying implementation to reload the TZ info.
1731 This is needed on implementations that load TZ info from files,
1732 since the TZ file contents may differ between dump and execution. */
1733 char *tz = getenv ("TZ");
1734 if (tz && !strcmp (tz, dump_tz))
1736 ++*tz;
1737 tzset ();
1738 --*tz;
1741 #endif
1744 /* Set up for profiling. This is known to work on FreeBSD,
1745 GNU/Linux and MinGW. It might work on some other systems too.
1746 Give it a try and tell us if it works on your system. To compile
1747 for profiling, add -pg to the switches your platform uses in
1748 CFLAGS and LDFLAGS. For example:
1749 `make CFLAGS="-pg -g -O -DPROFILING=1" LDFLAGS="-pg -g"'. */
1750 #if defined (__FreeBSD__) || defined (GNU_LINUX) || defined(__MINGW32__)
1751 #ifdef PROFILING
1752 if (initialized)
1754 extern void _mcleanup ();
1755 #ifdef __MINGW32__
1756 extern unsigned char etext asm ("etext");
1757 #else
1758 extern char etext;
1759 #endif
1760 extern void safe_bcopy ();
1761 extern void dump_opcode_frequencies ();
1763 atexit (_mcleanup);
1764 /* This uses safe_bcopy because that function comes first in the
1765 Emacs executable. It might be better to use something that
1766 gives the start of the text segment, but start_of_text is not
1767 defined on all systems now. */
1768 monstartup (safe_bcopy, &etext);
1770 else
1771 moncontrol (0);
1772 #endif
1773 #endif
1775 initialized = 1;
1777 #ifdef LOCALTIME_CACHE
1778 /* Some versions of localtime have a bug. They cache the value of the time
1779 zone rather than looking it up every time. Since localtime() is
1780 called to bolt the undumping time into the undumped emacs, this
1781 results in localtime ignoring the TZ environment variable.
1782 This flushes the new TZ value into localtime. */
1783 tzset ();
1784 #endif /* defined (LOCALTIME_CACHE) */
1786 /* Enter editor command loop. This never returns. */
1787 Frecursive_edit ();
1788 /* NOTREACHED */
1789 return 0;
1792 /* Sort the args so we can find the most important ones
1793 at the beginning of argv. */
1795 /* First, here's a table of all the standard options. */
1797 struct standard_args
1799 char *name;
1800 char *longname;
1801 int priority;
1802 int nargs;
1805 struct standard_args standard_args[] =
1807 { "-version", "--version", 150, 0 },
1808 #ifdef HAVE_SHM
1809 { "-nl", "--no-shared-memory", 140, 0 },
1810 #endif
1811 #ifdef VMS
1812 { "-map", "--map-data", 130, 0 },
1813 #endif
1814 { "-t", "--terminal", 120, 1 },
1815 { "-nw", "--no-window-system", 110, 0 },
1816 { "-nw", "--no-windows", 110, 0 },
1817 { "-batch", "--batch", 100, 0 },
1818 { "-script", "--script", 100, 1 },
1819 { "-help", "--help", 90, 0 },
1820 { "-no-unibyte", "--no-unibyte", 83, 0 },
1821 { "-multibyte", "--multibyte", 82, 0 },
1822 { "-unibyte", "--unibyte", 81, 0 },
1823 { "-no-multibyte", "--no-multibyte", 80, 0 },
1824 { "-nl", "--no-loadup", 70, 0 },
1825 { "-enable-font-backend", "--enable-font-backend", 65, 0 },
1826 { "-disable-font-backend", "--disable-font-backend", 65, 0 },
1827 /* -d must come last before the options handled in startup.el. */
1828 { "-d", "--display", 60, 1 },
1829 { "-display", 0, 60, 1 },
1830 /* Now for the options handled in startup.el. */
1831 { "-Q", "--quick", 55, 0 },
1832 { "-quick", 0, 55, 0 },
1833 { "-q", "--no-init-file", 50, 0 },
1834 { "-no-init-file", 0, 50, 0 },
1835 { "-no-site-file", "--no-site-file", 40, 0 },
1836 { "-u", "--user", 30, 1 },
1837 { "-user", 0, 30, 1 },
1838 { "-debug-init", "--debug-init", 20, 0 },
1839 { "-nbi", "--no-bitmap-icon", 15, 0 },
1840 { "-iconic", "--iconic", 15, 0 },
1841 { "-D", "--basic-display", 12, 0},
1842 { "-basic-display", 0, 12, 0},
1843 { "-bg", "--background-color", 10, 1 },
1844 { "-background", 0, 10, 1 },
1845 { "-fg", "--foreground-color", 10, 1 },
1846 { "-foreground", 0, 10, 1 },
1847 { "-bd", "--border-color", 10, 1 },
1848 { "-bw", "--border-width", 10, 1 },
1849 { "-ib", "--internal-border", 10, 1 },
1850 { "-ms", "--mouse-color", 10, 1 },
1851 { "-cr", "--cursor-color", 10, 1 },
1852 { "-nbc", "--no-blinking-cursor", 10, 0 },
1853 { "-fn", "--font", 10, 1 },
1854 { "-font", 0, 10, 1 },
1855 { "-fs", "--fullscreen", 10, 0 },
1856 { "-fw", "--fullwidth", 10, 0 },
1857 { "-fh", "--fullheight", 10, 0 },
1858 { "-g", "--geometry", 10, 1 },
1859 { "-geometry", 0, 10, 1 },
1860 { "-T", "--title", 10, 1 },
1861 { "-title", 0, 10, 1 },
1862 { "-name", "--name", 10, 1 },
1863 { "-xrm", "--xrm", 10, 1 },
1864 { "-parent-id", "--parent-id", 10, 1 },
1865 { "-r", "--reverse-video", 5, 0 },
1866 { "-rv", 0, 5, 0 },
1867 { "-reverse", 0, 5, 0 },
1868 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1869 { "-vb", "--vertical-scroll-bars", 5, 0 },
1870 { "-color", "--color", 5, 0},
1871 { "-no-splash", "--no-splash", 3, 0 },
1872 { "-no-desktop", "--no-desktop", 3, 0 },
1873 /* These have the same priority as ordinary file name args,
1874 so they are not reordered with respect to those. */
1875 { "-L", "--directory", 0, 1 },
1876 { "-directory", 0, 0, 1 },
1877 { "-l", "--load", 0, 1 },
1878 { "-load", 0, 0, 1 },
1879 { "-scriptload", "--scriptload", 0, 1 },
1880 { "-f", "--funcall", 0, 1 },
1881 { "-funcall", 0, 0, 1 },
1882 { "-eval", "--eval", 0, 1 },
1883 { "-execute", "--execute", 0, 1 },
1884 { "-find-file", "--find-file", 0, 1 },
1885 { "-visit", "--visit", 0, 1 },
1886 { "-file", "--file", 0, 1 },
1887 { "-insert", "--insert", 0, 1 },
1888 /* This should be processed after ordinary file name args and the like. */
1889 { "-kill", "--kill", -10, 0 },
1892 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1893 so that the highest priority ones come first.
1894 Do not change the order of elements of equal priority.
1895 If an option takes an argument, keep it and its argument together.
1897 If an option that takes no argument appears more
1898 than once, eliminate all but one copy of it. */
1900 static void
1901 sort_args (argc, argv)
1902 int argc;
1903 char **argv;
1905 char **new = (char **) xmalloc (sizeof (char *) * argc);
1906 /* For each element of argv,
1907 the corresponding element of options is:
1908 0 for an option that takes no arguments,
1909 1 for an option that takes one argument, etc.
1910 -1 for an ordinary non-option argument. */
1911 int *options = (int *) xmalloc (sizeof (int) * argc);
1912 int *priority = (int *) xmalloc (sizeof (int) * argc);
1913 int to = 1;
1914 int incoming_used = 1;
1915 int from;
1916 int i;
1918 /* Categorize all the options,
1919 and figure out which argv elts are option arguments. */
1920 for (from = 1; from < argc; from++)
1922 options[from] = -1;
1923 priority[from] = 0;
1924 if (argv[from][0] == '-')
1926 int match, thislen;
1927 char *equals;
1929 /* If we have found "--", don't consider
1930 any more arguments as options. */
1931 if (argv[from][1] == '-' && argv[from][2] == 0)
1933 /* Leave the "--", and everything following it, at the end. */
1934 for (; from < argc; from++)
1936 priority[from] = -100;
1937 options[from] = -1;
1939 break;
1942 /* Look for a match with a known old-fashioned option. */
1943 for (i = 0; i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1944 if (!strcmp (argv[from], standard_args[i].name))
1946 options[from] = standard_args[i].nargs;
1947 priority[from] = standard_args[i].priority;
1948 if (from + standard_args[i].nargs >= argc)
1949 fatal ("Option `%s' requires an argument\n", argv[from]);
1950 from += standard_args[i].nargs;
1951 goto done;
1954 /* Look for a match with a known long option.
1955 MATCH is -1 if no match so far, -2 if two or more matches so far,
1956 >= 0 (the table index of the match) if just one match so far. */
1957 if (argv[from][1] == '-')
1959 match = -1;
1960 thislen = strlen (argv[from]);
1961 equals = index (argv[from], '=');
1962 if (equals != 0)
1963 thislen = equals - argv[from];
1965 for (i = 0;
1966 i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1967 if (standard_args[i].longname
1968 && !strncmp (argv[from], standard_args[i].longname,
1969 thislen))
1971 if (match == -1)
1972 match = i;
1973 else
1974 match = -2;
1977 /* If we found exactly one match, use that. */
1978 if (match >= 0)
1980 options[from] = standard_args[match].nargs;
1981 priority[from] = standard_args[match].priority;
1982 /* If --OPTION=VALUE syntax is used,
1983 this option uses just one argv element. */
1984 if (equals != 0)
1985 options[from] = 0;
1986 if (from + options[from] >= argc)
1987 fatal ("Option `%s' requires an argument\n", argv[from]);
1988 from += options[from];
1991 done: ;
1995 /* Copy the arguments, in order of decreasing priority, to NEW. */
1996 new[0] = argv[0];
1997 while (incoming_used < argc)
1999 int best = -1;
2000 int best_priority = -9999;
2002 /* Find the highest priority remaining option.
2003 If several have equal priority, take the first of them. */
2004 for (from = 1; from < argc; from++)
2006 if (argv[from] != 0 && priority[from] > best_priority)
2008 best_priority = priority[from];
2009 best = from;
2011 /* Skip option arguments--they are tied to the options. */
2012 if (options[from] > 0)
2013 from += options[from];
2016 if (best < 0)
2017 abort ();
2019 /* Copy the highest priority remaining option, with its args, to NEW.
2020 Unless it is a duplicate of the previous one. */
2021 if (! (options[best] == 0
2022 && ! strcmp (new[to - 1], argv[best])))
2024 new[to++] = argv[best];
2025 for (i = 0; i < options[best]; i++)
2026 new[to++] = argv[best + i + 1];
2029 incoming_used += 1 + (options[best] > 0 ? options[best] : 0);
2031 /* Clear out this option in ARGV. */
2032 argv[best] = 0;
2033 for (i = 0; i < options[best]; i++)
2034 argv[best + i + 1] = 0;
2037 /* If duplicate options were deleted, fill up extra space with null ptrs. */
2038 while (to < argc)
2039 new[to++] = 0;
2041 bcopy (new, argv, sizeof (char *) * argc);
2043 xfree (options);
2044 xfree (new);
2045 xfree (priority);
2048 DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P",
2049 doc: /* Exit the Emacs job and kill it.
2050 If ARG is an integer, return ARG as the exit program code.
2051 If ARG is a string, stuff it as keyboard input.
2053 The value of `kill-emacs-hook', if not void,
2054 is a list of functions (of no args),
2055 all of which are called before Emacs is actually killed. */)
2056 (arg)
2057 Lisp_Object arg;
2059 struct gcpro gcpro1;
2061 GCPRO1 (arg);
2063 if (feof (stdin))
2064 arg = Qt;
2066 if (!NILP (Vrun_hooks) && !noninteractive)
2067 call1 (Vrun_hooks, intern ("kill-emacs-hook"));
2069 UNGCPRO;
2071 /* Is it really necessary to do this deassign
2072 when we are going to exit anyway? */
2073 /* #ifdef VMS
2074 stop_vms_input ();
2075 #endif */
2077 shut_down_emacs (0, 0, STRINGP (arg) ? arg : Qnil);
2079 /* If we have an auto-save list file,
2080 kill it because we are exiting Emacs deliberately (not crashing).
2081 Do it after shut_down_emacs, which does an auto-save. */
2082 if (STRINGP (Vauto_save_list_file_name))
2083 unlink (SDATA (Vauto_save_list_file_name));
2085 exit (INTEGERP (arg) ? XINT (arg) : EXIT_SUCCESS);
2086 /* NOTREACHED */
2087 return Qnil;
2091 /* Perform an orderly shutdown of Emacs. Autosave any modified
2092 buffers, kill any child processes, clean up the terminal modes (if
2093 we're in the foreground), and other stuff like that. Don't perform
2094 any redisplay; this may be called when Emacs is shutting down in
2095 the background, or after its X connection has died.
2097 If SIG is a signal number, print a message for it.
2099 This is called by fatal signal handlers, X protocol error handlers,
2100 and Fkill_emacs. */
2102 void
2103 shut_down_emacs (sig, no_x, stuff)
2104 int sig, no_x;
2105 Lisp_Object stuff;
2107 /* Prevent running of hooks from now on. */
2108 Vrun_hooks = Qnil;
2110 /* Don't update display from now on. */
2111 Vinhibit_redisplay = Qt;
2113 /* If we are controlling the terminal, reset terminal modes. */
2114 #ifdef EMACS_HAVE_TTY_PGRP
2116 int pgrp = EMACS_GETPGRP (0);
2118 int tpgrp;
2119 if (EMACS_GET_TTY_PGRP (0, &tpgrp) != -1
2120 && tpgrp == pgrp)
2122 reset_all_sys_modes ();
2123 if (sig && sig != SIGTERM)
2124 fprintf (stderr, "Fatal error (%d)", sig);
2127 #else
2128 fflush (stdout);
2129 reset_all_sys_modes ();
2130 #endif
2132 stuff_buffered_input (stuff);
2134 #ifdef subprocesses
2135 inhibit_sentinels = 1;
2136 #endif
2137 kill_buffer_processes (Qnil);
2138 Fdo_auto_save (Qt, Qnil);
2140 #ifdef CLASH_DETECTION
2141 unlock_all_files ();
2142 #endif
2144 #ifdef VMS
2145 kill_vms_processes ();
2146 #endif
2148 #if 0 /* This triggers a bug in XCloseDisplay and is not needed. */
2149 #ifdef HAVE_X_WINDOWS
2150 /* It's not safe to call intern here. Maybe we are crashing. */
2151 if (!noninteractive && SYMBOLP (Vinitial_window_system)
2152 && SCHARS (SYMBOL_NAME (Vinitial_window_system)) == 1
2153 && SREF (SYMBOL_NAME (Vinitial_window_system), 0) == 'x'
2154 && ! no_x)
2155 Fx_close_current_connection ();
2156 #endif /* HAVE_X_WINDOWS */
2157 #endif
2159 #ifdef SIGIO
2160 /* There is a tendency for a SIGIO signal to arrive within exit,
2161 and cause a SIGHUP because the input descriptor is already closed. */
2162 unrequest_sigio ();
2163 signal (SIGIO, SIG_IGN);
2164 #endif
2166 #ifdef WINDOWSNT
2167 term_ntproc ();
2168 #endif
2170 /* Do this only if terminating normally, we want glyph matrices
2171 etc. in a core dump. */
2172 if (sig == 0 || sig == SIGTERM)
2174 check_glyph_memory ();
2175 check_message_stack ();
2178 #ifdef MSDOS
2179 dos_cleanup ();
2180 #endif
2185 #ifndef CANNOT_DUMP
2187 #ifdef HAVE_SHM
2189 DEFUN ("dump-emacs-data", Fdump_emacs_data, Sdump_emacs_data, 1, 1, 0,
2190 doc: /* Dump current state of Emacs into data file FILENAME.
2191 This function exists on systems that use HAVE_SHM. */)
2192 (filename)
2193 Lisp_Object filename;
2195 extern char my_edata[];
2196 Lisp_Object tem;
2198 check_pure_size ();
2199 CHECK_STRING (filename);
2200 filename = Fexpand_file_name (filename, Qnil);
2202 tem = Vpurify_flag;
2203 Vpurify_flag = Qnil;
2205 fflush (stdout);
2206 /* Tell malloc where start of impure now is. */
2207 /* Also arrange for warnings when nearly out of space. */
2208 #ifndef SYSTEM_MALLOC
2209 memory_warnings (my_edata, malloc_warning);
2210 #endif
2211 map_out_data (SDATA (filename));
2213 Vpurify_flag = tem;
2215 return Qnil;
2218 #else /* not HAVE_SHM */
2220 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0,
2221 doc: /* Dump current state of Emacs into executable file FILENAME.
2222 Take symbols from SYMFILE (presumably the file you executed to run Emacs).
2223 This is used in the file `loadup.el' when building Emacs.
2225 You must run Emacs in batch mode in order to dump it. */)
2226 (filename, symfile)
2227 Lisp_Object filename, symfile;
2229 extern char my_edata[];
2230 Lisp_Object tem;
2231 Lisp_Object symbol;
2232 int count = SPECPDL_INDEX ();
2234 check_pure_size ();
2236 if (! noninteractive)
2237 error ("Dumping Emacs works only in batch mode");
2239 #ifdef GNU_LINUX
2240 if (heap_bss_diff > MAX_HEAP_BSS_DIFF)
2242 fprintf (stderr, "**************************************************\n");
2243 fprintf (stderr, "Warning: Your system has a gap between BSS and the\n");
2244 fprintf (stderr, "heap (%lu bytes). This usually means that exec-shield\n",
2245 heap_bss_diff);
2246 fprintf (stderr, "or something similar is in effect. The dump may\n");
2247 fprintf (stderr, "fail because of this. See the section about\n");
2248 fprintf (stderr, "exec-shield in etc/PROBLEMS for more information.\n");
2249 fprintf (stderr, "**************************************************\n");
2251 #endif /* GNU_LINUX */
2253 /* Bind `command-line-processed' to nil before dumping,
2254 so that the dumped Emacs will process its command line
2255 and set up to work with X windows if appropriate. */
2256 symbol = intern ("command-line-processed");
2257 specbind (symbol, Qnil);
2259 CHECK_STRING (filename);
2260 filename = Fexpand_file_name (filename, Qnil);
2261 if (!NILP (symfile))
2263 CHECK_STRING (symfile);
2264 if (SCHARS (symfile))
2265 symfile = Fexpand_file_name (symfile, Qnil);
2268 tem = Vpurify_flag;
2269 Vpurify_flag = Qnil;
2271 #ifdef HAVE_TZSET
2272 set_time_zone_rule (dump_tz);
2273 #ifndef LOCALTIME_CACHE
2274 /* Force a tz reload, since set_time_zone_rule doesn't. */
2275 tzset ();
2276 #endif
2277 #endif
2279 fflush (stdout);
2280 #ifdef VMS
2281 mapout_data (SDATA (filename));
2282 #else
2283 /* Tell malloc where start of impure now is. */
2284 /* Also arrange for warnings when nearly out of space. */
2285 #ifndef SYSTEM_MALLOC
2286 #ifndef WINDOWSNT
2287 /* On Windows, this was done before dumping, and that once suffices.
2288 Meanwhile, my_edata is not valid on Windows. */
2289 memory_warnings (my_edata, malloc_warning);
2290 #endif /* not WINDOWSNT */
2291 #endif
2292 #if !defined (SYSTEM_MALLOC) && defined (HAVE_GTK_AND_PTHREAD) && !defined SYNC_INPUT
2293 /* Pthread may call malloc before main, and then we will get an endless
2294 loop, because pthread_self (see alloc.c) calls malloc the first time
2295 it is called on some systems. */
2296 reset_malloc_hooks ();
2297 #endif
2298 #ifdef DOUG_LEA_MALLOC
2299 malloc_state_ptr = malloc_get_state ();
2300 #endif
2302 #ifdef USE_MMAP_FOR_BUFFERS
2303 mmap_set_vars (0);
2304 #endif
2305 unexec (SDATA (filename),
2306 !NILP (symfile) ? SDATA (symfile) : 0, my_edata, 0, 0);
2307 #ifdef USE_MMAP_FOR_BUFFERS
2308 mmap_set_vars (1);
2309 #endif
2310 #ifdef DOUG_LEA_MALLOC
2311 free (malloc_state_ptr);
2312 #endif
2313 #endif /* not VMS */
2315 Vpurify_flag = tem;
2317 return unbind_to (count, Qnil);
2320 #endif /* not HAVE_SHM */
2322 #endif /* not CANNOT_DUMP */
2324 #if HAVE_SETLOCALE
2325 /* Recover from setlocale (LC_ALL, ""). */
2326 void
2327 fixup_locale ()
2329 /* The Emacs Lisp reader needs LC_NUMERIC to be "C",
2330 so that numbers are read and printed properly for Emacs Lisp. */
2331 setlocale (LC_NUMERIC, "C");
2334 /* Set system locale CATEGORY, with previous locale *PLOCALE, to
2335 DESIRED_LOCALE. */
2336 static void
2337 synchronize_locale (category, plocale, desired_locale)
2338 int category;
2339 Lisp_Object *plocale;
2340 Lisp_Object desired_locale;
2342 if (! EQ (*plocale, desired_locale))
2344 *plocale = desired_locale;
2345 setlocale (category, (STRINGP (desired_locale)
2346 ? (char *) SDATA (desired_locale)
2347 : ""));
2351 /* Set system time locale to match Vsystem_time_locale, if possible. */
2352 void
2353 synchronize_system_time_locale ()
2355 synchronize_locale (LC_TIME, &Vprevious_system_time_locale,
2356 Vsystem_time_locale);
2359 /* Set system messages locale to match Vsystem_messages_locale, if
2360 possible. */
2361 void
2362 synchronize_system_messages_locale ()
2364 #ifdef LC_MESSAGES
2365 synchronize_locale (LC_MESSAGES, &Vprevious_system_messages_locale,
2366 Vsystem_messages_locale);
2367 #endif
2369 #endif /* HAVE_SETLOCALE */
2371 #ifndef SEPCHAR
2372 #define SEPCHAR ':'
2373 #endif
2375 Lisp_Object
2376 decode_env_path (evarname, defalt)
2377 char *evarname, *defalt;
2379 register char *path, *p;
2380 Lisp_Object lpath, element, tem;
2382 /* It's okay to use getenv here, because this function is only used
2383 to initialize variables when Emacs starts up, and isn't called
2384 after that. */
2385 if (evarname != 0)
2386 path = (char *) getenv (evarname);
2387 else
2388 path = 0;
2389 if (!path)
2390 path = defalt;
2391 #ifdef DOS_NT
2392 /* Ensure values from the environment use the proper directory separator. */
2393 if (path)
2395 p = alloca (strlen (path) + 1);
2396 strcpy (p, path);
2397 path = p;
2399 if ('/' == DIRECTORY_SEP)
2400 dostounix_filename (path);
2401 else
2402 unixtodos_filename (path);
2404 #endif
2405 lpath = Qnil;
2406 while (1)
2408 p = index (path, SEPCHAR);
2409 if (!p) p = path + strlen (path);
2410 element = (p - path ? make_string (path, p - path)
2411 : build_string ("."));
2413 /* Add /: to the front of the name
2414 if it would otherwise be treated as magic. */
2415 tem = Ffind_file_name_handler (element, Qt);
2417 /* However, if the handler says "I'm safe",
2418 don't bother adding /:. */
2419 if (SYMBOLP (tem))
2421 Lisp_Object prop;
2422 prop = Fget (tem, intern ("safe-magic"));
2423 if (! NILP (prop))
2424 tem = Qnil;
2427 if (! NILP (tem))
2428 element = concat2 (build_string ("/:"), element);
2430 lpath = Fcons (element, lpath);
2431 if (*p)
2432 path = p + 1;
2433 else
2434 break;
2436 return Fnreverse (lpath);
2439 void
2440 syms_of_emacs ()
2442 Qfile_name_handler_alist = intern ("file-name-handler-alist");
2443 staticpro (&Qfile_name_handler_alist);
2445 #ifndef CANNOT_DUMP
2446 #ifdef HAVE_SHM
2447 defsubr (&Sdump_emacs_data);
2448 #else
2449 defsubr (&Sdump_emacs);
2450 #endif
2451 #endif
2453 defsubr (&Skill_emacs);
2455 defsubr (&Sinvocation_name);
2456 defsubr (&Sinvocation_directory);
2458 DEFVAR_LISP ("command-line-args", &Vcommand_line_args,
2459 doc: /* Args passed by shell to Emacs, as a list of strings.
2460 Many arguments are deleted from the list as they are processed. */);
2462 DEFVAR_LISP ("system-type", &Vsystem_type,
2463 doc: /* Value is symbol indicating type of operating system you are using.
2464 Special values:
2465 `gnu/linux' compiled for a GNU/Linux system.
2466 `darwin' compiled for Darwin (GNU-Darwin, Mac OS X, ...).
2467 `macos' compiled for Mac OS 9.
2468 `ms-dos' compiled as an MS-DOS application.
2469 `windows-nt' compiled as a native W32 application.
2470 `cygwin' compiled using the Cygwin library.
2471 `vax-vms' or
2472 `axp-vms' compiled for a (Open)VMS system.
2473 Anything else indicates some sort of Unix system. */);
2474 Vsystem_type = intern (SYSTEM_TYPE);
2476 DEFVAR_LISP ("system-configuration", &Vsystem_configuration,
2477 doc: /* Value is string indicating configuration Emacs was built for.
2478 On MS-Windows, the value reflects the OS flavor and version on which
2479 Emacs is running. */);
2480 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
2482 DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options,
2483 doc: /* String containing the configuration options Emacs was built with. */);
2484 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
2486 DEFVAR_BOOL ("noninteractive", &noninteractive1,
2487 doc: /* Non-nil means Emacs is running without interactive terminal. */);
2489 DEFVAR_LISP ("kill-emacs-hook", &Vkill_emacs_hook,
2490 doc: /* Hook to be run when `kill-emacs' is called.
2491 Since `kill-emacs' may be invoked when the terminal is disconnected (or
2492 in other similar situations), functions placed on this hook should not
2493 expect to be able to interact with the user. To ask for confirmation,
2494 see `kill-emacs-query-functions' instead.
2496 The hook is not run in batch mode, i.e., if `noninteractive' is non-nil. */);
2497 Vkill_emacs_hook = Qnil;
2499 DEFVAR_INT ("emacs-priority", &emacs_priority,
2500 doc: /* Priority for Emacs to run at.
2501 This value is effective only if set before Emacs is dumped,
2502 and only if the Emacs executable is installed with setuid to permit
2503 it to change priority. (Emacs sets its uid back to the real uid.)
2504 Currently, you need to define SET_EMACS_PRIORITY in `config.h'
2505 before you compile Emacs, to enable the code for this feature. */);
2506 emacs_priority = 0;
2508 DEFVAR_LISP ("path-separator", &Vpath_separator,
2509 doc: /* String containing the character that separates directories in
2510 search paths, such as PATH and other similar environment variables. */);
2512 char c = SEPCHAR;
2513 Vpath_separator = make_string (&c, 1);
2516 DEFVAR_LISP ("invocation-name", &Vinvocation_name,
2517 doc: /* The program name that was used to run Emacs.
2518 Any directory names are omitted. */);
2520 DEFVAR_LISP ("invocation-directory", &Vinvocation_directory,
2521 doc: /* The directory in which the Emacs executable was found, to run it.
2522 The value is nil if that directory's name is not known. */);
2524 DEFVAR_LISP ("installation-directory", &Vinstallation_directory,
2525 doc: /* A directory within which to look for the `lib-src' and `etc' directories.
2526 This is non-nil when we can't find those directories in their standard
2527 installed locations, but we can find them near where the Emacs executable
2528 was found. */);
2529 Vinstallation_directory = Qnil;
2531 DEFVAR_LISP ("system-messages-locale", &Vsystem_messages_locale,
2532 doc: /* System locale for messages. */);
2533 Vsystem_messages_locale = Qnil;
2535 DEFVAR_LISP ("previous-system-messages-locale",
2536 &Vprevious_system_messages_locale,
2537 doc: /* Most recently used system locale for messages. */);
2538 Vprevious_system_messages_locale = Qnil;
2540 DEFVAR_LISP ("system-time-locale", &Vsystem_time_locale,
2541 doc: /* System locale for time. */);
2542 Vsystem_time_locale = Qnil;
2544 DEFVAR_LISP ("previous-system-time-locale", &Vprevious_system_time_locale,
2545 doc: /* Most recently used system locale for time. */);
2546 Vprevious_system_time_locale = Qnil;
2549 /* arch-tag: 7bfd356a-c720-4612-8ab6-aa4222931c2e
2550 (do not change this comment) */