1 /* XEmacs -- Fully extensible Emacs, running on Unix and other platforms.
2 Copyright (C) 1985, 1986, 1987, 1992, 1993, 1994
3 Free Software Foundation, Inc.
4 Copyright (C) 1995 Sun Microsystems, Inc.
6 This file is part of XEmacs.
8 XEmacs is free software; you can redistribute it and/or modify it
9 under the terms of the GNU General Public License as published by the
10 Free Software Foundation; either version 2, or (at your option) any
13 XEmacs is distributed in the hope that it will be useful, but WITHOUT
14 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
15 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
18 You should have received a copy of the GNU General Public License
19 along with XEmacs; see the file COPYING. If not, write to
20 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA. */
23 /* Synched up with: Mule 2.0, FSF 19.28. */
25 /* Note: It is necessary to specify <config.h> and not "config.h" in
26 order for the --srcdir type of compilation to work properly.
27 Otherwise the config.h from the srcdir, rather than the one from
28 the build dir, will be used. */
33 #include "backtrace.h" /* run-emacs-from-temacs needs this */
38 #include "redisplay.h"
41 #include "syssignal.h" /* Always include before systty.h */
54 #if defined (HAVE_LOCALE_H) && \
55 (defined (I18N2) || defined (I18N3) || defined (I18N4))
65 #include <default_acl.h>
69 #if defined (WINDOWSNT)
77 void report_sheap_usage (int die_if_pure_storage_exceeded);
80 #if !defined SYSTEM_MALLOC && !defined DOUG_LEA_MALLOC
81 extern void *(*__malloc_hook)(size_t);
82 extern void *(*__realloc_hook)(void *, size_t);
83 extern void (*__free_hook)(void *);
84 #endif /* not SYSTEM_MALLOC && not DOUG_LEA_MALLOC */
86 /* Command line args from shell, as list of strings */
87 Lisp_Object Vcommand_line_args;
89 /* Set nonzero after XEmacs has started up the first time.
90 Prevents reinitialization of the Lisp world and keymaps
91 on subsequent starts. */
94 #ifdef DOUG_LEA_MALLOC
96 /* Preserves a pointer to the memory allocated that copies that
97 static data inside glibc's malloc. */
98 static void *malloc_state_ptr;
99 #endif /* DOUG_LEA_MALLOC */
102 void r_alloc_reinit (void);
105 /* Variable whose value is symbol giving operating system type. */
106 Lisp_Object Vsystem_type;
108 /* Variable whose value is string giving configuration built for. */
109 Lisp_Object Vsystem_configuration;
111 /* Variable whose value is string containing the configuration options
112 XEmacs was built with. */
113 Lisp_Object Vsystem_configuration_options;
115 /* Version numbers and strings */
116 Lisp_Object Vemacs_major_version;
117 Lisp_Object Vemacs_minor_version;
118 Lisp_Object Vemacs_patch_level;
119 Lisp_Object Vemacs_beta_version;
120 Lisp_Object Vxemacs_codename;
122 Lisp_Object Vinfodock_major_version;
123 Lisp_Object Vinfodock_minor_version;
124 Lisp_Object Vinfodock_build_version;
127 /* The path under which XEmacs was invoked. */
128 Lisp_Object Vinvocation_path;
130 /* The name under which XEmacs was invoked, with any leading directory
132 Lisp_Object Vinvocation_name;
134 /* The directory name from which XEmacs was invoked. */
135 Lisp_Object Vinvocation_directory;
138 /* The directory name in which to find subdirs such as lisp and etc.
139 nil means get them only from PATH_LOADSEARCH. */
140 Lisp_Object Vinstallation_directory;
143 Lisp_Object Vemacs_program_name, Vemacs_program_version;
144 Lisp_Object Vexec_path;
145 Lisp_Object Vexec_directory, Vconfigure_exec_directory;
146 Lisp_Object Vlisp_directory, Vconfigure_lisp_directory;
147 Lisp_Object Vmodule_directory, Vconfigure_module_directory;
148 Lisp_Object Vsite_module_directory, Vconfigure_site_module_directory;
149 Lisp_Object Vconfigure_package_path;
150 Lisp_Object Vdata_directory, Vconfigure_data_directory;
151 Lisp_Object Vdoc_directory, Vconfigure_doc_directory;
152 Lisp_Object Vconfigure_lock_directory;
153 Lisp_Object Vdata_directory_list;
154 Lisp_Object Vinfo_directory, Vconfigure_info_directory;
155 Lisp_Object Vsite_directory, Vconfigure_site_directory;
156 Lisp_Object Vconfigure_info_path;
157 Lisp_Object Vinternal_error_checking;
158 Lisp_Object Vpath_separator;
160 /* The default base directory XEmacs is installed under. */
161 Lisp_Object Vconfigure_exec_prefix_directory, Vconfigure_prefix_directory;
163 /* If nonzero, set XEmacs to run at this priority. This is also used
164 in child_setup and sys_suspend to make sure subshells run at normal
168 /* If non-zero a filter or a sentinel is running. Tested to save the match
169 data on the first attempt to change it inside asynchronous code. */
170 int running_asynch_code;
172 /* If non-zero, a window-system was specified on the command line. */
175 /* Type of display specified. We cannot use a Lisp symbol here because
176 Lisp symbols may not initialized at the time that we set this
178 CONST char *display_use;
180 /* If non-zero, then the early error handler will only print the error
182 int suppress_early_error_handler_backtrace;
184 /* An address near the bottom of the stack.
185 Tells GC how to save a copy of the stack. */
188 #ifdef USG_SHARED_LIBRARIES
189 /* If nonzero, this is the place to put the end of the writable segment
192 uintptr_t bss_end = 0;
195 /* Number of bytes of writable memory we can expect to be able to get */
196 unsigned int lim_data;
198 /* Nonzero means running XEmacs without interactive terminal. */
202 /* Value of Lisp variable `noninteractive'.
203 Normally same as C variable `noninteractive'
204 but nothing terrible happens if user sets this one. */
208 /* Nonzero means don't perform site-lisp searches at startup */
209 int inhibit_site_lisp;
211 /* Nonzero means don't perform site-modules searches at startup */
212 int inhibit_site_modules;
214 /* Nonzero means don't respect early packages at startup */
215 int inhibit_early_packages;
217 /* Nonzero means don't load package autoloads at startup */
218 int inhibit_autoloads;
220 /* Nonzero means print debug information about path searching */
223 /* Save argv and argc. */
227 static void sort_args (int argc, char **argv);
229 Lisp_Object Qkill_emacs_hook;
230 Lisp_Object Qsave_buffers_kill_emacs;
232 extern Lisp_Object Vlisp_EXEC_SUFFIXES;
235 /* Signal code for the fatal signal that was received */
236 static int fatal_error_code;
238 /* Nonzero if handling a fatal error already */
239 static int fatal_error_in_progress;
241 static void shut_down_emacs (int sig, Lisp_Object stuff);
243 /* Handle bus errors, illegal instruction, etc. */
245 fatal_error_signal (int sig)
247 fatal_error_code = sig;
248 signal (sig, SIG_DFL);
249 /* Unblock the signal so that if the same signal gets sent in the
250 code below, we avoid a deadlock. */
251 EMACS_UNBLOCK_SIGNAL (fatal_error_code);
253 /* If fatal error occurs in code below, avoid infinite recursion. */
254 if (! fatal_error_in_progress)
256 fatal_error_in_progress = dont_check_for_quit = 1;
257 shut_down_emacs (sig, Qnil);
258 stderr_out ("\nLisp backtrace follows:\n\n");
259 Fbacktrace (Qexternal_debugging_output, Qt);
260 # if 0 /* This is evil, rarely useful, and causes grief in some cases. */
261 /* Check for Sun-style stack printing via /proc */
263 CONST char *pstack = "/usr/proc/bin/pstack";
264 if (access (pstack, X_OK) == 0)
267 stderr_out ("\nC backtrace follows:\n"
268 "(A real debugger may provide better information)\n\n");
269 sprintf (buf, "%s %d >&2", pstack, (int)getpid());
275 /* Signal the same code; this time it will really be fatal. */
276 kill (getpid (), fatal_error_code);
282 fatal (CONST char *fmt, ...)
285 va_start (args, fmt);
287 fprintf (stderr, "\nXEmacs: ");
288 vfprintf (stderr, GETTEXT (fmt), args);
289 fprintf (stderr, "\n");
296 /* #### The following two functions should be replaced with
297 calls to emacs_doprnt_*() functions, with STREAM set to send out
298 to stdout or stderr. This is the only way to ensure that
299 I18N3 works properly (many implementations of the *printf()
300 functions, including the ones included in glibc, do not implement
301 the %###$ argument-positioning syntax). */
303 /* exactly equivalent to fprintf (stderr, fmt, ...) except that it calls
304 GETTEXT on the format string. */
307 stderr_out (CONST char *fmt, ...)
311 va_start (args, fmt);
313 retval = vfprintf (stderr, GETTEXT (fmt), args);
316 /* fflush (stderr); */
320 /* exactly equivalent to fprintf (stdout, fmt, ...) except that it calls
321 GETTEXT on the format string. */
324 stdout_out (CONST char *fmt, ...)
328 va_start (args, fmt);
330 retval = vfprintf (stdout, GETTEXT (fmt), args);
338 /* Handler for SIGDANGER. */
340 memory_warning_signal (int sig)
342 /* #### bad bad bad; this function shouldn't do anything except
343 set a flag, or weird corruption could happen. */
344 signal (sig, memory_warning_signal);
347 (GETTEXT ("Operating system warns that virtual memory is running low.\n"));
349 /* It might be unsafe to call do_auto_save now. */
350 force_auto_save_soon ();
352 #endif /* SIGDANGER */
354 /* Code for dealing with Lisp access to the Unix command line */
357 make_arg_list_1 (int argc, char **argv, int skip_args)
359 Lisp_Object result = Qnil;
362 for (i = argc - 1; i >= 0; i--)
364 if (i == 0 || i > skip_args)
369 /* Do not trust to what crt0 has stuffed into argv[0] */
370 char full_exe_path [MAX_PATH];
371 GetModuleFileName (NULL, full_exe_path, MAX_PATH);
372 result = Fcons (build_ext_string (full_exe_path, FORMAT_FILENAME),
374 #if defined(HAVE_SHLIB)
375 (void)dll_init(full_exe_path);
380 result = Fcons (build_ext_string (argv [i], FORMAT_FILENAME), result);
387 make_arg_list (int argc, char **argv)
389 return make_arg_list_1 (argc, argv, 0);
392 /* Calling functions are also responsible for calling free_argc_argv
393 when they are done with the generated list. */
395 make_argc_argv (Lisp_Object argv_list, int *argc, char ***argv)
398 int n = XINT (Flength (argv_list));
400 *argv = (char**) xmalloc ((n+1) * sizeof (char*));
402 for (i = 0, next = argv_list; i < n; i++, next = XCDR (next))
405 CHECK_STRING (XCAR (next));
407 GET_C_STRING_EXT_DATA_ALLOCA (XCAR (next), FORMAT_OS, temp);
408 (*argv) [i] = xstrdup (temp);
415 free_argc_argv (char **argv)
428 init_cmdargs (int argc, char **argv, int skip_args)
433 Vcommand_line_args = make_arg_list_1 (argc, argv, skip_args);
436 DEFUN ("invocation-name", Finvocation_name, 0, 0, 0, /*
437 Return the program name that was used to run XEmacs.
438 Any directory names are omitted.
442 return Fcopy_sequence (Vinvocation_name);
445 DEFUN ("invocation-directory", Finvocation_directory, 0, 0, 0, /*
446 Return the directory name in which the Emacs executable was located.
450 return Fcopy_sequence (Vinvocation_directory);
455 /* #### - don't know why I18N4 on SunOS/JLE
456 can't deal with this. It's a potential
457 bug that needs to be looked at. */
458 # undef RUN_TIME_REMAP
461 #if defined (MULE) && defined (MSDOS) && defined (EMX)
462 /* Setup all of files be input/output'ed with binary translation mode. */
464 asm ("L_setbinmode:");
465 asm (" movl $1, __fmode_bin");
467 asm (" .stabs \"___CTOR_LIST__\", 23, 0, 0, L_setbinmode");
470 /* Test whether the next argument in ARGV matches SSTR or a prefix of
471 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
472 (the argument is supposed to have a value) store in *VALPTR either
473 the next argument or the portion of this one after the equal sign.
474 ARGV is read starting at position *SKIPPTR; this index is advanced
475 by the number of arguments used.
477 Too bad we can't just use getopt for all of this, but we don't have
478 enough information to do it right. */
481 argmatch (char **argv, int argc, char *sstr, char *lstr,
482 int minlen, char **valptr, int *skipptr)
488 /* Don't access argv[argc]; give up in advance. */
489 if (argc <= *skipptr + 1)
492 arg = argv[*skipptr+1];
495 if (strcmp (arg, sstr) == 0)
499 *valptr = argv[*skipptr+2];
506 arglen = (valptr != NULL && (p = strchr (arg, '=')) != NULL
507 ? p - arg : strlen (arg));
508 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
510 else if (valptr == NULL)
521 else if (argv[*skipptr+2] != NULL)
523 *valptr = argv[*skipptr+2];
533 /* Make stack traces always identify version + configuration */
534 #define main_1 STACK_TRACE_EYE_CATCHER
536 /* This function is not static, so that the compiler is less likely to
537 inline it, which would make it not show up in stack traces. */
538 DECLARE_DOESNT_RETURN (main_1 (int, char **, char **, int));
540 main_1 (int argc, char **argv, char **envp, int restart)
542 char stack_bottom_variable;
545 int inhibit_window_system;
547 extern int malloc_cookie;
550 #if !defined(SYSTEM_MALLOC) && !defined(HAVE_LIBMCHECK)
551 /* Make sure that any libraries we link against haven't installed a
552 hook for a gmalloc of a potentially incompatible version. */
553 /* If we're using libmcheck, the hooks have already been initialized, */
554 /* don't touch them. -slb */
555 __malloc_hook = NULL;
556 __realloc_hook = NULL;
558 #endif /* not SYSTEM_MALLOC */
564 * NeXT secret magic, ripped from Emacs-for-NS by Carl Edman
565 * <cedman@princeton.edu>. Note that even Carl doesn't know what this
566 * does; it was provided by NeXT, and it presumable makes NS's mallocator
567 * work with dumping. But malloc_jumpstart() and malloc_freezedry() in
568 * unexnext.c are both completely undocumented, even in NS header files!
569 * But hey, it solves all NS related memory problems, so who's
571 if (initialized && malloc_jumpstart (malloc_cookie) != 0)
572 fprintf (stderr, "malloc jumpstart failed!\n");
576 #if defined (GNU_MALLOC) && \
577 defined (ERROR_CHECK_MALLOC) && \
578 !defined (HAVE_LIBMCHECK)
580 #if defined(LOSING_GCC_DESTRUCTOR_FREE_BUG)
581 /* Prior to XEmacs 21, this was `#if 0'ed out. */
582 /* I'm enabling this because it is the only reliable way I've found to */
583 /* prevent a very annoying problem where GCC will attempt to free(3) */
584 /* memory at exit() and cause a coredump. */
588 sort_args (argc, argv);
590 /* Map in shared memory, if we are using that. */
592 if (argmatch (argv, argc, "-nl", "--no-shared-memory", 6, NULL, &skip_args))
595 /* The shared memory was just restored, which clobbered this. */
601 /* The shared memory was just restored, which clobbered this. */
604 #endif /* HAVE_SHM */
606 #if (defined (MSDOS) && defined (EMX)) || defined (WIN32) || defined (_SCO_DS)
610 /* Record (approximately) where the stack begins. */
611 stack_bottom = &stack_bottom_variable;
613 #ifdef USG_SHARED_LIBRARIES
615 brk ((void *) bss_end);
622 /* If USE_DOMAIN_ACLS environment variable exists,
623 use ACLs rather than UNIX modes. */
624 if (egetenv ("USE_DOMAIN_ACLS"))
625 default_acl (USE_DEFACL);
629 #if defined (HAVE_MMAP) && defined (REL_ALLOC)
630 /* ralloc can only be used if using the GNU memory allocator. */
632 #elif defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
640 #endif /* HAVE_SOCKS */
642 #ifndef SYSTEM_MALLOC
644 /* Arrange to get warning messages as memory fills up. */
645 memory_warnings (0, malloc_warning);
646 #endif /* not SYSTEM_MALLOC */
649 /* We do all file input/output as binary files. When we need to translate
650 newlines, we do that manually. */
652 (stdin) ->_flag &= ~_IOTEXT;
653 (stdout)->_flag &= ~_IOTEXT;
654 (stderr)->_flag &= ~_IOTEXT;
657 #ifdef SET_EMACS_PRIORITY
658 if (emacs_priority != 0)
659 nice (-emacs_priority);
661 #endif /* SET_EMACS_PRIORITY */
663 #ifdef EXTRA_INITIALIZE
667 #ifdef HAVE_WINDOW_SYSTEM
668 inhibit_window_system = 0;
670 inhibit_window_system = 1;
673 /* Handle the -t switch, which specifies filename to use as terminal */
676 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
680 if (open (term, O_RDWR | OPEN_BINARY, 2) < 0)
681 fatal ("%s: %s", term, strerror (errno));
684 fatal ("%s: not a tty", term);
687 stderr_out ("Using %s", ttyname (0));
689 stderr_out ("Using %s", term);
690 inhibit_window_system = 1; /* -t => -nw */
694 /* Handle -nw switch */
695 if (argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
696 inhibit_window_system = 1;
698 /* Handle the -batch switch, which means don't do interactive display. */
699 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
701 #if 0 /* I don't think this is correct. */
702 inhibit_autoloads = 1;
707 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
708 11, NULL, &skip_args))
711 /* Partially handle -no-autoloads, -no-early-packages and -vanilla. Packages */
712 /* are searched prior to the rest of the command line being parsed in */
714 if (argmatch (argv, argc, "-no-early-packages", "--no-early-packages",
715 6, NULL, &skip_args))
717 inhibit_early_packages = 1;
721 if (argmatch (argv, argc, "-no-site-modules", "--no-site-modules",
722 9, NULL, &skip_args))
724 inhibit_site_modules = 1;
728 inhibit_site_modules = 1;
730 if (argmatch (argv, argc, "-vanilla", "--vanilla",
731 7, NULL, &skip_args))
733 inhibit_early_packages = 1;
737 if (argmatch (argv, argc, "-no-autoloads", "--no-autoloads",
738 7, NULL, &skip_args))
740 /* Inhibit everything */
741 inhibit_autoloads = 1;
745 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
746 6, NULL, &skip_args))
753 /* Partially handle the -version and -help switches: they imply -batch,
754 but are not removed from the list. */
755 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
756 noninteractive = 1, skip_args--;
758 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args) ||
759 argmatch (argv, argc, "-V", 0, 2, NULL, &skip_args))
760 noninteractive = 1, skip_args--;
762 /* Now, figure out which type of console is our first console. */
767 display_use = "stream";
772 if (inhibit_window_system)
773 fatal ("Sorry, this XEmacs was not compiled with TTY support");
776 #ifdef HAVE_WINDOW_SYSTEM
777 /* Stupid kludge to catch command-line display spec. We can't
778 handle this argument entirely in window-system-dependent code
779 because we don't even know which window-system-dependent code
780 to run until we've recognized this argument. */
781 if (!inhibit_window_system && !noninteractive)
783 #ifdef HAVE_X_WINDOWS
785 int count_before = skip_args;
787 if (argmatch (argv, argc, "-d", "--display", 3, &dpy, &skip_args) ||
788 argmatch (argv, argc, "-display", 0, 3, &dpy, &skip_args))
793 /* If we have the form --display=NAME,
794 convert it into -d name.
795 This requires inserting a new element into argv. */
796 if (dpy != 0 && skip_args - count_before == 1)
798 char **new = (char **) xmalloc (sizeof (char *) * (argc + 2));
801 for (j = 0; j < count_before + 1; j++)
803 new[count_before + 1] = "-d";
804 new[count_before + 2] = dpy;
805 for (j = count_before + 2; j <argc; j++)
806 new[j + 1] = argv[j];
810 /* Change --display to -d, when its arg is separate. */
811 else if (dpy != 0 && skip_args > count_before
812 && argv[count_before + 1][1] == '-')
813 argv[count_before + 1] = "-d";
815 /* Don't actually discard this arg. */
816 skip_args = count_before;
818 /* If there is a non-empty environment var DISPLAY, set
819 `display_use', but not `display_arg', which is only to be set
820 if the display was specified on the command line. */
821 if ((dpy = getenv ("DISPLAY")) && dpy[0])
824 #endif /* HAVE_X_WINDOWS */
825 #ifdef HAVE_MS_WINDOWS
826 if (strcmp(display_use, "x") != 0)
827 display_use = "mswindows";
828 #endif /* HAVE_MS_WINDOWS */
830 #endif /* HAVE_WINDOW_SYSTEM */
832 noninteractive1 = noninteractive;
834 /****** Now initialize everything *******/
836 /* First, do really basic environment initialization -- catching signals
837 and the like. These functions have no dependence on any part of
838 the Lisp engine and need to be done both at dump time and at run time. */
840 init_signals_very_early ();
841 init_data_very_early (); /* Catch math errors. */
842 #ifdef LISP_FLOAT_TYPE
843 init_floatfns_very_early (); /* Catch floating-point math errors. */
845 init_process_times_very_early (); /* Initialize our process timers.
846 As early as possible, of course,
847 so we can be fairly accurate. */
848 init_intl_very_early (); /* set up the locale and domain for gettext and
851 /* Now initialize the Lisp engine and the like. Done only during
852 dumping. No dependence on anything that may be in the user's
853 environment when the dumped XEmacs is run.
855 We try to do things in an order that minimizes the non-obvious
856 dependencies between functions. */
860 /* Initialize things so that new Lisp objects
861 can be created and objects can be staticpro'd.
862 Must be basically the very first thing done
863 because pretty much all of the initialization
864 routines below create new objects. */
865 init_alloc_once_early ();
867 /* Initialize Qnil, Qt, Qunbound, and the
868 obarray. After this, symbols can be
869 interned. This depends on init_alloc_once(). */
870 init_symbols_once_early ();
872 /* Declare the basic symbols pertaining to errors,
873 So that deferror() can be called. */
874 init_errors_once_early ();
876 /* Make sure that opaque pointers can be created. */
877 init_opaque_once_early ();
879 /* Now declare all the symbols and define all the Lisp primitives.
881 The *only* thing that the syms_of_*() functions are allowed to do
882 is call one of the following three functions:
885 defsubr() (i.e. DEFSUBR)
889 Order does not matter in these functions.
894 #ifdef HAVE_X_WINDOWS
895 syms_of_balloon_x ();
901 syms_of_casefiddle ();
910 #endif /* DEBUG_XEMACS */
921 #ifdef HAVE_X_WINDOWS
924 #ifdef HAVE_DRAGNDROP
927 syms_of_event_stream ();
932 #ifdef CLASH_DETECTION
934 #endif /* CLASH_DETECTION */
937 syms_of_font_lock ();
941 syms_of_glyphs_eimage ();
942 syms_of_glyphs_widget ();
943 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
965 #if !defined (NO_SUBPROCESSES)
967 #ifdef HAVE_WIN32_PROCESSES
968 syms_of_process_nt ();
972 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
974 #endif /* HAVE_MMAP && REL_ALLOC */
976 syms_of_redisplay ();
981 syms_of_specifier ();
984 #ifdef HAVE_SCROLLBARS
985 syms_of_scrollbar ();
995 syms_of_console_tty ();
996 syms_of_device_tty ();
997 syms_of_objects_tty ();
1000 #ifdef HAVE_X_WINDOWS
1001 syms_of_device_x ();
1003 syms_of_dialog_x ();
1006 syms_of_glyphs_x ();
1007 syms_of_objects_x ();
1008 #ifdef HAVE_MENUBARS
1009 syms_of_menubar_x ();
1012 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1015 #endif /* HAVE_X_WINDOWS */
1017 #ifdef HAVE_MS_WINDOWS
1018 syms_of_console_mswindows ();
1019 syms_of_device_mswindows ();
1020 syms_of_frame_mswindows ();
1021 syms_of_objects_mswindows ();
1022 syms_of_select_mswindows ();
1023 syms_of_glyphs_mswindows ();
1024 #ifdef HAVE_MENUBARS
1025 syms_of_menubar_mswindows ();
1027 #ifdef HAVE_SCROLLBARS
1028 syms_of_scrollbar_mswindows ();
1030 #ifdef HAVE_MSW_C_DIRED
1031 syms_of_dired_mswindows ();
1036 #endif /* HAVE_MS_WINDOWS */
1040 syms_of_mule_ccl ();
1041 syms_of_mule_charset ();
1044 syms_of_file_coding ();
1048 syms_of_mule_wnn ();
1051 syms_of_mule_canna ();
1052 #endif /* HAVE_CANNA */
1064 #if defined (GNU_MALLOC) && \
1065 defined (ERROR_CHECK_MALLOC) && \
1066 !defined (HAVE_LIBMCHECK)
1068 /* Prior to XEmacs 21, this was `#if 0'ed out. -slb */
1069 #if defined (LOSING_GCC_DESTRUCTOR_FREE_BUG)
1070 syms_of_free_hook ();
1074 syms_of_tooltalk ();
1085 /* Now create the subtypes for the types that have them.
1086 We do this before the vars_*() because more symbols
1087 may get initialized here. */
1089 /* Now initialize the console types and associated symbols.
1090 Other than the first function below, the functions may
1091 make exactly the following function/macro calls:
1093 INITIALIZE_CONSOLE_TYPE()
1094 CONSOLE_HAS_METHOD()
1096 For any given console type, the former macro must be called
1097 before the any calls to the latter macro. */
1099 console_type_create ();
1101 console_type_create_stream ();
1104 console_type_create_tty ();
1105 console_type_create_device_tty ();
1106 console_type_create_frame_tty ();
1107 console_type_create_objects_tty ();
1108 console_type_create_redisplay_tty ();
1111 #ifdef HAVE_X_WINDOWS
1112 console_type_create_x ();
1113 console_type_create_device_x ();
1114 console_type_create_frame_x ();
1115 console_type_create_glyphs_x ();
1116 console_type_create_select_x ();
1117 #ifdef HAVE_MENUBARS
1118 console_type_create_menubar_x ();
1120 console_type_create_objects_x ();
1121 console_type_create_redisplay_x ();
1122 #ifdef HAVE_SCROLLBARS
1123 console_type_create_scrollbar_x ();
1125 #ifdef HAVE_TOOLBARS
1126 console_type_create_toolbar_x ();
1129 console_type_create_dialog_x ();
1131 #endif /* HAVE_X_WINDOWS */
1133 #ifdef HAVE_MS_WINDOWS
1134 console_type_create_mswindows ();
1135 console_type_create_device_mswindows ();
1136 console_type_create_frame_mswindows ();
1137 console_type_create_objects_mswindows ();
1138 console_type_create_redisplay_mswindows ();
1139 console_type_create_glyphs_mswindows ();
1140 console_type_create_select_mswindows ();
1141 # ifdef HAVE_SCROLLBARS
1142 console_type_create_scrollbar_mswindows ();
1144 #ifdef HAVE_MENUBARS
1145 console_type_create_menubar_mswindows ();
1147 #ifdef HAVE_TOOLBARS
1148 console_type_create_toolbar_mswindows ();
1151 console_type_create_dialog_mswindows ();
1155 /* Now initialize the specifier types and associated symbols.
1156 Other than the first function below, the functions may
1157 make exactly the following function/macro calls:
1159 INITIALIZE_SPECIFIER_TYPE()
1160 SPECIFIER_HAS_METHOD()
1162 For any given specifier type, the former macro must be called
1163 before the any calls to the latter macro. */
1165 specifier_type_create ();
1167 specifier_type_create_image ();
1168 specifier_type_create_objects ();
1169 #ifdef HAVE_TOOLBARS
1170 specifier_type_create_toolbar ();
1173 /* Now initialize the structure types and associated symbols.
1174 Other than the first function below, the functions may
1175 make exactly the following function/macro calls:
1177 define_structure_type()
1178 define_structure_type_keyword()
1182 structure_type_create ();
1184 structure_type_create_chartab ();
1185 structure_type_create_faces ();
1186 structure_type_create_rangetab ();
1187 structure_type_create_hash_table ();
1189 /* Now initialize the image instantiator formats and associated symbols.
1190 Other than the first function below, the functions may
1191 make exactly the following function/macro calls:
1193 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT()
1194 IIFORMAT_HAS_METHOD()
1195 IIFORMAT_VALID_KEYWORD()
1197 For any given image instantiator format, the first macro must be
1198 called before the any calls to the other macros. */
1200 image_instantiator_format_create ();
1201 image_instantiator_format_create_glyphs_eimage ();
1202 image_instantiator_format_create_glyphs_widget ();
1203 #ifdef HAVE_X_WINDOWS
1204 image_instantiator_format_create_glyphs_x ();
1205 #endif /* HAVE_X_WINDOWS */
1206 #ifdef HAVE_MS_WINDOWS
1207 image_instantiator_format_create_glyphs_mswindows ();
1208 #endif /* HAVE_MSWINDOWS_WINDOWS */
1210 /* Now initialize the lstream types and associated symbols.
1211 Other than the first function below, the functions may
1212 make exactly the following function/macro calls:
1214 LSTREAM_HAS_METHOD()
1218 lstream_type_create ();
1220 lstream_type_create_file_coding ();
1222 #if defined (HAVE_MS_WINDOWS) && !defined(HAVE_MSG_SELECT)
1223 lstream_type_create_mswindows_selectable ();
1226 /* Initialize processes implementation.
1227 The functions may make exactly the following function/macro calls:
1229 PROCESS_HAS_METHOD()
1231 #ifdef HAVE_UNIX_PROCESSES
1232 process_type_create_unix ();
1234 #ifdef HAVE_WIN32_PROCESSES
1235 process_type_create_nt ();
1238 /* Now initialize most variables.
1240 These functions may do exactly the following:
1253 defsymbol(), if it's absolutely necessary and you're sure that
1254 the symbol isn't referenced anywhere else in the initialization
1256 Fset() on a symbol that is unbound
1257 assigning a symbol or constant value to a variable
1258 using a global variable that has been initialized
1259 earlier on in the same function
1261 Any of the object-creating functions on alloc.c: e.g.
1276 perhaps a few others.
1279 /* Now allow Fprovide() statements to be made. */
1280 init_provide_once ();
1284 #ifdef HAVE_X_WINDOWS
1285 vars_of_balloon_x ();
1288 vars_of_bytecode ();
1290 vars_of_callproc ();
1299 vars_of_console_stream ();
1306 #ifdef HAVE_DRAGNDROP
1307 vars_of_dragdrop ();
1314 #ifdef HAVE_X_WINDOWS
1315 vars_of_event_Xt ();
1317 #if defined(HAVE_TTY) && (defined (DEBUG_TTY_EVENT_STREAM) || !defined (HAVE_X_WINDOWS))
1318 vars_of_event_tty ();
1320 #ifdef HAVE_MS_WINDOWS
1321 vars_of_event_mswindows ();
1323 vars_of_event_stream ();
1329 vars_of_floatfns ();
1330 vars_of_font_lock ();
1333 vars_of_glyphs_eimage ();
1334 vars_of_glyphs_widget ();
1335 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1343 vars_of_input_method_motif ();
1344 #else /* XIM_XLIB */
1345 vars_of_input_method_xlib ();
1347 #endif /* HAVE_XIM */
1353 #ifdef HAVE_DATABASE
1354 vars_of_database ();
1356 #ifdef HAVE_MENUBARS
1369 #ifndef NO_SUBPROCESSES
1371 #ifdef HAVE_UNIX_PROCESSES
1372 vars_of_process_unix ();
1374 #ifdef HAVE_WIN32_PROCESSES
1375 vars_of_process_nt ();
1380 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
1382 #endif /* HAVE_MMAP && REL_ALLOC */
1383 vars_of_redisplay ();
1384 #ifdef HAVE_SCROLLBARS
1385 vars_of_scrollbar ();
1390 vars_of_specifier ();
1393 #ifdef HAVE_TOOLBARS
1400 vars_of_console_tty ();
1401 vars_of_frame_tty ();
1402 vars_of_objects_tty ();
1405 #ifdef HAVE_X_WINDOWS
1406 vars_of_device_x ();
1408 vars_of_dialog_x ();
1411 vars_of_glyphs_x ();
1412 #ifdef HAVE_MENUBARS
1413 vars_of_menubar_x ();
1415 vars_of_objects_x ();
1417 #ifdef HAVE_SCROLLBARS
1418 vars_of_scrollbar_x ();
1420 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1425 #ifdef HAVE_MS_WINDOWS
1426 vars_of_device_mswindows ();
1427 vars_of_console_mswindows ();
1428 vars_of_frame_mswindows ();
1429 vars_of_objects_mswindows ();
1430 vars_of_select_mswindows ();
1431 vars_of_glyphs_mswindows ();
1432 #ifdef HAVE_SCROLLBARS
1433 vars_of_scrollbar_mswindows ();
1435 #ifdef HAVE_MENUBARS
1436 vars_of_menubar_mswindows ();
1438 #ifdef HAVE_MSW_C_DIRED
1439 vars_of_dired_mswindows ();
1442 vars_of_dialog_mswindows ();
1444 #endif /* HAVE_MS_WINDOWS */
1448 vars_of_mule_ccl ();
1449 vars_of_mule_charset ();
1452 vars_of_file_coding ();
1456 vars_of_mule_wnn ();
1459 vars_of_mule_canna ();
1460 #endif /* HAVE_CANNA */
1464 vars_of_tooltalk ();
1475 /* Now initialize any specifier variables. We do this later
1476 because it has some dependence on the vars initialized
1479 These functions should *only* initialize specifier variables,
1480 and may make use of the following functions/macros in addition
1481 to the ones listed above:
1485 set_specifier_fallback()
1486 set_specifier_caching()
1489 specifier_vars_of_glyphs ();
1490 #ifdef HAVE_MENUBARS
1491 specifier_vars_of_menubar ();
1493 specifier_vars_of_redisplay ();
1494 #ifdef HAVE_SCROLLBARS
1495 specifier_vars_of_scrollbar ();
1497 #ifdef HAVE_TOOLBARS
1498 specifier_vars_of_toolbar ();
1500 specifier_vars_of_window ();
1502 /* Now comes all the rest of the variables that couldn't
1503 be handled above. There may be dependencies on variables
1504 initialized above, and dependencies between one complex_vars_()
1505 function and another. */
1507 /* Calls Fmake_range_table(). */
1508 complex_vars_of_regex ();
1509 /* Calls Fmake_range_table(). */
1510 complex_vars_of_search ();
1512 /* Calls make_lisp_hash_table(). */
1513 complex_vars_of_extents ();
1515 /* Depends on hash tables and specifiers. */
1516 complex_vars_of_faces ();
1519 /* These two depend on hash tables and various variables declared
1520 earlier. The second may also depend on the first. */
1521 complex_vars_of_mule_charset ();
1523 #if defined(FILE_CODING)
1524 complex_vars_of_file_coding ();
1527 /* This calls allocate_glyph(), which creates specifiers
1528 and also relies on a variable (Vthe_nothing_vector) initialized
1529 above. It also calls make_ext_string(), which under Mule
1530 could require that the charsets be initialized. */
1531 complex_vars_of_glyphs ();
1533 /* These rely on the glyphs just created in the previous function,
1534 and call Fadd_spec_to_specifier(), which relies on various
1535 variables initialized above. */
1536 #ifdef HAVE_X_WINDOWS
1537 complex_vars_of_glyphs_x ();
1539 #ifdef HAVE_MS_WINDOWS
1540 complex_vars_of_glyphs_mswindows ();
1543 /* This calls Fmake_glyph_internal(). */
1544 complex_vars_of_alloc ();
1546 /* This calls Fmake_glyph_internal(). */
1547 #ifdef HAVE_MENUBARS
1548 complex_vars_of_menubar ();
1551 /* This calls Fmake_glyph_internal(). */
1552 #ifdef HAVE_SCROLLBARS
1553 complex_vars_of_scrollbar ();
1556 /* This calls allocate_glyph(). */
1557 complex_vars_of_frame ();
1559 /* This calls Fcopy_category_table() under Mule, which calls who
1561 complex_vars_of_chartab ();
1563 /* This calls set_string_char(), which (under Mule) depends on the
1564 charsets being initialized. */
1565 complex_vars_of_casetab ();
1567 /* This calls Fcopy_syntax_table(), which relies on char tables. */
1568 complex_vars_of_syntax ();
1570 /* This initializes buffer-local variables, sets things up so
1571 that buffers can be created, and creates a couple of basic
1572 buffers. This depends on Vstandard_syntax_table and
1573 Vstandard_category_table (initialized in the previous
1574 functions), as well as a whole horde of variables that may
1575 have been initialized above. */
1576 complex_vars_of_buffer ();
1578 /* This initializes console-local variables. */
1579 complex_vars_of_console ();
1581 /* This creates a couple more buffers, and depends on the
1582 previous function. */
1583 complex_vars_of_minibuf ();
1585 /* These two might call Ffile_name_as_directory(), which
1586 might depend on all sorts of things; I'm not sure. */
1587 complex_vars_of_emacs ();
1589 /* This creates a couple of basic keymaps and depends on Lisp
1590 hash tables and Ffset() (both of which depend on some variables
1591 initialized in the vars_of_*() section) and possibly other
1593 complex_vars_of_keymap ();
1595 /* Calls make_lisp_hash_table() and creates a keymap */
1596 complex_vars_of_event_stream ();
1598 #ifdef ERROR_CHECK_GC
1600 extern int always_gc;
1601 if (always_gc) /* purification debugging hack */
1602 garbage_collect_1 ();
1607 /* CONGRATULATIONS!!! We have successfully initialized the Lisp
1612 /* Stuff that needs to be reset at run time. Order below should
1617 reinit_mule_category ();
1621 /* Now do further initialization/setup of stuff that is not needed by the
1622 syms_of_() routines. This involves stuff that only is enabled in
1623 an interactive run (redisplay, user input, etc.) and stuff that is
1624 not needed until we start loading Lisp code (the reader). A lot
1625 of this stuff involves querying the current environment and needs
1626 to be done both at dump time and at run time. */
1628 init_initial_directory(); /* get the directory to use for the
1629 "*scratch*" buffer, etc. */
1633 * For Win32, call init_environment() now, so that environment/registry
1634 * variables will be properly entered into Vprocess_environment.
1639 init_callproc (); /* Set up the process environment (so that egetenv
1640 works), the basic directory variables
1641 (exec-directory and so on), and stuff
1642 related to subprocesses. This should be
1643 first because many of the functions below
1644 call egetenv() to get environment variables. */
1645 init_lread (); /* Set up the Lisp reader. */
1647 /* Call early 'cause init_environment needs it. */
1649 /* Set defaults for several environment variables. */
1650 init_environment (argc, argv, skip_args);
1652 init_cmdargs (argc, argv, skip_args); /* Create list Vcommand_line_args */
1653 init_buffer (); /* Set default directory of *scratch* buffer */
1659 init_redisplay (); /* Determine terminal type.
1660 init_sys_modes uses results */
1661 init_event_stream (); /* Set up so we can get user input. */
1662 init_macros (); /* set up so we can run macros. */
1663 init_editfns (); /* Determine the name of the user we're running as */
1664 init_xemacs_process (); /* set up for calling subprocesses */
1666 init_sunpro (); /* Set up Sunpro usage tracking */
1668 #if defined (HAVE_NATIVE_SOUND) && defined (hp9000s800)
1674 init_console_stream (); /* Create the first console */
1676 /* try to get the actual pathname of the exec file we are running */
1679 Vinvocation_name = Fcar (Vcommand_line_args);
1680 if (XSTRING_DATA(Vinvocation_name)[0] == '-')
1682 /* XEmacs as a login shell, oh goody! */
1683 Vinvocation_name = build_string(getenv("SHELL"));
1685 Vinvocation_directory = Vinvocation_name;
1687 if (!NILP (Ffile_name_directory (Vinvocation_name)))
1689 /* invocation-name includes a directory component -- presumably it
1690 is relative to cwd, not $PATH */
1691 Vinvocation_directory = Fexpand_file_name (Vinvocation_name,
1693 Vinvocation_path = Qnil;
1697 Vinvocation_path = decode_env_path ("PATH", NULL);
1698 locate_file (Vinvocation_path, Vinvocation_name,
1699 Vlisp_EXEC_SUFFIXES,
1700 &Vinvocation_directory, X_OK);
1703 if (NILP (Vinvocation_directory))
1704 Vinvocation_directory = Vinvocation_name;
1706 Vinvocation_name = Ffile_name_nondirectory (Vinvocation_directory);
1707 Vinvocation_directory = Ffile_name_directory (Vinvocation_directory);
1710 #if defined(HAVE_SHLIB) && !defined(WINDOWSNT)
1711 /* This is Unix only. MS Windows NT has a library call that does
1712 The Right Thing on that system. Rumor has it, this must be
1713 called for GNU dld in temacs and xemacs. */
1715 char *buf = (char *)alloca (XSTRING_LENGTH (Vinvocation_directory)
1716 + XSTRING_LENGTH (Vinvocation_name)
1718 sprintf (buf, "%s/%s", XSTRING_DATA (Vinvocation_directory),
1719 XSTRING_DATA (Vinvocation_name));
1721 /* All we can do is cry if an error happens, so ignore it. */
1722 (void) dll_init (buf);
1726 #if defined (LOCALTIME_CACHE) && defined (HAVE_TZSET)
1727 /* sun's localtime() has a bug. it caches the value of the time
1728 zone rather than looking it up every time. Since localtime() is
1729 called to bolt the undumping time into the undumped emacs, this
1730 results in localtime() ignoring the TZ environment variable.
1731 This flushes the new TZ value into localtime(). */
1733 #endif /* LOCALTIME_CACHE and TZSET */
1738 /* Handle -l loadup-and-dump, args passed by Makefile. */
1739 if (argc > 2 + skip_args && !strcmp (argv[1 + skip_args], "-l"))
1740 load_me = build_string (argv[2 + skip_args]);
1741 #if 0 /* CANNOT_DUMP - this can never be right in XEmacs --andyp */
1742 /* Unless next switch is -nl, load "loadup.el" first thing. */
1743 if (!(argc > 1 + skip_args && !strcmp (argv[1 + skip_args], "-nl")))
1744 load_me = build_string ("loadup.el");
1745 #endif /* CANNOT_DUMP */
1750 quantify_start_recording_data ();
1751 #endif /* QUANTIFY */
1755 /* This never returns. */
1756 initial_command_loop (load_me);
1761 /* Sort the args so we can find the most important ones
1762 at the beginning of argv. */
1764 /* First, here's a table of all the standard options. */
1766 struct standard_args
1768 CONST char * CONST name;
1769 CONST char * CONST longname;
1774 static struct standard_args standard_args[] =
1776 /* Handled by main_1 above: */
1777 { "-nl", "--no-shared-memory", 100, 0 },
1778 { "-t", "--terminal", 95, 1 },
1779 { "-nw", "--no-windows", 90, 0 },
1780 { "-batch", "--batch", 85, 0 },
1781 { "-debug-paths", "--debug-paths", 82, 0 },
1782 { "-help", "--help", 80, 0 },
1783 { "-version", "--version", 75, 0 },
1785 { "-d", "--display", 80, 1 },
1786 { "-display", 0, 80, 1 },
1787 { "-NXHost", 0, 79, 0 },
1788 { "-MachLaunch", 0, 79, 0},
1790 /* Handled by command-line-early in startup.el: */
1791 { "-q", "--no-init-file", 50, 0 },
1792 { "-unmapped", 0, 50, 0 },
1793 { "-no-init-file", 0, 50, 0 },
1794 { "-vanilla", "--vanilla", 50, 0 },
1795 { "-no-autoloads", "--no-autoloads", 50, 0 },
1796 { "-no-site-file", "--no-site-file", 40, 0 },
1797 { "-no-early-packages", "--no-early-packages", 35, 0 },
1798 { "-u", "--user", 30, 1 },
1799 { "-user", 0, 30, 1 },
1800 { "-debug-init", "--debug-init", 20, 0 },
1801 { "-debug-paths", "--debug-paths", 20, 0 },
1804 { "-i", "--icon-type", 15, 0 },
1805 { "-itype", 0, 15, 0 },
1806 { "-iconic", "--iconic", 15, 0 },
1807 { "-bg", "--background-color", 10, 1 },
1808 { "-background", 0, 10, 1 },
1809 { "-fg", "--foreground-color", 10, 1 },
1810 { "-foreground", 0, 10, 1 },
1811 { "-bd", "--border-color", 10, 1 },
1812 { "-bw", "--border-width", 10, 1 },
1813 { "-ib", "--internal-border", 10, 1 },
1814 { "-ms", "--mouse-color", 10, 1 },
1815 { "-cr", "--cursor-color", 10, 1 },
1816 { "-fn", "--font", 10, 1 },
1817 { "-font", 0, 10, 1 },
1818 { "-g", "--geometry", 10, 1 },
1819 { "-geometry", 0, 10, 1 },
1820 { "-T", "--title", 10, 1 },
1821 { "-title", 0, 10, 1 },
1822 { "-name", "--name", 10, 1 },
1823 { "-xrm", "--xrm", 10, 1 },
1824 { "-r", "--reverse-video", 5, 0 },
1826 { "-reverse", 0, 5, 0 },
1827 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1828 { "-vb", "--vertical-scroll-bars", 5, 0 },
1830 /* These have the same priority as ordinary file name args,
1831 so they are not reordered with respect to those. */
1832 { "-L", "--directory", 0, 1 },
1833 { "-directory", 0, 0, 1 },
1834 { "-l", "--load", 0, 1 },
1835 { "-load", 0, 0, 1 },
1836 { "-f", "--funcall", 0, 1 },
1837 { "-funcall", 0, 0, 1 },
1838 { "-eval", "--eval", 0, 1 },
1839 { "-insert", "--insert", 0, 1 },
1840 /* This should be processed after ordinary file name args and the like. */
1841 { "-kill", "--kill", -10, 0 },
1844 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1845 so that the highest priority ones come first.
1846 Do not change the order of elements of equal priority.
1847 If an option takes an argument, keep it and its argument together. */
1850 sort_args (int argc, char **argv)
1852 char **new_argv = xnew_array (char *, argc);
1853 /* For each element of argv,
1854 the corresponding element of options is:
1855 0 for an option that takes no arguments,
1856 1 for an option that takes one argument, etc.
1857 -1 for an ordinary non-option argument. */
1858 int *options = xnew_array (int, argc);
1859 int *priority = xnew_array (int, argc);
1863 int end_of_options_p = 0;
1865 /* Categorize all the options,
1866 and figure out which argv elts are option arguments. */
1867 for (from = 1; from < argc; from++)
1871 /* Pseudo options "--" and "run-temacs" indicate end of options */
1872 if (!strcmp (argv[from], "--") ||
1873 !strcmp (argv[from], "run-temacs"))
1874 end_of_options_p = 1;
1875 if (!end_of_options_p && argv[from][0] == '-')
1880 /* Look for a match with a known old-fashioned option. */
1881 for (i = 0; i < countof (standard_args); i++)
1882 if (!strcmp (argv[from], standard_args[i].name))
1884 options[from] = standard_args[i].nargs;
1885 priority[from] = standard_args[i].priority;
1886 if (from + standard_args[i].nargs >= argc)
1887 fatal ("Option `%s' requires an argument\n", argv[from]);
1888 from += standard_args[i].nargs;
1892 /* Look for a match with a known long option.
1893 MATCH is -1 if no match so far, -2 if two or more matches so far,
1894 >= 0 (the table index of the match) if just one match so far. */
1895 if (argv[from][1] == '-')
1898 thislen = strlen (argv[from]);
1899 equals = strchr (argv[from], '=');
1901 thislen = equals - argv[from];
1903 for (i = 0; i < countof (standard_args); i++)
1904 if (standard_args[i].longname
1905 && !strncmp (argv[from], standard_args[i].longname,
1914 /* If we found exactly one match, use that. */
1917 options[from] = standard_args[match].nargs;
1918 priority[from] = standard_args[match].priority;
1919 /* If --OPTION=VALUE syntax is used,
1920 this option uses just one argv element. */
1923 if (from + options[from] >= argc)
1924 fatal ("Option `%s' requires an argument\n", argv[from]);
1925 from += options[from];
1932 /* Copy the arguments, in order of decreasing priority, to NEW_ARGV. */
1933 new_argv[0] = argv[0];
1937 int best_priority = -9999;
1939 /* Find the highest priority remaining option.
1940 If several have equal priority, take the first of them. */
1941 for (from = 1; from < argc; from++)
1943 if (argv[from] != 0 && priority[from] > best_priority)
1945 best_priority = priority[from];
1948 /* Skip option arguments--they are tied to the options. */
1949 if (options[from] > 0)
1950 from += options[from];
1956 /* Copy the highest priority remaining option, with its args, to NEW_ARGV. */
1957 new_argv[to++] = argv[best];
1958 for (i = 0; i < options[best]; i++)
1959 new_argv[to++] = argv[best + i + 1];
1961 /* Clear out this option in ARGV. */
1963 for (i = 0; i < options[best]; i++)
1964 argv[best + i + 1] = 0;
1967 memcpy (argv, new_argv, sizeof (char *) * argc);
1973 static JMP_BUF run_temacs_catch;
1975 static int run_temacs_argc;
1976 static char **run_temacs_argv;
1977 static char *run_temacs_args;
1978 static size_t run_temacs_argv_size;
1979 static size_t run_temacs_args_size;
1981 DEFUN ("running-temacs-p", Frunning_temacs_p, 0, 0, 0, /*
1982 True if running temacs. This means we are in the dumping stage.
1983 This is false during normal execution of the `xemacs' program, and
1984 becomes false once `run-emacs-from-temacs' is run.
1988 return run_temacs_argc >= 0 ? Qt : Qnil;
1991 DEFUN ("run-emacs-from-temacs", Frun_emacs_from_temacs, 0, MANY, 0, /*
1992 Do not call this. It will reinitialize your XEmacs. You'll be sorry.
1994 /* If this function is called from startup.el, it will be possible to run
1995 temacs as an editor using 'temacs -batch -l loadup.el run-temacs', instead
1996 of having to dump an emacs and then run that (when debugging emacs itself,
1997 this can be much faster)). [Actually, the speed difference isn't that
1998 much as long as your filesystem is local, and you don't end up with
1999 a dumped version in case you want to rerun it. This function is most
2000 useful when used as part of the `make all-elc' command. --ben]
2001 This will "restart" emacs with the specified command-line arguments.
2003 Martin thinks this function is most useful when using debugging
2004 tools like Purify or tcov that get confused by XEmacs' dumping. */
2005 (int nargs, Lisp_Object *args))
2008 CONST Extbyte *wampum;
2011 Lisp_Object orig_invoc_name = Fcar (Vcommand_line_args);
2012 CONST Extbyte **wampum_all = alloca_array (CONST Extbyte *, nargs);
2013 int *wampum_all_len = alloca_array (int, nargs);
2015 assert (!gc_in_progress);
2017 if (run_temacs_argc < 0)
2018 error ("I've lost my temacs-hood.");
2020 /* Need to convert the orig_invoc_name and all of the arguments
2021 to external format. */
2023 GET_STRING_EXT_DATA_ALLOCA (orig_invoc_name, FORMAT_OS, wampum,
2027 for (ac = 0, total_len = namesize; ac < nargs; ac++)
2029 CHECK_STRING (args[ac]);
2030 GET_STRING_EXT_DATA_ALLOCA (args[ac], FORMAT_OS,
2032 wampum_all_len[ac]);
2033 wampum_all_len[ac]++;
2034 total_len += wampum_all_len[ac];
2036 DO_REALLOC (run_temacs_args, run_temacs_args_size, total_len, char);
2037 DO_REALLOC (run_temacs_argv, run_temacs_argv_size, nargs+2, char *);
2039 memcpy (run_temacs_args, wampum, namesize);
2040 run_temacs_argv [0] = run_temacs_args;
2041 for (ac = 0; ac < nargs; ac++)
2043 memcpy (run_temacs_args + namesize,
2044 wampum_all[ac], wampum_all_len[ac]);
2045 run_temacs_argv [ac + 1] = run_temacs_args + namesize;
2046 namesize += wampum_all_len[ac];
2048 run_temacs_argv [nargs + 1] = 0;
2049 catchlist = NULL; /* Important! Otherwise free_cons() calls in
2050 condition_case_unwind() may lead to GC death. */
2051 unbind_to (0, Qnil); /* this closes loadup.el */
2053 run_temacs_argc = nargs + 1;
2055 report_sheap_usage (0);
2057 LONGJMP (run_temacs_catch, 1);
2058 return Qnil; /* not reached; warning suppression */
2063 main (int argc, char **argv, char **envp)
2065 int volatile vol_argc = argc;
2066 char ** volatile vol_argv = argv;
2067 char ** volatile vol_envp = envp;
2068 /* This is hairy. We need to compute where the XEmacs binary was invoked
2069 from because temacs initialization requires it to find the lisp
2070 directories. The code that recomputes the path is guarded by the
2071 restarted flag. There are three possible paths I've found so far
2074 temacs -- When running temacs for basic build stuff, the first main_1
2075 will be the only one invoked. It must compute the path else there
2076 will be a very ugly bomb in startup.el (can't find obvious location
2077 for doc-directory data-directory, etc.).
2079 temacs w/ run-temacs on the command line -- This is run to bytecompile
2080 all the out of date dumped lisp. It will execute both of the main_1
2081 calls and the second one must not touch the first computation because
2082 argc/argv are hosed the second time through.
2084 xemacs -- Only the second main_1 is executed. The invocation path must
2085 computed but this only matters when running in place or when running
2088 As a bonus for straightening this out, XEmacs can now be run in place
2089 as a login shell. This never used to work.
2091 As another bonus, we can now guarantee that
2092 (concat invocation-directory invocation-name) contains the filename
2093 of the XEmacs binary we are running. This can now be used in a
2094 definite test for out of date dumped files. -slb */
2097 quantify_stop_recording_data ();
2098 quantify_clear_data ();
2099 #endif /* QUANTIFY */
2101 suppress_early_error_handler_backtrace = 0;
2102 lim_data = 0; /* force reinitialization of this variable */
2104 /* Lisp_Object must fit in a word; check VALBITS and GCTYPEBITS */
2105 assert (sizeof (Lisp_Object) == sizeof (void *));
2107 #ifdef LINUX_SBRK_BUG
2113 #ifdef DOUG_LEA_MALLOC
2114 mallopt (M_MMAP_MAX, 0);
2116 run_temacs_argc = 0;
2117 if (! SETJMP (run_temacs_catch))
2119 main_1 (vol_argc, vol_argv, vol_envp, 0);
2121 /* run-emacs-from-temacs called */
2123 vol_argc = run_temacs_argc;
2124 vol_argv = run_temacs_argv;
2126 /* This makes absolutely no sense to anyone involved. There are
2127 several people using this stuff. We've compared versions on
2128 everything we can think of. We can find no difference.
2129 However, on both my systems environ is a plain old global
2130 variable initialized to zero. _environ is the one that
2131 contains pointers to the actual environment.
2133 Since we can't figure out the difference (and we're hours
2134 away from a release), this takes a very cowardly approach and
2135 is bracketed with both a system specific preprocessor test
2136 and a runtime "do you have this problem" test
2138 06/20/96 robertl@dgii.com */
2140 extern char *_environ;
2141 if ((unsigned) environ == 0)
2144 #endif /* _SCO_DS */
2147 #ifdef RUN_TIME_REMAP
2149 /* obviously no-one uses this because where it was before initialized was
2151 run_time_remap (argv[0]);
2154 #ifdef DOUG_LEA_MALLOC
2155 if (initialized && (malloc_state_ptr != NULL))
2157 int rc = malloc_set_state (malloc_state_ptr);
2160 fprintf (stderr, "malloc_set_state failed, rc = %d\n", rc);
2164 free (malloc_state_ptr);
2166 /* mmap works in glibc-2.1, glibc-2.0 (Non-Mule only) and Linux libc5 */
2167 #if (defined(__GLIBC__) && __GLIBC_MINOR__ >= 1) || \
2168 defined(_NO_MALLOC_WARNING_) || \
2169 (defined(__GLIBC__) && __GLIBC_MINOR__ < 1 && !defined(MULE)) || \
2170 defined(DEBUG_DOUG_LEA_MALLOC)
2171 mallopt (M_MMAP_MAX, 64);
2177 #endif /* DOUG_LEA_MALLOC */
2179 run_temacs_argc = -1;
2181 main_1 (vol_argc, vol_argv, vol_envp, restarted);
2182 return 0; /* unreached */
2186 /* Dumping apparently isn't supported by versions of GCC >= 2.8. */
2187 /* The following needs conditionalization on whether either XEmacs or */
2188 /* various system shared libraries have been built and linked with */
2189 /* GCC >= 2.8. -slb */
2190 #if defined(GNU_MALLOC)
2192 voodoo_free_hook (void *mem)
2194 /* Disable all calls to free() when XEmacs is exiting and it doesn't */
2196 __free_hook = voodoo_free_hook;
2200 DEFUN ("kill-emacs", Fkill_emacs, 0, 1, "P", /*
2201 Exit the XEmacs job and kill it. Ask for confirmation, without argument.
2202 If ARG is an integer, return ARG as the exit program code.
2203 If ARG is a string, stuff it as keyboard input.
2205 The value of `kill-emacs-hook', if not void,
2206 is a list of functions (of no args),
2207 all of which are called before XEmacs is actually killed.
2211 /* This function can GC */
2212 struct gcpro gcpro1;
2219 if (!preparing_for_armageddon && !noninteractive)
2220 run_hook (Qkill_emacs_hook);
2222 /* make sure no quitting from now on!! */
2223 dont_check_for_quit = 1;
2226 if (!preparing_for_armageddon)
2228 Lisp_Object concons, nextcons;
2230 /* Normally, go ahead and delete all the consoles now.
2231 Some unmentionably lame window systems (MS Wwwww...... eek,
2232 I can't even say it) don't properly clean up after themselves,
2233 and even for those that do, it might be cleaner this way.
2234 If we're going down, however, we don't do this (might
2235 be too dangerous), and if we get a crash somewhere within
2236 this loop, we'll still autosave and won't try this again. */
2238 LIST_LOOP_DELETING(concons, nextcons, Vconsole_list)
2240 /* There is very little point in deleting the stream console.
2241 It uses stdio, which should flush any buffered output and
2242 something can only go wrong. -slb */
2243 /* I changed my mind. There's a stupid hack in close to add
2244 a trailing newline. */
2245 /*if (!CONSOLE_STREAM_P (XCONSOLE (XCAR (concons))))*/
2246 delete_console_internal (XCONSOLE (XCAR (concons)), 1, 1, 0);
2252 shut_down_emacs (0, ((STRINGP (arg)) ? arg : Qnil));
2254 #if defined(GNU_MALLOC)
2255 __free_hook = voodoo_free_hook;
2258 exit ((INTP (arg)) ? XINT (arg) : 0);
2260 return Qnil; /* I'm sick of the compiler warning */
2263 /* Perform an orderly shutdown of XEmacs. Autosave any modified
2264 buffers, kill any child processes, clean up the terminal modes (if
2265 we're in the foreground), and other stuff like that. Don't perform
2266 any redisplay; this may be called when XEmacs is shutting down in
2267 the background, or after its X connection has died.
2269 If SIG is a signal number, print a message for it.
2271 This is called by fatal signal handlers, X protocol error handlers,
2274 shut_down_emacs (int sig, Lisp_Object stuff)
2276 /* This function can GC */
2277 /* Prevent running of hooks and other non-essential stuff
2279 preparing_for_armageddon = 1;
2281 /* In case frames or windows are screwed up, avoid assertion
2286 quantify_stop_recording_data ();
2287 #endif /* QUANTIFY */
2290 /* This is absolutely the most important thing to do, so make sure
2291 we do it now, before anything else. We might have crashed and
2292 be in a weird inconsistent state, and potentially anything could
2293 set off another protection fault and cause us to bail out
2295 /* I'm not removing the code entirely, yet. We have run up against
2296 a spate of problems in diagnosing crashes due to crashes within
2297 crashes. It has very definitely been determined that code called
2298 during auto-saving cannot work if XEmacs crashed inside of GC.
2299 We already auto-save on an itimer so there cannot be too much
2300 unsaved stuff around, and if we get better crash reports we might
2301 be able to get more problems fixed so I'm disabling this. -slb */
2302 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
2306 reset_all_consoles ();
2307 if (sig && sig != SIGTERM)
2309 stderr_out ("\nFatal error (%d).\n", sig);
2311 ("Your files have been auto-saved.\n"
2312 "Use `M-x recover-session' to recover them.\n"
2315 "Please report this bug by selecting `Report-Bug' in the InfoDock\n"
2318 "Please report this bug by running the send-pr script included\n"
2319 "with XEmacs, or selecting `Send Bug Report' from the help menu.\n"
2320 "As a last resort send ordinary email to `crashes@xemacs.org'.\n"
2322 "*MAKE SURE* to include the information in the command\n"
2323 "M-x describe-installation.\n"
2325 "If at all possible, *please* try to obtain a C stack backtrace;\n"
2326 "it will help us immensely in determining what went wrong.\n"
2327 "To do this, locate the core file that was produced as a result\n"
2328 "of this crash (it's usually called `core' and is located in the\n"
2329 "directory in which you started the editor, or maybe in your home\n"
2330 "directory), and type\n"
2337 /* Now try to determine the actual path to the executable,
2338 to try to make the backtrace-determination process as foolproof
2340 if (GC_STRINGP (Vinvocation_name))
2341 name = (char *) XSTRING_DATA (Vinvocation_name);
2344 if (GC_STRINGP (Vinvocation_directory))
2345 dir = (char *) XSTRING_DATA (Vinvocation_directory);
2346 if (!dir || dir[0] != '/')
2347 stderr_out ("`which %s`", name);
2348 else if (dir[strlen (dir) - 1] != '/')
2349 stderr_out ("%s/%s", dir, name);
2351 stderr_out ("%s%s", dir, name);
2355 "then type `where' when the debugger prompt comes up.\n"
2356 "(If you don't have GDB on your system, you might have DBX,\n"
2357 "or XDB, or SDB. A similar procedure should work for all of\n"
2358 "these. Ask your system administrator if you need more help.)\n");
2361 stuff_buffered_input (stuff);
2363 kill_buffer_processes (Qnil);
2365 #ifdef CLASH_DETECTION
2366 unlock_all_files ();
2370 tt_session_quit (tt_default_session ());
2372 /* The following crashes when built on X11R5 and run on X11R6 */
2375 #endif /* TOOLTALK */
2381 /* Nothing like this can be implemented on an Apollo.
2384 extern char my_edata[];
2388 DEFUN ("dump-emacs-data", Fdump_emacs_data, 1, 1, 0, /*
2389 Dump current state of XEmacs into data file FILENAME.
2390 This function exists on systems that use HAVE_SHM.
2394 /* This function can GC */
2396 struct gcpro gcpro1;
2399 CHECK_STRING (intoname);
2400 intoname = Fexpand_file_name (intoname, Qnil);
2402 opurify = purify_flag;
2408 disksave_object_finalization ();
2409 release_breathing_space ();
2411 /* Tell malloc where start of impure now is */
2412 /* Also arrange for warnings when nearly out of space. */
2413 #ifndef SYSTEM_MALLOC
2414 memory_warnings (my_edata, malloc_warning);
2417 map_out_data (XSTRING_DATA (intoname));
2419 purify_flag = opurify;
2424 #else /* not HAVE_SHM */
2425 extern void disable_free_hook (void);
2427 DEFUN ("dump-emacs", Fdump_emacs, 2, 2, 0, /*
2428 Dump current state of XEmacs into executable file FILENAME.
2429 Take symbols from SYMFILE (presumably the file you executed to run XEmacs).
2430 This is used in the file `loadup.el' when building XEmacs.
2432 Remember to set `command-line-processed' to nil before dumping
2433 if you want the dumped XEmacs to process its command line
2434 and announce itself normally when it is run.
2436 (intoname, symname))
2438 /* This function can GC */
2439 struct gcpro gcpro1, gcpro2;
2442 GCPRO2 (intoname, symname);
2444 #ifdef FREE_CHECKING
2445 Freally_free (Qnil);
2447 /* When we're dumping, we can't use the debugging free() */
2448 disable_free_hook ();
2451 CHECK_STRING (intoname);
2452 intoname = Fexpand_file_name (intoname, Qnil);
2453 if (!NILP (symname))
2455 CHECK_STRING (symname);
2456 if (XSTRING_LENGTH (symname) > 0)
2457 symname = Fexpand_file_name (symname, Qnil);
2462 opurify = purify_flag;
2466 report_sheap_usage (1);
2472 disksave_object_finalization ();
2473 release_breathing_space ();
2475 /* Tell malloc where start of impure now is */
2476 /* Also arrange for warnings when nearly out of space. */
2477 #ifndef SYSTEM_MALLOC
2478 memory_warnings (my_edata, malloc_warning);
2483 #if defined (MSDOS) && defined (EMX)
2485 int fd = open ((char *) XSTRING_DATA (intoname),
2486 O_WRONLY|O_CREAT|O_TRUNC, S_IREAD|S_IWRITE);
2488 error ("Failure operating on %s", XSTRING_DATA (intoname));
2494 #else /* not MSDOS and EMX */
2499 GET_C_STRING_FILENAME_DATA_ALLOCA (intoname, intoname_ext);
2500 if (STRINGP (symname))
2501 GET_C_STRING_FILENAME_DATA_ALLOCA (symname, symname_ext);
2505 garbage_collect_1 ();
2506 #ifdef DOUG_LEA_MALLOC
2507 malloc_state_ptr = malloc_get_state ();
2509 /* here we break our rule that the filename conversion should
2510 be performed at the actual time that the system call is made.
2511 It's a whole lot easier to do the conversion here than to
2512 modify all the unexec routines to ensure that filename
2513 conversion is applied everywhere. Don't worry about memory
2514 leakage because this call only happens once. */
2515 unexec (intoname_ext, symname_ext, (uintptr_t) my_edata, 0, 0);
2516 #ifdef DOUG_LEA_MALLOC
2517 free (malloc_state_ptr);
2520 #endif /* not MSDOS and EMX */
2522 purify_flag = opurify;
2527 #endif /* not HAVE_SHM */
2529 #endif /* not CANNOT_DUMP */
2535 /* Split STRING into a list of substrings. The substrings are the
2536 parts of original STRING separated by SEPCHAR. */
2538 split_string_by_emchar_1 (CONST Bufbyte *string, Bytecount size,
2541 Lisp_Object result = Qnil;
2542 CONST Bufbyte *end = string + size;
2546 CONST Bufbyte *p = string;
2549 if (charptr_emchar (p) == sepchar)
2553 result = Fcons (make_string (string, p - string), result);
2557 INC_CHARPTR (string); /* skip sepchar */
2562 return Fnreverse (result);
2565 /* The same as the above, except PATH is an external C string (it is
2566 converted as FORMAT_FILENAME), and sepchar is hardcoded to SEPCHAR
2567 (':' or whatever). */
2569 decode_path (CONST char *path)
2576 GET_C_CHARPTR_INT_FILENAME_DATA_ALLOCA (path, newpath);
2578 len = strlen ((const char *) newpath);
2579 /* #### Does this make sense? It certainly does for
2580 decode_env_path(), but it looks dubious here. Does any code
2581 depend on decode_path("") returning nil instead of an empty
2586 return split_string_by_emchar_1 (newpath, (Bytecount)len, SEPCHAR);
2590 decode_env_path (CONST char *evarname, CONST char *default_)
2592 CONST char *path = 0;
2594 path = egetenv (evarname);
2597 return decode_path (path);
2600 /* Ben thinks this function should not exist or be exported to Lisp.
2601 We use it to define split-path-string in subr.el (not!). */
2603 DEFUN ("split-string-by-char", Fsplit_string_by_char, 1, 2, 0, /*
2604 Split STRING into a list of substrings originally separated by SEPCHAR.
2608 CHECK_STRING (string);
2609 CHECK_CHAR (sepchar);
2610 return split_string_by_emchar_1 (XSTRING_DATA (string),
2611 XSTRING_LENGTH (string),
2615 /* #### This was supposed to be in subr.el, but is used VERY early in
2616 the bootstrap process, so it goes here. Damn. */
2618 DEFUN ("split-path", Fsplit_path, 1, 1, 0, /*
2619 Explode a search path into a list of strings.
2620 The path components are separated with the characters specified
2621 with `path-separator'.
2625 CHECK_STRING (path);
2627 while (!STRINGP (Vpath_separator)
2628 || (XSTRING_CHAR_LENGTH (Vpath_separator) != 1))
2629 Vpath_separator = signal_simple_continuable_error
2630 ("`path-separator' should be set to a single-character string",
2633 return (split_string_by_emchar_1
2634 (XSTRING_DATA (path), XSTRING_LENGTH (path),
2635 charptr_emchar (XSTRING_DATA (Vpath_separator))));
2638 DEFUN ("noninteractive", Fnoninteractive, 0, 0, 0, /*
2639 Non-nil return value means XEmacs is running without interactive terminal.
2643 return noninteractive ? Qt : Qnil;
2646 /* This flag is useful to define if you're under a debugger; this way, you
2647 can put a breakpoint of assert_failed() and debug multiple problems
2648 in one session without having to recompile. */
2649 /* #define ASSERTIONS_DONT_ABORT */
2651 #ifdef USE_ASSERTIONS
2652 /* This highly dubious kludge ... shut up Jamie, I'm tired of your slagging. */
2655 assert_failed (CONST char *file, int line, CONST char *expr)
2657 stderr_out ("Fatal error: assertion failed, file %s, line %d, %s\n",
2659 #undef abort /* avoid infinite #define loop... */
2660 #if defined (WINDOWSNT) && defined (DEBUG_XEMACS)
2662 #elif !defined (ASSERTIONS_DONT_ABORT)
2666 #endif /* USE_ASSERTIONS */
2669 DEFUN ("quantify-start-recording-data", Fquantify_start_recording_data,
2671 Start recording Quantify data.
2675 quantify_start_recording_data ();
2679 DEFUN ("quantify-stop-recording-data", Fquantify_stop_recording_data,
2681 Stop recording Quantify data.
2685 quantify_stop_recording_data ();
2689 DEFUN ("quantify-clear-data", Fquantify_clear_data, 0, 0, "", /*
2690 Clear all Quantify data.
2694 quantify_clear_data ();
2697 #endif /* QUANTIFY */
2700 syms_of_emacs (void)
2704 DEFSUBR (Fdump_emacs_data);
2706 DEFSUBR (Fdump_emacs);
2708 #endif /* !CANNOT_DUMP */
2710 DEFSUBR (Frun_emacs_from_temacs);
2711 DEFSUBR (Frunning_temacs_p);
2712 DEFSUBR (Finvocation_name);
2713 DEFSUBR (Finvocation_directory);
2714 DEFSUBR (Fkill_emacs);
2715 DEFSUBR (Fnoninteractive);
2718 DEFSUBR (Fquantify_start_recording_data);
2719 DEFSUBR (Fquantify_stop_recording_data);
2720 DEFSUBR (Fquantify_clear_data);
2721 #endif /* QUANTIFY */
2723 DEFSUBR (Fsplit_string_by_char);
2724 DEFSUBR (Fsplit_path); /* #### */
2726 defsymbol (&Qkill_emacs_hook, "kill-emacs-hook");
2727 defsymbol (&Qsave_buffers_kill_emacs, "save-buffers-kill-emacs");
2731 vars_of_emacs (void)
2733 DEFVAR_BOOL ("suppress-early-error-handler-backtrace",
2734 &suppress_early_error_handler_backtrace /*
2735 Non-nil means early error handler shouldn't print a backtrace.
2738 DEFVAR_LISP ("command-line-args", &Vcommand_line_args /*
2739 Args passed by shell to XEmacs, as a list of strings.
2742 DEFVAR_LISP ("invocation-name", &Vinvocation_name /*
2743 The program name that was used to run XEmacs.
2744 Any directory names are omitted.
2747 DEFVAR_LISP ("invocation-directory", &Vinvocation_directory /*
2748 The directory in which the XEmacs executable was found, to run it.
2749 The value is simply the program name if that directory's name is not known.
2752 DEFVAR_LISP ("invocation-path", &Vinvocation_path /*
2753 The path in which the XEmacs executable was found, to run it.
2754 The value is simply the value of environment variable PATH on startup
2755 if XEmacs was found there.
2759 xxDEFVAR_LISP ("installation-directory", &Vinstallation_directory,
2760 "A directory within which to look for the `lib-src' and `etc' directories.\n"
2761 "This is non-nil when we can't find those directories in their standard\n"
2762 "installed locations, but we can find them\n"
2763 "near where the XEmacs executable was found.");
2766 DEFVAR_LISP ("system-type", &Vsystem_type /*
2767 Symbol indicating type of operating system you are using.
2769 Vsystem_type = intern (SYSTEM_TYPE);
2770 Fprovide (intern(SYSTEM_TYPE));
2772 #ifndef EMACS_CONFIGURATION
2773 # define EMACS_CONFIGURATION "UNKNOWN"
2775 DEFVAR_LISP ("system-configuration", &Vsystem_configuration /*
2776 String naming the configuration XEmacs was built for.
2778 Vsystem_configuration = Fpurecopy (build_string (EMACS_CONFIGURATION));
2780 #ifndef EMACS_CONFIG_OPTIONS
2781 # define EMACS_CONFIG_OPTIONS "UNKNOWN"
2783 DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options /*
2784 String containing the configuration options XEmacs was built with.
2786 Vsystem_configuration_options = Fpurecopy (build_string
2787 (EMACS_CONFIG_OPTIONS));
2789 DEFVAR_LISP ("emacs-major-version", &Vemacs_major_version /*
2790 Major version number of this version of Emacs, as an integer.
2791 Warning: this variable did not exist in Emacs versions earlier than:
2795 Vemacs_major_version = make_int (EMACS_MAJOR_VERSION);
2797 DEFVAR_LISP ("emacs-minor-version", &Vemacs_minor_version /*
2798 Minor version number of this version of Emacs, as an integer.
2799 Warning: this variable did not exist in Emacs versions earlier than:
2803 Vemacs_minor_version = make_int (EMACS_MINOR_VERSION);
2805 DEFVAR_LISP ("emacs-patch-level", &Vemacs_patch_level /*
2806 The patch level of this version of Emacs, as an integer.
2807 The value is non-nil if this version of XEmacs is part of a series of
2808 stable XEmacsen, but has bug fixes applied.
2809 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
2812 #ifdef EMACS_PATCH_LEVEL
2813 Vemacs_patch_level = make_int (EMACS_PATCH_LEVEL);
2815 Vemacs_patch_level = Qnil;
2818 DEFVAR_LISP ("emacs-beta-version", &Vemacs_beta_version /*
2819 Beta number of this version of Emacs, as an integer.
2820 The value is nil if this is an officially released version of XEmacs.
2821 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
2824 #ifdef EMACS_BETA_VERSION
2825 Vemacs_beta_version = make_int (EMACS_BETA_VERSION);
2827 Vemacs_beta_version = Qnil;
2831 DEFVAR_LISP ("infodock-major-version", &Vinfodock_major_version /*
2832 Major version number of this InfoDock release.
2834 Vinfodock_major_version = make_int (INFODOCK_MAJOR_VERSION);
2836 DEFVAR_LISP ("infodock-minor-version", &Vinfodock_minor_version /*
2837 Minor version number of this InfoDock release.
2839 Vinfodock_minor_version = make_int (INFODOCK_MINOR_VERSION);
2841 DEFVAR_LISP ("infodock-build-version", &Vinfodock_build_version /*
2842 Build version of this InfoDock release.
2844 Vinfodock_build_version = make_int (INFODOCK_BUILD_VERSION);
2847 DEFVAR_LISP ("xemacs-codename", &Vxemacs_codename /*
2848 Codename of this version of Emacs (a string).
2850 #ifndef XEMACS_CODENAME
2851 #define XEMACS_CODENAME "Noname"
2853 Vxemacs_codename = Fpurecopy (build_string (XEMACS_CODENAME));
2855 DEFVAR_BOOL ("noninteractive", &noninteractive1 /*
2856 Non-nil means XEmacs is running without interactive terminal.
2859 DEFVAR_BOOL ("inhibit-early-packages", &inhibit_early_packages /*
2860 Set to non-nil when the early packages should not be respected at startup.
2863 DEFVAR_BOOL ("inhibit-autoloads", &inhibit_autoloads /*
2864 Set to non-nil when autoloads should not be loaded at startup.
2867 DEFVAR_BOOL ("debug-paths", &debug_paths /*
2868 Set to non-nil when debug information about paths should be printed.
2871 DEFVAR_BOOL ("inhibit-site-lisp", &inhibit_site_lisp /*
2872 Set to non-nil when the site-lisp should not be searched at startup.
2874 #ifdef INHIBIT_SITE_LISP
2875 inhibit_site_lisp = 1;
2878 DEFVAR_BOOL ("inhibit-site-modules", &inhibit_site_modules /*
2879 Set to non-nil when site-modules should not be searched at startup.
2881 #ifdef INHIBIT_SITE_MODULES
2882 inhibit_site_modules = 1;
2885 DEFVAR_INT ("emacs-priority", &emacs_priority /*
2886 Priority for XEmacs to run at.
2887 This value is effective only if set before XEmacs is dumped,
2888 and only if the XEmacs executable is installed with setuid to permit
2889 it to change priority. (XEmacs sets its uid back to the real uid.)
2890 Currently, you need to define SET_EMACS_PRIORITY in `config.h'
2891 before you compile XEmacs, to enable the code for this feature.
2895 DEFVAR_CONST_LISP ("internal-error-checking", &Vinternal_error_checking /*
2896 Internal error checking built-in into this instance of XEmacs.
2897 This is a list of symbols, initialized at build-time. Legal symbols
2900 extents - check extents prior to each extent change;
2901 typecheck - check types strictly, aborting in case of error;
2902 malloc - check operation of malloc;
2903 gc - check garbage collection;
2904 bufpos - check buffer positions.
2906 Vinternal_error_checking = Qnil;
2907 #ifdef ERROR_CHECK_EXTENTS
2908 Vinternal_error_checking = Fcons (intern ("extents"),
2909 Vinternal_error_checking);
2911 #ifdef ERROR_CHECK_TYPECHECK
2912 Vinternal_error_checking = Fcons (intern ("typecheck"),
2913 Vinternal_error_checking);
2915 #ifdef ERROR_CHECK_MALLOC
2916 Vinternal_error_checking = Fcons (intern ("malloc"),
2917 Vinternal_error_checking);
2919 #ifdef ERROR_CHECK_GC
2920 Vinternal_error_checking = Fcons (intern ("gc"),
2921 Vinternal_error_checking);
2923 #ifdef ERROR_CHECK_BUFPOS
2924 Vinternal_error_checking = Fcons (intern ("bufpos"),
2925 Vinternal_error_checking);
2927 Vinternal_error_checking = Fpurecopy (Vinternal_error_checking);
2929 DEFVAR_LISP ("path-separator", &Vpath_separator /*
2930 The directory separator in search paths, as a string.
2934 Vpath_separator = make_string ((Bufbyte *)&c, 1);
2939 complex_vars_of_emacs (void)
2941 /* This is all related to path searching. */
2943 DEFVAR_LISP ("emacs-program-name", &Vemacs_program_name /*
2944 *Name of the Emacs variant.
2945 For example, this may be \"xemacs\" or \"infodock\".
2946 This is mainly meant for use in path searching.
2948 Vemacs_program_name = build_string ((char *) PATH_PROGNAME);
2950 DEFVAR_LISP ("emacs-program-version", &Vemacs_program_version /*
2951 *Version of the Emacs variant.
2952 This typically has the form XX.XX[-bXX].
2953 This is mainly meant for use in path searching.
2955 Vemacs_program_version = build_string ((char *) PATH_VERSION);
2957 DEFVAR_LISP ("exec-path", &Vexec_path /*
2958 *List of directories to search programs to run in subprocesses.
2959 Each element is a string (directory name) or nil (try default directory).
2963 DEFVAR_LISP ("exec-directory", &Vexec_directory /*
2964 *Directory of architecture-dependent files that come with XEmacs,
2965 especially executable programs intended for XEmacs to invoke.
2967 Vexec_directory = Qnil;
2969 DEFVAR_LISP ("configure-exec-directory", &Vconfigure_exec_directory /*
2970 For internal use by the build procedure only.
2971 configure's idea of what EXEC-DIRECTORY will be.
2974 Vconfigure_exec_directory = Ffile_name_as_directory
2975 (build_string ((char *) PATH_EXEC));
2977 Vconfigure_exec_directory = Qnil;
2980 DEFVAR_LISP ("lisp-directory", &Vlisp_directory /*
2981 *Directory of core Lisp files that come with XEmacs.
2983 Vlisp_directory = Qnil;
2985 DEFVAR_LISP ("configure-lisp-directory", &Vconfigure_lisp_directory /*
2986 For internal use by the build procedure only.
2987 configure's idea of what LISP-DIRECTORY will be.
2989 #ifdef PATH_LOADSEARCH
2990 Vconfigure_lisp_directory = Ffile_name_as_directory
2991 (build_string ((char *) PATH_LOADSEARCH));
2993 Vconfigure_lisp_directory = Qnil;
2996 DEFVAR_LISP ("module-directory", &Vmodule_directory /*
2997 *Directory of core dynamic modules that come with XEmacs.
2999 Vmodule_directory = Qnil;
3001 DEFVAR_LISP ("configure-module-directory", &Vconfigure_module_directory /*
3002 For internal use by the build procedure only.
3003 configure's idea of what MODULE-DIRECTORY will be.
3005 #ifdef PATH_MODULESEARCH
3006 Vconfigure_module_directory = Ffile_name_as_directory
3007 (build_string ((char *) PATH_MODULESEARCH));
3009 Vconfigure_module_directory = Qnil;
3012 DEFVAR_LISP ("configure-package-path", &Vconfigure_package_path /*
3013 For internal use by the build procedure only.
3014 configure's idea of what the package path will be.
3016 #ifdef PATH_PACKAGEPATH
3017 Vconfigure_package_path = decode_path (PATH_PACKAGEPATH);
3019 Vconfigure_package_path = Qnil;
3022 DEFVAR_LISP ("data-directory", &Vdata_directory /*
3023 *Directory of architecture-independent files that come with XEmacs,
3024 intended for XEmacs to use.
3025 Use of this variable in new code is almost never correct. See the
3026 function `locate-data-directory' and the variable `data-directory-list'.
3028 Vdata_directory = Qnil;
3030 DEFVAR_LISP ("configure-data-directory", &Vconfigure_data_directory /*
3031 For internal use by the build procedure only.
3032 configure's idea of what DATA-DIRECTORY will be.
3035 Vconfigure_data_directory = Ffile_name_as_directory
3036 (build_string ((char *) PATH_DATA));
3038 Vconfigure_data_directory = Qnil;
3041 DEFVAR_LISP ("data-directory-list", &Vdata_directory_list /*
3042 *List of directories of architecture-independent files that come with XEmacs
3043 or were installed as packages, and are intended for XEmacs to use.
3045 Vdata_directory_list = Qnil;
3047 #ifdef CLASH_DETECTION
3048 DEFVAR_LISP ("configure-lock-directory", &Vconfigure_lock_directory /*
3049 For internal use by the build procedure only.
3050 configure's idea of what LOCK-DIRECTORY will be.
3053 Vconfigure_lock_directory = Ffile_name_as_directory
3054 (build_string ((char *) PATH_LOCK));
3056 Vconfigure_lock_directory = Qnil;
3058 #endif /* CLASH_DETECTION */
3060 DEFVAR_LISP ("site-directory", &Vsite_directory /*
3061 *Directory of site-specific Lisp files that come with XEmacs.
3063 Vsite_directory = Qnil;
3065 DEFVAR_LISP ("configure-site-directory", &Vconfigure_site_directory /*
3066 For internal use by the build procedure only.
3067 configure's idea of what SITE-DIRECTORY will be.
3070 Vconfigure_site_directory = Ffile_name_as_directory
3071 (build_string ((char *) PATH_SITE));
3073 Vconfigure_site_directory = Qnil;
3076 DEFVAR_LISP ("site-module-directory", &Vsite_module_directory /*
3077 *Directory of site-specific loadable modules that come with XEmacs.
3079 Vsite_module_directory = Qnil;
3081 DEFVAR_LISP ("configure-site-module-directory", &Vconfigure_site_module_directory /*
3082 For internal use by the build procedure only.
3083 configure's idea of what SITE-DIRECTORY will be.
3085 #ifdef PATH_SITE_MODULES
3086 Vconfigure_site_module_directory = Ffile_name_as_directory
3087 (build_string ((char *) PATH_SITE_MODULES));
3089 Vconfigure_site_module_directory = Qnil;
3092 DEFVAR_LISP ("doc-directory", &Vdoc_directory /*
3093 *Directory containing the DOC file that comes with XEmacs.
3094 This is usually the same as exec-directory.
3096 Vdoc_directory = Qnil;
3098 DEFVAR_LISP ("configure-doc-directory", &Vconfigure_doc_directory /*
3099 For internal use by the build procedure only.
3100 configure's idea of what DOC-DIRECTORY will be.
3103 Vconfigure_doc_directory = Ffile_name_as_directory
3104 (build_string ((char *) PATH_DOC));
3106 Vconfigure_doc_directory = Qnil;
3109 DEFVAR_LISP ("configure-exec-prefix-directory", &Vconfigure_exec_prefix_directory /*
3110 For internal use by the build procedure only.
3111 configure's idea of what EXEC-PREFIX-DIRECTORY will be.
3113 #ifdef PATH_EXEC_PREFIX
3114 Vconfigure_exec_prefix_directory = Ffile_name_as_directory
3115 (build_string ((char *) PATH_EXEC_PREFIX));
3117 Vconfigure_exec_prefix_directory = Qnil;
3120 DEFVAR_LISP ("configure-prefix-directory", &Vconfigure_prefix_directory /*
3121 For internal use by the build procedure only.
3122 configure's idea of what PREFIX-DIRECTORY will be.
3125 Vconfigure_prefix_directory = Ffile_name_as_directory
3126 (build_string ((char *) PATH_PREFIX));
3128 Vconfigure_prefix_directory = Qnil;
3131 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory /*
3132 For internal use by the build procedure only.
3133 This is the name of the directory in which the build procedure installed
3134 Emacs's info files; the default value for Info-default-directory-list
3138 Vconfigure_info_directory =
3139 Ffile_name_as_directory (build_string (PATH_INFO));
3141 Vconfigure_info_directory = Qnil;
3144 DEFVAR_LISP ("configure-info-path", &Vconfigure_info_path /*
3145 The configured initial path for info documentation.
3147 #ifdef PATH_INFOPATH
3148 Vconfigure_info_path = decode_path (PATH_INFOPATH);
3150 Vconfigure_info_path = Qnil;
3155 /* This is so tremendously ugly I'd puke. But then, it works.
3156 * The target is to override the static constructor from the
3157 * libiflPNG.so library which is maskerading as libz, and
3158 * cores on us when re-started from the dumped executable.
3159 * This will have to go for 21.1 -- OG.
3161 void __sti__iflPNGFile_c___(void);
3162 void __sti__iflPNGFile_c___()