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 */
41 #include "syssignal.h" /* Always include before systty.h */
50 #if defined (HAVE_LOCALE_H) && \
51 (defined (I18N2) || defined (I18N3) || defined (I18N4))
61 #include <default_acl.h>
65 #if defined (WINDOWSNT)
72 #if !defined SYSTEM_MALLOC && !defined DOUG_LEA_MALLOC
73 extern void *(*__malloc_hook)(size_t);
74 extern void *(*__realloc_hook)(void *, size_t);
75 extern void (*__free_hook)(void *);
76 #endif /* not SYSTEM_MALLOC && not DOUG_LEA_MALLOC */
78 /* Command line args from shell, as list of strings */
79 Lisp_Object Vcommand_line_args;
81 /* Set nonzero after XEmacs has started up the first time.
82 Prevents reinitialization of the Lisp world and keymaps
83 on subsequent starts. */
86 #ifdef DOUG_LEA_MALLOC
88 /* Preserves a pointer to the memory allocated that copies that
89 static data inside glibc's malloc. */
90 static void *malloc_state_ptr;
91 #endif /* DOUG_LEA_MALLOC */
94 void r_alloc_reinit (void);
97 /* Variable whose value is symbol giving operating system type. */
98 Lisp_Object Vsystem_type;
100 /* Variable whose value is string giving configuration built for. */
101 Lisp_Object Vsystem_configuration;
103 /* Variable whose value is string containing the configuration options
104 XEmacs was built with. */
105 Lisp_Object Vsystem_configuration_options;
107 /* Version numbers and strings */
108 Lisp_Object Vemacs_major_version;
109 Lisp_Object Vemacs_minor_version;
110 Lisp_Object Vemacs_beta_version;
111 Lisp_Object Vxemacs_codename;
113 Lisp_Object Vinfodock_major_version;
114 Lisp_Object Vinfodock_minor_version;
115 Lisp_Object Vinfodock_build_version;
118 /* The path under which XEmacs was invoked. */
119 Lisp_Object Vinvocation_path;
121 /* The name under which XEmacs was invoked, with any leading directory
123 Lisp_Object Vinvocation_name;
125 /* The directory name from which XEmacs was invoked. */
126 Lisp_Object Vinvocation_directory;
129 /* The directory name in which to find subdirs such as lisp and etc.
130 nil means get them only from PATH_LOADSEARCH. */
131 Lisp_Object Vinstallation_directory;
134 Lisp_Object Vemacs_program_name, Vemacs_program_version;
135 Lisp_Object Vexec_path;
136 Lisp_Object Vexec_directory, Vconfigure_exec_directory;
137 Lisp_Object Vlisp_directory, Vconfigure_lisp_directory;
138 Lisp_Object Vconfigure_package_path;
139 Lisp_Object Vdata_directory, Vconfigure_data_directory;
140 Lisp_Object Vdoc_directory, Vconfigure_doc_directory;
141 Lisp_Object Vconfigure_lock_directory;
142 Lisp_Object Vdata_directory_list;
143 Lisp_Object Vinfo_directory, Vconfigure_info_directory;
144 Lisp_Object Vsite_directory, Vconfigure_site_directory;
145 Lisp_Object Vconfigure_info_path;
146 Lisp_Object Vinternal_error_checking;
147 Lisp_Object Vpath_separator;
149 /* The default base directory XEmacs is installed under. */
150 Lisp_Object Vconfigure_exec_prefix_directory, Vconfigure_prefix_directory;
152 /* If nonzero, set XEmacs to run at this priority. This is also used
153 in child_setup and sys_suspend to make sure subshells run at normal
157 /* If non-zero a filter or a sentinel is running. Tested to save the match
158 data on the first attempt to change it inside asynchronous code. */
159 int running_asynch_code;
161 /* If non-zero, a window-system was specified on the command line. */
164 /* Type of display specified. We cannot use a Lisp symbol here because
165 Lisp symbols may not initialized at the time that we set this
167 CONST char *display_use;
169 /* If non-zero, then the early error handler will only print the error
171 int suppress_early_error_handler_backtrace;
173 /* An address near the bottom of the stack.
174 Tells GC how to save a copy of the stack. */
177 #ifdef USG_SHARED_LIBRARIES
178 /* If nonzero, this is the place to put the end of the writable segment
181 uintptr_t bss_end = 0;
184 /* Number of bytes of writable memory we can expect to be able to get */
185 unsigned int lim_data;
187 /* Nonzero means running XEmacs without interactive terminal. */
191 /* Value of Lisp variable `noninteractive'.
192 Normally same as C variable `noninteractive'
193 but nothing terrible happens if user sets this one. */
197 /* Nonzero means don't perform site-lisp searches at startup */
198 int inhibit_site_lisp;
200 /* Nonzero means don't respect early packages at startup */
201 int inhibit_early_packages;
203 /* Nonzero means don't load package autoloads at startup */
204 int inhibit_autoloads;
206 /* Nonzero means print debug information about path searching */
209 /* Save argv and argc. */
213 static void sort_args (int argc, char **argv);
215 extern int always_gc; /* hack */
217 Lisp_Object Qkill_emacs_hook;
218 Lisp_Object Qsave_buffers_kill_emacs;
221 /* Signal code for the fatal signal that was received */
222 static int fatal_error_code;
224 /* Nonzero if handling a fatal error already */
225 static int fatal_error_in_progress;
227 static void shut_down_emacs (int sig, Lisp_Object stuff);
229 /* Handle bus errors, illegal instruction, etc. */
231 fatal_error_signal (int sig)
233 fatal_error_code = sig;
234 signal (sig, SIG_DFL);
235 /* Unblock the signal so that if the same signal gets sent in the
236 code below, we avoid a deadlock. */
237 EMACS_UNBLOCK_SIGNAL (fatal_error_code);
239 /* If fatal error occurs in code below, avoid infinite recursion. */
240 if (! fatal_error_in_progress)
242 fatal_error_in_progress = dont_check_for_quit = 1;
243 shut_down_emacs (sig, Qnil);
244 stderr_out ("\nLisp backtrace follows:\n\n");
245 Fbacktrace (Qexternal_debugging_output, Qt);
246 # if 0 /* This is evil, rarely useful, and causes grief in some cases. */
247 /* Check for Sun-style stack printing via /proc */
249 CONST char *pstack = "/usr/proc/bin/pstack";
250 if (access (pstack, X_OK) == 0)
253 stderr_out ("\nC backtrace follows:\n"
254 "(A real debugger may provide better information)\n\n");
255 sprintf (buf, "%s %d >&2", pstack, (int)getpid());
261 /* Signal the same code; this time it will really be fatal. */
262 kill (getpid (), fatal_error_code);
268 fatal (CONST char *fmt, ...)
271 va_start (args, fmt);
273 fprintf (stderr, "\nXEmacs: ");
274 vfprintf (stderr, GETTEXT (fmt), args);
275 fprintf (stderr, "\n");
282 /* #### The following two functions should be replaced with
283 calls to emacs_doprnt_*() functions, with STREAM set to send out
284 to stdout or stderr. This is the only way to ensure that
285 I18N3 works properly (many implementations of the *printf()
286 functions, including the ones included in glibc, do not implement
287 the %###$ argument-positioning syntax). */
289 /* exactly equivalent to fprintf (stderr, fmt, ...) except that it calls
290 GETTEXT on the format string. */
293 stderr_out (CONST char *fmt, ...)
297 va_start (args, fmt);
299 retval = vfprintf (stderr, GETTEXT (fmt), args);
302 /* fflush (stderr); */
306 /* exactly equivalent to fprintf (stdout, fmt, ...) except that it calls
307 GETTEXT on the format string. */
310 stdout_out (CONST char *fmt, ...)
314 va_start (args, fmt);
316 retval = vfprintf (stdout, GETTEXT (fmt), args);
324 /* Handler for SIGDANGER. */
326 memory_warning_signal (int sig)
328 /* #### bad bad bad; this function shouldn't do anything except
329 set a flag, or weird corruption could happen. */
330 signal (sig, memory_warning_signal);
333 (GETTEXT ("Operating system warns that virtual memory is running low.\n"));
335 /* It might be unsafe to call do_auto_save now. */
336 force_auto_save_soon ();
338 #endif /* SIGDANGER */
340 /* Code for dealing with Lisp access to the Unix command line */
343 make_arg_list_1 (int argc, char **argv, int skip_args)
345 Lisp_Object result = Qnil;
348 for (i = argc - 1; i >= 0; i--)
350 if (i == 0 || i > skip_args)
355 /* Do not trust to what crt0 has stuffed into argv[0] */
356 char full_exe_path [MAX_PATH];
357 GetModuleFileName (NULL, full_exe_path, MAX_PATH);
358 result = Fcons (build_ext_string (full_exe_path, FORMAT_FILENAME),
360 #if defined(HAVE_SHLIB)
361 (void)dll_init(full_exe_path);
366 result = Fcons (build_ext_string (argv [i], FORMAT_FILENAME), result);
373 make_arg_list (int argc, char **argv)
375 return make_arg_list_1 (argc, argv, 0);
378 /* Calling functions are also responsible for calling free_argc_argv
379 when they are done with the generated list. */
381 make_argc_argv (Lisp_Object argv_list, int *argc, char ***argv)
384 int n = XINT (Flength (argv_list));
386 *argv = (char**) xmalloc ((n+1) * sizeof (char*));
388 for (i = 0, next = argv_list; i < n; i++, next = XCDR (next))
391 CHECK_STRING (XCAR (next));
393 GET_C_STRING_EXT_DATA_ALLOCA (XCAR (next), FORMAT_OS, temp);
394 (*argv) [i] = xstrdup (temp);
401 free_argc_argv (char **argv)
414 init_cmdargs (int argc, char **argv, int skip_args)
419 Vcommand_line_args = make_arg_list_1 (argc, argv, skip_args);
422 DEFUN ("invocation-name", Finvocation_name, 0, 0, 0, /*
423 Return the program name that was used to run XEmacs.
424 Any directory names are omitted.
428 return Fcopy_sequence (Vinvocation_name);
431 DEFUN ("invocation-directory", Finvocation_directory, 0, 0, 0, /*
432 Return the directory name in which the Emacs executable was located.
436 return Fcopy_sequence (Vinvocation_directory);
441 /* #### - don't know why I18N4 on SunOS/JLE
442 can't deal with this. It's a potential
443 bug that needs to be looked at. */
444 # undef RUN_TIME_REMAP
447 #if defined (MULE) && defined (MSDOS) && defined (EMX)
448 /* Setup all of files be input/output'ed with binary translation mdoe. */
450 asm ("L_setbinmode:");
451 asm (" movl $1, __fmode_bin");
453 asm (" .stabs \"___CTOR_LIST__\", 23, 0, 0, L_setbinmode");
456 /* Test whether the next argument in ARGV matches SSTR or a prefix of
457 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
458 (the argument is supposed to have a value) store in *VALPTR either
459 the next argument or the portion of this one after the equal sign.
460 ARGV is read starting at position *SKIPPTR; this index is advanced
461 by the number of arguments used.
463 Too bad we can't just use getopt for all of this, but we don't have
464 enough information to do it right. */
467 argmatch (char **argv, int argc, char *sstr, char *lstr,
468 int minlen, char **valptr, int *skipptr)
474 /* Don't access argv[argc]; give up in advance. */
475 if (argc <= *skipptr + 1)
478 arg = argv[*skipptr+1];
481 if (strcmp (arg, sstr) == 0)
485 *valptr = argv[*skipptr+2];
492 arglen = (valptr != NULL && (p = strchr (arg, '=')) != NULL
493 ? p - arg : strlen (arg));
494 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
496 else if (valptr == NULL)
507 else if (argv[*skipptr+2] != NULL)
509 *valptr = argv[*skipptr+2];
519 /* Make stack traces always identify version + configuration */
520 #define main_1 STACK_TRACE_EYE_CATCHER
523 main_1 (int argc, char **argv, char **envp, int restart)
525 char stack_bottom_variable;
528 int inhibit_window_system;
530 extern int malloc_cookie;
533 #if !defined(SYSTEM_MALLOC) && !defined(HAVE_LIBMCHECK)
534 /* Make sure that any libraries we link against haven't installed a
535 hook for a gmalloc of a potentially incompatible version. */
536 /* If we're using libmcheck, the hooks have already been initialized, */
537 /* don't touch them. -slb */
538 __malloc_hook = NULL;
539 __realloc_hook = NULL;
541 #endif /* not SYSTEM_MALLOC */
547 * NeXT secret magic, ripped from Emacs-for-NS by Carl Edman
548 * <cedman@princeton.edu>. Note that even Carl doesn't know what this
549 * does; it was provided by NeXT, and it presumable makes NS's mallocator
550 * work with dumping. But malloc_jumpstart() and malloc_freezedry() in
551 * unexnext.c are both completely undocumented, even in NS header files!
552 * But hey, it solves all NS related memory problems, so who's
554 if (initialized && malloc_jumpstart (malloc_cookie) != 0)
555 fprintf (stderr, "malloc jumpstart failed!\n");
559 #if defined (GNU_MALLOC) && \
560 defined (ERROR_CHECK_MALLOC) && \
561 !defined (HAVE_LIBMCHECK)
563 #if defined(LOSING_GCC_DESTRUCTOR_FREE_BUG)
564 /* Prior to XEmacs 21, this was `#if 0'ed out. */
565 /* I'm enabling this because it is the only reliable way I've found to */
566 /* prevent a very annoying problem where GCC will attempt to free(3) */
567 /* memory at exit() and cause a coredump. */
571 sort_args (argc, argv);
573 /* Map in shared memory, if we are using that. */
575 if (argmatch (argv, argc, "-nl", "--no-shared-memory", 6, NULL, &skip_args))
578 /* The shared memory was just restored, which clobbered this. */
584 /* The shared memory was just restored, which clobbered this. */
587 #endif /* HAVE_SHM */
589 #if (defined (MSDOS) && defined (EMX)) || defined (WIN32) || defined (_SCO_DS)
593 /* Record (approximately) where the stack begins. */
594 stack_bottom = &stack_bottom_variable;
596 #ifdef USG_SHARED_LIBRARIES
598 brk ((void *) bss_end);
605 /* If USE_DOMAIN_ACLS environment variable exists,
606 use ACLs rather than UNIX modes. */
607 if (egetenv ("USE_DOMAIN_ACLS"))
608 default_acl (USE_DEFACL);
612 #if defined (HAVE_MMAP) && defined (REL_ALLOC)
613 /* ralloc can only be used if using the GNU memory allocator. */
620 #endif /* HAVE_SOCKS */
622 #ifndef SYSTEM_MALLOC
624 /* Arrange to get warning messages as memory fills up. */
625 memory_warnings (0, malloc_warning);
626 #endif /* not SYSTEM_MALLOC */
629 /* We do all file input/output as binary files. When we need to translate
630 newlines, we do that manually. */
632 (stdin) ->_flag &= ~_IOTEXT;
633 (stdout)->_flag &= ~_IOTEXT;
634 (stderr)->_flag &= ~_IOTEXT;
637 #ifdef SET_EMACS_PRIORITY
638 if (emacs_priority != 0)
639 nice (-emacs_priority);
641 #endif /* SET_EMACS_PRIORITY */
643 #ifdef EXTRA_INITIALIZE
647 #ifdef HAVE_WINDOW_SYSTEM
648 inhibit_window_system = 0;
650 inhibit_window_system = 1;
653 /* Handle the -t switch, which specifies filename to use as terminal */
656 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
660 if (open (term, O_RDWR | OPEN_BINARY, 2) < 0)
661 fatal ("%s: %s", term, strerror (errno));
664 fatal ("%s: not a tty", term);
667 stderr_out ("Using %s", ttyname (0));
669 stderr_out ("Using %s", term);
670 inhibit_window_system = 1; /* -t => -nw */
674 /* Handle -nw switch */
675 if (argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
676 inhibit_window_system = 1;
678 /* Handle the -batch switch, which means don't do interactive display. */
679 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
681 #if 0 /* I don't think this is correct. */
682 inhibit_autoloads = 1;
687 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
688 11, NULL, &skip_args))
691 /* Partially handle -no-autoloads, -no-early-packages and -vanilla. Packages */
692 /* are searched prior to the rest of the command line being parsed in */
694 if (argmatch (argv, argc, "-no-early-packages", "--no-early-packages",
695 6, NULL, &skip_args))
697 inhibit_early_packages = 1;
700 if (argmatch (argv, argc, "-vanilla", "--vanilla",
701 7, NULL, &skip_args))
703 inhibit_early_packages = 1;
707 if (argmatch (argv, argc, "-no-autoloads", "--no-autoloads",
708 7, NULL, &skip_args))
710 /* Inhibit everything */
711 inhibit_autoloads = 1;
715 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
716 6, NULL, &skip_args))
723 /* Partially handle the -version and -help switches: they imply -batch,
724 but are not removed from the list. */
725 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
726 noninteractive = 1, skip_args--;
728 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args) ||
729 argmatch (argv, argc, "-V", 0, 2, NULL, &skip_args))
730 noninteractive = 1, skip_args--;
732 /* Now, figure out which type of console is our first console. */
737 display_use = "stream";
742 if (inhibit_window_system)
743 fatal ("Sorry, this XEmacs was not compiled with TTY support");
746 #ifdef HAVE_WINDOW_SYSTEM
747 /* Stupid kludge to catch command-line display spec. We can't
748 handle this argument entirely in window-system-dependent code
749 because we don't even know which window-system-dependent code
750 to run until we've recognized this argument. */
751 if (!inhibit_window_system && !noninteractive)
753 #ifdef HAVE_X_WINDOWS
755 int count_before = skip_args;
757 if (argmatch (argv, argc, "-d", "--display", 3, &dpy, &skip_args) ||
758 argmatch (argv, argc, "-display", 0, 3, &dpy, &skip_args))
763 /* If we have the form --display=NAME,
764 convert it into -d name.
765 This requires inserting a new element into argv. */
766 if (dpy != 0 && skip_args - count_before == 1)
768 char **new = (char **) xmalloc (sizeof (char *) * (argc + 2));
771 for (j = 0; j < count_before + 1; j++)
773 new[count_before + 1] = "-d";
774 new[count_before + 2] = dpy;
775 for (j = count_before + 2; j <argc; j++)
776 new[j + 1] = argv[j];
780 /* Change --display to -d, when its arg is separate. */
781 else if (dpy != 0 && skip_args > count_before
782 && argv[count_before + 1][1] == '-')
783 argv[count_before + 1] = "-d";
785 /* Don't actually discard this arg. */
786 skip_args = count_before;
788 /* If there is a non-empty environment var DISPLAY, set
789 `display_use', but not `display_arg', which is only to be set
790 if the display was specified on the command line. */
791 if ((dpy = getenv ("DISPLAY")) && dpy[0])
794 #endif /* HAVE_X_WINDOWS */
795 #ifdef HAVE_MS_WINDOWS
796 if (strcmp(display_use, "x") != 0)
797 display_use = "mswindows";
798 #endif /* HAVE_MS_WINDOWS */
800 #endif /* HAVE_WINDOW_SYSTEM */
802 noninteractive1 = noninteractive;
804 /****** Now initialize everything *******/
806 /* First, do really basic environment initialization -- catching signals
807 and the like. These functions have no dependence on any part of
808 the Lisp engine and need to be done both at dump time and at run time. */
810 init_signals_very_early ();
811 init_data_very_early (); /* Catch math errors. */
812 #ifdef LISP_FLOAT_TYPE
813 init_floatfns_very_early (); /* Catch floating-point math errors. */
815 init_process_times_very_early (); /* Initialize our process timers.
816 As early as possible, of course,
817 so we can be fairly accurate. */
818 init_intl_very_early (); /* set up the locale and domain for gettext and
821 /* Now initialize the Lisp engine and the like. Done only during
822 dumping. No dependence on anything that may be in the user's
823 environment when the dumped XEmacs is run.
825 We try to do things in an order that minimizes the non-obvious
826 dependencies between functions. */
830 /* Initialize things so that new Lisp objects
831 can be created and objects can be staticpro'd.
832 Must be basically the very first thing done
833 because pretty much all of the initialization
834 routines below create new objects. */
835 init_alloc_once_early ();
837 /* Initialize Qnil, Qt, Qunbound, and the
838 obarray. After this, symbols can be
839 interned. This depends on init_alloc_once(). */
840 init_symbols_once_early ();
842 /* Declare the basic symbols pertaining to errors,
843 So that deferror() can be called. */
844 init_errors_once_early ();
846 /* Make sure that opaque pointers can be created. */
847 init_opaque_once_early ();
849 /* Now declare all the symbols and define all the Lisp primitives.
851 The *only* thing that the syms_of_*() functions are allowed to do
852 is call one of the following three functions:
855 defsubr() (i.e. DEFSUBR)
859 Order does not matter in these functions.
864 #ifdef HAVE_X_WINDOWS
865 syms_of_balloon_x ();
871 syms_of_casefiddle ();
880 #endif /* DEBUG_XEMACS */
894 #ifdef HAVE_DRAGNDROP
897 syms_of_event_stream ();
902 #ifdef CLASH_DETECTION
904 #endif /* CLASH_DETECTION */
907 syms_of_font_lock ();
911 syms_of_glyphs_eimage ();
912 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
931 #if !defined (NO_SUBPROCESSES)
933 #ifdef HAVE_WIN32_PROCESSES
934 syms_of_process_nt ();
938 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
940 #endif /* HAVE_MMAP && REL_ALLOC */
942 syms_of_redisplay ();
946 syms_of_specifier ();
949 #ifdef HAVE_SCROLLBARS
950 syms_of_scrollbar ();
960 syms_of_console_tty ();
961 syms_of_device_tty ();
962 syms_of_objects_tty ();
964 #ifdef HAVE_X_WINDOWS
972 syms_of_objects_x ();
974 syms_of_menubar_x ();
977 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
980 #endif /* HAVE_X_WINDOWS */
982 #ifdef HAVE_MS_WINDOWS
983 syms_of_console_mswindows ();
984 syms_of_device_mswindows ();
985 syms_of_event_mswindows ();
986 syms_of_frame_mswindows ();
987 syms_of_objects_mswindows ();
988 syms_of_select_mswindows ();
989 syms_of_glyphs_mswindows ();
991 syms_of_menubar_mswindows ();
993 #ifdef HAVE_SCROLLBARS
994 syms_of_scrollbar_mswindows ();
996 #ifdef HAVE_MSW_C_DIRED
997 syms_of_dired_mswindows ();
999 #endif /* HAVE_MS_WINDOWS */
1003 syms_of_mule_ccl ();
1004 syms_of_mule_charset ();
1007 syms_of_mule_coding ();
1011 syms_of_mule_wnn ();
1014 syms_of_mule_canna ();
1015 #endif /* HAVE_CANNA */
1031 #if defined (GNU_MALLOC) && \
1032 defined (ERROR_CHECK_MALLOC) && \
1033 !defined (HAVE_LIBMCHECK)
1035 /* Prior to XEmacs 21, this was `#if 0'ed out. -slb */
1036 #if defined (LOSING_GCC_DESTRUCTOR_FREE_BUG)
1037 syms_of_free_hook ();
1041 syms_of_tooltalk ();
1052 /* Now create the subtypes for the types that have them.
1053 We do this before the vars_*() because more symbols
1054 may get initialized here. */
1056 /* Now initialize the console types and associated symbols.
1057 Other than the first function below, the functions may
1058 make exactly the following function/macro calls:
1060 INITIALIZE_CONSOLE_TYPE()
1061 CONSOLE_HAS_METHOD()
1063 For any given console type, the former macro must be called
1064 before the any calls to the latter macro. */
1066 console_type_create ();
1068 console_type_create_stream ();
1071 console_type_create_tty ();
1072 console_type_create_device_tty ();
1073 console_type_create_frame_tty ();
1074 console_type_create_objects_tty ();
1075 console_type_create_redisplay_tty ();
1078 #ifdef HAVE_X_WINDOWS
1079 console_type_create_x ();
1080 console_type_create_device_x ();
1081 console_type_create_frame_x ();
1082 console_type_create_glyphs_x ();
1083 #ifdef HAVE_MENUBARS
1084 console_type_create_menubar_x ();
1086 console_type_create_objects_x ();
1087 console_type_create_redisplay_x ();
1088 #ifdef HAVE_SCROLLBARS
1089 console_type_create_scrollbar_x ();
1091 #ifdef HAVE_TOOLBARS
1092 console_type_create_toolbar_x ();
1095 console_type_create_dialog_x ();
1097 #endif /* HAVE_X_WINDOWS */
1099 #ifdef HAVE_MS_WINDOWS
1100 console_type_create_mswindows ();
1101 console_type_create_device_mswindows ();
1102 console_type_create_frame_mswindows ();
1103 console_type_create_objects_mswindows ();
1104 console_type_create_redisplay_mswindows ();
1105 console_type_create_glyphs_mswindows ();
1106 # ifdef HAVE_SCROLLBARS
1107 console_type_create_scrollbar_mswindows ();
1109 #ifdef HAVE_MENUBARS
1110 console_type_create_menubar_mswindows ();
1112 #ifdef HAVE_TOOLBARS
1113 console_type_create_toolbar_mswindows ();
1116 console_type_create_dialog_mswindows ();
1120 /* Now initialize the specifier types and associated symbols.
1121 Other than the first function below, the functions may
1122 make exactly the following function/macro calls:
1124 INITIALIZE_SPECIFIER_TYPE()
1125 SPECIFIER_HAS_METHOD()
1127 For any given specifier type, the former macro must be called
1128 before the any calls to the latter macro. */
1130 specifier_type_create ();
1132 specifier_type_create_image ();
1133 specifier_type_create_objects ();
1134 #ifdef HAVE_TOOLBARS
1135 specifier_type_create_toolbar ();
1138 /* Now initialize the structure types and associated symbols.
1139 Other than the first function below, the functions may
1140 make exactly the following function/macro calls:
1142 define_structure_type()
1143 define_structure_type_keyword()
1147 structure_type_create ();
1149 structure_type_create_chartab ();
1150 structure_type_create_faces ();
1151 structure_type_create_rangetab ();
1152 structure_type_create_hashtable ();
1154 /* Now initialize the image instantiator formats and associated symbols.
1155 Other than the first function below, the functions may
1156 make exactly the following function/macro calls:
1158 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT()
1159 IIFORMAT_HAS_METHOD()
1160 IIFORMAT_VALID_KEYWORD()
1162 For any given image instantiator format, the first macro must be
1163 called before the any calls to the other macros. */
1165 image_instantiator_format_create ();
1166 image_instantiator_format_create_glyphs_eimage ();
1167 #ifdef HAVE_X_WINDOWS
1168 image_instantiator_format_create_glyphs_x ();
1169 #endif /* HAVE_X_WINDOWS */
1170 #ifdef HAVE_MS_WINDOWS
1171 image_instantiator_format_create_glyphs_mswindows ();
1172 #endif /* HAVE_MSWINDOWS_WINDOWS */
1174 /* Now initialize the lstream types and associated symbols.
1175 Other than the first function below, the functions may
1176 make exactly the following function/macro calls:
1178 LSTREAM_HAS_METHOD()
1182 lstream_type_create ();
1184 lstream_type_create_mule_coding ();
1186 #if defined (HAVE_MS_WINDOWS) && !defined(HAVE_MSG_SELECT)
1187 lstream_type_create_mswindows_selectable ();
1190 /* Initialize processes implementation.
1191 The functions may make exactly the following function/macro calls:
1193 PROCESS_HAS_METHOD()
1195 #ifdef HAVE_UNIX_PROCESSES
1196 process_type_create_unix ();
1198 #ifdef HAVE_WIN32_PROCESSES
1199 process_type_create_nt ();
1202 /* Now initialize most variables.
1204 These functions may do exactly the following:
1217 defsymbol(), if it's absolutely necessary and you're sure that
1218 the symbol isn't referenced anywhere else in the initialization
1220 Fset() on a symbol that is unbound
1221 assigning a symbol or constant value to a variable
1222 using a global variable that has been initialized
1223 earlier on in the same function
1225 Any of the object-creating functions on alloc.c: e.g.
1240 perhaps a few others.
1243 /* Now allow Fprovide() statements to be made. */
1244 init_provide_once ();
1248 #ifdef HAVE_X_WINDOWS
1249 vars_of_balloon_x ();
1252 vars_of_bytecode ();
1254 vars_of_callproc ();
1262 vars_of_console_stream ();
1269 #ifdef HAVE_DRAGNDROP
1270 vars_of_dragdrop ();
1276 vars_of_event_stream ();
1281 #ifdef CLASH_DETECTION
1282 vars_of_filelock ();
1284 vars_of_floatfns ();
1285 vars_of_font_lock ();
1288 vars_of_glyphs_eimage ();
1289 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1297 vars_of_input_method_motif ();
1298 #else /* XIM_XLIB */
1299 vars_of_input_method_xlib ();
1301 #endif /* HAVE_XIM */
1307 #ifdef HAVE_DATABASE
1308 vars_of_database ();
1310 #ifdef HAVE_MENUBARS
1317 #ifndef NO_SUBPROCESSES
1319 #ifdef HAVE_UNIX_PROCESSES
1320 vars_of_process_unix ();
1322 #ifdef HAVE_WIN32_PROCESSES
1323 vars_of_process_nt ();
1328 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
1330 #endif /* HAVE_MMAP && REL_ALLOC */
1331 vars_of_redisplay ();
1332 #ifdef HAVE_SCROLLBARS
1333 vars_of_scrollbar ();
1337 vars_of_specifier ();
1340 #ifdef HAVE_TOOLBARS
1347 vars_of_console_tty ();
1348 vars_of_event_tty ();
1349 vars_of_frame_tty ();
1350 vars_of_objects_tty ();
1353 #ifdef HAVE_X_WINDOWS
1354 vars_of_device_x ();
1356 vars_of_dialog_x ();
1358 vars_of_event_Xt ();
1360 vars_of_glyphs_x ();
1361 #ifdef HAVE_MENUBARS
1362 vars_of_menubar_x ();
1364 vars_of_objects_x ();
1366 #ifdef HAVE_SCROLLBARS
1367 vars_of_scrollbar_x ();
1369 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1374 #ifdef HAVE_MS_WINDOWS
1375 vars_of_device_mswindows ();
1376 vars_of_console_mswindows ();
1377 vars_of_event_mswindows ();
1378 vars_of_frame_mswindows ();
1379 vars_of_objects_mswindows ();
1380 vars_of_select_mswindows ();
1381 vars_of_glyphs_mswindows ();
1382 #ifdef HAVE_SCROLLBARS
1383 vars_of_scrollbar_mswindows ();
1385 #ifdef HAVE_MENUBARS
1386 vars_of_menubar_mswindows ();
1388 #ifdef HAVE_MSW_C_DIRED
1389 vars_of_dired_mswindows ();
1392 vars_of_dialog_mswindows ();
1394 #endif /* HAVE_MS_WINDOWS */
1398 vars_of_mule_charset ();
1401 vars_of_mule_coding ();
1405 vars_of_mule_wnn ();
1408 vars_of_mule_canna ();
1409 #endif /* HAVE_CANNA */
1413 vars_of_tooltalk ();
1424 /* Now initialize any specifier variables. We do this later
1425 because it has some dependence on the vars initialized
1428 These functions should *only* initialize specifier variables,
1429 and may make use of the following functions/macros in addition
1430 to the ones listed above:
1434 set_specifier_fallback()
1435 set_specifier_caching()
1438 specifier_vars_of_glyphs ();
1439 #ifdef HAVE_MENUBARS
1440 specifier_vars_of_menubar ();
1442 specifier_vars_of_redisplay ();
1443 #ifdef HAVE_SCROLLBARS
1444 specifier_vars_of_scrollbar ();
1446 #ifdef HAVE_TOOLBARS
1447 specifier_vars_of_toolbar ();
1449 specifier_vars_of_window ();
1451 /* Now comes all the rest of the variables that couldn't
1452 be handled above. There may be dependencies on variables
1453 initialized above, and dependencies between one complex_vars_()
1454 function and another. */
1456 /* Calls Fmake_range_table(). */
1457 complex_vars_of_regex ();
1458 /* Calls Fmake_range_table(). */
1459 complex_vars_of_search ();
1461 /* Calls make_lisp_hashtable(). */
1462 complex_vars_of_extents ();
1464 /* Depends on hashtables and specifiers. */
1465 complex_vars_of_faces ();
1468 /* These two depend on hashtables and various variables declared
1469 earlier. The second may also depend on the first. */
1470 complex_vars_of_mule_charset ();
1472 #if defined(FILE_CODING)
1473 complex_vars_of_mule_coding ();
1476 /* This calls allocate_glyph(), which creates specifiers
1477 and also relies on a variable (Vthe_nothing_vector) initialized
1478 above. It also calls make_ext_string(), which under Mule
1479 could require that the charsets be initialized. */
1480 complex_vars_of_glyphs ();
1482 /* These rely on the glyphs just created in the previous function,
1483 and call Fadd_spec_to_specifier(), which relies on various
1484 variables initialized above. */
1485 #ifdef HAVE_X_WINDOWS
1486 complex_vars_of_glyphs_x ();
1488 #ifdef HAVE_MS_WINDOWS
1489 complex_vars_of_glyphs_mswindows ();
1492 /* This calls Fmake_glyph_internal(). */
1493 complex_vars_of_alloc ();
1495 /* This calls Fmake_glyph_internal(). */
1496 #ifdef HAVE_MENUBARS
1497 complex_vars_of_menubar ();
1500 /* This calls Fmake_glyph_internal(). */
1501 #ifdef HAVE_SCROLLBARS
1502 complex_vars_of_scrollbar ();
1505 /* This calls allocate_glyph(). */
1506 complex_vars_of_frame ();
1508 /* This calls Fcopy_category_table() under Mule, which calls who
1510 complex_vars_of_chartab ();
1512 /* This calls set_string_char(), which (under Mule) depends on the
1513 charsets being initialized. */
1514 complex_vars_of_casetab ();
1516 /* This calls Fcopy_syntax_table(), which relies on char tables. */
1517 complex_vars_of_syntax ();
1519 /* This initializes buffer-local variables, sets things up so
1520 that buffers can be created, and creates a couple of basic
1521 buffers. This depends on Vstandard_syntax_table and
1522 Vstandard_category_table (initialized in the previous
1523 functions), as well as a whole horde of variables that may
1524 have been initialized above. */
1525 complex_vars_of_buffer ();
1527 /* This initializes console-local variables. */
1528 complex_vars_of_console ();
1530 /* This creates a couple more buffers, and depends on the
1531 previous function. */
1532 complex_vars_of_minibuf ();
1534 /* These two might call Ffile_name_as_directory(), which
1535 might depend on all sorts of things; I'm not sure. */
1536 complex_vars_of_emacs ();
1538 #ifdef CLASH_DETECTION
1539 complex_vars_of_filelock ();
1540 #endif /* CLASH_DETECTION */
1542 /* This creates a couple of basic keymaps and depends on Lisp
1543 hashtables and Ffset() (both of which depend on some variables
1544 initialized in the vars_of_*() section) and possibly other
1546 complex_vars_of_keymap ();
1547 /* Calls Fmake_hashtable() and creates a keymap */
1548 complex_vars_of_event_stream ();
1550 if (always_gc) /* purification debugging hack */
1551 garbage_collect_1 ();
1554 /* CONGRATULATIONS!!! We have successfully initialized the Lisp
1559 /* Stuff that needs to be reset at run time. Order below should
1564 reinit_mule_category ();
1568 /* Now do further initialization/setup of stuff that is not needed by the
1569 syms_of_() routines. This involves stuff that only is enabled in
1570 an interactive run (redisplay, user input, etc.) and stuff that is
1571 not needed until we start loading Lisp code (the reader). A lot
1572 of this stuff involves querying the current environment and needs
1573 to be done both at dump time and at run time. */
1575 init_initial_directory(); /* get the directory to use for the
1576 "*scratch*" buffer, etc. */
1580 * For Win32, call init_environment() now, so that environment/registry
1581 * variables will be properly entered into Vprocess_envonment.
1586 init_callproc (); /* Set up the process environment (so that egetenv
1587 works), the basic directory variables
1588 (exec-directory and so on), and stuff
1589 related to subprocesses. This should be
1590 first because many of the functions below
1591 call egetenv() to get environment variables. */
1592 init_lread (); /* Set up the Lisp reader. */
1594 /* Call early 'cause init_environment needs it. */
1596 /* Set defaults for several environment variables. */
1597 init_environment (argc, argv, skip_args);
1599 init_cmdargs (argc, argv, skip_args); /* Create list Vcommand_line_args */
1600 init_buffer (); /* Set default directory of *scratch* buffer */
1606 init_redisplay (); /* Determine terminal type.
1607 init_sys_modes uses results */
1608 init_event_stream (); /* Set up so we can get user input. */
1609 init_macros (); /* set up so we can run macros. */
1610 init_editfns (); /* Determine the name of the user we're running as */
1611 init_xemacs_process (); /* set up for calling subprocesses */
1613 init_sunpro (); /* Set up Sunpro usage tracking */
1615 #if defined (HAVE_NATIVE_SOUND) && defined (hp9000s800)
1621 init_console_stream (); /* Create the first console */
1623 /* try to get the actual pathname of the exec file we are running */
1626 Vinvocation_name = Fcar (Vcommand_line_args);
1627 if (XSTRING_DATA(Vinvocation_name)[0] == '-')
1629 /* XEmacs as a login shell, oh goody! */
1630 Vinvocation_name = build_string(getenv("SHELL"));
1632 Vinvocation_directory = Vinvocation_name;
1634 if (!NILP (Ffile_name_directory (Vinvocation_name)))
1636 /* invocation-name includes a directory component -- presumably it
1637 is relative to cwd, not $PATH */
1638 Vinvocation_directory = Fexpand_file_name (Vinvocation_name,
1640 Vinvocation_path = Qnil;
1644 Vinvocation_path = decode_env_path ("PATH", NULL);
1645 locate_file (Vinvocation_path, Vinvocation_name, EXEC_SUFFIXES,
1646 &Vinvocation_directory, X_OK);
1649 if (NILP (Vinvocation_directory))
1650 Vinvocation_directory = Vinvocation_name;
1652 Vinvocation_name = Ffile_name_nondirectory (Vinvocation_directory);
1653 Vinvocation_directory = Ffile_name_directory (Vinvocation_directory);
1656 #if defined(HAVE_SHLIB) && !defined(WINDOWSNT)
1657 /* This is Unix only. MS Windows NT has a library call that does
1658 The Right Thing on that system. Rumor has it, this must be
1659 called for GNU dld in temacs and xemacs. */
1661 char *buf = (char *)alloca (XSTRING_LENGTH (Vinvocation_directory)
1662 + XSTRING_LENGTH (Vinvocation_name)
1664 sprintf (buf, "%s/%s", XSTRING_DATA(Vinvocation_directory),
1665 XSTRING_DATA(Vinvocation_name));
1667 /* All we can do is cry if an error happens, so ignore it. */
1668 (void)dll_init(buf);
1672 #if defined (LOCALTIME_CACHE) && defined (HAVE_TZSET)
1673 /* sun's localtime() has a bug. it caches the value of the time
1674 zone rather than looking it up every time. Since localtime() is
1675 called to bolt the undumping time into the undumped emacs, this
1676 results in localtime() ignoring the TZ environment variable.
1677 This flushes the new TZ value into localtime(). */
1679 #endif /* LOCALTIME_CACHE and TZSET */
1684 /* Handle -l loadup-and-dump, args passed by Makefile. */
1685 if (argc > 2 + skip_args && !strcmp (argv[1 + skip_args], "-l"))
1686 load_me = build_string (argv[2 + skip_args]);
1687 #if 0 /* CANNOT_DUMP - this can never be right in XEmacs --andyp */
1688 /* Unless next switch is -nl, load "loadup.el" first thing. */
1689 if (!(argc > 1 + skip_args && !strcmp (argv[1 + skip_args], "-nl")))
1690 load_me = build_string ("loadup.el");
1691 #endif /* CANNOT_DUMP */
1696 quantify_start_recording_data ();
1697 #endif /* QUANTIFY */
1701 /* This never returns. */
1702 initial_command_loop (load_me);
1707 /* Sort the args so we can find the most important ones
1708 at the beginning of argv. */
1710 /* First, here's a table of all the standard options. */
1712 struct standard_args
1714 CONST char * CONST name;
1715 CONST char * CONST longname;
1720 static struct standard_args standard_args[] =
1722 /* Handled by main_1 above: */
1723 { "-nl", "--no-shared-memory", 100, 0 },
1724 { "-t", "--terminal", 95, 1 },
1725 { "-nw", "--no-windows", 90, 0 },
1726 { "-batch", "--batch", 85, 0 },
1727 { "-debug-paths", "--debug-paths", 82, 0 },
1728 { "-help", "--help", 80, 0 },
1729 { "-version", "--version", 75, 0 },
1731 { "-d", "--display", 80, 1 },
1732 { "-display", 0, 80, 1 },
1733 { "-NXHost", 0, 79, 0 },
1734 { "-MachLaunch", 0, 79, 0},
1736 /* Handled by command-line-early in startup.el: */
1737 { "-q", "--no-init-file", 50, 0 },
1738 { "-unmapped", 0, 50, 0 },
1739 { "-no-init-file", 0, 50, 0 },
1740 { "-vanilla", "--vanilla", 50, 0 },
1741 { "-no-autoloads", "--no-autoloads", 50, 0 },
1742 { "-no-site-file", "--no-site-file", 40, 0 },
1743 { "-no-early-packages", "--no-early-packages", 35, 0 },
1744 { "-u", "--user", 30, 1 },
1745 { "-user", 0, 30, 1 },
1746 { "-debug-init", "--debug-init", 20, 0 },
1747 { "-debug-paths", "--debug-paths", 20, 0 },
1750 { "-i", "--icon-type", 15, 0 },
1751 { "-itype", 0, 15, 0 },
1752 { "-iconic", "--iconic", 15, 0 },
1753 { "-bg", "--background-color", 10, 1 },
1754 { "-background", 0, 10, 1 },
1755 { "-fg", "--foreground-color", 10, 1 },
1756 { "-foreground", 0, 10, 1 },
1757 { "-bd", "--border-color", 10, 1 },
1758 { "-bw", "--border-width", 10, 1 },
1759 { "-ib", "--internal-border", 10, 1 },
1760 { "-ms", "--mouse-color", 10, 1 },
1761 { "-cr", "--cursor-color", 10, 1 },
1762 { "-fn", "--font", 10, 1 },
1763 { "-font", 0, 10, 1 },
1764 { "-g", "--geometry", 10, 1 },
1765 { "-geometry", 0, 10, 1 },
1766 { "-T", "--title", 10, 1 },
1767 { "-title", 0, 10, 1 },
1768 { "-name", "--name", 10, 1 },
1769 { "-xrm", "--xrm", 10, 1 },
1770 { "-r", "--reverse-video", 5, 0 },
1772 { "-reverse", 0, 5, 0 },
1773 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1774 { "-vb", "--vertical-scroll-bars", 5, 0 },
1776 /* These have the same priority as ordinary file name args,
1777 so they are not reordered with respect to those. */
1778 { "-L", "--directory", 0, 1 },
1779 { "-directory", 0, 0, 1 },
1780 { "-l", "--load", 0, 1 },
1781 { "-load", 0, 0, 1 },
1782 { "-f", "--funcall", 0, 1 },
1783 { "-funcall", 0, 0, 1 },
1784 { "-eval", "--eval", 0, 1 },
1785 { "-insert", "--insert", 0, 1 },
1786 /* This should be processed after ordinary file name args and the like. */
1787 { "-kill", "--kill", -10, 0 },
1790 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1791 so that the highest priority ones come first.
1792 Do not change the order of elements of equal priority.
1793 If an option takes an argument, keep it and its argument together. */
1796 sort_args (int argc, char **argv)
1798 char **new = xnew_array (char *, argc);
1799 /* For each element of argv,
1800 the corresponding element of options is:
1801 0 for an option that takes no arguments,
1802 1 for an option that takes one argument, etc.
1803 -1 for an ordinary non-option argument. */
1804 int *options = xnew_array (int, argc);
1805 int *priority = xnew_array (int, argc);
1809 int end_of_options_p = 0;
1811 /* Categorize all the options,
1812 and figure out which argv elts are option arguments. */
1813 for (from = 1; from < argc; from++)
1817 /* Pseudo options "--" and "run-temacs" indicate end of options */
1818 if (!strcmp (argv[from], "--") ||
1819 !strcmp (argv[from], "run-temacs"))
1820 end_of_options_p = 1;
1821 if (!end_of_options_p && argv[from][0] == '-')
1826 /* Look for a match with a known old-fashioned option. */
1827 for (i = 0; i < countof (standard_args); i++)
1828 if (!strcmp (argv[from], standard_args[i].name))
1830 options[from] = standard_args[i].nargs;
1831 priority[from] = standard_args[i].priority;
1832 if (from + standard_args[i].nargs >= argc)
1833 fatal ("Option `%s' requires an argument\n", argv[from]);
1834 from += standard_args[i].nargs;
1838 /* Look for a match with a known long option.
1839 MATCH is -1 if no match so far, -2 if two or more matches so far,
1840 >= 0 (the table index of the match) if just one match so far. */
1841 if (argv[from][1] == '-')
1844 thislen = strlen (argv[from]);
1845 equals = strchr (argv[from], '=');
1847 thislen = equals - argv[from];
1849 for (i = 0; i < countof (standard_args); i++)
1850 if (standard_args[i].longname
1851 && !strncmp (argv[from], standard_args[i].longname,
1860 /* If we found exactly one match, use that. */
1863 options[from] = standard_args[match].nargs;
1864 priority[from] = standard_args[match].priority;
1865 /* If --OPTION=VALUE syntax is used,
1866 this option uses just one argv element. */
1869 if (from + options[from] >= argc)
1870 fatal ("Option `%s' requires an argument\n", argv[from]);
1871 from += options[from];
1878 /* Copy the arguments, in order of decreasing priority, to NEW. */
1883 int best_priority = -9999;
1885 /* Find the highest priority remaining option.
1886 If several have equal priority, take the first of them. */
1887 for (from = 1; from < argc; from++)
1889 if (argv[from] != 0 && priority[from] > best_priority)
1891 best_priority = priority[from];
1894 /* Skip option arguments--they are tied to the options. */
1895 if (options[from] > 0)
1896 from += options[from];
1902 /* Copy the highest priority remaining option, with its args, to NEW. */
1903 new[to++] = argv[best];
1904 for (i = 0; i < options[best]; i++)
1905 new[to++] = argv[best + i + 1];
1907 /* Clear out this option in ARGV. */
1909 for (i = 0; i < options[best]; i++)
1910 argv[best + i + 1] = 0;
1913 memcpy (argv, new, sizeof (char *) * argc);
1916 static JMP_BUF run_temacs_catch;
1918 static int run_temacs_argc;
1919 static char **run_temacs_argv;
1920 static char *run_temacs_args;
1921 static size_t run_temacs_argv_size;
1922 static size_t run_temacs_args_size;
1924 DEFUN ("running-temacs-p", Frunning_temacs_p, 0, 0, 0, /*
1925 True if running temacs. This means we are in the dumping stage.
1926 This is false during normal execution of the `xemacs' program, and
1927 becomes false once `run-emacs-from-temacs' is run.
1931 return run_temacs_argc >= 0 ? Qt : Qnil;
1934 DEFUN ("run-emacs-from-temacs", Frun_emacs_from_temacs, 0, MANY, 0, /*
1935 Do not call this. It will reinitialize your XEmacs. You'll be sorry.
1937 /* If this function is called from startup.el, it will be possible to run
1938 temacs as an editor using 'temacs -batch -l loadup.el run-temacs', instead
1939 of having to dump an emacs and then run that (when debugging emacs itself,
1940 this can be much faster)). [Actually, the speed difference isn't that
1941 much as long as your filesystem is local, and you don't end up with
1942 a dumped version in case you want to rerun it. This function is most
1943 useful when used as part of the `make all-elc' command. --ben]
1944 This will "restart" emacs with the specified command-line arguments.
1946 (int nargs, Lisp_Object *args))
1949 CONST Extbyte *wampum;
1952 Lisp_Object orig_invoc_name = Fcar (Vcommand_line_args);
1953 CONST Extbyte **wampum_all = alloca_array (CONST Extbyte *, nargs);
1954 int *wampum_all_len = alloca_array (int, nargs);
1956 assert (!gc_in_progress);
1958 if (run_temacs_argc < 0)
1959 error ("I've lost my temacs-hood.");
1961 /* Need to convert the orig_invoc_name and all of the arguments
1962 to external format. */
1964 GET_STRING_EXT_DATA_ALLOCA (orig_invoc_name, FORMAT_OS, wampum,
1968 for (ac = 0, total_len = namesize; ac < nargs; ac++)
1970 CHECK_STRING (args[ac]);
1971 GET_STRING_EXT_DATA_ALLOCA (args[ac], FORMAT_OS,
1973 wampum_all_len[ac]);
1974 wampum_all_len[ac]++;
1975 total_len += wampum_all_len[ac];
1977 DO_REALLOC (run_temacs_args, run_temacs_args_size, total_len, char);
1978 DO_REALLOC (run_temacs_argv, run_temacs_argv_size, nargs+1, char *);
1980 memcpy (run_temacs_args, wampum, namesize);
1981 run_temacs_argv [0] = run_temacs_args;
1982 for (ac = 0; ac < nargs; ac++)
1984 memcpy (run_temacs_args + namesize,
1985 wampum_all[ac], wampum_all_len[ac]);
1986 run_temacs_argv [ac + 1] = run_temacs_args + namesize;
1987 namesize += wampum_all_len[ac];
1989 run_temacs_argv [nargs + 1] = 0;
1990 catchlist = NULL; /* Important! Otherwise free_cons() calls in
1991 condition_case_unwind() may lead to GC death. */
1992 unbind_to (0, Qnil); /* this closes loadup.el */
1994 run_temacs_argc = nargs + 1;
1995 #ifdef REPORT_PURE_USAGE
1996 report_pure_usage (1, 0);
1998 report_pure_usage (0, 0);
2000 LONGJMP (run_temacs_catch, 1);
2001 return Qnil; /* not reached; warning suppression */
2006 main (int argc, char **argv, char **envp)
2008 int volatile vol_argc = argc;
2009 char ** volatile vol_argv = argv;
2010 char ** volatile vol_envp = envp;
2011 /* This is hairy. We need to compute where the XEmacs binary was invoked */
2012 /* from because temacs initialization requires it to find the lisp */
2013 /* directories. The code that recomputes the path is guarded by the */
2014 /* restarted flag. There are three possible paths I've found so far */
2016 /* temacs -- When running temacs for basic build stuff, the first main_1 */
2017 /* will be the only one invoked. It must compute the path else there */
2018 /* will be a very ugly bomb in startup.el (can't find obvious location */
2019 /* for doc-directory data-directory, etc.). */
2020 /* temacs w/ run-temacs on the command line -- This is run to bytecompile */
2021 /* all the out of date dumped lisp. It will execute both of the main_1 */
2022 /* calls and the second one must not touch the first computation because */
2023 /* argc/argv are hosed the second time through. */
2024 /* xemacs -- Only the second main_1 is executed. The invocation path must */
2025 /* computed but this only matters when running in place or when running */
2026 /* as a login shell. */
2027 /* As a bonus for straightening this out, XEmacs can now be run in place */
2028 /* as a login shell. This never used to work. */
2029 /* As another bonus, we can now guarantee that */
2030 /* (concat invocation-directory invocation-name) contains the filename */
2031 /* of the XEmacs binary we are running. This can now be used in a */
2032 /* definite test for out of date dumped files. -slb */
2035 quantify_stop_recording_data ();
2036 quantify_clear_data ();
2037 #endif /* QUANTIFY */
2039 suppress_early_error_handler_backtrace = 0;
2040 lim_data = 0; /* force reinitialization of this variable */
2042 /* Lisp_Object must fit in a word; check VALBITS and GCTYPEBITS */
2043 assert (sizeof (Lisp_Object) == sizeof (void *));
2045 #ifdef LINUX_SBRK_BUG
2051 #ifdef DOUG_LEA_MALLOC
2052 mallopt (M_MMAP_MAX, 0);
2054 run_temacs_argc = 0;
2055 if (! SETJMP (run_temacs_catch))
2057 main_1 (vol_argc, vol_argv, vol_envp, 0);
2059 /* run-emacs-from-temacs called */
2061 vol_argc = run_temacs_argc;
2062 vol_argv = run_temacs_argv;
2064 /* This makes absolutely no sense to anyone involved. There are
2065 several people using this stuff. We've compared versions on
2066 everything we can think of. We can find no difference.
2067 However, on both my systems environ is a plain old global
2068 variable initialized to zero. _environ is the one that
2069 contains pointers to the actual environment.
2071 Since we can't figure out the difference (and we're hours
2072 away from a release), this takes a very cowardly approach and
2073 is bracketed with both a system specific preprocessor test
2074 and a runtime "do you have this problem" test
2076 06/20/96 robertl@dgii.com */
2078 extern char *_environ;
2079 if ((unsigned) environ == 0)
2082 #endif /* _SCO_DS */
2085 #ifdef RUN_TIME_REMAP
2087 /* obviously no-one uses this because where it was before initalized was
2089 run_time_remap (argv[0]);
2092 #ifdef DOUG_LEA_MALLOC
2093 if (initialized && (malloc_state_ptr != NULL))
2095 int rc = malloc_set_state (malloc_state_ptr);
2098 fprintf (stderr, "malloc_set_state failed, rc = %d\n", rc);
2102 free (malloc_state_ptr);
2104 /* mmap works in glibc-2.1, glibc-2.0 (Non-Mule only) and Linux libc5 */
2105 #if (defined(__GLIBC__) && __GLIBC_MINOR__ >= 1) || \
2106 defined(_NO_MALLOC_WARNING_) || \
2107 (defined(__GLIBC__) && __GLIBC_MINOR__ < 1 && !defined(MULE)) || \
2108 defined(DEBUG_DOUG_LEA_MALLOC)
2109 mallopt (M_MMAP_MAX, 64);
2115 #endif /* DOUG_LEA_MALLOC */
2117 run_temacs_argc = -1;
2119 main_1 (vol_argc, vol_argv, vol_envp, restarted);
2120 return 0; /* unreached */
2124 /* Dumping apparently isn't supported by versions of GCC >= 2.8. */
2125 /* The following needs conditionalization on whether either XEmacs or */
2126 /* various system shared libraries have been built and linked with */
2127 /* GCC >= 2.8. -slb */
2128 #if defined(GNU_MALLOC)
2130 voodoo_free_hook(void *mem)
2132 /* Disable all calls to free() when XEmacs is exiting and it doesn't */
2134 __free_hook = voodoo_free_hook;
2138 DEFUN ("kill-emacs", Fkill_emacs, 0, 1, "P", /*
2139 Exit the XEmacs job and kill it. Ask for confirmation, without argument.
2140 If ARG is an integer, return ARG as the exit program code.
2141 If ARG is a string, stuff it as keyboard input.
2143 The value of `kill-emacs-hook', if not void,
2144 is a list of functions (of no args),
2145 all of which are called before XEmacs is actually killed.
2149 /* This function can GC */
2150 struct gcpro gcpro1;
2157 if (!preparing_for_armageddon && !noninteractive)
2158 run_hook (Qkill_emacs_hook);
2160 /* make sure no quitting from now on!! */
2161 dont_check_for_quit = 1;
2164 if (!preparing_for_armageddon)
2166 Lisp_Object concons, nextcons;
2168 /* Normally, go ahead and delete all the consoles now.
2169 Some unmentionably lame window systems (MS Wwwww...... eek,
2170 I can't even say it) don't properly clean up after themselves,
2171 and even for those that do, it might be cleaner this way.
2172 If we're going down, however, we don't do this (might
2173 be too dangerous), and if we get a crash somewhere within
2174 this loop, we'll still autosave and won't try this again. */
2176 LIST_LOOP_DELETING(concons, nextcons, Vconsole_list)
2178 /* There is very little point in deleting the stream console.
2179 It uses stdio, which should flush any buffered output and
2180 something can only go wrong. -slb */
2181 /* I changed my mind. There's a stupid hack in close to add
2182 a trailing newline. */
2183 /*if (!CONSOLE_STREAM_P (XCONSOLE (XCAR (concons))))*/
2184 delete_console_internal (XCONSOLE (XCAR (concons)), 1, 1, 0);
2190 shut_down_emacs (0, ((STRINGP (arg)) ? arg : Qnil));
2192 #if defined(GNU_MALLOC)
2193 __free_hook = voodoo_free_hook;
2196 exit ((INTP (arg)) ? XINT (arg) : 0);
2198 return Qnil; /* I'm sick of the compiler warning */
2201 /* Perform an orderly shutdown of XEmacs. Autosave any modified
2202 buffers, kill any child processes, clean up the terminal modes (if
2203 we're in the foreground), and other stuff like that. Don't perform
2204 any redisplay; this may be called when XEmacs is shutting down in
2205 the background, or after its X connection has died.
2207 If SIG is a signal number, print a message for it.
2209 This is called by fatal signal handlers, X protocol error handlers,
2212 shut_down_emacs (int sig, Lisp_Object stuff)
2214 /* This function can GC */
2215 /* Prevent running of hooks and other non-essential stuff
2217 preparing_for_armageddon = 1;
2219 /* In case frames or windows are screwed up, avoid assertion
2224 quantify_stop_recording_data ();
2225 #endif /* QUANTIFY */
2228 /* This is absolutely the most important thing to do, so make sure
2229 we do it now, before anything else. We might have crashed and
2230 be in a weird inconsistent state, and potentially anything could
2231 set off another protection fault and cause us to bail out
2233 /* I'm not removing the code entirely, yet. We have run up against
2234 a spate of problems in diagnosing crashes due to crashes within
2235 crashes. It has very definitely been determined that code called
2236 during auto-saving cannot work if XEmacs crashed inside of GC.
2237 We already auto-save on an itimer so there cannot be too much
2238 unsaved stuff around, and if we get better crash reports we might
2239 be able to get more problems fixed so I'm disabling this. -slb */
2240 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
2244 reset_all_consoles ();
2245 if (sig && sig != SIGTERM)
2247 stderr_out ("\nFatal error (%d).\n", sig);
2249 ("Your files have been auto-saved.\n"
2250 "Use `M-x recover-session' to recover them.\n"
2253 "Please report this bug by selecting `Report-Bug' in the InfoDock\n"
2256 "Please report this bug by running the send-pr script included\n"
2257 "with XEmacs, or selecting `Send Bug Report' from the help menu.\n"
2258 "As a last resort send ordinary email to `crashes@xemacs.org'.\n"
2260 "*MAKE SURE* to include the information in the command\n"
2261 "M-x describe-installation.\n"
2263 "If at all possible, *please* try to obtain a C stack backtrace;\n"
2264 "it will help us immensely in determining what went wrong.\n"
2265 "To do this, locate the core file that was produced as a result\n"
2266 "of this crash (it's usually called `core' and is located in the\n"
2267 "directory in which you started the editor, or maybe in your home\n"
2268 "directory), and type\n"
2275 /* Now try to determine the actual path to the executable,
2276 to try to make the backtrace-determination process as foolproof
2278 if (GC_STRINGP (Vinvocation_name))
2279 name = (char *) XSTRING_DATA (Vinvocation_name);
2282 if (GC_STRINGP (Vinvocation_directory))
2283 dir = (char *) XSTRING_DATA (Vinvocation_directory);
2284 if (!dir || dir[0] != '/')
2285 stderr_out ("`which %s`", name);
2286 else if (dir[strlen (dir) - 1] != '/')
2287 stderr_out ("%s/%s", dir, name);
2289 stderr_out ("%s%s", dir, name);
2293 "then type `where' when the debugger prompt comes up.\n"
2294 "(If you don't have GDB on your system, you might have DBX,\n"
2295 "or XDB, or SDB. A similar procedure should work for all of\n"
2296 "these. Ask your system administrator if you need more help.)\n");
2299 stuff_buffered_input (stuff);
2301 kill_buffer_processes (Qnil);
2303 #ifdef CLASH_DETECTION
2304 unlock_all_files ();
2308 tt_session_quit (tt_default_session ());
2310 /* The following crashes when built on X11R5 and run on X11R6 */
2313 #endif /* TOOLTALK */
2319 /* Nothing like this can be implemented on an Apollo.
2322 extern char my_edata[];
2326 DEFUN ("dump-emacs-data", Fdump_emacs_data, 1, 1, 0, /*
2327 Dump current state of XEmacs into data file FILENAME.
2328 This function exists on systems that use HAVE_SHM.
2332 /* This function can GC */
2334 struct gcpro gcpro1;
2337 CHECK_STRING (intoname);
2338 intoname = Fexpand_file_name (intoname, Qnil);
2340 opurify = purify_flag;
2346 disksave_object_finalization ();
2347 release_breathing_space ();
2349 /* Tell malloc where start of impure now is */
2350 /* Also arrange for warnings when nearly out of space. */
2351 #ifndef SYSTEM_MALLOC
2352 memory_warnings (my_edata, malloc_warning);
2355 map_out_data (XSTRING_DATA (intoname));
2357 purify_flag = opurify;
2362 #else /* not HAVE_SHM */
2363 extern void disable_free_hook (void);
2365 DEFUN ("dump-emacs", Fdump_emacs, 2, 2, 0, /*
2366 Dump current state of XEmacs into executable file FILENAME.
2367 Take symbols from SYMFILE (presumably the file you executed to run XEmacs).
2368 This is used in the file `loadup.el' when building XEmacs.
2370 Remember to set `command-line-processed' to nil before dumping
2371 if you want the dumped XEmacs to process its command line
2372 and announce itself normally when it is run.
2374 (intoname, symname))
2376 /* This function can GC */
2377 struct gcpro gcpro1, gcpro2;
2380 GCPRO2 (intoname, symname);
2382 #ifdef FREE_CHECKING
2383 Freally_free (Qnil);
2385 /* When we're dumping, we can't use the debugging free() */
2386 disable_free_hook ();
2391 CHECK_STRING (intoname);
2392 intoname = Fexpand_file_name (intoname, Qnil);
2393 if (!NILP (symname))
2395 CHECK_STRING (symname);
2396 if (XSTRING_LENGTH (symname) > 0)
2397 symname = Fexpand_file_name (symname, Qnil);
2402 opurify = purify_flag;
2406 report_pure_usage (1, 1);
2408 report_pure_usage (0, 1);
2414 disksave_object_finalization ();
2415 release_breathing_space ();
2417 /* Tell malloc where start of impure now is */
2418 /* Also arrange for warnings when nearly out of space. */
2419 #ifndef SYSTEM_MALLOC
2420 memory_warnings (my_edata, malloc_warning);
2425 #if defined (MSDOS) && defined (EMX)
2427 int fd = open ((char *) XSTRING_DATA (intoname),
2428 O_WRONLY|O_CREAT|O_TRUNC, S_IREAD|S_IWRITE);
2430 error ("Failure operating on %s", XSTRING_DATA (intoname));
2436 #else /* not MSDOS and EMX */
2441 GET_C_STRING_FILENAME_DATA_ALLOCA (intoname, intoname_ext);
2442 if (STRINGP (symname))
2443 GET_C_STRING_FILENAME_DATA_ALLOCA (symname, symname_ext);
2447 garbage_collect_1 ();
2448 #ifdef DOUG_LEA_MALLOC
2449 malloc_state_ptr = malloc_get_state ();
2451 /* here we break our rule that the filename conversion should
2452 be performed at the actual time that the system call is made.
2453 It's a whole lot easier to do the conversion here than to
2454 modify all the unexec routines to ensure that filename
2455 conversion is applied everywhere. Don't worry about memory
2456 leakage because this call only happens once. */
2457 unexec (intoname_ext, symname_ext, (uintptr_t) my_edata, 0, 0);
2458 #ifdef DOUG_LEA_MALLOC
2459 free (malloc_state_ptr);
2462 #endif /* not MSDOS and EMX */
2464 purify_flag = opurify;
2469 #endif /* not HAVE_SHM */
2471 #endif /* not CANNOT_DUMP */
2477 /* Split STRING into a list of substrings. The substrings are the
2478 parts of original STRING separated by SEPCHAR. */
2480 split_string_by_emchar_1 (CONST Bufbyte *string, Bytecount size,
2483 Lisp_Object result = Qnil;
2484 CONST Bufbyte *end = string + size;
2488 CONST Bufbyte *p = string;
2491 if (charptr_emchar (p) == sepchar)
2495 result = Fcons (make_string (string, p - string), result);
2499 INC_CHARPTR (string); /* skip sepchar */
2504 return Fnreverse (result);
2507 /* The same as the above, except PATH is an external C string (it is
2508 converted as FORMAT_FILENAME), and sepchar is hardcoded to SEPCHAR
2509 (':' or whatever). */
2511 decode_path (CONST char *path)
2518 GET_C_CHARPTR_INT_FILENAME_DATA_ALLOCA (path, newpath);
2520 len = strlen (newpath);
2521 /* #### Does this make sense? It certainly does for
2522 decode_env_path(), but it looks dubious here. Does any code
2523 depend on decode_path("") returning nil instead of an empty
2528 return split_string_by_emchar_1 (newpath, (Bytecount)len, SEPCHAR);
2532 decode_env_path (CONST char *evarname, CONST char *default_)
2534 CONST char *path = 0;
2536 path = egetenv (evarname);
2539 return decode_path (path);
2542 /* Ben thinks this function should not exist or be exported to Lisp.
2543 We use it to define split-path-string in subr.el (not!). */
2545 DEFUN ("split-string-by-char", Fsplit_string_by_char, 1, 2, 0, /*
2546 Split STRING into a list of substrings originally separated by SEPCHAR.
2550 CHECK_STRING (string);
2551 CHECK_CHAR (sepchar);
2552 return split_string_by_emchar_1 (XSTRING_DATA (string),
2553 XSTRING_LENGTH (string),
2557 /* #### This was supposed to be in subr.el, but is used VERY early in
2558 the bootstrap process, so it goes here. Damn. */
2560 DEFUN ("split-path", Fsplit_path, 1, 1, 0, /*
2561 Explode a search path into a list of strings.
2562 The path components are separated with the characters specified
2563 with `path-separator'.
2567 CHECK_STRING (path);
2569 while (!STRINGP (Vpath_separator)
2570 || (XSTRING_CHAR_LENGTH (Vpath_separator) != 1))
2571 Vpath_separator = signal_simple_continuable_error
2572 ("`path-separator' should be set to a single-character string",
2575 return (split_string_by_emchar_1
2576 (XSTRING_DATA (path), XSTRING_LENGTH (path),
2577 charptr_emchar (XSTRING_DATA (Vpath_separator))));
2580 DEFUN ("noninteractive", Fnoninteractive, 0, 0, 0, /*
2581 Non-nil return value means XEmacs is running without interactive terminal.
2585 return noninteractive ? Qt : Qnil;
2588 /* This flag is useful to define if you're under a debugger; this way, you
2589 can put a breakpoint of assert_failed() and debug multiple problems
2590 in one session without having to recompile. */
2591 /* #define ASSERTIONS_DONT_ABORT */
2593 #ifdef USE_ASSERTIONS
2594 /* This highly dubious kludge ... shut up Jamie, I'm tired of your slagging. */
2597 assert_failed (CONST char *file, int line, CONST char *expr)
2599 stderr_out ("Fatal error: assertion failed, file %s, line %d, %s\n",
2601 #undef abort /* avoid infinite #define loop... */
2602 #if defined (WINDOWSNT) && defined (DEBUG_XEMACS)
2604 #elif !defined (ASSERTIONS_DONT_ABORT)
2608 #endif /* USE_ASSERTIONS */
2611 DEFUN ("quantify-start-recording-data", Fquantify_start_recording_data,
2613 Start recording Quantify data.
2617 quantify_start_recording_data ();
2621 DEFUN ("quantify-stop-recording-data", Fquantify_stop_recording_data,
2623 Stop recording Quantify data.
2627 quantify_stop_recording_data ();
2631 DEFUN ("quantify-clear-data", Fquantify_clear_data, 0, 0, 0, /*
2632 Clear all Quantify data.
2636 quantify_clear_data ();
2639 #endif /* QUANTIFY */
2642 syms_of_emacs (void)
2646 DEFSUBR (Fdump_emacs_data);
2648 DEFSUBR (Fdump_emacs);
2650 #endif /* !CANNOT_DUMP */
2652 DEFSUBR (Frun_emacs_from_temacs);
2653 DEFSUBR (Frunning_temacs_p);
2654 DEFSUBR (Finvocation_name);
2655 DEFSUBR (Finvocation_directory);
2656 DEFSUBR (Fkill_emacs);
2657 DEFSUBR (Fnoninteractive);
2660 DEFSUBR (Fquantify_start_recording_data);
2661 DEFSUBR (Fquantify_stop_recording_data);
2662 DEFSUBR (Fquantify_clear_data);
2663 #endif /* QUANTIFY */
2665 DEFSUBR (Fsplit_string_by_char);
2666 DEFSUBR (Fsplit_path); /* #### */
2668 defsymbol (&Qkill_emacs_hook, "kill-emacs-hook");
2669 defsymbol (&Qsave_buffers_kill_emacs, "save-buffers-kill-emacs");
2673 vars_of_emacs (void)
2675 DEFVAR_BOOL ("suppress-early-error-handler-backtrace",
2676 &suppress_early_error_handler_backtrace /*
2677 Non-nil means early error handler shouldn't print a backtrace.
2680 DEFVAR_LISP ("command-line-args", &Vcommand_line_args /*
2681 Args passed by shell to XEmacs, as a list of strings.
2684 DEFVAR_LISP ("invocation-name", &Vinvocation_name /*
2685 The program name that was used to run XEmacs.
2686 Any directory names are omitted.
2689 DEFVAR_LISP ("invocation-directory", &Vinvocation_directory /*
2690 The directory in which the XEmacs executable was found, to run it.
2691 The value is simply the program name if that directory's name is not known.
2694 DEFVAR_LISP ("invocation-path", &Vinvocation_path /*
2695 The path in which the XEmacs executable was found, to run it.
2696 The value is simply the value of environment variable PATH on startup
2697 if XEmacs was found there.
2701 xxDEFVAR_LISP ("installation-directory", &Vinstallation_directory,
2702 "A directory within which to look for the `lib-src' and `etc' directories.\n"
2703 "This is non-nil when we can't find those directories in their standard\n"
2704 "installed locations, but we can find them\n"
2705 "near where the XEmacs executable was found.");
2708 DEFVAR_LISP ("system-type", &Vsystem_type /*
2709 Symbol indicating type of operating system you are using.
2711 Vsystem_type = intern (SYSTEM_TYPE);
2712 Fprovide (intern(SYSTEM_TYPE));
2714 #ifndef EMACS_CONFIGURATION
2715 # define EMACS_CONFIGURATION "UNKNOWN"
2717 DEFVAR_LISP ("system-configuration", &Vsystem_configuration /*
2718 String naming the configuration XEmacs was built for.
2720 Vsystem_configuration = Fpurecopy (build_string (EMACS_CONFIGURATION));
2722 #ifndef EMACS_CONFIG_OPTIONS
2723 # define EMACS_CONFIG_OPTIONS "UNKNOWN"
2725 DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options /*
2726 String containing the configuration options XEmacs was built with.
2728 Vsystem_configuration_options = Fpurecopy (build_string
2729 (EMACS_CONFIG_OPTIONS));
2731 DEFVAR_LISP ("emacs-major-version", &Vemacs_major_version /*
2732 Major version number of this version of Emacs, as an integer.
2733 Warning: this variable did not exist in Emacs versions earlier than:
2737 Vemacs_major_version = make_int (EMACS_MAJOR_VERSION);
2739 DEFVAR_LISP ("emacs-minor-version", &Vemacs_minor_version /*
2740 Minor version number of this version of Emacs, as an integer.
2741 Warning: this variable did not exist in Emacs versions earlier than:
2745 Vemacs_minor_version = make_int (EMACS_MINOR_VERSION);
2747 DEFVAR_LISP ("emacs-beta-version", &Vemacs_beta_version /*
2748 Beta number of this version of Emacs, as an integer.
2749 The value is nil if this is an officially released version of XEmacs.
2750 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
2753 #ifdef EMACS_BETA_VERSION
2754 Vemacs_beta_version = make_int (EMACS_BETA_VERSION);
2756 Vemacs_beta_version = Qnil;
2760 DEFVAR_LISP ("infodock-major-version", &Vinfodock_major_version /*
2761 Major version number of this InfoDock release.
2763 Vinfodock_major_version = make_int (INFODOCK_MAJOR_VERSION);
2765 DEFVAR_LISP ("infodock-minor-version", &Vinfodock_minor_version /*
2766 Minor version number of this InfoDock release.
2768 Vinfodock_minor_version = make_int (INFODOCK_MINOR_VERSION);
2770 DEFVAR_LISP ("infodock-build-version", &Vinfodock_build_version /*
2771 Build version of this InfoDock release.
2773 Vinfodock_build_version = make_int (INFODOCK_BUILD_VERSION);
2776 DEFVAR_LISP ("xemacs-codename", &Vxemacs_codename /*
2777 Codename of this version of Emacs (a string).
2779 #ifndef XEMACS_CODENAME
2780 #define XEMACS_CODENAME "Noname"
2782 Vxemacs_codename = Fpurecopy (build_string (XEMACS_CODENAME));
2784 DEFVAR_BOOL ("noninteractive", &noninteractive1 /*
2785 Non-nil means XEmacs is running without interactive terminal.
2788 DEFVAR_BOOL ("inhibit-early-packages", &inhibit_early_packages /*
2789 Set to non-nil when the early packages should not be respected at startup.
2792 DEFVAR_BOOL ("inhibit-autoloads", &inhibit_autoloads /*
2793 Set to non-nil when autoloads should not be loaded at startup.
2796 DEFVAR_BOOL ("debug-paths", &debug_paths /*
2797 Set to non-nil when debug information about paths should be printed.
2800 DEFVAR_BOOL ("inhibit-site-lisp", &inhibit_site_lisp /*
2801 Set to non-nil when the site-lisp should not be searched at startup.
2803 #ifdef INHIBIT_SITE_LISP
2804 inhibit_site_lisp = 1;
2807 DEFVAR_INT ("emacs-priority", &emacs_priority /*
2808 Priority for XEmacs to run at.
2809 This value is effective only if set before XEmacs is dumped,
2810 and only if the XEmacs executable is installed with setuid to permit
2811 it to change priority. (XEmacs sets its uid back to the real uid.)
2812 Currently, you need to define SET_EMACS_PRIORITY in `config.h'
2813 before you compile XEmacs, to enable the code for this feature.
2817 DEFVAR_CONST_LISP ("internal-error-checking", &Vinternal_error_checking /*
2818 Internal error checking built-in into this instance of XEmacs.
2819 This is a list of symbols, initialized at build-time. Legal symbols
2822 extents - check extents prior to each extent change;
2823 typecheck - check types strictly, aborting in case of error;
2824 malloc - check operation of malloc;
2825 gc - check garbage collection;
2826 bufpos - check buffer positions.
2828 Vinternal_error_checking = Qnil;
2829 #ifdef ERROR_CHECK_EXTENTS
2830 Vinternal_error_checking = Fcons (intern ("extents"),
2831 Vinternal_error_checking);
2833 #ifdef ERROR_CHECK_TYPECHECK
2834 Vinternal_error_checking = Fcons (intern ("typecheck"),
2835 Vinternal_error_checking);
2837 #ifdef ERROR_CHECK_MALLOC
2838 Vinternal_error_checking = Fcons (intern ("malloc"),
2839 Vinternal_error_checking);
2841 #ifdef ERROR_CHECK_GC
2842 Vinternal_error_checking = Fcons (intern ("gc"),
2843 Vinternal_error_checking);
2845 #ifdef ERROR_CHECK_BUFPOS
2846 Vinternal_error_checking = Fcons (intern ("bufpos"),
2847 Vinternal_error_checking);
2849 Vinternal_error_checking = Fpurecopy (Vinternal_error_checking);
2851 DEFVAR_LISP ("path-separator", &Vpath_separator /*
2852 The directory separator in search paths, as a string.
2856 Vpath_separator = make_string ((Bufbyte *)&c, 1);
2861 complex_vars_of_emacs (void)
2863 /* This is all related to path searching. */
2865 DEFVAR_LISP ("emacs-program-name", &Vemacs_program_name /*
2866 *Name of the Emacs variant.
2867 For example, this may be \"xemacs\" or \"infodock\".
2868 This is mainly meant for use in path searching.
2870 Vemacs_program_name = build_string ((char *) PATH_PROGNAME);
2872 DEFVAR_LISP ("emacs-program-version", &Vemacs_program_version /*
2873 *Version of the Emacs variant.
2874 This typically has the form XX.XX[-bXX].
2875 This is mainly meant for use in path searching.
2877 Vemacs_program_version = build_string ((char *) PATH_VERSION);
2879 DEFVAR_LISP ("exec-path", &Vexec_path /*
2880 *List of directories to search programs to run in subprocesses.
2881 Each element is a string (directory name) or nil (try default directory).
2885 DEFVAR_LISP ("exec-directory", &Vexec_directory /*
2886 *Directory of architecture-dependent files that come with XEmacs,
2887 especially executable programs intended for XEmacs to invoke.
2889 Vexec_directory = Qnil;
2891 DEFVAR_LISP ("configure-exec-directory", &Vconfigure_exec_directory /*
2892 For internal use by the build procedure only.
2893 configure's idea of what EXEC-DIRECTORY will be.
2896 Vconfigure_exec_directory = Ffile_name_as_directory
2897 (build_string ((char *) PATH_EXEC));
2899 Vconfigure_exec_directory = Qnil;
2902 DEFVAR_LISP ("lisp-directory", &Vlisp_directory /*
2903 *Directory of core Lisp files that come with XEmacs.
2905 Vlisp_directory = Qnil;
2907 DEFVAR_LISP ("configure-lisp-directory", &Vconfigure_lisp_directory /*
2908 For internal use by the build procedure only.
2909 configure's idea of what LISP-DIRECTORY will be.
2911 #ifdef PATH_LOADSEARCH
2912 Vconfigure_lisp_directory = Ffile_name_as_directory
2913 (build_string ((char *) PATH_LOADSEARCH));
2915 Vconfigure_lisp_directory = Qnil;
2918 DEFVAR_LISP ("configure-package-path", &Vconfigure_package_path /*
2919 For internal use by the build procedure only.
2920 configure's idea of what the package path will be.
2922 #ifdef PATH_PACKAGEPATH
2923 Vconfigure_package_path = decode_path (PATH_PACKAGEPATH);
2925 Vconfigure_package_path = Qnil;
2928 DEFVAR_LISP ("data-directory", &Vdata_directory /*
2929 *Directory of architecture-independent files that come with XEmacs,
2930 intended for XEmacs to use.
2931 Use of this variable in new code is almost never correct. See the
2932 function `locate-data-directory' and the variable `data-directory-list'.
2934 Vdata_directory = Qnil;
2936 DEFVAR_LISP ("configure-data-directory", &Vconfigure_data_directory /*
2937 For internal use by the build procedure only.
2938 configure's idea of what DATA-DIRECTORY will be.
2941 Vconfigure_data_directory = Ffile_name_as_directory
2942 (build_string ((char *) PATH_DATA));
2944 Vconfigure_data_directory = Qnil;
2947 DEFVAR_LISP ("data-directory-list", &Vdata_directory_list /*
2948 *List of directories of architecture-independent files that come with XEmacs
2949 or were installed as packages, and are intended for XEmacs to use.
2951 Vdata_directory_list = Qnil;
2953 #ifdef CLASH_DETECTION
2954 DEFVAR_LISP ("configure-lock-directory", &Vconfigure_lock_directory /*
2955 For internal use by the build procedure only.
2956 configure's idea of what LOCK-DIRECTORY will be.
2959 Vconfigure_lock_directory = Ffile_name_as_directory
2960 (build_string ((char *) PATH_LOCK));
2962 Vconfigure_lock_directory = Qnil;
2964 #endif /* CLASH_DETECTION */
2966 DEFVAR_LISP ("site-directory", &Vsite_directory /*
2967 *Directory of site-specific Lisp files that come with XEmacs.
2969 Vsite_directory = Qnil;
2971 DEFVAR_LISP ("configure-site-directory", &Vconfigure_site_directory /*
2972 For internal use by the build procedure only.
2973 configure's idea of what SITE-DIRECTORY will be.
2976 Vconfigure_site_directory = Ffile_name_as_directory
2977 (build_string ((char *) PATH_SITE));
2979 Vconfigure_site_directory = Qnil;
2982 DEFVAR_LISP ("doc-directory", &Vdoc_directory /*
2983 *Directory containing the DOC file that comes with XEmacs.
2984 This is usually the same as exec-directory.
2986 Vdoc_directory = Qnil;
2988 DEFVAR_LISP ("configure-doc-directory", &Vconfigure_doc_directory /*
2989 For internal use by the build procedure only.
2990 configure's idea of what DOC-DIRECTORY will be.
2993 Vconfigure_doc_directory = Ffile_name_as_directory
2994 (build_string ((char *) PATH_DOC));
2996 Vconfigure_doc_directory = Qnil;
2999 DEFVAR_LISP ("configure-exec-prefix-directory", &Vconfigure_exec_prefix_directory /*
3000 For internal use by the build procedure only.
3001 configure's idea of what EXEC-PREFIX-DIRECTORY will be.
3003 #ifdef PATH_EXEC_PREFIX
3004 Vconfigure_exec_prefix_directory = Ffile_name_as_directory
3005 (build_string ((char *) PATH_EXEC_PREFIX));
3007 Vconfigure_exec_prefix_directory = Qnil;
3010 DEFVAR_LISP ("configure-prefix-directory", &Vconfigure_prefix_directory /*
3011 For internal use by the build procedure only.
3012 configure's idea of what PREFIX-DIRECTORY will be.
3015 Vconfigure_prefix_directory = Ffile_name_as_directory
3016 (build_string ((char *) PATH_PREFIX));
3018 Vconfigure_prefix_directory = Qnil;
3021 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory /*
3022 For internal use by the build procedure only.
3023 This is the name of the directory in which the build procedure installed
3024 Emacs's info files; the default value for Info-default-directory-list
3028 Vconfigure_info_directory =
3029 Ffile_name_as_directory (build_string (PATH_INFO));
3031 Vconfigure_info_directory = Qnil;
3034 DEFVAR_LISP ("configure-info-path", &Vconfigure_info_path /*
3035 The configured initial path for info documentation.
3037 #ifdef PATH_INFOPATH
3038 Vconfigure_info_path = decode_path (PATH_INFOPATH);
3040 Vconfigure_info_path = Qnil;
3045 /* This is so tremendously ugly I'd puke. But then, it works.
3046 * The target is to override the static constructor from the
3047 * libiflPNG.so library which is maskerading as libz, and
3048 * cores on us when re-started from the dumped executable.
3049 * This will have to go for 21.1 -- OG.
3051 void __sti__iflPNGFile_c___()