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, 2002 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 */
184 #include "syswindows.h"
196 #include <quantify.h>
203 #if defined (HAVE_LOCALE_H) && \
204 (defined (I18N2) || defined (I18N3) || defined (I18N4))
212 #if defined (WIN32_NATIVE)
219 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
220 void report_sheap_usage (int die_if_pure_storage_exceeded);
223 #if !defined (SYSTEM_MALLOC) && !defined (DOUG_LEA_MALLOC)
224 extern void *(*__malloc_hook)(size_t);
225 extern void *(*__realloc_hook)(void *, size_t);
226 extern void (*__free_hook)(void *);
227 #endif /* not SYSTEM_MALLOC && not DOUG_LEA_MALLOC */
229 /* Command line args from shell, as list of strings */
230 Lisp_Object Vcommand_line_args;
232 /* Set nonzero after XEmacs has started up the first time.
233 Prevents reinitialization of the Lisp world and keymaps
234 on subsequent starts. */
237 #ifdef DOUG_LEA_MALLOC
239 /* Preserves a pointer to the memory allocated that copies that
240 static data inside glibc's malloc. */
241 static void *malloc_state_ptr;
242 #endif /* DOUG_LEA_MALLOC */
245 void r_alloc_reinit (void);
249 void console_type_create_select_gtk(void);
252 /* Variable whose value is symbol giving operating system type. */
253 Lisp_Object Vsystem_type;
255 /* Variable whose value is string giving configuration built for. */
256 Lisp_Object Vsystem_configuration;
258 /* Variable whose value is string containing the configuration options
259 XEmacs was built with. */
260 Lisp_Object Vsystem_configuration_options;
262 /* Version numbers and strings */
263 Lisp_Object Vemacs_major_version;
264 Lisp_Object Vemacs_minor_version;
265 Lisp_Object Vemacs_patch_level;
266 Lisp_Object Vemacs_beta_version;
267 Lisp_Object Vxemacs_codename;
269 Lisp_Object Vinfodock_major_version;
270 Lisp_Object Vinfodock_minor_version;
271 Lisp_Object Vinfodock_build_version;
274 /* The path under which XEmacs was invoked. */
275 Lisp_Object Vinvocation_path;
277 /* The name under which XEmacs was invoked, with any leading directory
279 Lisp_Object Vinvocation_name;
281 /* The directory name from which XEmacs was invoked. */
282 Lisp_Object Vinvocation_directory;
285 /* The directory name in which to find subdirs such as lisp and etc.
286 nil means get them only from PATH_LOADSEARCH. */
287 Lisp_Object Vinstallation_directory;
290 Lisp_Object Vemacs_program_name, Vemacs_program_version;
291 Lisp_Object Vexec_path;
292 Lisp_Object Vexec_directory, Vconfigure_exec_directory;
293 Lisp_Object Vlisp_directory, Vconfigure_lisp_directory;
294 Lisp_Object Vmule_lisp_directory, Vconfigure_mule_lisp_directory;
295 Lisp_Object Vmodule_directory, Vconfigure_module_directory;
296 Lisp_Object Vsite_module_directory, Vconfigure_site_module_directory;
297 Lisp_Object Vconfigure_package_path;
298 Lisp_Object Vdata_directory, Vconfigure_data_directory;
299 Lisp_Object Vdoc_directory, Vconfigure_doc_directory;
300 Lisp_Object Vconfigure_lock_directory;
301 Lisp_Object Vdata_directory_list;
302 Lisp_Object Vconfigure_info_directory;
303 Lisp_Object Vsite_directory, Vconfigure_site_directory;
304 Lisp_Object Vconfigure_info_path;
305 Lisp_Object Vinternal_error_checking;
306 Lisp_Object Vmail_lock_methods, Vconfigure_mail_lock_method;
307 Lisp_Object Vpath_separator;
309 /* The default base directory XEmacs is installed under. */
310 Lisp_Object Vconfigure_exec_prefix_directory, Vconfigure_prefix_directory;
312 /* If nonzero, set XEmacs to run at this priority. This is also used
313 in child_setup and sys_suspend to make sure subshells run at normal
315 Fixnum emacs_priority;
317 /* Some FSF junk with running_asynch_code, to preserve the match
318 data. Not necessary because we don't call process filters
319 asynchronously (i.e. from within QUIT). */
320 /* #### Delete this when merging the rest of my code */
321 int running_asynch_code;
323 /* If non-zero, a window-system was specified on the command line. */
326 /* Type of display specified. We cannot use a Lisp symbol here because
327 Lisp symbols may not initialized at the time that we set this
329 const char *display_use;
331 /* If non-zero, then the early error handler will only print the error
333 int suppress_early_error_handler_backtrace;
335 /* An address near the bottom of the stack.
336 Tells GC how to save a copy of the stack. */
339 #ifdef USG_SHARED_LIBRARIES
340 /* If nonzero, this is the place to put the end of the writable segment
343 uintptr_t bss_end = 0;
346 /* Number of bytes of writable memory we can expect to be able to get */
347 unsigned long lim_data;
351 Some LISP-visible command-line options are set by XEmacs _before_ the
352 data is dumped in building a --pdump XEmacs, but used _after_ it is
353 restored in normal operation. Thus the dump-time values overwrite the
354 values XEmacs is getting at runtime. Such variables must be saved
355 before loading the dumpfile, and restored afterward.
357 Therefore these variables may not be initialized in vars_of_emacs().
359 The save/restore is done immediately before and after pdump_load() in
360 main_1(). See that function for the current list of protected variables.
362 Note that saving/restoring is only necessary for a few variables that are
363 o command line arguments effective at runtime (as opposed to dump-time),
364 o parsed before pdump_load, and
365 o exported to Lisp via a DEFVAR.
368 /* Nonzero means running XEmacs without interactive terminal. */
372 /* Value of Lisp variable `noninteractive'.
373 Normally same as C variable `noninteractive'
374 but nothing terrible happens if user sets this one.
376 Shadowed from the pdumper by `noninteractive'. */
380 /* Nonzero means don't perform site-lisp searches at startup */
381 int inhibit_site_lisp;
383 /* Nonzero means don't perform site-modules searches at startup */
384 int inhibit_site_modules;
386 /* Nonzero means don't respect early packages at startup */
387 int inhibit_early_packages;
389 /* Nonzero means don't load package autoloads at startup */
390 int inhibit_autoloads;
392 /* Nonzero means don't load the dump file (ignored if not PDUMP) */
396 /* Nonzero means print debug information about path searching */
399 /* Save argv and argc. */
400 static Extbyte **initial_argv; /* #### currently unused */
401 static int initial_argc; /* #### currently unused */
403 static void sort_args (int argc, char **argv);
405 Lisp_Object Qkill_emacs_hook;
406 Lisp_Object Qsave_buffers_kill_emacs;
408 extern Lisp_Object Vlisp_EXEC_SUFFIXES;
412 /* Ben's capsule summary about expected and unexpected exits from XEmacs.
414 Expected exits occur when the user directs XEmacs to exit, for example
415 by pressing the close button on the only frame in XEmacs, or by typing
416 C-x C-c. This runs `save-buffers-kill-emacs', which saves any necessary
417 buffers, and then exits using the primitive `kill-emacs'.
419 However, unexpected exits occur in a few different ways:
421 -- a memory access violation or other hardware-generated exception
422 occurs. This is the worst possible problem to deal with, because
423 the fault can occur while XEmacs is in any state whatsoever, even
424 quite unstable ones. As a result, we need to be *extremely* careful
426 -- we are using one X display (or if we've used more, we've closed the
427 others already), and some hardware or other problem happens and
428 suddenly we've lost our connection to the display. In this situation,
429 things are not so dire as in the last one; our code itself isn't
430 trashed, so we can continue execution as normal, after having set
431 things up so that we can exit at the appropriate time. Our exit
432 still needs to be of the emergency nature; we have no displays, so
433 any attempts to use them will fail. We simply want to auto-save
434 (the single most important thing to do during shut-down), do minimal
435 cleanup of stuff that has an independent existence outside of XEmacs,
438 Currently, both unexpected exit scenarios described above set
439 preparing_for_armageddon to indicate that nonessential and possibly
440 dangerous things should not be done, specifically:
442 -- no garbage collection.
444 -- no messages of any sort from autosaving.
445 -- autosaving tries harder, ignoring certain failures.
446 -- existing frames are not deleted.
448 (Also, all places that set preparing_for_armageddon also
449 set dont_check_for_quit. This happens separately because it's
450 also necessary to set other variables to make absolutely sure
451 no quitting happens.)
453 In the first scenario above (the access violation), we also set
454 fatal_error_in_progress. This causes more things to not happen:
456 -- assertion failures do not abort.
457 -- printing code does not do code conversion or gettext when
458 printing to stdout/stderr.
461 /* Nonzero if handling a fatal error already. */
462 int fatal_error_in_progress;
464 /* Non-nil means we're going down, so we better not run any hooks
465 or do other non-essential stuff. */
466 int preparing_for_armageddon;
468 /* Nonzero means we're in an unstable situation and need to skip
469 i18n conversions and such during printing. */
470 int inhibit_non_essential_printing_operations;
472 static JMP_BUF run_temacs_catch;
474 static int run_temacs_argc;
475 static char **run_temacs_argv;
476 static char *run_temacs_args;
477 static EMACS_INT run_temacs_argv_size;
478 static EMACS_INT run_temacs_args_size;
480 static void shut_down_emacs (int sig, Lisp_Object stuff, int no_auto_save);
482 /* ------------------------------- */
483 /* low-level debugging functions */
484 /* ------------------------------- */
486 #if defined (WIN32_NATIVE) && defined (DEBUG_XEMACS)
487 #define debugging_breakpoint() DebugBreak ()
489 #define debugging_breakpoint()
495 debugging_breakpoint ();
498 #if defined (WIN32_NATIVE) || defined (CYGWIN)
500 /* Return whether all bytes in the specified memory block can be read. */
502 debug_can_access_memory (void *ptr, Bytecount len)
504 return !IsBadReadPtr (ptr, len);
507 #else /* !(defined (WIN32_NATIVE) || defined (CYGWIN)) */
509 /* #### There must be a better way!!!! */
511 static JMP_BUF memory_error_jump;
514 debug_memory_error (int signum)
516 EMACS_REESTABLISH_SIGNAL (signum, debug_memory_error);
517 EMACS_UNBLOCK_SIGNAL (signum);
518 LONGJMP (memory_error_jump, 1);
521 /* Return whether all bytes in the specified memory block can be read. */
523 debug_can_access_memory (void *ptr, Bytecount len)
525 /* Use volatile to protect variables from being clobbered by longjmp. */
526 SIGTYPE (*volatile old_sigbus) (int);
527 SIGTYPE (*volatile old_sigsegv) (int);
528 volatile int old_errno = errno;
529 volatile int retval = 1;
531 if (!SETJMP (memory_error_jump))
534 (SIGTYPE (*) (int)) signal (SIGBUS, debug_memory_error);
536 (SIGTYPE (*) (int)) signal (SIGSEGV, debug_memory_error);
539 /* If we can, try to avoid problems with super-optimizing compilers
540 that might decide that memcmp (ptr, ptr, len) can be optimized
541 away since its result is always 1. */
542 memcmp (ptr, (char *) ptr + 1, len - 1);
544 memcmp (ptr, ptr, len);
548 signal (SIGBUS, old_sigbus);
549 signal (SIGSEGV, old_sigsegv);
555 #endif /* defined (WIN32_NATIVE) || defined (CYGWIN) */
559 DEFUN ("force-debugging-signal", Fforce_debugging_signal, 0, 1, 0, /*
560 Cause XEmacs to enter the debugger.
561 On some systems, there may be no way to do this gracefully; if so,
562 nothing happens unless ABORT is non-nil, in which case XEmacs will
563 ABORT() -- a sure-fire way to immediately get back to the debugger,
564 but also a sure-fire way to kill XEmacs (and dump core on Unix
569 debugging_breakpoint ();
575 #endif /* DEBUG_XEMACS */
578 ensure_no_quitting_from_now_on (void)
580 /* make sure no quitting from now on!! */
581 dont_check_for_quit = 1;
586 /* Handle bus errors, illegal instruction, etc. */
588 fatal_error_signal (int sig)
590 fatal_error_in_progress++;
591 inhibit_non_essential_printing_operations = 1;
592 preparing_for_armageddon = 1;
594 ensure_no_quitting_from_now_on ();
596 /* Unblock the signal so that if the same signal gets sent in the
597 code below, we avoid a deadlock. */
598 EMACS_UNBLOCK_SIGNAL (sig);
600 /* Only try auto-saving first time through. If we crash in auto-saving,
601 don't do it again. */
602 if (fatal_error_in_progress == 1)
604 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
605 /* Do this so that the variable has the same value of 2 regardless of
606 whether we made it through auto-saving correctly. */
607 fatal_error_in_progress++;
609 else if (fatal_error_in_progress == 2)
610 stderr_out ("WARNING: Unable to auto-save your files properly.\n"
611 "Some or all may in fact have been auto-saved.\n"
614 /* Now, reset our signal handler, so the next time, we just die.
615 Don't do this before auto-saving. */
616 signal (sig, SIG_DFL);
618 /* Keep in mind that there's more than one signal that we can crash
620 /* If fatal error occurs in code below, avoid infinite recursion. */
621 if (fatal_error_in_progress <= 2)
623 shut_down_emacs (sig, Qnil, 1);
624 stderr_out ("\nLisp backtrace follows:\n\n");
625 Fbacktrace (Qexternal_debugging_output, Qt);
626 # if 0 /* This is evil, rarely useful, and causes grief in some cases. */
627 /* Check for Sun-style stack printing via /proc */
629 const char *pstack = "/usr/proc/bin/pstack";
630 if (access (pstack, X_OK) == 0)
633 stderr_out ("\nC backtrace follows:\n"
634 "(A real debugger may provide better information)\n\n");
635 sprintf (buf, "%s %d >&2", pstack, (int)getpid());
641 /* Signal the same code; this time it will really be fatal. */
642 kill (getpid (), sig);
649 mswindows_handle_hardware_exceptions (DWORD code)
651 if (code != STATUS_ACCESS_VIOLATION && code != STATUS_ILLEGAL_INSTRUCTION
652 && code != STATUS_PRIVILEGED_INSTRUCTION
653 && code != STATUS_DATATYPE_MISALIGNMENT)
654 return EXCEPTION_CONTINUE_SEARCH;
656 /* I don't know if this filter is still wrapped in the outer __try, but
657 it doesn't hurt to have another one. --ben
658 And it lets us control more exactly what we really want to do in such
662 fatal_error_in_progress++;
663 inhibit_non_essential_printing_operations = 1;
664 preparing_for_armageddon = 1;
666 ensure_no_quitting_from_now_on ();
668 /* Only try auto-saving first time through. If we crash in auto-saving,
669 don't do it again. */
670 if (fatal_error_in_progress == 1)
672 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
673 /* Do this so that the variable has the same value of 2 regardless of
674 whether we made it through auto-saving correctly. */
675 fatal_error_in_progress++;
677 else if (fatal_error_in_progress == 2)
678 stderr_out ("WARNING: Unable to auto-save your files properly.\n"
679 "Some or all may in fact have been auto-saved.\n"
682 /* If fatal error occurs in code below, avoid infinite recursion. */
683 if (fatal_error_in_progress <= 2)
685 shut_down_emacs (-1, Qnil, 1);
686 stderr_out ("\nLisp backtrace follows:\n\n");
687 Fbacktrace (Qexternal_debugging_output, Qt);
690 /* VC++ documentation says that
691 GetExceptionCode() cannot be called inside the filter itself. */
693 /* __except (mswindows_handle_hardware_exceptions (GetExceptionCode ())) {}
695 The line above is original. Unfortunately, when an error is tripped
696 inside of the handler (e.g. during Fbacktrace()), and the handler for
697 the handler is invoked, it correctly notices that something is amiss
698 and it should just return -- but it returns EXCEPTION_CONTINUE_SEARCH,
699 which causes the debugger to be invoked debugging the handler code in
700 this function -- and WITH THE STACK UNWOUND so that you see main()
701 calling mswindows_handle_hardware_exceptions(), calling Fbacktrace(),
702 and a crash a couple of frames in -- AND NO SIGN OF THE ORIGINAL CRASH!
704 There's some real weirdness going on in the stack handling -- unlike
705 in Unix, where further crashes just keep adding to the stack, it seems
706 that under the structured-exception-handling, the stack can actually
707 bounce back and forth between the full stack at the location of the
708 exception and the unwound stack at the place where the __try clause was
709 established. I don't completely understand it. What I do know is that
710 returning EXCEPTION_EXECUTE_HANDLER on nested crash has the effect of
711 aborting execution of the handler and going back to the outer filter
712 function, which returns EXCEPTION_CONTINUE_SEARCH and everything is
713 hunky-dorey -- your debugger sees a crash at the right location with
716 I'm leaving in the trickier Unix-like code in the handler; someone who
717 understands better than me how the stack works in these handlers could
718 fix it up more. As it is, it works pretty well, so I'm not likely to
722 __except (EXCEPTION_EXECUTE_HANDLER) {}
725 /* pretend we didn't handle this, so that the debugger is invoked and/or
726 the normal GPF box appears. */
727 return EXCEPTION_CONTINUE_SEARCH;
730 #endif /* _MSC_VER */
736 /* Handler for SIGDANGER. */
738 memory_warning_signal (int sig)
740 /* #### bad bad bad; this function shouldn't do anything except
741 set a flag, or weird corruption could happen. */
742 signal (sig, memory_warning_signal);
745 (GETTEXT ("Operating system warns that virtual memory is running low.\n"));
747 /* It might be unsafe to call do_auto_save now. */
748 force_auto_save_soon ();
750 #endif /* SIGDANGER */
752 /* Code for dealing with Lisp access to the Unix command line */
755 make_arg_list_1 (int argc, Extbyte **argv, int skip_args)
757 Lisp_Object result = Qnil;
760 for (i = argc - 1; i >= 0; i--)
762 if (i == 0 || i > skip_args)
767 /* Do not trust to what crt0 has stuffed into argv[0] */
768 char full_exe_path[MAX_PATH];
769 Lisp_Object fullpath;
771 GetModuleFileName (NULL, full_exe_path, MAX_PATH);
772 fullpath = build_ext_string (full_exe_path, Qmswindows_tstr);
773 result = Fcons (fullpath, result);
774 #if defined(HAVE_SHLIB)
776 Extbyte *fullpathext;
778 LISP_STRING_TO_EXTERNAL (fullpath, fullpathext,
779 Qdll_filename_encoding);
780 (void) dll_init (fullpathext);
786 result = Fcons (build_ext_string (argv[i],
787 Qcommand_argument_encoding),
795 make_arg_list (int argc, Extbyte **argv)
797 return make_arg_list_1 (argc, argv, 0);
800 /* Calling functions are also responsible for calling free_argc_argv
801 when they are done with the generated list. */
803 make_argc_argv (Lisp_Object argv_list, int *argc, Extbyte ***argv)
806 int n = XINT (Flength (argv_list));
808 *argv = (Extbyte**) xmalloc ((n+1) * sizeof (Extbyte*));
810 for (i = 0, next = argv_list; i < n; i++, next = XCDR (next))
813 CHECK_STRING (XCAR (next));
815 LISP_STRING_TO_EXTERNAL (XCAR (next), temp, Qcommand_argument_encoding);
816 (*argv) [i] = xstrdup (temp);
823 free_argc_argv (Extbyte **argv)
836 init_cmdargs (int argc, Extbyte **argv, int skip_args)
841 Vcommand_line_args = make_arg_list_1 (argc, argv, skip_args);
844 DEFUN ("invocation-name", Finvocation_name, 0, 0, 0, /*
845 Return the program name that was used to run XEmacs.
846 Any directory names are omitted.
850 return Fcopy_sequence (Vinvocation_name);
853 DEFUN ("invocation-directory", Finvocation_directory, 0, 0, 0, /*
854 Return the directory name in which the Emacs executable was located.
858 return Fcopy_sequence (Vinvocation_directory);
863 /* #### - don't know why I18N4 on SunOS/JLE
864 can't deal with this. It's a potential
865 bug that needs to be looked at. */
866 # undef RUN_TIME_REMAP
869 /* Test whether the next argument in ARGV matches SSTR or a prefix of
870 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
871 (the argument is supposed to have a value) store in *VALPTR either
872 the next argument or the portion of this one after the equal sign.
873 ARGV is read starting at position *SKIPPTR; this index is advanced
874 by the number of arguments used.
876 Too bad we can't just use getopt for all of this, but we don't have
877 enough information to do it right. */
880 argmatch (char **argv, int argc, char *sstr, char *lstr,
881 int minlen, char **valptr, int *skipptr)
887 /* Don't access argv[argc]; give up in advance. */
888 if (argc <= *skipptr + 1)
891 arg = argv[*skipptr+1];
894 if (strcmp (arg, sstr) == 0)
898 *valptr = argv[*skipptr+2];
905 arglen = (valptr != NULL && (p = strchr (arg, '=')) != NULL
906 ? p - arg : (int) strlen (arg));
907 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
909 else if (valptr == NULL)
920 else if (argv[*skipptr+2] != NULL)
922 *valptr = argv[*skipptr+2];
932 /* Make stack traces always identify version + configuration */
933 #define main_1 STACK_TRACE_EYE_CATCHER
935 /* This function is not static, so that the compiler is less likely to
936 inline it, which would make it not show up in stack traces.
938 The restart argument is a flag that indicates that main_1 is now
939 being called for the second time in this invocation of xemacs; this can
940 only happen in an xemacs that is not loaded with dumped data (temacs
941 with the conventional dumper or xemacs -nd with the pdumper). See
942 Frun_emacs_from_temacs().
944 restart interacts with initialized as follows (per Olivier Galibert):
948 initialized==0 => temacs
949 initialized!=0 && restart!=0 => run-temacs
950 initialized!=0 && restart==0 => xemacs/post pdump_load()
952 DECLARE_DOESNT_RETURN (main_1 (int, char **, char **, int));
954 main_1 (int argc, char **argv, char **envp, int restart)
956 char stack_bottom_variable;
959 int inhibit_window_system;
961 extern int malloc_cookie;
964 #if (!defined (SYSTEM_MALLOC) && !defined (HAVE_LIBMCHECK) \
965 && !defined (DOUG_LEA_MALLOC))
966 /* Make sure that any libraries we link against haven't installed a
967 hook for a gmalloc of a potentially incompatible version. */
968 /* If we're using libmcheck, the hooks have already been initialized, */
969 /* don't touch them. -slb */
970 __malloc_hook = NULL;
971 __realloc_hook = NULL;
973 #endif /* not SYSTEM_MALLOC or HAVE_LIBMCHECK or DOUG_LEA_MALLOC */
976 inhibit_non_essential_printing_operations = 1;
980 * NeXT secret magic, ripped from Emacs-for-NS by Carl Edman
981 * <cedman@princeton.edu>. Note that even Carl doesn't know what this
982 * does; it was provided by NeXT, and it presumable makes NS's mallocator
983 * work with dumping. But malloc_jumpstart() and malloc_freezedry() in
984 * unexnext.c are both completely undocumented, even in NS header files!
985 * But hey, it solves all NS related memory problems, so who's
987 if (initialized && malloc_jumpstart (malloc_cookie) != 0)
988 stderr_out ("malloc jumpstart failed!\n");
992 #if defined (GNU_MALLOC) && \
993 defined (ERROR_CHECK_MALLOC) && \
994 !defined (HAVE_LIBMCHECK)
996 #if defined(LOSING_GCC_DESTRUCTOR_FREE_BUG)
997 /* Prior to XEmacs 21, this was `#if 0'ed out. */
998 /* I'm enabling this because it is the only reliable way I've found to */
999 /* prevent a very annoying problem where GCC will attempt to free(3) */
1000 /* memory at exit() and cause a coredump. */
1004 sort_args (argc, argv);
1006 #if defined (WIN32_NATIVE) || defined (_SCO_DS)
1010 /* Record (approximately) where the stack begins. */
1011 stack_bottom = &stack_bottom_variable;
1013 #ifdef USG_SHARED_LIBRARIES
1015 brk ((void *) bss_end);
1020 #if defined (HAVE_MMAP) && defined (REL_ALLOC)
1021 /* ralloc can only be used if using the GNU memory allocator. */
1023 #elif defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
1030 SOCKSinit (argv[0]);
1031 #endif /* HAVE_SOCKS */
1033 #ifndef SYSTEM_MALLOC
1035 /* Arrange to get warning messages as memory fills up. */
1036 memory_warnings (0, malloc_warning);
1037 #endif /* not SYSTEM_MALLOC */
1039 #ifdef SET_EMACS_PRIORITY
1040 if (emacs_priority != 0)
1041 nice (-emacs_priority);
1043 #endif /* SET_EMACS_PRIORITY */
1045 #ifdef EXTRA_INITIALIZE
1049 #ifdef HAVE_WINDOW_SYSTEM
1050 inhibit_window_system = 0;
1052 inhibit_window_system = 1;
1055 /* Handle the -sd/--show-dump-id switch, which means show the hex dump_id and quit */
1056 if (argmatch (argv, argc, "-sd", "--show-dump-id", 9, NULL, &skip_args))
1059 printf ("%08x\n", dump_id);
1061 printf ("Portable dumper not configured; -sd just forces exit.\n");
1066 /* Handle the -t switch, which specifies filename to use as terminal */
1069 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
1073 if (open (term, O_RDWR | OPEN_BINARY, 2) < 0)
1074 fatal ("%s: %s", term, strerror (errno));
1077 fatal ("%s: not a tty", term);
1080 stderr_out ("Using %s", ttyname (0));
1082 stderr_out ("Using %s", term);
1083 inhibit_window_system = 1; /* -t => -nw */
1087 /* Handle the --no-dump-file/-nd switch, which means don't load the dump file (ignored when not using pdump) */
1088 if (argmatch (argv, argc, "-nd", "--no-dump-file", 7, NULL, &skip_args))
1093 /* Handle -nw switch */
1094 if (argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
1095 inhibit_window_system = 1;
1097 /* Handle the -batch switch, which means don't do interactive display. */
1098 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
1100 #if 0 /* I don't think this is correct. */
1101 inhibit_autoloads = 1;
1106 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
1107 11, NULL, &skip_args))
1110 /* Partially handle -no-autoloads, -no-early-packages and -vanilla. Packages */
1111 /* are searched prior to the rest of the command line being parsed in */
1113 if (argmatch (argv, argc, "-no-early-packages", "--no-early-packages",
1114 6, NULL, &skip_args))
1116 inhibit_early_packages = 1;
1120 if (argmatch (argv, argc, "-no-site-modules", "--no-site-modules",
1121 9, NULL, &skip_args))
1123 inhibit_site_modules = 1;
1127 inhibit_site_modules = 1;
1129 if (argmatch (argv, argc, "-vanilla", "--vanilla",
1130 7, NULL, &skip_args))
1132 inhibit_early_packages = 1;
1136 if (argmatch (argv, argc, "-no-autoloads", "--no-autoloads",
1137 7, NULL, &skip_args))
1139 /* Inhibit everything */
1140 inhibit_autoloads = 1;
1144 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
1145 6, NULL, &skip_args))
1152 /* Partially handle the -version and -help switches: they imply -batch,
1153 but are not removed from the list. */
1154 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
1155 noninteractive = 1, skip_args--;
1157 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args) ||
1158 argmatch (argv, argc, "-V", 0, 2, NULL, &skip_args))
1159 noninteractive = 1, skip_args--;
1161 /* Now, figure out which type of console is our first console. */
1166 display_use = "stream";
1168 display_use = "tty";
1171 if (inhibit_window_system)
1172 fatal ("Sorry, this XEmacs was not compiled with TTY support");
1175 #ifdef HAVE_WINDOW_SYSTEM
1176 /* Stupid kludge to catch command-line display spec. We can't
1177 handle this argument entirely in window-system-dependent code
1178 because we don't even know which window-system-dependent code
1179 to run until we've recognized this argument. */
1180 if (!inhibit_window_system && !noninteractive)
1182 #ifdef HAVE_X_WINDOWS
1184 int count_before = skip_args;
1186 if (argmatch (argv, argc, "-d", "--display", 3, &dpy, &skip_args) ||
1187 argmatch (argv, argc, "-display", 0, 3, &dpy, &skip_args))
1192 /* If we have the form --display=NAME,
1193 convert it into -d name.
1194 This requires inserting a new element into argv. */
1195 if (dpy != 0 && skip_args - count_before == 1)
1197 char **new = (char **) xmalloc (sizeof (char *) * (argc + 2));
1200 for (j = 0; j < count_before + 1; j++)
1202 new[count_before + 1] = "-d";
1203 new[count_before + 2] = dpy;
1204 for (j = count_before + 2; j <argc; j++)
1205 new[j + 1] = argv[j];
1209 /* Change --display to -d, when its arg is separate. */
1210 else if (dpy != 0 && skip_args > count_before
1211 && argv[count_before + 1][1] == '-')
1212 argv[count_before + 1] = "-d";
1214 /* Don't actually discard this arg. */
1215 skip_args = count_before;
1217 /* If there is a non-empty environment var DISPLAY, set
1218 `display_use', but not `display_arg', which is only to be set
1219 if the display was specified on the command line. */
1220 if ((dpy = getenv ("DISPLAY")) && dpy[0])
1223 #endif /* HAVE_X_WINDOWS */
1226 char *dpy = getenv ("DISPLAY");
1228 display_use = "gtk";
1231 #ifdef HAVE_MS_WINDOWS
1232 if (strcmp(display_use, "x") != 0)
1233 display_use = "mswindows";
1234 #endif /* HAVE_MS_WINDOWS */
1236 #endif /* HAVE_WINDOW_SYSTEM */
1238 noninteractive1 = noninteractive;
1240 /****** Now initialize everything *******/
1242 /* First, do really basic environment initialization -- catching signals
1243 and the like. These functions have no dependence on any part of
1244 the Lisp engine and need to be done both at dump time and at run time. */
1246 init_signals_very_early ();
1247 init_data_very_early (); /* Catch math errors. */
1248 #ifdef LISP_FLOAT_TYPE
1249 init_floatfns_very_early (); /* Catch floating-point math errors. */
1251 init_process_times_very_early (); /* Initialize our process timers.
1252 As early as possible, of course,
1253 so we can be fairly accurate. */
1254 init_intl_very_early (); /* set up the locale and domain for gettext and
1256 #ifdef HAVE_MS_WINDOWS
1257 init_mswindows_very_early (); /* Some things - like dde need to be
1258 initialized early so that the
1259 client doesn't give up waiting. */
1262 /* Now initialize the Lisp engine and the like. Done only during
1263 dumping. No dependence on anything that may be in the user's
1264 environment when the dumped XEmacs is run.
1266 We try to do things in an order that minimizes the non-obvious
1267 dependencies between functions. */
1269 /* purify_flag 1 is correct even if CANNOT_DUMP.
1270 * loadup.el will set to nil at end. */
1276 else if (nodumpfile) {
1281 /* Keep command options from getting stomped.
1283 Some LISP-visible options are changed by XEmacs _after_ the data is
1284 dumped in building a --pdump XEmacs, but _before_ it is restored in
1285 normal operation. Thus the restored values overwrite the values
1286 XEmacs is getting at run-time. Such variables must be saved here,
1287 and restored after loading the dumped data.
1289 Boy, this is ugly, but how else to do it?
1292 /* noninteractive1 is saved in noninteractive, which isn't LISP-visible */
1293 int inhibit_early_packages_save = inhibit_early_packages;
1294 int inhibit_autoloads_save = inhibit_autoloads;
1295 int debug_paths_save = debug_paths;
1296 /* #### Give inhibit-site-lisp a command switch? If so, uncomment: */
1297 /* int inhibit_site_lisp_save = inhibit_site_lisp; */
1298 int inhibit_site_modules_save = inhibit_site_modules;
1300 initialized = pdump_load (argv[0]);
1302 /* Now unstomp everything */
1303 noninteractive1 = noninteractive;
1304 inhibit_early_packages = inhibit_early_packages_save;
1305 inhibit_autoloads = inhibit_autoloads_save;
1306 debug_paths = debug_paths_save;
1307 /* #### Give inhibit-site-lisp a command switch? If so, uncomment: */
1308 /* inhibit_site_lisp = inhibit_site_lisp_save; */
1309 inhibit_site_modules = inhibit_site_modules_save;
1312 run_temacs_argc = -1;
1323 /* Initialize things so that new Lisp objects
1324 can be created and objects can be staticpro'd.
1325 Must be basically the very first thing done
1326 because pretty much all of the initialization
1327 routines below create new objects. */
1328 init_alloc_once_early ();
1330 /* Initialize Qnil, Qt, Qunbound, and the
1331 obarray. After this, symbols can be
1332 interned. This depends on init_alloc_once_early(). */
1333 init_symbols_once_early ();
1335 /* Declare the basic symbols pertaining to errors,
1336 So that DEFERROR*() can be called. */
1337 init_errors_once_early ();
1339 /* Make sure that opaque pointers can be created. */
1340 init_opaque_once_early ();
1342 /* Now declare all the symbols and define all the Lisp primitives.
1344 The *only* thing that the syms_of_*() functions are allowed to do
1345 is call one of the following:
1347 INIT_LRECORD_IMPLEMENTATION()
1348 defsymbol(), DEFSYMBOL(), or DEFSYMBOL_MULTIWORD_PREDICATE()
1349 defsubr() (i.e. DEFSUBR)
1350 deferror(), DEFERROR(), or DEFERROR_STANDARD()
1351 defkeyword() or DEFKEYWORD()
1353 Order does not matter in these functions.
1359 syms_of_bytecode ();
1361 syms_of_callproc ();
1362 syms_of_casefiddle ();
1372 #endif /* DEBUG_XEMACS */
1383 #ifdef HAVE_X_WINDOWS
1384 syms_of_event_Xt ();
1387 syms_of_event_gtk ();
1389 #ifdef HAVE_DRAGNDROP
1390 syms_of_dragdrop ();
1392 syms_of_event_stream ();
1397 #ifdef CLASH_DETECTION
1398 syms_of_filelock ();
1399 #endif /* CLASH_DETECTION */
1400 syms_of_floatfns ();
1402 syms_of_font_lock ();
1406 syms_of_glyphs_eimage ();
1407 syms_of_glyphs_widget ();
1417 #ifdef HAVE_DATABASE
1418 syms_of_database ();
1420 #ifdef HAVE_MENUBARS
1429 #if !defined (NO_SUBPROCESSES)
1431 #ifdef HAVE_WIN32_PROCESSES
1432 syms_of_process_nt ();
1436 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
1438 #endif /* HAVE_MMAP && REL_ALLOC */
1439 syms_of_rangetab ();
1440 syms_of_redisplay ();
1445 syms_of_specifier ();
1448 #ifdef HAVE_SCROLLBARS
1449 syms_of_scrollbar ();
1451 #ifdef HAVE_TOOLBARS
1459 syms_of_console_tty ();
1460 syms_of_device_tty ();
1461 syms_of_objects_tty ();
1465 syms_of_device_gtk ();
1466 syms_of_frame_gtk ();
1467 syms_of_glyphs_gtk ();
1468 syms_of_objects_gtk ();
1470 syms_of_select_gtk ();
1472 syms_of_dialog_gtk ();
1474 #ifdef HAVE_MENUBARS
1475 syms_of_menubar_gtk ();
1477 syms_of_select_gtk ();
1479 #if defined (HAVE_MENUBARS) || defined(HAVE_SCROLLBARS) || defined(HAVE_DIALOGS) || defined(HAVE_TOOLBARS)
1482 #endif /* HAVE_GTK */
1484 #ifdef HAVE_X_WINDOWS
1485 #ifdef HAVE_BALLOON_HELP
1486 syms_of_balloon_x ();
1488 syms_of_device_x ();
1490 syms_of_dialog_x ();
1493 syms_of_glyphs_x ();
1494 syms_of_objects_x ();
1495 #ifdef HAVE_MENUBARS
1496 syms_of_menubar_x ();
1498 syms_of_select_x ();
1499 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1504 syms_of_input_method_xlib ();
1506 #endif /* HAVE_XIM */
1507 #endif /* HAVE_X_WINDOWS */
1509 #ifdef HAVE_MS_WINDOWS
1510 syms_of_console_mswindows ();
1511 syms_of_device_mswindows ();
1512 syms_of_dialog_mswindows ();
1513 syms_of_frame_mswindows ();
1514 syms_of_objects_mswindows ();
1515 syms_of_select_mswindows ();
1516 syms_of_glyphs_mswindows ();
1517 syms_of_gui_mswindows ();
1518 #ifdef HAVE_MENUBARS
1519 syms_of_menubar_mswindows ();
1521 #ifdef HAVE_SCROLLBARS
1522 syms_of_scrollbar_mswindows ();
1524 #endif /* HAVE_MS_WINDOWS */
1525 #ifdef HAVE_MSW_C_DIRED
1526 syms_of_dired_mswindows ();
1531 #if defined (WIN32_NATIVE) || defined (CYGWIN)
1537 syms_of_mule_ccl ();
1538 syms_of_mule_charset ();
1541 syms_of_file_coding ();
1545 syms_of_mule_wnn ();
1548 syms_of_mule_canna ();
1549 #endif /* HAVE_CANNA */
1561 #if defined (GNU_MALLOC) && \
1562 defined (ERROR_CHECK_MALLOC) && \
1563 !defined (HAVE_LIBMCHECK)
1565 /* Prior to XEmacs 21, this was `#if 0'ed out. -slb */
1566 #if defined (LOSING_GCC_DESTRUCTOR_FREE_BUG)
1567 syms_of_free_hook ();
1571 syms_of_tooltalk ();
1583 syms_of_gpmevent ();
1586 #ifdef HAVE_POSTGRESQL
1587 syms_of_postgresql ();
1590 /* Now create the subtypes for the types that have them.
1591 We do this before the vars_*() because more symbols
1592 may get initialized here. */
1594 /* Now initialize the console types and associated symbols.
1595 Other than the first function below, the functions may
1596 make exactly the following function/macro calls:
1598 INITIALIZE_CONSOLE_TYPE()
1599 CONSOLE_HAS_METHOD()
1601 For any given console type, the former macro must be called
1602 before the any calls to the latter macro. */
1604 console_type_create ();
1606 console_type_create_stream ();
1609 console_type_create_tty ();
1610 console_type_create_device_tty ();
1611 console_type_create_frame_tty ();
1612 console_type_create_objects_tty ();
1613 console_type_create_redisplay_tty ();
1617 console_type_create_gtk ();
1618 console_type_create_select_gtk ();
1619 console_type_create_device_gtk ();
1620 console_type_create_frame_gtk ();
1621 console_type_create_objects_gtk ();
1622 console_type_create_glyphs_gtk ();
1623 console_type_create_redisplay_gtk ();
1624 #ifdef HAVE_MENUBARS
1625 console_type_create_menubar_gtk ();
1627 #ifdef HAVE_SCROLLBARS
1628 console_type_create_scrollbar_gtk ();
1630 #ifdef HAVE_TOOLBARS
1631 console_type_create_toolbar_gtk ();
1634 console_type_create_dialog_gtk ();
1636 #endif /* HAVE_GTK */
1638 #ifdef HAVE_X_WINDOWS
1639 console_type_create_x ();
1640 console_type_create_device_x ();
1641 console_type_create_frame_x ();
1642 console_type_create_glyphs_x ();
1643 console_type_create_select_x ();
1644 #ifdef HAVE_MENUBARS
1645 console_type_create_menubar_x ();
1647 console_type_create_objects_x ();
1648 console_type_create_redisplay_x ();
1649 #ifdef HAVE_SCROLLBARS
1650 console_type_create_scrollbar_x ();
1652 #ifdef HAVE_TOOLBARS
1653 console_type_create_toolbar_x ();
1656 console_type_create_dialog_x ();
1658 #endif /* HAVE_X_WINDOWS */
1660 #ifdef HAVE_MS_WINDOWS
1661 console_type_create_mswindows ();
1662 console_type_create_device_mswindows ();
1663 console_type_create_frame_mswindows ();
1664 console_type_create_objects_mswindows ();
1665 console_type_create_redisplay_mswindows ();
1666 console_type_create_glyphs_mswindows ();
1667 console_type_create_select_mswindows ();
1668 # ifdef HAVE_SCROLLBARS
1669 console_type_create_scrollbar_mswindows ();
1671 #ifdef HAVE_MENUBARS
1672 console_type_create_menubar_mswindows ();
1674 #ifdef HAVE_TOOLBARS
1675 console_type_create_toolbar_mswindows ();
1678 console_type_create_dialog_mswindows ();
1682 /* Now initialize the specifier types and associated symbols.
1683 Other than the first function below, the functions may
1684 make exactly the following function/macro calls:
1686 INITIALIZE_SPECIFIER_TYPE()
1687 SPECIFIER_HAS_METHOD()
1689 For any given specifier type, the former macro must be called
1690 before the any calls to the latter macro. */
1692 specifier_type_create ();
1694 specifier_type_create_image ();
1695 specifier_type_create_gutter ();
1696 specifier_type_create_objects ();
1697 #ifdef HAVE_TOOLBARS
1698 specifier_type_create_toolbar ();
1701 /* Now initialize the structure types and associated symbols.
1702 Other than the first function below, the functions may
1703 make exactly the following function/macro calls:
1705 define_structure_type()
1706 define_structure_type_keyword()
1710 structure_type_create ();
1712 structure_type_create_chartab ();
1713 structure_type_create_faces ();
1714 structure_type_create_rangetab ();
1715 structure_type_create_hash_table ();
1717 /* Now initialize the image instantiator formats and associated symbols.
1718 Other than the first function below, the functions may
1719 make exactly the following function/macro calls:
1721 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT()
1722 IIFORMAT_HAS_METHOD()
1723 IIFORMAT_VALID_KEYWORD()
1725 For any given image instantiator format, the first macro must be
1726 called before the any calls to the other macros. */
1728 image_instantiator_format_create ();
1729 image_instantiator_format_create_glyphs_eimage ();
1730 image_instantiator_format_create_glyphs_widget ();
1732 image_instantiator_format_create_glyphs_tty ();
1734 #ifdef HAVE_X_WINDOWS
1735 image_instantiator_format_create_glyphs_x ();
1736 #endif /* HAVE_X_WINDOWS */
1737 #ifdef HAVE_MS_WINDOWS
1738 image_instantiator_format_create_glyphs_mswindows ();
1739 #endif /* HAVE_MSWINDOWS_WINDOWS */
1741 image_instantiator_format_create_glyphs_gtk ();
1744 /* Now initialize the lstream types and associated symbols.
1745 Other than the first function below, the functions may
1746 make exactly the following function/macro calls:
1748 LSTREAM_HAS_METHOD()
1752 lstream_type_create ();
1754 lstream_type_create_file_coding ();
1756 #if defined (HAVE_MS_WINDOWS) && !defined(HAVE_MSG_SELECT)
1757 lstream_type_create_mswindows_selectable ();
1760 /* Initialize processes implementation.
1761 The functions may make exactly the following function/macro calls:
1763 PROCESS_HAS_METHOD()
1765 #ifdef HAVE_UNIX_PROCESSES
1766 process_type_create_unix ();
1768 #ifdef HAVE_WIN32_PROCESSES
1769 process_type_create_nt ();
1772 /* Now initialize most variables.
1774 These functions may do exactly the following:
1787 defsymbol(), if it's absolutely necessary and you're sure that
1788 the symbol isn't referenced anywhere else in the initialization
1790 Fset() on a symbol that is unbound
1791 assigning a symbol or constant value to a variable
1792 using a global variable that has been initialized
1793 earlier on in the same function
1795 Any of the object-creating functions in alloc.c: e.g.
1808 perhaps a few others.
1810 NB: Initialization or assignment should not be done here to certain
1811 variables settable from the command line. See the comment above
1812 the call to pdump_load() in main_1(). This caveat should only
1813 apply to vars_of_emacs().
1816 /* Now allow Fprovide() statements to be made. */
1817 init_provide_once ();
1819 /* Do that before any specifier creation (esp. vars_of_glyphs()) */
1820 vars_of_specifier ();
1825 vars_of_bytecode ();
1827 vars_of_callproc ();
1837 vars_of_console_stream ();
1844 #ifdef HAVE_DRAGNDROP
1845 vars_of_dragdrop ();
1852 #ifdef HAVE_X_WINDOWS
1853 vars_of_event_Xt ();
1855 #if defined(HAVE_TTY) && (defined (DEBUG_TTY_EVENT_STREAM) || !defined (HAVE_X_WINDOWS))
1856 vars_of_event_tty ();
1858 #ifdef HAVE_MS_WINDOWS
1859 vars_of_event_mswindows ();
1861 vars_of_event_stream ();
1867 #ifdef CLASH_DETECTION
1868 vars_of_filelock ();
1870 vars_of_floatfns ();
1871 vars_of_font_lock ();
1874 vars_of_glyphs_eimage ();
1875 vars_of_glyphs_widget ();
1883 vars_of_input_method_motif ();
1884 #else /* XIM_XLIB */
1885 vars_of_input_method_xlib ();
1887 #endif /* HAVE_XIM */
1893 #ifdef HAVE_DATABASE
1894 vars_of_database ();
1896 #ifdef HAVE_MENUBARS
1910 #ifndef NO_SUBPROCESSES
1912 #ifdef HAVE_UNIX_PROCESSES
1913 vars_of_process_unix ();
1915 #ifdef HAVE_WIN32_PROCESSES
1916 vars_of_process_nt ();
1921 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
1923 #endif /* HAVE_MMAP && REL_ALLOC */
1924 vars_of_redisplay ();
1925 #ifdef HAVE_SCROLLBARS
1926 vars_of_scrollbar ();
1933 #ifdef HAVE_TOOLBARS
1940 vars_of_console_tty ();
1941 vars_of_frame_tty ();
1942 vars_of_objects_tty ();
1946 vars_of_device_gtk ();
1948 vars_of_dialog_gtk ();
1950 vars_of_event_gtk ();
1951 vars_of_frame_gtk ();
1952 vars_of_glyphs_gtk ();
1954 #ifdef HAVE_MENUBARS
1955 vars_of_menubar_gtk ();
1957 vars_of_objects_gtk ();
1958 vars_of_select_gtk ();
1959 #ifdef HAVE_SCROLLBARS
1960 vars_of_scrollbar_gtk ();
1962 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1965 #endif /* HAVE_GTK */
1967 #ifdef HAVE_X_WINDOWS
1968 #ifdef HAVE_BALLOON_HELP
1969 vars_of_balloon_x ();
1971 vars_of_device_x ();
1973 vars_of_dialog_x ();
1976 vars_of_glyphs_x ();
1977 #ifdef HAVE_MENUBARS
1978 vars_of_menubar_x ();
1980 vars_of_objects_x ();
1981 vars_of_select_x ();
1982 #ifdef HAVE_SCROLLBARS
1983 vars_of_scrollbar_x ();
1985 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1988 #endif /* HAVE_X_WINDOWS */
1991 #ifdef HAVE_MS_WINDOWS
1992 vars_of_device_mswindows ();
1993 vars_of_console_mswindows ();
1994 vars_of_frame_mswindows ();
1995 vars_of_objects_mswindows ();
1996 vars_of_select_mswindows ();
1997 vars_of_glyphs_mswindows ();
1998 #ifdef HAVE_SCROLLBARS
1999 vars_of_scrollbar_mswindows ();
2001 #ifdef HAVE_MENUBARS
2002 vars_of_menubar_mswindows ();
2004 #ifdef HAVE_MSW_C_DIRED
2005 vars_of_dired_mswindows ();
2008 vars_of_dialog_mswindows ();
2010 #endif /* HAVE_MS_WINDOWS */
2014 vars_of_mule_ccl ();
2015 vars_of_mule_charset ();
2018 vars_of_file_coding ();
2022 vars_of_mule_wnn ();
2025 vars_of_mule_canna ();
2026 #endif /* HAVE_CANNA */
2030 vars_of_tooltalk ();
2041 #ifdef HAVE_POSTGRESQL
2042 vars_of_postgresql();
2046 vars_of_gpmevent ();
2049 /* Now initialize any specifier variables. We do this later
2050 because it has some dependence on the vars initialized
2053 These functions should *only* initialize specifier variables,
2054 and may make use of the following functions/macros in addition
2055 to the ones listed above:
2059 set_specifier_fallback()
2060 set_specifier_caching()
2063 specifier_vars_of_glyphs ();
2064 specifier_vars_of_glyphs_widget ();
2065 specifier_vars_of_gutter ();
2066 #ifdef HAVE_MENUBARS
2067 specifier_vars_of_menubar ();
2069 specifier_vars_of_redisplay ();
2070 #ifdef HAVE_SCROLLBARS
2071 specifier_vars_of_scrollbar ();
2073 #ifdef HAVE_TOOLBARS
2074 specifier_vars_of_toolbar ();
2076 specifier_vars_of_window ();
2078 /* Now comes all the rest of the variables that couldn't
2079 be handled above. There may be dependencies on variables
2080 initialized above, and dependencies between one complex_vars_()
2081 function and another. */
2083 /* Calls Fmake_range_table(). */
2084 complex_vars_of_regex ();
2085 /* Calls Fmake_range_table(). */
2086 complex_vars_of_search ();
2088 /* Calls make_lisp_hash_table(). */
2089 complex_vars_of_extents ();
2091 /* Depends on hash tables and specifiers. */
2092 complex_vars_of_faces ();
2095 /* These two depend on hash tables and various variables declared
2096 earlier. The second may also depend on the first. */
2097 complex_vars_of_mule_charset ();
2100 complex_vars_of_file_coding ();
2103 /* This calls allocate_glyph(), which creates specifiers
2104 and also relies on a variable (Vthe_nothing_vector) initialized
2105 above. It also calls make_ext_string(), which under Mule
2106 could require that the charsets be initialized. */
2107 complex_vars_of_glyphs ();
2109 /* These rely on the glyphs just created in the previous function,
2110 and call Fadd_spec_to_specifier(), which relies on various
2111 variables initialized above. */
2113 complex_vars_of_glyphs_gtk ();
2115 #ifdef HAVE_X_WINDOWS
2116 complex_vars_of_glyphs_x ();
2118 #ifdef HAVE_MS_WINDOWS
2119 complex_vars_of_glyphs_mswindows ();
2122 /* This calls Fmake_glyph_internal(). */
2123 complex_vars_of_alloc ();
2125 /* This calls Fmake_glyph_internal(). */
2126 #ifdef HAVE_MENUBARS
2127 complex_vars_of_menubar ();
2130 /* This calls Fmake_glyph_internal(). */
2131 #ifdef HAVE_SCROLLBARS
2132 complex_vars_of_scrollbar ();
2135 /* This calls allocate_glyph(). */
2136 complex_vars_of_frame ();
2138 /* This calls Fcopy_category_table() under Mule, which calls who
2140 complex_vars_of_chartab ();
2142 /* This calls set_string_char(), which (under Mule) depends on the
2143 charsets being initialized. */
2144 complex_vars_of_casetab ();
2146 /* This calls Fcopy_syntax_table(), which relies on char tables. */
2147 complex_vars_of_syntax ();
2149 /* This initializes buffer-local variables, sets things up so
2150 that buffers can be created, and creates a couple of basic
2151 buffers. This depends on Vstandard_syntax_table and
2152 Vstandard_category_table (initialized in the previous
2153 functions), as well as a whole horde of variables that may
2154 have been initialized above. */
2155 complex_vars_of_buffer ();
2157 /* This initializes console-local variables. */
2158 complex_vars_of_console ();
2160 /* This creates a couple more buffers, and depends on the
2161 previous function. */
2162 complex_vars_of_minibuf ();
2164 /* These two might call Ffile_name_as_directory(), which
2165 might depend on all sorts of things; I'm not sure. */
2166 complex_vars_of_emacs ();
2168 /* This creates a couple of basic keymaps and depends on Lisp
2169 hash tables and Ffset() (both of which depend on some variables
2170 initialized in the vars_of_*() section) and possibly other
2172 complex_vars_of_keymap ();
2174 /* Calls make_lisp_hash_table() and creates a keymap */
2175 complex_vars_of_event_stream ();
2177 #ifdef ERROR_CHECK_GC
2179 extern int always_gc;
2180 if (always_gc) /* purification debugging hack */
2181 garbage_collect_1 ();
2185 } else if (!restart) { /* after successful pdump_load() */
2186 reinit_alloc_once_early ();
2187 reinit_symbols_once_early ();
2188 reinit_opaque_once_early ();
2190 reinit_console_type_create_stream ();
2192 reinit_console_type_create_tty ();
2194 #ifdef HAVE_X_WINDOWS
2195 reinit_console_type_create_x ();
2196 reinit_console_type_create_device_x ();
2198 #ifdef HAVE_MS_WINDOWS
2199 reinit_console_type_create_mswindows ();
2202 reinit_console_type_create_gtk ();
2205 reinit_specifier_type_create ();
2206 reinit_specifier_type_create_image ();
2207 reinit_specifier_type_create_gutter ();
2208 reinit_specifier_type_create_objects ();
2209 #ifdef HAVE_TOOLBARS
2210 reinit_specifier_type_create_toolbar ();
2213 structure_type_create ();
2215 structure_type_create_chartab ();
2216 structure_type_create_faces ();
2217 structure_type_create_rangetab ();
2218 structure_type_create_hash_table ();
2220 lstream_type_create ();
2222 lstream_type_create_file_coding ();
2224 #if defined (HAVE_MS_WINDOWS) && !defined(HAVE_MSG_SELECT)
2225 lstream_type_create_mswindows_selectable ();
2227 #ifdef HAVE_UNIX_PROCESSES
2228 process_type_create_unix ();
2230 #ifdef HAVE_WIN32_PROCESSES
2231 process_type_create_nt ();
2234 reinit_vars_of_buffer ();
2235 reinit_vars_of_console ();
2237 reinit_vars_of_debug ();
2239 reinit_vars_of_device ();
2240 reinit_vars_of_eval ();
2241 #ifdef HAVE_X_WINDOWS
2242 reinit_vars_of_event_Xt ();
2245 reinit_vars_of_event_gtk ();
2247 #if defined(HAVE_TTY) && (defined (DEBUG_TTY_EVENT_STREAM) || !defined (HAVE_X_WINDOWS))
2248 reinit_vars_of_event_tty ();
2250 #ifdef HAVE_MS_WINDOWS
2251 reinit_vars_of_event_mswindows ();
2253 reinit_vars_of_event_stream ();
2254 reinit_vars_of_events ();
2255 reinit_vars_of_extents ();
2256 reinit_vars_of_fileio ();
2257 reinit_vars_of_font_lock ();
2258 reinit_vars_of_glyphs ();
2259 reinit_vars_of_glyphs_widget ();
2260 reinit_vars_of_insdel ();
2261 reinit_vars_of_lread ();
2262 reinit_vars_of_lstream ();
2263 reinit_vars_of_minibuf ();
2265 reinit_vars_of_module ();
2267 reinit_vars_of_objects ();
2268 reinit_vars_of_print ();
2269 reinit_vars_of_search ();
2270 reinit_vars_of_undo ();
2271 reinit_vars_of_window ();
2273 #ifdef HAVE_MS_WINDOWS
2274 reinit_vars_of_frame_mswindows ();
2278 reinit_vars_of_menubar_gtk ();
2281 #ifdef HAVE_X_WINDOWS
2282 reinit_vars_of_device_x ();
2283 #ifdef HAVE_SCROLLBARS
2284 reinit_vars_of_scrollbar_x ();
2286 #ifdef HAVE_MENUBARS
2287 reinit_vars_of_menubar_x ();
2289 reinit_vars_of_select_x ();
2290 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
2291 reinit_vars_of_gui_x ();
2293 #endif /* HAVE_X_WINDOWS */
2295 #if defined(MULE) && defined(HAVE_WNN)
2296 reinit_vars_of_mule_wnn ();
2299 reinit_complex_vars_of_buffer ();
2300 reinit_complex_vars_of_console ();
2301 reinit_complex_vars_of_minibuf ();
2306 /* CONGRATULATIONS!!! We have successfully initialized the Lisp
2311 /* Stuff that should not be done at dump time, including stuff that
2312 needs to be reset at run time. Order below should not matter.
2314 Many initializations taken from the environment should go here. */
2318 reinit_mule_category ();
2320 #ifdef HAVE_POSTGRESQL
2321 init_postgresql_from_environment();
2325 /* Now do further initialization/setup of stuff that is not needed by the
2326 syms_of_() routines. This involves stuff that only is enabled in
2327 an interactive run (redisplay, user input, etc.) and stuff that is
2328 not needed until we start loading Lisp code (the reader). A lot
2329 of this stuff involves querying the current environment and needs
2330 to be done both at dump time and at run time. */
2332 init_initial_directory(); /* get the directory to use for the
2333 "*scratch*" buffer, etc. */
2337 * For Win32, call init_environment() now, so that environment/registry
2338 * variables will be properly entered into Vprocess_environment.
2343 init_callproc (); /* Set up the process environment (so that egetenv
2344 works), the basic directory variables
2345 (exec-directory and so on), and stuff
2346 related to subprocesses. This should be
2347 first because many of the functions below
2348 call egetenv() to get environment variables. */
2349 init_lread (); /* Set up the Lisp reader. */
2350 init_cmdargs (argc, (Extbyte **) argv,
2351 skip_args); /* Create list Vcommand_line_args */
2352 init_buffer (); /* Set default directory of *scratch* buffer */
2358 init_redisplay (); /* Determine terminal type.
2359 init_sys_modes uses results */
2361 init_event_stream (); /* Set up so we can get user input. */
2362 init_macros (); /* set up so we can run macros. */
2363 init_editfns (); /* Determine the name of the user we're running as */
2364 init_xemacs_process (); /* set up for calling subprocesses */
2366 init_sunpro (); /* Set up Sunpro usage tracking */
2368 #if defined (WIN32_NATIVE) || defined (CYGWIN)
2371 #if defined (HAVE_NATIVE_SOUND) && defined (hp9000s800)
2377 init_console_stream (restart); /* Create the first console */
2379 /* try to get the actual pathname of the exec file we are running */
2382 Vinvocation_name = Fcar (Vcommand_line_args);
2383 if (XSTRING_DATA(Vinvocation_name)[0] == '-')
2385 /* XEmacs as a login shell, oh goody! */
2386 Vinvocation_name = build_string(getenv("SHELL"));
2388 Vinvocation_directory = Vinvocation_name;
2390 if (!NILP (Ffile_name_directory (Vinvocation_name)))
2392 /* invocation-name includes a directory component -- presumably it
2393 is relative to cwd, not $PATH */
2394 Vinvocation_directory = Fexpand_file_name (Vinvocation_name,
2396 Vinvocation_path = Qnil;
2400 Vinvocation_path = decode_env_path ("PATH", NULL);
2401 locate_file (Vinvocation_path, Vinvocation_name,
2402 Vlisp_EXEC_SUFFIXES,
2403 &Vinvocation_directory, X_OK);
2406 if (NILP (Vinvocation_directory))
2407 Vinvocation_directory = Vinvocation_name;
2409 Vinvocation_name = Ffile_name_nondirectory (Vinvocation_directory);
2410 Vinvocation_directory = Ffile_name_directory (Vinvocation_directory);
2413 #if defined(HAVE_SHLIB) && !defined(WIN32_NATIVE)
2414 /* This is Unix only. MS Windows NT has a library call that does
2415 The Right Thing on that system. Rumor has it, this must be
2416 called for GNU dld in temacs and xemacs. */
2418 char *buf = (char *)alloca (XSTRING_LENGTH (Vinvocation_directory)
2419 + XSTRING_LENGTH (Vinvocation_name)
2421 sprintf (buf, "%s/%s", XSTRING_DATA (Vinvocation_directory),
2422 XSTRING_DATA (Vinvocation_name));
2424 /* All we can do is cry if an error happens, so ignore it. */
2425 (void) dll_init (buf);
2429 #if defined (LOCALTIME_CACHE) && defined (HAVE_TZSET)
2430 /* sun's localtime() has a bug. it caches the value of the time
2431 zone rather than looking it up every time. Since localtime() is
2432 called to bolt the undumping time into the undumped emacs, this
2433 results in localtime() ignoring the TZ environment variable.
2434 This flushes the new TZ value into localtime(). */
2436 #endif /* LOCALTIME_CACHE and TZSET */
2441 /* Handle -l loadup-and-dump, args passed by Makefile. */
2442 if (argc > 2 + skip_args && !strcmp (argv[1 + skip_args], "-l"))
2443 load_me = build_string (argv[2 + skip_args]);
2444 #if 0 /* CANNOT_DUMP - this can never be right in XEmacs --andyp */
2445 /* Unless next switch is -nl, load "loadup.el" first thing. */
2446 if (!(argc > 1 + skip_args && !strcmp (argv[1 + skip_args], "-nl")))
2447 load_me = build_string ("loadup.el");
2448 #endif /* CANNOT_DUMP */
2453 quantify_start_recording_data ();
2454 #endif /* QUANTIFY */
2457 inhibit_non_essential_printing_operations = 0;
2459 /* This never returns. */
2460 initial_command_loop (load_me);
2465 /* Sort the args so we can find the most important ones
2466 at the beginning of argv. */
2468 /* First, here's a table of all the standard options. */
2470 struct standard_args
2473 const char *longname;
2478 static const struct standard_args standard_args[] =
2480 /* Handled by main_1 above: */
2481 { "-sd", "--show-dump-id", 105, 0 },
2482 { "-t", "--terminal", 100, 1 },
2483 { "-nd", "--no-dump-file", 95, 0 },
2484 { "-nw", "--no-windows", 90, 0 },
2485 { "-batch", "--batch", 85, 0 },
2486 { "-debug-paths", "--debug-paths", 82, 0 },
2487 { "-help", "--help", 80, 0 },
2488 { "-version", "--version", 75, 0 },
2490 { "-d", "--display", 80, 1 },
2491 { "-display", 0, 80, 1 },
2492 { "-NXHost", 0, 79, 0 },
2493 { "-MachLaunch", 0, 79, 0},
2495 /* Handled by command-line-early in startup.el: */
2496 { "-q", "--no-init-file", 50, 0 },
2497 { "-unmapped", 0, 50, 0 },
2498 { "-no-init-file", 0, 50, 0 },
2499 { "-vanilla", "--vanilla", 50, 0 },
2500 { "-no-autoloads", "--no-autoloads", 50, 0 },
2501 { "-no-site-file", "--no-site-file", 40, 0 },
2502 { "-no-early-packages", "--no-early-packages", 35, 0 },
2503 { "-u", "--user", 30, 1 },
2504 { "-user", 0, 30, 1 },
2505 { "-debug-init", "--debug-init", 20, 0 },
2506 { "-debug-paths", "--debug-paths", 20, 0 },
2509 { "-i", "--icon-type", 15, 0 },
2510 { "-itype", 0, 15, 0 },
2511 { "-iconic", "--iconic", 15, 0 },
2512 { "-bg", "--background-color", 10, 1 },
2513 { "-background", 0, 10, 1 },
2514 { "-fg", "--foreground-color", 10, 1 },
2515 { "-foreground", 0, 10, 1 },
2516 { "-bd", "--border-color", 10, 1 },
2517 { "-bw", "--border-width", 10, 1 },
2518 { "-ib", "--internal-border", 10, 1 },
2519 { "-ms", "--mouse-color", 10, 1 },
2520 { "-cr", "--cursor-color", 10, 1 },
2521 { "-fn", "--font", 10, 1 },
2522 { "-font", 0, 10, 1 },
2523 { "-g", "--geometry", 10, 1 },
2524 { "-geometry", 0, 10, 1 },
2525 { "-T", "--title", 10, 1 },
2526 { "-title", 0, 10, 1 },
2527 { "-name", "--name", 10, 1 },
2528 { "-xrm", "--xrm", 10, 1 },
2529 { "-r", "--reverse-video", 5, 0 },
2531 { "-reverse", 0, 5, 0 },
2532 { "-hb", "--horizontal-scroll-bars", 5, 0 },
2533 { "-vb", "--vertical-scroll-bars", 5, 0 },
2535 /* These have the same priority as ordinary file name args,
2536 so they are not reordered with respect to those. */
2537 { "-L", "--directory", 0, 1 },
2538 { "-directory", 0, 0, 1 },
2539 { "-l", "--load", 0, 1 },
2540 { "-load", 0, 0, 1 },
2541 { "-f", "--funcall", 0, 1 },
2542 { "-funcall", 0, 0, 1 },
2543 { "-eval", "--eval", 0, 1 },
2544 { "-insert", "--insert", 0, 1 },
2545 /* This should be processed after ordinary file name args and the like. */
2546 { "-kill", "--kill", -10, 0 },
2549 /* Reorder the elements of ARGV (assumed to have ARGC elements)
2550 so that the highest priority ones come first.
2551 Do not change the order of elements of equal priority.
2552 If an option takes an argument, keep it and its argument together. */
2555 sort_args (int argc, char **argv)
2557 char **new_argv = xnew_array (char *, argc);
2558 /* For each element of argv,
2559 the corresponding element of options is:
2560 0 for an option that takes no arguments,
2561 1 for an option that takes one argument, etc.
2562 -1 for an ordinary non-option argument. */
2563 int *options = xnew_array (int, argc);
2564 int *priority = xnew_array (int, argc);
2568 int end_of_options_p = 0;
2570 /* Categorize all the options,
2571 and figure out which argv elts are option arguments. */
2572 for (from = 1; from < argc; from++)
2576 /* Pseudo options "--" and "run-temacs" indicate end of options */
2577 if (!strcmp (argv[from], "--") ||
2578 !strcmp (argv[from], "run-temacs"))
2579 end_of_options_p = 1;
2580 if (!end_of_options_p && argv[from][0] == '-')
2585 /* Look for a match with a known old-fashioned option. */
2586 for (i = 0; i < countof (standard_args); i++)
2587 if (!strcmp (argv[from], standard_args[i].name))
2589 options[from] = standard_args[i].nargs;
2590 priority[from] = standard_args[i].priority;
2591 if (from + standard_args[i].nargs >= argc)
2592 fatal ("Option `%s' requires an argument\n", argv[from]);
2593 from += standard_args[i].nargs;
2597 /* Look for a match with a known long option.
2598 MATCH is -1 if no match so far, -2 if two or more matches so far,
2599 >= 0 (the table index of the match) if just one match so far. */
2600 if (argv[from][1] == '-')
2603 thislen = strlen (argv[from]);
2604 equals = strchr (argv[from], '=');
2606 thislen = equals - argv[from];
2608 for (i = 0; i < countof (standard_args); i++)
2609 if (standard_args[i].longname
2610 && !strncmp (argv[from], standard_args[i].longname,
2619 /* If we found exactly one match, use that. */
2622 options[from] = standard_args[match].nargs;
2623 priority[from] = standard_args[match].priority;
2624 /* If --OPTION=VALUE syntax is used,
2625 this option uses just one argv element. */
2628 if (from + options[from] >= argc)
2629 fatal ("Option `%s' requires an argument\n", argv[from]);
2630 from += options[from];
2637 /* Copy the arguments, in order of decreasing priority, to NEW_ARGV. */
2638 new_argv[0] = argv[0];
2642 int best_priority = -9999;
2644 /* Find the highest priority remaining option.
2645 If several have equal priority, take the first of them. */
2646 for (from = 1; from < argc; from++)
2648 if (argv[from] != 0 && priority[from] > best_priority)
2650 best_priority = priority[from];
2653 /* Skip option arguments--they are tied to the options. */
2654 if (options[from] > 0)
2655 from += options[from];
2661 /* Copy the highest priority remaining option, with its args, to NEW_ARGV. */
2662 new_argv[to++] = argv[best];
2663 for (i = 0; i < options[best]; i++)
2664 new_argv[to++] = argv[best + i + 1];
2666 /* Clear out this option in ARGV. */
2668 for (i = 0; i < options[best]; i++)
2669 argv[best + i + 1] = 0;
2672 memcpy (argv, new_argv, sizeof (char *) * argc);
2678 DEFUN ("running-temacs-p", Frunning_temacs_p, 0, 0, 0, /*
2679 True if running temacs. This means we are in the dumping stage.
2680 This is false during normal execution of the `xemacs' program, and
2681 becomes false once `run-emacs-from-temacs' is run.
2685 return run_temacs_argc >= 0 ? Qt : Qnil;
2688 DEFUN ("run-emacs-from-temacs", Frun_emacs_from_temacs, 0, MANY, 0, /*
2689 Do not call this. It will reinitialize your XEmacs. You'll be sorry.
2691 /* If this function is called from startup.el, it will be possible to run
2692 temacs as an editor using 'temacs -batch -l loadup.el run-temacs', instead
2693 of having to dump an emacs and then run that (when debugging emacs itself,
2694 this can be much faster)). [Actually, the speed difference isn't that
2695 much as long as your filesystem is local, and you don't end up with
2696 a dumped version in case you want to rerun it. This function is most
2697 useful when used as part of the `make all-elc' command. --ben]
2698 This will "restart" emacs with the specified command-line arguments.
2700 Martin thinks this function is most useful when using debugging
2701 tools like Purify or tcov that get confused by XEmacs' dumping. */
2702 (int nargs, Lisp_Object *args))
2705 const Extbyte *wampum;
2708 Lisp_Object orig_invoc_name = Fcar (Vcommand_line_args);
2709 const Extbyte **wampum_all = alloca_array (const Extbyte *, nargs);
2710 int *wampum_all_len = alloca_array (int, nargs);
2712 assert (!gc_in_progress);
2714 if (run_temacs_argc < 0)
2715 error ("I've lost my temacs-hood.");
2717 /* Need to convert the orig_invoc_name and all of the arguments
2718 to external format. */
2720 TO_EXTERNAL_FORMAT (LISP_STRING, orig_invoc_name,
2721 ALLOCA, (wampum, namesize),
2725 for (ac = 0, total_len = namesize; ac < nargs; ac++)
2727 CHECK_STRING (args[ac]);
2728 TO_EXTERNAL_FORMAT (LISP_STRING, args[ac],
2729 ALLOCA, (wampum_all[ac], wampum_all_len[ac]),
2731 wampum_all_len[ac]++;
2732 total_len += wampum_all_len[ac];
2734 DO_REALLOC (run_temacs_args, run_temacs_args_size, total_len, char);
2735 DO_REALLOC (run_temacs_argv, run_temacs_argv_size, nargs+2, char *);
2737 memcpy (run_temacs_args, wampum, namesize);
2738 run_temacs_argv [0] = run_temacs_args;
2739 for (ac = 0; ac < nargs; ac++)
2741 memcpy (run_temacs_args + namesize,
2742 wampum_all[ac], wampum_all_len[ac]);
2743 run_temacs_argv [ac + 1] = run_temacs_args + namesize;
2744 namesize += wampum_all_len[ac];
2746 run_temacs_argv [nargs + 1] = 0;
2747 catchlist = NULL; /* Important! Otherwise free_cons() calls in
2748 condition_case_unwind() may lead to GC death. */
2749 unbind_to (0, Qnil); /* this closes loadup.el */
2751 run_temacs_argc = nargs + 1;
2752 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
2753 report_sheap_usage (0);
2755 LONGJMP (run_temacs_catch, 1);
2756 return Qnil; /* not reached; warning suppression */
2761 main (int argc, char **argv, char **envp)
2765 /* Under VC++, access violations and the like are not sent through
2766 the standard signal() mechanism. Rather, they need to be handled
2767 using the Microsoft "structured exception handling" mechanism,
2768 which vaguely resembles the C++ mechanisms. */
2773 int volatile vol_argc = argc;
2774 char ** volatile vol_argv = argv;
2775 char ** volatile vol_envp = envp;
2776 /* This is hairy. We need to compute where the XEmacs binary was invoked
2777 from because temacs initialization requires it to find the lisp
2778 directories. The code that recomputes the path is guarded by the
2779 restarted flag. There are three possible paths I've found so far
2782 temacs -- When running temacs for basic build stuff, the first main_1
2783 will be the only one invoked. It must compute the path else there
2784 will be a very ugly bomb in startup.el (can't find obvious location
2785 for doc-directory data-directory, etc.).
2787 temacs w/ run-temacs on the command line -- This is run to bytecompile
2788 all the out of date dumped lisp. It will execute both of the main_1
2789 calls and the second one must not touch the first computation because
2790 argc/argv are hosed the second time through.
2792 xemacs -- Only the second main_1 is executed. The invocation path must
2793 computed but this only matters when running in place or when running
2796 As a bonus for straightening this out, XEmacs can now be run in place
2797 as a login shell. This never used to work.
2799 As another bonus, we can now guarantee that
2800 (concat invocation-directory invocation-name) contains the filename
2801 of the XEmacs binary we are running. This can now be used in a
2802 definite test for out of date dumped files. -slb */
2805 quantify_stop_recording_data ();
2806 quantify_clear_data ();
2807 #endif /* QUANTIFY */
2809 inhibit_non_essential_printing_operations = 1;
2810 suppress_early_error_handler_backtrace = 0;
2811 lim_data = 0; /* force reinitialization of this variable */
2813 /* Lisp_Object must fit in a word; check VALBITS and GCTYPEBITS */
2814 assert (sizeof (Lisp_Object) == sizeof (void *));
2816 #ifdef LINUX_SBRK_BUG
2822 #ifdef DOUG_LEA_MALLOC
2823 if (mallopt (M_MMAP_MAX, 0) != 1)
2826 run_temacs_argc = 0;
2827 if (! SETJMP (run_temacs_catch))
2829 main_1 (vol_argc, vol_argv, vol_envp, 0);
2831 /* run-emacs-from-temacs called */
2833 vol_argc = run_temacs_argc;
2834 vol_argv = run_temacs_argv;
2836 /* This makes absolutely no sense to anyone involved. There are
2837 several people using this stuff. We've compared versions on
2838 everything we can think of. We can find no difference.
2839 However, on both my systems environ is a plain old global
2840 variable initialized to zero. _environ is the one that
2841 contains pointers to the actual environment.
2843 Since we can't figure out the difference (and we're hours
2844 away from a release), this takes a very cowardly approach and
2845 is bracketed with both a system specific preprocessor test
2846 and a runtime "do you have this problem" test
2848 06/20/96 robertl@dgii.com */
2850 extern char **_environ;
2851 if ((unsigned) environ == 0)
2854 #endif /* _SCO_DS */
2857 #if defined (RUN_TIME_REMAP) && ! defined (PDUMP)
2859 /* obviously no-one uses this because where it was before initialized was
2861 run_time_remap (argv[0]);
2864 #ifdef DOUG_LEA_MALLOC
2865 if (initialized && (malloc_state_ptr != NULL))
2867 int rc = malloc_set_state (malloc_state_ptr);
2870 stderr_out ("malloc_set_state failed, rc = %d\n", rc);
2874 free (malloc_state_ptr);
2876 /* mmap works in glibc-2.1, glibc-2.0 (Non-Mule only) and Linux libc5 */
2877 #if (defined(__GLIBC__) && __GLIBC_MINOR__ >= 1) || \
2878 defined(_NO_MALLOC_WARNING_) || \
2879 (defined(__GLIBC__) && __GLIBC_MINOR__ < 1 && !defined(MULE)) || \
2880 defined(DEBUG_DOUG_LEA_MALLOC)
2881 if(mallopt (M_MMAP_MAX, 0) != 1)
2888 #endif /* DOUG_LEA_MALLOC */
2890 run_temacs_argc = -1;
2892 main_1 (vol_argc, vol_argv, vol_envp, restarted);
2896 /* VC++ documentation says that
2897 GetExceptionCode() cannot be called inside the filter itself. */
2898 __except (mswindows_handle_hardware_exceptions (GetExceptionCode ())) {}
2901 return 0; /* unreached */
2905 /* Dumping apparently isn't supported by versions of GCC >= 2.8. */
2906 /* The following needs conditionalization on whether either XEmacs or */
2907 /* various system shared libraries have been built and linked with */
2908 /* GCC >= 2.8. -slb */
2909 #if defined(GNU_MALLOC)
2911 voodoo_free_hook (void *mem)
2913 /* Disable all calls to free() when XEmacs is exiting and it doesn't */
2916 #if defined __GNUC__ || defined __INTEL_COMPILER
2917 /* prototype of __free_hook varies with glibc version */
2918 (__typeof__ (__free_hook))
2922 #endif /* GNU_MALLOC */
2924 DEFUN ("kill-emacs", Fkill_emacs, 0, 1, "P", /*
2925 Exit the XEmacs job and kill it. Ask for confirmation, without argument.
2926 If ARG is an integer, return ARG as the exit program code.
2927 If ARG is a string, stuff it as keyboard input.
2929 The value of `kill-emacs-hook', if not void,
2930 is a list of functions (of no args),
2931 all of which are called before XEmacs is actually killed.
2935 /* This function can GC */
2936 struct gcpro gcpro1;
2943 if (!preparing_for_armageddon && !noninteractive)
2944 run_hook (Qkill_emacs_hook);
2946 ensure_no_quitting_from_now_on ();
2948 if (!preparing_for_armageddon)
2950 Lisp_Object concons, nextcons;
2952 /* Normally, go ahead and delete all the consoles now.
2953 Some unmentionably lame window systems (MS Wwwww...... eek,
2954 I can't even say it) don't properly clean up after themselves,
2955 and even for those that do, it might be cleaner this way.
2956 If we're going down, however, we don't do this (might
2957 be too dangerous), and if we get a crash somewhere within
2958 this loop, we'll still autosave and won't try this again. */
2960 LIST_LOOP_DELETING (concons, nextcons, Vconsole_list)
2962 /* There is very little point in deleting the stream console.
2963 It uses stdio, which should flush any buffered output and
2964 something can only go wrong. -slb */
2965 /* I changed my mind. There's a stupid hack in close to add
2966 a trailing newline. */
2967 /*if (!CONSOLE_STREAM_P (XCONSOLE (XCAR (concons))))*/
2968 delete_console_internal (XCONSOLE (XCAR (concons)), 1, 1, 0);
2974 #ifdef HAVE_MS_WINDOWS
2975 /* If we displayed a message on the console, then we must allow the
2976 user to see this message. This may be unnecessary, but can't
2977 hurt, and we can't necessarily check arg; e.g. xemacs --help
2978 kills with argument 0.
2980 Don't do this in batch mode, it makes no sense and is more
2981 annoying than useful. --andyp */
2982 if (mswindows_message_outputted && !noninteractive)
2983 Fmswindows_message_box (build_string ("Messages outputted. XEmacs is exiting."),
2987 shut_down_emacs (0, STRINGP (arg) ? arg : Qnil, 0);
2989 #if defined(GNU_MALLOC)
2991 #if defined __GNUC__ || defined __INTEL_COMPILER
2992 /* prototype of __free_hook varies with glibc version */
2993 (__typeof__ (__free_hook))
2998 exit (INTP (arg) ? XINT (arg) : 0);
3000 return Qnil; /* I'm sick of the compiler warning */
3003 /* Perform an orderly shutdown of XEmacs. Autosave any modified
3004 buffers, kill any child processes, clean up the terminal modes (if
3005 we're in the foreground), and other stuff like that. Don't perform
3006 any redisplay; this may be called when XEmacs is shutting down in
3007 the background, or after its X connection has died.
3009 If SIG is a signal number, print a message for it.
3011 This is called by fatal signal handlers and Fkill_emacs. It used to
3012 be called by X protocol error handlers, but instead they now call
3015 shut_down_emacs (int sig, Lisp_Object stuff, int no_auto_save)
3017 /* This function can GC */
3018 /* Prevent running of hooks and other non-essential stuff
3020 preparing_for_armageddon = 1;
3022 ensure_no_quitting_from_now_on ();
3025 quantify_stop_recording_data ();
3026 #endif /* QUANTIFY */
3028 /* This is absolutely the most important thing to do, so make sure
3029 we do it now, before anything else. We might have crashed and
3030 be in a weird inconsistent state, and potentially anything could
3031 set off another protection fault and cause us to bail out
3033 /* Steve writes the following:
3035 [[I'm not removing the code entirely, yet. We have run up against
3036 a spate of problems in diagnosing crashes due to crashes within
3037 crashes. It has very definitely been determined that code called
3038 during auto-saving cannot work if XEmacs crashed inside of GC.
3039 We already auto-save on an itimer so there cannot be too much
3040 unsaved stuff around, and if we get better crash reports we might
3041 be able to get more problems fixed so I'm disabling this. -slb]]
3043 and DISABLES AUTO-SAVING ENTIRELY during crashes! Way way bad idea.
3045 Instead let's just be more intelligent about avoiding crashing
3046 when possible, esp. nested crashes.
3049 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
3052 reset_all_consoles ();
3053 if (sig && sig != SIGTERM)
3056 stderr_out ("\nFatal error.\n\n");
3058 stderr_out ("\nFatal error (%d).\n\n", sig);
3060 ("Your files have been auto-saved.\n"
3061 "Use `M-x recover-session' to recover them.\n"
3063 "Your version of XEmacs was distributed with a PROBLEMS file that may describe\n"
3064 "your crash, and with luck a workaround. Please check it first, but do report\n"
3065 "the crash anyway. "
3067 "\n\nPlease report this bug by selecting `Report-Bug' in the InfoDock menu.\n"
3068 "*BE SURE* to include the XEmacs configuration from M-x describe-installation,\n"
3069 "or the file Installation in the top directory of the build tree.\n"
3071 "Please report this bug by invoking M-x report-emacs-bug,\n"
3072 "or by selecting `Send Bug Report' from the Help menu. If necessary, send\n"
3073 "ordinary email to `xemacs-beta@xemacs.org'. *MAKE SURE* to include the XEmacs\n"
3074 "configuration from M-x describe-installation, or equivalently the file\n"
3075 "Installation in the top of the build tree.\n"
3079 "*Please* try *hard* to obtain a C stack backtrace; without it, we are unlikely\n"
3080 "to be able to analyze the problem. Locate the core file produced as a result\n"
3081 "of this crash (often called `core' or `core.<process-id>', and located in\n"
3082 "the directory in which you started XEmacs or your home directory), and type\n"
3092 /* Now try to determine the actual path to the executable,
3093 to try to make the backtrace-determination process as foolproof
3095 if (STRINGP (Vinvocation_name))
3096 name = (char *) XSTRING_DATA (Vinvocation_name);
3099 if (STRINGP (Vinvocation_directory))
3100 dir = (char *) XSTRING_DATA (Vinvocation_directory);
3101 if (!dir || dir[0] != '/')
3102 stderr_out ("`which %s`", name);
3103 else if (dir[strlen (dir) - 1] != '/')
3104 stderr_out ("%s/%s", dir, name);
3106 stderr_out ("%s%s", dir, name);
3111 "then type `where' at the debugger prompt. No GDB on your system? You may\n"
3112 "have DBX, or XDB, or SDB. (Ask your system administrator if you need help.)\n"
3113 "If no core file was produced, enable them (often with `ulimit -c unlimited'\n"
3114 "in case of future recurrance of the crash.\n");
3115 #endif /* _MSC_VER */
3118 stuff_buffered_input (stuff);
3120 kill_buffer_processes (Qnil);
3122 #ifdef CLASH_DETECTION
3123 unlock_all_files ();
3127 tt_session_quit (tt_default_session ());
3129 /* The following crashes when built on X11R5 and run on X11R6 */
3132 #endif /* TOOLTALK */
3139 #if !defined(PDUMP) || !defined(SYSTEM_MALLOC)
3140 extern char my_edata[];
3143 extern void disable_free_hook (void);
3145 DEFUN ("dump-emacs", Fdump_emacs, 2, 2, 0, /*
3146 Dump current state of XEmacs into executable file FILENAME.
3147 Take symbols from SYMFILE (presumably the file you executed to run XEmacs).
3148 This is used in the file `loadup.el' when building XEmacs.
3150 Remember to set `command-line-processed' to nil before dumping
3151 if you want the dumped XEmacs to process its command line
3152 and announce itself normally when it is run.
3154 (filename, symfile))
3156 /* This function can GC */
3157 struct gcpro gcpro1, gcpro2;
3160 GCPRO2 (filename, symfile);
3162 #ifdef FREE_CHECKING
3163 Freally_free (Qnil);
3165 /* When we're dumping, we can't use the debugging free() */
3166 disable_free_hook ();
3169 CHECK_STRING (filename);
3170 filename = Fexpand_file_name (filename, Qnil);
3171 if (!NILP (symfile))
3173 CHECK_STRING (symfile);
3174 if (XSTRING_LENGTH (symfile) > 0)
3175 symfile = Fexpand_file_name (symfile, Qnil);
3180 opurify = purify_flag;
3183 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
3184 report_sheap_usage (1);
3192 disksave_object_finalization ();
3193 release_breathing_space ();
3195 /* Tell malloc where start of impure now is */
3196 /* Also arrange for warnings when nearly out of space. */
3197 #ifndef SYSTEM_MALLOC
3198 memory_warnings (my_edata, malloc_warning);
3207 LISP_STRING_TO_EXTERNAL (filename, filename_ext, Qfile_name);
3209 if (STRINGP (symfile))
3210 LISP_STRING_TO_EXTERNAL (symfile, symfile_ext, Qfile_name);
3214 garbage_collect_1 ();
3220 #ifdef DOUG_LEA_MALLOC
3221 malloc_state_ptr = malloc_get_state ();
3223 /* here we break our rule that the filename conversion should
3224 be performed at the actual time that the system call is made.
3225 It's a whole lot easier to do the conversion here than to
3226 modify all the unexec routines to ensure that filename
3227 conversion is applied everywhere. Don't worry about memory
3228 leakage because this call only happens once. */
3229 unexec (filename_ext, symfile_ext, (uintptr_t) my_edata, 0, 0);
3230 #ifdef DOUG_LEA_MALLOC
3231 free (malloc_state_ptr);
3233 #endif /* not PDUMP */
3236 purify_flag = opurify;
3241 #endif /* not CANNOT_DUMP */
3244 /* Split STRING into a list of substrings. The substrings are the
3245 parts of original STRING separated by SEPCHAR. */
3247 split_string_by_emchar_1 (const Bufbyte *string, Bytecount size,
3250 Lisp_Object result = Qnil;
3251 const Bufbyte *end = string + size;
3255 const Bufbyte *p = string;
3258 if (charptr_emchar (p) == sepchar)
3262 result = Fcons (make_string (string, p - string), result);
3266 INC_CHARPTR (string); /* skip sepchar */
3271 return Fnreverse (result);
3274 /* The same as the above, except PATH is an external C string (it is
3275 converted using Qfile_name), and sepchar is hardcoded to SEPCHAR
3276 (':' or whatever). */
3278 decode_path (const char *path)
3285 TO_INTERNAL_FORMAT (C_STRING, path, ALLOCA, (newpath, newlen), Qfile_name);
3287 /* #### Does this make sense? It certainly does for
3288 decode_env_path(), but it looks dubious here. Does any code
3289 depend on decode_path("") returning nil instead of an empty
3294 return split_string_by_emchar_1 (newpath, newlen, SEPCHAR);
3298 decode_env_path (const char *evarname, const char *default_)
3300 const char *path = 0;
3302 path = egetenv (evarname);
3305 return decode_path (path);
3308 /* Ben thinks this function should not exist or be exported to Lisp.
3309 We use it to define split-path-string in subr.el (not!). */
3311 DEFUN ("split-string-by-char", Fsplit_string_by_char, 2, 2, 0, /*
3312 Split STRING into a list of substrings originally separated by SEPCHAR.
3316 CHECK_STRING (string);
3317 CHECK_CHAR (sepchar);
3318 return split_string_by_emchar_1 (XSTRING_DATA (string),
3319 XSTRING_LENGTH (string),
3323 /* #### This was supposed to be in subr.el, but is used VERY early in
3324 the bootstrap process, so it goes here. Damn. */
3326 DEFUN ("split-path", Fsplit_path, 1, 1, 0, /*
3327 Explode a search path into a list of strings.
3328 The path components are separated with the characters specified
3329 with `path-separator'.
3333 CHECK_STRING (path);
3335 while (!STRINGP (Vpath_separator)
3336 || (XSTRING_CHAR_LENGTH (Vpath_separator) != 1))
3337 Vpath_separator = signal_simple_continuable_error
3338 ("`path-separator' should be set to a single-character string",
3341 return (split_string_by_emchar_1
3342 (XSTRING_DATA (path), XSTRING_LENGTH (path),
3343 charptr_emchar (XSTRING_DATA (Vpath_separator))));
3346 DEFUN ("noninteractive", Fnoninteractive, 0, 0, 0, /*
3347 Non-nil return value means XEmacs is running without interactive terminal.
3351 return noninteractive ? Qt : Qnil;
3354 /* This flag is useful to define if you're under a debugger; this way, you
3355 can put a breakpoint of assert_failed() and debug multiple problems
3356 in one session without having to recompile. */
3357 /* #define ASSERTIONS_DONT_ABORT */
3359 /* This highly dubious kludge ... shut up Jamie, I'm tired of your slagging. */
3361 static int in_assert_failed;
3362 static const char *assert_failed_file;
3363 static int assert_failed_line;
3364 static const char *assert_failed_expr;
3370 #if defined (WIN32_NATIVE) && defined (DEBUG_XEMACS)
3371 #define enter_debugger() DebugBreak ()
3373 #define enter_debugger()
3377 assert_failed (const char *file, int line, const char *expr)
3379 /* If we're already crashing, let's not crash again. This might be
3380 critical to getting auto-saving working properly. */
3381 if (fatal_error_in_progress)
3384 /* We are extremely paranoid so we sensibly deal with recursive
3385 assertion failures. */
3387 inhibit_non_essential_printing_operations = 1;
3389 if (in_assert_failed >= 4)
3391 else if (in_assert_failed == 3)
3396 else if (in_assert_failed == 2)
3398 /* Not stderr_out(), which does additional things and may trigger
3399 a recursive assertion failure. fprintf was undeffed above, in
3400 case it was encapsulated. */
3402 "Fatal error: recursive assertion failure, "
3403 "file %s, line %d, %s\n",
3406 "Original assertion failure: file %s, line %d, %s\n",
3407 assert_failed_file, assert_failed_line, assert_failed_expr);
3411 assert_failed_file = file;
3412 assert_failed_line = line;
3413 assert_failed_expr = expr;
3417 "Fatal error: assertion failed, file %s, line %d, %s\n",
3420 stderr_out ("Fatal error: assertion failed, file %s, line %d, %s\n",
3425 #if !defined (ASSERTIONS_DONT_ABORT)
3426 abort (); /* The real abort(), this time */
3428 inhibit_non_essential_printing_operations = 0;
3429 in_assert_failed = 0;
3433 DEFUN ("quantify-start-recording-data", Fquantify_start_recording_data,
3435 Start recording Quantify data.
3439 quantify_start_recording_data ();
3443 DEFUN ("quantify-stop-recording-data", Fquantify_stop_recording_data,
3445 Stop recording Quantify data.
3449 quantify_stop_recording_data ();
3453 DEFUN ("quantify-clear-data", Fquantify_clear_data, 0, 0, "", /*
3454 Clear all Quantify data.
3458 quantify_clear_data ();
3461 #endif /* QUANTIFY */
3464 syms_of_emacs (void)
3467 DEFSUBR (Fdump_emacs);
3468 #endif /* !CANNOT_DUMP */
3470 DEFSUBR (Frun_emacs_from_temacs);
3471 DEFSUBR (Frunning_temacs_p);
3472 DEFSUBR (Finvocation_name);
3473 DEFSUBR (Finvocation_directory);
3474 DEFSUBR (Fkill_emacs);
3475 DEFSUBR (Fnoninteractive);
3478 DEFSUBR (Fforce_debugging_signal);
3482 DEFSUBR (Fquantify_start_recording_data);
3483 DEFSUBR (Fquantify_stop_recording_data);
3484 DEFSUBR (Fquantify_clear_data);
3485 #endif /* QUANTIFY */
3487 DEFSUBR (Fsplit_string_by_char);
3488 DEFSUBR (Fsplit_path); /* #### */
3490 defsymbol (&Qkill_emacs_hook, "kill-emacs-hook");
3491 defsymbol (&Qsave_buffers_kill_emacs, "save-buffers-kill-emacs");
3495 vars_of_emacs (void)
3497 DEFVAR_BOOL ("suppress-early-error-handler-backtrace",
3498 &suppress_early_error_handler_backtrace /*
3499 Non-nil means early error handler shouldn't print a backtrace.
3502 DEFVAR_LISP ("command-line-args", &Vcommand_line_args /*
3503 Args passed by shell to XEmacs, as a list of strings.
3506 DEFVAR_LISP ("invocation-name", &Vinvocation_name /*
3507 The program name that was used to run XEmacs.
3508 Any directory names are omitted.
3511 DEFVAR_LISP ("invocation-directory", &Vinvocation_directory /*
3512 The directory in which the XEmacs executable was found, to run it.
3513 The value is simply the program name if that directory's name is not known.
3516 DEFVAR_LISP ("invocation-path", &Vinvocation_path /*
3517 The path in which the XEmacs executable was found, to run it.
3518 The value is simply the value of environment variable PATH on startup
3519 if XEmacs was found there.
3523 xxDEFVAR_LISP ("installation-directory", &Vinstallation_directory,
3524 "A directory within which to look for the `lib-src' and `etc' directories.\n"
3525 "This is non-nil when we can't find those directories in their standard\n"
3526 "installed locations, but we can find them\n"
3527 "near where the XEmacs executable was found.");
3530 DEFVAR_LISP ("system-type", &Vsystem_type /*
3531 Symbol indicating type of operating system you are using.
3533 Vsystem_type = intern (SYSTEM_TYPE);
3534 Fprovide (intern(SYSTEM_TYPE));
3536 #ifndef EMACS_CONFIGURATION
3537 # define EMACS_CONFIGURATION "UNKNOWN"
3539 DEFVAR_LISP ("system-configuration", &Vsystem_configuration /*
3540 String naming the configuration XEmacs was built for.
3542 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
3544 #ifndef EMACS_CONFIG_OPTIONS
3545 # define EMACS_CONFIG_OPTIONS "UNKNOWN"
3547 DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options /*
3548 String containing the configuration options XEmacs was built with.
3550 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
3552 DEFVAR_LISP ("emacs-major-version", &Vemacs_major_version /*
3553 Major version number of this version of Emacs, as an integer.
3554 Warning: this variable did not exist in Emacs versions earlier than:
3558 Vemacs_major_version = make_int (EMACS_MAJOR_VERSION);
3560 DEFVAR_LISP ("emacs-minor-version", &Vemacs_minor_version /*
3561 Minor version number of this version of Emacs, as an integer.
3562 Warning: this variable did not exist in Emacs versions earlier than:
3566 Vemacs_minor_version = make_int (EMACS_MINOR_VERSION);
3568 DEFVAR_LISP ("emacs-patch-level", &Vemacs_patch_level /*
3569 The patch level of this version of Emacs, as an integer.
3570 The value is non-nil if this version of XEmacs is part of a series of
3571 stable XEmacsen, but has bug fixes applied.
3572 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
3575 #ifdef EMACS_PATCH_LEVEL
3576 Vemacs_patch_level = make_int (EMACS_PATCH_LEVEL);
3578 Vemacs_patch_level = Qnil;
3581 DEFVAR_LISP ("emacs-beta-version", &Vemacs_beta_version /*
3582 Beta number of this version of Emacs, as an integer.
3583 The value is nil if this is an officially released version of XEmacs.
3584 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
3587 #ifdef EMACS_BETA_VERSION
3588 Vemacs_beta_version = make_int (EMACS_BETA_VERSION);
3590 Vemacs_beta_version = Qnil;
3594 DEFVAR_LISP ("infodock-major-version", &Vinfodock_major_version /*
3595 Major version number of this InfoDock release.
3597 Vinfodock_major_version = make_int (INFODOCK_MAJOR_VERSION);
3599 DEFVAR_LISP ("infodock-minor-version", &Vinfodock_minor_version /*
3600 Minor version number of this InfoDock release.
3602 Vinfodock_minor_version = make_int (INFODOCK_MINOR_VERSION);
3604 DEFVAR_LISP ("infodock-build-version", &Vinfodock_build_version /*
3605 Build version of this InfoDock release.
3607 Vinfodock_build_version = make_int (INFODOCK_BUILD_VERSION);
3610 DEFVAR_LISP ("xemacs-codename", &Vxemacs_codename /*
3611 Codename of this version of Emacs (a string).
3613 #ifndef XEMACS_CODENAME
3614 #define XEMACS_CODENAME "Noname"
3616 Vxemacs_codename = build_string (XEMACS_CODENAME);
3618 /* Lisp variables which contain command line flags.
3620 The portable dumper stomps on these; they must be saved and restored
3621 if they are processed before the call to pdump_load() in main_1().
3623 DEFVAR_BOOL ("noninteractive", &noninteractive1 /*
3624 Non-nil means XEmacs is running without interactive terminal.
3627 DEFVAR_BOOL ("inhibit-early-packages", &inhibit_early_packages /*
3628 Set to non-nil when the early packages should not be respected at startup.
3631 DEFVAR_BOOL ("inhibit-autoloads", &inhibit_autoloads /*
3632 Set to non-nil when autoloads should not be loaded at startup.
3635 DEFVAR_BOOL ("debug-paths", &debug_paths /*
3636 Set to non-nil when debug information about paths should be printed.
3639 DEFVAR_BOOL ("inhibit-site-lisp", &inhibit_site_lisp /*
3640 Set to non-nil when the site-lisp should not be searched at startup.
3642 #ifdef INHIBIT_SITE_LISP
3643 inhibit_site_lisp = 1;
3646 DEFVAR_BOOL ("inhibit-site-modules", &inhibit_site_modules /*
3647 Set to non-nil when site-modules should not be searched at startup.
3649 #ifdef INHIBIT_SITE_MODULES
3650 inhibit_site_modules = 1;
3653 DEFVAR_INT ("emacs-priority", &emacs_priority /*
3654 Priority for XEmacs to run at.
3655 This value is effective only if set before XEmacs is dumped,
3656 and only if the XEmacs executable is installed with setuid to permit
3657 it to change priority. (XEmacs sets its uid back to the real uid.)
3658 Currently, you need to define SET_EMACS_PRIORITY in `config.h'
3659 before you compile XEmacs, to enable the code for this feature.
3663 DEFVAR_CONST_LISP ("internal-error-checking", &Vinternal_error_checking /*
3664 Internal error checking built-in into this instance of XEmacs.
3665 This is a list of symbols, initialized at build-time. Legal symbols
3668 extents - check extents prior to each extent change;
3669 typecheck - check types strictly, aborting in case of error;
3670 malloc - check operation of malloc;
3671 gc - check garbage collection;
3672 bufpos - check buffer positions.
3674 quick-build - user has requested the "quick-build" configure option.
3676 Vinternal_error_checking = Qnil;
3677 #ifdef ERROR_CHECK_EXTENTS
3678 Vinternal_error_checking = Fcons (intern ("extents"),
3679 Vinternal_error_checking);
3681 #ifdef ERROR_CHECK_TYPECHECK
3682 Vinternal_error_checking = Fcons (intern ("typecheck"),
3683 Vinternal_error_checking);
3685 #ifdef ERROR_CHECK_MALLOC
3686 Vinternal_error_checking = Fcons (intern ("malloc"),
3687 Vinternal_error_checking);
3689 #ifdef ERROR_CHECK_GC
3690 Vinternal_error_checking = Fcons (intern ("gc"),
3691 Vinternal_error_checking);
3693 #ifdef ERROR_CHECK_BUFPOS
3694 Vinternal_error_checking = Fcons (intern ("bufpos"),
3695 Vinternal_error_checking);
3698 Vinternal_error_checking = Fcons (intern ("quick-build"),
3699 Vinternal_error_checking);
3702 DEFVAR_CONST_LISP ("mail-lock-methods", &Vmail_lock_methods /*
3703 Mail spool locking methods supported by this instance of XEmacs.
3704 This is a list of symbols. Each of the symbols is one of the
3705 following: dot, lockf, flock, locking, mmdf.
3708 Vmail_lock_methods = Qnil;
3709 Vmail_lock_methods = Fcons (intern ("dot"), Vmail_lock_methods);
3711 Vmail_lock_methods = Fcons (intern ("lockf"), Vmail_lock_methods);
3714 Vmail_lock_methods = Fcons (intern ("flock"), Vmail_lock_methods);
3717 Vmail_lock_methods = Fcons (intern ("mmdf"), Vmail_lock_methods);
3720 Vmail_lock_methods = Fcons (intern ("locking"), Vmail_lock_methods);
3724 DEFVAR_CONST_LISP ("configure-mail-lock-method", &Vconfigure_mail_lock_method /*
3725 Mail spool locking method suggested by configure. This is one
3726 of the symbols in MAIL-LOCK-METHODS.
3729 #if defined(MAIL_LOCK_FLOCK) && defined(HAVE_FLOCK)
3730 Vconfigure_mail_lock_method = intern("flock");
3731 #elif defined(MAIL_LOCK_LOCKF) && defined(HAVE_LOCKF)
3732 Vconfigure_mail_lock_method = intern("lockf");
3733 #elif defined(MAIL_LOCK_MMDF) && defined(HAVE_MMDF)
3734 Vconfigure_mail_lock_method = intern("mmdf");
3735 #elif defined(MAIL_LOCK_LOCKING) && defined(HAVE_LOCKING)
3736 Vconfigure_mail_lock_method = intern("locking");
3738 Vconfigure_mail_lock_method = intern("dot");
3742 DEFVAR_LISP ("path-separator", &Vpath_separator /*
3743 The directory separator in search paths, as a string.
3747 Vpath_separator = make_string ((Bufbyte *)&c, 1);
3752 complex_vars_of_emacs (void)
3754 /* This is all related to path searching. */
3756 DEFVAR_LISP ("emacs-program-name", &Vemacs_program_name /*
3757 *Name of the Emacs variant.
3758 For example, this may be \"xemacs\" or \"infodock\".
3759 This is mainly meant for use in path searching.
3761 Vemacs_program_name = build_string ((char *) PATH_PROGNAME);
3763 DEFVAR_LISP ("emacs-program-version", &Vemacs_program_version /*
3764 *Version of the Emacs variant.
3765 This typically has the form NN.NN-bNN.
3766 This is mainly meant for use in path searching.
3768 Vemacs_program_version = build_string ((char *) PATH_VERSION);
3770 DEFVAR_LISP ("exec-path", &Vexec_path /*
3771 *List of directories to search programs to run in subprocesses.
3772 Each element is a string (directory name) or nil (try default directory).
3776 DEFVAR_LISP ("exec-directory", &Vexec_directory /*
3777 *Directory of architecture-dependent files that come with XEmacs,
3778 especially executable programs intended for XEmacs to invoke.
3780 Vexec_directory = Qnil;
3782 DEFVAR_LISP ("configure-exec-directory", &Vconfigure_exec_directory /*
3783 For internal use by the build procedure only.
3784 configure's idea of what `exec-directory' will be.
3787 Vconfigure_exec_directory = Ffile_name_as_directory
3788 (build_string ((char *) PATH_EXEC));
3790 Vconfigure_exec_directory = Qnil;
3793 DEFVAR_LISP ("lisp-directory", &Vlisp_directory /*
3794 *Directory of core Lisp files that come with XEmacs.
3796 Vlisp_directory = Qnil;
3798 DEFVAR_LISP ("configure-lisp-directory", &Vconfigure_lisp_directory /*
3799 For internal use by the build procedure only.
3800 configure's idea of what `lisp-directory' will be.
3802 #ifdef PATH_LOADSEARCH
3803 Vconfigure_lisp_directory = Ffile_name_as_directory
3804 (build_string ((char *) PATH_LOADSEARCH));
3806 Vconfigure_lisp_directory = Qnil;
3809 DEFVAR_LISP ("mule-lisp-directory", &Vmule_lisp_directory /*
3810 *Directory of Mule Lisp files that come with XEmacs.
3812 Vmule_lisp_directory = Qnil;
3814 DEFVAR_LISP ("configure-mule-lisp-directory", &Vconfigure_mule_lisp_directory /*
3815 For internal use by the build procedure only.
3816 configure's idea of what `mule-lisp-directory' will be.
3818 #ifdef PATH_MULELOADSEARCH
3819 Vconfigure_mule_lisp_directory = Ffile_name_as_directory
3820 (build_string ((char *) PATH_MULELOADSEARCH));
3822 Vconfigure_mule_lisp_directory = Qnil;
3825 DEFVAR_LISP ("module-directory", &Vmodule_directory /*
3826 *Directory of core dynamic modules that come with XEmacs.
3828 Vmodule_directory = Qnil;
3830 DEFVAR_LISP ("configure-module-directory", &Vconfigure_module_directory /*
3831 For internal use by the build procedure only.
3832 configure's idea of what `module-directory' will be.
3834 #ifdef PATH_MODULESEARCH
3835 Vconfigure_module_directory = Ffile_name_as_directory
3836 (build_string ((char *) PATH_MODULESEARCH));
3838 Vconfigure_module_directory = Qnil;
3841 DEFVAR_LISP ("configure-package-path", &Vconfigure_package_path /*
3842 For internal use by the build procedure only.
3843 configure's idea of what the package path will be.
3845 #ifdef PATH_PACKAGEPATH
3846 Vconfigure_package_path = decode_path (PATH_PACKAGEPATH);
3848 Vconfigure_package_path = Qnil;
3851 DEFVAR_LISP ("data-directory", &Vdata_directory /*
3852 *Directory of architecture-independent files that come with XEmacs,
3853 intended for XEmacs to use.
3854 Use of this variable in new code is almost never correct. See the
3855 functions `locate-data-file' and `locate-data-directory' and the variable
3856 `data-directory-list'.
3858 Vdata_directory = Qnil;
3860 DEFVAR_LISP ("configure-data-directory", &Vconfigure_data_directory /*
3861 For internal use by the build procedure only.
3862 configure's idea of what `data-directory' will be.
3865 Vconfigure_data_directory = Ffile_name_as_directory
3866 (build_string ((char *) PATH_DATA));
3868 Vconfigure_data_directory = Qnil;
3871 DEFVAR_LISP ("data-directory-list", &Vdata_directory_list /*
3872 *List of directories of architecture-independent files that come with XEmacs
3873 or were installed as packages, and are intended for XEmacs to use.
3875 Vdata_directory_list = Qnil;
3877 DEFVAR_LISP ("site-directory", &Vsite_directory /*
3878 *Directory of site-specific Lisp files that come with XEmacs.
3880 Vsite_directory = Qnil;
3882 DEFVAR_LISP ("configure-site-directory", &Vconfigure_site_directory /*
3883 For internal use by the build procedure only.
3884 configure's idea of what `site-directory' will be.
3887 Vconfigure_site_directory = Ffile_name_as_directory
3888 (build_string ((char *) PATH_SITE));
3890 Vconfigure_site_directory = Qnil;
3893 DEFVAR_LISP ("site-module-directory", &Vsite_module_directory /*
3894 *Directory of site-specific loadable modules that come with XEmacs.
3896 Vsite_module_directory = Qnil;
3898 DEFVAR_LISP ("configure-site-module-directory", &Vconfigure_site_module_directory /*
3899 For internal use by the build procedure only.
3900 configure's idea of what `site-directory' will be.
3902 #ifdef PATH_SITE_MODULES
3903 Vconfigure_site_module_directory = Ffile_name_as_directory
3904 (build_string ((char *) PATH_SITE_MODULES));
3906 Vconfigure_site_module_directory = Qnil;
3909 DEFVAR_LISP ("doc-directory", &Vdoc_directory /*
3910 *Directory containing the DOC file that comes with XEmacs.
3911 This is usually the same as `exec-directory'.
3913 Vdoc_directory = Qnil;
3915 DEFVAR_LISP ("configure-doc-directory", &Vconfigure_doc_directory /*
3916 For internal use by the build procedure only.
3917 configure's idea of what `doc-directory' will be.
3920 Vconfigure_doc_directory = Ffile_name_as_directory
3921 (build_string ((char *) PATH_DOC));
3923 Vconfigure_doc_directory = Qnil;
3926 DEFVAR_LISP ("configure-exec-prefix-directory", &Vconfigure_exec_prefix_directory /*
3927 For internal use by the build procedure only.
3928 configure's idea of what `exec-prefix-directory' will be.
3930 #ifdef PATH_EXEC_PREFIX
3931 Vconfigure_exec_prefix_directory = Ffile_name_as_directory
3932 (build_string ((char *) PATH_EXEC_PREFIX));
3934 Vconfigure_exec_prefix_directory = Qnil;
3937 DEFVAR_LISP ("configure-prefix-directory", &Vconfigure_prefix_directory /*
3938 For internal use by the build procedure only.
3939 configure's idea of what `prefix-directory' will be.
3942 Vconfigure_prefix_directory = Ffile_name_as_directory
3943 (build_string ((char *) PATH_PREFIX));
3945 Vconfigure_prefix_directory = Qnil;
3948 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory /*
3949 For internal use by the build procedure only.
3950 This is the name of the directory in which the build procedure installed
3951 Emacs's info files; the default value for Info-default-directory-list
3955 Vconfigure_info_directory =
3956 Ffile_name_as_directory (build_string (PATH_INFO));
3958 Vconfigure_info_directory = Qnil;
3961 DEFVAR_LISP ("configure-info-path", &Vconfigure_info_path /*
3962 The configured initial path for info documentation.
3964 #ifdef PATH_INFOPATH
3965 Vconfigure_info_path = decode_path (PATH_INFOPATH);
3967 Vconfigure_info_path = Qnil;
3971 #if defined(__sgi) && !defined(PDUMP)
3972 /* This is so tremendously ugly I'd puke. But then, it works.
3973 * The target is to override the static constructor from the
3974 * libiflPNG.so library which is masquerading as libz, and
3975 * cores on us when re-started from the dumped executable.
3976 * This will have to go for 21.1 -- OG.
3978 void __sti__iflPNGFile_c___ (void);
3980 __sti__iflPNGFile_c___ (void)