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.
5 Copyright (C) 2000 Ben Wing.
7 This file is part of XEmacs.
9 XEmacs is free software; you can redistribute it and/or modify it
10 under the terms of the GNU General Public License as published by the
11 Free Software Foundation; either version 2, or (at your option) any
14 XEmacs is distributed in the hope that it will be useful, but WITHOUT
15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
19 You should have received a copy of the GNU General Public License
20 along with XEmacs; see the file COPYING. If not, write to
21 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
22 Boston, MA 02111-1307, USA. */
24 /* Synched up with: Mule 2.0, FSF 19.28. */
26 /* Capsule summary of the various releases of Lucid Emacs/XEmacs and
27 FSF/GNU Emacs. Provided here for use in cross-referencing version
28 releases and dates in comments, esp. in the authorship comments at
29 the beginning of each file. More information about history can be
30 found in the beginning of the Internals Manual and in the About page.
33 -- A time line for Lucid Emacs/XEmacs is
35 version 19.0 shipped with Energize 1.0, April 1992.
36 version 19.1 released June 4, 1992.
37 version 19.2 released June 19, 1992.
38 version 19.3 released September 9, 1992.
39 version 19.4 released January 21, 1993.
40 version 19.5 was a repackaging of 19.4 with a few bug fixes and
41 shipped with Energize 2.0. Never released to the net.
42 version 19.6 released April 9, 1993.
43 version 19.7 was a repackaging of 19.6 with a few bug fixes and
44 shipped with Energize 2.1. Never released to the net.
45 version 19.8 released September 6, 1993.
46 version 19.9 released January 12, 1994.
47 version 19.10 released May 27, 1994.
48 version 19.11 (first XEmacs) released September 13, 1994.
49 version 19.12 released June 23, 1995.
50 version 19.13 released September 1, 1995.
51 version 19.14 released June 23, 1996.
52 version 20.0 released February 9, 1997.
53 version 19.15 released March 28, 1997.
54 version 20.1 (not released to the net) April 15, 1997.
55 version 20.2 released May 16, 1997.
56 version 19.16 released October 31, 1997.
57 version 20.3 (the first stable version of XEmacs 20.x) released
59 version 20.4 released February 28, 1998.
62 -- A time line for GNU Emacs version 19 is
64 version 19.7 (beta) (first beta release) released ??????; prob. late May 1993.
65 version 19.8 (beta) released May 27, 1993.
66 version 19.9 (beta) released May 27, 1993.
67 version 19.10 (beta) released May 30, 1993.
68 version 19.11 (beta) released June 1, 1993.
69 version 19.12 (beta) released June 2, 1993.
70 version 19.13 (beta) released June 8, 1993.
71 version 19.14 (beta) released June 17, 1993.
72 version 19.15 (beta) released June 19, 1993.
73 version 19.16 (beta) released July 6, 1993.
74 version 19.17 (beta) released late July, 1993.
75 version 19.18 (beta) released August 9, 1993.
76 version 19.19 (beta) released August 15, 1993.
77 version 19.20 (beta) released November 17, 1993.
78 version 19.21 (beta) released November 17, 1993.
79 version 19.22 (beta) released November 28, 1993.
80 version 19.23 (beta) released May 17, 1994.
81 version 19.24 (beta) released May 16, 1994.
82 version 19.25 (beta) released June 3, 1994.
83 version 19.26 (beta) released September 11, 1994.
84 version 19.27 (beta) released September 14, 1994.
85 version 19.28 (first ``official'' release) released November 1, 1994.
86 version 19.29 released June 21, 1995.
87 version 19.30 released November 24, 1995.
88 version 19.31 released May 25, 1996.
89 version 19.32 released July 31, 1996.
90 version 19.33 released August 11, 1996.
91 version 19.34 released August 21, 1996.
92 version 19.34b released September 6, 1996.
95 -- A time line for GNU Emacs version 20 is
97 version 20.1 released September 17, 1997.
98 version 20.2 released September 20, 1997.
99 version 20.3 released August 19, 1998.
102 -- A time line for GNU Emacs version 18 and older is
104 GNU Emacs version 15 (15.34) was released sometime in 1984 or 1985 and
105 shared some code with a version of Emacs written by James Gosling (the
106 same James Gosling who later created the Java language).
107 GNU Emacs version 16 (first released version was 16.56) was released on
108 July 15, 1985. All Gosling code was removed due to potential copyright
109 problems with the code.
110 version 16.57: released on September 16, 1985.
111 versions 16.58, 16.59: released on September 17, 1985.
112 version 16.60: released on September 19, 1985. These later version 16's
113 incorporated patches from the net, esp. for getting Emacs to work under
115 version 17.36 (first official v17 release) released on December 20, 1985.
116 Included a TeX-able user manual. First official unpatched version that
117 worked on vanilla System V machines.
118 version 17.43 (second official v17 release) released on January 25, 1986.
119 version 17.45 released on January 30, 1986.
120 version 17.46 released on February 4, 1986.
121 version 17.48 released on February 10, 1986.
122 version 17.49 released on February 12, 1986.
123 version 17.55 released on March 18, 1986.
124 version 17.57 released on March 27, 1986.
125 version 17.58 released on April 4, 1986.
126 version 17.61 released on April 12, 1986.
127 version 17.63 released on May 7, 1986.
128 version 17.64 released on May 12, 1986.
129 version 18.24 (a beta version) released on October 2, 1986.
130 version 18.30 (a beta version) released on November 15, 1986.
131 version 18.31 (a beta version) released on November 23, 1986.
132 version 18.32 (a beta version) released on December 7, 1986.
133 version 18.33 (a beta version) released on December 12, 1986.
134 version 18.35 (a beta version) released on January 5, 1987.
135 version 18.36 (a beta version) released on January 21, 1987.
136 January 27, 1987: The Great Usenet Renaming. net.emacs is now comp.emacs.
137 version 18.37 (a beta version) released on February 12, 1987.
138 version 18.38 (a beta version) released on March 3, 1987.
139 version 18.39 (a beta version) released on March 14, 1987.
140 version 18.40 (a beta version) released on March 18, 1987.
141 version 18.41 (the first ``official'' release) released on March 22, 1987.
142 version 18.45 released on June 2, 1987.
143 version 18.46 released on June 9, 1987.
144 version 18.47 released on June 18, 1987.
145 version 18.48 released on September 3, 1987.
146 version 18.49 released on September 18, 1987.
147 version 18.50 released on February 13, 1988.
148 version 18.51 released on May 7, 1988.
149 version 18.52 released on September 1, 1988.
150 version 18.53 released on February 24, 1989.
151 version 18.54 released on April 26, 1989.
152 version 18.55 released on August 23, 1989. This is the earliest version
153 that is still available by FTP.
154 version 18.56 released on January 17, 1991.
155 version 18.57 released late January, 1991.
156 version 18.58 released ?????.
157 version 18.59 released October 31, 1992.
161 /* Note: It is necessary to specify <config.h> and not "config.h" in
162 order for the --srcdir type of compilation to work properly.
163 Otherwise the config.h from the srcdir, rather than the one from
164 the build dir, will be used. */
169 #include "backtrace.h" /* run-emacs-from-temacs needs this */
171 #include "commands.h"
174 #include "redisplay.h"
178 #include "syssignal.h" /* Always include before systty.h */
192 #include <quantify.h>
199 #if defined (HAVE_LOCALE_H) && \
200 (defined (I18N2) || defined (I18N3) || defined (I18N4))
208 #if defined (WIN32_NATIVE)
215 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
216 void report_sheap_usage (int die_if_pure_storage_exceeded);
219 #if !defined (SYSTEM_MALLOC) && !defined (DOUG_LEA_MALLOC)
220 extern void *(*__malloc_hook)(size_t);
221 extern void *(*__realloc_hook)(void *, size_t);
222 extern void (*__free_hook)(void *);
223 #endif /* not SYSTEM_MALLOC && not DOUG_LEA_MALLOC */
225 /* Command line args from shell, as list of strings */
226 Lisp_Object Vcommand_line_args;
228 /* Set nonzero after XEmacs has started up the first time.
229 Prevents reinitialization of the Lisp world and keymaps
230 on subsequent starts. */
233 #ifdef DOUG_LEA_MALLOC
235 /* Preserves a pointer to the memory allocated that copies that
236 static data inside glibc's malloc. */
237 static void *malloc_state_ptr;
238 #endif /* DOUG_LEA_MALLOC */
241 void r_alloc_reinit (void);
244 /* Variable whose value is symbol giving operating system type. */
245 Lisp_Object Vsystem_type;
247 /* Variable whose value is string giving configuration built for. */
248 Lisp_Object Vsystem_configuration;
250 /* Variable whose value is string containing the configuration options
251 XEmacs was built with. */
252 Lisp_Object Vsystem_configuration_options;
254 /* Version numbers and strings */
255 Lisp_Object Vemacs_major_version;
256 Lisp_Object Vemacs_minor_version;
257 Lisp_Object Vemacs_patch_level;
258 Lisp_Object Vemacs_beta_version;
259 Lisp_Object Vxemacs_codename;
261 Lisp_Object Vinfodock_major_version;
262 Lisp_Object Vinfodock_minor_version;
263 Lisp_Object Vinfodock_build_version;
266 /* The path under which XEmacs was invoked. */
267 Lisp_Object Vinvocation_path;
269 /* The name under which XEmacs was invoked, with any leading directory
271 Lisp_Object Vinvocation_name;
273 /* The directory name from which XEmacs was invoked. */
274 Lisp_Object Vinvocation_directory;
277 /* The directory name in which to find subdirs such as lisp and etc.
278 nil means get them only from PATH_LOADSEARCH. */
279 Lisp_Object Vinstallation_directory;
282 Lisp_Object Vemacs_program_name, Vemacs_program_version;
283 Lisp_Object Vexec_path;
284 Lisp_Object Vexec_directory, Vconfigure_exec_directory;
285 Lisp_Object Vlisp_directory, Vconfigure_lisp_directory;
286 Lisp_Object Vmule_lisp_directory, Vconfigure_mule_lisp_directory;
287 Lisp_Object Vmodule_directory, Vconfigure_module_directory;
288 Lisp_Object Vsite_module_directory, Vconfigure_site_module_directory;
289 Lisp_Object Vconfigure_package_path;
290 Lisp_Object Vdata_directory, Vconfigure_data_directory;
291 Lisp_Object Vdoc_directory, Vconfigure_doc_directory;
292 Lisp_Object Vconfigure_lock_directory;
293 Lisp_Object Vdata_directory_list;
294 Lisp_Object Vconfigure_info_directory;
295 Lisp_Object Vsite_directory, Vconfigure_site_directory;
296 Lisp_Object Vconfigure_info_path;
297 Lisp_Object Vinternal_error_checking;
298 Lisp_Object Vmail_lock_methods, Vconfigure_mail_lock_method;
299 Lisp_Object Vpath_separator;
301 /* The default base directory XEmacs is installed under. */
302 Lisp_Object Vconfigure_exec_prefix_directory, Vconfigure_prefix_directory;
304 /* If nonzero, set XEmacs to run at this priority. This is also used
305 in child_setup and sys_suspend to make sure subshells run at normal
307 Fixnum emacs_priority;
309 /* Some FSF junk with running_asynch_code, to preserve the match
310 data. Not necessary because we don't call process filters
311 asynchronously (i.e. from within QUIT). */
312 /* #### Delete this when merging the rest of my code */
313 int running_asynch_code;
315 /* If non-zero, a window-system was specified on the command line. */
318 /* Type of display specified. We cannot use a Lisp symbol here because
319 Lisp symbols may not initialized at the time that we set this
321 const char *display_use;
323 /* If non-zero, then the early error handler will only print the error
325 int suppress_early_error_handler_backtrace;
327 /* An address near the bottom of the stack.
328 Tells GC how to save a copy of the stack. */
331 #ifdef USG_SHARED_LIBRARIES
332 /* If nonzero, this is the place to put the end of the writable segment
335 uintptr_t bss_end = 0;
338 /* Number of bytes of writable memory we can expect to be able to get */
339 unsigned int lim_data;
343 Some LISP-visible command-line options are set by XEmacs _before_ the
344 data is dumped in building a --pdump XEmacs, but used _after_ it is
345 restored in normal operation. Thus the dump-time values overwrite the
346 values XEmacs is getting at runtime. Such variables must be saved
347 before loading the dumpfile, and restored afterward.
349 Therefore these variables may not be initialized in vars_of_emacs().
351 The save/restore is done immediately before and after pdump_load() in
352 main_1(). See that function for the current list of protected variables.
354 Note that saving/restoring is only necessary for a few variables that are
355 o command line arguments effective at runtime (as opposed to dump-time),
356 o parsed before pdump_load, and
357 o exported to Lisp via a DEFVAR.
360 /* Nonzero means running XEmacs without interactive terminal. */
364 /* Value of Lisp variable `noninteractive'.
365 Normally same as C variable `noninteractive'
366 but nothing terrible happens if user sets this one.
368 Shadowed from the pdumper by `noninteractive'. */
372 /* Nonzero means don't perform site-lisp searches at startup */
373 int inhibit_site_lisp;
375 /* Nonzero means don't perform site-modules searches at startup */
376 int inhibit_site_modules;
378 /* Nonzero means don't respect early packages at startup */
379 int inhibit_early_packages;
381 /* Nonzero means don't load package autoloads at startup */
382 int inhibit_autoloads;
384 /* Nonzero means don't load the dump file (ignored if not PDUMP) */
388 /* Nonzero means print debug information about path searching */
391 /* Save argv and argc. */
392 static Extbyte **initial_argv; /* #### currently unused */
393 static int initial_argc; /* #### currently unused */
395 static void sort_args (int argc, char **argv);
397 Lisp_Object Qkill_emacs_hook;
398 Lisp_Object Qsave_buffers_kill_emacs;
400 extern Lisp_Object Vlisp_EXEC_SUFFIXES;
404 /* Ben's capsule summary about expected and unexpected exits from XEmacs.
406 Expected exits occur when the user directs XEmacs to exit, for example
407 by pressing the close button on the only frame in XEmacs, or by typing
408 C-x C-c. This runs `save-buffers-kill-emacs', which saves any necessary
409 buffers, and then exits using the primitive `kill-emacs'.
411 However, unexpected exits occur in a few different ways:
413 -- a memory access violation or other hardware-generated exception
414 occurs. This is the worst possible problem to deal with, because
415 the fault can occur while XEmacs is in any state whatsoever, even
416 quite unstable ones. As a result, we need to be *extremely* careful
418 -- we are using one X display (or if we've used more, we've closed the
419 others already), and some hardware or other problem happens and
420 suddenly we've lost our connection to the display. In this situation,
421 things are not so dire as in the last one; our code itself isn't
422 trashed, so we can continue execution as normal, after having set
423 things up so that we can exit at the appropriate time. Our exit
424 still needs to be of the emergency nature; we have no displays, so
425 any attempts to use them will fail. We simply want to auto-save
426 (the single most important thing to do during shut-down), do minimal
427 cleanup of stuff that has an independent existence outside of XEmacs,
430 Currently, both unexpected exit scenarios described above set
431 preparing_for_armageddon to indicate that nonessential and possibly
432 dangerous things should not be done, specifically:
434 -- no garbage collection.
436 -- no messages of any sort from autosaving.
437 -- autosaving tries harder, ignoring certain failures.
438 -- existing frames are not deleted.
440 (Also, all places that set preparing_for_armageddon also
441 set dont_check_for_quit. This happens separately because it's
442 also necessary to set other variables to make absolutely sure
443 no quitting happens.)
445 In the first scenario above (the access violation), we also set
446 fatal_error_in_progress. This causes more things to not happen:
448 -- assertion failures do not abort.
449 -- printing code does not do code conversion or gettext when
450 printing to stdout/stderr.
453 /* Nonzero if handling a fatal error already. */
454 int fatal_error_in_progress;
456 /* Non-nil means we're going down, so we better not run any hooks
457 or do other non-essential stuff. */
458 int preparing_for_armageddon;
461 static JMP_BUF run_temacs_catch;
463 static int run_temacs_argc;
464 static char **run_temacs_argv;
465 static char *run_temacs_args;
466 static size_t run_temacs_argv_size;
467 static size_t run_temacs_args_size;
469 static void shut_down_emacs (int sig, Lisp_Object stuff, int no_auto_save);
472 ensure_no_quitting_from_now_on (void)
474 /* make sure no quitting from now on!! */
475 dont_check_for_quit = 1;
480 /* Handle bus errors, illegal instruction, etc. */
482 fatal_error_signal (int sig)
484 fatal_error_in_progress++;
485 preparing_for_armageddon = 1;
487 ensure_no_quitting_from_now_on ();
489 /* Unblock the signal so that if the same signal gets sent in the
490 code below, we avoid a deadlock. */
491 EMACS_UNBLOCK_SIGNAL (sig);
493 /* Only try auto-saving first time through. If we crash in auto-saving,
494 don't do it again. */
495 if (fatal_error_in_progress == 1)
497 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
498 /* Do this so that the variable has the same value of 2 regardless of
499 whether we made it through auto-saving correctly. */
500 fatal_error_in_progress++;
502 else if (fatal_error_in_progress == 2)
503 stderr_out ("WARNING: Unable to auto-save your files properly.\n"
504 "Some or all may in fact have been auto-saved.\n"
507 /* Now, reset our signal handler, so the next time, we just die.
508 Don't do this before auto-saving. */
509 signal (sig, SIG_DFL);
511 /* Keep in mind that there's more than one signal that we can crash
513 /* If fatal error occurs in code below, avoid infinite recursion. */
514 if (fatal_error_in_progress <= 2)
516 shut_down_emacs (sig, Qnil, 1);
517 stderr_out ("\nLisp backtrace follows:\n\n");
518 Fbacktrace (Qexternal_debugging_output, Qt);
519 # if 0 /* This is evil, rarely useful, and causes grief in some cases. */
520 /* Check for Sun-style stack printing via /proc */
522 const char *pstack = "/usr/proc/bin/pstack";
523 if (access (pstack, X_OK) == 0)
526 stderr_out ("\nC backtrace follows:\n"
527 "(A real debugger may provide better information)\n\n");
528 sprintf (buf, "%s %d >&2", pstack, (int)getpid());
534 /* Signal the same code; this time it will really be fatal. */
535 kill (getpid (), sig);
542 mswindows_handle_hardware_exceptions (DWORD code)
544 if (code != STATUS_ACCESS_VIOLATION && code != STATUS_ILLEGAL_INSTRUCTION
545 && code != STATUS_PRIVILEGED_INSTRUCTION
546 && code != STATUS_DATATYPE_MISALIGNMENT)
547 return EXCEPTION_CONTINUE_SEARCH;
549 /* I don't know if this filter is still wrapped in the outer __try, but
550 it doesn't hurt to have another one. --ben
551 And it lets us control more exactly what we really want to do in such
555 fatal_error_in_progress++;
556 preparing_for_armageddon = 1;
558 ensure_no_quitting_from_now_on ();
560 /* Only try auto-saving first time through. If we crash in auto-saving,
561 don't do it again. */
562 if (fatal_error_in_progress == 1)
564 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
565 /* Do this so that the variable has the same value of 2 regardless of
566 whether we made it through auto-saving correctly. */
567 fatal_error_in_progress++;
569 else if (fatal_error_in_progress == 2)
570 stderr_out ("WARNING: Unable to auto-save your files properly.\n"
571 "Some or all may in fact have been auto-saved.\n"
574 /* If fatal error occurs in code below, avoid infinite recursion. */
575 if (fatal_error_in_progress <= 2)
577 shut_down_emacs (-1, Qnil, 1);
578 stderr_out ("\nLisp backtrace follows:\n\n");
579 Fbacktrace (Qexternal_debugging_output, Qt);
582 /* VC++ documentation says that
583 GetExceptionCode() cannot be called inside the filter itself. */
585 /* __except (mswindows_handle_hardware_exceptions (GetExceptionCode ())) {}
587 The line above is original. Unfortunately, when an error is tripped
588 inside of the handler (e.g. during Fbacktrace()), and the handler for
589 the handler is invoked, it correctly notices that something is amiss
590 and it should just return -- but it returns EXCEPTION_CONTINUE_SEARCH,
591 which causes the debugger to be invoked debugging the handler code in
592 this function -- and WITH THE STACK UNWOUND so that you see main()
593 calling mswindows_handle_hardware_exceptions(), calling Fbacktrace(),
594 and a crash a couple of frames in -- AND NO SIGN OF THE ORIGINAL CRASH!
596 There's some real weirdness going on in the stack handling -- unlike
597 in Unix, where further crashes just keep adding to the stack, it seems
598 that under the structured-exception-handling, the stack can actually
599 bounce back and forth between the full stack at the location of the
600 exception and the unwound stack at the place where the __try clause was
601 established. I don't completely understand it. What I do know is that
602 returning EXCEPTION_EXECUTE_HANDLER on nested crash has the effect of
603 aborting execution of the handler and going back to the outer filter
604 function, which returns EXCEPTION_CONTINUE_SEARCH and everything is
605 hunky-dorey -- your debugger sees a crash at the right location with
608 I'm leaving in the trickier Unix-like code in the handler; someone who
609 understands better than me how the stack works in these handlers could
610 fix it up more. As it is, it works pretty well, so I'm not likely to
614 __except (EXCEPTION_EXECUTE_HANDLER) {}
617 /* pretend we didn't handle this, so that the debugger is invoked and/or
618 the normal GPF box appears. */
619 return EXCEPTION_CONTINUE_SEARCH;
622 #endif /* _MSC_VER */
628 /* Handler for SIGDANGER. */
630 memory_warning_signal (int sig)
632 /* #### bad bad bad; this function shouldn't do anything except
633 set a flag, or weird corruption could happen. */
634 signal (sig, memory_warning_signal);
637 (GETTEXT ("Operating system warns that virtual memory is running low.\n"));
639 /* It might be unsafe to call do_auto_save now. */
640 force_auto_save_soon ();
642 #endif /* SIGDANGER */
644 /* Code for dealing with Lisp access to the Unix command line */
647 make_arg_list_1 (int argc, Extbyte **argv, int skip_args)
649 Lisp_Object result = Qnil;
652 for (i = argc - 1; i >= 0; i--)
654 if (i == 0 || i > skip_args)
659 /* Do not trust to what crt0 has stuffed into argv[0] */
660 char full_exe_path[MAX_PATH];
661 Lisp_Object fullpath;
663 GetModuleFileName (NULL, full_exe_path, MAX_PATH);
664 fullpath = build_ext_string (full_exe_path, Qmswindows_tstr);
665 result = Fcons (fullpath, result);
666 #if defined(HAVE_SHLIB)
668 Extbyte *fullpathext;
670 LISP_STRING_TO_EXTERNAL (fullpath, fullpathext,
671 Qdll_filename_encoding);
672 (void) dll_init (fullpathext);
678 result = Fcons (build_ext_string (argv[i],
679 Qcommand_argument_encoding),
687 make_arg_list (int argc, Extbyte **argv)
689 return make_arg_list_1 (argc, argv, 0);
692 /* Calling functions are also responsible for calling free_argc_argv
693 when they are done with the generated list. */
695 make_argc_argv (Lisp_Object argv_list, int *argc, Extbyte ***argv)
698 int n = XINT (Flength (argv_list));
700 *argv = (Extbyte**) xmalloc ((n+1) * sizeof (Extbyte*));
702 for (i = 0, next = argv_list; i < n; i++, next = XCDR (next))
705 CHECK_STRING (XCAR (next));
707 LISP_STRING_TO_EXTERNAL (XCAR (next), temp, Qcommand_argument_encoding);
708 (*argv) [i] = xstrdup (temp);
715 free_argc_argv (Extbyte **argv)
728 init_cmdargs (int argc, Extbyte **argv, int skip_args)
733 Vcommand_line_args = make_arg_list_1 (argc, argv, skip_args);
736 DEFUN ("invocation-name", Finvocation_name, 0, 0, 0, /*
737 Return the program name that was used to run XEmacs.
738 Any directory names are omitted.
742 return Fcopy_sequence (Vinvocation_name);
745 DEFUN ("invocation-directory", Finvocation_directory, 0, 0, 0, /*
746 Return the directory name in which the Emacs executable was located.
750 return Fcopy_sequence (Vinvocation_directory);
755 /* #### - don't know why I18N4 on SunOS/JLE
756 can't deal with this. It's a potential
757 bug that needs to be looked at. */
758 # undef RUN_TIME_REMAP
761 /* Test whether the next argument in ARGV matches SSTR or a prefix of
762 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
763 (the argument is supposed to have a value) store in *VALPTR either
764 the next argument or the portion of this one after the equal sign.
765 ARGV is read starting at position *SKIPPTR; this index is advanced
766 by the number of arguments used.
768 Too bad we can't just use getopt for all of this, but we don't have
769 enough information to do it right. */
772 argmatch (char **argv, int argc, char *sstr, char *lstr,
773 int minlen, char **valptr, int *skipptr)
779 /* Don't access argv[argc]; give up in advance. */
780 if (argc <= *skipptr + 1)
783 arg = argv[*skipptr+1];
786 if (strcmp (arg, sstr) == 0)
790 *valptr = argv[*skipptr+2];
797 arglen = (valptr != NULL && (p = strchr (arg, '=')) != NULL
798 ? p - arg : strlen (arg));
799 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
801 else if (valptr == NULL)
812 else if (argv[*skipptr+2] != NULL)
814 *valptr = argv[*skipptr+2];
824 /* Make stack traces always identify version + configuration */
825 #define main_1 STACK_TRACE_EYE_CATCHER
827 /* This function is not static, so that the compiler is less likely to
828 inline it, which would make it not show up in stack traces.
830 The restart argument is a flag that indicates that main_1 is now
831 being called for the second time in this invocation of xemacs; this can
832 only happen in an xemacs that is not loaded with dumped data (temacs
833 with the conventional dumper or xemacs -nd with the pdumper). See
834 Frun_emacs_from_temacs().
836 restart interacts with initialized as follows (per Olivier Galibert):
840 initialized==0 => temacs
841 initialized!=0 && restart!=0 => run-temacs
842 initialized!=0 && restart==0 => xemacs/post pdump_load()
844 DECLARE_DOESNT_RETURN (main_1 (int, char **, char **, int));
846 main_1 (int argc, char **argv, char **envp, int restart)
848 char stack_bottom_variable;
851 int inhibit_window_system;
853 extern int malloc_cookie;
856 #if (!defined (SYSTEM_MALLOC) && !defined (HAVE_LIBMCHECK) \
857 && !defined (DOUG_LEA_MALLOC))
858 /* Make sure that any libraries we link against haven't installed a
859 hook for a gmalloc of a potentially incompatible version. */
860 /* If we're using libmcheck, the hooks have already been initialized, */
861 /* don't touch them. -slb */
862 __malloc_hook = NULL;
863 __realloc_hook = NULL;
865 #endif /* not SYSTEM_MALLOC or HAVE_LIBMCHECK or DOUG_LEA_MALLOC */
871 * NeXT secret magic, ripped from Emacs-for-NS by Carl Edman
872 * <cedman@princeton.edu>. Note that even Carl doesn't know what this
873 * does; it was provided by NeXT, and it presumable makes NS's mallocator
874 * work with dumping. But malloc_jumpstart() and malloc_freezedry() in
875 * unexnext.c are both completely undocumented, even in NS header files!
876 * But hey, it solves all NS related memory problems, so who's
878 if (initialized && malloc_jumpstart (malloc_cookie) != 0)
879 stderr_out ("malloc jumpstart failed!\n");
883 #if defined (GNU_MALLOC) && \
884 defined (ERROR_CHECK_MALLOC) && \
885 !defined (HAVE_LIBMCHECK)
887 #if defined(LOSING_GCC_DESTRUCTOR_FREE_BUG)
888 /* Prior to XEmacs 21, this was `#if 0'ed out. */
889 /* I'm enabling this because it is the only reliable way I've found to */
890 /* prevent a very annoying problem where GCC will attempt to free(3) */
891 /* memory at exit() and cause a coredump. */
895 sort_args (argc, argv);
897 #if defined (WIN32_NATIVE) || defined (_SCO_DS)
901 /* Record (approximately) where the stack begins. */
902 stack_bottom = &stack_bottom_variable;
904 #ifdef USG_SHARED_LIBRARIES
906 brk ((void *) bss_end);
911 #if defined (HAVE_MMAP) && defined (REL_ALLOC)
912 /* ralloc can only be used if using the GNU memory allocator. */
914 #elif defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
922 #endif /* HAVE_SOCKS */
924 #ifndef SYSTEM_MALLOC
926 /* Arrange to get warning messages as memory fills up. */
927 memory_warnings (0, malloc_warning);
928 #endif /* not SYSTEM_MALLOC */
930 #ifdef SET_EMACS_PRIORITY
931 if (emacs_priority != 0)
932 nice (-emacs_priority);
934 #endif /* SET_EMACS_PRIORITY */
936 #ifdef EXTRA_INITIALIZE
940 #ifdef HAVE_WINDOW_SYSTEM
941 inhibit_window_system = 0;
943 inhibit_window_system = 1;
946 /* Handle the -sd/--show-dump-id switch, which means show the hex dump_id and quit */
947 if (argmatch (argv, argc, "-sd", "--show-dump-id", 9, NULL, &skip_args))
950 printf ("%08x\n", dump_id);
952 printf ("Portable dumper not configured; -sd just forces exit.\n");
957 /* Handle the -t switch, which specifies filename to use as terminal */
960 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
964 if (open (term, O_RDWR | OPEN_BINARY, 2) < 0)
965 fatal ("%s: %s", term, strerror (errno));
968 fatal ("%s: not a tty", term);
971 stderr_out ("Using %s", ttyname (0));
973 stderr_out ("Using %s", term);
974 inhibit_window_system = 1; /* -t => -nw */
978 /* Handle the --no-dump-file/-nd switch, which means don't load the dump file (ignored when not using pdump) */
979 if (argmatch (argv, argc, "-nd", "--no-dump-file", 7, NULL, &skip_args))
984 /* Handle -nw switch */
985 if (argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
986 inhibit_window_system = 1;
988 /* Handle the -batch switch, which means don't do interactive display. */
989 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
991 #if 0 /* I don't think this is correct. */
992 inhibit_autoloads = 1;
997 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
998 11, NULL, &skip_args))
1001 /* Partially handle -no-autoloads, -no-early-packages and -vanilla. Packages */
1002 /* are searched prior to the rest of the command line being parsed in */
1004 if (argmatch (argv, argc, "-no-early-packages", "--no-early-packages",
1005 6, NULL, &skip_args))
1007 inhibit_early_packages = 1;
1011 if (argmatch (argv, argc, "-no-site-modules", "--no-site-modules",
1012 9, NULL, &skip_args))
1014 inhibit_site_modules = 1;
1018 inhibit_site_modules = 1;
1020 if (argmatch (argv, argc, "-vanilla", "--vanilla",
1021 7, NULL, &skip_args))
1023 inhibit_early_packages = 1;
1027 if (argmatch (argv, argc, "-no-autoloads", "--no-autoloads",
1028 7, NULL, &skip_args))
1030 /* Inhibit everything */
1031 inhibit_autoloads = 1;
1035 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
1036 6, NULL, &skip_args))
1043 /* Partially handle the -version and -help switches: they imply -batch,
1044 but are not removed from the list. */
1045 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
1046 noninteractive = 1, skip_args--;
1048 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args) ||
1049 argmatch (argv, argc, "-V", 0, 2, NULL, &skip_args))
1050 noninteractive = 1, skip_args--;
1052 /* Now, figure out which type of console is our first console. */
1057 display_use = "stream";
1059 display_use = "tty";
1062 if (inhibit_window_system)
1063 fatal ("Sorry, this XEmacs was not compiled with TTY support");
1066 #ifdef HAVE_WINDOW_SYSTEM
1067 /* Stupid kludge to catch command-line display spec. We can't
1068 handle this argument entirely in window-system-dependent code
1069 because we don't even know which window-system-dependent code
1070 to run until we've recognized this argument. */
1071 if (!inhibit_window_system && !noninteractive)
1073 #ifdef HAVE_X_WINDOWS
1075 int count_before = skip_args;
1077 if (argmatch (argv, argc, "-d", "--display", 3, &dpy, &skip_args) ||
1078 argmatch (argv, argc, "-display", 0, 3, &dpy, &skip_args))
1083 /* If we have the form --display=NAME,
1084 convert it into -d name.
1085 This requires inserting a new element into argv. */
1086 if (dpy != 0 && skip_args - count_before == 1)
1088 char **new = (char **) xmalloc (sizeof (char *) * (argc + 2));
1091 for (j = 0; j < count_before + 1; j++)
1093 new[count_before + 1] = "-d";
1094 new[count_before + 2] = dpy;
1095 for (j = count_before + 2; j <argc; j++)
1096 new[j + 1] = argv[j];
1100 /* Change --display to -d, when its arg is separate. */
1101 else if (dpy != 0 && skip_args > count_before
1102 && argv[count_before + 1][1] == '-')
1103 argv[count_before + 1] = "-d";
1105 /* Don't actually discard this arg. */
1106 skip_args = count_before;
1108 /* If there is a non-empty environment var DISPLAY, set
1109 `display_use', but not `display_arg', which is only to be set
1110 if the display was specified on the command line. */
1111 if ((dpy = getenv ("DISPLAY")) && dpy[0])
1114 #endif /* HAVE_X_WINDOWS */
1117 char *dpy = getenv ("DISPLAY");
1119 display_use = "gtk";
1122 #ifdef HAVE_MS_WINDOWS
1123 if (strcmp(display_use, "x") != 0)
1124 display_use = "mswindows";
1125 #endif /* HAVE_MS_WINDOWS */
1127 #endif /* HAVE_WINDOW_SYSTEM */
1129 noninteractive1 = noninteractive;
1131 /****** Now initialize everything *******/
1133 /* First, do really basic environment initialization -- catching signals
1134 and the like. These functions have no dependence on any part of
1135 the Lisp engine and need to be done both at dump time and at run time. */
1137 init_signals_very_early ();
1138 init_data_very_early (); /* Catch math errors. */
1139 #ifdef LISP_FLOAT_TYPE
1140 init_floatfns_very_early (); /* Catch floating-point math errors. */
1142 init_process_times_very_early (); /* Initialize our process timers.
1143 As early as possible, of course,
1144 so we can be fairly accurate. */
1145 init_intl_very_early (); /* set up the locale and domain for gettext and
1148 /* Now initialize the Lisp engine and the like. Done only during
1149 dumping. No dependence on anything that may be in the user's
1150 environment when the dumped XEmacs is run.
1152 We try to do things in an order that minimizes the non-obvious
1153 dependencies between functions. */
1155 /* purify_flag 1 is correct even if CANNOT_DUMP.
1156 * loadup.el will set to nil at end. */
1162 else if (nodumpfile) {
1167 /* Keep command options from getting stomped.
1169 Some LISP-visible options are changed by XEmacs _after_ the data is
1170 dumped in building a --pdump XEmacs, but _before_ it is restored in
1171 normal operation. Thus the restored values overwrite the values
1172 XEmacs is getting at run-time. Such variables must be saved here,
1173 and restored after loading the dumped data.
1175 Boy, this is ugly, but how else to do it?
1178 /* noninteractive1 is saved in noninteractive, which isn't LISP-visible */
1179 int inhibit_early_packages_save = inhibit_early_packages;
1180 int inhibit_autoloads_save = inhibit_autoloads;
1181 int debug_paths_save = debug_paths;
1182 /* #### Give inhibit-site-lisp a command switch? If so, uncomment: */
1183 /* int inhibit_site_lisp_save = inhibit_site_lisp; */
1184 int inhibit_site_modules_save = inhibit_site_modules;
1186 initialized = pdump_load (argv[0]);
1188 /* Now unstomp everything */
1189 noninteractive1 = noninteractive;
1190 inhibit_early_packages = inhibit_early_packages_save;
1191 inhibit_autoloads = inhibit_autoloads_save;
1192 debug_paths = debug_paths_save;
1193 /* #### Give inhibit-site-lisp a command switch? If so, uncomment: */
1194 /* inhibit_site_lisp = inhibit_site_lisp_save; */
1195 inhibit_site_modules = inhibit_site_modules_save;
1198 run_temacs_argc = -1;
1209 /* Initialize things so that new Lisp objects
1210 can be created and objects can be staticpro'd.
1211 Must be basically the very first thing done
1212 because pretty much all of the initialization
1213 routines below create new objects. */
1214 init_alloc_once_early ();
1216 /* Initialize Qnil, Qt, Qunbound, and the
1217 obarray. After this, symbols can be
1218 interned. This depends on init_alloc_once_early(). */
1219 init_symbols_once_early ();
1221 /* Declare the basic symbols pertaining to errors,
1222 So that DEFERROR*() can be called. */
1223 init_errors_once_early ();
1225 /* Make sure that opaque pointers can be created. */
1226 init_opaque_once_early ();
1228 /* Now declare all the symbols and define all the Lisp primitives.
1230 The *only* thing that the syms_of_*() functions are allowed to do
1231 is call one of the following:
1233 INIT_LRECORD_IMPLEMENTATION()
1234 defsymbol(), DEFSYMBOL(), or DEFSYMBOL_MULTIWORD_PREDICATE()
1235 defsubr() (i.e. DEFSUBR)
1236 deferror(), DEFERROR(), or DEFERROR_STANDARD()
1237 defkeyword() or DEFKEYWORD()
1239 Order does not matter in these functions.
1245 syms_of_bytecode ();
1247 syms_of_callproc ();
1248 syms_of_casefiddle ();
1258 #endif /* DEBUG_XEMACS */
1269 #ifdef HAVE_X_WINDOWS
1270 syms_of_event_Xt ();
1273 syms_of_event_gtk ();
1275 #ifdef HAVE_DRAGNDROP
1276 syms_of_dragdrop ();
1278 syms_of_event_stream ();
1283 #ifdef CLASH_DETECTION
1284 syms_of_filelock ();
1285 #endif /* CLASH_DETECTION */
1286 syms_of_floatfns ();
1288 syms_of_font_lock ();
1292 syms_of_glyphs_eimage ();
1293 syms_of_glyphs_widget ();
1303 #ifdef HAVE_DATABASE
1304 syms_of_database ();
1306 #ifdef HAVE_MENUBARS
1315 #if !defined (NO_SUBPROCESSES)
1317 #ifdef HAVE_WIN32_PROCESSES
1318 syms_of_process_nt ();
1322 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
1324 #endif /* HAVE_MMAP && REL_ALLOC */
1325 syms_of_rangetab ();
1326 syms_of_redisplay ();
1331 syms_of_specifier ();
1334 #ifdef HAVE_SCROLLBARS
1335 syms_of_scrollbar ();
1337 #ifdef HAVE_TOOLBARS
1345 syms_of_console_tty ();
1346 syms_of_device_tty ();
1347 syms_of_objects_tty ();
1351 syms_of_device_gtk ();
1352 syms_of_frame_gtk ();
1353 syms_of_glyphs_gtk ();
1354 syms_of_objects_gtk ();
1356 syms_of_select_gtk ();
1358 syms_of_dialog_gtk ();
1360 #ifdef HAVE_MENUBARS
1361 syms_of_menubar_gtk ();
1363 syms_of_select_gtk ();
1365 #if defined (HAVE_MENUBARS) || defined(HAVE_SCROLLBARS) || defined(HAVE_DIALOGS) || defined(HAVE_TOOLBARS)
1368 #endif /* HAVE_GTK */
1370 #ifdef HAVE_X_WINDOWS
1371 #ifdef HAVE_BALLOON_HELP
1372 syms_of_balloon_x ();
1374 syms_of_device_x ();
1376 syms_of_dialog_x ();
1379 syms_of_glyphs_x ();
1380 syms_of_objects_x ();
1381 #ifdef HAVE_MENUBARS
1382 syms_of_menubar_x ();
1384 syms_of_select_x ();
1385 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1390 syms_of_input_method_xlib ();
1392 #endif /* HAVE_XIM */
1393 #endif /* HAVE_X_WINDOWS */
1395 #ifdef HAVE_MS_WINDOWS
1396 syms_of_console_mswindows ();
1397 syms_of_device_mswindows ();
1398 syms_of_dialog_mswindows ();
1399 syms_of_frame_mswindows ();
1400 syms_of_objects_mswindows ();
1401 syms_of_select_mswindows ();
1402 syms_of_glyphs_mswindows ();
1403 syms_of_gui_mswindows ();
1404 #ifdef HAVE_MENUBARS
1405 syms_of_menubar_mswindows ();
1407 #ifdef HAVE_SCROLLBARS
1408 syms_of_scrollbar_mswindows ();
1410 #endif /* HAVE_MS_WINDOWS */
1411 #ifdef HAVE_MSW_C_DIRED
1412 syms_of_dired_mswindows ();
1417 #if defined (WIN32_NATIVE) || defined (CYGWIN)
1423 syms_of_mule_ccl ();
1424 syms_of_mule_charset ();
1427 syms_of_file_coding ();
1431 syms_of_mule_wnn ();
1434 syms_of_mule_canna ();
1435 #endif /* HAVE_CANNA */
1447 #if defined (GNU_MALLOC) && \
1448 defined (ERROR_CHECK_MALLOC) && \
1449 !defined (HAVE_LIBMCHECK)
1451 /* Prior to XEmacs 21, this was `#if 0'ed out. -slb */
1452 #if defined (LOSING_GCC_DESTRUCTOR_FREE_BUG)
1453 syms_of_free_hook ();
1457 syms_of_tooltalk ();
1469 syms_of_gpmevent ();
1472 #ifdef HAVE_POSTGRESQL
1473 syms_of_postgresql ();
1476 /* Now create the subtypes for the types that have them.
1477 We do this before the vars_*() because more symbols
1478 may get initialized here. */
1480 /* Now initialize the console types and associated symbols.
1481 Other than the first function below, the functions may
1482 make exactly the following function/macro calls:
1484 INITIALIZE_CONSOLE_TYPE()
1485 CONSOLE_HAS_METHOD()
1487 For any given console type, the former macro must be called
1488 before the any calls to the latter macro. */
1490 console_type_create ();
1492 console_type_create_stream ();
1495 console_type_create_tty ();
1496 console_type_create_device_tty ();
1497 console_type_create_frame_tty ();
1498 console_type_create_objects_tty ();
1499 console_type_create_redisplay_tty ();
1503 console_type_create_gtk ();
1504 console_type_create_select_gtk ();
1505 console_type_create_device_gtk ();
1506 console_type_create_frame_gtk ();
1507 console_type_create_objects_gtk ();
1508 console_type_create_glyphs_gtk ();
1509 console_type_create_redisplay_gtk ();
1510 #ifdef HAVE_MENUBARS
1511 console_type_create_menubar_gtk ();
1513 #ifdef HAVE_SCROLLBARS
1514 console_type_create_scrollbar_gtk ();
1516 #ifdef HAVE_TOOLBARS
1517 console_type_create_toolbar_gtk ();
1520 console_type_create_dialog_gtk ();
1522 #endif /* HAVE_GTK */
1524 #ifdef HAVE_X_WINDOWS
1525 console_type_create_x ();
1526 console_type_create_device_x ();
1527 console_type_create_frame_x ();
1528 console_type_create_glyphs_x ();
1529 console_type_create_select_x ();
1530 #ifdef HAVE_MENUBARS
1531 console_type_create_menubar_x ();
1533 console_type_create_objects_x ();
1534 console_type_create_redisplay_x ();
1535 #ifdef HAVE_SCROLLBARS
1536 console_type_create_scrollbar_x ();
1538 #ifdef HAVE_TOOLBARS
1539 console_type_create_toolbar_x ();
1542 console_type_create_dialog_x ();
1544 #endif /* HAVE_X_WINDOWS */
1546 #ifdef HAVE_MS_WINDOWS
1547 console_type_create_mswindows ();
1548 console_type_create_device_mswindows ();
1549 console_type_create_frame_mswindows ();
1550 console_type_create_objects_mswindows ();
1551 console_type_create_redisplay_mswindows ();
1552 console_type_create_glyphs_mswindows ();
1553 console_type_create_select_mswindows ();
1554 # ifdef HAVE_SCROLLBARS
1555 console_type_create_scrollbar_mswindows ();
1557 #ifdef HAVE_MENUBARS
1558 console_type_create_menubar_mswindows ();
1560 #ifdef HAVE_TOOLBARS
1561 console_type_create_toolbar_mswindows ();
1564 console_type_create_dialog_mswindows ();
1568 /* Now initialize the specifier types and associated symbols.
1569 Other than the first function below, the functions may
1570 make exactly the following function/macro calls:
1572 INITIALIZE_SPECIFIER_TYPE()
1573 SPECIFIER_HAS_METHOD()
1575 For any given specifier type, the former macro must be called
1576 before the any calls to the latter macro. */
1578 specifier_type_create ();
1580 specifier_type_create_image ();
1581 specifier_type_create_gutter ();
1582 specifier_type_create_objects ();
1583 #ifdef HAVE_TOOLBARS
1584 specifier_type_create_toolbar ();
1587 /* Now initialize the structure types and associated symbols.
1588 Other than the first function below, the functions may
1589 make exactly the following function/macro calls:
1591 define_structure_type()
1592 define_structure_type_keyword()
1596 structure_type_create ();
1598 structure_type_create_chartab ();
1599 structure_type_create_faces ();
1600 structure_type_create_rangetab ();
1601 structure_type_create_hash_table ();
1603 /* Now initialize the image instantiator formats and associated symbols.
1604 Other than the first function below, the functions may
1605 make exactly the following function/macro calls:
1607 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT()
1608 IIFORMAT_HAS_METHOD()
1609 IIFORMAT_VALID_KEYWORD()
1611 For any given image instantiator format, the first macro must be
1612 called before the any calls to the other macros. */
1614 image_instantiator_format_create ();
1615 image_instantiator_format_create_glyphs_eimage ();
1616 image_instantiator_format_create_glyphs_widget ();
1618 image_instantiator_format_create_glyphs_tty ();
1620 #ifdef HAVE_X_WINDOWS
1621 image_instantiator_format_create_glyphs_x ();
1622 #endif /* HAVE_X_WINDOWS */
1623 #ifdef HAVE_MS_WINDOWS
1624 image_instantiator_format_create_glyphs_mswindows ();
1625 #endif /* HAVE_MSWINDOWS_WINDOWS */
1627 image_instantiator_format_create_glyphs_gtk ();
1630 /* Now initialize the lstream types and associated symbols.
1631 Other than the first function below, the functions may
1632 make exactly the following function/macro calls:
1634 LSTREAM_HAS_METHOD()
1638 lstream_type_create ();
1640 lstream_type_create_file_coding ();
1642 #if defined (HAVE_MS_WINDOWS) && !defined(HAVE_MSG_SELECT)
1643 lstream_type_create_mswindows_selectable ();
1646 /* Initialize processes implementation.
1647 The functions may make exactly the following function/macro calls:
1649 PROCESS_HAS_METHOD()
1651 #ifdef HAVE_UNIX_PROCESSES
1652 process_type_create_unix ();
1654 #ifdef HAVE_WIN32_PROCESSES
1655 process_type_create_nt ();
1658 /* Now initialize most variables.
1660 These functions may do exactly the following:
1673 defsymbol(), if it's absolutely necessary and you're sure that
1674 the symbol isn't referenced anywhere else in the initialization
1676 Fset() on a symbol that is unbound
1677 assigning a symbol or constant value to a variable
1678 using a global variable that has been initialized
1679 earlier on in the same function
1681 Any of the object-creating functions in alloc.c: e.g.
1694 perhaps a few others.
1696 NB: Initialization or assignment should not be done here to certain
1697 variables settable from the command line. See the comment above
1698 the call to pdump_load() in main_1(). This caveat should only
1699 apply to vars_of_emacs().
1702 /* Now allow Fprovide() statements to be made. */
1703 init_provide_once ();
1705 /* Do that before any specifier creation (esp. vars_of_glyphs()) */
1706 vars_of_specifier ();
1711 vars_of_bytecode ();
1713 vars_of_callproc ();
1723 vars_of_console_stream ();
1730 #ifdef HAVE_DRAGNDROP
1731 vars_of_dragdrop ();
1738 #ifdef HAVE_X_WINDOWS
1739 vars_of_event_Xt ();
1741 #if defined(HAVE_TTY) && (defined (DEBUG_TTY_EVENT_STREAM) || !defined (HAVE_X_WINDOWS))
1742 vars_of_event_tty ();
1744 #ifdef HAVE_MS_WINDOWS
1745 vars_of_event_mswindows ();
1747 vars_of_event_stream ();
1753 #ifdef CLASH_DETECTION
1754 vars_of_filelock ();
1756 vars_of_floatfns ();
1757 vars_of_font_lock ();
1760 vars_of_glyphs_eimage ();
1761 vars_of_glyphs_widget ();
1769 vars_of_input_method_motif ();
1770 #else /* XIM_XLIB */
1771 vars_of_input_method_xlib ();
1773 #endif /* HAVE_XIM */
1779 #ifdef HAVE_DATABASE
1780 vars_of_database ();
1782 #ifdef HAVE_MENUBARS
1796 #ifndef NO_SUBPROCESSES
1798 #ifdef HAVE_UNIX_PROCESSES
1799 vars_of_process_unix ();
1801 #ifdef HAVE_WIN32_PROCESSES
1802 vars_of_process_nt ();
1807 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
1809 #endif /* HAVE_MMAP && REL_ALLOC */
1810 vars_of_redisplay ();
1811 #ifdef HAVE_SCROLLBARS
1812 vars_of_scrollbar ();
1819 #ifdef HAVE_TOOLBARS
1826 vars_of_console_tty ();
1827 vars_of_frame_tty ();
1828 vars_of_objects_tty ();
1832 vars_of_device_gtk ();
1834 vars_of_dialog_gtk ();
1836 vars_of_event_gtk ();
1837 vars_of_frame_gtk ();
1838 vars_of_glyphs_gtk ();
1840 #ifdef HAVE_MENUBARS
1841 vars_of_menubar_gtk ();
1843 vars_of_objects_gtk ();
1844 vars_of_select_gtk ();
1845 #ifdef HAVE_SCROLLBARS
1846 vars_of_scrollbar_gtk ();
1848 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1851 #endif /* HAVE_GTK */
1853 #ifdef HAVE_X_WINDOWS
1854 #ifdef HAVE_BALLOON_HELP
1855 vars_of_balloon_x ();
1857 vars_of_device_x ();
1859 vars_of_dialog_x ();
1862 vars_of_glyphs_x ();
1863 #ifdef HAVE_MENUBARS
1864 vars_of_menubar_x ();
1866 vars_of_objects_x ();
1867 vars_of_select_x ();
1868 #ifdef HAVE_SCROLLBARS
1869 vars_of_scrollbar_x ();
1871 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1874 #endif /* HAVE_X_WINDOWS */
1877 #ifdef HAVE_MS_WINDOWS
1878 vars_of_device_mswindows ();
1879 vars_of_console_mswindows ();
1880 vars_of_frame_mswindows ();
1881 vars_of_objects_mswindows ();
1882 vars_of_select_mswindows ();
1883 vars_of_glyphs_mswindows ();
1884 #ifdef HAVE_SCROLLBARS
1885 vars_of_scrollbar_mswindows ();
1887 #ifdef HAVE_MENUBARS
1888 vars_of_menubar_mswindows ();
1890 #ifdef HAVE_MSW_C_DIRED
1891 vars_of_dired_mswindows ();
1894 vars_of_dialog_mswindows ();
1896 #endif /* HAVE_MS_WINDOWS */
1900 vars_of_mule_ccl ();
1901 vars_of_mule_charset ();
1904 vars_of_file_coding ();
1908 vars_of_mule_wnn ();
1911 vars_of_mule_canna ();
1912 #endif /* HAVE_CANNA */
1916 vars_of_tooltalk ();
1927 #ifdef HAVE_POSTGRESQL
1928 vars_of_postgresql();
1932 vars_of_gpmevent ();
1935 /* Now initialize any specifier variables. We do this later
1936 because it has some dependence on the vars initialized
1939 These functions should *only* initialize specifier variables,
1940 and may make use of the following functions/macros in addition
1941 to the ones listed above:
1945 set_specifier_fallback()
1946 set_specifier_caching()
1949 specifier_vars_of_glyphs ();
1950 specifier_vars_of_gutter ();
1951 #ifdef HAVE_MENUBARS
1952 specifier_vars_of_menubar ();
1954 specifier_vars_of_redisplay ();
1955 #ifdef HAVE_SCROLLBARS
1956 specifier_vars_of_scrollbar ();
1958 #ifdef HAVE_TOOLBARS
1959 specifier_vars_of_toolbar ();
1961 specifier_vars_of_window ();
1963 /* Now comes all the rest of the variables that couldn't
1964 be handled above. There may be dependencies on variables
1965 initialized above, and dependencies between one complex_vars_()
1966 function and another. */
1968 /* Calls Fmake_range_table(). */
1969 complex_vars_of_regex ();
1970 /* Calls Fmake_range_table(). */
1971 complex_vars_of_search ();
1973 /* Calls make_lisp_hash_table(). */
1974 complex_vars_of_extents ();
1976 /* Depends on hash tables and specifiers. */
1977 complex_vars_of_faces ();
1980 /* These two depend on hash tables and various variables declared
1981 earlier. The second may also depend on the first. */
1982 complex_vars_of_mule_charset ();
1985 complex_vars_of_file_coding ();
1988 /* This calls allocate_glyph(), which creates specifiers
1989 and also relies on a variable (Vthe_nothing_vector) initialized
1990 above. It also calls make_ext_string(), which under Mule
1991 could require that the charsets be initialized. */
1992 complex_vars_of_glyphs ();
1994 /* These rely on the glyphs just created in the previous function,
1995 and call Fadd_spec_to_specifier(), which relies on various
1996 variables initialized above. */
1998 complex_vars_of_glyphs_gtk ();
2000 #ifdef HAVE_X_WINDOWS
2001 complex_vars_of_glyphs_x ();
2003 #ifdef HAVE_MS_WINDOWS
2004 complex_vars_of_glyphs_mswindows ();
2007 /* This calls Fmake_glyph_internal(). */
2008 complex_vars_of_alloc ();
2010 /* This calls Fmake_glyph_internal(). */
2011 #ifdef HAVE_MENUBARS
2012 complex_vars_of_menubar ();
2015 /* This calls Fmake_glyph_internal(). */
2016 #ifdef HAVE_SCROLLBARS
2017 complex_vars_of_scrollbar ();
2020 /* This calls allocate_glyph(). */
2021 complex_vars_of_frame ();
2023 /* This calls Fcopy_category_table() under Mule, which calls who
2025 complex_vars_of_chartab ();
2027 /* This calls set_string_char(), which (under Mule) depends on the
2028 charsets being initialized. */
2029 complex_vars_of_casetab ();
2031 /* This calls Fcopy_syntax_table(), which relies on char tables. */
2032 complex_vars_of_syntax ();
2034 /* This initializes buffer-local variables, sets things up so
2035 that buffers can be created, and creates a couple of basic
2036 buffers. This depends on Vstandard_syntax_table and
2037 Vstandard_category_table (initialized in the previous
2038 functions), as well as a whole horde of variables that may
2039 have been initialized above. */
2040 complex_vars_of_buffer ();
2042 /* This initializes console-local variables. */
2043 complex_vars_of_console ();
2045 /* This creates a couple more buffers, and depends on the
2046 previous function. */
2047 complex_vars_of_minibuf ();
2049 /* These two might call Ffile_name_as_directory(), which
2050 might depend on all sorts of things; I'm not sure. */
2051 complex_vars_of_emacs ();
2053 /* This creates a couple of basic keymaps and depends on Lisp
2054 hash tables and Ffset() (both of which depend on some variables
2055 initialized in the vars_of_*() section) and possibly other
2057 complex_vars_of_keymap ();
2059 /* Calls make_lisp_hash_table() and creates a keymap */
2060 complex_vars_of_event_stream ();
2062 #ifdef ERROR_CHECK_GC
2064 extern int always_gc;
2065 if (always_gc) /* purification debugging hack */
2066 garbage_collect_1 ();
2070 } else if (!restart) { /* after successful pdump_load() */
2071 reinit_alloc_once_early ();
2072 reinit_symbols_once_early ();
2073 reinit_opaque_once_early ();
2075 reinit_console_type_create_stream ();
2077 reinit_console_type_create_tty ();
2079 #ifdef HAVE_X_WINDOWS
2080 reinit_console_type_create_x ();
2081 reinit_console_type_create_device_x ();
2083 #ifdef HAVE_MS_WINDOWS
2084 reinit_console_type_create_mswindows ();
2087 reinit_console_type_create_gtk ();
2090 reinit_specifier_type_create ();
2091 reinit_specifier_type_create_image ();
2092 reinit_specifier_type_create_gutter ();
2093 reinit_specifier_type_create_objects ();
2094 #ifdef HAVE_TOOLBARS
2095 reinit_specifier_type_create_toolbar ();
2098 structure_type_create ();
2100 structure_type_create_chartab ();
2101 structure_type_create_faces ();
2102 structure_type_create_rangetab ();
2103 structure_type_create_hash_table ();
2105 lstream_type_create ();
2107 lstream_type_create_file_coding ();
2109 #if defined (HAVE_MS_WINDOWS) && !defined(HAVE_MSG_SELECT)
2110 lstream_type_create_mswindows_selectable ();
2112 #ifdef HAVE_UNIX_PROCESSES
2113 process_type_create_unix ();
2115 #ifdef HAVE_WIN32_PROCESSES
2116 process_type_create_nt ();
2119 reinit_vars_of_buffer ();
2120 reinit_vars_of_console ();
2122 reinit_vars_of_debug ();
2124 reinit_vars_of_device ();
2125 reinit_vars_of_eval ();
2126 #ifdef HAVE_X_WINDOWS
2127 reinit_vars_of_event_Xt ();
2130 reinit_vars_of_event_gtk ();
2132 #if defined(HAVE_TTY) && (defined (DEBUG_TTY_EVENT_STREAM) || !defined (HAVE_X_WINDOWS))
2133 reinit_vars_of_event_tty ();
2135 #ifdef HAVE_MS_WINDOWS
2136 reinit_vars_of_event_mswindows ();
2138 reinit_vars_of_event_stream ();
2139 reinit_vars_of_events ();
2140 reinit_vars_of_extents ();
2141 reinit_vars_of_fileio ();
2142 reinit_vars_of_font_lock ();
2143 reinit_vars_of_glyphs ();
2144 reinit_vars_of_glyphs_widget ();
2145 reinit_vars_of_insdel ();
2146 reinit_vars_of_lread ();
2147 reinit_vars_of_lstream ();
2148 reinit_vars_of_minibuf ();
2150 reinit_vars_of_module ();
2152 reinit_vars_of_objects ();
2153 reinit_vars_of_print ();
2154 reinit_vars_of_search ();
2155 reinit_vars_of_undo ();
2156 reinit_vars_of_window ();
2158 #ifdef HAVE_MS_WINDOWS
2159 reinit_vars_of_frame_mswindows ();
2163 reinit_vars_of_menubar_gtk ();
2166 #ifdef HAVE_X_WINDOWS
2167 reinit_vars_of_device_x ();
2168 #ifdef HAVE_SCROLLBARS
2169 reinit_vars_of_scrollbar_x ();
2171 #ifdef HAVE_MENUBARS
2172 reinit_vars_of_menubar_x ();
2174 reinit_vars_of_select_x ();
2175 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
2176 reinit_vars_of_gui_x ();
2178 #endif /* HAVE_X_WINDOWS */
2180 #if defined(MULE) && defined(HAVE_WNN)
2181 reinit_vars_of_mule_wnn ();
2184 reinit_complex_vars_of_buffer ();
2185 reinit_complex_vars_of_console ();
2186 reinit_complex_vars_of_minibuf ();
2191 /* CONGRATULATIONS!!! We have successfully initialized the Lisp
2196 /* Stuff that should not be done at dump time, including stuff that
2197 needs to be reset at run time. Order below should not matter.
2199 Many initializations taken from the environment should go here. */
2203 reinit_mule_category ();
2205 #ifdef HAVE_POSTGRESQL
2206 init_postgresql_from_environment();
2210 /* Now do further initialization/setup of stuff that is not needed by the
2211 syms_of_() routines. This involves stuff that only is enabled in
2212 an interactive run (redisplay, user input, etc.) and stuff that is
2213 not needed until we start loading Lisp code (the reader). A lot
2214 of this stuff involves querying the current environment and needs
2215 to be done both at dump time and at run time. */
2217 init_initial_directory(); /* get the directory to use for the
2218 "*scratch*" buffer, etc. */
2222 * For Win32, call init_environment() now, so that environment/registry
2223 * variables will be properly entered into Vprocess_environment.
2228 init_callproc (); /* Set up the process environment (so that egetenv
2229 works), the basic directory variables
2230 (exec-directory and so on), and stuff
2231 related to subprocesses. This should be
2232 first because many of the functions below
2233 call egetenv() to get environment variables. */
2234 init_lread (); /* Set up the Lisp reader. */
2235 init_cmdargs (argc, (Extbyte **) argv,
2236 skip_args); /* Create list Vcommand_line_args */
2237 init_buffer (); /* Set default directory of *scratch* buffer */
2243 init_redisplay (); /* Determine terminal type.
2244 init_sys_modes uses results */
2246 init_event_stream (); /* Set up so we can get user input. */
2247 init_macros (); /* set up so we can run macros. */
2248 init_editfns (); /* Determine the name of the user we're running as */
2249 init_xemacs_process (); /* set up for calling subprocesses */
2251 init_sunpro (); /* Set up Sunpro usage tracking */
2253 #if defined (WIN32_NATIVE) || defined (CYGWIN)
2256 #if defined (HAVE_NATIVE_SOUND) && defined (hp9000s800)
2262 init_console_stream (restart); /* Create the first console */
2264 /* try to get the actual pathname of the exec file we are running */
2267 Vinvocation_name = Fcar (Vcommand_line_args);
2268 if (XSTRING_DATA(Vinvocation_name)[0] == '-')
2270 /* XEmacs as a login shell, oh goody! */
2271 Vinvocation_name = build_string(getenv("SHELL"));
2273 Vinvocation_directory = Vinvocation_name;
2275 if (!NILP (Ffile_name_directory (Vinvocation_name)))
2277 /* invocation-name includes a directory component -- presumably it
2278 is relative to cwd, not $PATH */
2279 Vinvocation_directory = Fexpand_file_name (Vinvocation_name,
2281 Vinvocation_path = Qnil;
2285 Vinvocation_path = decode_env_path ("PATH", NULL);
2286 locate_file (Vinvocation_path, Vinvocation_name,
2287 Vlisp_EXEC_SUFFIXES,
2288 &Vinvocation_directory, X_OK);
2291 if (NILP (Vinvocation_directory))
2292 Vinvocation_directory = Vinvocation_name;
2294 Vinvocation_name = Ffile_name_nondirectory (Vinvocation_directory);
2295 Vinvocation_directory = Ffile_name_directory (Vinvocation_directory);
2298 #if defined(HAVE_SHLIB) && !defined(WIN32_NATIVE)
2299 /* This is Unix only. MS Windows NT has a library call that does
2300 The Right Thing on that system. Rumor has it, this must be
2301 called for GNU dld in temacs and xemacs. */
2303 char *buf = (char *)alloca (XSTRING_LENGTH (Vinvocation_directory)
2304 + XSTRING_LENGTH (Vinvocation_name)
2306 sprintf (buf, "%s/%s", XSTRING_DATA (Vinvocation_directory),
2307 XSTRING_DATA (Vinvocation_name));
2309 /* All we can do is cry if an error happens, so ignore it. */
2310 (void) dll_init (buf);
2314 #if defined (LOCALTIME_CACHE) && defined (HAVE_TZSET)
2315 /* sun's localtime() has a bug. it caches the value of the time
2316 zone rather than looking it up every time. Since localtime() is
2317 called to bolt the undumping time into the undumped emacs, this
2318 results in localtime() ignoring the TZ environment variable.
2319 This flushes the new TZ value into localtime(). */
2321 #endif /* LOCALTIME_CACHE and TZSET */
2326 /* Handle -l loadup-and-dump, args passed by Makefile. */
2327 if (argc > 2 + skip_args && !strcmp (argv[1 + skip_args], "-l"))
2328 load_me = build_string (argv[2 + skip_args]);
2329 #if 0 /* CANNOT_DUMP - this can never be right in XEmacs --andyp */
2330 /* Unless next switch is -nl, load "loadup.el" first thing. */
2331 if (!(argc > 1 + skip_args && !strcmp (argv[1 + skip_args], "-nl")))
2332 load_me = build_string ("loadup.el");
2333 #endif /* CANNOT_DUMP */
2338 quantify_start_recording_data ();
2339 #endif /* QUANTIFY */
2343 /* This never returns. */
2344 initial_command_loop (load_me);
2349 /* Sort the args so we can find the most important ones
2350 at the beginning of argv. */
2352 /* First, here's a table of all the standard options. */
2354 struct standard_args
2357 const char *longname;
2362 static const struct standard_args standard_args[] =
2364 /* Handled by main_1 above: */
2365 { "-sd", "--show-dump-id", 105, 0 },
2366 { "-t", "--terminal", 100, 1 },
2367 { "-nd", "--no-dump-file", 95, 0 },
2368 { "-nw", "--no-windows", 90, 0 },
2369 { "-batch", "--batch", 85, 0 },
2370 { "-debug-paths", "--debug-paths", 82, 0 },
2371 { "-help", "--help", 80, 0 },
2372 { "-version", "--version", 75, 0 },
2374 { "-d", "--display", 80, 1 },
2375 { "-display", 0, 80, 1 },
2376 { "-NXHost", 0, 79, 0 },
2377 { "-MachLaunch", 0, 79, 0},
2379 /* Handled by command-line-early in startup.el: */
2380 { "-q", "--no-init-file", 50, 0 },
2381 { "-unmapped", 0, 50, 0 },
2382 { "-no-init-file", 0, 50, 0 },
2383 { "-vanilla", "--vanilla", 50, 0 },
2384 { "-no-autoloads", "--no-autoloads", 50, 0 },
2385 { "-no-site-file", "--no-site-file", 40, 0 },
2386 { "-no-early-packages", "--no-early-packages", 35, 0 },
2387 { "-u", "--user", 30, 1 },
2388 { "-user", 0, 30, 1 },
2389 { "-debug-init", "--debug-init", 20, 0 },
2390 { "-debug-paths", "--debug-paths", 20, 0 },
2393 { "-i", "--icon-type", 15, 0 },
2394 { "-itype", 0, 15, 0 },
2395 { "-iconic", "--iconic", 15, 0 },
2396 { "-bg", "--background-color", 10, 1 },
2397 { "-background", 0, 10, 1 },
2398 { "-fg", "--foreground-color", 10, 1 },
2399 { "-foreground", 0, 10, 1 },
2400 { "-bd", "--border-color", 10, 1 },
2401 { "-bw", "--border-width", 10, 1 },
2402 { "-ib", "--internal-border", 10, 1 },
2403 { "-ms", "--mouse-color", 10, 1 },
2404 { "-cr", "--cursor-color", 10, 1 },
2405 { "-fn", "--font", 10, 1 },
2406 { "-font", 0, 10, 1 },
2407 { "-g", "--geometry", 10, 1 },
2408 { "-geometry", 0, 10, 1 },
2409 { "-T", "--title", 10, 1 },
2410 { "-title", 0, 10, 1 },
2411 { "-name", "--name", 10, 1 },
2412 { "-xrm", "--xrm", 10, 1 },
2413 { "-r", "--reverse-video", 5, 0 },
2415 { "-reverse", 0, 5, 0 },
2416 { "-hb", "--horizontal-scroll-bars", 5, 0 },
2417 { "-vb", "--vertical-scroll-bars", 5, 0 },
2419 /* These have the same priority as ordinary file name args,
2420 so they are not reordered with respect to those. */
2421 { "-L", "--directory", 0, 1 },
2422 { "-directory", 0, 0, 1 },
2423 { "-l", "--load", 0, 1 },
2424 { "-load", 0, 0, 1 },
2425 { "-f", "--funcall", 0, 1 },
2426 { "-funcall", 0, 0, 1 },
2427 { "-eval", "--eval", 0, 1 },
2428 { "-insert", "--insert", 0, 1 },
2429 /* This should be processed after ordinary file name args and the like. */
2430 { "-kill", "--kill", -10, 0 },
2433 /* Reorder the elements of ARGV (assumed to have ARGC elements)
2434 so that the highest priority ones come first.
2435 Do not change the order of elements of equal priority.
2436 If an option takes an argument, keep it and its argument together. */
2439 sort_args (int argc, char **argv)
2441 char **new_argv = xnew_array (char *, argc);
2442 /* For each element of argv,
2443 the corresponding element of options is:
2444 0 for an option that takes no arguments,
2445 1 for an option that takes one argument, etc.
2446 -1 for an ordinary non-option argument. */
2447 int *options = xnew_array (int, argc);
2448 int *priority = xnew_array (int, argc);
2452 int end_of_options_p = 0;
2454 /* Categorize all the options,
2455 and figure out which argv elts are option arguments. */
2456 for (from = 1; from < argc; from++)
2460 /* Pseudo options "--" and "run-temacs" indicate end of options */
2461 if (!strcmp (argv[from], "--") ||
2462 !strcmp (argv[from], "run-temacs"))
2463 end_of_options_p = 1;
2464 if (!end_of_options_p && argv[from][0] == '-')
2469 /* Look for a match with a known old-fashioned option. */
2470 for (i = 0; i < countof (standard_args); i++)
2471 if (!strcmp (argv[from], standard_args[i].name))
2473 options[from] = standard_args[i].nargs;
2474 priority[from] = standard_args[i].priority;
2475 if (from + standard_args[i].nargs >= argc)
2476 fatal ("Option `%s' requires an argument\n", argv[from]);
2477 from += standard_args[i].nargs;
2481 /* Look for a match with a known long option.
2482 MATCH is -1 if no match so far, -2 if two or more matches so far,
2483 >= 0 (the table index of the match) if just one match so far. */
2484 if (argv[from][1] == '-')
2487 thislen = strlen (argv[from]);
2488 equals = strchr (argv[from], '=');
2490 thislen = equals - argv[from];
2492 for (i = 0; i < countof (standard_args); i++)
2493 if (standard_args[i].longname
2494 && !strncmp (argv[from], standard_args[i].longname,
2503 /* If we found exactly one match, use that. */
2506 options[from] = standard_args[match].nargs;
2507 priority[from] = standard_args[match].priority;
2508 /* If --OPTION=VALUE syntax is used,
2509 this option uses just one argv element. */
2512 if (from + options[from] >= argc)
2513 fatal ("Option `%s' requires an argument\n", argv[from]);
2514 from += options[from];
2521 /* Copy the arguments, in order of decreasing priority, to NEW_ARGV. */
2522 new_argv[0] = argv[0];
2526 int best_priority = -9999;
2528 /* Find the highest priority remaining option.
2529 If several have equal priority, take the first of them. */
2530 for (from = 1; from < argc; from++)
2532 if (argv[from] != 0 && priority[from] > best_priority)
2534 best_priority = priority[from];
2537 /* Skip option arguments--they are tied to the options. */
2538 if (options[from] > 0)
2539 from += options[from];
2545 /* Copy the highest priority remaining option, with its args, to NEW_ARGV. */
2546 new_argv[to++] = argv[best];
2547 for (i = 0; i < options[best]; i++)
2548 new_argv[to++] = argv[best + i + 1];
2550 /* Clear out this option in ARGV. */
2552 for (i = 0; i < options[best]; i++)
2553 argv[best + i + 1] = 0;
2556 memcpy (argv, new_argv, sizeof (char *) * argc);
2562 DEFUN ("running-temacs-p", Frunning_temacs_p, 0, 0, 0, /*
2563 True if running temacs. This means we are in the dumping stage.
2564 This is false during normal execution of the `xemacs' program, and
2565 becomes false once `run-emacs-from-temacs' is run.
2569 return run_temacs_argc >= 0 ? Qt : Qnil;
2572 DEFUN ("run-emacs-from-temacs", Frun_emacs_from_temacs, 0, MANY, 0, /*
2573 Do not call this. It will reinitialize your XEmacs. You'll be sorry.
2575 /* If this function is called from startup.el, it will be possible to run
2576 temacs as an editor using 'temacs -batch -l loadup.el run-temacs', instead
2577 of having to dump an emacs and then run that (when debugging emacs itself,
2578 this can be much faster)). [Actually, the speed difference isn't that
2579 much as long as your filesystem is local, and you don't end up with
2580 a dumped version in case you want to rerun it. This function is most
2581 useful when used as part of the `make all-elc' command. --ben]
2582 This will "restart" emacs with the specified command-line arguments.
2584 Martin thinks this function is most useful when using debugging
2585 tools like Purify or tcov that get confused by XEmacs' dumping. */
2586 (int nargs, Lisp_Object *args))
2589 const Extbyte *wampum;
2592 Lisp_Object orig_invoc_name = Fcar (Vcommand_line_args);
2593 const Extbyte **wampum_all = alloca_array (const Extbyte *, nargs);
2594 int *wampum_all_len = alloca_array (int, nargs);
2596 assert (!gc_in_progress);
2598 if (run_temacs_argc < 0)
2599 error ("I've lost my temacs-hood.");
2601 /* Need to convert the orig_invoc_name and all of the arguments
2602 to external format. */
2604 TO_EXTERNAL_FORMAT (LISP_STRING, orig_invoc_name,
2605 ALLOCA, (wampum, namesize),
2609 for (ac = 0, total_len = namesize; ac < nargs; ac++)
2611 CHECK_STRING (args[ac]);
2612 TO_EXTERNAL_FORMAT (LISP_STRING, args[ac],
2613 ALLOCA, (wampum_all[ac], wampum_all_len[ac]),
2615 wampum_all_len[ac]++;
2616 total_len += wampum_all_len[ac];
2618 DO_REALLOC (run_temacs_args, run_temacs_args_size, total_len, char);
2619 DO_REALLOC (run_temacs_argv, run_temacs_argv_size, nargs+2, char *);
2621 memcpy (run_temacs_args, wampum, namesize);
2622 run_temacs_argv [0] = run_temacs_args;
2623 for (ac = 0; ac < nargs; ac++)
2625 memcpy (run_temacs_args + namesize,
2626 wampum_all[ac], wampum_all_len[ac]);
2627 run_temacs_argv [ac + 1] = run_temacs_args + namesize;
2628 namesize += wampum_all_len[ac];
2630 run_temacs_argv [nargs + 1] = 0;
2631 catchlist = NULL; /* Important! Otherwise free_cons() calls in
2632 condition_case_unwind() may lead to GC death. */
2633 unbind_to (0, Qnil); /* this closes loadup.el */
2635 run_temacs_argc = nargs + 1;
2636 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
2637 report_sheap_usage (0);
2639 LONGJMP (run_temacs_catch, 1);
2640 return Qnil; /* not reached; warning suppression */
2645 main (int argc, char **argv, char **envp)
2649 /* Under VC++, access violations and the like are not sent through
2650 the standard signal() mechanism. Rather, they need to be handled
2651 using the Microsoft "structured exception handling" mechanism,
2652 which vaguely resembles the C++ mechanisms. */
2657 int volatile vol_argc = argc;
2658 char ** volatile vol_argv = argv;
2659 char ** volatile vol_envp = envp;
2660 /* This is hairy. We need to compute where the XEmacs binary was invoked
2661 from because temacs initialization requires it to find the lisp
2662 directories. The code that recomputes the path is guarded by the
2663 restarted flag. There are three possible paths I've found so far
2666 temacs -- When running temacs for basic build stuff, the first main_1
2667 will be the only one invoked. It must compute the path else there
2668 will be a very ugly bomb in startup.el (can't find obvious location
2669 for doc-directory data-directory, etc.).
2671 temacs w/ run-temacs on the command line -- This is run to bytecompile
2672 all the out of date dumped lisp. It will execute both of the main_1
2673 calls and the second one must not touch the first computation because
2674 argc/argv are hosed the second time through.
2676 xemacs -- Only the second main_1 is executed. The invocation path must
2677 computed but this only matters when running in place or when running
2680 As a bonus for straightening this out, XEmacs can now be run in place
2681 as a login shell. This never used to work.
2683 As another bonus, we can now guarantee that
2684 (concat invocation-directory invocation-name) contains the filename
2685 of the XEmacs binary we are running. This can now be used in a
2686 definite test for out of date dumped files. -slb */
2689 quantify_stop_recording_data ();
2690 quantify_clear_data ();
2691 #endif /* QUANTIFY */
2693 suppress_early_error_handler_backtrace = 0;
2694 lim_data = 0; /* force reinitialization of this variable */
2696 /* Lisp_Object must fit in a word; check VALBITS and GCTYPEBITS */
2697 assert (sizeof (Lisp_Object) == sizeof (void *));
2699 #ifdef LINUX_SBRK_BUG
2705 #ifdef DOUG_LEA_MALLOC
2706 mallopt (M_MMAP_MAX, 0);
2708 run_temacs_argc = 0;
2709 if (! SETJMP (run_temacs_catch))
2711 main_1 (vol_argc, vol_argv, vol_envp, 0);
2713 /* run-emacs-from-temacs called */
2715 vol_argc = run_temacs_argc;
2716 vol_argv = run_temacs_argv;
2718 /* This makes absolutely no sense to anyone involved. There are
2719 several people using this stuff. We've compared versions on
2720 everything we can think of. We can find no difference.
2721 However, on both my systems environ is a plain old global
2722 variable initialized to zero. _environ is the one that
2723 contains pointers to the actual environment.
2725 Since we can't figure out the difference (and we're hours
2726 away from a release), this takes a very cowardly approach and
2727 is bracketed with both a system specific preprocessor test
2728 and a runtime "do you have this problem" test
2730 06/20/96 robertl@dgii.com */
2732 extern char **_environ;
2733 if ((unsigned) environ == 0)
2736 #endif /* _SCO_DS */
2739 #if defined (RUN_TIME_REMAP) && ! defined (PDUMP)
2741 /* obviously no-one uses this because where it was before initialized was
2743 run_time_remap (argv[0]);
2746 #ifdef DOUG_LEA_MALLOC
2747 if (initialized && (malloc_state_ptr != NULL))
2749 int rc = malloc_set_state (malloc_state_ptr);
2752 stderr_out ("malloc_set_state failed, rc = %d\n", rc);
2756 free (malloc_state_ptr);
2758 /* mmap works in glibc-2.1, glibc-2.0 (Non-Mule only) and Linux libc5 */
2759 #if (defined(__GLIBC__) && __GLIBC_MINOR__ >= 1) || \
2760 defined(_NO_MALLOC_WARNING_) || \
2761 (defined(__GLIBC__) && __GLIBC_MINOR__ < 1 && !defined(MULE)) || \
2762 defined(DEBUG_DOUG_LEA_MALLOC)
2763 mallopt (M_MMAP_MAX, 64);
2769 #endif /* DOUG_LEA_MALLOC */
2771 run_temacs_argc = -1;
2773 main_1 (vol_argc, vol_argv, vol_envp, restarted);
2777 /* VC++ documentation says that
2778 GetExceptionCode() cannot be called inside the filter itself. */
2779 __except (mswindows_handle_hardware_exceptions (GetExceptionCode ())) {}
2782 return 0; /* unreached */
2786 /* Dumping apparently isn't supported by versions of GCC >= 2.8. */
2787 /* The following needs conditionalization on whether either XEmacs or */
2788 /* various system shared libraries have been built and linked with */
2789 /* GCC >= 2.8. -slb */
2790 #if defined(GNU_MALLOC)
2792 voodoo_free_hook (void *mem)
2794 /* Disable all calls to free() when XEmacs is exiting and it doesn't */
2797 #ifdef __GNUC__ /* prototype of __free_hook varies with glibc version */
2798 (__typeof__ (__free_hook))
2802 #endif /* GNU_MALLOC */
2804 DEFUN ("kill-emacs", Fkill_emacs, 0, 1, "P", /*
2805 Exit the XEmacs job and kill it. Ask for confirmation, without argument.
2806 If ARG is an integer, return ARG as the exit program code.
2807 If ARG is a string, stuff it as keyboard input.
2809 The value of `kill-emacs-hook', if not void,
2810 is a list of functions (of no args),
2811 all of which are called before XEmacs is actually killed.
2815 /* This function can GC */
2816 struct gcpro gcpro1;
2823 if (!preparing_for_armageddon && !noninteractive)
2824 run_hook (Qkill_emacs_hook);
2826 ensure_no_quitting_from_now_on ();
2828 if (!preparing_for_armageddon)
2830 Lisp_Object concons, nextcons;
2832 /* Normally, go ahead and delete all the consoles now.
2833 Some unmentionably lame window systems (MS Wwwww...... eek,
2834 I can't even say it) don't properly clean up after themselves,
2835 and even for those that do, it might be cleaner this way.
2836 If we're going down, however, we don't do this (might
2837 be too dangerous), and if we get a crash somewhere within
2838 this loop, we'll still autosave and won't try this again. */
2840 LIST_LOOP_DELETING (concons, nextcons, Vconsole_list)
2842 /* There is very little point in deleting the stream console.
2843 It uses stdio, which should flush any buffered output and
2844 something can only go wrong. -slb */
2845 /* I changed my mind. There's a stupid hack in close to add
2846 a trailing newline. */
2847 /*if (!CONSOLE_STREAM_P (XCONSOLE (XCAR (concons))))*/
2848 delete_console_internal (XCONSOLE (XCAR (concons)), 1, 1, 0);
2854 #ifdef HAVE_MS_WINDOWS
2855 /* If we displayed a message on the console, then we must allow the
2856 user to see this message. This may be unnecessary, but can't hurt,
2857 and we can't necessarily check arg; e.g. xemacs --help kills with
2859 if (mswindows_message_outputted)
2860 Fmswindows_message_box (build_string ("Messages outputted. XEmacs is exiting."),
2864 shut_down_emacs (0, STRINGP (arg) ? arg : Qnil, 0);
2866 #if defined(GNU_MALLOC)
2868 #ifdef __GNUC__ /* prototype of __free_hook varies with glibc version */
2869 (__typeof__ (__free_hook))
2874 exit (INTP (arg) ? XINT (arg) : 0);
2876 return Qnil; /* I'm sick of the compiler warning */
2879 /* Perform an orderly shutdown of XEmacs. Autosave any modified
2880 buffers, kill any child processes, clean up the terminal modes (if
2881 we're in the foreground), and other stuff like that. Don't perform
2882 any redisplay; this may be called when XEmacs is shutting down in
2883 the background, or after its X connection has died.
2885 If SIG is a signal number, print a message for it.
2887 This is called by fatal signal handlers and Fkill_emacs. It used to
2888 be called by X protocol error handlers, but instead they now call
2891 shut_down_emacs (int sig, Lisp_Object stuff, int no_auto_save)
2893 /* This function can GC */
2894 /* Prevent running of hooks and other non-essential stuff
2896 preparing_for_armageddon = 1;
2898 ensure_no_quitting_from_now_on ();
2901 quantify_stop_recording_data ();
2902 #endif /* QUANTIFY */
2904 /* This is absolutely the most important thing to do, so make sure
2905 we do it now, before anything else. We might have crashed and
2906 be in a weird inconsistent state, and potentially anything could
2907 set off another protection fault and cause us to bail out
2909 /* Steve writes the following:
2911 [[I'm not removing the code entirely, yet. We have run up against
2912 a spate of problems in diagnosing crashes due to crashes within
2913 crashes. It has very definitely been determined that code called
2914 during auto-saving cannot work if XEmacs crashed inside of GC.
2915 We already auto-save on an itimer so there cannot be too much
2916 unsaved stuff around, and if we get better crash reports we might
2917 be able to get more problems fixed so I'm disabling this. -slb]]
2919 and DISABLES AUTO-SAVING ENTIRELY during crashes! Way way bad idea.
2921 Instead let's just be more intelligent about avoiding crashing
2922 when possible, esp. nested crashes.
2925 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
2928 reset_all_consoles ();
2929 if (sig && sig != SIGTERM)
2932 stderr_out ("\nFatal error.\n\n");
2934 stderr_out ("\nFatal error (%d).\n\n", sig);
2936 ("Your files have been auto-saved.\n"
2937 "Use `M-x recover-session' to recover them.\n"
2939 "If you have access to the PROBLEMS file that came with your\n"
2940 "version of XEmacs, please check to see if your crash is described\n"
2941 "there, as there may be a workaround available.\n"
2943 "Otherwise, please report this bug by selecting `Report-Bug'\n"
2944 "in the InfoDock menu.\n"
2946 "Otherwise, please report this bug by running the send-pr\n"
2947 "script included with XEmacs, or selecting `Send Bug Report'\n"
2948 "from the help menu.\n"
2949 "As a last resort send ordinary email to `crashes@xemacs.org'.\n"
2951 "*MAKE SURE* to include the information in the command\n"
2952 "M-x describe-installation.\n"
2955 "If at all possible, *please* try to obtain a C stack backtrace;\n"
2956 "it will help us immensely in determining what went wrong.\n"
2957 "To do this, locate the core file that was produced as a result\n"
2958 "of this crash (it's usually called `core' and is located in the\n"
2959 "directory in which you started the editor, or maybe in your home\n"
2960 "directory), and type\n"
2970 /* Now try to determine the actual path to the executable,
2971 to try to make the backtrace-determination process as foolproof
2973 if (STRINGP (Vinvocation_name))
2974 name = (char *) XSTRING_DATA (Vinvocation_name);
2977 if (STRINGP (Vinvocation_directory))
2978 dir = (char *) XSTRING_DATA (Vinvocation_directory);
2979 if (!dir || dir[0] != '/')
2980 stderr_out ("`which %s`", name);
2981 else if (dir[strlen (dir) - 1] != '/')
2982 stderr_out ("%s/%s", dir, name);
2984 stderr_out ("%s%s", dir, name);
2988 "then type `where' when the debugger prompt comes up.\n"
2989 "(If you don't have GDB on your system, you might have DBX,\n"
2990 "or XDB, or SDB. A similar procedure should work for all of\n"
2991 "these. Ask your system administrator if you need more help.)\n");
2992 #endif /* _MSC_VER */
2995 stuff_buffered_input (stuff);
2997 kill_buffer_processes (Qnil);
2999 #ifdef CLASH_DETECTION
3000 unlock_all_files ();
3004 tt_session_quit (tt_default_session ());
3006 /* The following crashes when built on X11R5 and run on X11R6 */
3009 #endif /* TOOLTALK */
3016 #if !defined(PDUMP) || !defined(SYSTEM_MALLOC)
3017 extern char my_edata[];
3020 extern void disable_free_hook (void);
3022 DEFUN ("dump-emacs", Fdump_emacs, 2, 2, 0, /*
3023 Dump current state of XEmacs into executable file FILENAME.
3024 Take symbols from SYMFILE (presumably the file you executed to run XEmacs).
3025 This is used in the file `loadup.el' when building XEmacs.
3027 Remember to set `command-line-processed' to nil before dumping
3028 if you want the dumped XEmacs to process its command line
3029 and announce itself normally when it is run.
3031 (filename, symfile))
3033 /* This function can GC */
3034 struct gcpro gcpro1, gcpro2;
3037 GCPRO2 (filename, symfile);
3039 #ifdef FREE_CHECKING
3040 Freally_free (Qnil);
3042 /* When we're dumping, we can't use the debugging free() */
3043 disable_free_hook ();
3046 CHECK_STRING (filename);
3047 filename = Fexpand_file_name (filename, Qnil);
3048 if (!NILP (symfile))
3050 CHECK_STRING (symfile);
3051 if (XSTRING_LENGTH (symfile) > 0)
3052 symfile = Fexpand_file_name (symfile, Qnil);
3057 opurify = purify_flag;
3060 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
3061 report_sheap_usage (1);
3069 disksave_object_finalization ();
3070 release_breathing_space ();
3072 /* Tell malloc where start of impure now is */
3073 /* Also arrange for warnings when nearly out of space. */
3074 #ifndef SYSTEM_MALLOC
3075 memory_warnings (my_edata, malloc_warning);
3084 LISP_STRING_TO_EXTERNAL (filename, filename_ext, Qfile_name);
3086 if (STRINGP (symfile))
3087 LISP_STRING_TO_EXTERNAL (symfile, symfile_ext, Qfile_name);
3091 garbage_collect_1 ();
3097 #ifdef DOUG_LEA_MALLOC
3098 malloc_state_ptr = malloc_get_state ();
3100 /* here we break our rule that the filename conversion should
3101 be performed at the actual time that the system call is made.
3102 It's a whole lot easier to do the conversion here than to
3103 modify all the unexec routines to ensure that filename
3104 conversion is applied everywhere. Don't worry about memory
3105 leakage because this call only happens once. */
3106 unexec (filename_ext, symfile_ext, (uintptr_t) my_edata, 0, 0);
3107 #ifdef DOUG_LEA_MALLOC
3108 free (malloc_state_ptr);
3110 #endif /* not PDUMP */
3113 purify_flag = opurify;
3118 #endif /* not CANNOT_DUMP */
3121 /* Split STRING into a list of substrings. The substrings are the
3122 parts of original STRING separated by SEPCHAR. */
3124 split_string_by_emchar_1 (const Bufbyte *string, Bytecount size,
3127 Lisp_Object result = Qnil;
3128 const Bufbyte *end = string + size;
3132 const Bufbyte *p = string;
3135 if (charptr_emchar (p) == sepchar)
3139 result = Fcons (make_string (string, p - string), result);
3143 INC_CHARPTR (string); /* skip sepchar */
3148 return Fnreverse (result);
3151 /* The same as the above, except PATH is an external C string (it is
3152 converted using Qfile_name), and sepchar is hardcoded to SEPCHAR
3153 (':' or whatever). */
3155 decode_path (const char *path)
3162 TO_INTERNAL_FORMAT (C_STRING, path, ALLOCA, (newpath, newlen), Qfile_name);
3164 /* #### Does this make sense? It certainly does for
3165 decode_env_path(), but it looks dubious here. Does any code
3166 depend on decode_path("") returning nil instead of an empty
3171 return split_string_by_emchar_1 (newpath, newlen, SEPCHAR);
3175 decode_env_path (const char *evarname, const char *default_)
3177 const char *path = 0;
3179 path = egetenv (evarname);
3182 return decode_path (path);
3185 /* Ben thinks this function should not exist or be exported to Lisp.
3186 We use it to define split-path-string in subr.el (not!). */
3188 DEFUN ("split-string-by-char", Fsplit_string_by_char, 1, 2, 0, /*
3189 Split STRING into a list of substrings originally separated by SEPCHAR.
3193 CHECK_STRING (string);
3194 CHECK_CHAR (sepchar);
3195 return split_string_by_emchar_1 (XSTRING_DATA (string),
3196 XSTRING_LENGTH (string),
3200 /* #### This was supposed to be in subr.el, but is used VERY early in
3201 the bootstrap process, so it goes here. Damn. */
3203 DEFUN ("split-path", Fsplit_path, 1, 1, 0, /*
3204 Explode a search path into a list of strings.
3205 The path components are separated with the characters specified
3206 with `path-separator'.
3210 CHECK_STRING (path);
3212 while (!STRINGP (Vpath_separator)
3213 || (XSTRING_CHAR_LENGTH (Vpath_separator) != 1))
3214 Vpath_separator = signal_simple_continuable_error
3215 ("`path-separator' should be set to a single-character string",
3218 return (split_string_by_emchar_1
3219 (XSTRING_DATA (path), XSTRING_LENGTH (path),
3220 charptr_emchar (XSTRING_DATA (Vpath_separator))));
3223 DEFUN ("noninteractive", Fnoninteractive, 0, 0, 0, /*
3224 Non-nil return value means XEmacs is running without interactive terminal.
3228 return noninteractive ? Qt : Qnil;
3231 /* This flag is useful to define if you're under a debugger; this way, you
3232 can put a breakpoint of assert_failed() and debug multiple problems
3233 in one session without having to recompile. */
3234 /* #define ASSERTIONS_DONT_ABORT */
3236 #ifdef USE_ASSERTIONS
3237 /* This highly dubious kludge ... shut up Jamie, I'm tired of your slagging. */
3239 static int in_assert_failed;
3240 static const char *assert_failed_file;
3241 static int assert_failed_line;
3242 static const char *assert_failed_expr;
3248 #undef abort /* avoid infinite #define loop... */
3250 #if defined (WIN32_NATIVE) && defined (DEBUG_XEMACS)
3251 #define enter_debugger() DebugBreak ()
3253 #define enter_debugger()
3257 assert_failed (const char *file, int line, const char *expr)
3259 /* If we're already crashing, let's not crash again. This might be
3260 critical to getting auto-saving working properly. */
3261 if (fatal_error_in_progress)
3264 /* We are extremely paranoid so we sensibly deal with recursive
3265 assertion failures. */
3268 if (in_assert_failed >= 4)
3270 else if (in_assert_failed == 3)
3275 else if (in_assert_failed == 2)
3277 /* Not stderr_out(), which does additional things and may trigger
3278 a recursive assertion failure. fprintf was undeffed above, in
3279 case it was encapsulated. */
3281 "Fatal error: recursive assertion failure, "
3282 "file %s, line %d, %s\n",
3285 "Original assertion failure: file %s, line %d, %s\n",
3286 assert_failed_file, assert_failed_line, assert_failed_expr);
3290 assert_failed_file = file;
3291 assert_failed_line = line;
3292 assert_failed_expr = expr;
3296 "Fatal error: assertion failed, file %s, line %d, %s\n",
3299 stderr_out ("Fatal error: assertion failed, file %s, line %d, %s\n",
3304 #if !defined (ASSERTIONS_DONT_ABORT)
3307 in_assert_failed = 0;
3309 #endif /* USE_ASSERTIONS */
3312 DEFUN ("quantify-start-recording-data", Fquantify_start_recording_data,
3314 Start recording Quantify data.
3318 quantify_start_recording_data ();
3322 DEFUN ("quantify-stop-recording-data", Fquantify_stop_recording_data,
3324 Stop recording Quantify data.
3328 quantify_stop_recording_data ();
3332 DEFUN ("quantify-clear-data", Fquantify_clear_data, 0, 0, "", /*
3333 Clear all Quantify data.
3337 quantify_clear_data ();
3340 #endif /* QUANTIFY */
3343 syms_of_emacs (void)
3346 DEFSUBR (Fdump_emacs);
3347 #endif /* !CANNOT_DUMP */
3349 DEFSUBR (Frun_emacs_from_temacs);
3350 DEFSUBR (Frunning_temacs_p);
3351 DEFSUBR (Finvocation_name);
3352 DEFSUBR (Finvocation_directory);
3353 DEFSUBR (Fkill_emacs);
3354 DEFSUBR (Fnoninteractive);
3357 DEFSUBR (Fquantify_start_recording_data);
3358 DEFSUBR (Fquantify_stop_recording_data);
3359 DEFSUBR (Fquantify_clear_data);
3360 #endif /* QUANTIFY */
3362 DEFSUBR (Fsplit_string_by_char);
3363 DEFSUBR (Fsplit_path); /* #### */
3365 defsymbol (&Qkill_emacs_hook, "kill-emacs-hook");
3366 defsymbol (&Qsave_buffers_kill_emacs, "save-buffers-kill-emacs");
3370 vars_of_emacs (void)
3372 DEFVAR_BOOL ("suppress-early-error-handler-backtrace",
3373 &suppress_early_error_handler_backtrace /*
3374 Non-nil means early error handler shouldn't print a backtrace.
3377 DEFVAR_LISP ("command-line-args", &Vcommand_line_args /*
3378 Args passed by shell to XEmacs, as a list of strings.
3381 DEFVAR_LISP ("invocation-name", &Vinvocation_name /*
3382 The program name that was used to run XEmacs.
3383 Any directory names are omitted.
3386 DEFVAR_LISP ("invocation-directory", &Vinvocation_directory /*
3387 The directory in which the XEmacs executable was found, to run it.
3388 The value is simply the program name if that directory's name is not known.
3391 DEFVAR_LISP ("invocation-path", &Vinvocation_path /*
3392 The path in which the XEmacs executable was found, to run it.
3393 The value is simply the value of environment variable PATH on startup
3394 if XEmacs was found there.
3398 xxDEFVAR_LISP ("installation-directory", &Vinstallation_directory,
3399 "A directory within which to look for the `lib-src' and `etc' directories.\n"
3400 "This is non-nil when we can't find those directories in their standard\n"
3401 "installed locations, but we can find them\n"
3402 "near where the XEmacs executable was found.");
3405 DEFVAR_LISP ("system-type", &Vsystem_type /*
3406 Symbol indicating type of operating system you are using.
3408 Vsystem_type = intern (SYSTEM_TYPE);
3409 Fprovide (intern(SYSTEM_TYPE));
3411 #ifndef EMACS_CONFIGURATION
3412 # define EMACS_CONFIGURATION "UNKNOWN"
3414 DEFVAR_LISP ("system-configuration", &Vsystem_configuration /*
3415 String naming the configuration XEmacs was built for.
3417 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
3419 #ifndef EMACS_CONFIG_OPTIONS
3420 # define EMACS_CONFIG_OPTIONS "UNKNOWN"
3422 DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options /*
3423 String containing the configuration options XEmacs was built with.
3425 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
3427 DEFVAR_LISP ("emacs-major-version", &Vemacs_major_version /*
3428 Major version number of this version of Emacs, as an integer.
3429 Warning: this variable did not exist in Emacs versions earlier than:
3433 Vemacs_major_version = make_int (EMACS_MAJOR_VERSION);
3435 DEFVAR_LISP ("emacs-minor-version", &Vemacs_minor_version /*
3436 Minor version number of this version of Emacs, as an integer.
3437 Warning: this variable did not exist in Emacs versions earlier than:
3441 Vemacs_minor_version = make_int (EMACS_MINOR_VERSION);
3443 DEFVAR_LISP ("emacs-patch-level", &Vemacs_patch_level /*
3444 The patch level of this version of Emacs, as an integer.
3445 The value is non-nil if this version of XEmacs is part of a series of
3446 stable XEmacsen, but has bug fixes applied.
3447 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
3450 #ifdef EMACS_PATCH_LEVEL
3451 Vemacs_patch_level = make_int (EMACS_PATCH_LEVEL);
3453 Vemacs_patch_level = Qnil;
3456 DEFVAR_LISP ("emacs-beta-version", &Vemacs_beta_version /*
3457 Beta number of this version of Emacs, as an integer.
3458 The value is nil if this is an officially released version of XEmacs.
3459 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
3462 #ifdef EMACS_BETA_VERSION
3463 Vemacs_beta_version = make_int (EMACS_BETA_VERSION);
3465 Vemacs_beta_version = Qnil;
3469 DEFVAR_LISP ("infodock-major-version", &Vinfodock_major_version /*
3470 Major version number of this InfoDock release.
3472 Vinfodock_major_version = make_int (INFODOCK_MAJOR_VERSION);
3474 DEFVAR_LISP ("infodock-minor-version", &Vinfodock_minor_version /*
3475 Minor version number of this InfoDock release.
3477 Vinfodock_minor_version = make_int (INFODOCK_MINOR_VERSION);
3479 DEFVAR_LISP ("infodock-build-version", &Vinfodock_build_version /*
3480 Build version of this InfoDock release.
3482 Vinfodock_build_version = make_int (INFODOCK_BUILD_VERSION);
3485 DEFVAR_LISP ("xemacs-codename", &Vxemacs_codename /*
3486 Codename of this version of Emacs (a string).
3488 #ifndef XEMACS_CODENAME
3489 #define XEMACS_CODENAME "Noname"
3491 Vxemacs_codename = build_string (XEMACS_CODENAME);
3493 /* Lisp variables which contain command line flags.
3495 The portable dumper stomps on these; they must be saved and restored
3496 if they are processed before the call to pdump_load() in main_1().
3498 DEFVAR_BOOL ("noninteractive", &noninteractive1 /*
3499 Non-nil means XEmacs is running without interactive terminal.
3502 DEFVAR_BOOL ("inhibit-early-packages", &inhibit_early_packages /*
3503 Set to non-nil when the early packages should not be respected at startup.
3506 DEFVAR_BOOL ("inhibit-autoloads", &inhibit_autoloads /*
3507 Set to non-nil when autoloads should not be loaded at startup.
3510 DEFVAR_BOOL ("debug-paths", &debug_paths /*
3511 Set to non-nil when debug information about paths should be printed.
3514 DEFVAR_BOOL ("inhibit-site-lisp", &inhibit_site_lisp /*
3515 Set to non-nil when the site-lisp should not be searched at startup.
3517 #ifdef INHIBIT_SITE_LISP
3518 inhibit_site_lisp = 1;
3521 DEFVAR_BOOL ("inhibit-site-modules", &inhibit_site_modules /*
3522 Set to non-nil when site-modules should not be searched at startup.
3524 #ifdef INHIBIT_SITE_MODULES
3525 inhibit_site_modules = 1;
3528 DEFVAR_INT ("emacs-priority", &emacs_priority /*
3529 Priority for XEmacs to run at.
3530 This value is effective only if set before XEmacs is dumped,
3531 and only if the XEmacs executable is installed with setuid to permit
3532 it to change priority. (XEmacs sets its uid back to the real uid.)
3533 Currently, you need to define SET_EMACS_PRIORITY in `config.h'
3534 before you compile XEmacs, to enable the code for this feature.
3538 DEFVAR_CONST_LISP ("internal-error-checking", &Vinternal_error_checking /*
3539 Internal error checking built-in into this instance of XEmacs.
3540 This is a list of symbols, initialized at build-time. Legal symbols
3543 extents - check extents prior to each extent change;
3544 typecheck - check types strictly, aborting in case of error;
3545 malloc - check operation of malloc;
3546 gc - check garbage collection;
3547 bufpos - check buffer positions.
3549 quick-build - user has requested the "quick-build" configure option.
3551 Vinternal_error_checking = Qnil;
3552 #ifdef ERROR_CHECK_EXTENTS
3553 Vinternal_error_checking = Fcons (intern ("extents"),
3554 Vinternal_error_checking);
3556 #ifdef ERROR_CHECK_TYPECHECK
3557 Vinternal_error_checking = Fcons (intern ("typecheck"),
3558 Vinternal_error_checking);
3560 #ifdef ERROR_CHECK_MALLOC
3561 Vinternal_error_checking = Fcons (intern ("malloc"),
3562 Vinternal_error_checking);
3564 #ifdef ERROR_CHECK_GC
3565 Vinternal_error_checking = Fcons (intern ("gc"),
3566 Vinternal_error_checking);
3568 #ifdef ERROR_CHECK_BUFPOS
3569 Vinternal_error_checking = Fcons (intern ("bufpos"),
3570 Vinternal_error_checking);
3573 Vinternal_error_checking = Fcons (intern ("quick-build"),
3574 Vinternal_error_checking);
3577 DEFVAR_CONST_LISP ("mail-lock-methods", &Vmail_lock_methods /*
3578 Mail spool locking methods supported by this instance of XEmacs.
3579 This is a list of symbols. Each of the symbols is one of the
3580 following: dot, lockf, flock, locking, mmdf.
3583 Vmail_lock_methods = Qnil;
3584 Vmail_lock_methods = Fcons (intern ("dot"), Vmail_lock_methods);
3586 Vmail_lock_methods = Fcons (intern ("lockf"), Vmail_lock_methods);
3589 Vmail_lock_methods = Fcons (intern ("flock"), Vmail_lock_methods);
3592 Vmail_lock_methods = Fcons (intern ("mmdf"), Vmail_lock_methods);
3595 Vmail_lock_methods = Fcons (intern ("locking"), Vmail_lock_methods);
3599 DEFVAR_CONST_LISP ("configure-mail-lock-method", &Vconfigure_mail_lock_method /*
3600 Mail spool locking method suggested by configure. This is one
3601 of the symbols in MAIL-LOCK-METHODS.
3604 #if defined(MAIL_LOCK_FLOCK) && defined(HAVE_FLOCK)
3605 Vconfigure_mail_lock_method = intern("flock");
3606 #elif defined(MAIL_LOCK_LOCKF) && defined(HAVE_LOCKF)
3607 Vconfigure_mail_lock_method = intern("lockf");
3608 #elif defined(MAIL_LOCK_MMDF) && defined(HAVE_MMDF)
3609 Vconfigure_mail_lock_method = intern("mmdf");
3610 #elif defined(MAIL_LOCK_LOCKING) && defined(HAVE_LOCKING)
3611 Vconfigure_mail_lock_method = intern("locking");
3613 Vconfigure_mail_lock_method = intern("dot");
3617 DEFVAR_LISP ("path-separator", &Vpath_separator /*
3618 The directory separator in search paths, as a string.
3622 Vpath_separator = make_string ((Bufbyte *)&c, 1);
3627 complex_vars_of_emacs (void)
3629 /* This is all related to path searching. */
3631 DEFVAR_LISP ("emacs-program-name", &Vemacs_program_name /*
3632 *Name of the Emacs variant.
3633 For example, this may be \"xemacs\" or \"infodock\".
3634 This is mainly meant for use in path searching.
3636 Vemacs_program_name = build_string ((char *) PATH_PROGNAME);
3638 DEFVAR_LISP ("emacs-program-version", &Vemacs_program_version /*
3639 *Version of the Emacs variant.
3640 This typically has the form NN.NN-bNN.
3641 This is mainly meant for use in path searching.
3643 Vemacs_program_version = build_string ((char *) PATH_VERSION);
3645 DEFVAR_LISP ("exec-path", &Vexec_path /*
3646 *List of directories to search programs to run in subprocesses.
3647 Each element is a string (directory name) or nil (try default directory).
3651 DEFVAR_LISP ("exec-directory", &Vexec_directory /*
3652 *Directory of architecture-dependent files that come with XEmacs,
3653 especially executable programs intended for XEmacs to invoke.
3655 Vexec_directory = Qnil;
3657 DEFVAR_LISP ("configure-exec-directory", &Vconfigure_exec_directory /*
3658 For internal use by the build procedure only.
3659 configure's idea of what `exec-directory' will be.
3662 Vconfigure_exec_directory = Ffile_name_as_directory
3663 (build_string ((char *) PATH_EXEC));
3665 Vconfigure_exec_directory = Qnil;
3668 DEFVAR_LISP ("lisp-directory", &Vlisp_directory /*
3669 *Directory of core Lisp files that come with XEmacs.
3671 Vlisp_directory = Qnil;
3673 DEFVAR_LISP ("configure-lisp-directory", &Vconfigure_lisp_directory /*
3674 For internal use by the build procedure only.
3675 configure's idea of what `lisp-directory' will be.
3677 #ifdef PATH_LOADSEARCH
3678 Vconfigure_lisp_directory = Ffile_name_as_directory
3679 (build_string ((char *) PATH_LOADSEARCH));
3681 Vconfigure_lisp_directory = Qnil;
3684 DEFVAR_LISP ("mule-lisp-directory", &Vmule_lisp_directory /*
3685 *Directory of Mule Lisp files that come with XEmacs.
3687 Vmule_lisp_directory = Qnil;
3689 DEFVAR_LISP ("configure-mule-lisp-directory", &Vconfigure_mule_lisp_directory /*
3690 For internal use by the build procedure only.
3691 configure's idea of what `mule-lisp-directory' will be.
3693 #ifdef PATH_MULELOADSEARCH
3694 Vconfigure_mule_lisp_directory = Ffile_name_as_directory
3695 (build_string ((char *) PATH_MULELOADSEARCH));
3697 Vconfigure_mule_lisp_directory = Qnil;
3700 DEFVAR_LISP ("module-directory", &Vmodule_directory /*
3701 *Directory of core dynamic modules that come with XEmacs.
3703 Vmodule_directory = Qnil;
3705 DEFVAR_LISP ("configure-module-directory", &Vconfigure_module_directory /*
3706 For internal use by the build procedure only.
3707 configure's idea of what `module-directory' will be.
3709 #ifdef PATH_MODULESEARCH
3710 Vconfigure_module_directory = Ffile_name_as_directory
3711 (build_string ((char *) PATH_MODULESEARCH));
3713 Vconfigure_module_directory = Qnil;
3716 DEFVAR_LISP ("configure-package-path", &Vconfigure_package_path /*
3717 For internal use by the build procedure only.
3718 configure's idea of what the package path will be.
3720 #ifdef PATH_PACKAGEPATH
3721 Vconfigure_package_path = decode_path (PATH_PACKAGEPATH);
3723 Vconfigure_package_path = Qnil;
3726 DEFVAR_LISP ("data-directory", &Vdata_directory /*
3727 *Directory of architecture-independent files that come with XEmacs,
3728 intended for XEmacs to use.
3729 Use of this variable in new code is almost never correct. See the
3730 functions `locate-data-file' and `locate-data-directory' and the variable
3731 `data-directory-list'.
3733 Vdata_directory = Qnil;
3735 DEFVAR_LISP ("configure-data-directory", &Vconfigure_data_directory /*
3736 For internal use by the build procedure only.
3737 configure's idea of what `data-directory' will be.
3740 Vconfigure_data_directory = Ffile_name_as_directory
3741 (build_string ((char *) PATH_DATA));
3743 Vconfigure_data_directory = Qnil;
3746 DEFVAR_LISP ("data-directory-list", &Vdata_directory_list /*
3747 *List of directories of architecture-independent files that come with XEmacs
3748 or were installed as packages, and are intended for XEmacs to use.
3750 Vdata_directory_list = Qnil;
3752 DEFVAR_LISP ("site-directory", &Vsite_directory /*
3753 *Directory of site-specific Lisp files that come with XEmacs.
3755 Vsite_directory = Qnil;
3757 DEFVAR_LISP ("configure-site-directory", &Vconfigure_site_directory /*
3758 For internal use by the build procedure only.
3759 configure's idea of what `site-directory' will be.
3762 Vconfigure_site_directory = Ffile_name_as_directory
3763 (build_string ((char *) PATH_SITE));
3765 Vconfigure_site_directory = Qnil;
3768 DEFVAR_LISP ("site-module-directory", &Vsite_module_directory /*
3769 *Directory of site-specific loadable modules that come with XEmacs.
3771 Vsite_module_directory = Qnil;
3773 DEFVAR_LISP ("configure-site-module-directory", &Vconfigure_site_module_directory /*
3774 For internal use by the build procedure only.
3775 configure's idea of what `site-directory' will be.
3777 #ifdef PATH_SITE_MODULES
3778 Vconfigure_site_module_directory = Ffile_name_as_directory
3779 (build_string ((char *) PATH_SITE_MODULES));
3781 Vconfigure_site_module_directory = Qnil;
3784 DEFVAR_LISP ("doc-directory", &Vdoc_directory /*
3785 *Directory containing the DOC file that comes with XEmacs.
3786 This is usually the same as `exec-directory'.
3788 Vdoc_directory = Qnil;
3790 DEFVAR_LISP ("configure-doc-directory", &Vconfigure_doc_directory /*
3791 For internal use by the build procedure only.
3792 configure's idea of what `doc-directory' will be.
3795 Vconfigure_doc_directory = Ffile_name_as_directory
3796 (build_string ((char *) PATH_DOC));
3798 Vconfigure_doc_directory = Qnil;
3801 DEFVAR_LISP ("configure-exec-prefix-directory", &Vconfigure_exec_prefix_directory /*
3802 For internal use by the build procedure only.
3803 configure's idea of what `exec-prefix-directory' will be.
3805 #ifdef PATH_EXEC_PREFIX
3806 Vconfigure_exec_prefix_directory = Ffile_name_as_directory
3807 (build_string ((char *) PATH_EXEC_PREFIX));
3809 Vconfigure_exec_prefix_directory = Qnil;
3812 DEFVAR_LISP ("configure-prefix-directory", &Vconfigure_prefix_directory /*
3813 For internal use by the build procedure only.
3814 configure's idea of what `prefix-directory' will be.
3817 Vconfigure_prefix_directory = Ffile_name_as_directory
3818 (build_string ((char *) PATH_PREFIX));
3820 Vconfigure_prefix_directory = Qnil;
3823 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory /*
3824 For internal use by the build procedure only.
3825 This is the name of the directory in which the build procedure installed
3826 Emacs's info files; the default value for Info-default-directory-list
3830 Vconfigure_info_directory =
3831 Ffile_name_as_directory (build_string (PATH_INFO));
3833 Vconfigure_info_directory = Qnil;
3836 DEFVAR_LISP ("configure-info-path", &Vconfigure_info_path /*
3837 The configured initial path for info documentation.
3839 #ifdef PATH_INFOPATH
3840 Vconfigure_info_path = decode_path (PATH_INFOPATH);
3842 Vconfigure_info_path = Qnil;
3846 #if defined(__sgi) && !defined(PDUMP)
3847 /* This is so tremendously ugly I'd puke. But then, it works.
3848 * The target is to override the static constructor from the
3849 * libiflPNG.so library which is masquerading as libz, and
3850 * cores on us when re-started from the dumped executable.
3851 * This will have to go for 21.1 -- OG.
3853 void __sti__iflPNGFile_c___ (void);
3855 __sti__iflPNGFile_c___ (void)