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"
42 #include "syssignal.h" /* Always include before systty.h */
64 #if defined (HAVE_LOCALE_H) && \
65 (defined (I18N2) || defined (I18N3) || defined (I18N4))
73 #if defined (WINDOWSNT)
80 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
81 void report_sheap_usage (int die_if_pure_storage_exceeded);
84 #if !defined (SYSTEM_MALLOC) && !defined (DOUG_LEA_MALLOC)
85 extern void *(*__malloc_hook)(size_t);
86 extern void *(*__realloc_hook)(void *, size_t);
87 extern void (*__free_hook)(void *);
88 #endif /* not SYSTEM_MALLOC && not DOUG_LEA_MALLOC */
90 /* Command line args from shell, as list of strings */
91 Lisp_Object Vcommand_line_args;
93 /* Set nonzero after XEmacs has started up the first time.
94 Prevents reinitialization of the Lisp world and keymaps
95 on subsequent starts. */
98 #ifdef DOUG_LEA_MALLOC
100 /* Preserves a pointer to the memory allocated that copies that
101 static data inside glibc's malloc. */
102 static void *malloc_state_ptr;
103 #endif /* DOUG_LEA_MALLOC */
106 void r_alloc_reinit (void);
109 /* Variable whose value is symbol giving operating system type. */
110 Lisp_Object Vsystem_type;
112 /* Variable whose value is string giving configuration built for. */
113 Lisp_Object Vsystem_configuration;
115 /* Variable whose value is string containing the configuration options
116 XEmacs was built with. */
117 Lisp_Object Vsystem_configuration_options;
119 /* Version numbers and strings */
120 Lisp_Object Vemacs_major_version;
121 Lisp_Object Vemacs_minor_version;
122 Lisp_Object Vemacs_patch_level;
123 Lisp_Object Vemacs_beta_version;
124 Lisp_Object Vxemacs_codename;
126 Lisp_Object Vinfodock_major_version;
127 Lisp_Object Vinfodock_minor_version;
128 Lisp_Object Vinfodock_build_version;
131 /* The path under which XEmacs was invoked. */
132 Lisp_Object Vinvocation_path;
134 /* The name under which XEmacs was invoked, with any leading directory
136 Lisp_Object Vinvocation_name;
138 /* The directory name from which XEmacs was invoked. */
139 Lisp_Object Vinvocation_directory;
142 /* The directory name in which to find subdirs such as lisp and etc.
143 nil means get them only from PATH_LOADSEARCH. */
144 Lisp_Object Vinstallation_directory;
147 Lisp_Object Vemacs_program_name, Vemacs_program_version;
148 Lisp_Object Vexec_path;
149 Lisp_Object Vexec_directory, Vconfigure_exec_directory;
150 Lisp_Object Vlisp_directory, Vconfigure_lisp_directory;
151 Lisp_Object Vmodule_directory, Vconfigure_module_directory;
152 Lisp_Object Vsite_module_directory, Vconfigure_site_module_directory;
153 Lisp_Object Vconfigure_package_path;
154 Lisp_Object Vdata_directory, Vconfigure_data_directory;
155 Lisp_Object Vdoc_directory, Vconfigure_doc_directory;
156 Lisp_Object Vconfigure_lock_directory;
157 Lisp_Object Vdata_directory_list;
158 Lisp_Object Vconfigure_info_directory;
159 Lisp_Object Vsite_directory, Vconfigure_site_directory;
160 Lisp_Object Vconfigure_info_path;
161 Lisp_Object Vinternal_error_checking;
162 Lisp_Object Vmail_lock_methods, Vconfigure_mail_lock_method;
163 Lisp_Object Vpath_separator;
165 /* The default base directory XEmacs is installed under. */
166 Lisp_Object Vconfigure_exec_prefix_directory, Vconfigure_prefix_directory;
168 /* If nonzero, set XEmacs to run at this priority. This is also used
169 in child_setup and sys_suspend to make sure subshells run at normal
173 /* If non-zero a filter or a sentinel is running. Tested to save the match
174 data on the first attempt to change it inside asynchronous code. */
175 int running_asynch_code;
177 /* If non-zero, a window-system was specified on the command line. */
180 /* Type of display specified. We cannot use a Lisp symbol here because
181 Lisp symbols may not initialized at the time that we set this
183 const char *display_use;
185 /* If non-zero, then the early error handler will only print the error
187 int suppress_early_error_handler_backtrace;
189 /* An address near the bottom of the stack.
190 Tells GC how to save a copy of the stack. */
193 #ifdef USG_SHARED_LIBRARIES
194 /* If nonzero, this is the place to put the end of the writable segment
197 uintptr_t bss_end = 0;
200 /* Number of bytes of writable memory we can expect to be able to get */
201 unsigned int lim_data;
203 /* Nonzero means running XEmacs without interactive terminal. */
207 /* Value of Lisp variable `noninteractive'.
208 Normally same as C variable `noninteractive'
209 but nothing terrible happens if user sets this one. */
213 /* Nonzero means don't perform site-lisp searches at startup */
214 int inhibit_site_lisp;
216 /* Nonzero means don't perform site-modules searches at startup */
217 int inhibit_site_modules;
219 /* Nonzero means don't respect early packages at startup */
220 int inhibit_early_packages;
222 /* Nonzero means don't load package autoloads at startup */
223 int inhibit_autoloads;
225 /* Nonzero means don't load the dump file (ignored if not PDUMP) */
229 /* Nonzero means print debug information about path searching */
232 /* Save argv and argc. */
233 static char **initial_argv;
234 static int initial_argc;
236 static void sort_args (int argc, char **argv);
238 Lisp_Object Qkill_emacs_hook;
239 Lisp_Object Qsave_buffers_kill_emacs;
241 extern Lisp_Object Vlisp_EXEC_SUFFIXES;
244 /* Signal code for the fatal signal that was received */
245 static int fatal_error_code;
247 /* Nonzero if handling a fatal error already */
248 static int fatal_error_in_progress;
250 static JMP_BUF run_temacs_catch;
252 static int run_temacs_argc;
253 static char **run_temacs_argv;
254 static char *run_temacs_args;
255 static size_t run_temacs_argv_size;
256 static size_t run_temacs_args_size;
258 static void shut_down_emacs (int sig, Lisp_Object stuff);
260 /* Handle bus errors, illegal instruction, etc. */
262 fatal_error_signal (int sig)
264 fatal_error_code = sig;
265 signal (sig, SIG_DFL);
266 /* Unblock the signal so that if the same signal gets sent in the
267 code below, we avoid a deadlock. */
268 EMACS_UNBLOCK_SIGNAL (fatal_error_code);
270 /* If fatal error occurs in code below, avoid infinite recursion. */
271 if (! fatal_error_in_progress)
273 fatal_error_in_progress = dont_check_for_quit = 1;
274 shut_down_emacs (sig, Qnil);
275 stderr_out ("\nLisp backtrace follows:\n\n");
276 Fbacktrace (Qexternal_debugging_output, Qt);
277 # if 0 /* This is evil, rarely useful, and causes grief in some cases. */
278 /* Check for Sun-style stack printing via /proc */
280 const char *pstack = "/usr/proc/bin/pstack";
281 if (access (pstack, X_OK) == 0)
284 stderr_out ("\nC backtrace follows:\n"
285 "(A real debugger may provide better information)\n\n");
286 sprintf (buf, "%s %d >&2", pstack, (int)getpid());
292 /* Signal the same code; this time it will really be fatal. */
293 kill (getpid (), fatal_error_code);
300 /* Handler for SIGDANGER. */
302 memory_warning_signal (int sig)
304 /* #### bad bad bad; this function shouldn't do anything except
305 set a flag, or weird corruption could happen. */
306 signal (sig, memory_warning_signal);
309 (GETTEXT ("Operating system warns that virtual memory is running low.\n"));
311 /* It might be unsafe to call do_auto_save now. */
312 force_auto_save_soon ();
314 #endif /* SIGDANGER */
316 /* Code for dealing with Lisp access to the Unix command line */
319 make_arg_list_1 (int argc, char **argv, int skip_args)
321 Lisp_Object result = Qnil;
324 for (i = argc - 1; i >= 0; i--)
326 if (i == 0 || i > skip_args)
331 /* Do not trust to what crt0 has stuffed into argv[0] */
332 char full_exe_path [MAX_PATH];
333 GetModuleFileName (NULL, full_exe_path, MAX_PATH);
334 result = Fcons (build_ext_string (full_exe_path, Qfile_name),
336 #if defined(HAVE_SHLIB)
337 (void)dll_init(full_exe_path);
342 result = Fcons (build_ext_string (argv [i], Qfile_name),
350 make_arg_list (int argc, char **argv)
352 return make_arg_list_1 (argc, argv, 0);
355 /* Calling functions are also responsible for calling free_argc_argv
356 when they are done with the generated list. */
358 make_argc_argv (Lisp_Object argv_list, int *argc, char ***argv)
361 int n = XINT (Flength (argv_list));
363 *argv = (char**) xmalloc ((n+1) * sizeof (char*));
365 for (i = 0, next = argv_list; i < n; i++, next = XCDR (next))
368 CHECK_STRING (XCAR (next));
370 TO_EXTERNAL_FORMAT (LISP_STRING, XCAR (next),
371 C_STRING_ALLOCA, temp,
373 (*argv) [i] = xstrdup (temp);
380 free_argc_argv (char **argv)
393 init_cmdargs (int argc, char **argv, int skip_args)
398 Vcommand_line_args = make_arg_list_1 (argc, argv, skip_args);
401 DEFUN ("invocation-name", Finvocation_name, 0, 0, 0, /*
402 Return the program name that was used to run XEmacs.
403 Any directory names are omitted.
407 return Fcopy_sequence (Vinvocation_name);
410 DEFUN ("invocation-directory", Finvocation_directory, 0, 0, 0, /*
411 Return the directory name in which the Emacs executable was located.
415 return Fcopy_sequence (Vinvocation_directory);
420 /* #### - don't know why I18N4 on SunOS/JLE
421 can't deal with this. It's a potential
422 bug that needs to be looked at. */
423 # undef RUN_TIME_REMAP
426 #if defined (MULE) && defined (MSDOS) && defined (EMX)
427 /* Setup all of files be input/output'ed with binary translation mode. */
429 asm ("L_setbinmode:");
430 asm (" movl $1, __fmode_bin");
432 asm (" .stabs \"___CTOR_LIST__\", 23, 0, 0, L_setbinmode");
435 /* Test whether the next argument in ARGV matches SSTR or a prefix of
436 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
437 (the argument is supposed to have a value) store in *VALPTR either
438 the next argument or the portion of this one after the equal sign.
439 ARGV is read starting at position *SKIPPTR; this index is advanced
440 by the number of arguments used.
442 Too bad we can't just use getopt for all of this, but we don't have
443 enough information to do it right. */
446 argmatch (char **argv, int argc, char *sstr, char *lstr,
447 int minlen, char **valptr, int *skipptr)
453 /* Don't access argv[argc]; give up in advance. */
454 if (argc <= *skipptr + 1)
457 arg = argv[*skipptr+1];
460 if (strcmp (arg, sstr) == 0)
464 *valptr = argv[*skipptr+2];
471 arglen = (valptr != NULL && (p = strchr (arg, '=')) != NULL
472 ? p - arg : strlen (arg));
473 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
475 else if (valptr == NULL)
486 else if (argv[*skipptr+2] != NULL)
488 *valptr = argv[*skipptr+2];
498 /* Make stack traces always identify version + configuration */
499 #define main_1 STACK_TRACE_EYE_CATCHER
501 /* This function is not static, so that the compiler is less likely to
502 inline it, which would make it not show up in stack traces. */
503 DECLARE_DOESNT_RETURN (main_1 (int, char **, char **, int));
505 main_1 (int argc, char **argv, char **envp, int restart)
507 char stack_bottom_variable;
510 int inhibit_window_system;
512 extern int malloc_cookie;
515 #if (!defined (SYSTEM_MALLOC) && !defined (HAVE_LIBMCHECK) \
516 && !defined (DOUG_LEA_MALLOC))
517 /* Make sure that any libraries we link against haven't installed a
518 hook for a gmalloc of a potentially incompatible version. */
519 /* If we're using libmcheck, the hooks have already been initialized, */
520 /* don't touch them. -slb */
521 __malloc_hook = NULL;
522 __realloc_hook = NULL;
524 #endif /* not SYSTEM_MALLOC or HAVE_LIBMCHECK or DOUG_LEA_MALLOC */
530 * NeXT secret magic, ripped from Emacs-for-NS by Carl Edman
531 * <cedman@princeton.edu>. Note that even Carl doesn't know what this
532 * does; it was provided by NeXT, and it presumable makes NS's mallocator
533 * work with dumping. But malloc_jumpstart() and malloc_freezedry() in
534 * unexnext.c are both completely undocumented, even in NS header files!
535 * But hey, it solves all NS related memory problems, so who's
537 if (initialized && malloc_jumpstart (malloc_cookie) != 0)
538 stderr_out ("malloc jumpstart failed!\n");
542 #if defined (GNU_MALLOC) && \
543 defined (ERROR_CHECK_MALLOC) && \
544 !defined (HAVE_LIBMCHECK)
546 #if defined(LOSING_GCC_DESTRUCTOR_FREE_BUG)
547 /* Prior to XEmacs 21, this was `#if 0'ed out. */
548 /* I'm enabling this because it is the only reliable way I've found to */
549 /* prevent a very annoying problem where GCC will attempt to free(3) */
550 /* memory at exit() and cause a coredump. */
554 sort_args (argc, argv);
556 #if (defined (MSDOS) && defined (EMX)) || defined (WIN32) || defined (_SCO_DS)
560 /* Record (approximately) where the stack begins. */
561 stack_bottom = &stack_bottom_variable;
563 #ifdef USG_SHARED_LIBRARIES
565 brk ((void *) bss_end);
570 #if defined (HAVE_MMAP) && defined (REL_ALLOC)
571 /* ralloc can only be used if using the GNU memory allocator. */
573 #elif defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
581 #endif /* HAVE_SOCKS */
583 #ifndef SYSTEM_MALLOC
585 /* Arrange to get warning messages as memory fills up. */
586 memory_warnings (0, malloc_warning);
587 #endif /* not SYSTEM_MALLOC */
590 /* We do all file input/output as binary files. When we need to translate
591 newlines, we do that manually. */
593 (stdin) ->_flag &= ~_IOTEXT;
594 (stdout)->_flag &= ~_IOTEXT;
595 (stderr)->_flag &= ~_IOTEXT;
598 #ifdef SET_EMACS_PRIORITY
599 if (emacs_priority != 0)
600 nice (-emacs_priority);
602 #endif /* SET_EMACS_PRIORITY */
604 #ifdef EXTRA_INITIALIZE
608 #ifdef HAVE_WINDOW_SYSTEM
609 inhibit_window_system = 0;
611 inhibit_window_system = 1;
614 /* Handle the -sd/--show-dump-id switch, which means show the hex dump_id and quit */
615 if (argmatch (argv, argc, "-sd", "--show-dump-id", 9, NULL, &skip_args))
618 printf ("%08x\n", dump_id);
620 printf ("*ERROR**\n");
625 /* Handle the -t switch, which specifies filename to use as terminal */
628 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
632 if (open (term, O_RDWR | OPEN_BINARY, 2) < 0)
633 fatal ("%s: %s", term, strerror (errno));
636 fatal ("%s: not a tty", term);
639 stderr_out ("Using %s", ttyname (0));
641 stderr_out ("Using %s", term);
642 inhibit_window_system = 1; /* -t => -nw */
646 /* Handle the --no-dump-file/-nd switch, which means don't load the dump file (ignored when not using pdump) */
647 if (argmatch (argv, argc, "-nd", "--no-dump-file", 7, NULL, &skip_args))
652 /* Handle -nw switch */
653 if (argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
654 inhibit_window_system = 1;
656 /* Handle the -batch switch, which means don't do interactive display. */
657 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
659 #if 0 /* I don't think this is correct. */
660 inhibit_autoloads = 1;
665 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
666 11, NULL, &skip_args))
669 /* Partially handle -no-autoloads, -no-early-packages and -vanilla. Packages */
670 /* are searched prior to the rest of the command line being parsed in */
672 if (argmatch (argv, argc, "-no-early-packages", "--no-early-packages",
673 6, NULL, &skip_args))
675 inhibit_early_packages = 1;
679 if (argmatch (argv, argc, "-no-site-modules", "--no-site-modules",
680 9, NULL, &skip_args))
682 inhibit_site_modules = 1;
686 inhibit_site_modules = 1;
688 if (argmatch (argv, argc, "-vanilla", "--vanilla",
689 7, NULL, &skip_args))
691 inhibit_early_packages = 1;
695 if (argmatch (argv, argc, "-no-autoloads", "--no-autoloads",
696 7, NULL, &skip_args))
698 /* Inhibit everything */
699 inhibit_autoloads = 1;
703 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
704 6, NULL, &skip_args))
711 /* Partially handle the -version and -help switches: they imply -batch,
712 but are not removed from the list. */
713 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
714 noninteractive = 1, skip_args--;
716 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args) ||
717 argmatch (argv, argc, "-V", 0, 2, NULL, &skip_args))
718 noninteractive = 1, skip_args--;
720 /* Now, figure out which type of console is our first console. */
725 display_use = "stream";
730 if (inhibit_window_system)
731 fatal ("Sorry, this XEmacs was not compiled with TTY support");
734 #ifdef HAVE_WINDOW_SYSTEM
735 /* Stupid kludge to catch command-line display spec. We can't
736 handle this argument entirely in window-system-dependent code
737 because we don't even know which window-system-dependent code
738 to run until we've recognized this argument. */
739 if (!inhibit_window_system && !noninteractive)
741 #ifdef HAVE_X_WINDOWS
743 int count_before = skip_args;
745 if (argmatch (argv, argc, "-d", "--display", 3, &dpy, &skip_args) ||
746 argmatch (argv, argc, "-display", 0, 3, &dpy, &skip_args))
751 /* If we have the form --display=NAME,
752 convert it into -d name.
753 This requires inserting a new element into argv. */
754 if (dpy != 0 && skip_args - count_before == 1)
756 char **new = (char **) xmalloc (sizeof (char *) * (argc + 2));
759 for (j = 0; j < count_before + 1; j++)
761 new[count_before + 1] = "-d";
762 new[count_before + 2] = dpy;
763 for (j = count_before + 2; j <argc; j++)
764 new[j + 1] = argv[j];
768 /* Change --display to -d, when its arg is separate. */
769 else if (dpy != 0 && skip_args > count_before
770 && argv[count_before + 1][1] == '-')
771 argv[count_before + 1] = "-d";
773 /* Don't actually discard this arg. */
774 skip_args = count_before;
776 /* If there is a non-empty environment var DISPLAY, set
777 `display_use', but not `display_arg', which is only to be set
778 if the display was specified on the command line. */
779 if ((dpy = getenv ("DISPLAY")) && dpy[0])
782 #endif /* HAVE_X_WINDOWS */
783 #ifdef HAVE_MS_WINDOWS
784 if (strcmp(display_use, "x") != 0)
785 display_use = "mswindows";
786 #endif /* HAVE_MS_WINDOWS */
788 #endif /* HAVE_WINDOW_SYSTEM */
790 noninteractive1 = noninteractive;
792 /****** Now initialize everything *******/
794 /* First, do really basic environment initialization -- catching signals
795 and the like. These functions have no dependence on any part of
796 the Lisp engine and need to be done both at dump time and at run time. */
798 init_signals_very_early ();
799 init_data_very_early (); /* Catch math errors. */
800 #ifdef LISP_FLOAT_TYPE
801 init_floatfns_very_early (); /* Catch floating-point math errors. */
803 init_process_times_very_early (); /* Initialize our process timers.
804 As early as possible, of course,
805 so we can be fairly accurate. */
806 init_intl_very_early (); /* set up the locale and domain for gettext and
809 /* Now initialize the Lisp engine and the like. Done only during
810 dumping. No dependence on anything that may be in the user's
811 environment when the dumped XEmacs is run.
813 We try to do things in an order that minimizes the non-obvious
814 dependencies between functions. */
816 /* purify_flag 1 is correct even if CANNOT_DUMP.
817 * loadup.el will set to nil at end. */
823 else if (nodumpfile) {
827 initialized = pdump_load (argv[0]);
829 run_temacs_argc = -1;
840 /* Initialize things so that new Lisp objects
841 can be created and objects can be staticpro'd.
842 Must be basically the very first thing done
843 because pretty much all of the initialization
844 routines below create new objects. */
845 init_alloc_once_early ();
847 /* Initialize Qnil, Qt, Qunbound, and the
848 obarray. After this, symbols can be
849 interned. This depends on init_alloc_once_early(). */
850 init_symbols_once_early ();
852 /* Declare the basic symbols pertaining to errors,
853 So that deferror() can be called. */
854 init_errors_once_early ();
856 /* Make sure that opaque pointers can be created. */
857 init_opaque_once_early ();
859 /* Now declare all the symbols and define all the Lisp primitives.
861 The *only* thing that the syms_of_*() functions are allowed to do
862 is call one of the following three functions:
864 INIT_LRECORD_IMPLEMENTATION()
866 defsubr() (i.e. DEFSUBR)
870 Order does not matter in these functions.
879 syms_of_casefiddle ();
889 #endif /* DEBUG_XEMACS */
900 #ifdef HAVE_X_WINDOWS
903 #ifdef HAVE_DRAGNDROP
906 syms_of_event_stream ();
911 #ifdef CLASH_DETECTION
913 #endif /* CLASH_DETECTION */
916 syms_of_font_lock ();
920 syms_of_glyphs_eimage ();
921 syms_of_glyphs_widget ();
943 #if !defined (NO_SUBPROCESSES)
945 #ifdef HAVE_WIN32_PROCESSES
946 syms_of_process_nt ();
950 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
952 #endif /* HAVE_MMAP && REL_ALLOC */
954 syms_of_redisplay ();
959 syms_of_specifier ();
962 #ifdef HAVE_SCROLLBARS
963 syms_of_scrollbar ();
973 syms_of_console_tty ();
974 syms_of_device_tty ();
975 syms_of_objects_tty ();
978 #ifdef HAVE_X_WINDOWS
979 syms_of_balloon_x ();
986 syms_of_objects_x ();
988 syms_of_menubar_x ();
991 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
996 syms_of_input_method_xlib ();
998 #endif /* HAVE_XIM */
999 #endif /* HAVE_X_WINDOWS */
1001 #ifdef HAVE_MS_WINDOWS
1002 syms_of_console_mswindows ();
1003 syms_of_device_mswindows ();
1004 syms_of_frame_mswindows ();
1005 syms_of_objects_mswindows ();
1006 syms_of_select_mswindows ();
1007 syms_of_glyphs_mswindows ();
1008 syms_of_gui_mswindows ();
1009 #ifdef HAVE_MENUBARS
1010 syms_of_menubar_mswindows ();
1012 #ifdef HAVE_SCROLLBARS
1013 syms_of_scrollbar_mswindows ();
1015 #ifdef HAVE_MSW_C_DIRED
1016 syms_of_dired_mswindows ();
1021 #endif /* HAVE_MS_WINDOWS */
1025 syms_of_mule_ccl ();
1026 syms_of_mule_charset ();
1029 syms_of_file_coding ();
1033 syms_of_mule_wnn ();
1036 syms_of_mule_canna ();
1037 #endif /* HAVE_CANNA */
1049 #if defined (GNU_MALLOC) && \
1050 defined (ERROR_CHECK_MALLOC) && \
1051 !defined (HAVE_LIBMCHECK)
1053 /* Prior to XEmacs 21, this was `#if 0'ed out. -slb */
1054 #if defined (LOSING_GCC_DESTRUCTOR_FREE_BUG)
1055 syms_of_free_hook ();
1059 syms_of_tooltalk ();
1071 syms_of_gpmevent ();
1074 #ifdef HAVE_POSTGRESQL
1075 syms_of_postgresql ();
1078 /* Now create the subtypes for the types that have them.
1079 We do this before the vars_*() because more symbols
1080 may get initialized here. */
1082 /* Now initialize the console types and associated symbols.
1083 Other than the first function below, the functions may
1084 make exactly the following function/macro calls:
1086 INITIALIZE_CONSOLE_TYPE()
1087 CONSOLE_HAS_METHOD()
1089 For any given console type, the former macro must be called
1090 before the any calls to the latter macro. */
1092 console_type_create ();
1094 console_type_create_stream ();
1097 console_type_create_tty ();
1098 console_type_create_device_tty ();
1099 console_type_create_frame_tty ();
1100 console_type_create_objects_tty ();
1101 console_type_create_redisplay_tty ();
1104 #ifdef HAVE_X_WINDOWS
1105 console_type_create_x ();
1106 console_type_create_device_x ();
1107 console_type_create_frame_x ();
1108 console_type_create_glyphs_x ();
1109 console_type_create_select_x ();
1110 #ifdef HAVE_MENUBARS
1111 console_type_create_menubar_x ();
1113 console_type_create_objects_x ();
1114 console_type_create_redisplay_x ();
1115 #ifdef HAVE_SCROLLBARS
1116 console_type_create_scrollbar_x ();
1118 #ifdef HAVE_TOOLBARS
1119 console_type_create_toolbar_x ();
1122 console_type_create_dialog_x ();
1124 #endif /* HAVE_X_WINDOWS */
1126 #ifdef HAVE_MS_WINDOWS
1127 console_type_create_mswindows ();
1128 console_type_create_device_mswindows ();
1129 console_type_create_frame_mswindows ();
1130 console_type_create_objects_mswindows ();
1131 console_type_create_redisplay_mswindows ();
1132 console_type_create_glyphs_mswindows ();
1133 console_type_create_select_mswindows ();
1134 # ifdef HAVE_SCROLLBARS
1135 console_type_create_scrollbar_mswindows ();
1137 #ifdef HAVE_MENUBARS
1138 console_type_create_menubar_mswindows ();
1140 #ifdef HAVE_TOOLBARS
1141 console_type_create_toolbar_mswindows ();
1144 console_type_create_dialog_mswindows ();
1148 /* Now initialize the specifier types and associated symbols.
1149 Other than the first function below, the functions may
1150 make exactly the following function/macro calls:
1152 INITIALIZE_SPECIFIER_TYPE()
1153 SPECIFIER_HAS_METHOD()
1155 For any given specifier type, the former macro must be called
1156 before the any calls to the latter macro. */
1158 specifier_type_create ();
1160 specifier_type_create_image ();
1161 specifier_type_create_gutter ();
1162 specifier_type_create_objects ();
1163 #ifdef HAVE_TOOLBARS
1164 specifier_type_create_toolbar ();
1167 /* Now initialize the structure types and associated symbols.
1168 Other than the first function below, the functions may
1169 make exactly the following function/macro calls:
1171 define_structure_type()
1172 define_structure_type_keyword()
1176 structure_type_create ();
1178 structure_type_create_chartab ();
1179 structure_type_create_faces ();
1180 structure_type_create_rangetab ();
1181 structure_type_create_hash_table ();
1183 /* Now initialize the image instantiator formats and associated symbols.
1184 Other than the first function below, the functions may
1185 make exactly the following function/macro calls:
1187 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT()
1188 IIFORMAT_HAS_METHOD()
1189 IIFORMAT_VALID_KEYWORD()
1191 For any given image instantiator format, the first macro must be
1192 called before the any calls to the other macros. */
1194 image_instantiator_format_create ();
1195 image_instantiator_format_create_glyphs_eimage ();
1196 image_instantiator_format_create_glyphs_widget ();
1198 image_instantiator_format_create_glyphs_tty ();
1200 #ifdef HAVE_X_WINDOWS
1201 image_instantiator_format_create_glyphs_x ();
1202 #endif /* HAVE_X_WINDOWS */
1203 #ifdef HAVE_MS_WINDOWS
1204 image_instantiator_format_create_glyphs_mswindows ();
1205 #endif /* HAVE_MSWINDOWS_WINDOWS */
1207 /* Now initialize the lstream types and associated symbols.
1208 Other than the first function below, the functions may
1209 make exactly the following function/macro calls:
1211 LSTREAM_HAS_METHOD()
1215 lstream_type_create ();
1217 lstream_type_create_file_coding ();
1219 #if defined (HAVE_MS_WINDOWS) && !defined(HAVE_MSG_SELECT)
1220 lstream_type_create_mswindows_selectable ();
1223 /* Initialize processes implementation.
1224 The functions may make exactly the following function/macro calls:
1226 PROCESS_HAS_METHOD()
1228 #ifdef HAVE_UNIX_PROCESSES
1229 process_type_create_unix ();
1231 #ifdef HAVE_WIN32_PROCESSES
1232 process_type_create_nt ();
1235 /* Now initialize most variables.
1237 These functions may do exactly the following:
1250 defsymbol(), if it's absolutely necessary and you're sure that
1251 the symbol isn't referenced anywhere else in the initialization
1253 Fset() on a symbol that is unbound
1254 assigning a symbol or constant value to a variable
1255 using a global variable that has been initialized
1256 earlier on in the same function
1258 Any of the object-creating functions in alloc.c: e.g.
1271 perhaps a few others.
1274 /* Now allow Fprovide() statements to be made. */
1275 init_provide_once ();
1277 /* Do that before any specifier creation (esp. vars_of_glyphs()) */
1278 vars_of_specifier ();
1283 vars_of_bytecode ();
1285 vars_of_callproc ();
1295 vars_of_console_stream ();
1302 #ifdef HAVE_DRAGNDROP
1303 vars_of_dragdrop ();
1310 #ifdef HAVE_X_WINDOWS
1311 vars_of_event_Xt ();
1313 #if defined(HAVE_TTY) && (defined (DEBUG_TTY_EVENT_STREAM) || !defined (HAVE_X_WINDOWS))
1314 vars_of_event_tty ();
1316 #ifdef HAVE_MS_WINDOWS
1317 vars_of_event_mswindows ();
1319 vars_of_event_stream ();
1325 vars_of_floatfns ();
1326 vars_of_font_lock ();
1329 vars_of_glyphs_eimage ();
1330 vars_of_glyphs_widget ();
1338 vars_of_input_method_motif ();
1339 #else /* XIM_XLIB */
1340 vars_of_input_method_xlib ();
1342 #endif /* HAVE_XIM */
1348 #ifdef HAVE_DATABASE
1349 vars_of_database ();
1351 #ifdef HAVE_MENUBARS
1365 #ifndef NO_SUBPROCESSES
1367 #ifdef HAVE_UNIX_PROCESSES
1368 vars_of_process_unix ();
1370 #ifdef HAVE_WIN32_PROCESSES
1371 vars_of_process_nt ();
1376 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
1378 #endif /* HAVE_MMAP && REL_ALLOC */
1379 vars_of_redisplay ();
1380 #ifdef HAVE_SCROLLBARS
1381 vars_of_scrollbar ();
1388 #ifdef HAVE_TOOLBARS
1395 vars_of_console_tty ();
1396 vars_of_frame_tty ();
1397 vars_of_objects_tty ();
1400 #ifdef HAVE_X_WINDOWS
1401 vars_of_balloon_x ();
1402 vars_of_device_x ();
1404 vars_of_dialog_x ();
1407 vars_of_glyphs_x ();
1408 #ifdef HAVE_MENUBARS
1409 vars_of_menubar_x ();
1411 vars_of_objects_x ();
1412 vars_of_select_x ();
1413 #ifdef HAVE_SCROLLBARS
1414 vars_of_scrollbar_x ();
1416 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1419 #endif /* HAVE_X_WINDOWS */
1421 #ifdef HAVE_MS_WINDOWS
1422 vars_of_device_mswindows ();
1423 vars_of_console_mswindows ();
1424 vars_of_frame_mswindows ();
1425 vars_of_objects_mswindows ();
1426 vars_of_select_mswindows ();
1427 vars_of_glyphs_mswindows ();
1428 #ifdef HAVE_SCROLLBARS
1429 vars_of_scrollbar_mswindows ();
1431 #ifdef HAVE_MENUBARS
1432 vars_of_menubar_mswindows ();
1434 #ifdef HAVE_MSW_C_DIRED
1435 vars_of_dired_mswindows ();
1438 vars_of_dialog_mswindows ();
1440 #endif /* HAVE_MS_WINDOWS */
1444 vars_of_mule_ccl ();
1445 vars_of_mule_charset ();
1448 vars_of_file_coding ();
1452 vars_of_mule_wnn ();
1455 vars_of_mule_canna ();
1456 #endif /* HAVE_CANNA */
1460 vars_of_tooltalk ();
1471 #ifdef HAVE_POSTGRESQL
1472 vars_of_postgresql();
1476 vars_of_gpmevent ();
1479 /* Now initialize any specifier variables. We do this later
1480 because it has some dependence on the vars initialized
1483 These functions should *only* initialize specifier variables,
1484 and may make use of the following functions/macros in addition
1485 to the ones listed above:
1489 set_specifier_fallback()
1490 set_specifier_caching()
1493 specifier_vars_of_glyphs ();
1494 specifier_vars_of_gutter ();
1495 #ifdef HAVE_MENUBARS
1496 specifier_vars_of_menubar ();
1498 specifier_vars_of_redisplay ();
1499 #ifdef HAVE_SCROLLBARS
1500 specifier_vars_of_scrollbar ();
1502 #ifdef HAVE_TOOLBARS
1503 specifier_vars_of_toolbar ();
1505 specifier_vars_of_window ();
1507 /* Now comes all the rest of the variables that couldn't
1508 be handled above. There may be dependencies on variables
1509 initialized above, and dependencies between one complex_vars_()
1510 function and another. */
1512 /* Calls Fmake_range_table(). */
1513 complex_vars_of_regex ();
1514 /* Calls Fmake_range_table(). */
1515 complex_vars_of_search ();
1517 /* Calls make_lisp_hash_table(). */
1518 complex_vars_of_extents ();
1520 /* Depends on hash tables and specifiers. */
1521 complex_vars_of_faces ();
1524 /* These two depend on hash tables and various variables declared
1525 earlier. The second may also depend on the first. */
1526 complex_vars_of_mule_charset ();
1529 complex_vars_of_file_coding ();
1532 /* This calls allocate_glyph(), which creates specifiers
1533 and also relies on a variable (Vthe_nothing_vector) initialized
1534 above. It also calls make_ext_string(), which under Mule
1535 could require that the charsets be initialized. */
1536 complex_vars_of_glyphs ();
1538 /* These rely on the glyphs just created in the previous function,
1539 and call Fadd_spec_to_specifier(), which relies on various
1540 variables initialized above. */
1541 #ifdef HAVE_X_WINDOWS
1542 complex_vars_of_glyphs_x ();
1544 #ifdef HAVE_MS_WINDOWS
1545 complex_vars_of_glyphs_mswindows ();
1548 /* This calls Fmake_glyph_internal(). */
1549 complex_vars_of_alloc ();
1551 /* This calls Fmake_glyph_internal(). */
1552 #ifdef HAVE_MENUBARS
1553 complex_vars_of_menubar ();
1556 /* This calls Fmake_glyph_internal(). */
1557 #ifdef HAVE_SCROLLBARS
1558 complex_vars_of_scrollbar ();
1561 /* This calls allocate_glyph(). */
1562 complex_vars_of_frame ();
1564 /* This calls Fcopy_category_table() under Mule, which calls who
1566 complex_vars_of_chartab ();
1568 /* This calls set_string_char(), which (under Mule) depends on the
1569 charsets being initialized. */
1570 complex_vars_of_casetab ();
1572 /* This calls Fcopy_syntax_table(), which relies on char tables. */
1573 complex_vars_of_syntax ();
1575 /* This initializes buffer-local variables, sets things up so
1576 that buffers can be created, and creates a couple of basic
1577 buffers. This depends on Vstandard_syntax_table and
1578 Vstandard_category_table (initialized in the previous
1579 functions), as well as a whole horde of variables that may
1580 have been initialized above. */
1581 complex_vars_of_buffer ();
1583 /* This initializes console-local variables. */
1584 complex_vars_of_console ();
1586 /* This creates a couple more buffers, and depends on the
1587 previous function. */
1588 complex_vars_of_minibuf ();
1590 /* These two might call Ffile_name_as_directory(), which
1591 might depend on all sorts of things; I'm not sure. */
1592 complex_vars_of_emacs ();
1594 /* This creates a couple of basic keymaps and depends on Lisp
1595 hash tables and Ffset() (both of which depend on some variables
1596 initialized in the vars_of_*() section) and possibly other
1598 complex_vars_of_keymap ();
1600 /* Calls make_lisp_hash_table() and creates a keymap */
1601 complex_vars_of_event_stream ();
1603 #ifdef ERROR_CHECK_GC
1605 extern int always_gc;
1606 if (always_gc) /* purification debugging hack */
1607 garbage_collect_1 ();
1611 } else if (!restart) {
1612 reinit_alloc_once_early ();
1613 reinit_symbols_once_early ();
1614 reinit_opaque_once_early ();
1616 reinit_console_type_create_stream ();
1618 reinit_console_type_create_tty ();
1620 #ifdef HAVE_X_WINDOWS
1621 reinit_console_type_create_x ();
1622 reinit_console_type_create_device_x ();
1624 #ifdef HAVE_MS_WINDOWS
1625 reinit_console_type_create_mswindows ();
1628 reinit_specifier_type_create ();
1629 reinit_specifier_type_create_image ();
1630 reinit_specifier_type_create_gutter ();
1631 reinit_specifier_type_create_objects ();
1632 #ifdef HAVE_TOOLBARS
1633 reinit_specifier_type_create_toolbar ();
1636 structure_type_create ();
1638 structure_type_create_chartab ();
1639 structure_type_create_faces ();
1640 structure_type_create_rangetab ();
1641 structure_type_create_hash_table ();
1643 lstream_type_create ();
1645 lstream_type_create_file_coding ();
1647 #if defined (HAVE_MS_WINDOWS) && !defined(HAVE_MSG_SELECT)
1648 lstream_type_create_mswindows_selectable ();
1650 #ifdef HAVE_UNIX_PROCESSES
1651 process_type_create_unix ();
1653 #ifdef HAVE_WIN32_PROCESSES
1654 process_type_create_nt ();
1657 reinit_vars_of_buffer ();
1658 reinit_vars_of_console ();
1660 reinit_vars_of_debug ();
1662 reinit_vars_of_device ();
1663 reinit_vars_of_eval ();
1664 #ifdef HAVE_X_WINDOWS
1665 reinit_vars_of_event_Xt ();
1667 #if defined(HAVE_TTY) && (defined (DEBUG_TTY_EVENT_STREAM) || !defined (HAVE_X_WINDOWS))
1668 reinit_vars_of_event_tty ();
1670 #ifdef HAVE_MS_WINDOWS
1671 reinit_vars_of_event_mswindows ();
1673 reinit_vars_of_event_stream ();
1674 reinit_vars_of_events ();
1675 reinit_vars_of_extents ();
1676 reinit_vars_of_fileio ();
1677 reinit_vars_of_font_lock ();
1678 reinit_vars_of_glyphs ();
1679 reinit_vars_of_glyphs_widget ();
1680 reinit_vars_of_insdel ();
1681 reinit_vars_of_lread ();
1682 reinit_vars_of_lstream ();
1683 reinit_vars_of_minibuf ();
1685 reinit_vars_of_module ();
1687 reinit_vars_of_objects ();
1688 reinit_vars_of_print ();
1689 reinit_vars_of_redisplay ();
1690 reinit_vars_of_search ();
1691 reinit_vars_of_undo ();
1692 reinit_vars_of_window ();
1694 #ifdef HAVE_MS_WINDOWS
1695 reinit_vars_of_frame_mswindows ();
1698 #ifdef HAVE_X_WINDOWS
1699 reinit_vars_of_device_x ();
1700 #ifdef HAVE_SCROLLBARS
1701 reinit_vars_of_scrollbar_x ();
1703 #ifdef HAVE_MENUBARS
1704 reinit_vars_of_menubar_x ();
1706 reinit_vars_of_select_x ();
1707 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1708 reinit_vars_of_gui_x ();
1710 #endif /* HAVE_X_WINDOWS */
1712 #if defined(MULE) && defined(HAVE_WNN)
1713 reinit_vars_of_mule_wnn ();
1716 reinit_complex_vars_of_buffer ();
1717 reinit_complex_vars_of_console ();
1718 reinit_complex_vars_of_minibuf ();
1723 /* CONGRATULATIONS!!! We have successfully initialized the Lisp
1728 /* Stuff that needs to be reset at run time. Order below should
1733 reinit_mule_category ();
1737 /* Now do further initialization/setup of stuff that is not needed by the
1738 syms_of_() routines. This involves stuff that only is enabled in
1739 an interactive run (redisplay, user input, etc.) and stuff that is
1740 not needed until we start loading Lisp code (the reader). A lot
1741 of this stuff involves querying the current environment and needs
1742 to be done both at dump time and at run time. */
1744 init_initial_directory(); /* get the directory to use for the
1745 "*scratch*" buffer, etc. */
1749 * For Win32, call init_environment() now, so that environment/registry
1750 * variables will be properly entered into Vprocess_environment.
1755 init_callproc (); /* Set up the process environment (so that egetenv
1756 works), the basic directory variables
1757 (exec-directory and so on), and stuff
1758 related to subprocesses. This should be
1759 first because many of the functions below
1760 call egetenv() to get environment variables. */
1761 init_lread (); /* Set up the Lisp reader. */
1763 /* Call early 'cause init_environment needs it. */
1765 /* Set defaults for several environment variables. */
1766 init_environment (argc, argv, skip_args);
1768 init_cmdargs (argc, argv, skip_args); /* Create list Vcommand_line_args */
1769 init_buffer (); /* Set default directory of *scratch* buffer */
1775 init_redisplay (); /* Determine terminal type.
1776 init_sys_modes uses results */
1778 init_event_stream (); /* Set up so we can get user input. */
1779 init_macros (); /* set up so we can run macros. */
1780 init_editfns (); /* Determine the name of the user we're running as */
1781 init_xemacs_process (); /* set up for calling subprocesses */
1783 init_sunpro (); /* Set up Sunpro usage tracking */
1785 #if defined (HAVE_NATIVE_SOUND) && defined (hp9000s800)
1791 init_console_stream (restart); /* Create the first console */
1793 /* try to get the actual pathname of the exec file we are running */
1796 Vinvocation_name = Fcar (Vcommand_line_args);
1797 if (XSTRING_DATA(Vinvocation_name)[0] == '-')
1799 /* XEmacs as a login shell, oh goody! */
1800 Vinvocation_name = build_string(getenv("SHELL"));
1802 Vinvocation_directory = Vinvocation_name;
1804 if (!NILP (Ffile_name_directory (Vinvocation_name)))
1806 /* invocation-name includes a directory component -- presumably it
1807 is relative to cwd, not $PATH */
1808 Vinvocation_directory = Fexpand_file_name (Vinvocation_name,
1810 Vinvocation_path = Qnil;
1814 Vinvocation_path = decode_env_path ("PATH", NULL);
1815 locate_file (Vinvocation_path, Vinvocation_name,
1816 Vlisp_EXEC_SUFFIXES,
1817 &Vinvocation_directory, X_OK);
1820 if (NILP (Vinvocation_directory))
1821 Vinvocation_directory = Vinvocation_name;
1823 Vinvocation_name = Ffile_name_nondirectory (Vinvocation_directory);
1824 Vinvocation_directory = Ffile_name_directory (Vinvocation_directory);
1827 #if defined(HAVE_SHLIB) && !defined(WINDOWSNT)
1828 /* This is Unix only. MS Windows NT has a library call that does
1829 The Right Thing on that system. Rumor has it, this must be
1830 called for GNU dld in temacs and xemacs. */
1832 char *buf = (char *)alloca (XSTRING_LENGTH (Vinvocation_directory)
1833 + XSTRING_LENGTH (Vinvocation_name)
1835 sprintf (buf, "%s/%s", XSTRING_DATA (Vinvocation_directory),
1836 XSTRING_DATA (Vinvocation_name));
1838 /* All we can do is cry if an error happens, so ignore it. */
1839 (void) dll_init (buf);
1843 #if defined (LOCALTIME_CACHE) && defined (HAVE_TZSET)
1844 /* sun's localtime() has a bug. it caches the value of the time
1845 zone rather than looking it up every time. Since localtime() is
1846 called to bolt the undumping time into the undumped emacs, this
1847 results in localtime() ignoring the TZ environment variable.
1848 This flushes the new TZ value into localtime(). */
1850 #endif /* LOCALTIME_CACHE and TZSET */
1855 /* Handle -l loadup-and-dump, args passed by Makefile. */
1856 if (argc > 2 + skip_args && !strcmp (argv[1 + skip_args], "-l"))
1857 load_me = build_string (argv[2 + skip_args]);
1858 #if 0 /* CANNOT_DUMP - this can never be right in XEmacs --andyp */
1859 /* Unless next switch is -nl, load "loadup.el" first thing. */
1860 if (!(argc > 1 + skip_args && !strcmp (argv[1 + skip_args], "-nl")))
1861 load_me = build_string ("loadup.el");
1862 #endif /* CANNOT_DUMP */
1867 quantify_start_recording_data ();
1868 #endif /* QUANTIFY */
1872 /* This never returns. */
1873 initial_command_loop (load_me);
1878 /* Sort the args so we can find the most important ones
1879 at the beginning of argv. */
1881 /* First, here's a table of all the standard options. */
1883 struct standard_args
1886 const char *longname;
1891 static const struct standard_args standard_args[] =
1893 /* Handled by main_1 above: */
1894 { "-sd", "--show-dump-id", 105, 0 },
1895 { "-t", "--terminal", 100, 1 },
1896 { "-nd", "--no-dump-file", 95, 0 },
1897 { "-nw", "--no-windows", 90, 0 },
1898 { "-batch", "--batch", 85, 0 },
1899 { "-debug-paths", "--debug-paths", 82, 0 },
1900 { "-help", "--help", 80, 0 },
1901 { "-version", "--version", 75, 0 },
1903 { "-d", "--display", 80, 1 },
1904 { "-display", 0, 80, 1 },
1905 { "-NXHost", 0, 79, 0 },
1906 { "-MachLaunch", 0, 79, 0},
1908 /* Handled by command-line-early in startup.el: */
1909 { "-q", "--no-init-file", 50, 0 },
1910 { "-unmapped", 0, 50, 0 },
1911 { "-no-init-file", 0, 50, 0 },
1912 { "-vanilla", "--vanilla", 50, 0 },
1913 { "-no-autoloads", "--no-autoloads", 50, 0 },
1914 { "-no-site-file", "--no-site-file", 40, 0 },
1915 { "-no-early-packages", "--no-early-packages", 35, 0 },
1916 { "-u", "--user", 30, 1 },
1917 { "-user", 0, 30, 1 },
1918 { "-debug-init", "--debug-init", 20, 0 },
1919 { "-debug-paths", "--debug-paths", 20, 0 },
1922 { "-i", "--icon-type", 15, 0 },
1923 { "-itype", 0, 15, 0 },
1924 { "-iconic", "--iconic", 15, 0 },
1925 { "-bg", "--background-color", 10, 1 },
1926 { "-background", 0, 10, 1 },
1927 { "-fg", "--foreground-color", 10, 1 },
1928 { "-foreground", 0, 10, 1 },
1929 { "-bd", "--border-color", 10, 1 },
1930 { "-bw", "--border-width", 10, 1 },
1931 { "-ib", "--internal-border", 10, 1 },
1932 { "-ms", "--mouse-color", 10, 1 },
1933 { "-cr", "--cursor-color", 10, 1 },
1934 { "-fn", "--font", 10, 1 },
1935 { "-font", 0, 10, 1 },
1936 { "-g", "--geometry", 10, 1 },
1937 { "-geometry", 0, 10, 1 },
1938 { "-T", "--title", 10, 1 },
1939 { "-title", 0, 10, 1 },
1940 { "-name", "--name", 10, 1 },
1941 { "-xrm", "--xrm", 10, 1 },
1942 { "-r", "--reverse-video", 5, 0 },
1944 { "-reverse", 0, 5, 0 },
1945 { "-hb", "--horizontal-scroll-bars", 5, 0 },
1946 { "-vb", "--vertical-scroll-bars", 5, 0 },
1948 /* These have the same priority as ordinary file name args,
1949 so they are not reordered with respect to those. */
1950 { "-L", "--directory", 0, 1 },
1951 { "-directory", 0, 0, 1 },
1952 { "-l", "--load", 0, 1 },
1953 { "-load", 0, 0, 1 },
1954 { "-f", "--funcall", 0, 1 },
1955 { "-funcall", 0, 0, 1 },
1956 { "-eval", "--eval", 0, 1 },
1957 { "-insert", "--insert", 0, 1 },
1958 /* This should be processed after ordinary file name args and the like. */
1959 { "-kill", "--kill", -10, 0 },
1962 /* Reorder the elements of ARGV (assumed to have ARGC elements)
1963 so that the highest priority ones come first.
1964 Do not change the order of elements of equal priority.
1965 If an option takes an argument, keep it and its argument together. */
1968 sort_args (int argc, char **argv)
1970 char **new_argv = xnew_array (char *, argc);
1971 /* For each element of argv,
1972 the corresponding element of options is:
1973 0 for an option that takes no arguments,
1974 1 for an option that takes one argument, etc.
1975 -1 for an ordinary non-option argument. */
1976 int *options = xnew_array (int, argc);
1977 int *priority = xnew_array (int, argc);
1981 int end_of_options_p = 0;
1983 /* Categorize all the options,
1984 and figure out which argv elts are option arguments. */
1985 for (from = 1; from < argc; from++)
1989 /* Pseudo options "--" and "run-temacs" indicate end of options */
1990 if (!strcmp (argv[from], "--") ||
1991 !strcmp (argv[from], "run-temacs"))
1992 end_of_options_p = 1;
1993 if (!end_of_options_p && argv[from][0] == '-')
1998 /* Look for a match with a known old-fashioned option. */
1999 for (i = 0; i < countof (standard_args); i++)
2000 if (!strcmp (argv[from], standard_args[i].name))
2002 options[from] = standard_args[i].nargs;
2003 priority[from] = standard_args[i].priority;
2004 if (from + standard_args[i].nargs >= argc)
2005 fatal ("Option `%s' requires an argument\n", argv[from]);
2006 from += standard_args[i].nargs;
2010 /* Look for a match with a known long option.
2011 MATCH is -1 if no match so far, -2 if two or more matches so far,
2012 >= 0 (the table index of the match) if just one match so far. */
2013 if (argv[from][1] == '-')
2016 thislen = strlen (argv[from]);
2017 equals = strchr (argv[from], '=');
2019 thislen = equals - argv[from];
2021 for (i = 0; i < countof (standard_args); i++)
2022 if (standard_args[i].longname
2023 && !strncmp (argv[from], standard_args[i].longname,
2032 /* If we found exactly one match, use that. */
2035 options[from] = standard_args[match].nargs;
2036 priority[from] = standard_args[match].priority;
2037 /* If --OPTION=VALUE syntax is used,
2038 this option uses just one argv element. */
2041 if (from + options[from] >= argc)
2042 fatal ("Option `%s' requires an argument\n", argv[from]);
2043 from += options[from];
2050 /* Copy the arguments, in order of decreasing priority, to NEW_ARGV. */
2051 new_argv[0] = argv[0];
2055 int best_priority = -9999;
2057 /* Find the highest priority remaining option.
2058 If several have equal priority, take the first of them. */
2059 for (from = 1; from < argc; from++)
2061 if (argv[from] != 0 && priority[from] > best_priority)
2063 best_priority = priority[from];
2066 /* Skip option arguments--they are tied to the options. */
2067 if (options[from] > 0)
2068 from += options[from];
2074 /* Copy the highest priority remaining option, with its args, to NEW_ARGV. */
2075 new_argv[to++] = argv[best];
2076 for (i = 0; i < options[best]; i++)
2077 new_argv[to++] = argv[best + i + 1];
2079 /* Clear out this option in ARGV. */
2081 for (i = 0; i < options[best]; i++)
2082 argv[best + i + 1] = 0;
2085 memcpy (argv, new_argv, sizeof (char *) * argc);
2091 DEFUN ("running-temacs-p", Frunning_temacs_p, 0, 0, 0, /*
2092 True if running temacs. This means we are in the dumping stage.
2093 This is false during normal execution of the `xemacs' program, and
2094 becomes false once `run-emacs-from-temacs' is run.
2098 return run_temacs_argc >= 0 ? Qt : Qnil;
2101 DEFUN ("run-emacs-from-temacs", Frun_emacs_from_temacs, 0, MANY, 0, /*
2102 Do not call this. It will reinitialize your XEmacs. You'll be sorry.
2104 /* If this function is called from startup.el, it will be possible to run
2105 temacs as an editor using 'temacs -batch -l loadup.el run-temacs', instead
2106 of having to dump an emacs and then run that (when debugging emacs itself,
2107 this can be much faster)). [Actually, the speed difference isn't that
2108 much as long as your filesystem is local, and you don't end up with
2109 a dumped version in case you want to rerun it. This function is most
2110 useful when used as part of the `make all-elc' command. --ben]
2111 This will "restart" emacs with the specified command-line arguments.
2113 Martin thinks this function is most useful when using debugging
2114 tools like Purify or tcov that get confused by XEmacs' dumping. */
2115 (int nargs, Lisp_Object *args))
2118 const Extbyte *wampum;
2121 Lisp_Object orig_invoc_name = Fcar (Vcommand_line_args);
2122 const Extbyte **wampum_all = alloca_array (const Extbyte *, nargs);
2123 int *wampum_all_len = alloca_array (int, nargs);
2125 assert (!gc_in_progress);
2127 if (run_temacs_argc < 0)
2128 error ("I've lost my temacs-hood.");
2130 /* Need to convert the orig_invoc_name and all of the arguments
2131 to external format. */
2133 TO_EXTERNAL_FORMAT (LISP_STRING, orig_invoc_name,
2134 ALLOCA, (wampum, namesize),
2138 for (ac = 0, total_len = namesize; ac < nargs; ac++)
2140 CHECK_STRING (args[ac]);
2141 TO_EXTERNAL_FORMAT (LISP_STRING, args[ac],
2142 ALLOCA, (wampum_all[ac], wampum_all_len[ac]),
2144 wampum_all_len[ac]++;
2145 total_len += wampum_all_len[ac];
2147 DO_REALLOC (run_temacs_args, run_temacs_args_size, total_len, char);
2148 DO_REALLOC (run_temacs_argv, run_temacs_argv_size, nargs+2, char *);
2150 memcpy (run_temacs_args, wampum, namesize);
2151 run_temacs_argv [0] = run_temacs_args;
2152 for (ac = 0; ac < nargs; ac++)
2154 memcpy (run_temacs_args + namesize,
2155 wampum_all[ac], wampum_all_len[ac]);
2156 run_temacs_argv [ac + 1] = run_temacs_args + namesize;
2157 namesize += wampum_all_len[ac];
2159 run_temacs_argv [nargs + 1] = 0;
2160 catchlist = NULL; /* Important! Otherwise free_cons() calls in
2161 condition_case_unwind() may lead to GC death. */
2162 unbind_to (0, Qnil); /* this closes loadup.el */
2164 run_temacs_argc = nargs + 1;
2165 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
2166 report_sheap_usage (0);
2168 LONGJMP (run_temacs_catch, 1);
2169 return Qnil; /* not reached; warning suppression */
2174 main (int argc, char **argv, char **envp)
2176 int volatile vol_argc = argc;
2177 char ** volatile vol_argv = argv;
2178 char ** volatile vol_envp = envp;
2179 /* This is hairy. We need to compute where the XEmacs binary was invoked
2180 from because temacs initialization requires it to find the lisp
2181 directories. The code that recomputes the path is guarded by the
2182 restarted flag. There are three possible paths I've found so far
2185 temacs -- When running temacs for basic build stuff, the first main_1
2186 will be the only one invoked. It must compute the path else there
2187 will be a very ugly bomb in startup.el (can't find obvious location
2188 for doc-directory data-directory, etc.).
2190 temacs w/ run-temacs on the command line -- This is run to bytecompile
2191 all the out of date dumped lisp. It will execute both of the main_1
2192 calls and the second one must not touch the first computation because
2193 argc/argv are hosed the second time through.
2195 xemacs -- Only the second main_1 is executed. The invocation path must
2196 computed but this only matters when running in place or when running
2199 As a bonus for straightening this out, XEmacs can now be run in place
2200 as a login shell. This never used to work.
2202 As another bonus, we can now guarantee that
2203 (concat invocation-directory invocation-name) contains the filename
2204 of the XEmacs binary we are running. This can now be used in a
2205 definite test for out of date dumped files. -slb */
2208 quantify_stop_recording_data ();
2209 quantify_clear_data ();
2210 #endif /* QUANTIFY */
2212 suppress_early_error_handler_backtrace = 0;
2213 lim_data = 0; /* force reinitialization of this variable */
2215 /* Lisp_Object must fit in a word; check VALBITS and GCTYPEBITS */
2216 assert (sizeof (Lisp_Object) == sizeof (void *));
2218 #ifdef LINUX_SBRK_BUG
2224 #ifdef DOUG_LEA_MALLOC
2225 mallopt (M_MMAP_MAX, 0);
2227 run_temacs_argc = 0;
2228 if (! SETJMP (run_temacs_catch))
2230 main_1 (vol_argc, vol_argv, vol_envp, 0);
2232 /* run-emacs-from-temacs called */
2234 vol_argc = run_temacs_argc;
2235 vol_argv = run_temacs_argv;
2237 /* This makes absolutely no sense to anyone involved. There are
2238 several people using this stuff. We've compared versions on
2239 everything we can think of. We can find no difference.
2240 However, on both my systems environ is a plain old global
2241 variable initialized to zero. _environ is the one that
2242 contains pointers to the actual environment.
2244 Since we can't figure out the difference (and we're hours
2245 away from a release), this takes a very cowardly approach and
2246 is bracketed with both a system specific preprocessor test
2247 and a runtime "do you have this problem" test
2249 06/20/96 robertl@dgii.com */
2251 extern char *_environ;
2252 if ((unsigned) environ == 0)
2255 #endif /* _SCO_DS */
2258 #ifdef RUN_TIME_REMAP
2260 /* obviously no-one uses this because where it was before initialized was
2262 run_time_remap (argv[0]);
2265 #ifdef DOUG_LEA_MALLOC
2266 if (initialized && (malloc_state_ptr != NULL))
2268 int rc = malloc_set_state (malloc_state_ptr);
2271 stderr_out ("malloc_set_state failed, rc = %d\n", rc);
2275 free (malloc_state_ptr);
2277 /* mmap works in glibc-2.1, glibc-2.0 (Non-Mule only) and Linux libc5 */
2278 #if (defined(__GLIBC__) && __GLIBC_MINOR__ >= 1) || \
2279 defined(_NO_MALLOC_WARNING_) || \
2280 (defined(__GLIBC__) && __GLIBC_MINOR__ < 1 && !defined(MULE)) || \
2281 defined(DEBUG_DOUG_LEA_MALLOC)
2282 mallopt (M_MMAP_MAX, 64);
2288 #endif /* DOUG_LEA_MALLOC */
2290 run_temacs_argc = -1;
2292 main_1 (vol_argc, vol_argv, vol_envp, restarted);
2293 return 0; /* unreached */
2297 /* Dumping apparently isn't supported by versions of GCC >= 2.8. */
2298 /* The following needs conditionalization on whether either XEmacs or */
2299 /* various system shared libraries have been built and linked with */
2300 /* GCC >= 2.8. -slb */
2301 #if defined(GNU_MALLOC)
2303 voodoo_free_hook (void *mem)
2305 /* Disable all calls to free() when XEmacs is exiting and it doesn't */
2308 #ifdef __GNUC__ /* prototype of __free_hook varies with glibc version */
2309 (__typeof__ (__free_hook))
2313 #endif /* GNU_MALLOC */
2315 DEFUN ("kill-emacs", Fkill_emacs, 0, 1, "P", /*
2316 Exit the XEmacs job and kill it. Ask for confirmation, without argument.
2317 If ARG is an integer, return ARG as the exit program code.
2318 If ARG is a string, stuff it as keyboard input.
2320 The value of `kill-emacs-hook', if not void,
2321 is a list of functions (of no args),
2322 all of which are called before XEmacs is actually killed.
2326 /* This function can GC */
2327 struct gcpro gcpro1;
2334 if (!preparing_for_armageddon && !noninteractive)
2335 run_hook (Qkill_emacs_hook);
2337 /* make sure no quitting from now on!! */
2338 dont_check_for_quit = 1;
2341 if (!preparing_for_armageddon)
2343 Lisp_Object concons, nextcons;
2345 /* Normally, go ahead and delete all the consoles now.
2346 Some unmentionably lame window systems (MS Wwwww...... eek,
2347 I can't even say it) don't properly clean up after themselves,
2348 and even for those that do, it might be cleaner this way.
2349 If we're going down, however, we don't do this (might
2350 be too dangerous), and if we get a crash somewhere within
2351 this loop, we'll still autosave and won't try this again. */
2353 LIST_LOOP_DELETING(concons, nextcons, Vconsole_list)
2355 /* There is very little point in deleting the stream console.
2356 It uses stdio, which should flush any buffered output and
2357 something can only go wrong. -slb */
2358 /* I changed my mind. There's a stupid hack in close to add
2359 a trailing newline. */
2360 /*if (!CONSOLE_STREAM_P (XCONSOLE (XCAR (concons))))*/
2361 delete_console_internal (XCONSOLE (XCAR (concons)), 1, 1, 0);
2367 shut_down_emacs (0, STRINGP (arg) ? arg : Qnil);
2369 #if defined(GNU_MALLOC)
2371 #ifdef __GNUC__ /* prototype of __free_hook varies with glibc version */
2372 (__typeof__ (__free_hook))
2377 exit (INTP (arg) ? XINT (arg) : 0);
2379 return Qnil; /* I'm sick of the compiler warning */
2382 /* Perform an orderly shutdown of XEmacs. Autosave any modified
2383 buffers, kill any child processes, clean up the terminal modes (if
2384 we're in the foreground), and other stuff like that. Don't perform
2385 any redisplay; this may be called when XEmacs is shutting down in
2386 the background, or after its X connection has died.
2388 If SIG is a signal number, print a message for it.
2390 This is called by fatal signal handlers, X protocol error handlers,
2393 shut_down_emacs (int sig, Lisp_Object stuff)
2395 /* This function can GC */
2396 /* Prevent running of hooks and other non-essential stuff
2398 preparing_for_armageddon = 1;
2400 /* In case frames or windows are screwed up, avoid assertion
2405 quantify_stop_recording_data ();
2406 #endif /* QUANTIFY */
2409 /* This is absolutely the most important thing to do, so make sure
2410 we do it now, before anything else. We might have crashed and
2411 be in a weird inconsistent state, and potentially anything could
2412 set off another protection fault and cause us to bail out
2414 /* I'm not removing the code entirely, yet. We have run up against
2415 a spate of problems in diagnosing crashes due to crashes within
2416 crashes. It has very definitely been determined that code called
2417 during auto-saving cannot work if XEmacs crashed inside of GC.
2418 We already auto-save on an itimer so there cannot be too much
2419 unsaved stuff around, and if we get better crash reports we might
2420 be able to get more problems fixed so I'm disabling this. -slb */
2421 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
2425 reset_all_consoles ();
2426 if (sig && sig != SIGTERM)
2428 stderr_out ("\nFatal error (%d).\n", sig);
2430 ("Your files have been auto-saved.\n"
2431 "Use `M-x recover-session' to recover them.\n"
2433 "If you have access to the PROBLEMS file that came with your\n"
2434 "version of XEmacs, please check to see if your crash is described\n"
2435 "there, as there may be a workaround available.\n"
2437 "Otherwise, please report this bug by selecting `Report-Bug'\n"
2438 "in the InfoDock menu.\n"
2440 "Otherwise, please report this bug by running the send-pr\n"
2441 "script included with XEmacs, or selecting `Send Bug Report'\n"
2442 "from the help menu.\n"
2443 "As a last resort send ordinary email to `crashes@xemacs.org'.\n"
2445 "*MAKE SURE* to include the information in the command\n"
2446 "M-x describe-installation.\n"
2448 "If at all possible, *please* try to obtain a C stack backtrace;\n"
2449 "it will help us immensely in determining what went wrong.\n"
2450 "To do this, locate the core file that was produced as a result\n"
2451 "of this crash (it's usually called `core' and is located in the\n"
2452 "directory in which you started the editor, or maybe in your home\n"
2453 "directory), and type\n"
2460 /* Now try to determine the actual path to the executable,
2461 to try to make the backtrace-determination process as foolproof
2463 if (STRINGP (Vinvocation_name))
2464 name = (char *) XSTRING_DATA (Vinvocation_name);
2467 if (STRINGP (Vinvocation_directory))
2468 dir = (char *) XSTRING_DATA (Vinvocation_directory);
2469 if (!dir || dir[0] != '/')
2470 stderr_out ("`which %s`", name);
2471 else if (dir[strlen (dir) - 1] != '/')
2472 stderr_out ("%s/%s", dir, name);
2474 stderr_out ("%s%s", dir, name);
2478 "then type `where' when the debugger prompt comes up.\n"
2479 "(If you don't have GDB on your system, you might have DBX,\n"
2480 "or XDB, or SDB. A similar procedure should work for all of\n"
2481 "these. Ask your system administrator if you need more help.)\n");
2484 stuff_buffered_input (stuff);
2486 kill_buffer_processes (Qnil);
2488 #ifdef CLASH_DETECTION
2489 unlock_all_files ();
2493 tt_session_quit (tt_default_session ());
2495 /* The following crashes when built on X11R5 and run on X11R6 */
2498 #endif /* TOOLTALK */
2505 #if !defined(PDUMP) || !defined(SYSTEM_MALLOC)
2506 extern char my_edata[];
2509 extern void disable_free_hook (void);
2511 DEFUN ("dump-emacs", Fdump_emacs, 2, 2, 0, /*
2512 Dump current state of XEmacs into executable file FILENAME.
2513 Take symbols from SYMFILE (presumably the file you executed to run XEmacs).
2514 This is used in the file `loadup.el' when building XEmacs.
2516 Remember to set `command-line-processed' to nil before dumping
2517 if you want the dumped XEmacs to process its command line
2518 and announce itself normally when it is run.
2520 (intoname, symname))
2522 /* This function can GC */
2523 struct gcpro gcpro1, gcpro2;
2526 GCPRO2 (intoname, symname);
2528 #ifdef FREE_CHECKING
2529 Freally_free (Qnil);
2531 /* When we're dumping, we can't use the debugging free() */
2532 disable_free_hook ();
2535 CHECK_STRING (intoname);
2536 intoname = Fexpand_file_name (intoname, Qnil);
2537 if (!NILP (symname))
2539 CHECK_STRING (symname);
2540 if (XSTRING_LENGTH (symname) > 0)
2541 symname = Fexpand_file_name (symname, Qnil);
2546 opurify = purify_flag;
2549 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
2550 report_sheap_usage (1);
2558 disksave_object_finalization ();
2559 release_breathing_space ();
2561 /* Tell malloc where start of impure now is */
2562 /* Also arrange for warnings when nearly out of space. */
2563 #ifndef SYSTEM_MALLOC
2564 memory_warnings (my_edata, malloc_warning);
2569 #if defined (MSDOS) && defined (EMX)
2571 int fd = open ((char *) XSTRING_DATA (intoname),
2572 O_WRONLY|O_CREAT|O_TRUNC, S_IREAD|S_IWRITE);
2574 error ("Failure operating on %s", XSTRING_DATA (intoname));
2580 #else /* not MSDOS and EMX */
2585 TO_EXTERNAL_FORMAT (LISP_STRING, intoname,
2586 C_STRING_ALLOCA, intoname_ext,
2589 if (STRINGP (symname))
2590 TO_EXTERNAL_FORMAT (LISP_STRING, symname,
2591 C_STRING_ALLOCA, symname_ext,
2596 garbage_collect_1 ();
2602 #ifdef DOUG_LEA_MALLOC
2603 malloc_state_ptr = malloc_get_state ();
2605 /* here we break our rule that the filename conversion should
2606 be performed at the actual time that the system call is made.
2607 It's a whole lot easier to do the conversion here than to
2608 modify all the unexec routines to ensure that filename
2609 conversion is applied everywhere. Don't worry about memory
2610 leakage because this call only happens once. */
2611 unexec (intoname_ext, symname_ext, (uintptr_t) my_edata, 0, 0);
2612 #ifdef DOUG_LEA_MALLOC
2613 free (malloc_state_ptr);
2615 #endif /* not PDUMP */
2617 #endif /* not MSDOS and EMX */
2619 purify_flag = opurify;
2624 #endif /* not CANNOT_DUMP */
2627 /* Split STRING into a list of substrings. The substrings are the
2628 parts of original STRING separated by SEPCHAR. */
2630 split_string_by_emchar_1 (const Bufbyte *string, Bytecount size,
2633 Lisp_Object result = Qnil;
2634 const Bufbyte *end = string + size;
2638 const Bufbyte *p = string;
2641 if (charptr_emchar (p) == sepchar)
2645 result = Fcons (make_string (string, p - string), result);
2649 INC_CHARPTR (string); /* skip sepchar */
2654 return Fnreverse (result);
2657 /* The same as the above, except PATH is an external C string (it is
2658 converted using Qfile_name), and sepchar is hardcoded to SEPCHAR
2659 (':' or whatever). */
2661 decode_path (const char *path)
2668 TO_INTERNAL_FORMAT (C_STRING, path, ALLOCA, (newpath, newlen), Qfile_name);
2670 /* #### Does this make sense? It certainly does for
2671 decode_env_path(), but it looks dubious here. Does any code
2672 depend on decode_path("") returning nil instead of an empty
2677 return split_string_by_emchar_1 (newpath, newlen, SEPCHAR);
2681 decode_env_path (const char *evarname, const char *default_)
2683 const char *path = 0;
2685 path = egetenv (evarname);
2688 return decode_path (path);
2691 /* Ben thinks this function should not exist or be exported to Lisp.
2692 We use it to define split-path-string in subr.el (not!). */
2694 DEFUN ("split-string-by-char", Fsplit_string_by_char, 1, 2, 0, /*
2695 Split STRING into a list of substrings originally separated by SEPCHAR.
2699 CHECK_STRING (string);
2700 CHECK_CHAR (sepchar);
2701 return split_string_by_emchar_1 (XSTRING_DATA (string),
2702 XSTRING_LENGTH (string),
2706 /* #### This was supposed to be in subr.el, but is used VERY early in
2707 the bootstrap process, so it goes here. Damn. */
2709 DEFUN ("split-path", Fsplit_path, 1, 1, 0, /*
2710 Explode a search path into a list of strings.
2711 The path components are separated with the characters specified
2712 with `path-separator'.
2716 CHECK_STRING (path);
2718 while (!STRINGP (Vpath_separator)
2719 || (XSTRING_CHAR_LENGTH (Vpath_separator) != 1))
2720 Vpath_separator = signal_simple_continuable_error
2721 ("`path-separator' should be set to a single-character string",
2724 return (split_string_by_emchar_1
2725 (XSTRING_DATA (path), XSTRING_LENGTH (path),
2726 charptr_emchar (XSTRING_DATA (Vpath_separator))));
2729 DEFUN ("noninteractive", Fnoninteractive, 0, 0, 0, /*
2730 Non-nil return value means XEmacs is running without interactive terminal.
2734 return noninteractive ? Qt : Qnil;
2737 /* This flag is useful to define if you're under a debugger; this way, you
2738 can put a breakpoint of assert_failed() and debug multiple problems
2739 in one session without having to recompile. */
2740 /* #define ASSERTIONS_DONT_ABORT */
2742 #ifdef USE_ASSERTIONS
2743 /* This highly dubious kludge ... shut up Jamie, I'm tired of your slagging. */
2746 assert_failed (const char *file, int line, const char *expr)
2748 stderr_out ("Fatal error: assertion failed, file %s, line %d, %s\n",
2750 #undef abort /* avoid infinite #define loop... */
2751 #if defined (WINDOWSNT) && defined (DEBUG_XEMACS)
2753 #elif !defined (ASSERTIONS_DONT_ABORT)
2757 #endif /* USE_ASSERTIONS */
2760 DEFUN ("quantify-start-recording-data", Fquantify_start_recording_data,
2762 Start recording Quantify data.
2766 quantify_start_recording_data ();
2770 DEFUN ("quantify-stop-recording-data", Fquantify_stop_recording_data,
2772 Stop recording Quantify data.
2776 quantify_stop_recording_data ();
2780 DEFUN ("quantify-clear-data", Fquantify_clear_data, 0, 0, "", /*
2781 Clear all Quantify data.
2785 quantify_clear_data ();
2788 #endif /* QUANTIFY */
2791 syms_of_emacs (void)
2794 DEFSUBR (Fdump_emacs);
2795 #endif /* !CANNOT_DUMP */
2797 DEFSUBR (Frun_emacs_from_temacs);
2798 DEFSUBR (Frunning_temacs_p);
2799 DEFSUBR (Finvocation_name);
2800 DEFSUBR (Finvocation_directory);
2801 DEFSUBR (Fkill_emacs);
2802 DEFSUBR (Fnoninteractive);
2805 DEFSUBR (Fquantify_start_recording_data);
2806 DEFSUBR (Fquantify_stop_recording_data);
2807 DEFSUBR (Fquantify_clear_data);
2808 #endif /* QUANTIFY */
2810 DEFSUBR (Fsplit_string_by_char);
2811 DEFSUBR (Fsplit_path); /* #### */
2813 defsymbol (&Qkill_emacs_hook, "kill-emacs-hook");
2814 defsymbol (&Qsave_buffers_kill_emacs, "save-buffers-kill-emacs");
2818 vars_of_emacs (void)
2820 DEFVAR_BOOL ("suppress-early-error-handler-backtrace",
2821 &suppress_early_error_handler_backtrace /*
2822 Non-nil means early error handler shouldn't print a backtrace.
2825 DEFVAR_LISP ("command-line-args", &Vcommand_line_args /*
2826 Args passed by shell to XEmacs, as a list of strings.
2829 DEFVAR_LISP ("invocation-name", &Vinvocation_name /*
2830 The program name that was used to run XEmacs.
2831 Any directory names are omitted.
2834 DEFVAR_LISP ("invocation-directory", &Vinvocation_directory /*
2835 The directory in which the XEmacs executable was found, to run it.
2836 The value is simply the program name if that directory's name is not known.
2839 DEFVAR_LISP ("invocation-path", &Vinvocation_path /*
2840 The path in which the XEmacs executable was found, to run it.
2841 The value is simply the value of environment variable PATH on startup
2842 if XEmacs was found there.
2846 xxDEFVAR_LISP ("installation-directory", &Vinstallation_directory,
2847 "A directory within which to look for the `lib-src' and `etc' directories.\n"
2848 "This is non-nil when we can't find those directories in their standard\n"
2849 "installed locations, but we can find them\n"
2850 "near where the XEmacs executable was found.");
2853 DEFVAR_LISP ("system-type", &Vsystem_type /*
2854 Symbol indicating type of operating system you are using.
2856 Vsystem_type = intern (SYSTEM_TYPE);
2857 Fprovide (intern(SYSTEM_TYPE));
2859 #ifndef EMACS_CONFIGURATION
2860 # define EMACS_CONFIGURATION "UNKNOWN"
2862 DEFVAR_LISP ("system-configuration", &Vsystem_configuration /*
2863 String naming the configuration XEmacs was built for.
2865 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
2867 #ifndef EMACS_CONFIG_OPTIONS
2868 # define EMACS_CONFIG_OPTIONS "UNKNOWN"
2870 DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options /*
2871 String containing the configuration options XEmacs was built with.
2873 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
2875 DEFVAR_LISP ("emacs-major-version", &Vemacs_major_version /*
2876 Major version number of this version of Emacs, as an integer.
2877 Warning: this variable did not exist in Emacs versions earlier than:
2881 Vemacs_major_version = make_int (EMACS_MAJOR_VERSION);
2883 DEFVAR_LISP ("emacs-minor-version", &Vemacs_minor_version /*
2884 Minor version number of this version of Emacs, as an integer.
2885 Warning: this variable did not exist in Emacs versions earlier than:
2889 Vemacs_minor_version = make_int (EMACS_MINOR_VERSION);
2891 DEFVAR_LISP ("emacs-patch-level", &Vemacs_patch_level /*
2892 The patch level of this version of Emacs, as an integer.
2893 The value is non-nil if this version of XEmacs is part of a series of
2894 stable XEmacsen, but has bug fixes applied.
2895 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
2898 #ifdef EMACS_PATCH_LEVEL
2899 Vemacs_patch_level = make_int (EMACS_PATCH_LEVEL);
2901 Vemacs_patch_level = Qnil;
2904 DEFVAR_LISP ("emacs-beta-version", &Vemacs_beta_version /*
2905 Beta number of this version of Emacs, as an integer.
2906 The value is nil if this is an officially released version of XEmacs.
2907 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
2910 #ifdef EMACS_BETA_VERSION
2911 Vemacs_beta_version = make_int (EMACS_BETA_VERSION);
2913 Vemacs_beta_version = Qnil;
2917 DEFVAR_LISP ("infodock-major-version", &Vinfodock_major_version /*
2918 Major version number of this InfoDock release.
2920 Vinfodock_major_version = make_int (INFODOCK_MAJOR_VERSION);
2922 DEFVAR_LISP ("infodock-minor-version", &Vinfodock_minor_version /*
2923 Minor version number of this InfoDock release.
2925 Vinfodock_minor_version = make_int (INFODOCK_MINOR_VERSION);
2927 DEFVAR_LISP ("infodock-build-version", &Vinfodock_build_version /*
2928 Build version of this InfoDock release.
2930 Vinfodock_build_version = make_int (INFODOCK_BUILD_VERSION);
2933 DEFVAR_LISP ("xemacs-codename", &Vxemacs_codename /*
2934 Codename of this version of Emacs (a string).
2936 #ifndef XEMACS_CODENAME
2937 #define XEMACS_CODENAME "Noname"
2939 Vxemacs_codename = build_string (XEMACS_CODENAME);
2941 DEFVAR_BOOL ("noninteractive", &noninteractive1 /*
2942 Non-nil means XEmacs is running without interactive terminal.
2945 DEFVAR_BOOL ("inhibit-early-packages", &inhibit_early_packages /*
2946 Set to non-nil when the early packages should not be respected at startup.
2949 DEFVAR_BOOL ("inhibit-autoloads", &inhibit_autoloads /*
2950 Set to non-nil when autoloads should not be loaded at startup.
2953 DEFVAR_BOOL ("debug-paths", &debug_paths /*
2954 Set to non-nil when debug information about paths should be printed.
2957 DEFVAR_BOOL ("inhibit-site-lisp", &inhibit_site_lisp /*
2958 Set to non-nil when the site-lisp should not be searched at startup.
2960 #ifdef INHIBIT_SITE_LISP
2961 inhibit_site_lisp = 1;
2964 DEFVAR_BOOL ("inhibit-site-modules", &inhibit_site_modules /*
2965 Set to non-nil when site-modules should not be searched at startup.
2967 #ifdef INHIBIT_SITE_MODULES
2968 inhibit_site_modules = 1;
2971 DEFVAR_INT ("emacs-priority", &emacs_priority /*
2972 Priority for XEmacs to run at.
2973 This value is effective only if set before XEmacs is dumped,
2974 and only if the XEmacs executable is installed with setuid to permit
2975 it to change priority. (XEmacs sets its uid back to the real uid.)
2976 Currently, you need to define SET_EMACS_PRIORITY in `config.h'
2977 before you compile XEmacs, to enable the code for this feature.
2981 DEFVAR_CONST_LISP ("internal-error-checking", &Vinternal_error_checking /*
2982 Internal error checking built-in into this instance of XEmacs.
2983 This is a list of symbols, initialized at build-time. Legal symbols
2986 extents - check extents prior to each extent change;
2987 typecheck - check types strictly, aborting in case of error;
2988 malloc - check operation of malloc;
2989 gc - check garbage collection;
2990 bufpos - check buffer positions.
2992 Vinternal_error_checking = Qnil;
2993 #ifdef ERROR_CHECK_EXTENTS
2994 Vinternal_error_checking = Fcons (intern ("extents"),
2995 Vinternal_error_checking);
2997 #ifdef ERROR_CHECK_TYPECHECK
2998 Vinternal_error_checking = Fcons (intern ("typecheck"),
2999 Vinternal_error_checking);
3001 #ifdef ERROR_CHECK_MALLOC
3002 Vinternal_error_checking = Fcons (intern ("malloc"),
3003 Vinternal_error_checking);
3005 #ifdef ERROR_CHECK_GC
3006 Vinternal_error_checking = Fcons (intern ("gc"),
3007 Vinternal_error_checking);
3009 #ifdef ERROR_CHECK_BUFPOS
3010 Vinternal_error_checking = Fcons (intern ("bufpos"),
3011 Vinternal_error_checking);
3014 DEFVAR_CONST_LISP ("mail-lock-methods", &Vmail_lock_methods /*
3015 Mail spool locking methods supported by this instance of XEmacs.
3016 This is a list of symbols. Each of the symbols is one of the
3017 following: dot, lockf, flock, locking, mmdf.
3020 Vmail_lock_methods = Qnil;
3021 Vmail_lock_methods = Fcons (intern ("dot"), Vmail_lock_methods);
3023 Vmail_lock_methods = Fcons (intern ("lockf"), Vmail_lock_methods);
3026 Vmail_lock_methods = Fcons (intern ("flock"), Vmail_lock_methods);
3029 Vmail_lock_methods = Fcons (intern ("mmdf"), Vmail_lock_methods);
3032 Vmail_lock_methods = Fcons (intern ("locking"), Vmail_lock_methods);
3036 DEFVAR_CONST_LISP ("configure-mail-lock-method", &Vconfigure_mail_lock_method /*
3037 Mail spool locking method suggested by configure. This is one
3038 of the symbols in MAIL-LOCK-METHODS.
3041 #if defined(MAIL_LOCK_FLOCK) && defined(HAVE_FLOCK)
3042 Vconfigure_mail_lock_method = intern("flock");
3043 #elif defined(MAIL_LOCK_LOCKF) && defined(HAVE_LOCKF)
3044 Vconfigure_mail_lock_method = intern("lockf");
3045 #elif defined(MAIL_LOCK_MMDF) && defined(HAVE_MMDF)
3046 Vconfigure_mail_lock_method = intern("mmdf");
3047 #elif defined(MAIL_LOCK_LOCKING) && defined(HAVE_LOCKING)
3048 Vconfigure_mail_lock_method = intern("locking");
3050 Vconfigure_mail_lock_method = intern("dot");
3054 DEFVAR_LISP ("path-separator", &Vpath_separator /*
3055 The directory separator in search paths, as a string.
3059 Vpath_separator = make_string ((Bufbyte *)&c, 1);
3064 complex_vars_of_emacs (void)
3066 /* This is all related to path searching. */
3068 DEFVAR_LISP ("emacs-program-name", &Vemacs_program_name /*
3069 *Name of the Emacs variant.
3070 For example, this may be \"xemacs\" or \"infodock\".
3071 This is mainly meant for use in path searching.
3073 Vemacs_program_name = build_string ((char *) PATH_PROGNAME);
3075 DEFVAR_LISP ("emacs-program-version", &Vemacs_program_version /*
3076 *Version of the Emacs variant.
3077 This typically has the form XX.XX[-bXX].
3078 This is mainly meant for use in path searching.
3080 Vemacs_program_version = build_string ((char *) PATH_VERSION);
3082 DEFVAR_LISP ("exec-path", &Vexec_path /*
3083 *List of directories to search programs to run in subprocesses.
3084 Each element is a string (directory name) or nil (try default directory).
3088 DEFVAR_LISP ("exec-directory", &Vexec_directory /*
3089 *Directory of architecture-dependent files that come with XEmacs,
3090 especially executable programs intended for XEmacs to invoke.
3092 Vexec_directory = Qnil;
3094 DEFVAR_LISP ("configure-exec-directory", &Vconfigure_exec_directory /*
3095 For internal use by the build procedure only.
3096 configure's idea of what EXEC-DIRECTORY will be.
3099 Vconfigure_exec_directory = Ffile_name_as_directory
3100 (build_string ((char *) PATH_EXEC));
3102 Vconfigure_exec_directory = Qnil;
3105 DEFVAR_LISP ("lisp-directory", &Vlisp_directory /*
3106 *Directory of core Lisp files that come with XEmacs.
3108 Vlisp_directory = Qnil;
3110 DEFVAR_LISP ("configure-lisp-directory", &Vconfigure_lisp_directory /*
3111 For internal use by the build procedure only.
3112 configure's idea of what LISP-DIRECTORY will be.
3114 #ifdef PATH_LOADSEARCH
3115 Vconfigure_lisp_directory = Ffile_name_as_directory
3116 (build_string ((char *) PATH_LOADSEARCH));
3118 Vconfigure_lisp_directory = Qnil;
3121 DEFVAR_LISP ("module-directory", &Vmodule_directory /*
3122 *Directory of core dynamic modules that come with XEmacs.
3124 Vmodule_directory = Qnil;
3126 DEFVAR_LISP ("configure-module-directory", &Vconfigure_module_directory /*
3127 For internal use by the build procedure only.
3128 configure's idea of what MODULE-DIRECTORY will be.
3130 #ifdef PATH_MODULESEARCH
3131 Vconfigure_module_directory = Ffile_name_as_directory
3132 (build_string ((char *) PATH_MODULESEARCH));
3134 Vconfigure_module_directory = Qnil;
3137 DEFVAR_LISP ("configure-package-path", &Vconfigure_package_path /*
3138 For internal use by the build procedure only.
3139 configure's idea of what the package path will be.
3141 #ifdef PATH_PACKAGEPATH
3142 Vconfigure_package_path = decode_path (PATH_PACKAGEPATH);
3144 Vconfigure_package_path = Qnil;
3147 DEFVAR_LISP ("data-directory", &Vdata_directory /*
3148 *Directory of architecture-independent files that come with XEmacs,
3149 intended for XEmacs to use.
3150 Use of this variable in new code is almost never correct. See the
3151 functions `locate-data-file' and `locate-data-directory' and the variable
3152 `data-directory-list'.
3154 Vdata_directory = Qnil;
3156 DEFVAR_LISP ("configure-data-directory", &Vconfigure_data_directory /*
3157 For internal use by the build procedure only.
3158 configure's idea of what DATA-DIRECTORY will be.
3161 Vconfigure_data_directory = Ffile_name_as_directory
3162 (build_string ((char *) PATH_DATA));
3164 Vconfigure_data_directory = Qnil;
3167 DEFVAR_LISP ("data-directory-list", &Vdata_directory_list /*
3168 *List of directories of architecture-independent files that come with XEmacs
3169 or were installed as packages, and are intended for XEmacs to use.
3171 Vdata_directory_list = Qnil;
3173 #ifdef CLASH_DETECTION
3174 DEFVAR_LISP ("configure-lock-directory", &Vconfigure_lock_directory /*
3175 For internal use by the build procedure only.
3176 configure's idea of what LOCK-DIRECTORY will be.
3179 Vconfigure_lock_directory = Ffile_name_as_directory
3180 (build_string ((char *) PATH_LOCK));
3182 Vconfigure_lock_directory = Qnil;
3184 #endif /* CLASH_DETECTION */
3186 DEFVAR_LISP ("site-directory", &Vsite_directory /*
3187 *Directory of site-specific Lisp files that come with XEmacs.
3189 Vsite_directory = Qnil;
3191 DEFVAR_LISP ("configure-site-directory", &Vconfigure_site_directory /*
3192 For internal use by the build procedure only.
3193 configure's idea of what SITE-DIRECTORY will be.
3196 Vconfigure_site_directory = Ffile_name_as_directory
3197 (build_string ((char *) PATH_SITE));
3199 Vconfigure_site_directory = Qnil;
3202 DEFVAR_LISP ("site-module-directory", &Vsite_module_directory /*
3203 *Directory of site-specific loadable modules that come with XEmacs.
3205 Vsite_module_directory = Qnil;
3207 DEFVAR_LISP ("configure-site-module-directory", &Vconfigure_site_module_directory /*
3208 For internal use by the build procedure only.
3209 configure's idea of what SITE-DIRECTORY will be.
3211 #ifdef PATH_SITE_MODULES
3212 Vconfigure_site_module_directory = Ffile_name_as_directory
3213 (build_string ((char *) PATH_SITE_MODULES));
3215 Vconfigure_site_module_directory = Qnil;
3218 DEFVAR_LISP ("doc-directory", &Vdoc_directory /*
3219 *Directory containing the DOC file that comes with XEmacs.
3220 This is usually the same as exec-directory.
3222 Vdoc_directory = Qnil;
3224 DEFVAR_LISP ("configure-doc-directory", &Vconfigure_doc_directory /*
3225 For internal use by the build procedure only.
3226 configure's idea of what DOC-DIRECTORY will be.
3229 Vconfigure_doc_directory = Ffile_name_as_directory
3230 (build_string ((char *) PATH_DOC));
3232 Vconfigure_doc_directory = Qnil;
3235 DEFVAR_LISP ("configure-exec-prefix-directory", &Vconfigure_exec_prefix_directory /*
3236 For internal use by the build procedure only.
3237 configure's idea of what EXEC-PREFIX-DIRECTORY will be.
3239 #ifdef PATH_EXEC_PREFIX
3240 Vconfigure_exec_prefix_directory = Ffile_name_as_directory
3241 (build_string ((char *) PATH_EXEC_PREFIX));
3243 Vconfigure_exec_prefix_directory = Qnil;
3246 DEFVAR_LISP ("configure-prefix-directory", &Vconfigure_prefix_directory /*
3247 For internal use by the build procedure only.
3248 configure's idea of what PREFIX-DIRECTORY will be.
3251 Vconfigure_prefix_directory = Ffile_name_as_directory
3252 (build_string ((char *) PATH_PREFIX));
3254 Vconfigure_prefix_directory = Qnil;
3257 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory /*
3258 For internal use by the build procedure only.
3259 This is the name of the directory in which the build procedure installed
3260 Emacs's info files; the default value for Info-default-directory-list
3264 Vconfigure_info_directory =
3265 Ffile_name_as_directory (build_string (PATH_INFO));
3267 Vconfigure_info_directory = Qnil;
3270 DEFVAR_LISP ("configure-info-path", &Vconfigure_info_path /*
3271 The configured initial path for info documentation.
3273 #ifdef PATH_INFOPATH
3274 Vconfigure_info_path = decode_path (PATH_INFOPATH);
3276 Vconfigure_info_path = Qnil;
3280 #if defined(__sgi) && !defined(PDUMP)
3281 /* This is so tremendously ugly I'd puke. But then, it works.
3282 * The target is to override the static constructor from the
3283 * libiflPNG.so library which is maskerading as libz, and
3284 * cores on us when re-started from the dumped executable.
3285 * This will have to go for 21.1 -- OG.
3287 void __sti__iflPNGFile_c___(void);
3288 void __sti__iflPNGFile_c___()