1 /* XEmacs -- Fully extensible Emacs, running on Unix and other platforms.
2 Copyright (C) 1985, 1986, 1987, 1992, 1993, 1994
3 Free Software Foundation, Inc.
4 Copyright (C) 1995 Sun Microsystems, Inc.
5 Copyright (C) 2000 Ben Wing.
6 Copyright (C) 2000,2002 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 */
193 #include <quantify.h>
200 #if defined (HAVE_LOCALE_H) && \
201 (defined (I18N2) || defined (I18N3) || defined (I18N4))
209 #if defined (WIN32_NATIVE)
216 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
217 void report_sheap_usage (int die_if_pure_storage_exceeded);
220 #if !defined (SYSTEM_MALLOC) && !defined (DOUG_LEA_MALLOC)
221 extern void *(*__malloc_hook)(size_t);
222 extern void *(*__realloc_hook)(void *, size_t);
223 extern void (*__free_hook)(void *);
224 #endif /* not SYSTEM_MALLOC && not DOUG_LEA_MALLOC */
226 /* Command line args from shell, as list of strings */
227 Lisp_Object Vcommand_line_args;
229 /* Set nonzero after XEmacs has started up the first time.
230 Prevents reinitialization of the Lisp world and keymaps
231 on subsequent starts. */
234 #ifdef DOUG_LEA_MALLOC
236 /* Preserves a pointer to the memory allocated that copies that
237 static data inside glibc's malloc. */
238 static void *malloc_state_ptr;
239 #endif /* DOUG_LEA_MALLOC */
242 void r_alloc_reinit (void);
246 void console_type_create_select_gtk(void);
249 /* Variable whose value is symbol giving operating system type. */
250 Lisp_Object Vsystem_type;
252 /* Variable whose value is string giving configuration built for. */
253 Lisp_Object Vsystem_configuration;
255 /* Variable whose value is string containing the configuration options
256 XEmacs was built with. */
257 Lisp_Object Vsystem_configuration_options;
259 /* Version numbers and strings */
260 Lisp_Object Vemacs_major_version;
261 Lisp_Object Vemacs_minor_version;
262 Lisp_Object Vemacs_patch_level;
263 Lisp_Object Vemacs_beta_version;
264 Lisp_Object Vxemacs_codename;
266 Lisp_Object Vinfodock_major_version;
267 Lisp_Object Vinfodock_minor_version;
268 Lisp_Object Vinfodock_build_version;
271 /* The path under which XEmacs was invoked. */
272 Lisp_Object Vinvocation_path;
274 /* The name under which XEmacs was invoked, with any leading directory
276 Lisp_Object Vinvocation_name;
278 /* The directory name from which XEmacs was invoked. */
279 Lisp_Object Vinvocation_directory;
282 /* The directory name in which to find subdirs such as lisp and etc.
283 nil means get them only from PATH_LOADSEARCH. */
284 Lisp_Object Vinstallation_directory;
287 Lisp_Object Vemacs_program_name, Vemacs_program_version;
288 Lisp_Object Vexec_path;
289 Lisp_Object Vexec_directory, Vconfigure_exec_directory;
290 Lisp_Object Vlisp_directory, Vconfigure_lisp_directory;
291 Lisp_Object Vmule_lisp_directory, Vconfigure_mule_lisp_directory;
292 Lisp_Object Vutf_2000_lisp_directory, Vconfigure_utf_2000_lisp_directory;
293 Lisp_Object Vmodule_directory, Vconfigure_module_directory;
294 Lisp_Object Vsite_module_directory, Vconfigure_site_module_directory;
295 Lisp_Object Vconfigure_package_path;
296 Lisp_Object Vdata_directory, Vconfigure_data_directory;
297 Lisp_Object Vdoc_directory, Vconfigure_doc_directory;
298 Lisp_Object Vconfigure_lock_directory;
299 Lisp_Object Vdata_directory_list;
300 Lisp_Object Vconfigure_info_directory;
301 Lisp_Object Vsite_directory, Vconfigure_site_directory;
302 Lisp_Object Vconfigure_info_path;
303 Lisp_Object Vinternal_error_checking;
304 Lisp_Object Vmail_lock_methods, Vconfigure_mail_lock_method;
305 Lisp_Object Vpath_separator;
307 /* The default base directory XEmacs is installed under. */
308 Lisp_Object Vconfigure_exec_prefix_directory, Vconfigure_prefix_directory;
310 /* If nonzero, set XEmacs to run at this priority. This is also used
311 in child_setup and sys_suspend to make sure subshells run at normal
313 Fixnum emacs_priority;
315 /* Some FSF junk with running_asynch_code, to preserve the match
316 data. Not necessary because we don't call process filters
317 asynchronously (i.e. from within QUIT). */
318 /* #### Delete this when merging the rest of my code */
319 int running_asynch_code;
321 /* If non-zero, a window-system was specified on the command line. */
324 /* Type of display specified. We cannot use a Lisp symbol here because
325 Lisp symbols may not initialized at the time that we set this
327 const char *display_use;
329 /* If non-zero, then the early error handler will only print the error
331 int suppress_early_error_handler_backtrace;
333 /* An address near the bottom of the stack.
334 Tells GC how to save a copy of the stack. */
337 #ifdef USG_SHARED_LIBRARIES
338 /* If nonzero, this is the place to put the end of the writable segment
341 uintptr_t bss_end = 0;
344 /* Number of bytes of writable memory we can expect to be able to get */
345 unsigned int lim_data;
349 Some LISP-visible command-line options are set by XEmacs _before_ the
350 data is dumped in building a --pdump XEmacs, but used _after_ it is
351 restored in normal operation. Thus the dump-time values overwrite the
352 values XEmacs is getting at runtime. Such variables must be saved
353 before loading the dumpfile, and restored afterward.
355 Therefore these variables may not be initialized in vars_of_emacs().
357 The save/restore is done immediately before and after pdump_load() in
358 main_1(). See that function for the current list of protected variables.
360 Note that saving/restoring is only necessary for a few variables that are
361 o command line arguments effective at runtime (as opposed to dump-time),
362 o parsed before pdump_load, and
363 o exported to Lisp via a DEFVAR.
366 /* Nonzero means running XEmacs without interactive terminal. */
370 /* Value of Lisp variable `noninteractive'.
371 Normally same as C variable `noninteractive'
372 but nothing terrible happens if user sets this one.
374 Shadowed from the pdumper by `noninteractive'. */
378 /* Nonzero means don't perform site-lisp searches at startup */
379 int inhibit_site_lisp;
381 /* Nonzero means don't perform site-modules searches at startup */
382 int inhibit_site_modules;
384 /* Nonzero means don't respect early packages at startup */
385 int inhibit_early_packages;
387 /* Nonzero means don't load package autoloads at startup */
388 int inhibit_autoloads;
390 /* Nonzero means don't load the dump file (ignored if not PDUMP) */
394 /* Nonzero means print debug information about path searching */
397 /* Save argv and argc. */
398 static Extbyte **initial_argv; /* #### currently unused */
399 static int initial_argc; /* #### currently unused */
401 static void sort_args (int argc, char **argv);
403 Lisp_Object Qkill_emacs_hook;
404 Lisp_Object Qsave_buffers_kill_emacs;
406 extern Lisp_Object Vlisp_EXEC_SUFFIXES;
410 /* Ben's capsule summary about expected and unexpected exits from XEmacs.
412 Expected exits occur when the user directs XEmacs to exit, for example
413 by pressing the close button on the only frame in XEmacs, or by typing
414 C-x C-c. This runs `save-buffers-kill-emacs', which saves any necessary
415 buffers, and then exits using the primitive `kill-emacs'.
417 However, unexpected exits occur in a few different ways:
419 -- a memory access violation or other hardware-generated exception
420 occurs. This is the worst possible problem to deal with, because
421 the fault can occur while XEmacs is in any state whatsoever, even
422 quite unstable ones. As a result, we need to be *extremely* careful
424 -- we are using one X display (or if we've used more, we've closed the
425 others already), and some hardware or other problem happens and
426 suddenly we've lost our connection to the display. In this situation,
427 things are not so dire as in the last one; our code itself isn't
428 trashed, so we can continue execution as normal, after having set
429 things up so that we can exit at the appropriate time. Our exit
430 still needs to be of the emergency nature; we have no displays, so
431 any attempts to use them will fail. We simply want to auto-save
432 (the single most important thing to do during shut-down), do minimal
433 cleanup of stuff that has an independent existence outside of XEmacs,
436 Currently, both unexpected exit scenarios described above set
437 preparing_for_armageddon to indicate that nonessential and possibly
438 dangerous things should not be done, specifically:
440 -- no garbage collection.
442 -- no messages of any sort from autosaving.
443 -- autosaving tries harder, ignoring certain failures.
444 -- existing frames are not deleted.
446 (Also, all places that set preparing_for_armageddon also
447 set dont_check_for_quit. This happens separately because it's
448 also necessary to set other variables to make absolutely sure
449 no quitting happens.)
451 In the first scenario above (the access violation), we also set
452 fatal_error_in_progress. This causes more things to not happen:
454 -- assertion failures do not abort.
455 -- printing code does not do code conversion or gettext when
456 printing to stdout/stderr.
459 /* Nonzero if handling a fatal error already. */
460 int fatal_error_in_progress;
462 /* Non-nil means we're going down, so we better not run any hooks
463 or do other non-essential stuff. */
464 int preparing_for_armageddon;
467 static JMP_BUF run_temacs_catch;
469 static int run_temacs_argc;
470 static char **run_temacs_argv;
471 static char *run_temacs_args;
472 static size_t run_temacs_argv_size;
473 static size_t run_temacs_args_size;
475 static void shut_down_emacs (int sig, Lisp_Object stuff, int no_auto_save);
478 ensure_no_quitting_from_now_on (void)
480 /* make sure no quitting from now on!! */
481 dont_check_for_quit = 1;
486 /* Handle bus errors, illegal instruction, etc. */
488 fatal_error_signal (int sig)
490 fatal_error_in_progress++;
491 preparing_for_armageddon = 1;
493 ensure_no_quitting_from_now_on ();
495 /* Unblock the signal so that if the same signal gets sent in the
496 code below, we avoid a deadlock. */
497 EMACS_UNBLOCK_SIGNAL (sig);
499 /* Only try auto-saving first time through. If we crash in auto-saving,
500 don't do it again. */
501 if (fatal_error_in_progress == 1)
503 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
504 /* Do this so that the variable has the same value of 2 regardless of
505 whether we made it through auto-saving correctly. */
506 fatal_error_in_progress++;
508 else if (fatal_error_in_progress == 2)
509 stderr_out ("WARNING: Unable to auto-save your files properly.\n"
510 "Some or all may in fact have been auto-saved.\n"
513 /* Now, reset our signal handler, so the next time, we just die.
514 Don't do this before auto-saving. */
515 signal (sig, SIG_DFL);
517 /* Keep in mind that there's more than one signal that we can crash
519 /* If fatal error occurs in code below, avoid infinite recursion. */
520 if (fatal_error_in_progress <= 2)
522 shut_down_emacs (sig, Qnil, 1);
523 stderr_out ("\nLisp backtrace follows:\n\n");
524 Fbacktrace (Qexternal_debugging_output, Qt);
525 # if 0 /* This is evil, rarely useful, and causes grief in some cases. */
526 /* Check for Sun-style stack printing via /proc */
528 const char *pstack = "/usr/proc/bin/pstack";
529 if (access (pstack, X_OK) == 0)
532 stderr_out ("\nC backtrace follows:\n"
533 "(A real debugger may provide better information)\n\n");
534 sprintf (buf, "%s %d >&2", pstack, (int)getpid());
540 /* Signal the same code; this time it will really be fatal. */
541 kill (getpid (), sig);
548 mswindows_handle_hardware_exceptions (DWORD code)
550 if (code != STATUS_ACCESS_VIOLATION && code != STATUS_ILLEGAL_INSTRUCTION
551 && code != STATUS_PRIVILEGED_INSTRUCTION
552 && code != STATUS_DATATYPE_MISALIGNMENT)
553 return EXCEPTION_CONTINUE_SEARCH;
555 /* I don't know if this filter is still wrapped in the outer __try, but
556 it doesn't hurt to have another one. --ben
557 And it lets us control more exactly what we really want to do in such
561 fatal_error_in_progress++;
562 preparing_for_armageddon = 1;
564 ensure_no_quitting_from_now_on ();
566 /* Only try auto-saving first time through. If we crash in auto-saving,
567 don't do it again. */
568 if (fatal_error_in_progress == 1)
570 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
571 /* Do this so that the variable has the same value of 2 regardless of
572 whether we made it through auto-saving correctly. */
573 fatal_error_in_progress++;
575 else if (fatal_error_in_progress == 2)
576 stderr_out ("WARNING: Unable to auto-save your files properly.\n"
577 "Some or all may in fact have been auto-saved.\n"
580 /* If fatal error occurs in code below, avoid infinite recursion. */
581 if (fatal_error_in_progress <= 2)
583 shut_down_emacs (-1, Qnil, 1);
584 stderr_out ("\nLisp backtrace follows:\n\n");
585 Fbacktrace (Qexternal_debugging_output, Qt);
588 /* VC++ documentation says that
589 GetExceptionCode() cannot be called inside the filter itself. */
591 /* __except (mswindows_handle_hardware_exceptions (GetExceptionCode ())) {}
593 The line above is original. Unfortunately, when an error is tripped
594 inside of the handler (e.g. during Fbacktrace()), and the handler for
595 the handler is invoked, it correctly notices that something is amiss
596 and it should just return -- but it returns EXCEPTION_CONTINUE_SEARCH,
597 which causes the debugger to be invoked debugging the handler code in
598 this function -- and WITH THE STACK UNWOUND so that you see main()
599 calling mswindows_handle_hardware_exceptions(), calling Fbacktrace(),
600 and a crash a couple of frames in -- AND NO SIGN OF THE ORIGINAL CRASH!
602 There's some real weirdness going on in the stack handling -- unlike
603 in Unix, where further crashes just keep adding to the stack, it seems
604 that under the structured-exception-handling, the stack can actually
605 bounce back and forth between the full stack at the location of the
606 exception and the unwound stack at the place where the __try clause was
607 established. I don't completely understand it. What I do know is that
608 returning EXCEPTION_EXECUTE_HANDLER on nested crash has the effect of
609 aborting execution of the handler and going back to the outer filter
610 function, which returns EXCEPTION_CONTINUE_SEARCH and everything is
611 hunky-dorey -- your debugger sees a crash at the right location with
614 I'm leaving in the trickier Unix-like code in the handler; someone who
615 understands better than me how the stack works in these handlers could
616 fix it up more. As it is, it works pretty well, so I'm not likely to
620 __except (EXCEPTION_EXECUTE_HANDLER) {}
623 /* pretend we didn't handle this, so that the debugger is invoked and/or
624 the normal GPF box appears. */
625 return EXCEPTION_CONTINUE_SEARCH;
628 #endif /* _MSC_VER */
634 /* Handler for SIGDANGER. */
636 memory_warning_signal (int sig)
638 /* #### bad bad bad; this function shouldn't do anything except
639 set a flag, or weird corruption could happen. */
640 signal (sig, memory_warning_signal);
643 (GETTEXT ("Operating system warns that virtual memory is running low.\n"));
645 /* It might be unsafe to call do_auto_save now. */
646 force_auto_save_soon ();
648 #endif /* SIGDANGER */
650 /* Code for dealing with Lisp access to the Unix command line */
653 make_arg_list_1 (int argc, Extbyte **argv, int skip_args)
655 Lisp_Object result = Qnil;
658 for (i = argc - 1; i >= 0; i--)
660 if (i == 0 || i > skip_args)
665 /* Do not trust to what crt0 has stuffed into argv[0] */
666 char full_exe_path[MAX_PATH];
667 Lisp_Object fullpath;
669 GetModuleFileName (NULL, full_exe_path, MAX_PATH);
670 fullpath = build_ext_string (full_exe_path, Qmswindows_tstr);
671 result = Fcons (fullpath, result);
672 #if defined(HAVE_SHLIB)
674 Extbyte *fullpathext;
676 LISP_STRING_TO_EXTERNAL (fullpath, fullpathext,
677 Qdll_filename_encoding);
678 (void) dll_init (fullpathext);
684 result = Fcons (build_ext_string (argv[i],
685 Qcommand_argument_encoding),
693 make_arg_list (int argc, Extbyte **argv)
695 return make_arg_list_1 (argc, argv, 0);
698 /* Calling functions are also responsible for calling free_argc_argv
699 when they are done with the generated list. */
701 make_argc_argv (Lisp_Object argv_list, int *argc, Extbyte ***argv)
704 int n = XINT (Flength (argv_list));
706 *argv = (Extbyte**) xmalloc ((n+1) * sizeof (Extbyte*));
708 for (i = 0, next = argv_list; i < n; i++, next = XCDR (next))
711 CHECK_STRING (XCAR (next));
713 LISP_STRING_TO_EXTERNAL (XCAR (next), temp, Qcommand_argument_encoding);
714 (*argv) [i] = xstrdup (temp);
721 free_argc_argv (Extbyte **argv)
734 init_cmdargs (int argc, Extbyte **argv, int skip_args)
739 Vcommand_line_args = make_arg_list_1 (argc, argv, skip_args);
742 DEFUN ("invocation-name", Finvocation_name, 0, 0, 0, /*
743 Return the program name that was used to run XEmacs.
744 Any directory names are omitted.
748 return Fcopy_sequence (Vinvocation_name);
751 DEFUN ("invocation-directory", Finvocation_directory, 0, 0, 0, /*
752 Return the directory name in which the Emacs executable was located.
756 return Fcopy_sequence (Vinvocation_directory);
761 /* #### - don't know why I18N4 on SunOS/JLE
762 can't deal with this. It's a potential
763 bug that needs to be looked at. */
764 # undef RUN_TIME_REMAP
767 /* Test whether the next argument in ARGV matches SSTR or a prefix of
768 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null
769 (the argument is supposed to have a value) store in *VALPTR either
770 the next argument or the portion of this one after the equal sign.
771 ARGV is read starting at position *SKIPPTR; this index is advanced
772 by the number of arguments used.
774 Too bad we can't just use getopt for all of this, but we don't have
775 enough information to do it right. */
778 argmatch (char **argv, int argc, char *sstr, char *lstr,
779 int minlen, char **valptr, int *skipptr)
785 /* Don't access argv[argc]; give up in advance. */
786 if (argc <= *skipptr + 1)
789 arg = argv[*skipptr+1];
792 if (strcmp (arg, sstr) == 0)
796 *valptr = argv[*skipptr+2];
803 arglen = (valptr != NULL && (p = strchr (arg, '=')) != NULL
804 ? p - arg : (int) strlen (arg));
805 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0)
807 else if (valptr == NULL)
818 else if (argv[*skipptr+2] != NULL)
820 *valptr = argv[*skipptr+2];
830 /* Make stack traces always identify version + configuration */
831 #define main_1 STACK_TRACE_EYE_CATCHER
833 /* This function is not static, so that the compiler is less likely to
834 inline it, which would make it not show up in stack traces.
836 The restart argument is a flag that indicates that main_1 is now
837 being called for the second time in this invocation of xemacs; this can
838 only happen in an xemacs that is not loaded with dumped data (temacs
839 with the conventional dumper or xemacs -nd with the pdumper). See
840 Frun_emacs_from_temacs().
842 restart interacts with initialized as follows (per Olivier Galibert):
846 initialized==0 => temacs
847 initialized!=0 && restart!=0 => run-temacs
848 initialized!=0 && restart==0 => xemacs/post pdump_load()
850 DECLARE_DOESNT_RETURN (main_1 (int, char **, char **, int));
852 main_1 (int argc, char **argv, char **envp, int restart)
854 char stack_bottom_variable;
857 int inhibit_window_system;
859 extern int malloc_cookie;
862 #if (!defined (SYSTEM_MALLOC) && !defined (HAVE_LIBMCHECK) \
863 && !defined (DOUG_LEA_MALLOC))
864 /* Make sure that any libraries we link against haven't installed a
865 hook for a gmalloc of a potentially incompatible version. */
866 /* If we're using libmcheck, the hooks have already been initialized, */
867 /* don't touch them. -slb */
868 __malloc_hook = NULL;
869 __realloc_hook = NULL;
871 #endif /* not SYSTEM_MALLOC or HAVE_LIBMCHECK or DOUG_LEA_MALLOC */
877 * NeXT secret magic, ripped from Emacs-for-NS by Carl Edman
878 * <cedman@princeton.edu>. Note that even Carl doesn't know what this
879 * does; it was provided by NeXT, and it presumable makes NS's mallocator
880 * work with dumping. But malloc_jumpstart() and malloc_freezedry() in
881 * unexnext.c are both completely undocumented, even in NS header files!
882 * But hey, it solves all NS related memory problems, so who's
884 if (initialized && malloc_jumpstart (malloc_cookie) != 0)
885 stderr_out ("malloc jumpstart failed!\n");
889 #if defined (GNU_MALLOC) && \
890 defined (ERROR_CHECK_MALLOC) && \
891 !defined (HAVE_LIBMCHECK)
893 #if defined(LOSING_GCC_DESTRUCTOR_FREE_BUG)
894 /* Prior to XEmacs 21, this was `#if 0'ed out. */
895 /* I'm enabling this because it is the only reliable way I've found to */
896 /* prevent a very annoying problem where GCC will attempt to free(3) */
897 /* memory at exit() and cause a coredump. */
901 sort_args (argc, argv);
903 #if defined (WIN32_NATIVE) || defined (_SCO_DS)
907 /* Record (approximately) where the stack begins. */
908 stack_bottom = &stack_bottom_variable;
910 #ifdef USG_SHARED_LIBRARIES
912 brk ((void *) bss_end);
917 #if defined (HAVE_MMAP) && defined (REL_ALLOC)
918 /* ralloc can only be used if using the GNU memory allocator. */
920 #elif defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
928 #endif /* HAVE_SOCKS */
930 #ifndef SYSTEM_MALLOC
932 /* Arrange to get warning messages as memory fills up. */
933 memory_warnings (0, malloc_warning);
934 #endif /* not SYSTEM_MALLOC */
936 #ifdef SET_EMACS_PRIORITY
937 if (emacs_priority != 0)
938 nice (-emacs_priority);
940 #endif /* SET_EMACS_PRIORITY */
942 #ifdef EXTRA_INITIALIZE
946 #ifdef HAVE_WINDOW_SYSTEM
947 inhibit_window_system = 0;
949 inhibit_window_system = 1;
952 /* Handle the -sd/--show-dump-id switch, which means show the hex dump_id and quit */
953 if (argmatch (argv, argc, "-sd", "--show-dump-id", 9, NULL, &skip_args))
956 printf ("%08x\n", dump_id);
958 printf ("Portable dumper not configured; -sd just forces exit.\n");
963 /* Handle the -t switch, which specifies filename to use as terminal */
966 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args))
970 if (open (term, O_RDWR | OPEN_BINARY, 2) < 0)
971 fatal ("%s: %s", term, strerror (errno));
974 fatal ("%s: not a tty", term);
977 stderr_out ("Using %s", ttyname (0));
979 stderr_out ("Using %s", term);
980 inhibit_window_system = 1; /* -t => -nw */
984 /* Handle the --no-dump-file/-nd switch, which means don't load the dump file (ignored when not using pdump) */
985 if (argmatch (argv, argc, "-nd", "--no-dump-file", 7, NULL, &skip_args))
990 /* Handle -nw switch */
991 if (argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args))
992 inhibit_window_system = 1;
994 /* Handle the -batch switch, which means don't do interactive display. */
995 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args))
997 #if 0 /* I don't think this is correct. */
998 inhibit_autoloads = 1;
1003 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
1004 11, NULL, &skip_args))
1007 /* Partially handle -no-autoloads, -no-early-packages and -vanilla. Packages */
1008 /* are searched prior to the rest of the command line being parsed in */
1010 if (argmatch (argv, argc, "-no-early-packages", "--no-early-packages",
1011 6, NULL, &skip_args))
1013 inhibit_early_packages = 1;
1017 if (argmatch (argv, argc, "-no-site-modules", "--no-site-modules",
1018 9, NULL, &skip_args))
1020 inhibit_site_modules = 1;
1024 inhibit_site_modules = 1;
1026 if (argmatch (argv, argc, "-vanilla", "--vanilla",
1027 7, NULL, &skip_args))
1029 inhibit_early_packages = 1;
1033 if (argmatch (argv, argc, "-no-autoloads", "--no-autoloads",
1034 7, NULL, &skip_args))
1036 /* Inhibit everything */
1037 inhibit_autoloads = 1;
1041 if (argmatch (argv, argc, "-debug-paths", "--debug-paths",
1042 6, NULL, &skip_args))
1049 /* Partially handle the -version and -help switches: they imply -batch,
1050 but are not removed from the list. */
1051 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args))
1052 noninteractive = 1, skip_args--;
1054 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args) ||
1055 argmatch (argv, argc, "-V", 0, 2, NULL, &skip_args))
1056 noninteractive = 1, skip_args--;
1058 /* Now, figure out which type of console is our first console. */
1063 display_use = "stream";
1065 display_use = "tty";
1068 if (inhibit_window_system)
1069 fatal ("Sorry, this XEmacs was not compiled with TTY support");
1072 #ifdef HAVE_WINDOW_SYSTEM
1073 /* Stupid kludge to catch command-line display spec. We can't
1074 handle this argument entirely in window-system-dependent code
1075 because we don't even know which window-system-dependent code
1076 to run until we've recognized this argument. */
1077 if (!inhibit_window_system && !noninteractive)
1079 #ifdef HAVE_X_WINDOWS
1081 int count_before = skip_args;
1083 if (argmatch (argv, argc, "-d", "--display", 3, &dpy, &skip_args) ||
1084 argmatch (argv, argc, "-display", 0, 3, &dpy, &skip_args))
1089 /* If we have the form --display=NAME,
1090 convert it into -d name.
1091 This requires inserting a new element into argv. */
1092 if (dpy != 0 && skip_args - count_before == 1)
1094 char **new = (char **) xmalloc (sizeof (char *) * (argc + 2));
1097 for (j = 0; j < count_before + 1; j++)
1099 new[count_before + 1] = "-d";
1100 new[count_before + 2] = dpy;
1101 for (j = count_before + 2; j <argc; j++)
1102 new[j + 1] = argv[j];
1106 /* Change --display to -d, when its arg is separate. */
1107 else if (dpy != 0 && skip_args > count_before
1108 && argv[count_before + 1][1] == '-')
1109 argv[count_before + 1] = "-d";
1111 /* Don't actually discard this arg. */
1112 skip_args = count_before;
1114 /* If there is a non-empty environment var DISPLAY, set
1115 `display_use', but not `display_arg', which is only to be set
1116 if the display was specified on the command line. */
1117 if ((dpy = getenv ("DISPLAY")) && dpy[0])
1120 #endif /* HAVE_X_WINDOWS */
1123 char *dpy = getenv ("DISPLAY");
1125 display_use = "gtk";
1128 #ifdef HAVE_MS_WINDOWS
1129 if (strcmp(display_use, "x") != 0)
1130 display_use = "mswindows";
1131 #endif /* HAVE_MS_WINDOWS */
1133 #endif /* HAVE_WINDOW_SYSTEM */
1135 noninteractive1 = noninteractive;
1137 /****** Now initialize everything *******/
1139 /* First, do really basic environment initialization -- catching signals
1140 and the like. These functions have no dependence on any part of
1141 the Lisp engine and need to be done both at dump time and at run time. */
1143 init_signals_very_early ();
1144 init_data_very_early (); /* Catch math errors. */
1145 #ifdef LISP_FLOAT_TYPE
1146 init_floatfns_very_early (); /* Catch floating-point math errors. */
1148 init_process_times_very_early (); /* Initialize our process timers.
1149 As early as possible, of course,
1150 so we can be fairly accurate. */
1151 init_intl_very_early (); /* set up the locale and domain for gettext and
1153 #ifdef HAVE_MS_WINDOWS
1154 init_mswindows_very_early (); /* Some things - like dde need to be
1155 initialized early so that the
1156 client doesn't give up waiting. */
1159 /* Now initialize the Lisp engine and the like. Done only during
1160 dumping. No dependence on anything that may be in the user's
1161 environment when the dumped XEmacs is run.
1163 We try to do things in an order that minimizes the non-obvious
1164 dependencies between functions. */
1166 /* purify_flag 1 is correct even if CANNOT_DUMP.
1167 * loadup.el will set to nil at end. */
1173 else if (nodumpfile) {
1178 /* Keep command options from getting stomped.
1180 Some LISP-visible options are changed by XEmacs _after_ the data is
1181 dumped in building a --pdump XEmacs, but _before_ it is restored in
1182 normal operation. Thus the restored values overwrite the values
1183 XEmacs is getting at run-time. Such variables must be saved here,
1184 and restored after loading the dumped data.
1186 Boy, this is ugly, but how else to do it?
1189 /* noninteractive1 is saved in noninteractive, which isn't LISP-visible */
1190 int inhibit_early_packages_save = inhibit_early_packages;
1191 int inhibit_autoloads_save = inhibit_autoloads;
1192 int debug_paths_save = debug_paths;
1193 /* #### Give inhibit-site-lisp a command switch? If so, uncomment: */
1194 /* int inhibit_site_lisp_save = inhibit_site_lisp; */
1195 int inhibit_site_modules_save = inhibit_site_modules;
1197 initialized = pdump_load (argv[0]);
1199 /* Now unstomp everything */
1200 noninteractive1 = noninteractive;
1201 inhibit_early_packages = inhibit_early_packages_save;
1202 inhibit_autoloads = inhibit_autoloads_save;
1203 debug_paths = debug_paths_save;
1204 /* #### Give inhibit-site-lisp a command switch? If so, uncomment: */
1205 /* inhibit_site_lisp = inhibit_site_lisp_save; */
1206 inhibit_site_modules = inhibit_site_modules_save;
1209 run_temacs_argc = -1;
1220 /* Initialize things so that new Lisp objects
1221 can be created and objects can be staticpro'd.
1222 Must be basically the very first thing done
1223 because pretty much all of the initialization
1224 routines below create new objects. */
1225 init_alloc_once_early ();
1227 /* Initialize Qnil, Qt, Qunbound, and the
1228 obarray. After this, symbols can be
1229 interned. This depends on init_alloc_once_early(). */
1230 init_symbols_once_early ();
1232 /* Declare the basic symbols pertaining to errors,
1233 So that DEFERROR*() can be called. */
1234 init_errors_once_early ();
1236 /* Make sure that opaque pointers can be created. */
1237 init_opaque_once_early ();
1239 /* Now declare all the symbols and define all the Lisp primitives.
1241 The *only* thing that the syms_of_*() functions are allowed to do
1242 is call one of the following:
1244 INIT_LRECORD_IMPLEMENTATION()
1245 defsymbol(), DEFSYMBOL(), or DEFSYMBOL_MULTIWORD_PREDICATE()
1246 defsubr() (i.e. DEFSUBR)
1247 deferror(), DEFERROR(), or DEFERROR_STANDARD()
1248 defkeyword() or DEFKEYWORD()
1250 Order does not matter in these functions.
1256 syms_of_bytecode ();
1258 syms_of_callproc ();
1259 syms_of_casefiddle ();
1269 #endif /* DEBUG_XEMACS */
1280 #ifdef HAVE_X_WINDOWS
1281 syms_of_event_Xt ();
1284 syms_of_event_gtk ();
1286 #ifdef HAVE_DRAGNDROP
1287 syms_of_dragdrop ();
1289 syms_of_event_stream ();
1294 #ifdef CLASH_DETECTION
1295 syms_of_filelock ();
1296 #endif /* CLASH_DETECTION */
1297 syms_of_floatfns ();
1299 syms_of_font_lock ();
1303 syms_of_glyphs_eimage ();
1304 syms_of_glyphs_widget ();
1314 #ifdef HAVE_DATABASE
1315 syms_of_database ();
1317 #ifdef HAVE_MENUBARS
1326 #if !defined (NO_SUBPROCESSES)
1328 #ifdef HAVE_WIN32_PROCESSES
1329 syms_of_process_nt ();
1333 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
1335 #endif /* HAVE_MMAP && REL_ALLOC */
1336 syms_of_rangetab ();
1337 syms_of_redisplay ();
1342 syms_of_specifier ();
1345 #ifdef HAVE_SCROLLBARS
1346 syms_of_scrollbar ();
1348 #ifdef HAVE_TOOLBARS
1356 syms_of_console_tty ();
1357 syms_of_device_tty ();
1358 syms_of_objects_tty ();
1362 syms_of_device_gtk ();
1363 syms_of_frame_gtk ();
1364 syms_of_glyphs_gtk ();
1365 syms_of_objects_gtk ();
1367 syms_of_select_gtk ();
1369 syms_of_dialog_gtk ();
1371 #ifdef HAVE_MENUBARS
1372 syms_of_menubar_gtk ();
1374 syms_of_select_gtk ();
1376 #if defined (HAVE_MENUBARS) || defined(HAVE_SCROLLBARS) || defined(HAVE_DIALOGS) || defined(HAVE_TOOLBARS)
1379 #endif /* HAVE_GTK */
1381 #ifdef HAVE_X_WINDOWS
1382 #ifdef HAVE_BALLOON_HELP
1383 syms_of_balloon_x ();
1385 syms_of_device_x ();
1387 syms_of_dialog_x ();
1390 syms_of_glyphs_x ();
1391 syms_of_objects_x ();
1392 #ifdef HAVE_MENUBARS
1393 syms_of_menubar_x ();
1395 syms_of_select_x ();
1396 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1401 syms_of_input_method_xlib ();
1403 #endif /* HAVE_XIM */
1404 #endif /* HAVE_X_WINDOWS */
1406 #ifdef HAVE_MS_WINDOWS
1407 syms_of_console_mswindows ();
1408 syms_of_device_mswindows ();
1409 syms_of_dialog_mswindows ();
1410 syms_of_frame_mswindows ();
1411 syms_of_objects_mswindows ();
1412 syms_of_select_mswindows ();
1413 syms_of_glyphs_mswindows ();
1414 syms_of_gui_mswindows ();
1415 #ifdef HAVE_MENUBARS
1416 syms_of_menubar_mswindows ();
1418 #ifdef HAVE_SCROLLBARS
1419 syms_of_scrollbar_mswindows ();
1421 #endif /* HAVE_MS_WINDOWS */
1422 #ifdef HAVE_MSW_C_DIRED
1423 syms_of_dired_mswindows ();
1428 #if defined (WIN32_NATIVE) || defined (CYGWIN)
1434 syms_of_mule_ccl ();
1435 syms_of_mule_charset ();
1438 syms_of_file_coding ();
1442 syms_of_mule_wnn ();
1445 syms_of_mule_canna ();
1446 #endif /* HAVE_CANNA */
1458 #if defined (GNU_MALLOC) && \
1459 defined (ERROR_CHECK_MALLOC) && \
1460 !defined (HAVE_LIBMCHECK)
1462 /* Prior to XEmacs 21, this was `#if 0'ed out. -slb */
1463 #if defined (LOSING_GCC_DESTRUCTOR_FREE_BUG)
1464 syms_of_free_hook ();
1468 syms_of_tooltalk ();
1480 syms_of_gpmevent ();
1483 #ifdef HAVE_POSTGRESQL
1484 syms_of_postgresql ();
1487 /* Now create the subtypes for the types that have them.
1488 We do this before the vars_*() because more symbols
1489 may get initialized here. */
1491 /* Now initialize the console types and associated symbols.
1492 Other than the first function below, the functions may
1493 make exactly the following function/macro calls:
1495 INITIALIZE_CONSOLE_TYPE()
1496 CONSOLE_HAS_METHOD()
1498 For any given console type, the former macro must be called
1499 before the any calls to the latter macro. */
1501 console_type_create ();
1503 console_type_create_stream ();
1506 console_type_create_tty ();
1507 console_type_create_device_tty ();
1508 console_type_create_frame_tty ();
1509 console_type_create_objects_tty ();
1510 console_type_create_redisplay_tty ();
1514 console_type_create_gtk ();
1515 console_type_create_select_gtk ();
1516 console_type_create_device_gtk ();
1517 console_type_create_frame_gtk ();
1518 console_type_create_objects_gtk ();
1519 console_type_create_glyphs_gtk ();
1520 console_type_create_redisplay_gtk ();
1521 #ifdef HAVE_MENUBARS
1522 console_type_create_menubar_gtk ();
1524 #ifdef HAVE_SCROLLBARS
1525 console_type_create_scrollbar_gtk ();
1527 #ifdef HAVE_TOOLBARS
1528 console_type_create_toolbar_gtk ();
1531 console_type_create_dialog_gtk ();
1533 #endif /* HAVE_GTK */
1535 #ifdef HAVE_X_WINDOWS
1536 console_type_create_x ();
1537 console_type_create_device_x ();
1538 console_type_create_frame_x ();
1539 console_type_create_glyphs_x ();
1540 console_type_create_select_x ();
1541 #ifdef HAVE_MENUBARS
1542 console_type_create_menubar_x ();
1544 console_type_create_objects_x ();
1545 console_type_create_redisplay_x ();
1546 #ifdef HAVE_SCROLLBARS
1547 console_type_create_scrollbar_x ();
1549 #ifdef HAVE_TOOLBARS
1550 console_type_create_toolbar_x ();
1553 console_type_create_dialog_x ();
1555 #endif /* HAVE_X_WINDOWS */
1557 #ifdef HAVE_MS_WINDOWS
1558 console_type_create_mswindows ();
1559 console_type_create_device_mswindows ();
1560 console_type_create_frame_mswindows ();
1561 console_type_create_objects_mswindows ();
1562 console_type_create_redisplay_mswindows ();
1563 console_type_create_glyphs_mswindows ();
1564 console_type_create_select_mswindows ();
1565 # ifdef HAVE_SCROLLBARS
1566 console_type_create_scrollbar_mswindows ();
1568 #ifdef HAVE_MENUBARS
1569 console_type_create_menubar_mswindows ();
1571 #ifdef HAVE_TOOLBARS
1572 console_type_create_toolbar_mswindows ();
1575 console_type_create_dialog_mswindows ();
1579 /* Now initialize the specifier types and associated symbols.
1580 Other than the first function below, the functions may
1581 make exactly the following function/macro calls:
1583 INITIALIZE_SPECIFIER_TYPE()
1584 SPECIFIER_HAS_METHOD()
1586 For any given specifier type, the former macro must be called
1587 before the any calls to the latter macro. */
1589 specifier_type_create ();
1591 specifier_type_create_image ();
1592 specifier_type_create_gutter ();
1593 specifier_type_create_objects ();
1594 #ifdef HAVE_TOOLBARS
1595 specifier_type_create_toolbar ();
1598 /* Now initialize the structure types and associated symbols.
1599 Other than the first function below, the functions may
1600 make exactly the following function/macro calls:
1602 define_structure_type()
1603 define_structure_type_keyword()
1607 structure_type_create ();
1609 structure_type_create_chartab ();
1610 structure_type_create_faces ();
1611 structure_type_create_rangetab ();
1612 structure_type_create_hash_table ();
1614 /* Now initialize the image instantiator formats and associated symbols.
1615 Other than the first function below, the functions may
1616 make exactly the following function/macro calls:
1618 INITIALIZE_IMAGE_INSTANTIATOR_FORMAT()
1619 IIFORMAT_HAS_METHOD()
1620 IIFORMAT_VALID_KEYWORD()
1622 For any given image instantiator format, the first macro must be
1623 called before the any calls to the other macros. */
1625 image_instantiator_format_create ();
1626 image_instantiator_format_create_glyphs_eimage ();
1627 image_instantiator_format_create_glyphs_widget ();
1629 image_instantiator_format_create_glyphs_tty ();
1631 #ifdef HAVE_X_WINDOWS
1632 image_instantiator_format_create_glyphs_x ();
1633 #endif /* HAVE_X_WINDOWS */
1634 #ifdef HAVE_MS_WINDOWS
1635 image_instantiator_format_create_glyphs_mswindows ();
1636 #endif /* HAVE_MSWINDOWS_WINDOWS */
1638 image_instantiator_format_create_glyphs_gtk ();
1641 /* Now initialize the lstream types and associated symbols.
1642 Other than the first function below, the functions may
1643 make exactly the following function/macro calls:
1645 LSTREAM_HAS_METHOD()
1649 lstream_type_create ();
1651 lstream_type_create_file_coding ();
1653 #if defined (HAVE_MS_WINDOWS) && !defined(HAVE_MSG_SELECT)
1654 lstream_type_create_mswindows_selectable ();
1657 /* Initialize processes implementation.
1658 The functions may make exactly the following function/macro calls:
1660 PROCESS_HAS_METHOD()
1662 #ifdef HAVE_UNIX_PROCESSES
1663 process_type_create_unix ();
1665 #ifdef HAVE_WIN32_PROCESSES
1666 process_type_create_nt ();
1669 /* Now initialize most variables.
1671 These functions may do exactly the following:
1684 defsymbol(), if it's absolutely necessary and you're sure that
1685 the symbol isn't referenced anywhere else in the initialization
1687 Fset() on a symbol that is unbound
1688 assigning a symbol or constant value to a variable
1689 using a global variable that has been initialized
1690 earlier on in the same function
1692 Any of the object-creating functions in alloc.c: e.g.
1705 perhaps a few others.
1707 NB: Initialization or assignment should not be done here to certain
1708 variables settable from the command line. See the comment above
1709 the call to pdump_load() in main_1(). This caveat should only
1710 apply to vars_of_emacs().
1713 /* Now allow Fprovide() statements to be made. */
1714 init_provide_once ();
1716 /* Do that before any specifier creation (esp. vars_of_glyphs()) */
1717 vars_of_specifier ();
1722 vars_of_bytecode ();
1724 vars_of_callproc ();
1734 vars_of_console_stream ();
1741 #ifdef HAVE_DRAGNDROP
1742 vars_of_dragdrop ();
1749 #ifdef HAVE_X_WINDOWS
1750 vars_of_event_Xt ();
1752 #if defined(HAVE_TTY) && (defined (DEBUG_TTY_EVENT_STREAM) || !defined (HAVE_X_WINDOWS))
1753 vars_of_event_tty ();
1755 #ifdef HAVE_MS_WINDOWS
1756 vars_of_event_mswindows ();
1758 vars_of_event_stream ();
1764 #ifdef CLASH_DETECTION
1765 vars_of_filelock ();
1767 vars_of_floatfns ();
1768 vars_of_font_lock ();
1771 vars_of_glyphs_eimage ();
1772 vars_of_glyphs_widget ();
1780 vars_of_input_method_motif ();
1781 #else /* XIM_XLIB */
1782 vars_of_input_method_xlib ();
1784 #endif /* HAVE_XIM */
1790 #ifdef HAVE_DATABASE
1791 vars_of_database ();
1793 #ifdef HAVE_MENUBARS
1807 #ifndef NO_SUBPROCESSES
1809 #ifdef HAVE_UNIX_PROCESSES
1810 vars_of_process_unix ();
1812 #ifdef HAVE_WIN32_PROCESSES
1813 vars_of_process_nt ();
1818 #if defined (HAVE_MMAP) && defined (REL_ALLOC) && !defined(DOUG_LEA_MALLOC)
1820 #endif /* HAVE_MMAP && REL_ALLOC */
1821 vars_of_redisplay ();
1822 #ifdef HAVE_SCROLLBARS
1823 vars_of_scrollbar ();
1830 #ifdef HAVE_TOOLBARS
1837 vars_of_console_tty ();
1838 vars_of_frame_tty ();
1839 vars_of_objects_tty ();
1843 vars_of_device_gtk ();
1845 vars_of_dialog_gtk ();
1847 vars_of_event_gtk ();
1848 vars_of_frame_gtk ();
1849 vars_of_glyphs_gtk ();
1851 #ifdef HAVE_MENUBARS
1852 vars_of_menubar_gtk ();
1854 vars_of_objects_gtk ();
1855 vars_of_select_gtk ();
1856 #ifdef HAVE_SCROLLBARS
1857 vars_of_scrollbar_gtk ();
1859 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1862 #endif /* HAVE_GTK */
1864 #ifdef HAVE_X_WINDOWS
1865 #ifdef HAVE_BALLOON_HELP
1866 vars_of_balloon_x ();
1868 vars_of_device_x ();
1870 vars_of_dialog_x ();
1873 vars_of_glyphs_x ();
1874 #ifdef HAVE_MENUBARS
1875 vars_of_menubar_x ();
1877 vars_of_objects_x ();
1878 vars_of_select_x ();
1879 #ifdef HAVE_SCROLLBARS
1880 vars_of_scrollbar_x ();
1882 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
1885 #endif /* HAVE_X_WINDOWS */
1888 #ifdef HAVE_MS_WINDOWS
1889 vars_of_device_mswindows ();
1890 vars_of_console_mswindows ();
1891 vars_of_frame_mswindows ();
1892 vars_of_objects_mswindows ();
1893 vars_of_select_mswindows ();
1894 vars_of_glyphs_mswindows ();
1895 #ifdef HAVE_SCROLLBARS
1896 vars_of_scrollbar_mswindows ();
1898 #ifdef HAVE_MENUBARS
1899 vars_of_menubar_mswindows ();
1901 #ifdef HAVE_MSW_C_DIRED
1902 vars_of_dired_mswindows ();
1905 vars_of_dialog_mswindows ();
1907 #endif /* HAVE_MS_WINDOWS */
1911 vars_of_mule_ccl ();
1912 vars_of_mule_charset ();
1915 vars_of_file_coding ();
1919 vars_of_mule_wnn ();
1922 vars_of_mule_canna ();
1923 #endif /* HAVE_CANNA */
1927 vars_of_tooltalk ();
1938 #ifdef HAVE_POSTGRESQL
1939 vars_of_postgresql();
1943 vars_of_gpmevent ();
1946 /* Now initialize any specifier variables. We do this later
1947 because it has some dependence on the vars initialized
1950 These functions should *only* initialize specifier variables,
1951 and may make use of the following functions/macros in addition
1952 to the ones listed above:
1956 set_specifier_fallback()
1957 set_specifier_caching()
1960 specifier_vars_of_glyphs ();
1961 specifier_vars_of_gutter ();
1962 #ifdef HAVE_MENUBARS
1963 specifier_vars_of_menubar ();
1965 specifier_vars_of_redisplay ();
1966 #ifdef HAVE_SCROLLBARS
1967 specifier_vars_of_scrollbar ();
1969 #ifdef HAVE_TOOLBARS
1970 specifier_vars_of_toolbar ();
1972 specifier_vars_of_window ();
1974 /* Now comes all the rest of the variables that couldn't
1975 be handled above. There may be dependencies on variables
1976 initialized above, and dependencies between one complex_vars_()
1977 function and another. */
1979 /* Calls Fmake_range_table(). */
1980 complex_vars_of_regex ();
1981 /* Calls Fmake_range_table(). */
1982 complex_vars_of_search ();
1984 /* Calls make_lisp_hash_table(). */
1985 complex_vars_of_extents ();
1987 /* Depends on hash tables and specifiers. */
1988 complex_vars_of_faces ();
1991 /* These two depend on hash tables and various variables declared
1992 earlier. The second may also depend on the first. */
1993 complex_vars_of_mule_charset ();
1996 complex_vars_of_file_coding ();
1999 /* This calls allocate_glyph(), which creates specifiers
2000 and also relies on a variable (Vthe_nothing_vector) initialized
2001 above. It also calls make_ext_string(), which under Mule
2002 could require that the charsets be initialized. */
2003 complex_vars_of_glyphs ();
2005 /* These rely on the glyphs just created in the previous function,
2006 and call Fadd_spec_to_specifier(), which relies on various
2007 variables initialized above. */
2009 complex_vars_of_glyphs_gtk ();
2011 #ifdef HAVE_X_WINDOWS
2012 complex_vars_of_glyphs_x ();
2014 #ifdef HAVE_MS_WINDOWS
2015 complex_vars_of_glyphs_mswindows ();
2018 /* This calls Fmake_glyph_internal(). */
2019 complex_vars_of_alloc ();
2021 /* This calls Fmake_glyph_internal(). */
2022 #ifdef HAVE_MENUBARS
2023 complex_vars_of_menubar ();
2026 /* This calls Fmake_glyph_internal(). */
2027 #ifdef HAVE_SCROLLBARS
2028 complex_vars_of_scrollbar ();
2031 /* This calls allocate_glyph(). */
2032 complex_vars_of_frame ();
2034 /* This calls Fcopy_category_table() under Mule, which calls who
2036 complex_vars_of_chartab ();
2038 /* This calls set_string_char(), which (under Mule) depends on the
2039 charsets being initialized. */
2040 complex_vars_of_casetab ();
2042 /* This calls Fcopy_syntax_table(), which relies on char tables. */
2043 complex_vars_of_syntax ();
2045 /* This initializes buffer-local variables, sets things up so
2046 that buffers can be created, and creates a couple of basic
2047 buffers. This depends on Vstandard_syntax_table and
2048 Vstandard_category_table (initialized in the previous
2049 functions), as well as a whole horde of variables that may
2050 have been initialized above. */
2051 complex_vars_of_buffer ();
2053 /* This initializes console-local variables. */
2054 complex_vars_of_console ();
2056 /* This creates a couple more buffers, and depends on the
2057 previous function. */
2058 complex_vars_of_minibuf ();
2060 /* These two might call Ffile_name_as_directory(), which
2061 might depend on all sorts of things; I'm not sure. */
2062 complex_vars_of_emacs ();
2064 /* This creates a couple of basic keymaps and depends on Lisp
2065 hash tables and Ffset() (both of which depend on some variables
2066 initialized in the vars_of_*() section) and possibly other
2068 complex_vars_of_keymap ();
2070 /* Calls make_lisp_hash_table() and creates a keymap */
2071 complex_vars_of_event_stream ();
2073 #ifdef ERROR_CHECK_GC
2075 extern int always_gc;
2076 if (always_gc) /* purification debugging hack */
2077 garbage_collect_1 ();
2081 } else if (!restart) { /* after successful pdump_load() */
2082 reinit_alloc_once_early ();
2083 reinit_symbols_once_early ();
2084 reinit_opaque_once_early ();
2086 reinit_console_type_create_stream ();
2088 reinit_console_type_create_tty ();
2090 #ifdef HAVE_X_WINDOWS
2091 reinit_console_type_create_x ();
2092 reinit_console_type_create_device_x ();
2094 #ifdef HAVE_MS_WINDOWS
2095 reinit_console_type_create_mswindows ();
2098 reinit_console_type_create_gtk ();
2101 reinit_specifier_type_create ();
2102 reinit_specifier_type_create_image ();
2103 reinit_specifier_type_create_gutter ();
2104 reinit_specifier_type_create_objects ();
2105 #ifdef HAVE_TOOLBARS
2106 reinit_specifier_type_create_toolbar ();
2109 structure_type_create ();
2111 structure_type_create_chartab ();
2112 structure_type_create_faces ();
2113 structure_type_create_rangetab ();
2114 structure_type_create_hash_table ();
2116 lstream_type_create ();
2118 lstream_type_create_file_coding ();
2120 #if defined (HAVE_MS_WINDOWS) && !defined(HAVE_MSG_SELECT)
2121 lstream_type_create_mswindows_selectable ();
2123 #ifdef HAVE_UNIX_PROCESSES
2124 process_type_create_unix ();
2126 #ifdef HAVE_WIN32_PROCESSES
2127 process_type_create_nt ();
2130 reinit_vars_of_buffer ();
2131 reinit_vars_of_console ();
2133 reinit_vars_of_debug ();
2135 reinit_vars_of_device ();
2136 reinit_vars_of_eval ();
2137 #ifdef HAVE_X_WINDOWS
2138 reinit_vars_of_event_Xt ();
2141 reinit_vars_of_event_gtk ();
2143 #if defined(HAVE_TTY) && (defined (DEBUG_TTY_EVENT_STREAM) || !defined (HAVE_X_WINDOWS))
2144 reinit_vars_of_event_tty ();
2146 #ifdef HAVE_MS_WINDOWS
2147 reinit_vars_of_event_mswindows ();
2149 reinit_vars_of_event_stream ();
2150 reinit_vars_of_events ();
2151 reinit_vars_of_extents ();
2152 reinit_vars_of_fileio ();
2153 reinit_vars_of_font_lock ();
2154 reinit_vars_of_glyphs ();
2155 reinit_vars_of_glyphs_widget ();
2156 reinit_vars_of_insdel ();
2157 reinit_vars_of_lread ();
2158 reinit_vars_of_lstream ();
2159 reinit_vars_of_minibuf ();
2161 reinit_vars_of_module ();
2163 reinit_vars_of_objects ();
2164 reinit_vars_of_print ();
2165 reinit_vars_of_search ();
2166 reinit_vars_of_undo ();
2167 reinit_vars_of_window ();
2169 #ifdef HAVE_MS_WINDOWS
2170 reinit_vars_of_frame_mswindows ();
2174 reinit_vars_of_menubar_gtk ();
2177 #ifdef HAVE_X_WINDOWS
2178 reinit_vars_of_device_x ();
2179 #ifdef HAVE_SCROLLBARS
2180 reinit_vars_of_scrollbar_x ();
2182 #ifdef HAVE_MENUBARS
2183 reinit_vars_of_menubar_x ();
2185 reinit_vars_of_select_x ();
2186 #if defined (HAVE_MENUBARS) || defined (HAVE_SCROLLBARS) || defined (HAVE_DIALOGS) || defined (HAVE_TOOLBARS)
2187 reinit_vars_of_gui_x ();
2189 #endif /* HAVE_X_WINDOWS */
2191 #if defined(MULE) && defined(HAVE_WNN)
2192 reinit_vars_of_mule_wnn ();
2195 reinit_complex_vars_of_buffer ();
2196 reinit_complex_vars_of_console ();
2197 reinit_complex_vars_of_minibuf ();
2202 /* CONGRATULATIONS!!! We have successfully initialized the Lisp
2207 /* Stuff that should not be done at dump time, including stuff that
2208 needs to be reset at run time. Order below should not matter.
2210 Many initializations taken from the environment should go here. */
2214 reinit_mule_category ();
2216 #ifdef HAVE_POSTGRESQL
2217 init_postgresql_from_environment();
2221 /* Now do further initialization/setup of stuff that is not needed by the
2222 syms_of_() routines. This involves stuff that only is enabled in
2223 an interactive run (redisplay, user input, etc.) and stuff that is
2224 not needed until we start loading Lisp code (the reader). A lot
2225 of this stuff involves querying the current environment and needs
2226 to be done both at dump time and at run time. */
2228 init_initial_directory(); /* get the directory to use for the
2229 "*scratch*" buffer, etc. */
2233 * For Win32, call init_environment() now, so that environment/registry
2234 * variables will be properly entered into Vprocess_environment.
2239 init_callproc (); /* Set up the process environment (so that egetenv
2240 works), the basic directory variables
2241 (exec-directory and so on), and stuff
2242 related to subprocesses. This should be
2243 first because many of the functions below
2244 call egetenv() to get environment variables. */
2245 init_lread (); /* Set up the Lisp reader. */
2246 init_cmdargs (argc, (Extbyte **) argv,
2247 skip_args); /* Create list Vcommand_line_args */
2248 init_buffer (); /* Set default directory of *scratch* buffer */
2254 init_redisplay (); /* Determine terminal type.
2255 init_sys_modes uses results */
2257 init_event_stream (); /* Set up so we can get user input. */
2258 init_macros (); /* set up so we can run macros. */
2259 init_editfns (); /* Determine the name of the user we're running as */
2260 init_xemacs_process (); /* set up for calling subprocesses */
2262 init_sunpro (); /* Set up Sunpro usage tracking */
2264 #if defined (WIN32_NATIVE) || defined (CYGWIN)
2267 #if defined (HAVE_NATIVE_SOUND) && defined (hp9000s800)
2273 init_console_stream (restart); /* Create the first console */
2275 /* try to get the actual pathname of the exec file we are running */
2278 Vinvocation_name = Fcar (Vcommand_line_args);
2279 if (XSTRING_DATA(Vinvocation_name)[0] == '-')
2281 /* XEmacs as a login shell, oh goody! */
2282 Vinvocation_name = build_string(getenv("SHELL"));
2284 Vinvocation_directory = Vinvocation_name;
2286 if (!NILP (Ffile_name_directory (Vinvocation_name)))
2288 /* invocation-name includes a directory component -- presumably it
2289 is relative to cwd, not $PATH */
2290 Vinvocation_directory = Fexpand_file_name (Vinvocation_name,
2292 Vinvocation_path = Qnil;
2296 Vinvocation_path = decode_env_path ("PATH", NULL);
2297 locate_file (Vinvocation_path, Vinvocation_name,
2298 Vlisp_EXEC_SUFFIXES,
2299 &Vinvocation_directory, X_OK);
2302 if (NILP (Vinvocation_directory))
2303 Vinvocation_directory = Vinvocation_name;
2305 Vinvocation_name = Ffile_name_nondirectory (Vinvocation_directory);
2306 Vinvocation_directory = Ffile_name_directory (Vinvocation_directory);
2309 #if defined(HAVE_SHLIB) && !defined(WIN32_NATIVE)
2310 /* This is Unix only. MS Windows NT has a library call that does
2311 The Right Thing on that system. Rumor has it, this must be
2312 called for GNU dld in temacs and xemacs. */
2314 char *buf = (char *)alloca (XSTRING_LENGTH (Vinvocation_directory)
2315 + XSTRING_LENGTH (Vinvocation_name)
2317 sprintf (buf, "%s/%s", XSTRING_DATA (Vinvocation_directory),
2318 XSTRING_DATA (Vinvocation_name));
2320 /* All we can do is cry if an error happens, so ignore it. */
2321 (void) dll_init (buf);
2325 #if defined (LOCALTIME_CACHE) && defined (HAVE_TZSET)
2326 /* sun's localtime() has a bug. it caches the value of the time
2327 zone rather than looking it up every time. Since localtime() is
2328 called to bolt the undumping time into the undumped emacs, this
2329 results in localtime() ignoring the TZ environment variable.
2330 This flushes the new TZ value into localtime(). */
2332 #endif /* LOCALTIME_CACHE and TZSET */
2337 /* Handle -l loadup-and-dump, args passed by Makefile. */
2338 if (argc > 2 + skip_args && !strcmp (argv[1 + skip_args], "-l"))
2339 load_me = build_string (argv[2 + skip_args]);
2340 #if 0 /* CANNOT_DUMP - this can never be right in XEmacs --andyp */
2341 /* Unless next switch is -nl, load "loadup.el" first thing. */
2342 if (!(argc > 1 + skip_args && !strcmp (argv[1 + skip_args], "-nl")))
2343 load_me = build_string ("loadup.el");
2344 #endif /* CANNOT_DUMP */
2349 quantify_start_recording_data ();
2350 #endif /* QUANTIFY */
2354 /* This never returns. */
2355 initial_command_loop (load_me);
2360 /* Sort the args so we can find the most important ones
2361 at the beginning of argv. */
2363 /* First, here's a table of all the standard options. */
2365 struct standard_args
2368 const char *longname;
2373 static const struct standard_args standard_args[] =
2375 /* Handled by main_1 above: */
2376 { "-sd", "--show-dump-id", 105, 0 },
2377 { "-t", "--terminal", 100, 1 },
2378 { "-nd", "--no-dump-file", 95, 0 },
2379 { "-nw", "--no-windows", 90, 0 },
2380 { "-batch", "--batch", 85, 0 },
2381 { "-debug-paths", "--debug-paths", 82, 0 },
2382 { "-help", "--help", 80, 0 },
2383 { "-version", "--version", 75, 0 },
2385 { "-d", "--display", 80, 1 },
2386 { "-display", 0, 80, 1 },
2387 { "-NXHost", 0, 79, 0 },
2388 { "-MachLaunch", 0, 79, 0},
2390 /* Handled by command-line-early in startup.el: */
2391 { "-q", "--no-init-file", 50, 0 },
2392 { "-unmapped", 0, 50, 0 },
2393 { "-no-init-file", 0, 50, 0 },
2394 { "-vanilla", "--vanilla", 50, 0 },
2395 { "-no-autoloads", "--no-autoloads", 50, 0 },
2396 { "-no-site-file", "--no-site-file", 40, 0 },
2397 { "-no-early-packages", "--no-early-packages", 35, 0 },
2398 { "-u", "--user", 30, 1 },
2399 { "-user", 0, 30, 1 },
2400 { "-debug-init", "--debug-init", 20, 0 },
2401 { "-debug-paths", "--debug-paths", 20, 0 },
2404 { "-i", "--icon-type", 15, 0 },
2405 { "-itype", 0, 15, 0 },
2406 { "-iconic", "--iconic", 15, 0 },
2407 { "-bg", "--background-color", 10, 1 },
2408 { "-background", 0, 10, 1 },
2409 { "-fg", "--foreground-color", 10, 1 },
2410 { "-foreground", 0, 10, 1 },
2411 { "-bd", "--border-color", 10, 1 },
2412 { "-bw", "--border-width", 10, 1 },
2413 { "-ib", "--internal-border", 10, 1 },
2414 { "-ms", "--mouse-color", 10, 1 },
2415 { "-cr", "--cursor-color", 10, 1 },
2416 { "-fn", "--font", 10, 1 },
2417 { "-font", 0, 10, 1 },
2418 { "-g", "--geometry", 10, 1 },
2419 { "-geometry", 0, 10, 1 },
2420 { "-T", "--title", 10, 1 },
2421 { "-title", 0, 10, 1 },
2422 { "-name", "--name", 10, 1 },
2423 { "-xrm", "--xrm", 10, 1 },
2424 { "-r", "--reverse-video", 5, 0 },
2426 { "-reverse", 0, 5, 0 },
2427 { "-hb", "--horizontal-scroll-bars", 5, 0 },
2428 { "-vb", "--vertical-scroll-bars", 5, 0 },
2430 /* These have the same priority as ordinary file name args,
2431 so they are not reordered with respect to those. */
2432 { "-L", "--directory", 0, 1 },
2433 { "-directory", 0, 0, 1 },
2434 { "-l", "--load", 0, 1 },
2435 { "-load", 0, 0, 1 },
2436 { "-f", "--funcall", 0, 1 },
2437 { "-funcall", 0, 0, 1 },
2438 { "-eval", "--eval", 0, 1 },
2439 { "-insert", "--insert", 0, 1 },
2440 /* This should be processed after ordinary file name args and the like. */
2441 { "-kill", "--kill", -10, 0 },
2444 /* Reorder the elements of ARGV (assumed to have ARGC elements)
2445 so that the highest priority ones come first.
2446 Do not change the order of elements of equal priority.
2447 If an option takes an argument, keep it and its argument together. */
2450 sort_args (int argc, char **argv)
2452 char **new_argv = xnew_array (char *, argc);
2453 /* For each element of argv,
2454 the corresponding element of options is:
2455 0 for an option that takes no arguments,
2456 1 for an option that takes one argument, etc.
2457 -1 for an ordinary non-option argument. */
2458 int *options = xnew_array (int, argc);
2459 int *priority = xnew_array (int, argc);
2463 int end_of_options_p = 0;
2465 /* Categorize all the options,
2466 and figure out which argv elts are option arguments. */
2467 for (from = 1; from < argc; from++)
2471 /* Pseudo options "--" and "run-temacs" indicate end of options */
2472 if (!strcmp (argv[from], "--") ||
2473 !strcmp (argv[from], "run-temacs"))
2474 end_of_options_p = 1;
2475 if (!end_of_options_p && argv[from][0] == '-')
2480 /* Look for a match with a known old-fashioned option. */
2481 for (i = 0; i < countof (standard_args); i++)
2482 if (!strcmp (argv[from], standard_args[i].name))
2484 options[from] = standard_args[i].nargs;
2485 priority[from] = standard_args[i].priority;
2486 if (from + standard_args[i].nargs >= argc)
2487 fatal ("Option `%s' requires an argument\n", argv[from]);
2488 from += standard_args[i].nargs;
2492 /* Look for a match with a known long option.
2493 MATCH is -1 if no match so far, -2 if two or more matches so far,
2494 >= 0 (the table index of the match) if just one match so far. */
2495 if (argv[from][1] == '-')
2498 thislen = strlen (argv[from]);
2499 equals = strchr (argv[from], '=');
2501 thislen = equals - argv[from];
2503 for (i = 0; i < countof (standard_args); i++)
2504 if (standard_args[i].longname
2505 && !strncmp (argv[from], standard_args[i].longname,
2514 /* If we found exactly one match, use that. */
2517 options[from] = standard_args[match].nargs;
2518 priority[from] = standard_args[match].priority;
2519 /* If --OPTION=VALUE syntax is used,
2520 this option uses just one argv element. */
2523 if (from + options[from] >= argc)
2524 fatal ("Option `%s' requires an argument\n", argv[from]);
2525 from += options[from];
2532 /* Copy the arguments, in order of decreasing priority, to NEW_ARGV. */
2533 new_argv[0] = argv[0];
2537 int best_priority = -9999;
2539 /* Find the highest priority remaining option.
2540 If several have equal priority, take the first of them. */
2541 for (from = 1; from < argc; from++)
2543 if (argv[from] != 0 && priority[from] > best_priority)
2545 best_priority = priority[from];
2548 /* Skip option arguments--they are tied to the options. */
2549 if (options[from] > 0)
2550 from += options[from];
2556 /* Copy the highest priority remaining option, with its args, to NEW_ARGV. */
2557 new_argv[to++] = argv[best];
2558 for (i = 0; i < options[best]; i++)
2559 new_argv[to++] = argv[best + i + 1];
2561 /* Clear out this option in ARGV. */
2563 for (i = 0; i < options[best]; i++)
2564 argv[best + i + 1] = 0;
2567 memcpy (argv, new_argv, sizeof (char *) * argc);
2573 DEFUN ("running-temacs-p", Frunning_temacs_p, 0, 0, 0, /*
2574 True if running temacs. This means we are in the dumping stage.
2575 This is false during normal execution of the `xemacs' program, and
2576 becomes false once `run-emacs-from-temacs' is run.
2580 return run_temacs_argc >= 0 ? Qt : Qnil;
2583 DEFUN ("run-emacs-from-temacs", Frun_emacs_from_temacs, 0, MANY, 0, /*
2584 Do not call this. It will reinitialize your XEmacs. You'll be sorry.
2586 /* If this function is called from startup.el, it will be possible to run
2587 temacs as an editor using 'temacs -batch -l loadup.el run-temacs', instead
2588 of having to dump an emacs and then run that (when debugging emacs itself,
2589 this can be much faster)). [Actually, the speed difference isn't that
2590 much as long as your filesystem is local, and you don't end up with
2591 a dumped version in case you want to rerun it. This function is most
2592 useful when used as part of the `make all-elc' command. --ben]
2593 This will "restart" emacs with the specified command-line arguments.
2595 Martin thinks this function is most useful when using debugging
2596 tools like Purify or tcov that get confused by XEmacs' dumping. */
2597 (int nargs, Lisp_Object *args))
2600 const Extbyte *wampum;
2603 Lisp_Object orig_invoc_name = Fcar (Vcommand_line_args);
2604 const Extbyte **wampum_all = alloca_array (const Extbyte *, nargs);
2605 int *wampum_all_len = alloca_array (int, nargs);
2607 assert (!gc_in_progress);
2609 if (run_temacs_argc < 0)
2610 error ("I've lost my temacs-hood.");
2612 /* Need to convert the orig_invoc_name and all of the arguments
2613 to external format. */
2615 TO_EXTERNAL_FORMAT (LISP_STRING, orig_invoc_name,
2616 ALLOCA, (wampum, namesize),
2620 for (ac = 0, total_len = namesize; ac < nargs; ac++)
2622 CHECK_STRING (args[ac]);
2623 TO_EXTERNAL_FORMAT (LISP_STRING, args[ac],
2624 ALLOCA, (wampum_all[ac], wampum_all_len[ac]),
2626 wampum_all_len[ac]++;
2627 total_len += wampum_all_len[ac];
2629 DO_REALLOC (run_temacs_args, run_temacs_args_size, total_len, char);
2630 DO_REALLOC (run_temacs_argv, run_temacs_argv_size, nargs+2, char *);
2632 memcpy (run_temacs_args, wampum, namesize);
2633 run_temacs_argv [0] = run_temacs_args;
2634 for (ac = 0; ac < nargs; ac++)
2636 memcpy (run_temacs_args + namesize,
2637 wampum_all[ac], wampum_all_len[ac]);
2638 run_temacs_argv [ac + 1] = run_temacs_args + namesize;
2639 namesize += wampum_all_len[ac];
2641 run_temacs_argv [nargs + 1] = 0;
2642 catchlist = NULL; /* Important! Otherwise free_cons() calls in
2643 condition_case_unwind() may lead to GC death. */
2644 unbind_to (0, Qnil); /* this closes loadup.el */
2646 run_temacs_argc = nargs + 1;
2647 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
2648 report_sheap_usage (0);
2650 LONGJMP (run_temacs_catch, 1);
2651 return Qnil; /* not reached; warning suppression */
2656 main (int argc, char **argv, char **envp)
2660 /* Under VC++, access violations and the like are not sent through
2661 the standard signal() mechanism. Rather, they need to be handled
2662 using the Microsoft "structured exception handling" mechanism,
2663 which vaguely resembles the C++ mechanisms. */
2668 int volatile vol_argc = argc;
2669 char ** volatile vol_argv = argv;
2670 char ** volatile vol_envp = envp;
2671 /* This is hairy. We need to compute where the XEmacs binary was invoked
2672 from because temacs initialization requires it to find the lisp
2673 directories. The code that recomputes the path is guarded by the
2674 restarted flag. There are three possible paths I've found so far
2677 temacs -- When running temacs for basic build stuff, the first main_1
2678 will be the only one invoked. It must compute the path else there
2679 will be a very ugly bomb in startup.el (can't find obvious location
2680 for doc-directory data-directory, etc.).
2682 temacs w/ run-temacs on the command line -- This is run to bytecompile
2683 all the out of date dumped lisp. It will execute both of the main_1
2684 calls and the second one must not touch the first computation because
2685 argc/argv are hosed the second time through.
2687 xemacs -- Only the second main_1 is executed. The invocation path must
2688 computed but this only matters when running in place or when running
2691 As a bonus for straightening this out, XEmacs can now be run in place
2692 as a login shell. This never used to work.
2694 As another bonus, we can now guarantee that
2695 (concat invocation-directory invocation-name) contains the filename
2696 of the XEmacs binary we are running. This can now be used in a
2697 definite test for out of date dumped files. -slb */
2700 quantify_stop_recording_data ();
2701 quantify_clear_data ();
2702 #endif /* QUANTIFY */
2704 suppress_early_error_handler_backtrace = 0;
2705 lim_data = 0; /* force reinitialization of this variable */
2707 /* Lisp_Object must fit in a word; check VALBITS and GCTYPEBITS */
2708 assert (sizeof (Lisp_Object) == sizeof (void *));
2710 #ifdef LINUX_SBRK_BUG
2716 #ifdef DOUG_LEA_MALLOC
2717 mallopt (M_MMAP_MAX, 0);
2719 run_temacs_argc = 0;
2720 if (! SETJMP (run_temacs_catch))
2722 main_1 (vol_argc, vol_argv, vol_envp, 0);
2724 /* run-emacs-from-temacs called */
2726 vol_argc = run_temacs_argc;
2727 vol_argv = run_temacs_argv;
2729 /* This makes absolutely no sense to anyone involved. There are
2730 several people using this stuff. We've compared versions on
2731 everything we can think of. We can find no difference.
2732 However, on both my systems environ is a plain old global
2733 variable initialized to zero. _environ is the one that
2734 contains pointers to the actual environment.
2736 Since we can't figure out the difference (and we're hours
2737 away from a release), this takes a very cowardly approach and
2738 is bracketed with both a system specific preprocessor test
2739 and a runtime "do you have this problem" test
2741 06/20/96 robertl@dgii.com */
2743 extern char **_environ;
2744 if ((unsigned) environ == 0)
2747 #endif /* _SCO_DS */
2750 #if defined (RUN_TIME_REMAP) && ! defined (PDUMP)
2752 /* obviously no-one uses this because where it was before initialized was
2754 run_time_remap (argv[0]);
2757 #ifdef DOUG_LEA_MALLOC
2758 if (initialized && (malloc_state_ptr != NULL))
2760 int rc = malloc_set_state (malloc_state_ptr);
2763 stderr_out ("malloc_set_state failed, rc = %d\n", rc);
2767 free (malloc_state_ptr);
2769 /* mmap works in glibc-2.1, glibc-2.0 (Non-Mule only) and Linux libc5 */
2770 #if (defined(__GLIBC__) && __GLIBC_MINOR__ >= 1) || \
2771 defined(_NO_MALLOC_WARNING_) || \
2772 (defined(__GLIBC__) && __GLIBC_MINOR__ < 1 && !defined(MULE)) || \
2773 defined(DEBUG_DOUG_LEA_MALLOC)
2774 mallopt (M_MMAP_MAX, 64);
2780 #endif /* DOUG_LEA_MALLOC */
2782 run_temacs_argc = -1;
2784 main_1 (vol_argc, vol_argv, vol_envp, restarted);
2788 /* VC++ documentation says that
2789 GetExceptionCode() cannot be called inside the filter itself. */
2790 __except (mswindows_handle_hardware_exceptions (GetExceptionCode ())) {}
2793 return 0; /* unreached */
2797 /* Dumping apparently isn't supported by versions of GCC >= 2.8. */
2798 /* The following needs conditionalization on whether either XEmacs or */
2799 /* various system shared libraries have been built and linked with */
2800 /* GCC >= 2.8. -slb */
2801 #if defined(GNU_MALLOC)
2803 voodoo_free_hook (void *mem)
2805 /* Disable all calls to free() when XEmacs is exiting and it doesn't */
2808 #ifdef __GNUC__ /* prototype of __free_hook varies with glibc version */
2809 (__typeof__ (__free_hook))
2813 #endif /* GNU_MALLOC */
2815 DEFUN ("kill-emacs", Fkill_emacs, 0, 1, "P", /*
2816 Exit the XEmacs job and kill it. Ask for confirmation, without argument.
2817 If ARG is an integer, return ARG as the exit program code.
2818 If ARG is a string, stuff it as keyboard input.
2820 The value of `kill-emacs-hook', if not void,
2821 is a list of functions (of no args),
2822 all of which are called before XEmacs is actually killed.
2826 /* This function can GC */
2827 struct gcpro gcpro1;
2834 if (!preparing_for_armageddon && !noninteractive)
2835 run_hook (Qkill_emacs_hook);
2837 ensure_no_quitting_from_now_on ();
2839 if (!preparing_for_armageddon)
2841 Lisp_Object concons, nextcons;
2843 /* Normally, go ahead and delete all the consoles now.
2844 Some unmentionably lame window systems (MS Wwwww...... eek,
2845 I can't even say it) don't properly clean up after themselves,
2846 and even for those that do, it might be cleaner this way.
2847 If we're going down, however, we don't do this (might
2848 be too dangerous), and if we get a crash somewhere within
2849 this loop, we'll still autosave and won't try this again. */
2851 LIST_LOOP_DELETING (concons, nextcons, Vconsole_list)
2853 /* There is very little point in deleting the stream console.
2854 It uses stdio, which should flush any buffered output and
2855 something can only go wrong. -slb */
2856 /* I changed my mind. There's a stupid hack in close to add
2857 a trailing newline. */
2858 /*if (!CONSOLE_STREAM_P (XCONSOLE (XCAR (concons))))*/
2859 delete_console_internal (XCONSOLE (XCAR (concons)), 1, 1, 0);
2865 #ifdef HAVE_MS_WINDOWS
2866 /* If we displayed a message on the console, then we must allow the
2867 user to see this message. This may be unnecessary, but can't hurt,
2868 and we can't necessarily check arg; e.g. xemacs --help kills with
2870 if (mswindows_message_outputted)
2871 Fmswindows_message_box (build_string ("Messages outputted. XEmacs is exiting."),
2875 shut_down_emacs (0, STRINGP (arg) ? arg : Qnil, 0);
2877 #if defined(GNU_MALLOC)
2879 #ifdef __GNUC__ /* prototype of __free_hook varies with glibc version */
2880 (__typeof__ (__free_hook))
2885 exit (INTP (arg) ? XINT (arg) : 0);
2887 return Qnil; /* I'm sick of the compiler warning */
2890 /* Perform an orderly shutdown of XEmacs. Autosave any modified
2891 buffers, kill any child processes, clean up the terminal modes (if
2892 we're in the foreground), and other stuff like that. Don't perform
2893 any redisplay; this may be called when XEmacs is shutting down in
2894 the background, or after its X connection has died.
2896 If SIG is a signal number, print a message for it.
2898 This is called by fatal signal handlers and Fkill_emacs. It used to
2899 be called by X protocol error handlers, but instead they now call
2902 shut_down_emacs (int sig, Lisp_Object stuff, int no_auto_save)
2904 /* This function can GC */
2905 /* Prevent running of hooks and other non-essential stuff
2907 preparing_for_armageddon = 1;
2909 ensure_no_quitting_from_now_on ();
2912 quantify_stop_recording_data ();
2913 #endif /* QUANTIFY */
2915 /* This is absolutely the most important thing to do, so make sure
2916 we do it now, before anything else. We might have crashed and
2917 be in a weird inconsistent state, and potentially anything could
2918 set off another protection fault and cause us to bail out
2920 /* Steve writes the following:
2922 [[I'm not removing the code entirely, yet. We have run up against
2923 a spate of problems in diagnosing crashes due to crashes within
2924 crashes. It has very definitely been determined that code called
2925 during auto-saving cannot work if XEmacs crashed inside of GC.
2926 We already auto-save on an itimer so there cannot be too much
2927 unsaved stuff around, and if we get better crash reports we might
2928 be able to get more problems fixed so I'm disabling this. -slb]]
2930 and DISABLES AUTO-SAVING ENTIRELY during crashes! Way way bad idea.
2932 Instead let's just be more intelligent about avoiding crashing
2933 when possible, esp. nested crashes.
2936 Fdo_auto_save (Qt, Qnil); /* do this before anything hazardous */
2939 reset_all_consoles ();
2940 if (sig && sig != SIGTERM)
2943 stderr_out ("\nFatal error.\n\n");
2945 stderr_out ("\nFatal error (%d).\n\n", sig);
2947 ("Your files have been auto-saved.\n"
2948 "Use `M-x recover-session' to recover them.\n"
2950 "If you have access to the PROBLEMS file that came with your\n"
2951 "version of XEmacs, please check to see if your crash is described\n"
2952 "there, as there may be a workaround available.\n"
2954 "Otherwise, please report this bug by selecting `Report-Bug'\n"
2955 "in the InfoDock menu.\n"
2957 "Otherwise, please report this bug by running the send-pr\n"
2958 "script included with XEmacs, or selecting `Send Bug Report'\n"
2959 "from the help menu.\n"
2960 "As a last resort send ordinary email to `crashes@xemacs.org'.\n"
2962 "*MAKE SURE* to include the information in the command\n"
2963 "M-x describe-installation.\n"
2966 "If at all possible, *please* try to obtain a C stack backtrace;\n"
2967 "it will help us immensely in determining what went wrong.\n"
2968 "To do this, locate the core file that was produced as a result\n"
2969 "of this crash (it's usually called `core' and is located in the\n"
2970 "directory in which you started the editor, or maybe in your home\n"
2971 "directory), and type\n"
2981 /* Now try to determine the actual path to the executable,
2982 to try to make the backtrace-determination process as foolproof
2984 if (STRINGP (Vinvocation_name))
2985 name = (char *) XSTRING_DATA (Vinvocation_name);
2988 if (STRINGP (Vinvocation_directory))
2989 dir = (char *) XSTRING_DATA (Vinvocation_directory);
2990 if (!dir || dir[0] != '/')
2991 stderr_out ("`which %s`", name);
2992 else if (dir[strlen (dir) - 1] != '/')
2993 stderr_out ("%s/%s", dir, name);
2995 stderr_out ("%s%s", dir, name);
2999 "then type `where' when the debugger prompt comes up.\n"
3000 "(If you don't have GDB on your system, you might have DBX,\n"
3001 "or XDB, or SDB. A similar procedure should work for all of\n"
3002 "these. Ask your system administrator if you need more help.)\n");
3003 #endif /* _MSC_VER */
3006 stuff_buffered_input (stuff);
3008 kill_buffer_processes (Qnil);
3010 #ifdef CLASH_DETECTION
3011 unlock_all_files ();
3015 tt_session_quit (tt_default_session ());
3017 /* The following crashes when built on X11R5 and run on X11R6 */
3020 #endif /* TOOLTALK */
3027 #if !defined(PDUMP) || !defined(SYSTEM_MALLOC)
3028 extern char my_edata[];
3031 extern void disable_free_hook (void);
3033 DEFUN ("dump-emacs", Fdump_emacs, 2, 2, 0, /*
3034 Dump current state of XEmacs into executable file FILENAME.
3035 Take symbols from SYMFILE (presumably the file you executed to run XEmacs).
3036 This is used in the file `loadup.el' when building XEmacs.
3038 Remember to set `command-line-processed' to nil before dumping
3039 if you want the dumped XEmacs to process its command line
3040 and announce itself normally when it is run.
3042 (filename, symfile))
3044 /* This function can GC */
3045 struct gcpro gcpro1, gcpro2;
3048 GCPRO2 (filename, symfile);
3050 #ifdef FREE_CHECKING
3051 Freally_free (Qnil);
3053 /* When we're dumping, we can't use the debugging free() */
3054 disable_free_hook ();
3057 CHECK_STRING (filename);
3058 filename = Fexpand_file_name (filename, Qnil);
3059 if (!NILP (symfile))
3061 CHECK_STRING (symfile);
3062 if (XSTRING_LENGTH (symfile) > 0)
3063 symfile = Fexpand_file_name (symfile, Qnil);
3068 opurify = purify_flag;
3071 #if defined (HEAP_IN_DATA) && !defined(PDUMP)
3072 report_sheap_usage (1);
3080 disksave_object_finalization ();
3081 release_breathing_space ();
3083 /* Tell malloc where start of impure now is */
3084 /* Also arrange for warnings when nearly out of space. */
3085 #ifndef SYSTEM_MALLOC
3086 memory_warnings (my_edata, malloc_warning);
3095 LISP_STRING_TO_EXTERNAL (filename, filename_ext, Qfile_name);
3097 if (STRINGP (symfile))
3098 LISP_STRING_TO_EXTERNAL (symfile, symfile_ext, Qfile_name);
3102 garbage_collect_1 ();
3108 #ifdef DOUG_LEA_MALLOC
3109 malloc_state_ptr = malloc_get_state ();
3111 /* here we break our rule that the filename conversion should
3112 be performed at the actual time that the system call is made.
3113 It's a whole lot easier to do the conversion here than to
3114 modify all the unexec routines to ensure that filename
3115 conversion is applied everywhere. Don't worry about memory
3116 leakage because this call only happens once. */
3117 unexec (filename_ext, symfile_ext, (uintptr_t) my_edata, 0, 0);
3118 #ifdef DOUG_LEA_MALLOC
3119 free (malloc_state_ptr);
3121 #endif /* not PDUMP */
3124 purify_flag = opurify;
3129 #endif /* not CANNOT_DUMP */
3132 /* Split STRING into a list of substrings. The substrings are the
3133 parts of original STRING separated by SEPCHAR. */
3135 split_string_by_emchar_1 (const Bufbyte *string, Bytecount size,
3138 Lisp_Object result = Qnil;
3139 const Bufbyte *end = string + size;
3143 const Bufbyte *p = string;
3146 if (charptr_emchar (p) == sepchar)
3150 result = Fcons (make_string (string, p - string), result);
3154 INC_CHARPTR (string); /* skip sepchar */
3159 return Fnreverse (result);
3162 /* The same as the above, except PATH is an external C string (it is
3163 converted using Qfile_name), and sepchar is hardcoded to SEPCHAR
3164 (':' or whatever). */
3166 decode_path (const char *path)
3173 TO_INTERNAL_FORMAT (C_STRING, path, ALLOCA, (newpath, newlen), Qfile_name);
3175 /* #### Does this make sense? It certainly does for
3176 decode_env_path(), but it looks dubious here. Does any code
3177 depend on decode_path("") returning nil instead of an empty
3182 return split_string_by_emchar_1 (newpath, newlen, SEPCHAR);
3186 decode_env_path (const char *evarname, const char *default_)
3188 const char *path = 0;
3190 path = egetenv (evarname);
3193 return decode_path (path);
3196 /* Ben thinks this function should not exist or be exported to Lisp.
3197 We use it to define split-path-string in subr.el (not!). */
3199 DEFUN ("split-string-by-char", Fsplit_string_by_char, 1, 2, 0, /*
3200 Split STRING into a list of substrings originally separated by SEPCHAR.
3204 CHECK_STRING (string);
3205 CHECK_CHAR (sepchar);
3206 return split_string_by_emchar_1 (XSTRING_DATA (string),
3207 XSTRING_LENGTH (string),
3211 /* #### This was supposed to be in subr.el, but is used VERY early in
3212 the bootstrap process, so it goes here. Damn. */
3214 DEFUN ("split-path", Fsplit_path, 1, 1, 0, /*
3215 Explode a search path into a list of strings.
3216 The path components are separated with the characters specified
3217 with `path-separator'.
3221 CHECK_STRING (path);
3223 while (!STRINGP (Vpath_separator)
3224 || (XSTRING_CHAR_LENGTH (Vpath_separator) != 1))
3225 Vpath_separator = signal_simple_continuable_error
3226 ("`path-separator' should be set to a single-character string",
3229 return (split_string_by_emchar_1
3230 (XSTRING_DATA (path), XSTRING_LENGTH (path),
3231 charptr_emchar (XSTRING_DATA (Vpath_separator))));
3234 DEFUN ("noninteractive", Fnoninteractive, 0, 0, 0, /*
3235 Non-nil return value means XEmacs is running without interactive terminal.
3239 return noninteractive ? Qt : Qnil;
3242 /* This flag is useful to define if you're under a debugger; this way, you
3243 can put a breakpoint of assert_failed() and debug multiple problems
3244 in one session without having to recompile. */
3245 /* #define ASSERTIONS_DONT_ABORT */
3247 #ifdef USE_ASSERTIONS
3248 /* This highly dubious kludge ... shut up Jamie, I'm tired of your slagging. */
3250 static int in_assert_failed;
3251 static const char *assert_failed_file;
3252 static int assert_failed_line;
3253 static const char *assert_failed_expr;
3259 #undef abort /* avoid infinite #define loop... */
3261 #if defined (WIN32_NATIVE) && defined (DEBUG_XEMACS)
3262 #define enter_debugger() DebugBreak ()
3264 #define enter_debugger()
3268 assert_failed (const char *file, int line, const char *expr)
3270 /* If we're already crashing, let's not crash again. This might be
3271 critical to getting auto-saving working properly. */
3272 if (fatal_error_in_progress)
3275 /* We are extremely paranoid so we sensibly deal with recursive
3276 assertion failures. */
3279 if (in_assert_failed >= 4)
3281 else if (in_assert_failed == 3)
3286 else if (in_assert_failed == 2)
3288 /* Not stderr_out(), which does additional things and may trigger
3289 a recursive assertion failure. fprintf was undeffed above, in
3290 case it was encapsulated. */
3292 "Fatal error: recursive assertion failure, "
3293 "file %s, line %d, %s\n",
3296 "Original assertion failure: file %s, line %d, %s\n",
3297 assert_failed_file, assert_failed_line, assert_failed_expr);
3301 assert_failed_file = file;
3302 assert_failed_line = line;
3303 assert_failed_expr = expr;
3307 "Fatal error: assertion failed, file %s, line %d, %s\n",
3310 stderr_out ("Fatal error: assertion failed, file %s, line %d, %s\n",
3315 #if !defined (ASSERTIONS_DONT_ABORT)
3318 in_assert_failed = 0;
3320 #endif /* USE_ASSERTIONS */
3323 DEFUN ("quantify-start-recording-data", Fquantify_start_recording_data,
3325 Start recording Quantify data.
3329 quantify_start_recording_data ();
3333 DEFUN ("quantify-stop-recording-data", Fquantify_stop_recording_data,
3335 Stop recording Quantify data.
3339 quantify_stop_recording_data ();
3343 DEFUN ("quantify-clear-data", Fquantify_clear_data, 0, 0, "", /*
3344 Clear all Quantify data.
3348 quantify_clear_data ();
3351 #endif /* QUANTIFY */
3354 syms_of_emacs (void)
3357 DEFSUBR (Fdump_emacs);
3358 #endif /* !CANNOT_DUMP */
3360 DEFSUBR (Frun_emacs_from_temacs);
3361 DEFSUBR (Frunning_temacs_p);
3362 DEFSUBR (Finvocation_name);
3363 DEFSUBR (Finvocation_directory);
3364 DEFSUBR (Fkill_emacs);
3365 DEFSUBR (Fnoninteractive);
3368 DEFSUBR (Fquantify_start_recording_data);
3369 DEFSUBR (Fquantify_stop_recording_data);
3370 DEFSUBR (Fquantify_clear_data);
3371 #endif /* QUANTIFY */
3373 DEFSUBR (Fsplit_string_by_char);
3374 DEFSUBR (Fsplit_path); /* #### */
3376 defsymbol (&Qkill_emacs_hook, "kill-emacs-hook");
3377 defsymbol (&Qsave_buffers_kill_emacs, "save-buffers-kill-emacs");
3381 vars_of_emacs (void)
3383 DEFVAR_BOOL ("suppress-early-error-handler-backtrace",
3384 &suppress_early_error_handler_backtrace /*
3385 Non-nil means early error handler shouldn't print a backtrace.
3388 DEFVAR_LISP ("command-line-args", &Vcommand_line_args /*
3389 Args passed by shell to XEmacs, as a list of strings.
3392 DEFVAR_LISP ("invocation-name", &Vinvocation_name /*
3393 The program name that was used to run XEmacs.
3394 Any directory names are omitted.
3397 DEFVAR_LISP ("invocation-directory", &Vinvocation_directory /*
3398 The directory in which the XEmacs executable was found, to run it.
3399 The value is simply the program name if that directory's name is not known.
3402 DEFVAR_LISP ("invocation-path", &Vinvocation_path /*
3403 The path in which the XEmacs executable was found, to run it.
3404 The value is simply the value of environment variable PATH on startup
3405 if XEmacs was found there.
3409 xxDEFVAR_LISP ("installation-directory", &Vinstallation_directory,
3410 "A directory within which to look for the `lib-src' and `etc' directories.\n"
3411 "This is non-nil when we can't find those directories in their standard\n"
3412 "installed locations, but we can find them\n"
3413 "near where the XEmacs executable was found.");
3416 DEFVAR_LISP ("system-type", &Vsystem_type /*
3417 Symbol indicating type of operating system you are using.
3419 Vsystem_type = intern (SYSTEM_TYPE);
3420 Fprovide (intern(SYSTEM_TYPE));
3422 #ifndef EMACS_CONFIGURATION
3423 # define EMACS_CONFIGURATION "UNKNOWN"
3425 DEFVAR_LISP ("system-configuration", &Vsystem_configuration /*
3426 String naming the configuration XEmacs was built for.
3428 Vsystem_configuration = build_string (EMACS_CONFIGURATION);
3430 #ifndef EMACS_CONFIG_OPTIONS
3431 # define EMACS_CONFIG_OPTIONS "UNKNOWN"
3433 DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options /*
3434 String containing the configuration options XEmacs was built with.
3436 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS);
3438 DEFVAR_LISP ("emacs-major-version", &Vemacs_major_version /*
3439 Major version number of this version of Emacs, as an integer.
3440 Warning: this variable did not exist in Emacs versions earlier than:
3444 Vemacs_major_version = make_int (EMACS_MAJOR_VERSION);
3446 DEFVAR_LISP ("emacs-minor-version", &Vemacs_minor_version /*
3447 Minor version number of this version of Emacs, as an integer.
3448 Warning: this variable did not exist in Emacs versions earlier than:
3452 Vemacs_minor_version = make_int (EMACS_MINOR_VERSION);
3454 DEFVAR_LISP ("emacs-patch-level", &Vemacs_patch_level /*
3455 The patch level of this version of Emacs, as an integer.
3456 The value is non-nil if this version of XEmacs is part of a series of
3457 stable XEmacsen, but has bug fixes applied.
3458 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
3461 #ifdef EMACS_PATCH_LEVEL
3462 Vemacs_patch_level = make_int (EMACS_PATCH_LEVEL);
3464 Vemacs_patch_level = Qnil;
3467 DEFVAR_LISP ("emacs-beta-version", &Vemacs_beta_version /*
3468 Beta number of this version of Emacs, as an integer.
3469 The value is nil if this is an officially released version of XEmacs.
3470 Warning: this variable does not exist in FSF Emacs or in XEmacs versions
3473 #ifdef EMACS_BETA_VERSION
3474 Vemacs_beta_version = make_int (EMACS_BETA_VERSION);
3476 Vemacs_beta_version = Qnil;
3480 DEFVAR_LISP ("infodock-major-version", &Vinfodock_major_version /*
3481 Major version number of this InfoDock release.
3483 Vinfodock_major_version = make_int (INFODOCK_MAJOR_VERSION);
3485 DEFVAR_LISP ("infodock-minor-version", &Vinfodock_minor_version /*
3486 Minor version number of this InfoDock release.
3488 Vinfodock_minor_version = make_int (INFODOCK_MINOR_VERSION);
3490 DEFVAR_LISP ("infodock-build-version", &Vinfodock_build_version /*
3491 Build version of this InfoDock release.
3493 Vinfodock_build_version = make_int (INFODOCK_BUILD_VERSION);
3496 DEFVAR_LISP ("xemacs-codename", &Vxemacs_codename /*
3497 Codename of this version of Emacs (a string).
3499 #ifndef XEMACS_CODENAME
3500 #define XEMACS_CODENAME "Noname"
3505 char src[64] = XEMACS_CODENAME;
3506 unsigned char* sp = (unsigned char*)src;
3509 while ( (chr = *sp++) && (i < 128) )
3516 dest[i++] = (chr >> 6) | 0xC0;
3517 dest[i++] = (chr & 0x3F) | 0x80;
3519 dest[i++] = LEADING_BYTE_LATIN_ISO8859_1;
3525 Vxemacs_codename = build_string (dest);
3528 Vxemacs_codename = build_string (XEMACS_CODENAME);
3531 /* Lisp variables which contain command line flags.
3533 The portable dumper stomps on these; they must be saved and restored
3534 if they are processed before the call to pdump_load() in main_1().
3536 DEFVAR_BOOL ("noninteractive", &noninteractive1 /*
3537 Non-nil means XEmacs is running without interactive terminal.
3540 DEFVAR_BOOL ("inhibit-early-packages", &inhibit_early_packages /*
3541 Set to non-nil when the early packages should not be respected at startup.
3544 DEFVAR_BOOL ("inhibit-autoloads", &inhibit_autoloads /*
3545 Set to non-nil when autoloads should not be loaded at startup.
3548 DEFVAR_BOOL ("debug-paths", &debug_paths /*
3549 Set to non-nil when debug information about paths should be printed.
3552 DEFVAR_BOOL ("inhibit-site-lisp", &inhibit_site_lisp /*
3553 Set to non-nil when the site-lisp should not be searched at startup.
3555 #ifdef INHIBIT_SITE_LISP
3556 inhibit_site_lisp = 1;
3559 DEFVAR_BOOL ("inhibit-site-modules", &inhibit_site_modules /*
3560 Set to non-nil when site-modules should not be searched at startup.
3562 #ifdef INHIBIT_SITE_MODULES
3563 inhibit_site_modules = 1;
3566 DEFVAR_INT ("emacs-priority", &emacs_priority /*
3567 Priority for XEmacs to run at.
3568 This value is effective only if set before XEmacs is dumped,
3569 and only if the XEmacs executable is installed with setuid to permit
3570 it to change priority. (XEmacs sets its uid back to the real uid.)
3571 Currently, you need to define SET_EMACS_PRIORITY in `config.h'
3572 before you compile XEmacs, to enable the code for this feature.
3576 DEFVAR_CONST_LISP ("internal-error-checking", &Vinternal_error_checking /*
3577 Internal error checking built-in into this instance of XEmacs.
3578 This is a list of symbols, initialized at build-time. Legal symbols
3581 extents - check extents prior to each extent change;
3582 typecheck - check types strictly, aborting in case of error;
3583 malloc - check operation of malloc;
3584 gc - check garbage collection;
3585 bufpos - check buffer positions.
3587 quick-build - user has requested the "quick-build" configure option.
3589 Vinternal_error_checking = Qnil;
3590 #ifdef ERROR_CHECK_EXTENTS
3591 Vinternal_error_checking = Fcons (intern ("extents"),
3592 Vinternal_error_checking);
3594 #ifdef ERROR_CHECK_TYPECHECK
3595 Vinternal_error_checking = Fcons (intern ("typecheck"),
3596 Vinternal_error_checking);
3598 #ifdef ERROR_CHECK_MALLOC
3599 Vinternal_error_checking = Fcons (intern ("malloc"),
3600 Vinternal_error_checking);
3602 #ifdef ERROR_CHECK_GC
3603 Vinternal_error_checking = Fcons (intern ("gc"),
3604 Vinternal_error_checking);
3606 #ifdef ERROR_CHECK_BUFPOS
3607 Vinternal_error_checking = Fcons (intern ("bufpos"),
3608 Vinternal_error_checking);
3611 Vinternal_error_checking = Fcons (intern ("quick-build"),
3612 Vinternal_error_checking);
3615 DEFVAR_CONST_LISP ("mail-lock-methods", &Vmail_lock_methods /*
3616 Mail spool locking methods supported by this instance of XEmacs.
3617 This is a list of symbols. Each of the symbols is one of the
3618 following: dot, lockf, flock, locking, mmdf.
3621 Vmail_lock_methods = Qnil;
3622 Vmail_lock_methods = Fcons (intern ("dot"), Vmail_lock_methods);
3624 Vmail_lock_methods = Fcons (intern ("lockf"), Vmail_lock_methods);
3627 Vmail_lock_methods = Fcons (intern ("flock"), Vmail_lock_methods);
3630 Vmail_lock_methods = Fcons (intern ("mmdf"), Vmail_lock_methods);
3633 Vmail_lock_methods = Fcons (intern ("locking"), Vmail_lock_methods);
3637 DEFVAR_CONST_LISP ("configure-mail-lock-method", &Vconfigure_mail_lock_method /*
3638 Mail spool locking method suggested by configure. This is one
3639 of the symbols in MAIL-LOCK-METHODS.
3642 #if defined(MAIL_LOCK_FLOCK) && defined(HAVE_FLOCK)
3643 Vconfigure_mail_lock_method = intern("flock");
3644 #elif defined(MAIL_LOCK_LOCKF) && defined(HAVE_LOCKF)
3645 Vconfigure_mail_lock_method = intern("lockf");
3646 #elif defined(MAIL_LOCK_MMDF) && defined(HAVE_MMDF)
3647 Vconfigure_mail_lock_method = intern("mmdf");
3648 #elif defined(MAIL_LOCK_LOCKING) && defined(HAVE_LOCKING)
3649 Vconfigure_mail_lock_method = intern("locking");
3651 Vconfigure_mail_lock_method = intern("dot");
3655 DEFVAR_LISP ("path-separator", &Vpath_separator /*
3656 The directory separator in search paths, as a string.
3660 Vpath_separator = make_string ((Bufbyte *)&c, 1);
3665 complex_vars_of_emacs (void)
3667 /* This is all related to path searching. */
3669 DEFVAR_LISP ("emacs-program-name", &Vemacs_program_name /*
3670 *Name of the Emacs variant.
3671 For example, this may be \"xemacs\" or \"infodock\".
3672 This is mainly meant for use in path searching.
3674 Vemacs_program_name = build_string ((char *) PATH_PROGNAME);
3676 DEFVAR_LISP ("emacs-program-version", &Vemacs_program_version /*
3677 *Version of the Emacs variant.
3678 This typically has the form NN.NN-bNN.
3679 This is mainly meant for use in path searching.
3681 Vemacs_program_version = build_string ((char *) PATH_VERSION);
3683 DEFVAR_LISP ("exec-path", &Vexec_path /*
3684 *List of directories to search programs to run in subprocesses.
3685 Each element is a string (directory name) or nil (try default directory).
3689 DEFVAR_LISP ("exec-directory", &Vexec_directory /*
3690 *Directory of architecture-dependent files that come with XEmacs,
3691 especially executable programs intended for XEmacs to invoke.
3693 Vexec_directory = Qnil;
3695 DEFVAR_LISP ("configure-exec-directory", &Vconfigure_exec_directory /*
3696 For internal use by the build procedure only.
3697 configure's idea of what `exec-directory' will be.
3700 Vconfigure_exec_directory = Ffile_name_as_directory
3701 (build_string ((char *) PATH_EXEC));
3703 Vconfigure_exec_directory = Qnil;
3706 DEFVAR_LISP ("lisp-directory", &Vlisp_directory /*
3707 *Directory of core Lisp files that come with XEmacs.
3709 Vlisp_directory = Qnil;
3711 DEFVAR_LISP ("configure-lisp-directory", &Vconfigure_lisp_directory /*
3712 For internal use by the build procedure only.
3713 configure's idea of what `lisp-directory' will be.
3715 #ifdef PATH_LOADSEARCH
3716 Vconfigure_lisp_directory = Ffile_name_as_directory
3717 (build_string ((char *) PATH_LOADSEARCH));
3719 Vconfigure_lisp_directory = Qnil;
3722 DEFVAR_LISP ("mule-lisp-directory", &Vmule_lisp_directory /*
3723 *Directory of Mule Lisp files that come with XEmacs.
3725 Vmule_lisp_directory = Qnil;
3727 DEFVAR_LISP ("configure-mule-lisp-directory", &Vconfigure_mule_lisp_directory /*
3728 For internal use by the build procedure only.
3729 configure's idea of what `mule-lisp-directory' will be.
3731 #ifdef PATH_MULELOADSEARCH
3732 Vconfigure_mule_lisp_directory = Ffile_name_as_directory
3733 (build_string ((char *) PATH_MULELOADSEARCH));
3735 Vconfigure_mule_lisp_directory = Qnil;
3738 DEFVAR_LISP ("utf-2000-lisp-directory", &Vutf_2000_lisp_directory /*
3739 *Directory of UTF-2000 Lisp files that come with XEmacs.
3741 Vutf_2000_lisp_directory = Qnil;
3743 DEFVAR_LISP ("configure-utf-2000-lisp-directory",
3744 &Vconfigure_utf_2000_lisp_directory /*
3745 For internal use by the build procedure only.
3746 configure's idea of what `utf-2000-lisp-directory' will be.
3748 #ifdef PATH_UTF2000LOADSEARCH
3749 Vconfigure_utf_2000_lisp_directory = Ffile_name_as_directory
3750 (build_string ((char *) PATH_UTF2000LOADSEARCH));
3752 Vconfigure_utf_2000_lisp_directory = Qnil;
3755 DEFVAR_LISP ("module-directory", &Vmodule_directory /*
3756 *Directory of core dynamic modules that come with XEmacs.
3758 Vmodule_directory = Qnil;
3760 DEFVAR_LISP ("configure-module-directory", &Vconfigure_module_directory /*
3761 For internal use by the build procedure only.
3762 configure's idea of what `module-directory' will be.
3764 #ifdef PATH_MODULESEARCH
3765 Vconfigure_module_directory = Ffile_name_as_directory
3766 (build_string ((char *) PATH_MODULESEARCH));
3768 Vconfigure_module_directory = Qnil;
3771 DEFVAR_LISP ("configure-package-path", &Vconfigure_package_path /*
3772 For internal use by the build procedure only.
3773 configure's idea of what the package path will be.
3775 #ifdef PATH_PACKAGEPATH
3776 Vconfigure_package_path = decode_path (PATH_PACKAGEPATH);
3778 Vconfigure_package_path = Qnil;
3781 DEFVAR_LISP ("data-directory", &Vdata_directory /*
3782 *Directory of architecture-independent files that come with XEmacs,
3783 intended for XEmacs to use.
3784 Use of this variable in new code is almost never correct. See the
3785 functions `locate-data-file' and `locate-data-directory' and the variable
3786 `data-directory-list'.
3788 Vdata_directory = Qnil;
3790 DEFVAR_LISP ("configure-data-directory", &Vconfigure_data_directory /*
3791 For internal use by the build procedure only.
3792 configure's idea of what `data-directory' will be.
3795 Vconfigure_data_directory = Ffile_name_as_directory
3796 (build_string ((char *) PATH_DATA));
3798 Vconfigure_data_directory = Qnil;
3801 DEFVAR_LISP ("data-directory-list", &Vdata_directory_list /*
3802 *List of directories of architecture-independent files that come with XEmacs
3803 or were installed as packages, and are intended for XEmacs to use.
3805 Vdata_directory_list = Qnil;
3807 DEFVAR_LISP ("site-directory", &Vsite_directory /*
3808 *Directory of site-specific Lisp files that come with XEmacs.
3810 Vsite_directory = Qnil;
3812 DEFVAR_LISP ("configure-site-directory", &Vconfigure_site_directory /*
3813 For internal use by the build procedure only.
3814 configure's idea of what `site-directory' will be.
3817 Vconfigure_site_directory = Ffile_name_as_directory
3818 (build_string ((char *) PATH_SITE));
3820 Vconfigure_site_directory = Qnil;
3823 DEFVAR_LISP ("site-module-directory", &Vsite_module_directory /*
3824 *Directory of site-specific loadable modules that come with XEmacs.
3826 Vsite_module_directory = Qnil;
3828 DEFVAR_LISP ("configure-site-module-directory", &Vconfigure_site_module_directory /*
3829 For internal use by the build procedure only.
3830 configure's idea of what `site-directory' will be.
3832 #ifdef PATH_SITE_MODULES
3833 Vconfigure_site_module_directory = Ffile_name_as_directory
3834 (build_string ((char *) PATH_SITE_MODULES));
3836 Vconfigure_site_module_directory = Qnil;
3839 DEFVAR_LISP ("doc-directory", &Vdoc_directory /*
3840 *Directory containing the DOC file that comes with XEmacs.
3841 This is usually the same as `exec-directory'.
3843 Vdoc_directory = Qnil;
3845 DEFVAR_LISP ("configure-doc-directory", &Vconfigure_doc_directory /*
3846 For internal use by the build procedure only.
3847 configure's idea of what `doc-directory' will be.
3850 Vconfigure_doc_directory = Ffile_name_as_directory
3851 (build_string ((char *) PATH_DOC));
3853 Vconfigure_doc_directory = Qnil;
3856 DEFVAR_LISP ("configure-exec-prefix-directory", &Vconfigure_exec_prefix_directory /*
3857 For internal use by the build procedure only.
3858 configure's idea of what `exec-prefix-directory' will be.
3860 #ifdef PATH_EXEC_PREFIX
3861 Vconfigure_exec_prefix_directory = Ffile_name_as_directory
3862 (build_string ((char *) PATH_EXEC_PREFIX));
3864 Vconfigure_exec_prefix_directory = Qnil;
3867 DEFVAR_LISP ("configure-prefix-directory", &Vconfigure_prefix_directory /*
3868 For internal use by the build procedure only.
3869 configure's idea of what `prefix-directory' will be.
3872 Vconfigure_prefix_directory = Ffile_name_as_directory
3873 (build_string ((char *) PATH_PREFIX));
3875 Vconfigure_prefix_directory = Qnil;
3878 DEFVAR_LISP ("configure-info-directory", &Vconfigure_info_directory /*
3879 For internal use by the build procedure only.
3880 This is the name of the directory in which the build procedure installed
3881 Emacs's info files; the default value for Info-default-directory-list
3885 Vconfigure_info_directory =
3886 Ffile_name_as_directory (build_string (PATH_INFO));
3888 Vconfigure_info_directory = Qnil;
3891 DEFVAR_LISP ("configure-info-path", &Vconfigure_info_path /*
3892 The configured initial path for info documentation.
3894 #ifdef PATH_INFOPATH
3895 Vconfigure_info_path = decode_path (PATH_INFOPATH);
3897 Vconfigure_info_path = Qnil;
3901 #if defined(__sgi) && !defined(PDUMP)
3902 /* This is so tremendously ugly I'd puke. But then, it works.
3903 * The target is to override the static constructor from the
3904 * libiflPNG.so library which is masquerading as libz, and
3905 * cores on us when re-started from the dumped executable.
3906 * This will have to go for 21.1 -- OG.
3908 void __sti__iflPNGFile_c___ (void);
3910 __sti__iflPNGFile_c___ (void)