*** empty log message ***
[emacs.git] / src / emacs.c
blobe91fca2eb018e32044dd5472ae9aeb0088c9b89a
1 /* Fully extensible Emacs, running on Unix, intended for GNU.
2 Copyright (C) 1985,86,87,93,94,95,97,98,1999 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
9 any later version.
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
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>
30 #ifdef VMS
31 #include <ssdef.h>
32 #endif
34 #ifdef HAVE_UNISTD_H
35 #include <unistd.h>
36 #endif
38 #ifdef BSD_SYSTEM
39 #include <sys/ioctl.h>
40 #endif
42 #include "lisp.h"
43 #include "commands.h"
44 #include "intervals.h"
45 #include "buffer.h"
47 #include "systty.h"
48 #include "blockinput.h"
49 #include "syssignal.h"
50 #include "process.h"
51 #include "termhooks.h"
52 #include "keyboard.h"
54 #ifdef HAVE_SETLOCALE
55 #include <locale.h>
56 #endif
58 #ifdef HAVE_SETRLIMIT
59 #include <sys/time.h>
60 #include <sys/resource.h>
61 #endif
63 #ifdef HAVE_STRING_H
64 #include <string.h>
65 #endif
67 #ifdef HAVE_STRINGS_H
68 #include <strings.h>
69 #endif
71 #ifndef O_RDWR
72 #define O_RDWR 2
73 #endif
75 #ifdef HAVE_SETPGID
76 #if !defined (USG) || defined (BSD_PGRPS)
77 #undef setpgrp
78 #define setpgrp setpgid
79 #endif
80 #endif
82 extern void malloc_warning P_ ((char *));
83 extern void set_time_zone_rule P_ ((char *));
85 /* Make these values available in GDB, which doesn't see macros. */
87 EMACS_INT gdb_valbits = VALBITS;
88 EMACS_INT gdb_gctypebits = GCTYPEBITS;
89 EMACS_INT gdb_emacs_intbits = sizeof (EMACS_INT) * BITS_PER_CHAR;
90 #ifdef DATA_SEG_BITS
91 EMACS_INT gdb_data_seg_bits = DATA_SEG_BITS;
92 #else
93 EMACS_INT gdb_data_seg_bits = 0;
94 #endif
95 EMACS_INT PVEC_FLAG = PSEUDOVECTOR_FLAG;
97 /* Command line args from shell, as list of strings */
98 Lisp_Object Vcommand_line_args;
100 /* The name under which Emacs was invoked, with any leading directory
101 names discarded. */
102 Lisp_Object Vinvocation_name;
104 /* The directory name from which Emacs was invoked. */
105 Lisp_Object Vinvocation_directory;
107 /* The directory name in which to find subdirs such as lisp and etc.
108 nil means get them only from PATH_LOADSEARCH. */
109 Lisp_Object Vinstallation_directory;
111 /* Hook run by `kill-emacs' before it does really anything. */
112 Lisp_Object Vkill_emacs_hook;
114 #ifdef SIGUSR1
115 /* Hooks for signal USR1 and USR2 handing */
116 Lisp_Object Vsignal_USR1_hook;
117 #ifdef SIGUSR2
118 Lisp_Object Vsignal_USR2_hook;
119 #endif
120 #endif
122 /* Search path separator. */
123 Lisp_Object Vpath_separator;
125 /* Set nonzero after Emacs has started up the first time.
126 Prevents reinitialization of the Lisp world and keymaps
127 on subsequent starts. */
128 int initialized;
130 #ifdef DOUG_LEA_MALLOC
131 /* Preserves a pointer to the memory allocated that copies that
132 static data inside glibc's malloc. */
133 void *malloc_state_ptr;
134 /* From glibc, a routine that returns a copy of the malloc internal state. */
135 extern void *malloc_get_state ();
136 /* From glibc, a routine that overwrites the malloc internal state. */
137 extern void malloc_set_state ();
138 /* Non-zero if the MALLOC_CHECK_ enviroment variable was set while
139 dumping. Used to work around a bug in glibc's malloc. */
140 int malloc_using_checking;
141 #endif
143 /* Variable whose value is symbol giving operating system type. */
144 Lisp_Object Vsystem_type;
146 /* Variable whose value is string giving configuration built for. */
147 Lisp_Object Vsystem_configuration;
149 /* Variable whose value is string giving configuration options,
150 for use when reporting bugs. */
151 Lisp_Object Vsystem_configuration_options;
153 Lisp_Object Qfile_name_handler_alist;
155 /* Current and previous system locales for messages and time. */
156 Lisp_Object Vsystem_messages_locale;
157 Lisp_Object Vprevious_system_messages_locale;
158 Lisp_Object Vsystem_time_locale;
159 Lisp_Object Vprevious_system_time_locale;
161 /* If non-zero, emacs should not attempt to use an window-specific code,
162 but instead should use the virtual terminal under which it was started */
163 int inhibit_window_system;
165 /* If nonzero, set Emacs to run at this priority. This is also used
166 in child_setup and sys_suspend to make sure subshells run at normal
167 priority; Those functions have their own extern declaration. */
168 int emacs_priority;
170 /* If non-zero a filter or a sentinel is running. Tested to save the match
171 data on the first attempt to change it inside asynchronous code. */
172 int running_asynch_code;
174 #ifdef BSD_PGRPS
175 /* See sysdep.c. */
176 extern int inherited_pgroup;
177 #endif
179 #ifdef HAVE_X_WINDOWS
180 /* If non-zero, -d was specified, meaning we're using some window system. */
181 int display_arg;
182 #endif
184 /* An address near the bottom of the stack.
185 Tells GC how to save a copy of the stack. */
186 char *stack_bottom;
188 #ifdef HAVE_WINDOW_SYSTEM
189 extern Lisp_Object Vwindow_system;
190 #endif /* HAVE_WINDOW_SYSTEM */
192 extern Lisp_Object Vauto_save_list_file_name;
194 #ifdef USG_SHARED_LIBRARIES
195 /* If nonzero, this is the place to put the end of the writable segment
196 at startup. */
198 unsigned int bss_end = 0;
199 #endif
201 /* Nonzero means running Emacs without interactive terminal. */
203 int noninteractive;
205 /* Value of Lisp variable `noninteractive'.
206 Normally same as C variable `noninteractive'
207 but nothing terrible happens if user sets this one. */
209 int noninteractive1;
211 /* Save argv and argc. */
212 char **initial_argv;
213 int initial_argc;
215 static void sort_args ();
216 void syms_of_emacs ();
218 #define USAGE1 "\
219 Usage: %s [OPTION-OR-FILENAME]...\n\
221 Run Emacs, the extensible, customizable, self-documenting real-time\n\
222 display editor. The recommended way to start Emacs for normal editing\n\
223 is with no options at all.\n\
225 Run M-x info RET m emacs RET m command arguments RET inside Emacs to\n\
226 read the main documentation for these command-line arguments.\n\
228 Initialization options:\n\
230 --batch do not do interactive display; implies -q\n\
231 --debug-init enable Emacs Lisp debugger during init file\n\
232 --help display this help message and exit\n\
233 --multibyte, --no-unibyte run Emacs in multibyte mode\n\
234 --no-init-file, -q load neither ~/.emacs nor default.el\n\
235 --no-shared-memory, -nl do not use shared memory\n\
236 --no-site-file do not load site-start.el\n\
237 --no-windows, -nw don't communicate with X, ignoring $DISPLAY\n\
238 --terminal, -t DEVICE use DEVICE for terminal I/O\n\
239 --unibyte, --no-multibyte run Emacs in unibyte mode\n\
240 --user, -u USER load ~USER/.emacs instead of your own\n\
241 --version display version information and exit\n\
243 Action options:\n\
245 FILE visit FILE using find-file\n\
246 +LINENUM FILE visit FILE using find-file, then go to line LINENUM\n\
247 --directory, -L DIR add DIR to variable load-path\n\
248 --eval EXPR evaluate Emacs Lisp expression EXPR\n\
249 --execute EXPR evaluate Emacs Lisp expression EXPR\n\
250 --find-file FILE visit FILE\n\
251 --funcall, -f FUNC call Emacs function FUNC with no arguments\n\
252 --insert FILE insert contents of FILE into current buffer\n\
253 --kill exit without asking for confirmation\n\
254 --load, -l FILE load FILE of Emacs Lisp code using the load function\n\
255 --visit FILE visit FILE\n\
258 #define USAGE2 "\
259 Display options:\n\
261 --background-color, -bg COLOR window background color\n\
262 --border-color, -bd COLOR main border color\n\
263 --border-width, -bw WIDTH width of main border\n\
264 --cursor-color, -cr COLOR color of the Emacs cursor indicating point\n\
265 --display, -d DISPLAY use X server DISPLAY\n\
266 --font, -fn FONT default font; must be fixed-widthp\n\
267 --foreground-color, -fg COLOR window foreground color\n\
268 --geometry, -g GEOMETRY window geometry\n\
269 --iconic start Emacs in iconified state\n\
270 --icon-type, -i use picture of gnu for Emacs icon\n\
271 --internal-border, -ib WIDTH width between text and main border\n\
272 --line-spacing, -lsp PIXELS additional space to put between lines\n\
273 --mouse-color, -ms COLOR mouse cursor color in Emacs window\n\
274 --name NAME title of main Emacs window\n\
275 --reverse-video, -r, -rv switch foreground and background\n\
276 --title, -T, -wn, TITLE title for Emacs windows\n\
277 --vertical-scroll-bars, -vb enable vertical scroll bars\n\
278 --xrm XRESOURCES set additional X resources\n\
280 You can generally also specify long option names with a single -; for\n\
281 example, -batch as well as --batch. You can use any unambiguous\n\
282 abbreviation for a --option.\n\
284 Various environment variables and window system resources also affect\n\
285 Emacs' operation. See the main documentation.\n\
287 Report bugs to bug-gnu-emacs@gnu.org. First, please see the Bugs\n\
288 section of the Emacs manual or the file BUGS.\n"
291 /* Signal code for the fatal signal that was received */
292 int fatal_error_code;
294 /* Nonzero if handling a fatal error already */
295 int fatal_error_in_progress;
297 #ifdef SIGUSR1
298 SIGTYPE
299 handle_USR1_signal (sig)
300 int sig;
302 struct input_event buf;
304 bzero (&buf, sizeof buf);
305 buf.kind = USER_SIGNAL_EVENT;
306 buf.frame_or_window = selected_frame;
308 kbd_buffer_store_event (&buf);
310 #endif /* SIGUSR1 */
312 #ifdef SIGUSR2
313 SIGTYPE
314 handle_USR2_signal (sig)
315 int sig;
317 struct input_event buf;
319 bzero (&buf, sizeof buf);
320 buf.kind = USER_SIGNAL_EVENT;
321 buf.code = 1;
322 buf.frame_or_window = selected_frame;
324 kbd_buffer_store_event (&buf);
326 #endif /* SIGUSR2 */
328 /* Handle bus errors, invalid instruction, etc. */
329 SIGTYPE
330 fatal_error_signal (sig)
331 int sig;
333 fatal_error_code = sig;
334 signal (sig, SIG_DFL);
336 TOTALLY_UNBLOCK_INPUT;
338 /* If fatal error occurs in code below, avoid infinite recursion. */
339 if (! fatal_error_in_progress)
341 fatal_error_in_progress = 1;
343 shut_down_emacs (sig, 0, Qnil);
346 #ifdef VMS
347 LIB$STOP (SS$_ABORT);
348 #else
349 /* Signal the same code; this time it will really be fatal.
350 Remember that since we're in a signal handler, the signal we're
351 going to send is probably blocked, so we have to unblock it if we
352 want to really receive it. */
353 #ifndef MSDOS
354 sigunblock (sigmask (fatal_error_code));
355 #endif
356 kill (getpid (), fatal_error_code);
357 #endif /* not VMS */
360 #ifdef SIGDANGER
362 /* Handler for SIGDANGER. */
363 SIGTYPE
364 memory_warning_signal (sig)
365 int sig;
367 signal (sig, memory_warning_signal);
369 malloc_warning ("Operating system warns that virtual memory is running low.\n");
371 /* It might be unsafe to call do_auto_save now. */
372 force_auto_save_soon ();
374 #endif
376 /* We define abort, rather than using it from the library,
377 so that GDB can return from a breakpoint here.
378 MSDOS has its own definition on msdos.c */
380 #if ! defined (DOS_NT) && ! defined (NO_ABORT)
382 #ifndef ABORT_RETURN_TYPE
383 #define ABORT_RETURN_TYPE void
384 #endif
386 ABORT_RETURN_TYPE
387 abort ()
389 kill (getpid (), SIGABRT);
390 /* This shouldn't be executed, but it prevents a warning. */
391 exit (1);
393 #endif
396 /* Code for dealing with Lisp access to the Unix command line */
398 static void
399 init_cmdargs (argc, argv, skip_args)
400 int argc;
401 char **argv;
402 int skip_args;
404 register int i;
405 Lisp_Object name, dir, tem;
406 int count = specpdl_ptr - specpdl;
407 Lisp_Object raw_name;
409 initial_argv = argv;
410 initial_argc = argc;
412 raw_name = build_string (argv[0]);
414 /* Add /: to the front of the name
415 if it would otherwise be treated as magic. */
416 tem = Ffind_file_name_handler (raw_name, Qt);
417 if (! NILP (tem))
418 raw_name = concat2 (build_string ("/:"), raw_name);
420 Vinvocation_name = Ffile_name_nondirectory (raw_name);
421 Vinvocation_directory = Ffile_name_directory (raw_name);
423 /* If we got no directory in argv[0], search PATH to find where
424 Emacs actually came from. */
425 if (NILP (Vinvocation_directory))
427 Lisp_Object found;
428 int yes = openp (Vexec_path, Vinvocation_name,
429 EXEC_SUFFIXES, &found, 1);
430 if (yes == 1)
432 /* Add /: to the front of the name
433 if it would otherwise be treated as magic. */
434 tem = Ffind_file_name_handler (found, Qt);
435 if (! NILP (tem))
436 found = concat2 (build_string ("/:"), found);
437 Vinvocation_directory = Ffile_name_directory (found);
441 if (!NILP (Vinvocation_directory)
442 && NILP (Ffile_name_absolute_p (Vinvocation_directory)))
443 /* Emacs was started with relative path, like ./emacs.
444 Make it absolute. */
445 Vinvocation_directory = Fexpand_file_name (Vinvocation_directory, Qnil);
447 Vinstallation_directory = Qnil;
449 if (!NILP (Vinvocation_directory))
451 dir = Vinvocation_directory;
452 name = Fexpand_file_name (Vinvocation_name, dir);
453 while (1)
455 Lisp_Object tem, lib_src_exists;
456 Lisp_Object etc_exists, info_exists;
458 /* See if dir contains subdirs for use by Emacs.
459 Check for the ones that would exist in a build directory,
460 not including lisp and info. */
461 tem = Fexpand_file_name (build_string ("lib-src"), dir);
462 lib_src_exists = Ffile_exists_p (tem);
464 #ifdef MSDOS
465 /* MSDOS installations frequently remove lib-src, but we still
466 must set installation-directory, or else info won't find
467 its files (it uses the value of installation-directory). */
468 tem = Fexpand_file_name (build_string ("info"), dir);
469 info_exists = Ffile_exists_p (tem);
470 #else
471 info_exists = Qnil;
472 #endif
474 if (!NILP (lib_src_exists) || !NILP (info_exists))
476 tem = Fexpand_file_name (build_string ("etc"), dir);
477 etc_exists = Ffile_exists_p (tem);
478 if (!NILP (etc_exists))
480 Vinstallation_directory
481 = Ffile_name_as_directory (dir);
482 break;
486 /* See if dir's parent contains those subdirs. */
487 tem = Fexpand_file_name (build_string ("../lib-src"), dir);
488 lib_src_exists = Ffile_exists_p (tem);
491 #ifdef MSDOS
492 /* See the MSDOS commentary above. */
493 tem = Fexpand_file_name (build_string ("../info"), dir);
494 info_exists = Ffile_exists_p (tem);
495 #else
496 info_exists = Qnil;
497 #endif
499 if (!NILP (lib_src_exists) || !NILP (info_exists))
501 tem = Fexpand_file_name (build_string ("../etc"), dir);
502 etc_exists = Ffile_exists_p (tem);
503 if (!NILP (etc_exists))
505 tem = Fexpand_file_name (build_string (".."), dir);
506 Vinstallation_directory
507 = Ffile_name_as_directory (tem);
508 break;
512 /* If the Emacs executable is actually a link,
513 next try the dir that the link points into. */
514 tem = Ffile_symlink_p (name);
515 if (!NILP (tem))
517 name = Fexpand_file_name (tem, dir);
518 dir = Ffile_name_directory (name);
520 else
521 break;
525 Vcommand_line_args = Qnil;
527 for (i = argc - 1; i >= 0; i--)
529 if (i == 0 || i > skip_args)
530 Vcommand_line_args
531 = Fcons (build_string (argv[i]), Vcommand_line_args);
534 unbind_to (count, Qnil);
537 DEFUN ("invocation-name", Finvocation_name, Sinvocation_name, 0, 0, 0,
538 "Return the program name that was used to run Emacs.\n\
539 Any directory names are omitted.")
542 return Fcopy_sequence (Vinvocation_name);
545 DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory,
546 0, 0, 0,
547 "Return the directory name in which the Emacs executable was located")
550 return Fcopy_sequence (Vinvocation_directory);
554 #ifdef VMS
555 #ifdef LINK_CRTL_SHARE
556 #ifdef SHARABLE_LIB_BUG
557 extern noshare char **environ;
558 #endif /* SHARABLE_LIB_BUG */
559 #endif /* LINK_CRTL_SHARE */
560 #endif /* VMS */
562 #ifdef HAVE_TZSET
563 /* A valid but unlikely value for the TZ environment value.
564 It is OK (though a bit slower) if the user actually chooses this value. */
565 static char dump_tz[] = "UtC0";
566 #endif
568 #ifndef ORDINARY_LINK
569 /* We don't include crtbegin.o and crtend.o in the link,
570 so these functions and variables might be missed.
571 Provide dummy definitions to avoid error.
572 (We don't have any real constructors or destructors.) */
573 #ifdef __GNUC__
574 #ifndef GCC_CTORS_IN_LIBC
575 void __do_global_ctors ()
577 void __do_global_ctors_aux ()
579 void __do_global_dtors ()
581 /* Linux has a bug in its library; avoid an error. */
582 #ifndef LINUX
583 char * __CTOR_LIST__[2] = { (char *) (-1), 0 };
584 #endif
585 char * __DTOR_LIST__[2] = { (char *) (-1), 0 };
586 #endif /* GCC_CTORS_IN_LIBC */
587 void __main ()
589 #endif /* __GNUC__ */
590 #endif /* ORDINARY_LINK */
592 /* Test whether the next argument in ARGV matches SSTR or a prefix of
593 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
594 (the argument is supposed to have a value) store in *VALPTR either
595 the next argument or the portion of this one after the equal sign.
596 ARGV is read starting at position *SKIPPTR; this index is advanced
597 by the number of arguments used.
599 Too bad we can't just use getopt for all of this, but we don't have
600 enough information to do it right. */
602 static int
603 argmatch (argv, argc, sstr, lstr, minlen, valptr, skipptr)
604 char **argv;
605 int argc;
606 char *sstr;
607 char *lstr;
608 int minlen;
609 char **valptr;
610 int *skipptr;
612 char *p;
613 int arglen;
614 char *arg;
616 /* Don't access argv[argc]; give up in advance. */
617 if (argc <= *skipptr + 1)
618 return 0;
620 arg = argv[*skipptr+1];
621 if (arg == NULL)
622 return 0;
623 if (strcmp (arg, sstr) == 0)
625 if (valptr != NULL)
627 *valptr = argv[*skipptr+2];
628 *skipptr += 2;
630 else
631 *skipptr += 1;
632 return 1;
634 arglen = (valptr != NULL && (p = index (arg, '=')) != NULL
635 ? p - arg : strlen (arg));
636 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
637 return 0;
638 else if (valptr == NULL)
640 *skipptr += 1;
641 return 1;
643 else if (p != NULL)
645 *valptr = p+1;
646 *skipptr += 1;
647 return 1;
649 else if (argv[*skipptr+2] != NULL)
651 *valptr = argv[*skipptr+2];
652 *skipptr += 2;
653 return 1;
655 else
657 return 0;
661 #ifdef DOUG_LEA_MALLOC
663 /* malloc can be invoked even before main (e.g. by the dynamic
664 linker), so the dumped malloc state must be restored as early as
665 possible using this special hook. */
667 static void
668 malloc_initialize_hook ()
670 #ifndef USE_CRT_DLL
671 extern char **environ;
672 #endif
674 if (initialized)
676 if (!malloc_using_checking)
677 /* Work around a bug in glibc's malloc. MALLOC_CHECK_ must be
678 ignored if the heap to be restored was constructed without
679 malloc checking. Can't use unsetenv, since that calls malloc. */
681 char **p;
683 for (p = environ; *p; p++)
684 if (strncmp (*p, "MALLOC_CHECK_=", 14) == 0)
687 *p = p[1];
688 while (*++p);
689 break;
693 malloc_set_state (malloc_state_ptr);
694 free (malloc_state_ptr);
696 else
697 malloc_using_checking = getenv ("MALLOC_CHECK_") != NULL;
700 void (*__malloc_initialize_hook) () = malloc_initialize_hook;
702 #endif /* DOUG_LEA_MALLOC */
704 /* ARGSUSED */
706 main (argc, argv, envp)
707 int argc;
708 char **argv;
709 char **envp;
711 #if GC_MARK_STACK
712 Lisp_Object dummy;
713 #endif
714 char stack_bottom_variable;
715 int do_initial_setlocale;
716 int skip_args = 0;
717 #ifndef USE_CRT_DLL
718 extern int errno;
719 extern int sys_nerr;
720 #endif
721 #ifdef HAVE_SETRLIMIT
722 struct rlimit rlim;
723 #endif
724 int no_loadup = 0;
726 #if GC_MARK_STACK
727 extern Lisp_Object *stack_base;
728 stack_base = &dummy;
729 #endif
731 #ifdef LINUX_SBRK_BUG
732 __sbrk (1);
733 #endif
735 #ifdef RUN_TIME_REMAP
736 if (initialized)
737 run_time_remap (argv[0]);
738 #endif
740 sort_args (argc, argv);
741 argc = 0;
742 while (argv[argc]) argc++;
744 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args)
745 /* We don't know the version number unless this is a dumped Emacs.
746 So ignore --version otherwise. */
747 && initialized)
749 Lisp_Object tem;
750 tem = Fsymbol_value (intern ("emacs-version"));
751 if (!STRINGP (tem))
753 fprintf (stderr, "Invalid value of `emacs-version'\n");
754 exit (1);
756 else
758 printf ("GNU Emacs %s\n", XSTRING (tem)->data);
759 printf ("Copyright (C) 1999 Free Software Foundation, Inc.\n");
760 printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n");
761 printf ("You may redistribute copies of Emacs\n");
762 printf ("under the terms of the GNU General Public License.\n");
763 printf ("For more information about these matters, ");
764 printf ("see the file named COPYING.\n");
765 exit (0);
769 /* Map in shared memory, if we are using that. */
770 #ifdef HAVE_SHM
771 if (argmatch (argv, argc, "-nl", "--no-shared-memory", 6, NULL, &skip_args))
773 map_in_data (0);
774 /* The shared memory was just restored, which clobbered this. */
775 skip_args = 1;
777 else
779 map_in_data (1);
780 /* The shared memory was just restored, which clobbered this. */
781 skip_args = 0;
783 #endif
785 #ifdef NeXT
787 extern int malloc_cookie;
788 /* This helps out unexnext.c. */
789 if (initialized)
790 if (malloc_jumpstart (malloc_cookie) != 0)
791 printf ("malloc jumpstart failed!\n");
793 #endif /* NeXT */
795 #ifdef VMS
796 /* If -map specified, map the data file in */
798 char *file;
799 if (argmatch (argv, argc, "-map", "--map-data", 3, &mapin_file, &skip_args))
800 mapin_data (file);
803 #ifdef LINK_CRTL_SHARE
804 #ifdef SHARABLE_LIB_BUG
805 /* Bletcherous shared libraries! */
806 if (!stdin)
807 stdin = fdopen (0, "r");
808 if (!stdout)
809 stdout = fdopen (1, "w");
810 if (!stderr)
811 stderr = fdopen (2, "w");
812 if (!environ)
813 environ = envp;
814 #endif /* SHARABLE_LIB_BUG */
815 #endif /* LINK_CRTL_SHARE */
816 #endif /* VMS */
818 #if defined (HAVE_SETRLIMIT) && defined (RLIMIT_STACK)
819 /* Extend the stack space available.
820 Don't do that if dumping, since some systems (e.g. DJGPP)
821 might define a smaller stack limit at that time. */
822 if (1
823 #ifndef CANNOT_DUMP
824 && (!noninteractive || initialized)
825 #endif
826 && !getrlimit (RLIMIT_STACK, &rlim))
828 long newlim;
829 extern int re_max_failures;
830 /* Approximate the amount regex.c needs per unit of re_max_failures. */
831 int ratio = 20 * sizeof (char *);
832 /* Then add 33% to cover the size of the smaller stacks that regex.c
833 successively allocates and discards, on its way to the maximum. */
834 ratio += ratio / 3;
835 /* Add in some extra to cover
836 what we're likely to use for other reasons. */
837 newlim = re_max_failures * ratio + 200000;
838 #ifdef __NetBSD__
839 /* NetBSD (at least NetBSD 1.2G and former) has a bug in its
840 stack allocation routine for new process that the allocation
841 fails if stack limit is not on page boundary. So, round up the
842 new limit to page boundary. */
843 newlim = (newlim + getpagesize () - 1) / getpagesize () * getpagesize();
844 #endif
845 if (newlim > rlim.rlim_max)
847 newlim = rlim.rlim_max;
848 /* Don't let regex.c overflow the stack we have. */
849 re_max_failures = (newlim - 200000) / ratio;
851 if (rlim.rlim_cur < newlim)
852 rlim.rlim_cur = newlim;
854 setrlimit (RLIMIT_STACK, &rlim);
856 #endif /* HAVE_SETRLIMIT and RLIMIT_STACK */
858 /* Record (approximately) where the stack begins. */
859 stack_bottom = &stack_bottom_variable;
861 #ifdef USG_SHARED_LIBRARIES
862 if (bss_end)
863 brk ((void *)bss_end);
864 #endif
866 clearerr (stdin);
868 #ifndef SYSTEM_MALLOC
869 /* Arrange to get warning messages as memory fills up. */
870 memory_warnings (0, malloc_warning);
872 /* Call malloc at least once, to run the initial __malloc_hook.
873 Also call realloc and free for consistency. */
874 free (realloc (malloc (4), 4));
876 /* Arrange to disable interrupt input inside malloc etc. */
877 uninterrupt_malloc ();
878 #endif /* not SYSTEM_MALLOC */
880 #ifdef MSDOS
881 /* We do all file input/output as binary files. When we need to translate
882 newlines, we do that manually. */
883 _fmode = O_BINARY;
885 #if __DJGPP__ >= 2
886 if (!isatty (fileno (stdin)))
887 setmode (fileno (stdin), O_BINARY);
888 if (!isatty (fileno (stdout)))
890 fflush (stdout);
891 setmode (fileno (stdout), O_BINARY);
893 #else /* not __DJGPP__ >= 2 */
894 (stdin)->_flag &= ~_IOTEXT;
895 (stdout)->_flag &= ~_IOTEXT;
896 (stderr)->_flag &= ~_IOTEXT;
897 #endif /* not __DJGPP__ >= 2 */
898 #endif /* MSDOS */
900 #ifdef SET_EMACS_PRIORITY
901 if (emacs_priority)
902 nice (emacs_priority);
903 setuid (getuid ());
904 #endif /* SET_EMACS_PRIORITY */
906 /* Skip initial setlocale if LC_ALL is "C", as it's not needed in that case.
907 The build procedure uses this while dumping, to ensure that the
908 dumped Emacs does not have its system locale tables initialized,
909 as that might cause screwups when the dumped Emacs starts up. */
911 char *lc_all = getenv ("LC_ALL");
912 do_initial_setlocale = ! lc_all || strcmp (lc_all, "C");
915 /* Set locale now, so that initial error messages are localized properly.
916 fixup_locale must wait until later, since it builds strings. */
917 if (do_initial_setlocale)
918 setlocale (LC_ALL, "");
920 #ifdef EXTRA_INITIALIZE
921 EXTRA_INITIALIZE;
922 #endif
924 inhibit_window_system = 0;
926 /* Handle the -t switch, which specifies filename to use as terminal */
927 while (1)
929 char *term;
930 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
932 int result;
933 emacs_close (0);
934 emacs_close (1);
935 result = emacs_open (term, O_RDWR, 0);
936 if (result < 0)
938 char *errstring = strerror (errno);
939 fprintf (stderr, "emacs: %s: %s\n", term, errstring);
940 exit (1);
942 dup (0);
943 if (! isatty (0))
945 fprintf (stderr, "emacs: %s: not a tty\n", term);
946 exit (1);
948 fprintf (stderr, "Using %s\n", term);
949 #ifdef HAVE_WINDOW_SYSTEM
950 inhibit_window_system = 1; /* -t => -nw */
951 #endif
953 else
954 break;
957 if (argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
958 inhibit_window_system = 1;
960 /* Handle the -batch switch, which means don't do interactive display. */
961 noninteractive = 0;
962 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
963 noninteractive = 1;
965 /* Handle the --help option, which gives a usage message.. */
966 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
968 printf (USAGE1, argv[0]);
969 printf (USAGE2);
970 exit (0);
973 if (! noninteractive)
975 #ifdef BSD_PGRPS
976 if (initialized)
978 inherited_pgroup = EMACS_GETPGRP (0);
979 setpgrp (0, getpid ());
981 #else
982 #if defined (USG5) && defined (INTERRUPT_INPUT)
983 setpgrp ();
984 #endif
985 #endif
988 init_signals ();
990 /* Don't catch SIGHUP if dumping. */
991 if (1
992 #ifndef CANNOT_DUMP
993 && initialized
994 #endif
997 sigblock (sigmask (SIGHUP));
998 /* In --batch mode, don't catch SIGHUP if already ignored.
999 That makes nohup work. */
1000 if (! noninteractive
1001 || signal (SIGHUP, SIG_IGN) != SIG_IGN)
1002 signal (SIGHUP, fatal_error_signal);
1003 sigunblock (sigmask (SIGHUP));
1006 if (
1007 #ifndef CANNOT_DUMP
1008 ! noninteractive || initialized
1009 #else
1011 #endif
1014 /* Don't catch these signals in batch mode if dumping.
1015 On some machines, this sets static data that would make
1016 signal fail to work right when the dumped Emacs is run. */
1017 signal (SIGQUIT, fatal_error_signal);
1018 signal (SIGILL, fatal_error_signal);
1019 signal (SIGTRAP, fatal_error_signal);
1020 #ifdef SIGUSR1
1021 signal (SIGUSR1, handle_USR1_signal);
1022 #ifdef SIGUSR2
1023 signal (SIGUSR2, handle_USR2_signal);
1024 #endif
1025 #endif
1026 #ifdef SIGABRT
1027 signal (SIGABRT, fatal_error_signal);
1028 #endif
1029 #ifdef SIGHWE
1030 signal (SIGHWE, fatal_error_signal);
1031 #endif
1032 #ifdef SIGPRE
1033 signal (SIGPRE, fatal_error_signal);
1034 #endif
1035 #ifdef SIGORE
1036 signal (SIGORE, fatal_error_signal);
1037 #endif
1038 #ifdef SIGUME
1039 signal (SIGUME, fatal_error_signal);
1040 #endif
1041 #ifdef SIGDLK
1042 signal (SIGDLK, fatal_error_signal);
1043 #endif
1044 #ifdef SIGCPULIM
1045 signal (SIGCPULIM, fatal_error_signal);
1046 #endif
1047 #ifdef SIGIOT
1048 /* This is missing on some systems - OS/2, for example. */
1049 signal (SIGIOT, fatal_error_signal);
1050 #endif
1051 #ifdef SIGEMT
1052 signal (SIGEMT, fatal_error_signal);
1053 #endif
1054 signal (SIGFPE, fatal_error_signal);
1055 #ifdef SIGBUS
1056 signal (SIGBUS, fatal_error_signal);
1057 #endif
1058 signal (SIGSEGV, fatal_error_signal);
1059 #ifdef SIGSYS
1060 signal (SIGSYS, fatal_error_signal);
1061 #endif
1062 signal (SIGTERM, fatal_error_signal);
1063 #ifdef SIGXCPU
1064 signal (SIGXCPU, fatal_error_signal);
1065 #endif
1066 #ifdef SIGXFSZ
1067 signal (SIGXFSZ, fatal_error_signal);
1068 #endif /* SIGXFSZ */
1070 #ifdef SIGDANGER
1071 /* This just means available memory is getting low. */
1072 signal (SIGDANGER, memory_warning_signal);
1073 #endif
1075 #ifdef AIX
1076 /* 20 is SIGCHLD, 21 is SIGTTIN, 22 is SIGTTOU. */
1077 signal (SIGXCPU, fatal_error_signal);
1078 #ifndef _I386
1079 signal (SIGIOINT, fatal_error_signal);
1080 #endif
1081 signal (SIGGRANT, fatal_error_signal);
1082 signal (SIGRETRACT, fatal_error_signal);
1083 signal (SIGSOUND, fatal_error_signal);
1084 signal (SIGMSG, fatal_error_signal);
1085 #endif /* AIX */
1088 noninteractive1 = noninteractive;
1090 /* Perform basic initializations (not merely interning symbols) */
1092 if (!initialized)
1094 init_alloc_once ();
1095 init_obarray ();
1096 init_eval_once ();
1097 init_charset_once ();
1098 init_coding_once ();
1099 init_syntax_once (); /* Create standard syntax table. */
1100 init_category_once (); /* Create standard category table. */
1101 /* Must be done before init_buffer */
1102 init_casetab_once ();
1103 init_buffer_once (); /* Create buffer table and some buffers */
1104 init_minibuf_once (); /* Create list of minibuffers */
1105 /* Must precede init_window_once */
1107 /* Call syms_of_xfaces before init_window_once because that
1108 function creates Vterminal_frame. Termcap frames now use
1109 faces, and the face implementation uses some symbols as
1110 face names. */
1111 syms_of_xfaces ();
1112 /* Call syms_of_keyboard before init_window_once because
1113 keyboard sets up symbols that include some face names that
1114 the X support will want to use. This can happen when
1115 CANNOT_DUMP is defined. */
1116 syms_of_keyboard ();
1118 init_window_once (); /* Init the window system */
1119 init_fileio_once (); /* Must precede any path manipulation. */
1122 init_alloc ();
1124 if (do_initial_setlocale)
1126 fixup_locale ();
1127 Vsystem_messages_locale = Vprevious_system_messages_locale;
1128 Vsystem_time_locale = Vprevious_system_time_locale;
1131 init_eval ();
1132 init_data ();
1133 #ifdef CLASH_DETECTION
1134 init_filelock ();;
1135 #endif
1136 init_atimer ();
1137 running_asynch_code = 0;
1139 /* Handle --unibyte and the EMACS_UNIBYTE envvar,
1140 but not while dumping. */
1141 if (
1142 #ifndef CANNOT_DUMP
1143 ! noninteractive || initialized
1144 #else
1146 #endif
1149 int inhibit_unibyte = 0;
1151 /* --multibyte overrides EMACS_UNIBYTE. */
1152 if (argmatch (argv, argc, "-no-unibyte", "--no-unibyte", 4, NULL, &skip_args)
1153 || argmatch (argv, argc, "-multibyte", "--multibyte", 4, NULL, &skip_args))
1154 inhibit_unibyte = 1;
1156 /* --unibyte requests that we set up to do everything with single-byte
1157 buffers and strings. We need to handle this before calling
1158 init_lread, init_editfns and other places that generate Lisp strings
1159 from text in the environment. */
1160 /* Actually this shouldn't be needed as of 20.4 in a generally
1161 unibyte environment. As handa says, environment values
1162 aren't now decoded; also existing buffers are now made
1163 unibyte during startup if .emacs sets unibyte. Tested with
1164 8-bit data in environment variables and /etc/passwd, setting
1165 unibyte and Latin-1 in .emacs. -- Dave Love */
1166 if (argmatch (argv, argc, "-unibyte", "--unibyte", 4, NULL, &skip_args)
1167 || argmatch (argv, argc, "-no-multibyte", "--no-multibyte", 4, NULL, &skip_args)
1168 || (getenv ("EMACS_UNIBYTE") && !inhibit_unibyte))
1170 Lisp_Object old_log_max;
1171 Lisp_Object symbol, tail;
1173 symbol = intern ("default-enable-multibyte-characters");
1174 Fset (symbol, Qnil);
1176 if (initialized)
1178 /* Erase pre-dump messages in *Messages* now so no abort. */
1179 old_log_max = Vmessage_log_max;
1180 XSETFASTINT (Vmessage_log_max, 0);
1181 message_dolog ("", 0, 1, 0);
1182 Vmessage_log_max = old_log_max;
1185 for (tail = Vbuffer_alist; CONSP (tail);
1186 tail = XCDR (tail))
1188 Lisp_Object buffer;
1190 buffer = Fcdr (XCAR (tail));
1191 /* Verify that all buffers are empty now, as they
1192 ought to be. */
1193 if (BUF_Z (XBUFFER (buffer)) > BUF_BEG (XBUFFER (buffer)))
1194 abort ();
1195 /* It is safe to do this crudely in an empty buffer. */
1196 XBUFFER (buffer)->enable_multibyte_characters = Qnil;
1201 no_loadup
1202 = argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args);
1205 #ifdef HAVE_X_WINDOWS
1206 /* Stupid kludge to catch command-line display spec. We can't
1207 handle this argument entirely in window system dependent code
1208 because we don't even know which window system dependent code
1209 to run until we've recognized this argument. */
1211 char *displayname = 0;
1212 int count_before = skip_args;
1214 /* Skip any number of -d options, but only use the last one. */
1215 while (1)
1217 int count_before_this = skip_args;
1219 if (argmatch (argv, argc, "-d", "--display", 3, &displayname, &skip_args))
1220 display_arg = 1;
1221 else if (argmatch (argv, argc, "-display", 0, 3, &displayname, &skip_args))
1222 display_arg = 1;
1223 else
1224 break;
1226 count_before = count_before_this;
1229 /* If we have the form --display=NAME,
1230 convert it into -d name.
1231 This requires inserting a new element into argv. */
1232 if (displayname != 0 && skip_args - count_before == 1)
1234 char **new = (char **) xmalloc (sizeof (char *) * (argc + 2));
1235 int j;
1237 for (j = 0; j < count_before + 1; j++)
1238 new[j] = argv[j];
1239 new[count_before + 1] = "-d";
1240 new[count_before + 2] = displayname;
1241 for (j = count_before + 2; j <argc; j++)
1242 new[j + 1] = argv[j];
1243 argv = new;
1244 argc++;
1246 /* Change --display to -d, when its arg is separate. */
1247 else if (displayname != 0 && skip_args > count_before
1248 && argv[count_before + 1][1] == '-')
1249 argv[count_before + 1] = "-d";
1251 /* Don't actually discard this arg. */
1252 skip_args = count_before;
1254 #endif
1256 /* argmatch must not be used after here,
1257 except when bulding temacs
1258 because the -d argument has not been skipped in skip_args. */
1260 #ifdef MSDOS
1261 /* Call early 'cause init_environment needs it. */
1262 init_dosfns ();
1263 /* Set defaults for several environment variables. */
1264 if (initialized)
1265 init_environment (argc, argv, skip_args);
1266 else
1267 tzset ();
1268 #endif /* MSDOS */
1270 #ifdef WINDOWSNT
1271 /* Initialize environment from registry settings. */
1272 init_environment (argv);
1273 init_ntproc (); /* must precede init_editfns */
1274 #endif
1276 /* egetenv is a pretty low-level facility, which may get called in
1277 many circumstances; it seems flimsy to put off initializing it
1278 until calling init_callproc. */
1279 set_process_environment ();
1280 /* AIX crashes are reported in system versions 3.2.3 and 3.2.4
1281 if this is not done. Do it after set_process_environment so that we
1282 don't pollute Vprocess_environment. */
1283 /* Setting LANG here will defeat the startup locale processing... */
1284 #ifdef AIX3_2
1285 putenv ("LANG=C");
1286 #endif
1288 init_buffer (); /* Init default directory of main buffer */
1290 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */
1291 init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */
1293 if (initialized)
1295 /* Erase any pre-dump messages in the message log, to avoid confusion */
1296 Lisp_Object old_log_max;
1297 old_log_max = Vmessage_log_max;
1298 XSETFASTINT (Vmessage_log_max, 0);
1299 message_dolog ("", 0, 1, 0);
1300 Vmessage_log_max = old_log_max;
1303 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */
1304 init_lread ();
1306 /* Intern the names of all standard functions and variables;
1307 define standard keys. */
1309 if (!initialized)
1311 /* The basic levels of Lisp must come first */
1312 /* And data must come first of all
1313 for the sake of symbols like error-message */
1314 syms_of_data ();
1315 syms_of_alloc ();
1316 syms_of_lread ();
1317 syms_of_print ();
1318 syms_of_eval ();
1319 syms_of_fns ();
1320 syms_of_floatfns ();
1322 syms_of_abbrev ();
1323 syms_of_buffer ();
1324 syms_of_bytecode ();
1325 syms_of_callint ();
1326 syms_of_casefiddle ();
1327 syms_of_casetab ();
1328 syms_of_callproc ();
1329 syms_of_category ();
1330 syms_of_ccl ();
1331 syms_of_charset ();
1332 syms_of_cmds ();
1333 #ifndef NO_DIR_LIBRARY
1334 syms_of_dired ();
1335 #endif /* not NO_DIR_LIBRARY */
1336 syms_of_display ();
1337 syms_of_doc ();
1338 syms_of_editfns ();
1339 syms_of_emacs ();
1340 syms_of_fileio ();
1341 syms_of_coding (); /* This should be after syms_of_fileio. */
1342 #ifdef CLASH_DETECTION
1343 syms_of_filelock ();
1344 #endif /* CLASH_DETECTION */
1345 syms_of_indent ();
1346 syms_of_insdel ();
1347 syms_of_keymap ();
1348 syms_of_macros ();
1349 syms_of_marker ();
1350 syms_of_minibuf ();
1351 syms_of_mocklisp ();
1352 syms_of_process ();
1353 syms_of_search ();
1354 syms_of_frame ();
1355 syms_of_syntax ();
1356 syms_of_term ();
1357 syms_of_undo ();
1358 #ifdef HAVE_SOUND
1359 syms_of_sound ();
1360 #endif
1362 syms_of_textprop ();
1363 syms_of_composite ();
1364 #ifdef VMS
1365 syms_of_vmsproc ();
1366 #endif /* VMS */
1367 #ifdef WINDOWSNT
1368 syms_of_ntproc ();
1369 #endif /* WINDOWSNT */
1370 syms_of_window ();
1371 syms_of_xdisp ();
1372 #ifdef HAVE_X_WINDOWS
1373 syms_of_xterm ();
1374 syms_of_xfns ();
1375 syms_of_fontset ();
1376 #ifdef HAVE_X11
1377 syms_of_xselect ();
1378 #endif
1379 #endif /* HAVE_X_WINDOWS */
1381 #ifndef HAVE_NTGUI
1382 syms_of_xmenu ();
1383 #endif
1385 #ifdef HAVE_NTGUI
1386 syms_of_w32term ();
1387 syms_of_w32fns ();
1388 syms_of_w32select ();
1389 syms_of_w32menu ();
1390 syms_of_fontset ();
1391 #endif /* HAVE_NTGUI */
1393 #ifdef SYMS_SYSTEM
1394 SYMS_SYSTEM;
1395 #endif
1397 #ifdef SYMS_MACHINE
1398 SYMS_MACHINE;
1399 #endif
1401 keys_of_casefiddle ();
1402 keys_of_cmds ();
1403 keys_of_buffer ();
1404 keys_of_keyboard ();
1405 keys_of_keymap ();
1406 keys_of_macros ();
1407 keys_of_minibuf ();
1408 keys_of_window ();
1409 keys_of_frame ();
1412 if (!noninteractive)
1414 #ifdef VMS
1415 init_vms_input ();/* init_display calls get_frame_size, that needs this */
1416 #endif /* VMS */
1417 init_display (); /* Determine terminal type. init_sys_modes uses results */
1419 init_keyboard (); /* This too must precede init_sys_modes */
1420 #ifdef VMS
1421 init_vmsproc (); /* And this too. */
1422 #endif /* VMS */
1423 init_sys_modes (); /* Init system terminal modes (RAW or CBREAK, etc.) */
1424 #ifdef HAVE_X_WINDOWS
1425 init_xfns ();
1426 #endif /* HAVE_X_WINDOWS */
1427 init_fns ();
1428 init_xdisp ();
1429 init_macros ();
1430 init_editfns ();
1431 init_floatfns ();
1432 #ifdef VMS
1433 init_vmsfns ();
1434 #endif /* VMS */
1435 init_process ();
1436 #ifdef HAVE_SOUND
1437 init_sound ();
1438 #endif
1439 init_window ();
1441 if (!initialized)
1443 char *file;
1444 /* Handle -l loadup, args passed by Makefile. */
1445 if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args))
1446 Vtop_level = Fcons (intern ("load"),
1447 Fcons (build_string (file), Qnil));
1448 #ifdef CANNOT_DUMP
1449 /* Unless next switch is -nl, load "loadup.el" first thing. */
1450 if (! no_loadup)
1451 Vtop_level = Fcons (intern ("load"),
1452 Fcons (build_string ("loadup.el"), Qnil));
1453 #endif /* CANNOT_DUMP */
1456 if (initialized)
1458 #ifdef HAVE_TZSET
1460 /* If the execution TZ happens to be the same as the dump TZ,
1461 change it to some other value and then change it back,
1462 to force the underlying implementation to reload the TZ info.
1463 This is needed on implementations that load TZ info from files,
1464 since the TZ file contents may differ between dump and execution. */
1465 char *tz = getenv ("TZ");
1466 if (tz && !strcmp (tz, dump_tz))
1468 ++*tz;
1469 tzset ();
1470 --*tz;
1473 #endif
1476 /* Gerd Moellmann <gerd@acm.org> says this makes profiling work on
1477 FreeBSD. It might work on some other systems too.
1478 Give it a try and tell me if it works on your system. */
1479 #if defined (__FreeBSD__) || defined (__linux)
1480 #ifdef PROFILING
1481 if (initialized)
1483 extern void _mcleanup ();
1484 extern char etext;
1485 extern void safe_bcopy ();
1486 extern void dump_opcode_frequencies ();
1488 atexit (_mcleanup);
1489 /* This uses safe_bcopy because that function comes first in the
1490 Emacs executable. It might be better to use something that
1491 gives the start of the text segment, but start_of_text is not
1492 defined on all systems now. */
1493 monstartup (safe_bcopy, &etext);
1495 else
1496 moncontrol (0);
1497 #endif
1498 #endif
1500 initialized = 1;
1502 #ifdef LOCALTIME_CACHE
1503 /* Some versions of localtime have a bug. They cache the value of the time
1504 zone rather than looking it up every time. Since localtime() is
1505 called to bolt the undumping time into the undumped emacs, this
1506 results in localtime ignoring the TZ environment variable.
1507 This flushes the new TZ value into localtime. */
1508 tzset ();
1509 #endif /* defined (LOCALTIME_CACHE) */
1511 /* Enter editor command loop. This never returns. */
1512 Frecursive_edit ();
1513 /* NOTREACHED */
1516 /* Sort the args so we can find the most important ones
1517 at the beginning of argv. */
1519 /* First, here's a table of all the standard options. */
1521 struct standard_args
1523 char *name;
1524 char *longname;
1525 int priority;
1526 int nargs;
1529 struct standard_args standard_args[] =
1531 { "-version", "--version", 150, 0 },
1532 #ifdef HAVE_SHM
1533 { "-nl", "--no-shared-memory", 140, 0 },
1534 #endif
1535 #ifdef VMS
1536 { "-map", "--map-data", 130, 0 },
1537 #endif
1538 { "-t", "--terminal", 120, 1 },
1539 { "-nw", "--no-windows", 110, 0 },
1540 { "-batch", "--batch", 100, 0 },
1541 { "-help", "--help", 90, 0 },
1542 { "-no-unibyte", "--no-unibyte", 83, 0 },
1543 { "-multibyte", "--multibyte", 82, 0 },
1544 { "-unibyte", "--unibyte", 81, 0 },
1545 { "-no-multibyte", "--no-multibyte", 80, 0 },
1546 #ifdef CANNOT_DUMP
1547 { "-nl", "--no-loadup", 70, 0 },
1548 #endif
1549 /* -d must come last before the options handled in startup.el. */
1550 { "-d", "--display", 60, 1 },
1551 { "-display", 0, 60, 1 },
1552 /* Now for the options handled in startup.el. */
1553 { "-q", "--no-init-file", 50, 0 },
1554 { "-no-init-file", 0, 50, 0 },
1555 { "-no-site-file", "--no-site-file", 40, 0 },
1556 { "-u", "--user", 30, 1 },
1557 { "-user", 0, 30, 1 },
1558 { "-debug-init", "--debug-init", 20, 0 },
1559 { "-i", "--icon-type", 15, 0 },
1560 { "-itype", 0, 15, 0 },
1561 { "-iconic", "--iconic", 15, 0 },
1562 { "-bg", "--background-color", 10, 1 },
1563 { "-background", 0, 10, 1 },
1564 { "-fg", "--foreground-color", 10, 1 },
1565 { "-foreground", 0, 10, 1 },
1566 { "-bd", "--border-color", 10, 1 },
1567 { "-bw", "--border-width", 10, 1 },
1568 { "-ib", "--internal-border", 10, 1 },
1569 { "-ms", "--mouse-color", 10, 1 },
1570 { "-cr", "--cursor-color", 10, 1 },
1571 { "-fn", "--font", 10, 1 },
1572 { "-font", 0, 10, 1 },
1573 { "-g", "--geometry", 10, 1 },
1574 { "-geometry", 0, 10, 1 },
1575 { "-T", "--title", 10, 1 },
1576 { "-title", 0, 10, 1 },
1577 { "-name", "--name", 10, 1 },
1578 { "-xrm", "--xrm", 10, 1 },
1579 { "-r", "--reverse-video", 5, 0 },
1580 { "-rv", 0, 5, 0 },
1581 { "-reverse", 0, 5, 0 },
1582 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1583 { "-vb", "--vertical-scroll-bars", 5, 0 },
1584 /* These have the same priority as ordinary file name args,
1585 so they are not reordered with respect to those. */
1586 { "-L", "--directory", 0, 1 },
1587 { "-directory", 0, 0, 1 },
1588 { "-l", "--load", 0, 1 },
1589 { "-load", 0, 0, 1 },
1590 { "-f", "--funcall", 0, 1 },
1591 { "-funcall", 0, 0, 1 },
1592 { "-eval", "--eval", 0, 1 },
1593 { "-execute", "--execute", 0, 1 },
1594 { "-find-file", "--find-file", 0, 1 },
1595 { "-visit", "--visit", 0, 1 },
1596 { "-file", "--file", 0, 1 },
1597 { "-insert", "--insert", 0, 1 },
1598 /* This should be processed after ordinary file name args and the like. */
1599 { "-kill", "--kill", -10, 0 },
1602 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1603 so that the highest priority ones come first.
1604 Do not change the order of elements of equal priority.
1605 If an option takes an argument, keep it and its argument together.
1607 If an option that takes no argument appears more
1608 than once, eliminate all but one copy of it. */
1610 static void
1611 sort_args (argc, argv)
1612 int argc;
1613 char **argv;
1615 char **new = (char **) xmalloc (sizeof (char *) * argc);
1616 /* For each element of argv,
1617 the corresponding element of options is:
1618 0 for an option that takes no arguments,
1619 1 for an option that takes one argument, etc.
1620 -1 for an ordinary non-option argument. */
1621 int *options = (int *) xmalloc (sizeof (int) * argc);
1622 int *priority = (int *) xmalloc (sizeof (int) * argc);
1623 int to = 1;
1624 int incoming_used = 1;
1625 int from;
1626 int i;
1628 /* Categorize all the options,
1629 and figure out which argv elts are option arguments. */
1630 for (from = 1; from < argc; from++)
1632 options[from] = -1;
1633 priority[from] = 0;
1634 if (argv[from][0] == '-')
1636 int match, thislen;
1637 char *equals;
1639 /* If we have found "--", don't consider
1640 any more arguments as options. */
1641 if (argv[from][1] == '-' && argv[from][2] == 0)
1643 /* Leave the "--", and everything following it, at the end. */
1644 for (; from < argc; from++)
1646 priority[from] = -100;
1647 options[from] = -1;
1649 break;
1652 /* Look for a match with a known old-fashioned option. */
1653 for (i = 0; i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1654 if (!strcmp (argv[from], standard_args[i].name))
1656 options[from] = standard_args[i].nargs;
1657 priority[from] = standard_args[i].priority;
1658 if (from + standard_args[i].nargs >= argc)
1659 fatal ("Option `%s' requires an argument\n", argv[from]);
1660 from += standard_args[i].nargs;
1661 goto done;
1664 /* Look for a match with a known long option.
1665 MATCH is -1 if no match so far, -2 if two or more matches so far,
1666 >= 0 (the table index of the match) if just one match so far. */
1667 if (argv[from][1] == '-')
1669 match = -1;
1670 thislen = strlen (argv[from]);
1671 equals = index (argv[from], '=');
1672 if (equals != 0)
1673 thislen = equals - argv[from];
1675 for (i = 0;
1676 i < sizeof (standard_args) / sizeof (standard_args[0]); i++)
1677 if (standard_args[i].longname
1678 && !strncmp (argv[from], standard_args[i].longname,
1679 thislen))
1681 if (match == -1)
1682 match = i;
1683 else
1684 match = -2;
1687 /* If we found exactly one match, use that. */
1688 if (match >= 0)
1690 options[from] = standard_args[match].nargs;
1691 priority[from] = standard_args[match].priority;
1692 /* If --OPTION=VALUE syntax is used,
1693 this option uses just one argv element. */
1694 if (equals != 0)
1695 options[from] = 0;
1696 if (from + options[from] >= argc)
1697 fatal ("Option `%s' requires an argument\n", argv[from]);
1698 from += options[from];
1701 done: ;
1705 /* Copy the arguments, in order of decreasing priority, to NEW. */
1706 new[0] = argv[0];
1707 while (incoming_used < argc)
1709 int best = -1;
1710 int best_priority = -9999;
1712 /* Find the highest priority remaining option.
1713 If several have equal priority, take the first of them. */
1714 for (from = 1; from < argc; from++)
1716 if (argv[from] != 0 && priority[from] > best_priority)
1718 best_priority = priority[from];
1719 best = from;
1721 /* Skip option arguments--they are tied to the options. */
1722 if (options[from] > 0)
1723 from += options[from];
1726 if (best < 0)
1727 abort ();
1729 /* Copy the highest priority remaining option, with its args, to NEW.
1730 Unless it is a duplicate of the previous one. */
1731 if (! (options[best] == 0
1732 && ! strcmp (new[to - 1], argv[best])))
1734 new[to++] = argv[best];
1735 for (i = 0; i < options[best]; i++)
1736 new[to++] = argv[best + i + 1];
1739 incoming_used += 1 + (options[best] > 0 ? options[best] : 0);
1741 /* Clear out this option in ARGV. */
1742 argv[best] = 0;
1743 for (i = 0; i < options[best]; i++)
1744 argv[best + i + 1] = 0;
1747 /* If duplicate options were deleted, fill up extra space with null ptrs. */
1748 while (to < argc)
1749 new[to++] = 0;
1751 bcopy (new, argv, sizeof (char *) * argc);
1753 free (options);
1754 free (new);
1755 free (priority);
1758 DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P",
1759 "Exit the Emacs job and kill it.\n\
1760 If ARG is an integer, return ARG as the exit program code.\n\
1761 If ARG is a string, stuff it as keyboard input.\n\n\
1762 The value of `kill-emacs-hook', if not void,\n\
1763 is a list of functions (of no args),\n\
1764 all of which are called before Emacs is actually killed.")
1765 (arg)
1766 Lisp_Object arg;
1768 struct gcpro gcpro1;
1770 GCPRO1 (arg);
1772 if (feof (stdin))
1773 arg = Qt;
1775 if (!NILP (Vrun_hooks) && !noninteractive)
1776 call1 (Vrun_hooks, intern ("kill-emacs-hook"));
1778 UNGCPRO;
1780 /* Is it really necessary to do this deassign
1781 when we are going to exit anyway? */
1782 /* #ifdef VMS
1783 stop_vms_input ();
1784 #endif */
1786 shut_down_emacs (0, 0, STRINGP (arg) ? arg : Qnil);
1788 /* If we have an auto-save list file,
1789 kill it because we are exiting Emacs deliberately (not crashing).
1790 Do it after shut_down_emacs, which does an auto-save. */
1791 if (STRINGP (Vauto_save_list_file_name))
1792 unlink (XSTRING (Vauto_save_list_file_name)->data);
1794 exit (INTEGERP (arg) ? XINT (arg)
1795 #ifdef VMS
1797 #else
1799 #endif
1801 /* NOTREACHED */
1805 /* Perform an orderly shutdown of Emacs. Autosave any modified
1806 buffers, kill any child processes, clean up the terminal modes (if
1807 we're in the foreground), and other stuff like that. Don't perform
1808 any redisplay; this may be called when Emacs is shutting down in
1809 the background, or after its X connection has died.
1811 If SIG is a signal number, print a message for it.
1813 This is called by fatal signal handlers, X protocol error handlers,
1814 and Fkill_emacs. */
1816 void
1817 shut_down_emacs (sig, no_x, stuff)
1818 int sig, no_x;
1819 Lisp_Object stuff;
1821 /* Prevent running of hooks from now on. */
1822 Vrun_hooks = Qnil;
1824 /* If we are controlling the terminal, reset terminal modes */
1825 #ifdef EMACS_HAVE_TTY_PGRP
1827 int pgrp = EMACS_GETPGRP (0);
1829 int tpgrp;
1830 if (EMACS_GET_TTY_PGRP (0, &tpgrp) != -1
1831 && tpgrp == pgrp)
1833 fflush (stdout);
1834 reset_sys_modes ();
1835 if (sig && sig != SIGTERM)
1836 fprintf (stderr, "Fatal error (%d).", sig);
1839 #else
1840 fflush (stdout);
1841 reset_sys_modes ();
1842 #endif
1844 stuff_buffered_input (stuff);
1846 kill_buffer_processes (Qnil);
1847 Fdo_auto_save (Qt, Qnil);
1849 #ifdef CLASH_DETECTION
1850 unlock_all_files ();
1851 #endif
1853 #ifdef VMS
1854 kill_vms_processes ();
1855 #endif
1857 #if 0 /* This triggers a bug in XCloseDisplay and is not needed. */
1858 #ifdef HAVE_X_WINDOWS
1859 /* It's not safe to call intern here. Maybe we are crashing. */
1860 if (!noninteractive && SYMBOLP (Vwindow_system)
1861 && XSYMBOL (Vwindow_system)->name->size == 1
1862 && XSYMBOL (Vwindow_system)->name->data[0] == 'x'
1863 && ! no_x)
1864 Fx_close_current_connection ();
1865 #endif /* HAVE_X_WINDOWS */
1866 #endif
1868 #ifdef SIGIO
1869 /* There is a tendency for a SIGIO signal to arrive within exit,
1870 and cause a SIGHUP because the input descriptor is already closed. */
1871 unrequest_sigio ();
1872 signal (SIGIO, SIG_IGN);
1873 #endif
1875 #ifdef WINDOWSNT
1876 term_ntproc ();
1877 #endif
1879 check_glyph_memory ();
1880 check_message_stack ();
1882 #ifdef MSDOS
1883 dos_cleanup ();
1884 #endif
1889 #ifndef CANNOT_DUMP
1891 #ifdef HAVE_SHM
1893 DEFUN ("dump-emacs-data", Fdump_emacs_data, Sdump_emacs_data, 1, 1, 0,
1894 "Dump current state of Emacs into data file FILENAME.\n\
1895 This function exists on systems that use HAVE_SHM.")
1896 (filename)
1897 Lisp_Object filename;
1899 extern char my_edata[];
1900 Lisp_Object tem;
1902 CHECK_STRING (filename, 0);
1903 filename = Fexpand_file_name (filename, Qnil);
1905 tem = Vpurify_flag;
1906 Vpurify_flag = Qnil;
1908 fflush (stdout);
1909 /* Tell malloc where start of impure now is */
1910 /* Also arrange for warnings when nearly out of space. */
1911 #ifndef SYSTEM_MALLOC
1912 memory_warnings (my_edata, malloc_warning);
1913 #endif
1914 map_out_data (XSTRING (filename)->data);
1916 Vpurify_flag = tem;
1918 return Qnil;
1921 #else /* not HAVE_SHM */
1923 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0,
1924 "Dump current state of Emacs into executable file FILENAME.\n\
1925 Take symbols from SYMFILE (presumably the file you executed to run Emacs).\n\
1926 This is used in the file `loadup.el' when building Emacs.\n\
1928 You must run Emacs in batch mode in order to dump it.")
1929 (filename, symfile)
1930 Lisp_Object filename, symfile;
1932 extern char my_edata[];
1933 Lisp_Object tem;
1934 Lisp_Object symbol;
1935 int count = specpdl_ptr - specpdl;
1937 if (! noninteractive)
1938 error ("Dumping Emacs works only in batch mode");
1940 /* Bind `command-line-processed' to nil before dumping,
1941 so that the dumped Emacs will process its command line
1942 and set up to work with X windows if appropriate. */
1943 symbol = intern ("command-line-process");
1944 specbind (symbol, Qnil);
1946 CHECK_STRING (filename, 0);
1947 filename = Fexpand_file_name (filename, Qnil);
1948 if (!NILP (symfile))
1950 CHECK_STRING (symfile, 0);
1951 if (XSTRING (symfile)->size)
1952 symfile = Fexpand_file_name (symfile, Qnil);
1955 tem = Vpurify_flag;
1956 Vpurify_flag = Qnil;
1958 #ifdef HAVE_TZSET
1959 set_time_zone_rule (dump_tz);
1960 #ifndef LOCALTIME_CACHE
1961 /* Force a tz reload, since set_time_zone_rule doesn't. */
1962 tzset ();
1963 #endif
1964 #endif
1966 fflush (stdout);
1967 #ifdef VMS
1968 mapout_data (XSTRING (filename)->data);
1969 #else
1970 /* Tell malloc where start of impure now is */
1971 /* Also arrange for warnings when nearly out of space. */
1972 #ifndef SYSTEM_MALLOC
1973 #ifndef WINDOWSNT
1974 /* On Windows, this was done before dumping, and that once suffices.
1975 Meanwhile, my_edata is not valid on Windows. */
1976 memory_warnings (my_edata, malloc_warning);
1977 #endif /* not WINDOWSNT */
1978 #endif
1979 #ifdef DOUG_LEA_MALLOC
1980 malloc_state_ptr = malloc_get_state ();
1981 #endif
1982 unexec (XSTRING (filename)->data,
1983 !NILP (symfile) ? XSTRING (symfile)->data : 0, my_edata, 0, 0);
1984 #ifdef DOUG_LEA_MALLOC
1985 free (malloc_state_ptr);
1986 #endif
1987 #endif /* not VMS */
1989 Vpurify_flag = tem;
1991 return unbind_to (count, Qnil);
1994 #endif /* not HAVE_SHM */
1996 #endif /* not CANNOT_DUMP */
1998 #if HAVE_SETLOCALE
1999 /* Recover from setlocale (LC_ALL, ""). */
2000 void
2001 fixup_locale ()
2003 /* The Emacs Lisp reader needs LC_NUMERIC to be "C",
2004 so that numbers are read and printed properly for Emacs Lisp. */
2005 setlocale (LC_NUMERIC, "C");
2008 /* Set system locale CATEGORY, with previous locale *PLOCALE, to
2009 DESIRED_LOCALE. */
2010 static void
2011 synchronize_locale (category, plocale, desired_locale)
2012 int category;
2013 Lisp_Object *plocale;
2014 Lisp_Object desired_locale;
2016 if (! EQ (*plocale, desired_locale))
2018 *plocale = desired_locale;
2019 setlocale (category, (STRINGP (desired_locale)
2020 ? (char *)(XSTRING (desired_locale)->data)
2021 : ""));
2025 /* Set system time locale to match Vsystem_time_locale, if possible. */
2026 void
2027 synchronize_system_time_locale ()
2029 synchronize_locale (LC_TIME, &Vprevious_system_time_locale,
2030 Vsystem_time_locale);
2033 /* Set system messages locale to match Vsystem_messages_locale, if
2034 possible. */
2035 void
2036 synchronize_system_messages_locale ()
2038 #ifdef LC_MESSAGES
2039 synchronize_locale (LC_MESSAGES, &Vprevious_system_messages_locale,
2040 Vsystem_messages_locale);
2041 #endif
2043 #endif /* HAVE_SETLOCALE */
2045 #ifndef SEPCHAR
2046 #define SEPCHAR ':'
2047 #endif
2049 Lisp_Object
2050 decode_env_path (evarname, defalt)
2051 char *evarname, *defalt;
2053 register char *path, *p;
2054 Lisp_Object lpath, element, tem;
2056 /* It's okay to use getenv here, because this function is only used
2057 to initialize variables when Emacs starts up, and isn't called
2058 after that. */
2059 if (evarname != 0)
2060 path = (char *) getenv (evarname);
2061 else
2062 path = 0;
2063 if (!path)
2064 path = defalt;
2065 #ifdef DOS_NT
2066 /* Ensure values from the environment use the proper directory separator. */
2067 if (path)
2069 p = alloca (strlen (path) + 1);
2070 strcpy (p, path);
2071 path = p;
2073 if ('/' == DIRECTORY_SEP)
2074 dostounix_filename (path);
2075 else
2076 unixtodos_filename (path);
2078 #endif
2079 lpath = Qnil;
2080 while (1)
2082 p = index (path, SEPCHAR);
2083 if (!p) p = path + strlen (path);
2084 element = (p - path ? make_string (path, p - path)
2085 : build_string ("."));
2087 /* Add /: to the front of the name
2088 if it would otherwise be treated as magic. */
2089 tem = Ffind_file_name_handler (element, Qt);
2090 if (! NILP (tem))
2091 element = concat2 (build_string ("/:"), element);
2093 lpath = Fcons (element, lpath);
2094 if (*p)
2095 path = p + 1;
2096 else
2097 break;
2099 return Fnreverse (lpath);
2102 void
2103 syms_of_emacs ()
2105 Qfile_name_handler_alist = intern ("file-name-handler-alist");
2106 staticpro (&Qfile_name_handler_alist);
2108 #ifndef CANNOT_DUMP
2109 #ifdef HAVE_SHM
2110 defsubr (&Sdump_emacs_data);
2111 #else
2112 defsubr (&Sdump_emacs);
2113 #endif
2114 #endif
2116 defsubr (&Skill_emacs);
2118 defsubr (&Sinvocation_name);
2119 defsubr (&Sinvocation_directory);
2121 DEFVAR_LISP ("command-line-args", &Vcommand_line_args,
2122 "Args passed by shell to Emacs, as a list of strings.");
2124 DEFVAR_LISP ("system-type", &Vsystem_type,
2125 "Value is symbol indicating type of operating system you are using.");
2126 Vsystem_type = intern (SYSTEM_TYPE);
2128 DEFVAR_LISP ("system-configuration", &Vsystem_configuration,
2129 "Value is string indicating configuration Emacs was built for.");
2130 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
2132 DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options,
2133 "String containing the configuration options Emacs was built with.");
2134 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
2136 DEFVAR_BOOL ("noninteractive", &noninteractive1,
2137 "Non-nil means Emacs is running without interactive terminal.");
2139 DEFVAR_LISP ("kill-emacs-hook", &Vkill_emacs_hook,
2140 "Hook to be run whenever kill-emacs is called.\n\
2141 Since kill-emacs may be invoked when the terminal is disconnected (or\n\
2142 in other similar situations), functions placed on this hook should not\n\
2143 expect to be able to interact with the user. To ask for confirmation,\n\
2144 see `kill-emacs-query-functions' instead.");
2145 Vkill_emacs_hook = Qnil;
2147 #ifdef SIGUSR1
2148 DEFVAR_LISP ("signal-USR1-hook", &Vsignal_USR1_hook,
2149 "Hook to be run whenever emacs receives a USR1 signal");
2150 Vsignal_USR1_hook = Qnil;
2151 #ifdef SIGUSR2
2152 DEFVAR_LISP ("signal-USR2-hook", &Vsignal_USR2_hook,
2153 "Hook to be run whenever emacs receives a USR2 signal");
2154 Vsignal_USR2_hook = Qnil;
2155 #endif
2156 #endif
2159 DEFVAR_INT ("emacs-priority", &emacs_priority,
2160 "Priority for Emacs to run at.\n\
2161 This value is effective only if set before Emacs is dumped,\n\
2162 and only if the Emacs executable is installed with setuid to permit\n\
2163 it to change priority. (Emacs sets its uid back to the real uid.)\n\
2164 Currently, you need to define SET_EMACS_PRIORITY in `config.h'\n\
2165 before you compile Emacs, to enable the code for this feature.");
2166 emacs_priority = 0;
2168 DEFVAR_LISP ("path-separator", &Vpath_separator,
2169 "The directory separator in search paths, as a string.");
2171 char c = SEPCHAR;
2172 Vpath_separator = make_string (&c, 1);
2175 DEFVAR_LISP ("invocation-name", &Vinvocation_name,
2176 "The program name that was used to run Emacs.\n\
2177 Any directory names are omitted.");
2179 DEFVAR_LISP ("invocation-directory", &Vinvocation_directory,
2180 "The directory in which the Emacs executable was found, to run it.\n\
2181 The value is nil if that directory's name is not known.");
2183 DEFVAR_LISP ("installation-directory", &Vinstallation_directory,
2184 "A directory within which to look for the `lib-src' and `etc' directories.\n\
2185 This is non-nil when we can't find those directories in their standard\n\
2186 installed locations, but we can find them\n\
2187 near where the Emacs executable was found.");
2188 Vinstallation_directory = Qnil;
2190 DEFVAR_LISP ("system-messages-locale", &Vsystem_messages_locale,
2191 "System locale for messages.");
2192 Vsystem_messages_locale = Qnil;
2194 DEFVAR_LISP ("previous-system-messages-locale",
2195 &Vprevious_system_messages_locale,
2196 "Most recently used system locale for messages.");
2197 Vprevious_system_messages_locale = Qnil;
2199 DEFVAR_LISP ("system-time-locale", &Vsystem_time_locale,
2200 "System locale for time.");
2201 Vsystem_time_locale = Qnil;
2203 DEFVAR_LISP ("previous-system-time-locale", &Vprevious_system_time_locale,
2204 "Most recently used system locale for time.");
2205 Vprevious_system_time_locale = Qnil;