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.
6 Copyright (C) 2000,2002,2005,2006,2010 MORIOKA Tomohiko.
8 This file is part of XEmacs.
10 XEmacs is free software; you can redistribute it and/or modify it
11 under the terms of the GNU General Public License as published by the
12 Free Software Foundation; either version 2, or (at your option) any
15 XEmacs is distributed in the hope that it will be useful, but WITHOUT
16 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
17 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
20 You should have received a copy of the GNU General Public License
21 along with XEmacs; see the file COPYING. If not, write to
22 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
23 Boston, MA 02111-1307, USA. */
25 /* Synched up with: Mule 2.0, FSF 19.28. */
27 /* Capsule summary of the various releases of Lucid Emacs/XEmacs and
28 FSF/GNU Emacs. Provided here for use in cross-referencing version
29 releases and dates in comments, esp. in the authorship comments at
30 the beginning of each file. More information about history can be
31 found in the beginning of the Internals Manual and in the About page.
34 -- A time line for Lucid Emacs/XEmacs is
36 version 19.0 shipped with Energize 1.0, April 1992.
37 version 19.1 released June 4, 1992.
38 version 19.2 released June 19, 1992.
39 version 19.3 released September 9, 1992.
40 version 19.4 released January 21, 1993.
41 version 19.5 was a repackaging of 19.4 with a few bug fixes and
42 shipped with Energize 2.0. Never released to the net.
43 version 19.6 released April 9, 1993.
44 version 19.7 was a repackaging of 19.6 with a few bug fixes and
45 shipped with Energize 2.1. Never released to the net.
46 version 19.8 released September 6, 1993.
47 version 19.9 released January 12, 1994.
48 version 19.10 released May 27, 1994.
49 version 19.11 (first XEmacs) released September 13, 1994.
50 version 19.12 released June 23, 1995.
51 version 19.13 released September 1, 1995.
52 version 19.14 released June 23, 1996.
53 version 20.0 released February 9, 1997.
54 version 19.15 released March 28, 1997.
55 version 20.1 (not released to the net) April 15, 1997.
56 version 20.2 released May 16, 1997.
57 version 19.16 released October 31, 1997.
58 version 20.3 (the first stable version of XEmacs 20.x) released
60 version 20.4 released February 28, 1998.
63 -- A time line for GNU Emacs version 19 is
65 version 19.7 (beta) (first beta release) released ??????; prob. late May 1993.
66 version 19.8 (beta) released May 27, 1993.
67 version 19.9 (beta) released May 27, 1993.
68 version 19.10 (beta) released May 30, 1993.
69 version 19.11 (beta) released June 1, 1993.
70 version 19.12 (beta) released June 2, 1993.
71 version 19.13 (beta) released June 8, 1993.
72 version 19.14 (beta) released June 17, 1993.
73 version 19.15 (beta) released June 19, 1993.
74 version 19.16 (beta) released July 6, 1993.
75 version 19.17 (beta) released late July, 1993.
76 version 19.18 (beta) released August 9, 1993.
77 version 19.19 (beta) released August 15, 1993.
78 version 19.20 (beta) released November 17, 1993.
79 version 19.21 (beta) released November 17, 1993.
80 version 19.22 (beta) released November 28, 1993.
81 version 19.23 (beta) released May 17, 1994.
82 version 19.24 (beta) released May 16, 1994.
83 version 19.25 (beta) released June 3, 1994.
84 version 19.26 (beta) released September 11, 1994.
85 version 19.27 (beta) released September 14, 1994.
86 version 19.28 (first ``official'' release) released November 1, 1994.
87 version 19.29 released June 21, 1995.
88 version 19.30 released November 24, 1995.
89 version 19.31 released May 25, 1996.
90 version 19.32 released July 31, 1996.
91 version 19.33 released August 11, 1996.
92 version 19.34 released August 21, 1996.
93 version 19.34b released September 6, 1996.
96 -- A time line for GNU Emacs version 20 is
98 version 20.1 released September 17, 1997.
99 version 20.2 released September 20, 1997.
100 version 20.3 released August 19, 1998.
103 -- A time line for GNU Emacs version 18 and older is
105 GNU Emacs version 15 (15.34) was released sometime in 1984 or 1985 and
106 shared some code with a version of Emacs written by James Gosling (the
107 same James Gosling who later created the Java language).
108 GNU Emacs version 16 (first released version was 16.56) was released on
109 July 15, 1985. All Gosling code was removed due to potential copyright
110 problems with the code.
111 version 16.57: released on September 16, 1985.
112 versions 16.58, 16.59: released on September 17, 1985.
113 version 16.60: released on September 19, 1985. These later version 16's
114 incorporated patches from the net, esp. for getting Emacs to work under
116 version 17.36 (first official v17 release) released on December 20, 1985.
117 Included a TeX-able user manual. First official unpatched version that
118 worked on vanilla System V machines.
119 version 17.43 (second official v17 release) released on January 25, 1986.
120 version 17.45 released on January 30, 1986.
121 version 17.46 released on February 4, 1986.
122 version 17.48 released on February 10, 1986.
123 version 17.49 released on February 12, 1986.
124 version 17.55 released on March 18, 1986.
125 version 17.57 released on March 27, 1986.
126 version 17.58 released on April 4, 1986.
127 version 17.61 released on April 12, 1986.
128 version 17.63 released on May 7, 1986.
129 version 17.64 released on May 12, 1986.
130 version 18.24 (a beta version) released on October 2, 1986.
131 version 18.30 (a beta version) released on November 15, 1986.
132 version 18.31 (a beta version) released on November 23, 1986.
133 version 18.32 (a beta version) released on December 7, 1986.
134 version 18.33 (a beta version) released on December 12, 1986.
135 version 18.35 (a beta version) released on January 5, 1987.
136 version 18.36 (a beta version) released on January 21, 1987.
137 January 27, 1987: The Great Usenet Renaming. net.emacs is now comp.emacs.
138 version 18.37 (a beta version) released on February 12, 1987.
139 version 18.38 (a beta version) released on March 3, 1987.
140 version 18.39 (a beta version) released on March 14, 1987.
141 version 18.40 (a beta version) released on March 18, 1987.
142 version 18.41 (the first ``official'' release) released on March 22, 1987.
143 version 18.45 released on June 2, 1987.
144 version 18.46 released on June 9, 1987.
145 version 18.47 released on June 18, 1987.
146 version 18.48 released on September 3, 1987.
147 version 18.49 released on September 18, 1987.
148 version 18.50 released on February 13, 1988.
149 version 18.51 released on May 7, 1988.
150 version 18.52 released on September 1, 1988.
151 version 18.53 released on February 24, 1989.
152 version 18.54 released on April 26, 1989.
153 version 18.55 released on August 23, 1989. This is the earliest version
154 that is still available by FTP.
155 version 18.56 released on January 17, 1991.
156 version 18.57 released late January, 1991.
157 version 18.58 released ?????.
158 version 18.59 released October 31, 1992.
162 /* Note: It is necessary to specify <config.h> and not "config.h" in
163 order for the --srcdir type of compilation to work properly.
164 Otherwise the config.h from the srcdir, rather than the one from
165 the build dir, will be used. */
170 #include "backtrace.h" /* run-emacs-from-temacs needs this */
172 #include "commands.h"
175 #include "redisplay.h"
179 #include "syssignal.h" /* Always include before systty.h */
185 #include "syswindows.h"
197 #include <quantify.h>
204 #if defined (HAVE_LOCALE_H) && \
205 (defined (I18N2) || defined (I18N3) || defined (I18N4))
213 #if defined (WIN32_NATIVE)
220 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
221 void report_sheap_usage (int die_if_pure_storage_exceeded);
224 #if !defined (SYSTEM_MALLOC) && !defined (DOUG_LEA_MALLOC)
225 extern void *(*__malloc_hook)(size_t);
226 extern void *(*__realloc_hook)(void *, size_t);
227 extern void (*__free_hook)(void *);
228 #endif /* not SYSTEM_MALLOC && not DOUG_LEA_MALLOC */
230 /* Command line args from shell, as list of strings */
231 Lisp_Object Vcommand_line_args;
233 /* Set nonzero after XEmacs has started up the first time.
234 Prevents reinitialization of the Lisp world and keymaps
235 on subsequent starts. */
238 #ifdef DOUG_LEA_MALLOC
240 /* Preserves a pointer to the memory allocated that copies that
241 static data inside glibc's malloc. */
242 static void *malloc_state_ptr;
243 #endif /* DOUG_LEA_MALLOC */
246 void r_alloc_reinit (void);
250 void console_type_create_select_gtk(void);
253 /* Variable whose value is symbol giving operating system type. */
254 Lisp_Object Vsystem_type;
256 /* Variable whose value is string giving configuration built for. */
257 Lisp_Object Vsystem_configuration;
259 /* Variable whose value is string containing the configuration options
260 XEmacs was built with. */
261 Lisp_Object Vsystem_configuration_options;
263 /* Version numbers and strings */
264 Lisp_Object Vemacs_major_version;
265 Lisp_Object Vemacs_minor_version;
266 Lisp_Object Vemacs_patch_level;
267 Lisp_Object Vemacs_beta_version;
268 Lisp_Object Vxemacs_codename;
270 Lisp_Object Vinfodock_major_version;
271 Lisp_Object Vinfodock_minor_version;
272 Lisp_Object Vinfodock_build_version;
275 /* The path under which XEmacs was invoked. */
276 Lisp_Object Vinvocation_path;
278 /* The name under which XEmacs was invoked, with any leading directory
280 Lisp_Object Vinvocation_name;
282 /* The directory name from which XEmacs was invoked. */
283 Lisp_Object Vinvocation_directory;
286 /* The directory name in which to find subdirs such as lisp and etc.
287 nil means get them only from PATH_LOADSEARCH. */
288 Lisp_Object Vinstallation_directory;
291 Lisp_Object Vemacs_program_name, Vemacs_program_version;
292 Lisp_Object Vexec_path;
293 Lisp_Object Vexec_directory, Vconfigure_exec_directory;
294 Lisp_Object Vlisp_directory, Vconfigure_lisp_directory;
295 Lisp_Object Vmule_lisp_directory, Vconfigure_mule_lisp_directory;
296 Lisp_Object Vutf_2000_lisp_directory, Vconfigure_utf_2000_lisp_directory;
297 Lisp_Object Vmodule_directory, Vconfigure_module_directory;
298 Lisp_Object Vsite_module_directory, Vconfigure_site_module_directory;
299 Lisp_Object Vconfigure_package_path;
300 Lisp_Object Vdata_directory, Vconfigure_data_directory;
301 Lisp_Object Vdoc_directory, Vconfigure_doc_directory;
302 Lisp_Object Vconfigure_lock_directory;
303 Lisp_Object Vdata_directory_list;
304 Lisp_Object Vconfigure_info_directory;
305 Lisp_Object Vsite_directory, Vconfigure_site_directory;
306 Lisp_Object Vconfigure_info_path;
307 Lisp_Object Vinternal_error_checking;
308 Lisp_Object Vmail_lock_methods, Vconfigure_mail_lock_method;
309 Lisp_Object Vpath_separator;
311 /* The default base directory XEmacs is installed under. */
312 Lisp_Object Vconfigure_exec_prefix_directory, Vconfigure_prefix_directory;
314 /* If nonzero, set XEmacs to run at this priority. This is also used
315 in child_setup and sys_suspend to make sure subshells run at normal
317 Fixnum emacs_priority;
319 /* Some FSF junk with running_asynch_code, to preserve the match
320 data. Not necessary because we don't call process filters
321 asynchronously (i.e. from within QUIT). */
322 /* #### Delete this when merging the rest of my code */
323 int running_asynch_code;
325 /* If non-zero, a window-system was specified on the command line. */
328 /* Type of display specified. We cannot use a Lisp symbol here because
329 Lisp symbols may not initialized at the time that we set this
331 const char *display_use;
333 /* If non-zero, then the early error handler will only print the error
335 int suppress_early_error_handler_backtrace;
337 /* An address near the bottom of the stack.
338 Tells GC how to save a copy of the stack. */
341 #ifdef USG_SHARED_LIBRARIES
342 /* If nonzero, this is the place to put the end of the writable segment
345 uintptr_t bss_end = 0;
348 /* Number of bytes of writable memory we can expect to be able to get */
349 unsigned long lim_data;
353 Some LISP-visible command-line options are set by XEmacs _before_ the
354 data is dumped in building a --pdump XEmacs, but used _after_ it is
355 restored in normal operation. Thus the dump-time values overwrite the
356 values XEmacs is getting at runtime. Such variables must be saved
357 before loading the dumpfile, and restored afterward.
359 Therefore these variables may not be initialized in vars_of_emacs().
361 The save/restore is done immediately before and after pdump_load() in
362 main_1(). See that function for the current list of protected variables.
364 Note that saving/restoring is only necessary for a few variables that are
365 o command line arguments effective at runtime (as opposed to dump-time),
366 o parsed before pdump_load, and
367 o exported to Lisp via a DEFVAR.
370 /* Nonzero means running XEmacs without interactive terminal. */
374 /* Value of Lisp variable `noninteractive'.
375 Normally same as C variable `noninteractive'
376 but nothing terrible happens if user sets this one.
378 Shadowed from the pdumper by `noninteractive'. */
382 /* Nonzero means don't perform site-lisp searches at startup */
383 int inhibit_site_lisp;
385 /* Nonzero means don't perform site-modules searches at startup */
386 int inhibit_site_modules;
388 /* Nonzero means don't respect early packages at startup */
389 int inhibit_early_packages;
391 /* Nonzero means don't load package autoloads at startup */
392 int inhibit_autoloads;
394 /* Nonzero means don't load the dump file (ignored if not PDUMP) */
398 /* Nonzero means print debug information about path searching */
401 /* Save argv and argc. */
402 static Extbyte **initial_argv; /* #### currently unused */
403 static int initial_argc; /* #### currently unused */
405 static void sort_args (int argc, char **argv);
407 Lisp_Object Qkill_emacs_hook;
408 Lisp_Object Qsave_buffers_kill_emacs;
410 extern Lisp_Object Vlisp_EXEC_SUFFIXES;
414 /* Ben's capsule summary about expected and unexpected exits from XEmacs.
416 Expected exits occur when the user directs XEmacs to exit, for example
417 by pressing the close button on the only frame in XEmacs, or by typing
418 C-x C-c. This runs `save-buffers-kill-emacs', which saves any necessary
419 buffers, and then exits using the primitive `kill-emacs'.
421 However, unexpected exits occur in a few different ways:
423 -- a memory access violation or other hardware-generated exception
424 occurs. This is the worst possible problem to deal with, because
425 the fault can occur while XEmacs is in any state whatsoever, even
426 quite unstable ones. As a result, we need to be *extremely* careful
428 -- we are using one X display (or if we've used more, we've closed the
429 others already), and some hardware or other problem happens and
430 suddenly we've lost our connection to the display. In this situation,
431 things are not so dire as in the last one; our code itself isn't
432 trashed, so we can continue execution as normal, after having set
433 things up so that we can exit at the appropriate time. Our exit
434 still needs to be of the emergency nature; we have no displays, so
435 any attempts to use them will fail. We simply want to auto-save
436 (the single most important thing to do during shut-down), do minimal
437 cleanup of stuff that has an independent existence outside of XEmacs,
440 Currently, both unexpected exit scenarios described above set
441 preparing_for_armageddon to indicate that nonessential and possibly
442 dangerous things should not be done, specifically:
444 -- no garbage collection.
446 -- no messages of any sort from autosaving.
447 -- autosaving tries harder, ignoring certain failures.
448 -- existing frames are not deleted.
450 (Also, all places that set preparing_for_armageddon also
451 set dont_check_for_quit. This happens separately because it's
452 also necessary to set other variables to make absolutely sure
453 no quitting happens.)
455 In the first scenario above (the access violation), we also set
456 fatal_error_in_progress. This causes more things to not happen:
458 -- assertion failures do not abort.
459 -- printing code does not do code conversion or gettext when
460 printing to stdout/stderr.
463 /* Nonzero if handling a fatal error already. */
464 int fatal_error_in_progress;
466 /* Non-nil means we're going down, so we better not run any hooks
467 or do other non-essential stuff. */
468 int preparing_for_armageddon;
470 /* Nonzero means we're in an unstable situation and need to skip
471 i18n conversions and such during printing. */
472 int inhibit_non_essential_printing_operations;
474 static JMP_BUF run_temacs_catch;
476 static int run_temacs_argc;
477 static char **run_temacs_argv;
478 static char *run_temacs_args;
479 static EMACS_INT run_temacs_argv_size;
480 static EMACS_INT run_temacs_args_size;
482 static void shut_down_emacs (int sig, Lisp_Object stuff, int no_auto_save);
484 /* ------------------------------- */
485 /* low-level debugging functions */
486 /* ------------------------------- */
488 #if defined (WIN32_NATIVE) && defined (DEBUG_XEMACS)
489 #define debugging_breakpoint() DebugBreak ()
491 #define debugging_breakpoint()
497 debugging_breakpoint ();
500 #if defined (WIN32_NATIVE) || defined (CYGWIN)
502 /* Return whether all bytes in the specified memory block can be read. */
504 debug_can_access_memory (void *ptr, Bytecount len)
506 return !IsBadReadPtr (ptr, len);
509 #else /* !(defined (WIN32_NATIVE) || defined (CYGWIN)) */
511 /* #### There must be a better way!!!! */
513 static JMP_BUF memory_error_jump;
516 debug_memory_error (int signum)
518 EMACS_REESTABLISH_SIGNAL (signum, debug_memory_error);
519 EMACS_UNBLOCK_SIGNAL (signum);
520 LONGJMP (memory_error_jump, 1);
523 /* Return whether all bytes in the specified memory block can be read. */
525 debug_can_access_memory (void *ptr, Bytecount len)
527 /* Use volatile to protect variables from being clobbered by longjmp. */
528 SIGTYPE (*volatile old_sigbus) (int);
529 SIGTYPE (*volatile old_sigsegv) (int);
530 volatile int old_errno = errno;
531 volatile int retval = 1;
533 if (!SETJMP (memory_error_jump))
536 (SIGTYPE (*) (int)) signal (SIGBUS, debug_memory_error);
538 (SIGTYPE (*) (int)) signal (SIGSEGV, debug_memory_error);
541 /* If we can, try to avoid problems with super-optimizing compilers
542 that might decide that memcmp (ptr, ptr, len) can be optimized
543 away since its result is always 1. */
544 memcmp (ptr, (char *) ptr + 1, len - 1);
546 memcmp (ptr, ptr, len);
550 signal (SIGBUS, old_sigbus);
551 signal (SIGSEGV, old_sigsegv);
557 #endif /* defined (WIN32_NATIVE) || defined (CYGWIN) */
561 DEFUN ("force-debugging-signal", Fforce_debugging_signal, 0, 1, 0, /*
562 Cause XEmacs to enter the debugger.
563 On some systems, there may be no way to do this gracefully; if so,
564 nothing happens unless ABORT is non-nil, in which case XEmacs will
565 ABORT() -- a sure-fire way to immediately get back to the debugger,
566 but also a sure-fire way to kill XEmacs (and dump core on Unix
571 debugging_breakpoint ();
577 #endif /* DEBUG_XEMACS */
580 ensure_no_quitting_from_now_on (void)
582 /* make sure no quitting from now on!! */
583 dont_check_for_quit = 1;
588 /* Handle bus errors, illegal instruction, etc. */
590 fatal_error_signal (int sig)
592 fatal_error_in_progress++;
593 inhibit_non_essential_printing_operations = 1;
594 preparing_for_armageddon = 1;
596 ensure_no_quitting_from_now_on ();
598 /* Unblock the signal so that if the same signal gets sent in the
599 code below, we avoid a deadlock. */
600 EMACS_UNBLOCK_SIGNAL (sig);
602 /* Only try auto-saving first time through. If we crash in auto-saving,
603 don't do it again. */
604 if (fatal_error_in_progress == 1)
606 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
607 /* Do this so that the variable has the same value of 2 regardless of
608 whether we made it through auto-saving correctly. */
609 fatal_error_in_progress++;
611 else if (fatal_error_in_progress == 2)
612 stderr_out ("WARNING: Unable to auto-save your files properly.\n"
613 "Some or all may in fact have been auto-saved.\n"
616 /* Now, reset our signal handler, so the next time, we just die.
617 Don't do this before auto-saving. */
618 signal (sig, SIG_DFL);
620 /* Keep in mind that there's more than one signal that we can crash
622 /* If fatal error occurs in code below, avoid infinite recursion. */
623 if (fatal_error_in_progress <= 2)
625 shut_down_emacs (sig, Qnil, 1);
626 stderr_out ("\nLisp backtrace follows:\n\n");
627 Fbacktrace (Qexternal_debugging_output, Qt);
628 # if 0 /* This is evil, rarely useful, and causes grief in some cases. */
629 /* Check for Sun-style stack printing via /proc */
631 const char *pstack = "/usr/proc/bin/pstack";
632 if (access (pstack, X_OK) == 0)
635 stderr_out ("\nC backtrace follows:\n"
636 "(A real debugger may provide better information)\n\n");
637 sprintf (buf, "%s %d >&2", pstack, (int)getpid());
643 /* Signal the same code; this time it will really be fatal. */
644 kill (getpid (), sig);
651 mswindows_handle_hardware_exceptions (DWORD code)
653 if (code != STATUS_ACCESS_VIOLATION && code != STATUS_ILLEGAL_INSTRUCTION
654 && code != STATUS_PRIVILEGED_INSTRUCTION
655 && code != STATUS_DATATYPE_MISALIGNMENT)
656 return EXCEPTION_CONTINUE_SEARCH;
658 /* I don't know if this filter is still wrapped in the outer __try, but
659 it doesn't hurt to have another one. --ben
660 And it lets us control more exactly what we really want to do in such
664 fatal_error_in_progress++;
665 inhibit_non_essential_printing_operations = 1;
666 preparing_for_armageddon = 1;
668 ensure_no_quitting_from_now_on ();
670 /* Only try auto-saving first time through. If we crash in auto-saving,
671 don't do it again. */
672 if (fatal_error_in_progress == 1)
674 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
675 /* Do this so that the variable has the same value of 2 regardless of
676 whether we made it through auto-saving correctly. */
677 fatal_error_in_progress++;
679 else if (fatal_error_in_progress == 2)
680 stderr_out ("WARNING: Unable to auto-save your files properly.\n"
681 "Some or all may in fact have been auto-saved.\n"
684 /* If fatal error occurs in code below, avoid infinite recursion. */
685 if (fatal_error_in_progress <= 2)
687 shut_down_emacs (-1, Qnil, 1);
688 stderr_out ("\nLisp backtrace follows:\n\n");
689 Fbacktrace (Qexternal_debugging_output, Qt);
692 /* VC++ documentation says that
693 GetExceptionCode() cannot be called inside the filter itself. */
695 /* __except (mswindows_handle_hardware_exceptions (GetExceptionCode ())) {}
697 The line above is original. Unfortunately, when an error is tripped
698 inside of the handler (e.g. during Fbacktrace()), and the handler for
699 the handler is invoked, it correctly notices that something is amiss
700 and it should just return -- but it returns EXCEPTION_CONTINUE_SEARCH,
701 which causes the debugger to be invoked debugging the handler code in
702 this function -- and WITH THE STACK UNWOUND so that you see main()
703 calling mswindows_handle_hardware_exceptions(), calling Fbacktrace(),
704 and a crash a couple of frames in -- AND NO SIGN OF THE ORIGINAL CRASH!
706 There's some real weirdness going on in the stack handling -- unlike
707 in Unix, where further crashes just keep adding to the stack, it seems
708 that under the structured-exception-handling, the stack can actually
709 bounce back and forth between the full stack at the location of the
710 exception and the unwound stack at the place where the __try clause was
711 established. I don't completely understand it. What I do know is that
712 returning EXCEPTION_EXECUTE_HANDLER on nested crash has the effect of
713 aborting execution of the handler and going back to the outer filter
714 function, which returns EXCEPTION_CONTINUE_SEARCH and everything is
715 hunky-dorey -- your debugger sees a crash at the right location with
718 I'm leaving in the trickier Unix-like code in the handler; someone who
719 understands better than me how the stack works in these handlers could
720 fix it up more. As it is, it works pretty well, so I'm not likely to
724 __except (EXCEPTION_EXECUTE_HANDLER) {}
727 /* pretend we didn't handle this, so that the debugger is invoked and/or
728 the normal GPF box appears. */
729 return EXCEPTION_CONTINUE_SEARCH;
732 #endif /* _MSC_VER */
738 /* Handler for SIGDANGER. */
740 memory_warning_signal (int sig)
742 /* #### bad bad bad; this function shouldn't do anything except
743 set a flag, or weird corruption could happen. */
744 signal (sig, memory_warning_signal);
747 (GETTEXT ("Operating system warns that virtual memory is running low.\n"));
749 /* It might be unsafe to call do_auto_save now. */
750 force_auto_save_soon ();
752 #endif /* SIGDANGER */
754 /* Code for dealing with Lisp access to the Unix command line */
757 make_arg_list_1 (int argc, Extbyte **argv, int skip_args)
759 Lisp_Object result = Qnil;
762 for (i = argc - 1; i >= 0; i--)
764 if (i == 0 || i > skip_args)
769 /* Do not trust to what crt0 has stuffed into argv[0] */
770 char full_exe_path[MAX_PATH];
771 Lisp_Object fullpath;
773 GetModuleFileName (NULL, full_exe_path, MAX_PATH);
774 fullpath = build_ext_string (full_exe_path, Qmswindows_tstr);
775 result = Fcons (fullpath, result);
776 #if defined(HAVE_SHLIB)
778 Extbyte *fullpathext;
780 LISP_STRING_TO_EXTERNAL (fullpath, fullpathext,
781 Qdll_filename_encoding);
782 (void) dll_init (fullpathext);
788 result = Fcons (build_ext_string (argv[i],
789 Qcommand_argument_encoding),
797 make_arg_list (int argc, Extbyte **argv)
799 return make_arg_list_1 (argc, argv, 0);
802 /* Calling functions are also responsible for calling free_argc_argv
803 when they are done with the generated list. */
805 make_argc_argv (Lisp_Object argv_list, int *argc, Extbyte ***argv)
808 int n = XINT (Flength (argv_list));
810 *argv = (Extbyte**) xmalloc ((n+1) * sizeof (Extbyte*));
812 for (i = 0, next = argv_list; i < n; i++, next = XCDR (next))
815 CHECK_STRING (XCAR (next));
817 LISP_STRING_TO_EXTERNAL (XCAR (next), temp, Qcommand_argument_encoding);
818 (*argv) [i] = xstrdup (temp);
825 free_argc_argv (Extbyte **argv)
838 init_cmdargs (int argc, Extbyte **argv, int skip_args)
843 Vcommand_line_args = make_arg_list_1 (argc, argv, skip_args);
846 DEFUN ("invocation-name", Finvocation_name, 0, 0, 0, /*
847 Return the program name that was used to run XEmacs.
848 Any directory names are omitted.
852 return Fcopy_sequence (Vinvocation_name);
855 DEFUN ("invocation-directory", Finvocation_directory, 0, 0, 0, /*
856 Return the directory name in which the Emacs executable was located.
860 return Fcopy_sequence (Vinvocation_directory);
865 /* #### - don't know why I18N4 on SunOS/JLE
866 can't deal with this. It's a potential
867 bug that needs to be looked at. */
868 # undef RUN_TIME_REMAP
871 /* Test whether the next argument in ARGV matches SSTR or a prefix of
872 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
873 (the argument is supposed to have a value) store in *VALPTR either
874 the next argument or the portion of this one after the equal sign.
875 ARGV is read starting at position *SKIPPTR; this index is advanced
876 by the number of arguments used.
878 Too bad we can't just use getopt for all of this, but we don't have
879 enough information to do it right. */
882 argmatch (char **argv, int argc, char *sstr, char *lstr,
883 int minlen, char **valptr, int *skipptr)
889 /* Don't access argv[argc]; give up in advance. */
890 if (argc <= *skipptr + 1)
893 arg = argv[*skipptr+1];
896 if (strcmp (arg, sstr) == 0)
900 *valptr = argv[*skipptr+2];
907 arglen = (valptr != NULL && (p = strchr (arg, '=')) != NULL
908 ? p - arg : (int) strlen (arg));
909 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
911 else if (valptr == NULL)
922 else if (argv[*skipptr+2] != NULL)
924 *valptr = argv[*skipptr+2];
934 /* Make stack traces always identify version + configuration */
935 #define main_1 STACK_TRACE_EYE_CATCHER
937 /* This function is not static, so that the compiler is less likely to
938 inline it, which would make it not show up in stack traces.
940 The restart argument is a flag that indicates that main_1 is now
941 being called for the second time in this invocation of xemacs; this can
942 only happen in an xemacs that is not loaded with dumped data (temacs
943 with the conventional dumper or xemacs -nd with the pdumper). See
944 Frun_emacs_from_temacs().
946 restart interacts with initialized as follows (per Olivier Galibert):
950 initialized==0 => temacs
951 initialized!=0 && restart!=0 => run-temacs
952 initialized!=0 && restart==0 => xemacs/post pdump_load()
954 DECLARE_DOESNT_RETURN (main_1 (int, char **, char **, int));
956 main_1 (int argc, char **argv, char **envp, int restart)
958 char stack_bottom_variable;
961 int inhibit_window_system;
963 extern int malloc_cookie;
966 #if (!defined (SYSTEM_MALLOC) && !defined (HAVE_LIBMCHECK) \
967 && !defined (DOUG_LEA_MALLOC))
968 /* Make sure that any libraries we link against haven't installed a
969 hook for a gmalloc of a potentially incompatible version. */
970 /* If we're using libmcheck, the hooks have already been initialized, */
971 /* don't touch them. -slb */
972 __malloc_hook = NULL;
973 __realloc_hook = NULL;
975 #endif /* not SYSTEM_MALLOC or HAVE_LIBMCHECK or DOUG_LEA_MALLOC */
978 inhibit_non_essential_printing_operations = 1;
982 * NeXT secret magic, ripped from Emacs-for-NS by Carl Edman
983 * <cedman@princeton.edu>. Note that even Carl doesn't know what this
984 * does; it was provided by NeXT, and it presumable makes NS's mallocator
985 * work with dumping. But malloc_jumpstart() and malloc_freezedry() in
986 * unexnext.c are both completely undocumented, even in NS header files!
987 * But hey, it solves all NS related memory problems, so who's
989 if (initialized && malloc_jumpstart (malloc_cookie) != 0)
990 stderr_out ("malloc jumpstart failed!\n");
994 #if defined (GNU_MALLOC) && \
995 defined (ERROR_CHECK_MALLOC) && \
996 !defined (HAVE_LIBMCHECK)
998 #if defined(LOSING_GCC_DESTRUCTOR_FREE_BUG)
999 /* Prior to XEmacs 21, this was `#if 0'ed out. */
1000 /* I'm enabling this because it is the only reliable way I've found to */
1001 /* prevent a very annoying problem where GCC will attempt to free(3) */
1002 /* memory at exit() and cause a coredump. */
1006 sort_args (argc, argv);
1008 #if defined (WIN32_NATIVE) || defined (_SCO_DS)
1012 /* Record (approximately) where the stack begins. */
1013 stack_bottom = &stack_bottom_variable;
1015 #ifdef USG_SHARED_LIBRARIES
1017 brk ((void *) bss_end);
1022 #if defined (HAVE_MMAP) && defined (REL_ALLOC)
1023 /* ralloc can only be used if using the GNU memory allocator. */
1025 #elif defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
1032 SOCKSinit (argv[0]);
1033 #endif /* HAVE_SOCKS */
1035 #ifndef SYSTEM_MALLOC
1037 /* Arrange to get warning messages as memory fills up. */
1038 memory_warnings (0, malloc_warning);
1039 #endif /* not SYSTEM_MALLOC */
1041 #ifdef SET_EMACS_PRIORITY
1042 if (emacs_priority != 0)
1043 nice (-emacs_priority);
1045 #endif /* SET_EMACS_PRIORITY */
1047 #ifdef EXTRA_INITIALIZE
1051 #ifdef HAVE_WINDOW_SYSTEM
1052 inhibit_window_system = 0;
1054 inhibit_window_system = 1;
1057 /* Handle the -sd/--show-dump-id switch, which means show the hex dump_id and quit */
1058 if (argmatch (argv, argc, "-sd", "--show-dump-id", 9, NULL, &skip_args))
1061 printf ("%08x\n", dump_id);
1063 printf ("Portable dumper not configured; -sd just forces exit.\n");
1068 /* Handle the -t switch, which specifies filename to use as terminal */
1071 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
1075 if (open (term, O_RDWR | OPEN_BINARY, 2) < 0)
1076 fatal ("%s: %s", term, strerror (errno));
1079 fatal ("%s: not a tty", term);
1082 stderr_out ("Using %s", ttyname (0));
1084 stderr_out ("Using %s", term);
1085 inhibit_window_system = 1; /* -t => -nw */
1089 /* Handle the --no-dump-file/-nd switch, which means don't load the dump file (ignored when not using pdump) */
1090 if (argmatch (argv, argc, "-nd", "--no-dump-file", 7, NULL, &skip_args))
1095 /* Handle -nw switch */
1096 if (argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
1097 inhibit_window_system = 1;
1099 /* Handle the -batch switch, which means don't do interactive display. */
1100 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
1102 #if 0 /* I don't think this is correct. */
1103 inhibit_autoloads = 1;
1108 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
1109 11, NULL, &skip_args))
1112 /* Partially handle -no-autoloads, -no-early-packages and -vanilla. Packages */
1113 /* are searched prior to the rest of the command line being parsed in */
1115 if (argmatch (argv, argc, "-no-early-packages", "--no-early-packages",
1116 6, NULL, &skip_args))
1118 inhibit_early_packages = 1;
1122 if (argmatch (argv, argc, "-no-site-modules", "--no-site-modules",
1123 9, NULL, &skip_args))
1125 inhibit_site_modules = 1;
1129 inhibit_site_modules = 1;
1131 if (argmatch (argv, argc, "-vanilla", "--vanilla",
1132 7, NULL, &skip_args))
1134 inhibit_early_packages = 1;
1138 if (argmatch (argv, argc, "-no-autoloads", "--no-autoloads",
1139 7, NULL, &skip_args))
1141 /* Inhibit everything */
1142 inhibit_autoloads = 1;
1146 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
1147 6, NULL, &skip_args))
1154 /* Partially handle the -version and -help switches: they imply -batch,
1155 but are not removed from the list. */
1156 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
1157 noninteractive = 1, skip_args--;
1159 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args) ||
1160 argmatch (argv, argc, "-V", 0, 2, NULL, &skip_args))
1161 noninteractive = 1, skip_args--;
1163 /* Now, figure out which type of console is our first console. */
1168 display_use = "stream";
1170 display_use = "tty";
1173 if (inhibit_window_system)
1174 fatal ("Sorry, this XEmacs was not compiled with TTY support");
1177 #ifdef HAVE_WINDOW_SYSTEM
1178 /* Stupid kludge to catch command-line display spec. We can't
1179 handle this argument entirely in window-system-dependent code
1180 because we don't even know which window-system-dependent code
1181 to run until we've recognized this argument. */
1182 if (!inhibit_window_system && !noninteractive)
1184 #ifdef HAVE_X_WINDOWS
1186 int count_before = skip_args;
1188 if (argmatch (argv, argc, "-d", "--display", 3, &dpy, &skip_args) ||
1189 argmatch (argv, argc, "-display", 0, 3, &dpy, &skip_args))
1194 /* If we have the form --display=NAME,
1195 convert it into -d name.
1196 This requires inserting a new element into argv. */
1197 if (dpy != 0 && skip_args - count_before == 1)
1199 char **new = (char **) xmalloc (sizeof (char *) * (argc + 2));
1202 for (j = 0; j < count_before + 1; j++)
1204 new[count_before + 1] = "-d";
1205 new[count_before + 2] = dpy;
1206 for (j = count_before + 2; j <argc; j++)
1207 new[j + 1] = argv[j];
1211 /* Change --display to -d, when its arg is separate. */
1212 else if (dpy != 0 && skip_args > count_before
1213 && argv[count_before + 1][1] == '-')
1214 argv[count_before + 1] = "-d";
1216 /* Don't actually discard this arg. */
1217 skip_args = count_before;
1219 /* If there is a non-empty environment var DISPLAY, set
1220 `display_use', but not `display_arg', which is only to be set
1221 if the display was specified on the command line. */
1222 if ((dpy = getenv ("DISPLAY")) && dpy[0])
1225 #endif /* HAVE_X_WINDOWS */
1228 char *dpy = getenv ("DISPLAY");
1230 display_use = "gtk";
1233 #ifdef HAVE_MS_WINDOWS
1234 if (strcmp(display_use, "x") != 0)
1235 display_use = "mswindows";
1236 #endif /* HAVE_MS_WINDOWS */
1238 #endif /* HAVE_WINDOW_SYSTEM */
1240 noninteractive1 = noninteractive;
1242 /****** Now initialize everything *******/
1244 /* First, do really basic environment initialization -- catching signals
1245 and the like. These functions have no dependence on any part of
1246 the Lisp engine and need to be done both at dump time and at run time. */
1248 init_signals_very_early ();
1249 init_data_very_early (); /* Catch math errors. */
1250 #ifdef LISP_FLOAT_TYPE
1251 init_floatfns_very_early (); /* Catch floating-point math errors. */
1253 init_process_times_very_early (); /* Initialize our process timers.
1254 As early as possible, of course,
1255 so we can be fairly accurate. */
1256 init_intl_very_early (); /* set up the locale and domain for gettext and
1258 #ifdef HAVE_MS_WINDOWS
1259 init_mswindows_very_early (); /* Some things - like dde need to be
1260 initialized early so that the
1261 client doesn't give up waiting. */
1264 /* Now initialize the Lisp engine and the like. Done only during
1265 dumping. No dependence on anything that may be in the user's
1266 environment when the dumped XEmacs is run.
1268 We try to do things in an order that minimizes the non-obvious
1269 dependencies between functions. */
1271 /* purify_flag 1 is correct even if CANNOT_DUMP.
1272 * loadup.el will set to nil at end. */
1278 else if (nodumpfile) {
1283 /* Keep command options from getting stomped.
1285 Some LISP-visible options are changed by XEmacs _after_ the data is
1286 dumped in building a --pdump XEmacs, but _before_ it is restored in
1287 normal operation. Thus the restored values overwrite the values
1288 XEmacs is getting at run-time. Such variables must be saved here,
1289 and restored after loading the dumped data.
1291 Boy, this is ugly, but how else to do it?
1294 /* noninteractive1 is saved in noninteractive, which isn't LISP-visible */
1295 int inhibit_early_packages_save = inhibit_early_packages;
1296 int inhibit_autoloads_save = inhibit_autoloads;
1297 int debug_paths_save = debug_paths;
1298 /* #### Give inhibit-site-lisp a command switch? If so, uncomment: */
1299 /* int inhibit_site_lisp_save = inhibit_site_lisp; */
1300 int inhibit_site_modules_save = inhibit_site_modules;
1302 initialized = pdump_load (argv[0]);
1304 /* Now unstomp everything */
1305 noninteractive1 = noninteractive;
1306 inhibit_early_packages = inhibit_early_packages_save;
1307 inhibit_autoloads = inhibit_autoloads_save;
1308 debug_paths = debug_paths_save;
1309 /* #### Give inhibit-site-lisp a command switch? If so, uncomment: */
1310 /* inhibit_site_lisp = inhibit_site_lisp_save; */
1311 inhibit_site_modules = inhibit_site_modules_save;
1314 run_temacs_argc = -1;
1325 /* Initialize things so that new Lisp objects
1326 can be created and objects can be staticpro'd.
1327 Must be basically the very first thing done
1328 because pretty much all of the initialization
1329 routines below create new objects. */
1330 init_alloc_once_early ();
1332 /* Initialize Qnil, Qt, Qunbound, and the
1333 obarray. After this, symbols can be
1334 interned. This depends on init_alloc_once_early(). */
1335 init_symbols_once_early ();
1337 /* Declare the basic symbols pertaining to errors,
1338 So that DEFERROR*() can be called. */
1339 init_errors_once_early ();
1341 /* Make sure that opaque pointers can be created. */
1342 init_opaque_once_early ();
1344 /* Now declare all the symbols and define all the Lisp primitives.
1346 The *only* thing that the syms_of_*() functions are allowed to do
1347 is call one of the following:
1349 INIT_LRECORD_IMPLEMENTATION()
1350 defsymbol(), DEFSYMBOL(), or DEFSYMBOL_MULTIWORD_PREDICATE()
1351 defsubr() (i.e. DEFSUBR)
1352 deferror(), DEFERROR(), or DEFERROR_STANDARD()
1353 defkeyword() or DEFKEYWORD()
1355 Order does not matter in these functions.
1361 syms_of_bytecode ();
1363 syms_of_callproc ();
1364 syms_of_casefiddle ();
1374 #endif /* DEBUG_XEMACS */
1385 #ifdef HAVE_X_WINDOWS
1386 syms_of_event_Xt ();
1389 syms_of_event_gtk ();
1391 #ifdef HAVE_DRAGNDROP
1392 syms_of_dragdrop ();
1394 syms_of_event_stream ();
1399 #ifdef CLASH_DETECTION
1400 syms_of_filelock ();
1401 #endif /* CLASH_DETECTION */
1402 syms_of_floatfns ();
1404 syms_of_font_lock ();
1408 syms_of_glyphs_eimage ();
1409 syms_of_glyphs_widget ();
1419 #ifdef HAVE_DATABASE
1420 syms_of_database ();
1422 #ifdef HAVE_MENUBARS
1431 #if !defined (NO_SUBPROCESSES)
1433 #ifdef HAVE_WIN32_PROCESSES
1434 syms_of_process_nt ();
1438 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
1440 #endif /* HAVE_MMAP && REL_ALLOC */
1441 syms_of_rangetab ();
1442 syms_of_redisplay ();
1447 syms_of_specifier ();
1450 #ifdef HAVE_SCROLLBARS
1451 syms_of_scrollbar ();
1453 #ifdef HAVE_TOOLBARS
1461 syms_of_console_tty ();
1462 syms_of_device_tty ();
1463 syms_of_objects_tty ();
1467 syms_of_device_gtk ();
1468 syms_of_frame_gtk ();
1469 syms_of_glyphs_gtk ();
1470 syms_of_objects_gtk ();
1472 syms_of_select_gtk ();
1474 syms_of_dialog_gtk ();
1476 #ifdef HAVE_MENUBARS
1477 syms_of_menubar_gtk ();
1479 syms_of_select_gtk ();
1481 #if defined (HAVE_MENUBARS) || defined(HAVE_SCROLLBARS) || defined(HAVE_DIALOGS) || defined(HAVE_TOOLBARS)
1484 #endif /* HAVE_GTK */
1486 #ifdef HAVE_X_WINDOWS
1487 #ifdef HAVE_BALLOON_HELP
1488 syms_of_balloon_x ();
1490 syms_of_device_x ();
1492 syms_of_dialog_x ();
1495 syms_of_glyphs_x ();
1496 syms_of_objects_x ();
1497 #ifdef HAVE_MENUBARS
1498 syms_of_menubar_x ();
1500 syms_of_select_x ();
1501 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1506 syms_of_input_method_xlib ();
1508 #endif /* HAVE_XIM */
1509 #endif /* HAVE_X_WINDOWS */
1511 #ifdef HAVE_MS_WINDOWS
1512 syms_of_console_mswindows ();
1513 syms_of_device_mswindows ();
1514 syms_of_dialog_mswindows ();
1515 syms_of_frame_mswindows ();
1516 syms_of_objects_mswindows ();
1517 syms_of_select_mswindows ();
1518 syms_of_glyphs_mswindows ();
1519 syms_of_gui_mswindows ();
1520 #ifdef HAVE_MENUBARS
1521 syms_of_menubar_mswindows ();
1523 #ifdef HAVE_SCROLLBARS
1524 syms_of_scrollbar_mswindows ();
1526 #endif /* HAVE_MS_WINDOWS */
1527 #ifdef HAVE_MSW_C_DIRED
1528 syms_of_dired_mswindows ();
1533 #if defined (WIN32_NATIVE) || defined (CYGWIN)
1539 syms_of_mule_ccl ();
1540 syms_of_mule_charset ();
1543 syms_of_file_coding ();
1547 syms_of_mule_wnn ();
1550 syms_of_mule_canna ();
1551 #endif /* HAVE_CANNA */
1563 #if defined (GNU_MALLOC) && \
1564 defined (ERROR_CHECK_MALLOC) && \
1565 !defined (HAVE_LIBMCHECK)
1567 /* Prior to XEmacs 21, this was `#if 0'ed out. -slb */
1568 #if defined (LOSING_GCC_DESTRUCTOR_FREE_BUG)
1569 syms_of_free_hook ();
1573 syms_of_tooltalk ();
1585 syms_of_gpmevent ();
1588 #ifdef HAVE_POSTGRESQL
1589 syms_of_postgresql ();
1596 /* Now create the subtypes for the types that have them.
1597 We do this before the vars_*() because more symbols
1598 may get initialized here. */
1600 /* Now initialize the console types and associated symbols.
1601 Other than the first function below, the functions may
1602 make exactly the following function/macro calls:
1604 INITIALIZE_CONSOLE_TYPE()
1605 CONSOLE_HAS_METHOD()
1607 For any given console type, the former macro must be called
1608 before the any calls to the latter macro. */
1610 console_type_create ();
1612 console_type_create_stream ();
1615 console_type_create_tty ();
1616 console_type_create_device_tty ();
1617 console_type_create_frame_tty ();
1618 console_type_create_objects_tty ();
1619 console_type_create_redisplay_tty ();
1623 console_type_create_gtk ();
1624 console_type_create_select_gtk ();
1625 console_type_create_device_gtk ();
1626 console_type_create_frame_gtk ();
1627 console_type_create_objects_gtk ();
1628 console_type_create_glyphs_gtk ();
1629 console_type_create_redisplay_gtk ();
1630 #ifdef HAVE_MENUBARS
1631 console_type_create_menubar_gtk ();
1633 #ifdef HAVE_SCROLLBARS
1634 console_type_create_scrollbar_gtk ();
1636 #ifdef HAVE_TOOLBARS
1637 console_type_create_toolbar_gtk ();
1640 console_type_create_dialog_gtk ();
1642 #endif /* HAVE_GTK */
1644 #ifdef HAVE_X_WINDOWS
1645 console_type_create_x ();
1646 console_type_create_device_x ();
1647 console_type_create_frame_x ();
1648 console_type_create_glyphs_x ();
1649 console_type_create_select_x ();
1650 #ifdef HAVE_MENUBARS
1651 console_type_create_menubar_x ();
1653 console_type_create_objects_x ();
1654 console_type_create_redisplay_x ();
1655 #ifdef HAVE_SCROLLBARS
1656 console_type_create_scrollbar_x ();
1658 #ifdef HAVE_TOOLBARS
1659 console_type_create_toolbar_x ();
1662 console_type_create_dialog_x ();
1664 #endif /* HAVE_X_WINDOWS */
1666 #ifdef HAVE_MS_WINDOWS
1667 console_type_create_mswindows ();
1668 console_type_create_device_mswindows ();
1669 console_type_create_frame_mswindows ();
1670 console_type_create_objects_mswindows ();
1671 console_type_create_redisplay_mswindows ();
1672 console_type_create_glyphs_mswindows ();
1673 console_type_create_select_mswindows ();
1674 # ifdef HAVE_SCROLLBARS
1675 console_type_create_scrollbar_mswindows ();
1677 #ifdef HAVE_MENUBARS
1678 console_type_create_menubar_mswindows ();
1680 #ifdef HAVE_TOOLBARS
1681 console_type_create_toolbar_mswindows ();
1684 console_type_create_dialog_mswindows ();
1688 /* Now initialize the specifier types and associated symbols.
1689 Other than the first function below, the functions may
1690 make exactly the following function/macro calls:
1692 INITIALIZE_SPECIFIER_TYPE()
1693 SPECIFIER_HAS_METHOD()
1695 For any given specifier type, the former macro must be called
1696 before the any calls to the latter macro. */
1698 specifier_type_create ();
1700 specifier_type_create_image ();
1701 specifier_type_create_gutter ();
1702 specifier_type_create_objects ();
1703 #ifdef HAVE_TOOLBARS
1704 specifier_type_create_toolbar ();
1707 /* Now initialize the structure types and associated symbols.
1708 Other than the first function below, the functions may
1709 make exactly the following function/macro calls:
1711 define_structure_type()
1712 define_structure_type_keyword()
1716 structure_type_create ();
1718 structure_type_create_chartab ();
1719 structure_type_create_faces ();
1720 structure_type_create_rangetab ();
1721 structure_type_create_hash_table ();
1723 structure_type_create_concord ();
1726 /* Now initialize the image instantiator formats and associated symbols.
1727 Other than the first function below, the functions may
1728 make exactly the following function/macro calls:
1730 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT()
1731 IIFORMAT_HAS_METHOD()
1732 IIFORMAT_VALID_KEYWORD()
1734 For any given image instantiator format, the first macro must be
1735 called before the any calls to the other macros. */
1737 image_instantiator_format_create ();
1738 image_instantiator_format_create_glyphs_eimage ();
1739 image_instantiator_format_create_glyphs_widget ();
1741 image_instantiator_format_create_glyphs_tty ();
1743 #ifdef HAVE_X_WINDOWS
1744 image_instantiator_format_create_glyphs_x ();
1745 #endif /* HAVE_X_WINDOWS */
1746 #ifdef HAVE_MS_WINDOWS
1747 image_instantiator_format_create_glyphs_mswindows ();
1748 #endif /* HAVE_MSWINDOWS_WINDOWS */
1750 image_instantiator_format_create_glyphs_gtk ();
1753 /* Now initialize the lstream types and associated symbols.
1754 Other than the first function below, the functions may
1755 make exactly the following function/macro calls:
1757 LSTREAM_HAS_METHOD()
1761 lstream_type_create ();
1763 lstream_type_create_file_coding ();
1765 #if defined (HAVE_MS_WINDOWS) && !defined(HAVE_MSG_SELECT)
1766 lstream_type_create_mswindows_selectable ();
1769 /* Initialize processes implementation.
1770 The functions may make exactly the following function/macro calls:
1772 PROCESS_HAS_METHOD()
1774 #ifdef HAVE_UNIX_PROCESSES
1775 process_type_create_unix ();
1777 #ifdef HAVE_WIN32_PROCESSES
1778 process_type_create_nt ();
1781 /* Now initialize most variables.
1783 These functions may do exactly the following:
1796 defsymbol(), if it's absolutely necessary and you're sure that
1797 the symbol isn't referenced anywhere else in the initialization
1799 Fset() on a symbol that is unbound
1800 assigning a symbol or constant value to a variable
1801 using a global variable that has been initialized
1802 earlier on in the same function
1804 Any of the object-creating functions in alloc.c: e.g.
1817 perhaps a few others.
1819 NB: Initialization or assignment should not be done here to certain
1820 variables settable from the command line. See the comment above
1821 the call to pdump_load() in main_1(). This caveat should only
1822 apply to vars_of_emacs().
1825 /* Now allow Fprovide() statements to be made. */
1826 init_provide_once ();
1828 /* Do that before any specifier creation (esp. vars_of_glyphs()) */
1829 vars_of_specifier ();
1834 vars_of_bytecode ();
1836 vars_of_callproc ();
1846 vars_of_console_stream ();
1853 #ifdef HAVE_DRAGNDROP
1854 vars_of_dragdrop ();
1861 #ifdef HAVE_X_WINDOWS
1862 vars_of_event_Xt ();
1864 #if defined(HAVE_TTY) && (defined (DEBUG_TTY_EVENT_STREAM) || !defined (HAVE_X_WINDOWS))
1865 vars_of_event_tty ();
1867 #ifdef HAVE_MS_WINDOWS
1868 vars_of_event_mswindows ();
1870 vars_of_event_stream ();
1876 #ifdef CLASH_DETECTION
1877 vars_of_filelock ();
1879 vars_of_floatfns ();
1880 vars_of_font_lock ();
1883 vars_of_glyphs_eimage ();
1884 vars_of_glyphs_widget ();
1892 vars_of_input_method_motif ();
1893 #else /* XIM_XLIB */
1894 vars_of_input_method_xlib ();
1896 #endif /* HAVE_XIM */
1902 #ifdef HAVE_DATABASE
1903 vars_of_database ();
1905 #ifdef HAVE_MENUBARS
1919 #ifndef NO_SUBPROCESSES
1921 #ifdef HAVE_UNIX_PROCESSES
1922 vars_of_process_unix ();
1924 #ifdef HAVE_WIN32_PROCESSES
1925 vars_of_process_nt ();
1930 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
1932 #endif /* HAVE_MMAP && REL_ALLOC */
1933 vars_of_redisplay ();
1934 #ifdef HAVE_SCROLLBARS
1935 vars_of_scrollbar ();
1942 #ifdef HAVE_TOOLBARS
1949 vars_of_console_tty ();
1950 vars_of_frame_tty ();
1951 vars_of_objects_tty ();
1955 vars_of_device_gtk ();
1957 vars_of_dialog_gtk ();
1959 vars_of_event_gtk ();
1960 vars_of_frame_gtk ();
1961 vars_of_glyphs_gtk ();
1963 #ifdef HAVE_MENUBARS
1964 vars_of_menubar_gtk ();
1966 vars_of_objects_gtk ();
1967 vars_of_select_gtk ();
1968 #ifdef HAVE_SCROLLBARS
1969 vars_of_scrollbar_gtk ();
1971 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1974 #endif /* HAVE_GTK */
1976 #ifdef HAVE_X_WINDOWS
1977 #ifdef HAVE_BALLOON_HELP
1978 vars_of_balloon_x ();
1980 vars_of_device_x ();
1982 vars_of_dialog_x ();
1985 vars_of_glyphs_x ();
1986 #ifdef HAVE_MENUBARS
1987 vars_of_menubar_x ();
1989 vars_of_objects_x ();
1990 vars_of_select_x ();
1991 #ifdef HAVE_SCROLLBARS
1992 vars_of_scrollbar_x ();
1994 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1997 #endif /* HAVE_X_WINDOWS */
2000 #ifdef HAVE_MS_WINDOWS
2001 vars_of_device_mswindows ();
2002 vars_of_console_mswindows ();
2003 vars_of_frame_mswindows ();
2004 vars_of_objects_mswindows ();
2005 vars_of_select_mswindows ();
2006 vars_of_glyphs_mswindows ();
2007 #ifdef HAVE_SCROLLBARS
2008 vars_of_scrollbar_mswindows ();
2010 #ifdef HAVE_MENUBARS
2011 vars_of_menubar_mswindows ();
2013 #ifdef HAVE_MSW_C_DIRED
2014 vars_of_dired_mswindows ();
2017 vars_of_dialog_mswindows ();
2019 #endif /* HAVE_MS_WINDOWS */
2023 vars_of_mule_ccl ();
2024 vars_of_mule_charset ();
2027 vars_of_file_coding ();
2031 vars_of_mule_wnn ();
2034 vars_of_mule_canna ();
2035 #endif /* HAVE_CANNA */
2039 vars_of_tooltalk ();
2050 #ifdef HAVE_POSTGRESQL
2051 vars_of_postgresql();
2059 vars_of_gpmevent ();
2062 /* Now initialize any specifier variables. We do this later
2063 because it has some dependence on the vars initialized
2066 These functions should *only* initialize specifier variables,
2067 and may make use of the following functions/macros in addition
2068 to the ones listed above:
2072 set_specifier_fallback()
2073 set_specifier_caching()
2076 specifier_vars_of_glyphs ();
2077 specifier_vars_of_glyphs_widget ();
2078 specifier_vars_of_gutter ();
2079 #ifdef HAVE_MENUBARS
2080 specifier_vars_of_menubar ();
2082 specifier_vars_of_redisplay ();
2083 #ifdef HAVE_SCROLLBARS
2084 specifier_vars_of_scrollbar ();
2086 #ifdef HAVE_TOOLBARS
2087 specifier_vars_of_toolbar ();
2089 specifier_vars_of_window ();
2091 /* Now comes all the rest of the variables that couldn't
2092 be handled above. There may be dependencies on variables
2093 initialized above, and dependencies between one complex_vars_()
2094 function and another. */
2096 /* Calls Fmake_range_table(). */
2097 complex_vars_of_regex ();
2098 /* Calls Fmake_range_table(). */
2099 complex_vars_of_search ();
2101 /* Calls make_lisp_hash_table(). */
2102 complex_vars_of_extents ();
2104 /* Depends on hash tables and specifiers. */
2105 complex_vars_of_faces ();
2108 /* These two depend on hash tables and various variables declared
2109 earlier. The second may also depend on the first. */
2110 complex_vars_of_mule_charset ();
2113 complex_vars_of_file_coding ();
2116 /* This calls allocate_glyph(), which creates specifiers
2117 and also relies on a variable (Vthe_nothing_vector) initialized
2118 above. It also calls make_ext_string(), which under Mule
2119 could require that the charsets be initialized. */
2120 complex_vars_of_glyphs ();
2122 /* These rely on the glyphs just created in the previous function,
2123 and call Fadd_spec_to_specifier(), which relies on various
2124 variables initialized above. */
2126 complex_vars_of_glyphs_gtk ();
2128 #ifdef HAVE_X_WINDOWS
2129 complex_vars_of_glyphs_x ();
2131 #ifdef HAVE_MS_WINDOWS
2132 complex_vars_of_glyphs_mswindows ();
2135 /* This calls Fmake_glyph_internal(). */
2136 complex_vars_of_alloc ();
2138 /* This calls Fmake_glyph_internal(). */
2139 #ifdef HAVE_MENUBARS
2140 complex_vars_of_menubar ();
2143 /* This calls Fmake_glyph_internal(). */
2144 #ifdef HAVE_SCROLLBARS
2145 complex_vars_of_scrollbar ();
2148 /* This calls allocate_glyph(). */
2149 complex_vars_of_frame ();
2151 /* This calls Fcopy_category_table() under Mule, which calls who
2153 complex_vars_of_chartab ();
2155 /* This calls set_string_char(), which (under Mule) depends on the
2156 charsets being initialized. */
2157 complex_vars_of_casetab ();
2159 /* This calls Fcopy_syntax_table(), which relies on char tables. */
2160 complex_vars_of_syntax ();
2162 /* This initializes buffer-local variables, sets things up so
2163 that buffers can be created, and creates a couple of basic
2164 buffers. This depends on Vstandard_syntax_table and
2165 Vstandard_category_table (initialized in the previous
2166 functions), as well as a whole horde of variables that may
2167 have been initialized above. */
2168 complex_vars_of_buffer ();
2170 /* This initializes console-local variables. */
2171 complex_vars_of_console ();
2173 /* This creates a couple more buffers, and depends on the
2174 previous function. */
2175 complex_vars_of_minibuf ();
2177 /* These two might call Ffile_name_as_directory(), which
2178 might depend on all sorts of things; I'm not sure. */
2179 complex_vars_of_emacs ();
2181 /* This creates a couple of basic keymaps and depends on Lisp
2182 hash tables and Ffset() (both of which depend on some variables
2183 initialized in the vars_of_*() section) and possibly other
2185 complex_vars_of_keymap ();
2187 /* Calls make_lisp_hash_table() and creates a keymap */
2188 complex_vars_of_event_stream ();
2190 /* This initializes data-sources of built-in genres */
2192 complex_vars_of_concord ();
2195 #ifdef ERROR_CHECK_GC
2197 extern int always_gc;
2198 if (always_gc) /* purification debugging hack */
2199 garbage_collect_1 ();
2203 } else if (!restart) { /* after successful pdump_load() */
2204 reinit_alloc_once_early ();
2205 reinit_symbols_once_early ();
2206 reinit_opaque_once_early ();
2208 reinit_console_type_create_stream ();
2210 reinit_console_type_create_tty ();
2212 #ifdef HAVE_X_WINDOWS
2213 reinit_console_type_create_x ();
2214 reinit_console_type_create_device_x ();
2216 #ifdef HAVE_MS_WINDOWS
2217 reinit_console_type_create_mswindows ();
2220 reinit_console_type_create_gtk ();
2223 reinit_specifier_type_create ();
2224 reinit_specifier_type_create_image ();
2225 reinit_specifier_type_create_gutter ();
2226 reinit_specifier_type_create_objects ();
2227 #ifdef HAVE_TOOLBARS
2228 reinit_specifier_type_create_toolbar ();
2231 structure_type_create ();
2233 structure_type_create_chartab ();
2234 structure_type_create_faces ();
2235 structure_type_create_rangetab ();
2236 structure_type_create_hash_table ();
2238 structure_type_create_concord ();
2241 lstream_type_create ();
2243 lstream_type_create_file_coding ();
2245 #if defined (HAVE_MS_WINDOWS) && !defined(HAVE_MSG_SELECT)
2246 lstream_type_create_mswindows_selectable ();
2248 #ifdef HAVE_UNIX_PROCESSES
2249 process_type_create_unix ();
2251 #ifdef HAVE_WIN32_PROCESSES
2252 process_type_create_nt ();
2255 reinit_vars_of_buffer ();
2256 reinit_vars_of_console ();
2258 reinit_vars_of_debug ();
2260 reinit_vars_of_device ();
2261 reinit_vars_of_eval ();
2262 #ifdef HAVE_X_WINDOWS
2263 reinit_vars_of_event_Xt ();
2266 reinit_vars_of_event_gtk ();
2268 #if defined(HAVE_TTY) && (defined (DEBUG_TTY_EVENT_STREAM) || !defined (HAVE_X_WINDOWS))
2269 reinit_vars_of_event_tty ();
2271 #ifdef HAVE_MS_WINDOWS
2272 reinit_vars_of_event_mswindows ();
2274 reinit_vars_of_event_stream ();
2275 reinit_vars_of_events ();
2276 reinit_vars_of_extents ();
2277 reinit_vars_of_fileio ();
2278 reinit_vars_of_font_lock ();
2279 reinit_vars_of_glyphs ();
2280 reinit_vars_of_glyphs_widget ();
2281 reinit_vars_of_insdel ();
2282 reinit_vars_of_lread ();
2283 reinit_vars_of_lstream ();
2284 reinit_vars_of_minibuf ();
2286 reinit_vars_of_module ();
2288 reinit_vars_of_objects ();
2289 reinit_vars_of_print ();
2290 reinit_vars_of_search ();
2291 reinit_vars_of_undo ();
2292 reinit_vars_of_window ();
2294 #ifdef HAVE_MS_WINDOWS
2295 reinit_vars_of_frame_mswindows ();
2299 reinit_vars_of_menubar_gtk ();
2302 #ifdef HAVE_X_WINDOWS
2303 reinit_vars_of_device_x ();
2304 #ifdef HAVE_SCROLLBARS
2305 reinit_vars_of_scrollbar_x ();
2307 #ifdef HAVE_MENUBARS
2308 reinit_vars_of_menubar_x ();
2310 reinit_vars_of_select_x ();
2311 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
2312 reinit_vars_of_gui_x ();
2314 #endif /* HAVE_X_WINDOWS */
2316 #if defined(MULE) && defined(HAVE_WNN)
2317 reinit_vars_of_mule_wnn ();
2320 reinit_complex_vars_of_buffer ();
2321 reinit_complex_vars_of_console ();
2322 reinit_complex_vars_of_minibuf ();
2327 /* CONGRATULATIONS!!! We have successfully initialized the Lisp
2332 /* Stuff that should not be done at dump time, including stuff that
2333 needs to be reset at run time. Order below should not matter.
2335 Many initializations taken from the environment should go here. */
2339 reinit_mule_category ();
2341 #ifdef HAVE_POSTGRESQL
2342 init_postgresql_from_environment();
2346 /* Now do further initialization/setup of stuff that is not needed by the
2347 syms_of_() routines. This involves stuff that only is enabled in
2348 an interactive run (redisplay, user input, etc.) and stuff that is
2349 not needed until we start loading Lisp code (the reader). A lot
2350 of this stuff involves querying the current environment and needs
2351 to be done both at dump time and at run time. */
2353 init_initial_directory(); /* get the directory to use for the
2354 "*scratch*" buffer, etc. */
2358 * For Win32, call init_environment() now, so that environment/registry
2359 * variables will be properly entered into Vprocess_environment.
2364 init_callproc (); /* Set up the process environment (so that egetenv
2365 works), the basic directory variables
2366 (exec-directory and so on), and stuff
2367 related to subprocesses. This should be
2368 first because many of the functions below
2369 call egetenv() to get environment variables. */
2370 init_lread (); /* Set up the Lisp reader. */
2371 init_cmdargs (argc, (Extbyte **) argv,
2372 skip_args); /* Create list Vcommand_line_args */
2373 init_buffer (); /* Set default directory of *scratch* buffer */
2379 init_redisplay (); /* Determine terminal type.
2380 init_sys_modes uses results */
2382 init_event_stream (); /* Set up so we can get user input. */
2383 init_macros (); /* set up so we can run macros. */
2384 init_editfns (); /* Determine the name of the user we're running as */
2385 init_xemacs_process (); /* set up for calling subprocesses */
2387 init_sunpro (); /* Set up Sunpro usage tracking */
2389 #if defined (WIN32_NATIVE) || defined (CYGWIN)
2392 #if defined (HAVE_NATIVE_SOUND) && defined (hp9000s800)
2398 init_console_stream (restart); /* Create the first console */
2400 /* try to get the actual pathname of the exec file we are running */
2403 Vinvocation_name = Fcar (Vcommand_line_args);
2404 if (XSTRING_DATA(Vinvocation_name)[0] == '-')
2406 /* XEmacs as a login shell, oh goody! */
2407 Vinvocation_name = build_string(getenv("SHELL"));
2409 Vinvocation_directory = Vinvocation_name;
2411 if (!NILP (Ffile_name_directory (Vinvocation_name)))
2413 /* invocation-name includes a directory component -- presumably it
2414 is relative to cwd, not $PATH */
2415 Vinvocation_directory = Fexpand_file_name (Vinvocation_name,
2417 Vinvocation_path = Qnil;
2421 Vinvocation_path = decode_env_path ("PATH", NULL);
2422 locate_file (Vinvocation_path, Vinvocation_name,
2423 Vlisp_EXEC_SUFFIXES,
2424 &Vinvocation_directory, X_OK);
2427 if (NILP (Vinvocation_directory))
2428 Vinvocation_directory = Vinvocation_name;
2430 Vinvocation_name = Ffile_name_nondirectory (Vinvocation_directory);
2431 Vinvocation_directory = Ffile_name_directory (Vinvocation_directory);
2434 #if defined(HAVE_SHLIB) && !defined(WIN32_NATIVE)
2435 /* This is Unix only. MS Windows NT has a library call that does
2436 The Right Thing on that system. Rumor has it, this must be
2437 called for GNU dld in temacs and xemacs. */
2439 char *buf = (char *)alloca (XSTRING_LENGTH (Vinvocation_directory)
2440 + XSTRING_LENGTH (Vinvocation_name)
2442 sprintf (buf, "%s/%s", XSTRING_DATA (Vinvocation_directory),
2443 XSTRING_DATA (Vinvocation_name));
2445 /* All we can do is cry if an error happens, so ignore it. */
2446 (void) dll_init (buf);
2450 #if defined (LOCALTIME_CACHE) && defined (HAVE_TZSET)
2451 /* sun's localtime() has a bug. it caches the value of the time
2452 zone rather than looking it up every time. Since localtime() is
2453 called to bolt the undumping time into the undumped emacs, this
2454 results in localtime() ignoring the TZ environment variable.
2455 This flushes the new TZ value into localtime(). */
2457 #endif /* LOCALTIME_CACHE and TZSET */
2462 /* Handle -l loadup-and-dump, args passed by Makefile. */
2463 if (argc > 2 + skip_args && !strcmp (argv[1 + skip_args], "-l"))
2464 load_me = build_string (argv[2 + skip_args]);
2465 #if 0 /* CANNOT_DUMP - this can never be right in XEmacs --andyp */
2466 /* Unless next switch is -nl, load "loadup.el" first thing. */
2467 if (!(argc > 1 + skip_args && !strcmp (argv[1 + skip_args], "-nl")))
2468 load_me = build_string ("loadup.el");
2469 #endif /* CANNOT_DUMP */
2474 quantify_start_recording_data ();
2475 #endif /* QUANTIFY */
2478 inhibit_non_essential_printing_operations = 0;
2480 /* This never returns. */
2481 initial_command_loop (load_me);
2486 /* Sort the args so we can find the most important ones
2487 at the beginning of argv. */
2489 /* First, here's a table of all the standard options. */
2491 struct standard_args
2494 const char *longname;
2499 static const struct standard_args standard_args[] =
2501 /* Handled by main_1 above: */
2502 { "-sd", "--show-dump-id", 105, 0 },
2503 { "-t", "--terminal", 100, 1 },
2504 { "-nd", "--no-dump-file", 95, 0 },
2505 { "-nw", "--no-windows", 90, 0 },
2506 { "-batch", "--batch", 85, 0 },
2507 { "-debug-paths", "--debug-paths", 82, 0 },
2508 { "-help", "--help", 80, 0 },
2509 { "-version", "--version", 75, 0 },
2511 { "-d", "--display", 80, 1 },
2512 { "-display", 0, 80, 1 },
2513 { "-NXHost", 0, 79, 0 },
2514 { "-MachLaunch", 0, 79, 0},
2516 /* Handled by command-line-early in startup.el: */
2517 { "-q", "--no-init-file", 50, 0 },
2518 { "-unmapped", 0, 50, 0 },
2519 { "-no-init-file", 0, 50, 0 },
2520 { "-vanilla", "--vanilla", 50, 0 },
2521 { "-no-autoloads", "--no-autoloads", 50, 0 },
2522 { "-no-site-file", "--no-site-file", 40, 0 },
2523 { "-no-early-packages", "--no-early-packages", 35, 0 },
2524 { "-u", "--user", 30, 1 },
2525 { "-user", 0, 30, 1 },
2526 { "-debug-init", "--debug-init", 20, 0 },
2527 { "-debug-paths", "--debug-paths", 20, 0 },
2530 { "-i", "--icon-type", 15, 0 },
2531 { "-itype", 0, 15, 0 },
2532 { "-iconic", "--iconic", 15, 0 },
2533 { "-bg", "--background-color", 10, 1 },
2534 { "-background", 0, 10, 1 },
2535 { "-fg", "--foreground-color", 10, 1 },
2536 { "-foreground", 0, 10, 1 },
2537 { "-bd", "--border-color", 10, 1 },
2538 { "-bw", "--border-width", 10, 1 },
2539 { "-ib", "--internal-border", 10, 1 },
2540 { "-ms", "--mouse-color", 10, 1 },
2541 { "-cr", "--cursor-color", 10, 1 },
2542 { "-fn", "--font", 10, 1 },
2543 { "-font", 0, 10, 1 },
2544 { "-g", "--geometry", 10, 1 },
2545 { "-geometry", 0, 10, 1 },
2546 { "-T", "--title", 10, 1 },
2547 { "-title", 0, 10, 1 },
2548 { "-name", "--name", 10, 1 },
2549 { "-xrm", "--xrm", 10, 1 },
2550 { "-r", "--reverse-video", 5, 0 },
2552 { "-reverse", 0, 5, 0 },
2553 { "-hb", "--horizontal-scroll-bars", 5, 0 },
2554 { "-vb", "--vertical-scroll-bars", 5, 0 },
2556 /* These have the same priority as ordinary file name args,
2557 so they are not reordered with respect to those. */
2558 { "-L", "--directory", 0, 1 },
2559 { "-directory", 0, 0, 1 },
2560 { "-l", "--load", 0, 1 },
2561 { "-load", 0, 0, 1 },
2562 { "-f", "--funcall", 0, 1 },
2563 { "-funcall", 0, 0, 1 },
2564 { "-eval", "--eval", 0, 1 },
2565 { "-insert", "--insert", 0, 1 },
2566 /* This should be processed after ordinary file name args and the like. */
2567 { "-kill", "--kill", -10, 0 },
2570 /* Reorder the elements of ARGV (assumed to have ARGC elements)
2571 so that the highest priority ones come first.
2572 Do not change the order of elements of equal priority.
2573 If an option takes an argument, keep it and its argument together. */
2576 sort_args (int argc, char **argv)
2578 char **new_argv = xnew_array (char *, argc);
2579 /* For each element of argv,
2580 the corresponding element of options is:
2581 0 for an option that takes no arguments,
2582 1 for an option that takes one argument, etc.
2583 -1 for an ordinary non-option argument. */
2584 int *options = xnew_array (int, argc);
2585 int *priority = xnew_array (int, argc);
2589 int end_of_options_p = 0;
2591 /* Categorize all the options,
2592 and figure out which argv elts are option arguments. */
2593 for (from = 1; from < argc; from++)
2597 /* Pseudo options "--" and "run-temacs" indicate end of options */
2598 if (!strcmp (argv[from], "--") ||
2599 !strcmp (argv[from], "run-temacs"))
2600 end_of_options_p = 1;
2601 if (!end_of_options_p && argv[from][0] == '-')
2606 /* Look for a match with a known old-fashioned option. */
2607 for (i = 0; i < countof (standard_args); i++)
2608 if (!strcmp (argv[from], standard_args[i].name))
2610 options[from] = standard_args[i].nargs;
2611 priority[from] = standard_args[i].priority;
2612 if (from + standard_args[i].nargs >= argc)
2613 fatal ("Option `%s' requires an argument\n", argv[from]);
2614 from += standard_args[i].nargs;
2618 /* Look for a match with a known long option.
2619 MATCH is -1 if no match so far, -2 if two or more matches so far,
2620 >= 0 (the table index of the match) if just one match so far. */
2621 if (argv[from][1] == '-')
2624 thislen = strlen (argv[from]);
2625 equals = strchr (argv[from], '=');
2627 thislen = equals - argv[from];
2629 for (i = 0; i < countof (standard_args); i++)
2630 if (standard_args[i].longname
2631 && !strncmp (argv[from], standard_args[i].longname,
2640 /* If we found exactly one match, use that. */
2643 options[from] = standard_args[match].nargs;
2644 priority[from] = standard_args[match].priority;
2645 /* If --OPTION=VALUE syntax is used,
2646 this option uses just one argv element. */
2649 if (from + options[from] >= argc)
2650 fatal ("Option `%s' requires an argument\n", argv[from]);
2651 from += options[from];
2658 /* Copy the arguments, in order of decreasing priority, to NEW_ARGV. */
2659 new_argv[0] = argv[0];
2663 int best_priority = -9999;
2665 /* Find the highest priority remaining option.
2666 If several have equal priority, take the first of them. */
2667 for (from = 1; from < argc; from++)
2669 if (argv[from] != 0 && priority[from] > best_priority)
2671 best_priority = priority[from];
2674 /* Skip option arguments--they are tied to the options. */
2675 if (options[from] > 0)
2676 from += options[from];
2682 /* Copy the highest priority remaining option, with its args, to NEW_ARGV. */
2683 new_argv[to++] = argv[best];
2684 for (i = 0; i < options[best]; i++)
2685 new_argv[to++] = argv[best + i + 1];
2687 /* Clear out this option in ARGV. */
2689 for (i = 0; i < options[best]; i++)
2690 argv[best + i + 1] = 0;
2693 memcpy (argv, new_argv, sizeof (char *) * argc);
2699 DEFUN ("running-temacs-p", Frunning_temacs_p, 0, 0, 0, /*
2700 True if running temacs. This means we are in the dumping stage.
2701 This is false during normal execution of the `xemacs' program, and
2702 becomes false once `run-emacs-from-temacs' is run.
2706 return run_temacs_argc >= 0 ? Qt : Qnil;
2709 DEFUN ("run-emacs-from-temacs", Frun_emacs_from_temacs, 0, MANY, 0, /*
2710 Do not call this. It will reinitialize your XEmacs. You'll be sorry.
2712 /* If this function is called from startup.el, it will be possible to run
2713 temacs as an editor using 'temacs -batch -l loadup.el run-temacs', instead
2714 of having to dump an emacs and then run that (when debugging emacs itself,
2715 this can be much faster)). [Actually, the speed difference isn't that
2716 much as long as your filesystem is local, and you don't end up with
2717 a dumped version in case you want to rerun it. This function is most
2718 useful when used as part of the `make all-elc' command. --ben]
2719 This will "restart" emacs with the specified command-line arguments.
2721 Martin thinks this function is most useful when using debugging
2722 tools like Purify or tcov that get confused by XEmacs' dumping. */
2723 (int nargs, Lisp_Object *args))
2726 const Extbyte *wampum;
2729 Lisp_Object orig_invoc_name = Fcar (Vcommand_line_args);
2730 const Extbyte **wampum_all = alloca_array (const Extbyte *, nargs);
2731 int *wampum_all_len = alloca_array (int, nargs);
2733 assert (!gc_in_progress);
2735 if (run_temacs_argc < 0)
2736 error ("I've lost my temacs-hood.");
2738 /* Need to convert the orig_invoc_name and all of the arguments
2739 to external format. */
2741 TO_EXTERNAL_FORMAT (LISP_STRING, orig_invoc_name,
2742 ALLOCA, (wampum, namesize),
2746 for (ac = 0, total_len = namesize; ac < nargs; ac++)
2748 CHECK_STRING (args[ac]);
2749 TO_EXTERNAL_FORMAT (LISP_STRING, args[ac],
2750 ALLOCA, (wampum_all[ac], wampum_all_len[ac]),
2752 wampum_all_len[ac]++;
2753 total_len += wampum_all_len[ac];
2755 DO_REALLOC (run_temacs_args, run_temacs_args_size, total_len, char);
2756 DO_REALLOC (run_temacs_argv, run_temacs_argv_size, nargs+2, char *);
2758 memcpy (run_temacs_args, wampum, namesize);
2759 run_temacs_argv [0] = run_temacs_args;
2760 for (ac = 0; ac < nargs; ac++)
2762 memcpy (run_temacs_args + namesize,
2763 wampum_all[ac], wampum_all_len[ac]);
2764 run_temacs_argv [ac + 1] = run_temacs_args + namesize;
2765 namesize += wampum_all_len[ac];
2767 run_temacs_argv [nargs + 1] = 0;
2768 catchlist = NULL; /* Important! Otherwise free_cons() calls in
2769 condition_case_unwind() may lead to GC death. */
2770 unbind_to (0, Qnil); /* this closes loadup.el */
2772 run_temacs_argc = nargs + 1;
2773 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
2774 report_sheap_usage (0);
2776 LONGJMP (run_temacs_catch, 1);
2777 return Qnil; /* not reached; warning suppression */
2782 main (int argc, char **argv, char **envp)
2786 /* Under VC++, access violations and the like are not sent through
2787 the standard signal() mechanism. Rather, they need to be handled
2788 using the Microsoft "structured exception handling" mechanism,
2789 which vaguely resembles the C++ mechanisms. */
2794 int volatile vol_argc = argc;
2795 char ** volatile vol_argv = argv;
2796 char ** volatile vol_envp = envp;
2797 /* This is hairy. We need to compute where the XEmacs binary was invoked
2798 from because temacs initialization requires it to find the lisp
2799 directories. The code that recomputes the path is guarded by the
2800 restarted flag. There are three possible paths I've found so far
2803 temacs -- When running temacs for basic build stuff, the first main_1
2804 will be the only one invoked. It must compute the path else there
2805 will be a very ugly bomb in startup.el (can't find obvious location
2806 for doc-directory data-directory, etc.).
2808 temacs w/ run-temacs on the command line -- This is run to bytecompile
2809 all the out of date dumped lisp. It will execute both of the main_1
2810 calls and the second one must not touch the first computation because
2811 argc/argv are hosed the second time through.
2813 xemacs -- Only the second main_1 is executed. The invocation path must
2814 computed but this only matters when running in place or when running
2817 As a bonus for straightening this out, XEmacs can now be run in place
2818 as a login shell. This never used to work.
2820 As another bonus, we can now guarantee that
2821 (concat invocation-directory invocation-name) contains the filename
2822 of the XEmacs binary we are running. This can now be used in a
2823 definite test for out of date dumped files. -slb */
2826 quantify_stop_recording_data ();
2827 quantify_clear_data ();
2828 #endif /* QUANTIFY */
2830 inhibit_non_essential_printing_operations = 1;
2831 suppress_early_error_handler_backtrace = 0;
2832 lim_data = 0; /* force reinitialization of this variable */
2834 /* Lisp_Object must fit in a word; check VALBITS and GCTYPEBITS */
2835 assert (sizeof (Lisp_Object) == sizeof (void *));
2837 #ifdef LINUX_SBRK_BUG
2843 #ifdef DOUG_LEA_MALLOC
2844 if (mallopt (M_MMAP_MAX, 0) != 1)
2847 run_temacs_argc = 0;
2848 if (! SETJMP (run_temacs_catch))
2850 main_1 (vol_argc, vol_argv, vol_envp, 0);
2852 /* run-emacs-from-temacs called */
2854 vol_argc = run_temacs_argc;
2855 vol_argv = run_temacs_argv;
2857 /* This makes absolutely no sense to anyone involved. There are
2858 several people using this stuff. We've compared versions on
2859 everything we can think of. We can find no difference.
2860 However, on both my systems environ is a plain old global
2861 variable initialized to zero. _environ is the one that
2862 contains pointers to the actual environment.
2864 Since we can't figure out the difference (and we're hours
2865 away from a release), this takes a very cowardly approach and
2866 is bracketed with both a system specific preprocessor test
2867 and a runtime "do you have this problem" test
2869 06/20/96 robertl@dgii.com */
2871 extern char **_environ;
2872 if ((unsigned) environ == 0)
2875 #endif /* _SCO_DS */
2878 #if defined (RUN_TIME_REMAP) && ! defined (PDUMP)
2880 /* obviously no-one uses this because where it was before initialized was
2882 run_time_remap (argv[0]);
2885 #ifdef DOUG_LEA_MALLOC
2886 if (initialized && (malloc_state_ptr != NULL))
2888 int rc = malloc_set_state (malloc_state_ptr);
2891 stderr_out ("malloc_set_state failed, rc = %d\n", rc);
2895 free (malloc_state_ptr);
2897 /* mmap works in glibc-2.1, glibc-2.0 (Non-Mule only) and Linux libc5 */
2898 #if (defined(__GLIBC__) && __GLIBC_MINOR__ >= 1) || \
2899 defined(_NO_MALLOC_WARNING_) || \
2900 (defined(__GLIBC__) && __GLIBC_MINOR__ < 1 && !defined(MULE)) || \
2901 defined(DEBUG_DOUG_LEA_MALLOC)
2902 if(mallopt (M_MMAP_MAX, 0) != 1)
2909 #endif /* DOUG_LEA_MALLOC */
2911 run_temacs_argc = -1;
2913 main_1 (vol_argc, vol_argv, vol_envp, restarted);
2917 /* VC++ documentation says that
2918 GetExceptionCode() cannot be called inside the filter itself. */
2919 __except (mswindows_handle_hardware_exceptions (GetExceptionCode ())) {}
2922 return 0; /* unreached */
2926 /* Dumping apparently isn't supported by versions of GCC >= 2.8. */
2927 /* The following needs conditionalization on whether either XEmacs or */
2928 /* various system shared libraries have been built and linked with */
2929 /* GCC >= 2.8. -slb */
2930 #if defined(GNU_MALLOC)
2932 voodoo_free_hook (void *mem)
2934 /* Disable all calls to free() when XEmacs is exiting and it doesn't */
2937 #if defined __GNUC__ || defined __INTEL_COMPILER
2938 /* prototype of __free_hook varies with glibc version */
2939 (__typeof__ (__free_hook))
2943 #endif /* GNU_MALLOC */
2945 DEFUN ("kill-emacs", Fkill_emacs, 0, 1, "P", /*
2946 Exit the XEmacs job and kill it. Ask for confirmation, without argument.
2947 If ARG is an integer, return ARG as the exit program code.
2948 If ARG is a string, stuff it as keyboard input.
2950 The value of `kill-emacs-hook', if not void,
2951 is a list of functions (of no args),
2952 all of which are called before XEmacs is actually killed.
2956 /* This function can GC */
2957 struct gcpro gcpro1;
2964 if (!preparing_for_armageddon && !noninteractive)
2965 run_hook (Qkill_emacs_hook);
2967 ensure_no_quitting_from_now_on ();
2969 if (!preparing_for_armageddon)
2971 Lisp_Object concons, nextcons;
2973 /* Normally, go ahead and delete all the consoles now.
2974 Some unmentionably lame window systems (MS Wwwww...... eek,
2975 I can't even say it) don't properly clean up after themselves,
2976 and even for those that do, it might be cleaner this way.
2977 If we're going down, however, we don't do this (might
2978 be too dangerous), and if we get a crash somewhere within
2979 this loop, we'll still autosave and won't try this again. */
2981 LIST_LOOP_DELETING (concons, nextcons, Vconsole_list)
2983 /* There is very little point in deleting the stream console.
2984 It uses stdio, which should flush any buffered output and
2985 something can only go wrong. -slb */
2986 /* I changed my mind. There's a stupid hack in close to add
2987 a trailing newline. */
2988 /*if (!CONSOLE_STREAM_P (XCONSOLE (XCAR (concons))))*/
2989 delete_console_internal (XCONSOLE (XCAR (concons)), 1, 1, 0);
2995 #ifdef HAVE_MS_WINDOWS
2996 /* If we displayed a message on the console, then we must allow the
2997 user to see this message. This may be unnecessary, but can't
2998 hurt, and we can't necessarily check arg; e.g. xemacs --help
2999 kills with argument 0.
3001 Don't do this in batch mode, it makes no sense and is more
3002 annoying than useful. --andyp */
3003 if (mswindows_message_outputted && !noninteractive)
3004 Fmswindows_message_box (build_string ("Messages outputted. XEmacs is exiting."),
3008 shut_down_emacs (0, STRINGP (arg) ? arg : Qnil, 0);
3010 #if defined(GNU_MALLOC)
3012 #if defined __GNUC__ || defined __INTEL_COMPILER
3013 /* prototype of __free_hook varies with glibc version */
3014 (__typeof__ (__free_hook))
3019 exit (INTP (arg) ? XINT (arg) : 0);
3021 return Qnil; /* I'm sick of the compiler warning */
3024 /* Perform an orderly shutdown of XEmacs. Autosave any modified
3025 buffers, kill any child processes, clean up the terminal modes (if
3026 we're in the foreground), and other stuff like that. Don't perform
3027 any redisplay; this may be called when XEmacs is shutting down in
3028 the background, or after its X connection has died.
3030 If SIG is a signal number, print a message for it.
3032 This is called by fatal signal handlers and Fkill_emacs. It used to
3033 be called by X protocol error handlers, but instead they now call
3036 shut_down_emacs (int sig, Lisp_Object stuff, int no_auto_save)
3038 /* This function can GC */
3039 /* Prevent running of hooks and other non-essential stuff
3041 preparing_for_armageddon = 1;
3043 ensure_no_quitting_from_now_on ();
3046 quantify_stop_recording_data ();
3047 #endif /* QUANTIFY */
3049 /* This is absolutely the most important thing to do, so make sure
3050 we do it now, before anything else. We might have crashed and
3051 be in a weird inconsistent state, and potentially anything could
3052 set off another protection fault and cause us to bail out
3054 /* Steve writes the following:
3056 [[I'm not removing the code entirely, yet. We have run up against
3057 a spate of problems in diagnosing crashes due to crashes within
3058 crashes. It has very definitely been determined that code called
3059 during auto-saving cannot work if XEmacs crashed inside of GC.
3060 We already auto-save on an itimer so there cannot be too much
3061 unsaved stuff around, and if we get better crash reports we might
3062 be able to get more problems fixed so I'm disabling this. -slb]]
3064 and DISABLES AUTO-SAVING ENTIRELY during crashes! Way way bad idea.
3066 Instead let's just be more intelligent about avoiding crashing
3067 when possible, esp. nested crashes.
3070 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
3073 reset_all_consoles ();
3074 if (sig && sig != SIGTERM)
3077 stderr_out ("\nFatal error.\n\n");
3079 stderr_out ("\nFatal error (%d).\n\n", sig);
3081 ("Your files have been auto-saved.\n"
3082 "Use `M-x recover-session' to recover them.\n"
3084 "Your version of XEmacs was distributed with a PROBLEMS file that may describe\n"
3085 "your crash, and with luck a workaround. Please check it first, but do report\n"
3086 "the crash anyway. "
3088 "\n\nPlease report this bug by selecting `Report-Bug' in the InfoDock menu.\n"
3089 "*BE SURE* to include the XEmacs configuration from M-x describe-installation,\n"
3090 "or the file Installation in the top directory of the build tree.\n"
3092 "Please report this bug by invoking M-x report-emacs-bug,\n"
3093 "or by selecting `Send Bug Report' from the Help menu. If necessary, send\n"
3094 "ordinary email to `xemacs-beta@xemacs.org'. *MAKE SURE* to include the XEmacs\n"
3095 "configuration from M-x describe-installation, or equivalently the file\n"
3096 "Installation in the top of the build tree.\n"
3100 "*Please* try *hard* to obtain a C stack backtrace; without it, we are unlikely\n"
3101 "to be able to analyze the problem. Locate the core file produced as a result\n"
3102 "of this crash (often called `core' or `core.<process-id>', and located in\n"
3103 "the directory in which you started XEmacs or your home directory), and type\n"
3113 /* Now try to determine the actual path to the executable,
3114 to try to make the backtrace-determination process as foolproof
3116 if (STRINGP (Vinvocation_name))
3117 name = (char *) XSTRING_DATA (Vinvocation_name);
3120 if (STRINGP (Vinvocation_directory))
3121 dir = (char *) XSTRING_DATA (Vinvocation_directory);
3122 if (!dir || dir[0] != '/')
3123 stderr_out ("`which %s`", name);
3124 else if (dir[strlen (dir) - 1] != '/')
3125 stderr_out ("%s/%s", dir, name);
3127 stderr_out ("%s%s", dir, name);
3132 "then type `where' at the debugger prompt. No GDB on your system? You may\n"
3133 "have DBX, or XDB, or SDB. (Ask your system administrator if you need help.)\n"
3134 "If no core file was produced, enable them (often with `ulimit -c unlimited'\n"
3135 "in case of future recurrance of the crash.\n");
3136 #endif /* _MSC_VER */
3139 stuff_buffered_input (stuff);
3141 kill_buffer_processes (Qnil);
3143 #ifdef CLASH_DETECTION
3144 unlock_all_files ();
3148 tt_session_quit (tt_default_session ());
3150 /* The following crashes when built on X11R5 and run on X11R6 */
3153 #endif /* TOOLTALK */
3160 #if !defined(PDUMP) || !defined(SYSTEM_MALLOC)
3161 extern char my_edata[];
3164 extern void disable_free_hook (void);
3166 DEFUN ("dump-emacs", Fdump_emacs, 2, 2, 0, /*
3167 Dump current state of XEmacs into executable file FILENAME.
3168 Take symbols from SYMFILE (presumably the file you executed to run XEmacs).
3169 This is used in the file `loadup.el' when building XEmacs.
3171 Remember to set `command-line-processed' to nil before dumping
3172 if you want the dumped XEmacs to process its command line
3173 and announce itself normally when it is run.
3175 (filename, symfile))
3177 /* This function can GC */
3178 struct gcpro gcpro1, gcpro2;
3181 GCPRO2 (filename, symfile);
3183 #ifdef FREE_CHECKING
3184 Freally_free (Qnil);
3186 /* When we're dumping, we can't use the debugging free() */
3187 disable_free_hook ();
3190 CHECK_STRING (filename);
3191 filename = Fexpand_file_name (filename, Qnil);
3192 if (!NILP (symfile))
3194 CHECK_STRING (symfile);
3195 if (XSTRING_LENGTH (symfile) > 0)
3196 symfile = Fexpand_file_name (symfile, Qnil);
3201 opurify = purify_flag;
3204 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
3205 report_sheap_usage (1);
3213 disksave_object_finalization ();
3214 release_breathing_space ();
3216 /* Tell malloc where start of impure now is */
3217 /* Also arrange for warnings when nearly out of space. */
3218 #ifndef SYSTEM_MALLOC
3219 memory_warnings (my_edata, malloc_warning);
3228 LISP_STRING_TO_EXTERNAL (filename, filename_ext, Qfile_name);
3230 if (STRINGP (symfile))
3231 LISP_STRING_TO_EXTERNAL (symfile, symfile_ext, Qfile_name);
3235 garbage_collect_1 ();
3241 #ifdef DOUG_LEA_MALLOC
3242 malloc_state_ptr = malloc_get_state ();
3244 /* here we break our rule that the filename conversion should
3245 be performed at the actual time that the system call is made.
3246 It's a whole lot easier to do the conversion here than to
3247 modify all the unexec routines to ensure that filename
3248 conversion is applied everywhere. Don't worry about memory
3249 leakage because this call only happens once. */
3250 unexec (filename_ext, symfile_ext, (uintptr_t) my_edata, 0, 0);
3251 #ifdef DOUG_LEA_MALLOC
3252 free (malloc_state_ptr);
3254 #endif /* not PDUMP */
3257 purify_flag = opurify;
3262 #endif /* not CANNOT_DUMP */
3265 /* Split STRING into a list of substrings. The substrings are the
3266 parts of original STRING separated by SEPCHAR. */
3268 split_string_by_emchar_1 (const Bufbyte *string, Bytecount size,
3271 Lisp_Object result = Qnil;
3272 const Bufbyte *end = string + size;
3276 const Bufbyte *p = string;
3279 if (charptr_emchar (p) == sepchar)
3283 result = Fcons (make_string (string, p - string), result);
3287 INC_CHARPTR (string); /* skip sepchar */
3292 return Fnreverse (result);
3295 /* The same as the above, except PATH is an external C string (it is
3296 converted using Qfile_name), and sepchar is hardcoded to SEPCHAR
3297 (':' or whatever). */
3299 decode_path (const char *path)
3306 TO_INTERNAL_FORMAT (C_STRING, path, ALLOCA, (newpath, newlen), Qfile_name);
3308 /* #### Does this make sense? It certainly does for
3309 decode_env_path(), but it looks dubious here. Does any code
3310 depend on decode_path("") returning nil instead of an empty
3315 return split_string_by_emchar_1 (newpath, newlen, SEPCHAR);
3319 decode_env_path (const char *evarname, const char *default_)
3321 const char *path = 0;
3323 path = egetenv (evarname);
3326 return decode_path (path);
3329 /* Ben thinks this function should not exist or be exported to Lisp.
3330 We use it to define split-path-string in subr.el (not!). */
3332 DEFUN ("split-string-by-char", Fsplit_string_by_char, 2, 2, 0, /*
3333 Split STRING into a list of substrings originally separated by SEPCHAR.
3337 CHECK_STRING (string);
3338 CHECK_CHAR (sepchar);
3339 return split_string_by_emchar_1 (XSTRING_DATA (string),
3340 XSTRING_LENGTH (string),
3344 /* #### This was supposed to be in subr.el, but is used VERY early in
3345 the bootstrap process, so it goes here. Damn. */
3347 DEFUN ("split-path", Fsplit_path, 1, 1, 0, /*
3348 Explode a search path into a list of strings.
3349 The path components are separated with the characters specified
3350 with `path-separator'.
3354 CHECK_STRING (path);
3356 while (!STRINGP (Vpath_separator)
3357 || (XSTRING_CHAR_LENGTH (Vpath_separator) != 1))
3358 Vpath_separator = signal_simple_continuable_error
3359 ("`path-separator' should be set to a single-character string",
3362 return (split_string_by_emchar_1
3363 (XSTRING_DATA (path), XSTRING_LENGTH (path),
3364 charptr_emchar (XSTRING_DATA (Vpath_separator))));
3367 DEFUN ("noninteractive", Fnoninteractive, 0, 0, 0, /*
3368 Non-nil return value means XEmacs is running without interactive terminal.
3372 return noninteractive ? Qt : Qnil;
3375 /* This flag is useful to define if you're under a debugger; this way, you
3376 can put a breakpoint of assert_failed() and debug multiple problems
3377 in one session without having to recompile. */
3378 /* #define ASSERTIONS_DONT_ABORT */
3380 /* This highly dubious kludge ... shut up Jamie, I'm tired of your slagging. */
3382 static int in_assert_failed;
3383 static const char *assert_failed_file;
3384 static int assert_failed_line;
3385 static const char *assert_failed_expr;
3391 #if defined (WIN32_NATIVE) && defined (DEBUG_XEMACS)
3392 #define enter_debugger() DebugBreak ()
3394 #define enter_debugger()
3398 assert_failed (const char *file, int line, const char *expr)
3400 /* If we're already crashing, let's not crash again. This might be
3401 critical to getting auto-saving working properly. */
3402 if (fatal_error_in_progress)
3405 /* We are extremely paranoid so we sensibly deal with recursive
3406 assertion failures. */
3408 inhibit_non_essential_printing_operations = 1;
3410 if (in_assert_failed >= 4)
3412 else if (in_assert_failed == 3)
3417 else if (in_assert_failed == 2)
3419 /* Not stderr_out(), which does additional things and may trigger
3420 a recursive assertion failure. fprintf was undeffed above, in
3421 case it was encapsulated. */
3423 "Fatal error: recursive assertion failure, "
3424 "file %s, line %d, %s\n",
3427 "Original assertion failure: file %s, line %d, %s\n",
3428 assert_failed_file, assert_failed_line, assert_failed_expr);
3432 assert_failed_file = file;
3433 assert_failed_line = line;
3434 assert_failed_expr = expr;
3438 "Fatal error: assertion failed, file %s, line %d, %s\n",
3441 stderr_out ("Fatal error: assertion failed, file %s, line %d, %s\n",
3446 #if !defined (ASSERTIONS_DONT_ABORT)
3447 abort (); /* The real abort(), this time */
3449 inhibit_non_essential_printing_operations = 0;
3450 in_assert_failed = 0;
3454 DEFUN ("quantify-start-recording-data", Fquantify_start_recording_data,
3456 Start recording Quantify data.
3460 quantify_start_recording_data ();
3464 DEFUN ("quantify-stop-recording-data", Fquantify_stop_recording_data,
3466 Stop recording Quantify data.
3470 quantify_stop_recording_data ();
3474 DEFUN ("quantify-clear-data", Fquantify_clear_data, 0, 0, "", /*
3475 Clear all Quantify data.
3479 quantify_clear_data ();
3482 #endif /* QUANTIFY */
3485 syms_of_emacs (void)
3488 DEFSUBR (Fdump_emacs);
3489 #endif /* !CANNOT_DUMP */
3491 DEFSUBR (Frun_emacs_from_temacs);
3492 DEFSUBR (Frunning_temacs_p);
3493 DEFSUBR (Finvocation_name);
3494 DEFSUBR (Finvocation_directory);
3495 DEFSUBR (Fkill_emacs);
3496 DEFSUBR (Fnoninteractive);
3499 DEFSUBR (Fforce_debugging_signal);
3503 DEFSUBR (Fquantify_start_recording_data);
3504 DEFSUBR (Fquantify_stop_recording_data);
3505 DEFSUBR (Fquantify_clear_data);
3506 #endif /* QUANTIFY */
3508 DEFSUBR (Fsplit_string_by_char);
3509 DEFSUBR (Fsplit_path); /* #### */
3511 defsymbol (&Qkill_emacs_hook, "kill-emacs-hook");
3512 defsymbol (&Qsave_buffers_kill_emacs, "save-buffers-kill-emacs");
3516 vars_of_emacs (void)
3518 DEFVAR_BOOL ("suppress-early-error-handler-backtrace",
3519 &suppress_early_error_handler_backtrace /*
3520 Non-nil means early error handler shouldn't print a backtrace.
3523 DEFVAR_LISP ("command-line-args", &Vcommand_line_args /*
3524 Args passed by shell to XEmacs, as a list of strings.
3527 DEFVAR_LISP ("invocation-name", &Vinvocation_name /*
3528 The program name that was used to run XEmacs.
3529 Any directory names are omitted.
3532 DEFVAR_LISP ("invocation-directory", &Vinvocation_directory /*
3533 The directory in which the XEmacs executable was found, to run it.
3534 The value is simply the program name if that directory's name is not known.
3537 DEFVAR_LISP ("invocation-path", &Vinvocation_path /*
3538 The path in which the XEmacs executable was found, to run it.
3539 The value is simply the value of environment variable PATH on startup
3540 if XEmacs was found there.
3544 xxDEFVAR_LISP ("installation-directory", &Vinstallation_directory,
3545 "A directory within which to look for the `lib-src' and `etc' directories.\n"
3546 "This is non-nil when we can't find those directories in their standard\n"
3547 "installed locations, but we can find them\n"
3548 "near where the XEmacs executable was found.");
3551 DEFVAR_LISP ("system-type", &Vsystem_type /*
3552 Symbol indicating type of operating system you are using.
3554 Vsystem_type = intern (SYSTEM_TYPE);
3555 Fprovide (intern(SYSTEM_TYPE));
3557 #ifndef EMACS_CONFIGURATION
3558 # define EMACS_CONFIGURATION "UNKNOWN"
3560 DEFVAR_LISP ("system-configuration", &Vsystem_configuration /*
3561 String naming the configuration XEmacs was built for.
3563 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
3565 #ifndef EMACS_CONFIG_OPTIONS
3566 # define EMACS_CONFIG_OPTIONS "UNKNOWN"
3568 DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options /*
3569 String containing the configuration options XEmacs was built with.
3571 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
3573 DEFVAR_LISP ("emacs-major-version", &Vemacs_major_version /*
3574 Major version number of this version of Emacs, as an integer.
3575 Warning: this variable did not exist in Emacs versions earlier than:
3579 Vemacs_major_version = make_int (EMACS_MAJOR_VERSION);
3581 DEFVAR_LISP ("emacs-minor-version", &Vemacs_minor_version /*
3582 Minor version number of this version of Emacs, as an integer.
3583 Warning: this variable did not exist in Emacs versions earlier than:
3587 Vemacs_minor_version = make_int (EMACS_MINOR_VERSION);
3589 DEFVAR_LISP ("emacs-patch-level", &Vemacs_patch_level /*
3590 The patch level of this version of Emacs, as an integer.
3591 The value is non-nil if this version of XEmacs is part of a series of
3592 stable XEmacsen, but has bug fixes applied.
3593 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
3596 #ifdef EMACS_PATCH_LEVEL
3597 Vemacs_patch_level = make_int (EMACS_PATCH_LEVEL);
3599 Vemacs_patch_level = Qnil;
3602 DEFVAR_LISP ("emacs-beta-version", &Vemacs_beta_version /*
3603 Beta number of this version of Emacs, as an integer.
3604 The value is nil if this is an officially released version of XEmacs.
3605 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
3608 #ifdef EMACS_BETA_VERSION
3609 Vemacs_beta_version = make_int (EMACS_BETA_VERSION);
3611 Vemacs_beta_version = Qnil;
3615 DEFVAR_LISP ("infodock-major-version", &Vinfodock_major_version /*
3616 Major version number of this InfoDock release.
3618 Vinfodock_major_version = make_int (INFODOCK_MAJOR_VERSION);
3620 DEFVAR_LISP ("infodock-minor-version", &Vinfodock_minor_version /*
3621 Minor version number of this InfoDock release.
3623 Vinfodock_minor_version = make_int (INFODOCK_MINOR_VERSION);
3625 DEFVAR_LISP ("infodock-build-version", &Vinfodock_build_version /*
3626 Build version of this InfoDock release.
3628 Vinfodock_build_version = make_int (INFODOCK_BUILD_VERSION);
3631 DEFVAR_LISP ("xemacs-codename", &Vxemacs_codename /*
3632 Codename of this version of Emacs (a string).
3634 #ifndef XEMACS_CODENAME
3635 #define XEMACS_CODENAME "Noname"
3640 char src[64] = XEMACS_CODENAME;
3641 unsigned char* sp = (unsigned char*)src;
3644 while ( (chr = *sp++) && (i < 128) )
3651 dest[i++] = (chr >> 6) | 0xC0;
3652 dest[i++] = (chr & 0x3F) | 0x80;
3654 dest[i++] = LEADING_BYTE_LATIN_ISO8859_1;
3660 Vxemacs_codename = build_string (dest);
3663 Vxemacs_codename = build_string (XEMACS_CODENAME);
3666 /* Lisp variables which contain command line flags.
3668 The portable dumper stomps on these; they must be saved and restored
3669 if they are processed before the call to pdump_load() in main_1().
3671 DEFVAR_BOOL ("noninteractive", &noninteractive1 /*
3672 Non-nil means XEmacs is running without interactive terminal.
3675 DEFVAR_BOOL ("inhibit-early-packages", &inhibit_early_packages /*
3676 Set to non-nil when the early packages should not be respected at startup.
3679 DEFVAR_BOOL ("inhibit-autoloads", &inhibit_autoloads /*
3680 Set to non-nil when autoloads should not be loaded at startup.
3683 DEFVAR_BOOL ("debug-paths", &debug_paths /*
3684 Set to non-nil when debug information about paths should be printed.
3687 DEFVAR_BOOL ("inhibit-site-lisp", &inhibit_site_lisp /*
3688 Set to non-nil when the site-lisp should not be searched at startup.
3690 #ifdef INHIBIT_SITE_LISP
3691 inhibit_site_lisp = 1;
3694 DEFVAR_BOOL ("inhibit-site-modules", &inhibit_site_modules /*
3695 Set to non-nil when site-modules should not be searched at startup.
3697 #ifdef INHIBIT_SITE_MODULES
3698 inhibit_site_modules = 1;
3701 DEFVAR_INT ("emacs-priority", &emacs_priority /*
3702 Priority for XEmacs to run at.
3703 This value is effective only if set before XEmacs is dumped,
3704 and only if the XEmacs executable is installed with setuid to permit
3705 it to change priority. (XEmacs sets its uid back to the real uid.)
3706 Currently, you need to define SET_EMACS_PRIORITY in `config.h'
3707 before you compile XEmacs, to enable the code for this feature.
3711 DEFVAR_CONST_LISP ("internal-error-checking", &Vinternal_error_checking /*
3712 Internal error checking built-in into this instance of XEmacs.
3713 This is a list of symbols, initialized at build-time. Legal symbols
3716 extents - check extents prior to each extent change;
3717 typecheck - check types strictly, aborting in case of error;
3718 malloc - check operation of malloc;
3719 gc - check garbage collection;
3720 bufpos - check buffer positions.
3722 quick-build - user has requested the "quick-build" configure option.
3724 Vinternal_error_checking = Qnil;
3725 #ifdef ERROR_CHECK_EXTENTS
3726 Vinternal_error_checking = Fcons (intern ("extents"),
3727 Vinternal_error_checking);
3729 #ifdef ERROR_CHECK_TYPECHECK
3730 Vinternal_error_checking = Fcons (intern ("typecheck"),
3731 Vinternal_error_checking);
3733 #ifdef ERROR_CHECK_MALLOC
3734 Vinternal_error_checking = Fcons (intern ("malloc"),
3735 Vinternal_error_checking);
3737 #ifdef ERROR_CHECK_GC
3738 Vinternal_error_checking = Fcons (intern ("gc"),
3739 Vinternal_error_checking);
3741 #ifdef ERROR_CHECK_BUFPOS
3742 Vinternal_error_checking = Fcons (intern ("bufpos"),
3743 Vinternal_error_checking);
3746 Vinternal_error_checking = Fcons (intern ("quick-build"),
3747 Vinternal_error_checking);
3750 DEFVAR_CONST_LISP ("mail-lock-methods", &Vmail_lock_methods /*
3751 Mail spool locking methods supported by this instance of XEmacs.
3752 This is a list of symbols. Each of the symbols is one of the
3753 following: dot, lockf, flock, locking, mmdf.
3756 Vmail_lock_methods = Qnil;
3757 Vmail_lock_methods = Fcons (intern ("dot"), Vmail_lock_methods);
3759 Vmail_lock_methods = Fcons (intern ("lockf"), Vmail_lock_methods);
3762 Vmail_lock_methods = Fcons (intern ("flock"), Vmail_lock_methods);
3765 Vmail_lock_methods = Fcons (intern ("mmdf"), Vmail_lock_methods);
3768 Vmail_lock_methods = Fcons (intern ("locking"), Vmail_lock_methods);
3772 DEFVAR_CONST_LISP ("configure-mail-lock-method", &Vconfigure_mail_lock_method /*
3773 Mail spool locking method suggested by configure. This is one
3774 of the symbols in MAIL-LOCK-METHODS.
3777 #if defined(MAIL_LOCK_FLOCK) && defined(HAVE_FLOCK)
3778 Vconfigure_mail_lock_method = intern("flock");
3779 #elif defined(MAIL_LOCK_LOCKF) && defined(HAVE_LOCKF)
3780 Vconfigure_mail_lock_method = intern("lockf");
3781 #elif defined(MAIL_LOCK_MMDF) && defined(HAVE_MMDF)
3782 Vconfigure_mail_lock_method = intern("mmdf");
3783 #elif defined(MAIL_LOCK_LOCKING) && defined(HAVE_LOCKING)
3784 Vconfigure_mail_lock_method = intern("locking");
3786 Vconfigure_mail_lock_method = intern("dot");
3790 DEFVAR_LISP ("path-separator", &Vpath_separator /*
3791 The directory separator in search paths, as a string.
3795 Vpath_separator = make_string ((Bufbyte *)&c, 1);
3800 complex_vars_of_emacs (void)
3802 /* This is all related to path searching. */
3804 DEFVAR_LISP ("emacs-program-name", &Vemacs_program_name /*
3805 *Name of the Emacs variant.
3806 For example, this may be \"xemacs\" or \"infodock\".
3807 This is mainly meant for use in path searching.
3809 Vemacs_program_name = build_string ((char *) PATH_PROGNAME);
3811 DEFVAR_LISP ("emacs-program-version", &Vemacs_program_version /*
3812 *Version of the Emacs variant.
3813 This typically has the form NN.NN-bNN.
3814 This is mainly meant for use in path searching.
3816 Vemacs_program_version = build_string ((char *) PATH_VERSION);
3818 DEFVAR_LISP ("exec-path", &Vexec_path /*
3819 *List of directories to search programs to run in subprocesses.
3820 Each element is a string (directory name) or nil (try default directory).
3824 DEFVAR_LISP ("exec-directory", &Vexec_directory /*
3825 *Directory of architecture-dependent files that come with XEmacs,
3826 especially executable programs intended for XEmacs to invoke.
3828 Vexec_directory = Qnil;
3830 DEFVAR_LISP ("configure-exec-directory", &Vconfigure_exec_directory /*
3831 For internal use by the build procedure only.
3832 configure's idea of what `exec-directory' will be.
3835 Vconfigure_exec_directory = Ffile_name_as_directory
3836 (build_string ((char *) PATH_EXEC));
3838 Vconfigure_exec_directory = Qnil;
3841 DEFVAR_LISP ("lisp-directory", &Vlisp_directory /*
3842 *Directory of core Lisp files that come with XEmacs.
3844 Vlisp_directory = Qnil;
3846 DEFVAR_LISP ("configure-lisp-directory", &Vconfigure_lisp_directory /*
3847 For internal use by the build procedure only.
3848 configure's idea of what `lisp-directory' will be.
3850 #ifdef PATH_LOADSEARCH
3851 Vconfigure_lisp_directory = Ffile_name_as_directory
3852 (build_string ((char *) PATH_LOADSEARCH));
3854 Vconfigure_lisp_directory = Qnil;
3857 DEFVAR_LISP ("mule-lisp-directory", &Vmule_lisp_directory /*
3858 *Directory of Mule Lisp files that come with XEmacs.
3860 Vmule_lisp_directory = Qnil;
3862 DEFVAR_LISP ("configure-mule-lisp-directory", &Vconfigure_mule_lisp_directory /*
3863 For internal use by the build procedure only.
3864 configure's idea of what `mule-lisp-directory' will be.
3866 #ifdef PATH_MULELOADSEARCH
3867 Vconfigure_mule_lisp_directory = Ffile_name_as_directory
3868 (build_string ((char *) PATH_MULELOADSEARCH));
3870 Vconfigure_mule_lisp_directory = Qnil;
3873 DEFVAR_LISP ("utf-2000-lisp-directory", &Vutf_2000_lisp_directory /*
3874 *Directory of UTF-2000 Lisp files that come with XEmacs.
3876 Vutf_2000_lisp_directory = Qnil;
3878 DEFVAR_LISP ("configure-utf-2000-lisp-directory",
3879 &Vconfigure_utf_2000_lisp_directory /*
3880 For internal use by the build procedure only.
3881 configure's idea of what `utf-2000-lisp-directory' will be.
3883 #ifdef PATH_UTF2000LOADSEARCH
3884 Vconfigure_utf_2000_lisp_directory = Ffile_name_as_directory
3885 (build_string ((char *) PATH_UTF2000LOADSEARCH));
3887 Vconfigure_utf_2000_lisp_directory = Qnil;
3890 DEFVAR_LISP ("module-directory", &Vmodule_directory /*
3891 *Directory of core dynamic modules that come with XEmacs.
3893 Vmodule_directory = Qnil;
3895 DEFVAR_LISP ("configure-module-directory", &Vconfigure_module_directory /*
3896 For internal use by the build procedure only.
3897 configure's idea of what `module-directory' will be.
3899 #ifdef PATH_MODULESEARCH
3900 Vconfigure_module_directory = Ffile_name_as_directory
3901 (build_string ((char *) PATH_MODULESEARCH));
3903 Vconfigure_module_directory = Qnil;
3906 DEFVAR_LISP ("configure-package-path", &Vconfigure_package_path /*
3907 For internal use by the build procedure only.
3908 configure's idea of what the package path will be.
3910 #ifdef PATH_PACKAGEPATH
3911 Vconfigure_package_path = decode_path (PATH_PACKAGEPATH);
3913 Vconfigure_package_path = Qnil;
3916 DEFVAR_LISP ("data-directory", &Vdata_directory /*
3917 *Directory of architecture-independent files that come with XEmacs,
3918 intended for XEmacs to use.
3919 Use of this variable in new code is almost never correct. See the
3920 functions `locate-data-file' and `locate-data-directory' and the variable
3921 `data-directory-list'.
3923 Vdata_directory = Qnil;
3925 DEFVAR_LISP ("configure-data-directory", &Vconfigure_data_directory /*
3926 For internal use by the build procedure only.
3927 configure's idea of what `data-directory' will be.
3930 Vconfigure_data_directory = Ffile_name_as_directory
3931 (build_string ((char *) PATH_DATA));
3933 Vconfigure_data_directory = Qnil;
3936 DEFVAR_LISP ("data-directory-list", &Vdata_directory_list /*
3937 *List of directories of architecture-independent files that come with XEmacs
3938 or were installed as packages, and are intended for XEmacs to use.
3940 Vdata_directory_list = Qnil;
3942 DEFVAR_LISP ("site-directory", &Vsite_directory /*
3943 *Directory of site-specific Lisp files that come with XEmacs.
3945 Vsite_directory = Qnil;
3947 DEFVAR_LISP ("configure-site-directory", &Vconfigure_site_directory /*
3948 For internal use by the build procedure only.
3949 configure's idea of what `site-directory' will be.
3952 Vconfigure_site_directory = Ffile_name_as_directory
3953 (build_string ((char *) PATH_SITE));
3955 Vconfigure_site_directory = Qnil;
3958 DEFVAR_LISP ("site-module-directory", &Vsite_module_directory /*
3959 *Directory of site-specific loadable modules that come with XEmacs.
3961 Vsite_module_directory = Qnil;
3963 DEFVAR_LISP ("configure-site-module-directory", &Vconfigure_site_module_directory /*
3964 For internal use by the build procedure only.
3965 configure's idea of what `site-directory' will be.
3967 #ifdef PATH_SITE_MODULES
3968 Vconfigure_site_module_directory = Ffile_name_as_directory
3969 (build_string ((char *) PATH_SITE_MODULES));
3971 Vconfigure_site_module_directory = Qnil;
3974 DEFVAR_LISP ("doc-directory", &Vdoc_directory /*
3975 *Directory containing the DOC file that comes with XEmacs.
3976 This is usually the same as `exec-directory'.
3978 Vdoc_directory = Qnil;
3980 DEFVAR_LISP ("configure-doc-directory", &Vconfigure_doc_directory /*
3981 For internal use by the build procedure only.
3982 configure's idea of what `doc-directory' will be.
3985 Vconfigure_doc_directory = Ffile_name_as_directory
3986 (build_string ((char *) PATH_DOC));
3988 Vconfigure_doc_directory = Qnil;
3991 DEFVAR_LISP ("configure-exec-prefix-directory", &Vconfigure_exec_prefix_directory /*
3992 For internal use by the build procedure only.
3993 configure's idea of what `exec-prefix-directory' will be.
3995 #ifdef PATH_EXEC_PREFIX
3996 Vconfigure_exec_prefix_directory = Ffile_name_as_directory
3997 (build_string ((char *) PATH_EXEC_PREFIX));
3999 Vconfigure_exec_prefix_directory = Qnil;
4002 DEFVAR_LISP ("configure-prefix-directory", &Vconfigure_prefix_directory /*
4003 For internal use by the build procedure only.
4004 configure's idea of what `prefix-directory' will be.
4007 Vconfigure_prefix_directory = Ffile_name_as_directory
4008 (build_string ((char *) PATH_PREFIX));
4010 Vconfigure_prefix_directory = Qnil;
4013 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory /*
4014 For internal use by the build procedure only.
4015 This is the name of the directory in which the build procedure installed
4016 Emacs's info files; the default value for Info-default-directory-list
4020 Vconfigure_info_directory =
4021 Ffile_name_as_directory (build_string (PATH_INFO));
4023 Vconfigure_info_directory = Qnil;
4026 DEFVAR_LISP ("configure-info-path", &Vconfigure_info_path /*
4027 The configured initial path for info documentation.
4029 #ifdef PATH_INFOPATH
4030 Vconfigure_info_path = decode_path (PATH_INFOPATH);
4032 Vconfigure_info_path = Qnil;
4036 #if defined(__sgi) && !defined(PDUMP)
4037 /* This is so tremendously ugly I'd puke. But then, it works.
4038 * The target is to override the static constructor from the
4039 * libiflPNG.so library which is masquerading as libz, and
4040 * cores on us when re-started from the dumped executable.
4041 * This will have to go for 21.1 -- OG.
4043 void __sti__iflPNGFile_c___ (void);
4045 __sti__iflPNGFile_c___ (void)