Mercurial > emacs
annotate src/emacs.c @ 12918:88c1220e3dec
Use post-command-idle-hook.
(show-paren-command-hook): No need to test for idleness.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Mon, 21 Aug 1995 22:00:21 +0000 |
parents | c67a46e4fcef |
children | ec9ae189a275 |
rev | line source |
---|---|
284 | 1 /* Fully extensible Emacs, running on Unix, intended for GNU. |
11235 | 2 Copyright (C) 1985, 86, 87, 93, 94, 95 Free Software Foundation, Inc. |
284 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
6 GNU Emacs is free software; you can redistribute it and/or modify | |
7 it under the terms of the GNU General Public License as published by | |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
8 the Free Software Foundation; either version 2, or (at your option) |
284 | 9 any later version. |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
19 | |
20 | |
21 #include <signal.h> | |
22 #include <errno.h> | |
23 | |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
4632
diff
changeset
|
24 #include <config.h> |
284 | 25 #include <stdio.h> |
26 | |
27 #include <sys/types.h> | |
28 #include <sys/file.h> | |
29 | |
30 #ifdef VMS | |
31 #include <ssdef.h> | |
32 #endif | |
33 | |
34 #ifdef BSD | |
35 #include <sys/ioctl.h> | |
36 #endif | |
37 | |
38 #include "lisp.h" | |
39 #include "commands.h" | |
1284 | 40 #include "intervals.h" |
284 | 41 |
1043
ee6f647ac103
* emacs.c: Incude "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1004
diff
changeset
|
42 #include "systty.h" |
1945
b07c27b4dca7
* emacs.c (fatal_error_signal): Unblock the signal before we try
Jim Blandy <jimb@redhat.com>
parents:
1917
diff
changeset
|
43 #include "syssignal.h" |
4589 | 44 #include "process.h" |
554 | 45 |
284 | 46 #ifndef O_RDWR |
47 #define O_RDWR 2 | |
48 #endif | |
49 | |
6027
f25b21c384a1
Move extern declarations to top of file.
Karl Heuer <kwzh@gnu.org>
parents:
5965
diff
changeset
|
50 extern void malloc_warning (); |
f25b21c384a1
Move extern declarations to top of file.
Karl Heuer <kwzh@gnu.org>
parents:
5965
diff
changeset
|
51 extern char *index (); |
f25b21c384a1
Move extern declarations to top of file.
Karl Heuer <kwzh@gnu.org>
parents:
5965
diff
changeset
|
52 extern char *strerror (); |
f25b21c384a1
Move extern declarations to top of file.
Karl Heuer <kwzh@gnu.org>
parents:
5965
diff
changeset
|
53 |
284 | 54 /* Command line args from shell, as list of strings */ |
55 Lisp_Object Vcommand_line_args; | |
56 | |
2279
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
57 /* The name under which Emacs was invoked, with any leading directory |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
58 names discarded. */ |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
59 Lisp_Object Vinvocation_name; |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
60 |
4484
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
61 /* The directory name from which Emacs was invoked. */ |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
62 Lisp_Object Vinvocation_directory; |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
63 |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
64 /* The directory name in which to find subdirs such as lisp and etc. |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
65 nil means get them only from PATH_LOADSEARCH. */ |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
66 Lisp_Object Vinstallation_directory; |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
67 |
732 | 68 /* Hook run by `kill-emacs' before it does really anything. */ |
69 Lisp_Object Vkill_emacs_hook; | |
70 | |
284 | 71 /* Set nonzero after Emacs has started up the first time. |
72 Prevents reinitialization of the Lisp world and keymaps | |
73 on subsequent starts. */ | |
74 int initialized; | |
75 | |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
76 /* Variable whose value is symbol giving operating system type. */ |
284 | 77 Lisp_Object Vsystem_type; |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
78 |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
79 /* Variable whose value is string giving configuration built for. */ |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
80 Lisp_Object Vsystem_configuration; |
8843
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
81 |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
82 /* Variable whose value is string giving configuration options, |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
83 for use when reporting bugs. */ |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
84 Lisp_Object Vsystem_configuration_options; |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
85 |
284 | 86 /* If non-zero, emacs should not attempt to use an window-specific code, |
87 but instead should use the virtual terminal under which it was started */ | |
88 int inhibit_window_system; | |
89 | |
1202
3d1bf36f0896
* emacs.c (emacs_priority): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1141
diff
changeset
|
90 /* If nonzero, set Emacs to run at this priority. This is also used |
3d1bf36f0896
* emacs.c (emacs_priority): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1141
diff
changeset
|
91 in child_setup and sys_suspend to make sure subshells run at normal |
3d1bf36f0896
* emacs.c (emacs_priority): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1141
diff
changeset
|
92 priority; Those functions have their own extern declaration. */ |
1141
d4f6d7467916
(main): Use X menu code if HAVE_X_WINDOWS and not NO_X_MENU.
Richard M. Stallman <rms@gnu.org>
parents:
1074
diff
changeset
|
93 int emacs_priority; |
d4f6d7467916
(main): Use X menu code if HAVE_X_WINDOWS and not NO_X_MENU.
Richard M. Stallman <rms@gnu.org>
parents:
1074
diff
changeset
|
94 |
10032
f689803caa92
Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents:
10029
diff
changeset
|
95 /* If non-zero a filter or a sentinel is running. Tested to save the match |
f689803caa92
Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents:
10029
diff
changeset
|
96 data on the first attempt to change it inside asynchronous code. */ |
f689803caa92
Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents:
10029
diff
changeset
|
97 int running_asynch_code; |
f689803caa92
Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents:
10029
diff
changeset
|
98 |
6863
2aab30ba72b4
(inherited_pgroup): Conditionalize on BSD_PGRPS.
Richard M. Stallman <rms@gnu.org>
parents:
6814
diff
changeset
|
99 #ifdef BSD_PGRPS |
3655
3e6cc11cfe9f
Interact properly with shells lacking job control (sh, rc, es...)
Jim Blandy <jimb@redhat.com>
parents:
3454
diff
changeset
|
100 /* See sysdep.c. */ |
3e6cc11cfe9f
Interact properly with shells lacking job control (sh, rc, es...)
Jim Blandy <jimb@redhat.com>
parents:
3454
diff
changeset
|
101 extern int inherited_pgroup; |
3e6cc11cfe9f
Interact properly with shells lacking job control (sh, rc, es...)
Jim Blandy <jimb@redhat.com>
parents:
3454
diff
changeset
|
102 #endif |
3e6cc11cfe9f
Interact properly with shells lacking job control (sh, rc, es...)
Jim Blandy <jimb@redhat.com>
parents:
3454
diff
changeset
|
103 |
284 | 104 #ifdef HAVE_X_WINDOWS |
105 /* If non-zero, -d was specified, meaning we're using some window system. */ | |
106 int display_arg; | |
107 #endif | |
108 | |
109 /* An address near the bottom of the stack. | |
110 Tells GC how to save a copy of the stack. */ | |
111 char *stack_bottom; | |
112 | |
113 #ifdef HAVE_X_WINDOWS | |
114 extern Lisp_Object Vwindow_system; | |
115 #endif /* HAVE_X_WINDOWS */ | |
116 | |
11720
f21ea087b1d8
Delete all APOLLO conditionals.
Richard M. Stallman <rms@gnu.org>
parents:
11634
diff
changeset
|
117 extern Lisp_Object Vauto_save_list_file_name; |
f21ea087b1d8
Delete all APOLLO conditionals.
Richard M. Stallman <rms@gnu.org>
parents:
11634
diff
changeset
|
118 |
284 | 119 #ifdef USG_SHARED_LIBRARIES |
120 /* If nonzero, this is the place to put the end of the writable segment | |
121 at startup. */ | |
122 | |
123 unsigned int bss_end = 0; | |
124 #endif | |
125 | |
126 /* Nonzero means running Emacs without interactive terminal. */ | |
127 | |
128 int noninteractive; | |
129 | |
130 /* Value of Lisp variable `noninteractive'. | |
131 Normally same as C variable `noninteractive' | |
132 but nothing terrible happens if user sets this one. */ | |
133 | |
134 int noninteractive1; | |
7869
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
135 |
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
136 /* Save argv and argc. */ |
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
137 char **initial_argv; |
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
138 int initial_argc; |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
139 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
140 static void sort_args (); |
284 | 141 |
142 /* Signal code for the fatal signal that was received */ | |
143 int fatal_error_code; | |
144 | |
145 /* Nonzero if handling a fatal error already */ | |
146 int fatal_error_in_progress; | |
147 | |
148 /* Handle bus errors, illegal instruction, etc. */ | |
505 | 149 SIGTYPE |
284 | 150 fatal_error_signal (sig) |
151 int sig; | |
152 { | |
153 fatal_error_code = sig; | |
154 signal (sig, SIG_DFL); | |
155 | |
156 /* If fatal error occurs in code below, avoid infinite recursion. */ | |
1945
b07c27b4dca7
* emacs.c (fatal_error_signal): Unblock the signal before we try
Jim Blandy <jimb@redhat.com>
parents:
1917
diff
changeset
|
157 if (! fatal_error_in_progress) |
b07c27b4dca7
* emacs.c (fatal_error_signal): Unblock the signal before we try
Jim Blandy <jimb@redhat.com>
parents:
1917
diff
changeset
|
158 { |
b07c27b4dca7
* emacs.c (fatal_error_signal): Unblock the signal before we try
Jim Blandy <jimb@redhat.com>
parents:
1917
diff
changeset
|
159 fatal_error_in_progress = 1; |
284 | 160 |
3711
5acf09035d16
(shut_down_emacs): New arg STUFF. Stuff input here.
Richard M. Stallman <rms@gnu.org>
parents:
3655
diff
changeset
|
161 shut_down_emacs (sig, 0, Qnil); |
1945
b07c27b4dca7
* emacs.c (fatal_error_signal): Unblock the signal before we try
Jim Blandy <jimb@redhat.com>
parents:
1917
diff
changeset
|
162 } |
284 | 163 |
164 #ifdef VMS | |
165 LIB$STOP (SS$_ABORT); | |
166 #else | |
1945
b07c27b4dca7
* emacs.c (fatal_error_signal): Unblock the signal before we try
Jim Blandy <jimb@redhat.com>
parents:
1917
diff
changeset
|
167 /* Signal the same code; this time it will really be fatal. |
b07c27b4dca7
* emacs.c (fatal_error_signal): Unblock the signal before we try
Jim Blandy <jimb@redhat.com>
parents:
1917
diff
changeset
|
168 Remember that since we're in a signal handler, the signal we're |
b07c27b4dca7
* emacs.c (fatal_error_signal): Unblock the signal before we try
Jim Blandy <jimb@redhat.com>
parents:
1917
diff
changeset
|
169 going to send is probably blocked, so we have to unblock it if we |
b07c27b4dca7
* emacs.c (fatal_error_signal): Unblock the signal before we try
Jim Blandy <jimb@redhat.com>
parents:
1917
diff
changeset
|
170 want to really receive it. */ |
5493
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
171 #ifndef MSDOS |
2118
454228f1c526
* emacs.c (__do_global_ctors, __do_global_ctors_aux,
Jim Blandy <jimb@redhat.com>
parents:
1945
diff
changeset
|
172 sigunblock (sigmask (fatal_error_code)); |
5493
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
173 #endif |
284 | 174 kill (getpid (), fatal_error_code); |
175 #endif /* not VMS */ | |
176 } | |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
177 |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
178 #ifdef SIGDANGER |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
179 |
6171 | 180 /* Handler for SIGDANGER. */ |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
181 SIGTYPE |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
182 memory_warning_signal (sig) |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
183 int sig; |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
184 { |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
185 signal (sig, memory_warning_signal); |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
186 |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
187 malloc_warning ("Operating system warns that virtual memory is running low.\n"); |
7223
38931e897e56
(memory_warning_signal): Call force_auto_save_soon.
Richard M. Stallman <rms@gnu.org>
parents:
7164
diff
changeset
|
188 |
38931e897e56
(memory_warning_signal): Call force_auto_save_soon.
Richard M. Stallman <rms@gnu.org>
parents:
7164
diff
changeset
|
189 /* It might be unsafe to call do_auto_save now. */ |
38931e897e56
(memory_warning_signal): Call force_auto_save_soon.
Richard M. Stallman <rms@gnu.org>
parents:
7164
diff
changeset
|
190 force_auto_save_soon (); |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
191 } |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
192 #endif |
284 | 193 |
194 /* Code for dealing with Lisp access to the Unix command line */ | |
195 | |
196 static | |
197 init_cmdargs (argc, argv, skip_args) | |
198 int argc; | |
199 char **argv; | |
200 int skip_args; | |
201 { | |
202 register int i; | |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
203 Lisp_Object name, dir; |
284 | 204 |
7869
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
205 initial_argv = argv; |
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
206 initial_argc = argc; |
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
207 |
2313
ddab91a375d8
(init_cmdargs): Fix simple bug in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
2279
diff
changeset
|
208 Vinvocation_name = Ffile_name_nondirectory (build_string (argv[0])); |
4484
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
209 Vinvocation_directory = Ffile_name_directory (build_string (argv[0])); |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
210 /* If we got no directory in argv[0], search PATH to find where |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
211 Emacs actually came from. */ |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
212 if (NILP (Vinvocation_directory)) |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
213 { |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
214 Lisp_Object found; |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
215 int yes = openp (Vexec_path, Vinvocation_name, |
4589 | 216 EXEC_SUFFIXES, &found, 1); |
4632
48634fa190aa
(init_cmdargs): Check openp result for 1, not != 0.
Richard M. Stallman <rms@gnu.org>
parents:
4619
diff
changeset
|
217 if (yes == 1) |
4484
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
218 Vinvocation_directory = Ffile_name_directory (found); |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
219 } |
2279
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
220 |
12383
e53c62fff24e
(init_cmdargs): Make Vinvocation_directory
Richard M. Stallman <rms@gnu.org>
parents:
12376
diff
changeset
|
221 if (!NILP (Vinvocation_directory) |
e53c62fff24e
(init_cmdargs): Make Vinvocation_directory
Richard M. Stallman <rms@gnu.org>
parents:
12376
diff
changeset
|
222 && NILP (Ffile_name_absolute_p (Vinvocation_directory))) |
e53c62fff24e
(init_cmdargs): Make Vinvocation_directory
Richard M. Stallman <rms@gnu.org>
parents:
12376
diff
changeset
|
223 /* Emacs was started with relative path, like ./emacs */ |
e53c62fff24e
(init_cmdargs): Make Vinvocation_directory
Richard M. Stallman <rms@gnu.org>
parents:
12376
diff
changeset
|
224 Vinvocation_directory = Fexpand_file_name (Vinvocation_directory, Qnil); |
e53c62fff24e
(init_cmdargs): Make Vinvocation_directory
Richard M. Stallman <rms@gnu.org>
parents:
12376
diff
changeset
|
225 |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
226 Vinstallation_directory = Qnil; |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
227 |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
228 if (!NILP (Vinvocation_directory)) |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
229 { |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
230 dir = Vinvocation_directory; |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
231 name = Fexpand_file_name (Vinvocation_name, dir); |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
232 while (1) |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
233 { |
7002
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
234 Lisp_Object tem, lib_src_exists; |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
235 Lisp_Object etc_exists, info_exists; |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
236 |
7002
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
237 /* See if dir contains subdirs for use by Emacs. |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
238 Check for the ones that would exist in a build directory, |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
239 not including lisp and info. */ |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
240 tem = Fexpand_file_name (build_string ("lib-src"), dir); |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
241 lib_src_exists = Ffile_exists_p (tem); |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
242 if (!NILP (lib_src_exists)) |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
243 { |
7002
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
244 tem = Fexpand_file_name (build_string ("etc"), dir); |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
245 etc_exists = Ffile_exists_p (tem); |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
246 if (!NILP (etc_exists)) |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
247 { |
7002
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
248 Vinstallation_directory |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
249 = Ffile_name_as_directory (dir); |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
250 break; |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
251 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
252 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
253 |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
254 /* See if dir's parent contains those subdirs. */ |
7002
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
255 tem = Fexpand_file_name (build_string ("../lib-src"), dir); |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
256 lib_src_exists = Ffile_exists_p (tem); |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
257 if (!NILP (lib_src_exists)) |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
258 { |
7002
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
259 tem = Fexpand_file_name (build_string ("../etc"), dir); |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
260 etc_exists = Ffile_exists_p (tem); |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
261 if (!NILP (etc_exists)) |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
262 { |
7002
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
263 tem = Fexpand_file_name (build_string (".."), dir); |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
264 Vinstallation_directory |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
265 = Ffile_name_as_directory (tem); |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
266 break; |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
267 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
268 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
269 |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
270 /* If the Emacs executable is actually a link, |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
271 next try the dir that the link points into. */ |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
272 tem = Ffile_symlink_p (name); |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
273 if (!NILP (tem)) |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
274 { |
8704
ec7ec0e35e5e
(init_cmdargs): After chasing link, use only the expanded name.
Richard M. Stallman <rms@gnu.org>
parents:
7869
diff
changeset
|
275 name = Fexpand_file_name (tem, dir); |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
276 dir = Ffile_name_directory (name); |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
277 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
278 else |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
279 break; |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
280 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
281 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
282 |
284 | 283 Vcommand_line_args = Qnil; |
284 | |
285 for (i = argc - 1; i >= 0; i--) | |
286 { | |
287 if (i == 0 || i > skip_args) | |
288 Vcommand_line_args | |
289 = Fcons (build_string (argv[i]), Vcommand_line_args); | |
290 } | |
291 } | |
2279
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
292 |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
293 DEFUN ("invocation-name", Finvocation_name, Sinvocation_name, 0, 0, 0, |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
294 "Return the program name that was used to run Emacs.\n\ |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
295 Any directory names are omitted.") |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
296 () |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
297 { |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
298 return Fcopy_sequence (Vinvocation_name); |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
299 } |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
300 |
4484
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
301 DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory, |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
302 0, 0, 0, |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
303 "Return the directory name in which the Emacs executable was located") |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
304 () |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
305 { |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
306 return Fcopy_sequence (Vinvocation_directory); |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
307 } |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
308 |
284 | 309 |
310 #ifdef VMS | |
311 #ifdef LINK_CRTL_SHARE | |
312 #ifdef SHAREABLE_LIB_BUG | |
313 extern noshare char **environ; | |
314 #endif /* SHAREABLE_LIB_BUG */ | |
315 #endif /* LINK_CRTL_SHARE */ | |
316 #endif /* VMS */ | |
317 | |
2118
454228f1c526
* emacs.c (__do_global_ctors, __do_global_ctors_aux,
Jim Blandy <jimb@redhat.com>
parents:
1945
diff
changeset
|
318 #ifndef ORDINARY_LINK |
1061
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
319 /* We don't include crtbegin.o and crtend.o in the link, |
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
320 so these functions and variables might be missed. |
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
321 Provide dummy definitions to avoid error. |
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
322 (We don't have any real constructors or destructors.) */ |
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
323 #ifdef __GNUC__ |
6467
53c14a4f9307
(__do_global_ctors, __do_global_ctors_aux)
Richard M. Stallman <rms@gnu.org>
parents:
6428
diff
changeset
|
324 #ifndef GCC_CTORS_IN_LIBC |
1070
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
325 __do_global_ctors () |
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
326 {} |
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
327 __do_global_ctors_aux () |
1061
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
328 {} |
1074
ab1964dc212c
(__do_global_dtors): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1070
diff
changeset
|
329 __do_global_dtors () |
ab1964dc212c
(__do_global_dtors): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1070
diff
changeset
|
330 {} |
4619
fdb92f0aa8c7
(__CTOR_LIST__): Don't declare it on Linux.
Richard M. Stallman <rms@gnu.org>
parents:
4589
diff
changeset
|
331 /* Linux has a bug in its library; avoid an error. */ |
fdb92f0aa8c7
(__CTOR_LIST__): Don't declare it on Linux.
Richard M. Stallman <rms@gnu.org>
parents:
4589
diff
changeset
|
332 #ifndef LINUX |
1070
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
333 char * __CTOR_LIST__[2] = { (char *) (-1), 0 }; |
4619
fdb92f0aa8c7
(__CTOR_LIST__): Don't declare it on Linux.
Richard M. Stallman <rms@gnu.org>
parents:
4589
diff
changeset
|
334 #endif |
1070
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
335 char * __DTOR_LIST__[2] = { (char *) (-1), 0 }; |
6467
53c14a4f9307
(__do_global_ctors, __do_global_ctors_aux)
Richard M. Stallman <rms@gnu.org>
parents:
6428
diff
changeset
|
336 #endif /* GCC_CTORS_IN_LIBC */ |
1070
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
337 __main () |
1061
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
338 {} |
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
339 #endif /* __GNUC__ */ |
2118
454228f1c526
* emacs.c (__do_global_ctors, __do_global_ctors_aux,
Jim Blandy <jimb@redhat.com>
parents:
1945
diff
changeset
|
340 #endif /* ORDINARY_LINK */ |
1061
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
341 |
9094 | 342 /* Test whether the next argument in ARGV matches SSTR or a prefix of |
343 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null | |
344 (the argument is supposed to have a value) store in *VALPTR either | |
345 the next argument or the portion of this one after the equal sign. | |
346 ARGV is read starting at position *SKIPPTR; this index is advanced | |
347 by the number of arguments used. | |
348 | |
349 Too bad we can't just use getopt for all of this, but we don't have | |
350 enough information to do it right. */ | |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
351 |
9094 | 352 static int |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
353 argmatch (argv, argc, sstr, lstr, minlen, valptr, skipptr) |
9094 | 354 char **argv; |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
355 int argc; |
9094 | 356 char *sstr; |
357 char *lstr; | |
358 int minlen; | |
359 char **valptr; | |
360 int *skipptr; | |
361 { | |
362 char *p; | |
363 int arglen; | |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
364 char *arg; |
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
365 |
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
366 /* Don't access argv[argc]; give up in advance. */ |
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
367 if (argc <= *skipptr + 1) |
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
368 return 0; |
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
369 |
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
370 arg = argv[*skipptr+1]; |
9094 | 371 if (arg == NULL) |
372 return 0; | |
373 if (strcmp (arg, sstr) == 0) | |
374 { | |
375 if (valptr != NULL) | |
376 { | |
377 *valptr = argv[*skipptr+2]; | |
378 *skipptr += 2; | |
379 } | |
380 else | |
381 *skipptr += 1; | |
382 return 1; | |
383 } | |
384 arglen = (valptr != NULL && (p = index (arg, '=')) != NULL | |
385 ? p - arg : strlen (arg)); | |
10102
339e129f8874
(argmatch): Handle lstr == 0.
Richard M. Stallman <rms@gnu.org>
parents:
10032
diff
changeset
|
386 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0) |
9094 | 387 return 0; |
388 else if (valptr == NULL) | |
389 { | |
390 *skipptr += 1; | |
391 return 1; | |
392 } | |
393 else if (p != NULL) | |
394 { | |
395 *valptr = p+1; | |
396 *skipptr += 1; | |
397 return 1; | |
398 } | |
399 else if (argv[*skipptr+2] != NULL) | |
400 { | |
401 *valptr = argv[*skipptr+2]; | |
402 *skipptr += 2; | |
403 return 1; | |
404 } | |
405 else | |
406 { | |
407 return 0; | |
408 } | |
409 } | |
410 | |
284 | 411 /* ARGSUSED */ |
412 main (argc, argv, envp) | |
413 int argc; | |
414 char **argv; | |
415 char **envp; | |
416 { | |
417 char stack_bottom_variable; | |
418 int skip_args = 0; | |
419 extern int errno; | |
420 extern sys_nerr; | |
421 | |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
422 sort_args (argc, argv); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
423 |
10172
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
424 if (argmatch (argv, argc, "-version", "--version", 3, NULL, &skip_args)) |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
425 { |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
426 Lisp_Object tem; |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
427 tem = Fsymbol_value (intern ("emacs-version")); |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
428 if (!STRINGP (tem)) |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
429 { |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
430 fprintf (stderr, "Invalid value of `emacs-version'\n"); |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
431 exit (1); |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
432 } |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
433 else |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
434 { |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
435 printf ("%s\n", XSTRING (tem)->data); |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
436 exit (0); |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
437 } |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
438 } |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
439 |
284 | 440 /* Map in shared memory, if we are using that. */ |
441 #ifdef HAVE_SHM | |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
442 if (argmatch (argv, argc, "-nl", "--no-shared-memory", 6, NULL, &skip_args)) |
284 | 443 { |
444 map_in_data (0); | |
445 /* The shared memory was just restored, which clobbered this. */ | |
446 skip_args = 1; | |
447 } | |
448 else | |
449 { | |
450 map_in_data (1); | |
451 /* The shared memory was just restored, which clobbered this. */ | |
452 skip_args = 0; | |
453 } | |
454 #endif | |
455 | |
1350
b74d9663f9a6
(main) [NeXT]: Call malloc_jumpstart.
Richard M. Stallman <rms@gnu.org>
parents:
1284
diff
changeset
|
456 #ifdef NeXT |
11806
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
457 { |
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
458 extern int malloc_cookie; |
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
459 /* This helps out unexnext.c. */ |
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
460 if (initialized) |
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
461 if (malloc_jumpstart (malloc_cookie) != 0) |
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
462 printf ("malloc jumpstart failed!\n"); |
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
463 } |
1350
b74d9663f9a6
(main) [NeXT]: Call malloc_jumpstart.
Richard M. Stallman <rms@gnu.org>
parents:
1284
diff
changeset
|
464 #endif /* NeXT */ |
b74d9663f9a6
(main) [NeXT]: Call malloc_jumpstart.
Richard M. Stallman <rms@gnu.org>
parents:
1284
diff
changeset
|
465 |
284 | 466 #ifdef VMS |
467 /* If -map specified, map the data file in */ | |
9094 | 468 { |
469 char *file; | |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
470 if (argmatch (argv, argc, "-map", "--map-data", 3, &mapin_file, &skip_args)) |
9094 | 471 mapin_data (file); |
472 } | |
284 | 473 |
474 #ifdef LINK_CRTL_SHARE | |
475 #ifdef SHAREABLE_LIB_BUG | |
476 /* Bletcherous shared libraries! */ | |
477 if (!stdin) | |
478 stdin = fdopen (0, "r"); | |
479 if (!stdout) | |
480 stdout = fdopen (1, "w"); | |
481 if (!stderr) | |
482 stderr = fdopen (2, "w"); | |
483 if (!environ) | |
484 environ = envp; | |
485 #endif /* SHAREABLE_LIB_BUG */ | |
486 #endif /* LINK_CRTL_SHARE */ | |
487 #endif /* VMS */ | |
488 | |
489 /* Record (approximately) where the stack begins. */ | |
490 stack_bottom = &stack_bottom_variable; | |
491 | |
492 #ifdef RUN_TIME_REMAP | |
493 if (initialized) | |
494 run_time_remap (argv[0]); | |
495 #endif | |
496 | |
497 #ifdef USG_SHARED_LIBRARIES | |
498 if (bss_end) | |
11233
d3b0cf2c3b78
(main): Cast arg to `brk'.
Richard M. Stallman <rms@gnu.org>
parents:
11195
diff
changeset
|
499 brk ((void *)bss_end); |
284 | 500 #endif |
501 | |
502 clearerr (stdin); | |
3655
3e6cc11cfe9f
Interact properly with shells lacking job control (sh, rc, es...)
Jim Blandy <jimb@redhat.com>
parents:
3454
diff
changeset
|
503 |
284 | 504 #ifndef SYSTEM_MALLOC |
505 if (! initialized) | |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2392
diff
changeset
|
506 { |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2392
diff
changeset
|
507 /* Arrange to get warning messages as memory fills up. */ |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2392
diff
changeset
|
508 memory_warnings (0, malloc_warning); |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2392
diff
changeset
|
509 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2392
diff
changeset
|
510 /* Arrange to disable interrupt input while malloc and friends are |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2392
diff
changeset
|
511 running. */ |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2392
diff
changeset
|
512 uninterrupt_malloc (); |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2392
diff
changeset
|
513 } |
284 | 514 #endif /* not SYSTEM_MALLOC */ |
515 | |
5493
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
516 #ifdef MSDOS |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
517 /* We do all file input/output as binary files. When we need to translate |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
518 newlines, we do that manually. */ |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
519 _fmode = O_BINARY; |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
520 (stdin)->_flag &= ~_IOTEXT; |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
521 (stdout)->_flag &= ~_IOTEXT; |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
522 (stderr)->_flag &= ~_IOTEXT; |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
523 #endif /* MSDOS */ |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
524 |
7480
e96f67e55921
(main): PRIO_PROCESS renamed to SET_EMACS_PRIORITY.
Richard M. Stallman <rms@gnu.org>
parents:
7223
diff
changeset
|
525 #ifdef SET_EMACS_PRIORITY |
1141
d4f6d7467916
(main): Use X menu code if HAVE_X_WINDOWS and not NO_X_MENU.
Richard M. Stallman <rms@gnu.org>
parents:
1074
diff
changeset
|
526 if (emacs_priority) |
1202
3d1bf36f0896
* emacs.c (emacs_priority): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1141
diff
changeset
|
527 nice (emacs_priority); |
284 | 528 setuid (getuid ()); |
7480
e96f67e55921
(main): PRIO_PROCESS renamed to SET_EMACS_PRIORITY.
Richard M. Stallman <rms@gnu.org>
parents:
7223
diff
changeset
|
529 #endif /* SET_EMACS_PRIORITY */ |
284 | 530 |
6778
a4a33206aee4
(main): Handle EXTRA_INITIALIZE.
Richard M. Stallman <rms@gnu.org>
parents:
6751
diff
changeset
|
531 #ifdef EXTRA_INITIALIZE |
6814
531d6d07096a
(main): Fix typo in prev. change.
Richard M. Stallman <rms@gnu.org>
parents:
6778
diff
changeset
|
532 EXTRA_INITIALIZE; |
6778
a4a33206aee4
(main): Handle EXTRA_INITIALIZE.
Richard M. Stallman <rms@gnu.org>
parents:
6751
diff
changeset
|
533 #endif |
a4a33206aee4
(main): Handle EXTRA_INITIALIZE.
Richard M. Stallman <rms@gnu.org>
parents:
6751
diff
changeset
|
534 |
284 | 535 inhibit_window_system = 0; |
536 | |
420 | 537 /* Handle the -t switch, which specifies filename to use as terminal */ |
9094 | 538 { |
539 char *term; | |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
540 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args)) |
9094 | 541 { |
542 int result; | |
543 close (0); | |
544 close (1); | |
545 result = open (term, O_RDWR, 2 ); | |
546 if (result < 0) | |
547 { | |
548 char *errstring = strerror (errno); | |
549 fprintf (stderr, "emacs: %s: %s\n", term, errstring); | |
550 exit (1); | |
551 } | |
552 dup (0); | |
553 if (! isatty (0)) | |
554 { | |
555 fprintf (stderr, "emacs: %s: not a tty\n", term); | |
556 exit (1); | |
557 } | |
558 fprintf (stderr, "Using %s\n", term); | |
559 #ifdef HAVE_X_WINDOWS | |
560 inhibit_window_system = 1; /* -t => -nw */ | |
561 #endif | |
562 } | |
563 } | |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
564 if (argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args)) |
9094 | 565 inhibit_window_system = 1; |
566 | |
567 /* Handle the -batch switch, which means don't do interactive display. */ | |
568 noninteractive = 0; | |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
569 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args)) |
9094 | 570 noninteractive = 1; |
571 | |
572 /* Handle the --help option, which gives a usage message.. */ | |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
573 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args)) |
284 | 574 { |
9094 | 575 printf ("\ |
576 Usage: %s [-t term] [--terminal term] [-nw] [--no-windows] [--batch]\n\ | |
577 [-q] [--no-init-file] [-u user] [--user user] [--debug-init]\n\ | |
12533 | 578 [--version] [--no-site-file]\n\ |
9094 | 579 [-f func] [--funcall func] [-l file] [--load file] [--insert file]\n\ |
12533 | 580 [+linenum] file-to-visit [--kill]\n", argv[0]); |
9094 | 581 exit (0); |
284 | 582 } |
583 | |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
584 #ifdef HAVE_X_WINDOWS |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
585 /* Stupid kludge to catch command-line display spec. We can't |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
586 handle this argument entirely in window system dependent code |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
587 because we don't even know which window system dependent code |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
588 to run until we've recognized this argument. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
589 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
590 char *displayname; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
591 int i; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
592 int count_before = skip_args; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
593 |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
594 if (argmatch (argv, argc, "-d", "--display", 3, &displayname, &skip_args)) |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
595 display_arg = 1; |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
596 else if (argmatch (argv, argc, "-display", 0, 3, &displayname, &skip_args)) |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
597 display_arg = 1; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
598 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
599 /* If we have the form --display=NAME, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
600 convert it into -d name. |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
601 This requires inserting a new element into argv. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
602 if (displayname != 0 && skip_args - count_before == 1) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
603 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
604 char **new = (char **) xmalloc (sizeof (char *) * (argc + 2)); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
605 int j; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
606 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
607 for (j = 0; j < count_before + 1; j++) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
608 new[j] = argv[j]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
609 new[count_before + 1] = "-d"; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
610 new[count_before + 2] = displayname; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
611 for (j = count_before + 2; j <argc; j++) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
612 new[j + 1] = argv[j]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
613 argv = new; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
614 argc++; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
615 } |
10172
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
616 /* Change --display to -d, when its arg is separate. */ |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
617 else if (displayname != 0 && skip_args > count_before |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
618 && argv[count_before + 1][1] == '-') |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
619 argv[count_before] = "-d"; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
620 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
621 /* Don't actually discard this arg. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
622 skip_args = count_before; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
623 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
624 #endif |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
625 |
7788
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
626 if (! noninteractive) |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
627 { |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
628 #ifdef BSD_PGRPS |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
629 if (initialized) |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
630 { |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
631 inherited_pgroup = EMACS_GETPGRP (0); |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
632 setpgrp (0, getpid ()); |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
633 } |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
634 #else |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
635 #if defined (USG5) && defined (INTERRUPT_INPUT) |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
636 setpgrp (); |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
637 #endif |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
638 #endif |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
639 } |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
640 |
348 | 641 #ifdef POSIX_SIGNALS |
642 init_signals (); | |
643 #endif | |
644 | |
284 | 645 if ( |
646 #ifndef CANNOT_DUMP | |
647 ! noninteractive || initialized | |
648 #else | |
649 1 | |
650 #endif | |
651 ) | |
652 { | |
653 /* Don't catch these signals in batch mode if not initialized. | |
654 On some machines, this sets static data that would make | |
655 signal fail to work right when the dumped Emacs is run. */ | |
656 signal (SIGHUP, fatal_error_signal); | |
657 signal (SIGQUIT, fatal_error_signal); | |
658 signal (SIGILL, fatal_error_signal); | |
659 signal (SIGTRAP, fatal_error_signal); | |
10388
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
660 #ifdef SIGABRT |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
661 signal (SIGABRT, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
662 #endif |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
663 #ifdef SIGHWE |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
664 signal (SIGHWE, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
665 #endif |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
666 #ifdef SIGPRE |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
667 signal (SIGPRE, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
668 #endif |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
669 #ifdef SIGORE |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
670 signal (SIGORE, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
671 #endif |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
672 #ifdef SIGUME |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
673 signal (SIGUME, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
674 #endif |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
675 #ifdef SIGDLK |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
676 signal (SIGDLK, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
677 #endif |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
678 #ifdef SIGCPULIM |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
679 signal (SIGCPULIM, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
680 #endif |
2118
454228f1c526
* emacs.c (__do_global_ctors, __do_global_ctors_aux,
Jim Blandy <jimb@redhat.com>
parents:
1945
diff
changeset
|
681 #ifdef SIGIOT |
454228f1c526
* emacs.c (__do_global_ctors, __do_global_ctors_aux,
Jim Blandy <jimb@redhat.com>
parents:
1945
diff
changeset
|
682 /* This is missing on some systems - OS/2, for example. */ |
284 | 683 signal (SIGIOT, fatal_error_signal); |
2118
454228f1c526
* emacs.c (__do_global_ctors, __do_global_ctors_aux,
Jim Blandy <jimb@redhat.com>
parents:
1945
diff
changeset
|
684 #endif |
284 | 685 #ifdef SIGEMT |
686 signal (SIGEMT, fatal_error_signal); | |
687 #endif | |
688 signal (SIGFPE, fatal_error_signal); | |
2913
409c1022bad5
Some changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
2674
diff
changeset
|
689 #ifdef SIGBUS |
284 | 690 signal (SIGBUS, fatal_error_signal); |
2913
409c1022bad5
Some changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
2674
diff
changeset
|
691 #endif |
284 | 692 signal (SIGSEGV, fatal_error_signal); |
2913
409c1022bad5
Some changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
2674
diff
changeset
|
693 #ifdef SIGSYS |
284 | 694 signal (SIGSYS, fatal_error_signal); |
2913
409c1022bad5
Some changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
2674
diff
changeset
|
695 #endif |
284 | 696 signal (SIGTERM, fatal_error_signal); |
697 #ifdef SIGXCPU | |
698 signal (SIGXCPU, fatal_error_signal); | |
699 #endif | |
700 #ifdef SIGXFSZ | |
701 signal (SIGXFSZ, fatal_error_signal); | |
702 #endif /* SIGXFSZ */ | |
703 | |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
704 #ifdef SIGDANGER |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
705 /* This just means available memory is getting low. */ |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
706 signal (SIGDANGER, memory_warning_signal); |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
707 #endif |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
708 |
284 | 709 #ifdef AIX |
5794
9d324422db4c
(main) [AIX]: Don't handle signal 20, 21 or 22.
Richard M. Stallman <rms@gnu.org>
parents:
5763
diff
changeset
|
710 /* 20 is SIGCHLD, 21 is SIGTTIN, 22 is SIGTTOU. */ |
9d324422db4c
(main) [AIX]: Don't handle signal 20, 21 or 22.
Richard M. Stallman <rms@gnu.org>
parents:
5763
diff
changeset
|
711 signal (SIGXCPU, fatal_error_signal); |
3320
8995a815f92f
(main) [AIX _I386]: Don't handle SIGIOINT.
Richard M. Stallman <rms@gnu.org>
parents:
3273
diff
changeset
|
712 #ifndef _I386 |
284 | 713 signal (SIGIOINT, fatal_error_signal); |
3320
8995a815f92f
(main) [AIX _I386]: Don't handle SIGIOINT.
Richard M. Stallman <rms@gnu.org>
parents:
3273
diff
changeset
|
714 #endif |
284 | 715 signal (SIGGRANT, fatal_error_signal); |
716 signal (SIGRETRACT, fatal_error_signal); | |
717 signal (SIGSOUND, fatal_error_signal); | |
718 signal (SIGMSG, fatal_error_signal); | |
719 #endif /* AIX */ | |
720 } | |
721 | |
722 noninteractive1 = noninteractive; | |
723 | |
724 /* Perform basic initializations (not merely interning symbols) */ | |
725 | |
726 if (!initialized) | |
727 { | |
728 init_alloc_once (); | |
729 init_obarray (); | |
730 init_eval_once (); | |
731 init_syntax_once (); /* Create standard syntax table. */ | |
732 /* Must be done before init_buffer */ | |
733 init_casetab_once (); | |
734 init_buffer_once (); /* Create buffer table and some buffers */ | |
735 init_minibuf_once (); /* Create list of minibuffers */ | |
736 /* Must precede init_window_once */ | |
737 init_window_once (); /* Init the window system */ | |
738 } | |
739 | |
740 init_alloc (); | |
741 init_eval (); | |
742 init_data (); | |
10032
f689803caa92
Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents:
10029
diff
changeset
|
743 running_asynch_code = 0; |
1917
2ed00cbd9e53
* callproc.c (init_callproc): Move the initialization of
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
744 |
5493
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
745 #ifdef MSDOS |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
746 /* Call early 'cause init_environment needs it. */ |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
747 init_dosfns (); |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
748 /* Set defaults for several environment variables. */ |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
749 if (initialized) init_environment (argc, argv, skip_args); |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
750 #endif |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
751 |
1917
2ed00cbd9e53
* callproc.c (init_callproc): Move the initialization of
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
752 /* egetenv is a pretty low-level facility, which may get called in |
2ed00cbd9e53
* callproc.c (init_callproc): Move the initialization of
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
753 many circumstances; it seems flimsy to put off initializing it |
2ed00cbd9e53
* callproc.c (init_callproc): Move the initialization of
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
754 until calling init_callproc. */ |
2ed00cbd9e53
* callproc.c (init_callproc): Move the initialization of
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
755 set_process_environment (); |
5364
99b5ca69dea7
(main) [AIX]: Call putenv.
Richard M. Stallman <rms@gnu.org>
parents:
5236
diff
changeset
|
756 /* AIX crashes are reported in system versions 3.2.3 and 3.2.4 |
99b5ca69dea7
(main) [AIX]: Call putenv.
Richard M. Stallman <rms@gnu.org>
parents:
5236
diff
changeset
|
757 if this is not done. Do it after set_process_environment so that we |
99b5ca69dea7
(main) [AIX]: Call putenv.
Richard M. Stallman <rms@gnu.org>
parents:
5236
diff
changeset
|
758 don't pollute Vprocess_environment. */ |
99b5ca69dea7
(main) [AIX]: Call putenv.
Richard M. Stallman <rms@gnu.org>
parents:
5236
diff
changeset
|
759 #ifdef AIX |
99b5ca69dea7
(main) [AIX]: Call putenv.
Richard M. Stallman <rms@gnu.org>
parents:
5236
diff
changeset
|
760 putenv ("LANG=C"); |
99b5ca69dea7
(main) [AIX]: Call putenv.
Richard M. Stallman <rms@gnu.org>
parents:
5236
diff
changeset
|
761 #endif |
1917
2ed00cbd9e53
* callproc.c (init_callproc): Move the initialization of
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
762 |
4484
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
763 init_buffer (); /* Init default directory of main buffer */ |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
764 |
5155
3fcc21b4f083
(main): Call init_callproc and init_callproc_1.
Richard M. Stallman <rms@gnu.org>
parents:
4957
diff
changeset
|
765 init_callproc_1 (); /* Must precede init_cmdargs and init_sys_modes. */ |
4484
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
766 init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */ |
5155
3fcc21b4f083
(main): Call init_callproc and init_callproc_1.
Richard M. Stallman <rms@gnu.org>
parents:
4957
diff
changeset
|
767 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */ |
348 | 768 init_lread (); |
284 | 769 |
770 if (!noninteractive) | |
771 { | |
772 #ifdef VMS | |
763 | 773 init_vms_input ();/* init_display calls get_frame_size, that needs this */ |
284 | 774 #endif /* VMS */ |
775 init_display (); /* Determine terminal type. init_sys_modes uses results */ | |
776 } | |
777 init_keyboard (); /* This too must precede init_sys_modes */ | |
778 #ifdef VMS | |
779 init_vmsproc (); /* And this too. */ | |
780 #endif /* VMS */ | |
781 init_sys_modes (); /* Init system terminal modes (RAW or CBREAK, etc.) */ | |
782 init_xdisp (); | |
783 init_macros (); | |
784 init_editfns (); | |
785 #ifdef LISP_FLOAT_TYPE | |
786 init_floatfns (); | |
787 #endif | |
788 #ifdef VMS | |
789 init_vmsfns (); | |
790 #endif /* VMS */ | |
791 init_process (); | |
624 | 792 #ifdef CLASH_DETECTION |
793 init_filelock (); | |
794 #endif /* CLASH_DETECTION */ | |
284 | 795 |
796 /* Intern the names of all standard functions and variables; define standard keys */ | |
797 | |
798 if (!initialized) | |
799 { | |
800 /* The basic levels of Lisp must come first */ | |
801 /* And data must come first of all | |
802 for the sake of symbols like error-message */ | |
803 syms_of_data (); | |
804 syms_of_alloc (); | |
348 | 805 syms_of_lread (); |
284 | 806 syms_of_print (); |
807 syms_of_eval (); | |
808 syms_of_fns (); | |
809 syms_of_floatfns (); | |
810 | |
811 syms_of_abbrev (); | |
812 syms_of_buffer (); | |
813 syms_of_bytecode (); | |
814 syms_of_callint (); | |
815 syms_of_casefiddle (); | |
816 syms_of_casetab (); | |
817 syms_of_callproc (); | |
818 syms_of_cmds (); | |
819 #ifndef NO_DIR_LIBRARY | |
820 syms_of_dired (); | |
821 #endif /* not NO_DIR_LIBRARY */ | |
822 syms_of_display (); | |
823 syms_of_doc (); | |
824 syms_of_editfns (); | |
825 syms_of_emacs (); | |
826 syms_of_fileio (); | |
827 #ifdef CLASH_DETECTION | |
828 syms_of_filelock (); | |
829 #endif /* CLASH_DETECTION */ | |
830 syms_of_indent (); | |
831 syms_of_keyboard (); | |
832 syms_of_keymap (); | |
833 syms_of_macros (); | |
834 syms_of_marker (); | |
835 syms_of_minibuf (); | |
836 syms_of_mocklisp (); | |
837 syms_of_process (); | |
838 syms_of_search (); | |
763 | 839 syms_of_frame (); |
284 | 840 syms_of_syntax (); |
6751 | 841 syms_of_term (); |
284 | 842 syms_of_undo (); |
1284 | 843 |
844 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ | |
845 syms_of_textprop (); | |
284 | 846 #ifdef VMS |
847 syms_of_vmsproc (); | |
848 #endif /* VMS */ | |
849 syms_of_window (); | |
850 syms_of_xdisp (); | |
851 #ifdef HAVE_X_WINDOWS | |
375 | 852 syms_of_xterm (); |
284 | 853 syms_of_xfns (); |
2392
319c8db6eb51
(main): Call syms_of_xfaces.
Richard M. Stallman <rms@gnu.org>
parents:
2313
diff
changeset
|
854 syms_of_xfaces (); |
375 | 855 #ifdef HAVE_X11 |
856 syms_of_xselect (); | |
857 #endif | |
1821
04fb1d3d6992
JimB's changes since January 18th
Jim Blandy <jimb@redhat.com>
parents:
1774
diff
changeset
|
858 #ifdef HAVE_X_MENU |
284 | 859 syms_of_xmenu (); |
860 #endif /* HAVE_X_MENU */ | |
861 #endif /* HAVE_X_WINDOWS */ | |
862 | |
9572 | 863 #if defined (MSDOS) && !defined (HAVE_X_WINDOWS) |
864 syms_of_xfaces (); | |
865 syms_of_xmenu (); | |
866 #endif | |
867 | |
284 | 868 #ifdef SYMS_SYSTEM |
869 SYMS_SYSTEM; | |
870 #endif | |
871 | |
872 #ifdef SYMS_MACHINE | |
873 SYMS_MACHINE; | |
874 #endif | |
875 | |
876 keys_of_casefiddle (); | |
877 keys_of_cmds (); | |
878 keys_of_buffer (); | |
879 keys_of_keyboard (); | |
880 keys_of_keymap (); | |
881 keys_of_macros (); | |
882 keys_of_minibuf (); | |
883 keys_of_window (); | |
1384
416f7f33fe95
* emacs.c (main): Call keys_of_frame.
Jim Blandy <jimb@redhat.com>
parents:
1350
diff
changeset
|
884 keys_of_frame (); |
284 | 885 } |
886 | |
887 if (!initialized) | |
888 { | |
9094 | 889 char *file; |
284 | 890 /* Handle -l loadup-and-dump, args passed by Makefile. */ |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
891 if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args)) |
284 | 892 Vtop_level = Fcons (intern ("load"), |
9094 | 893 Fcons (build_string (file), Qnil)); |
284 | 894 #ifdef CANNOT_DUMP |
895 /* Unless next switch is -nl, load "loadup.el" first thing. */ | |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
896 if (!argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args)) |
284 | 897 Vtop_level = Fcons (intern ("load"), |
898 Fcons (build_string ("loadup.el"), Qnil)); | |
899 #endif /* CANNOT_DUMP */ | |
900 } | |
901 | |
11195
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
902 if (initialized) |
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
903 { |
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
904 /* Erase any pre-dump messages in the message log, to avoid confusion */ |
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
905 Lisp_Object old_log_max; |
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
906 old_log_max = Vmessage_log_max; |
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
907 XSETFASTINT (Vmessage_log_max, 0); |
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
908 message_dolog ("", 0, 1); |
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
909 Vmessage_log_max = old_log_max; |
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
910 } |
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
911 |
284 | 912 initialized = 1; |
913 | |
4303
fd9865b5a41e
(main): Test LOCALTIME_CACHE.
Richard M. Stallman <rms@gnu.org>
parents:
3932
diff
changeset
|
914 #if defined (sun) || defined (LOCALTIME_CACHE) |
fd9865b5a41e
(main): Test LOCALTIME_CACHE.
Richard M. Stallman <rms@gnu.org>
parents:
3932
diff
changeset
|
915 /* sun's localtime has a bug. it caches the value of the time |
815 | 916 zone rather than looking it up every time. Since localtime() is |
917 called to bolt the undumping time into the undumped emacs, this | |
4303
fd9865b5a41e
(main): Test LOCALTIME_CACHE.
Richard M. Stallman <rms@gnu.org>
parents:
3932
diff
changeset
|
918 results in localtime ignoring the TZ environment variable. |
fd9865b5a41e
(main): Test LOCALTIME_CACHE.
Richard M. Stallman <rms@gnu.org>
parents:
3932
diff
changeset
|
919 This flushes the new TZ value into localtime. */ |
fd9865b5a41e
(main): Test LOCALTIME_CACHE.
Richard M. Stallman <rms@gnu.org>
parents:
3932
diff
changeset
|
920 tzset (); |
fd9865b5a41e
(main): Test LOCALTIME_CACHE.
Richard M. Stallman <rms@gnu.org>
parents:
3932
diff
changeset
|
921 #endif /* defined (sun) || defined (LOCALTIME_CACHE) */ |
815 | 922 |
284 | 923 /* Enter editor command loop. This never returns. */ |
924 Frecursive_edit (); | |
925 /* NOTREACHED */ | |
926 } | |
927 | |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
928 /* Sort the args so we can find the most important ones |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
929 at the beginning of argv. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
930 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
931 /* First, here's a table of all the standard options. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
932 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
933 struct standard_args |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
934 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
935 char *name; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
936 char *longname; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
937 int priority; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
938 int nargs; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
939 }; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
940 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
941 struct standard_args standard_args[] = |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
942 { |
11634
820eaef29fae
(main): Delete duplicate code for -version.
Richard M. Stallman <rms@gnu.org>
parents:
11629
diff
changeset
|
943 { "-version", "--version", 110, 0 }, |
820eaef29fae
(main): Delete duplicate code for -version.
Richard M. Stallman <rms@gnu.org>
parents:
11629
diff
changeset
|
944 { "-help", "--help", 110, 0 }, |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
945 { "-nl", "--no-shared-memory", 100, 0 }, |
11629
bae8a831397f
(standard_args): Add #ifdef VMS for -map.
Richard M. Stallman <rms@gnu.org>
parents:
11623
diff
changeset
|
946 #ifdef VMS |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
947 { "-map", "--map-data", 100, 0 }, |
11629
bae8a831397f
(standard_args): Add #ifdef VMS for -map.
Richard M. Stallman <rms@gnu.org>
parents:
11623
diff
changeset
|
948 #endif |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
949 { "-t", "--terminal", 90, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
950 { "-d", "--display", 80, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
951 { "-display", 0, 80, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
952 { "-nw", "--no-windows", 70, 0 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
953 { "-batch", "--batch", 60, 0 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
954 { "-q", "--no-init-file", 50, 0 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
955 { "-no-init-file", 0, 50, 0 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
956 { "-no-site-file", "--no-site-file", 40, 0 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
957 { "-u", "--user", 30, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
958 { "-user", 0, 30, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
959 { "-debug-init", "--debug-init", 20, 0 }, |
11931
3a2442baa290
(standard_args): -i, -itype, --icon-type take 0, not 1, args
Karl Heuer <kwzh@gnu.org>
parents:
11846
diff
changeset
|
960 { "-i", "--icon-type", 15, 0 }, |
3a2442baa290
(standard_args): -i, -itype, --icon-type take 0, not 1, args
Karl Heuer <kwzh@gnu.org>
parents:
11846
diff
changeset
|
961 { "-itype", 0, 15, 0 }, |
11596
b59f90606227
(standard_args): Move -iconic and --icon-type (etc.)
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
962 { "-iconic", "--iconic", 15, 0 }, |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
963 { "-bg", "--background-color", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
964 { "-background", 0, 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
965 { "-fg", "--foreground-color", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
966 { "-foreground", 0, 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
967 { "-bd", "--border-color", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
968 { "-bw", "--border-width", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
969 { "-ib", "--internal-border", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
970 { "-ms", "--mouse-color", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
971 { "-cr", "--cursor-color", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
972 { "-fn", "--font", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
973 { "-font", 0, 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
974 { "-g", "--geometry", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
975 { "-geometry", 0, 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
976 { "-T", "--title", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
977 { "-name", "--name", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
978 { "-xrm", "--xrm", 10, 1 }, |
10517
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
979 { "-r", "--reverse-video", 5, 0 }, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
980 { "-rv", 0, 5, 0 }, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
981 { "-reverse", 0, 5, 0 }, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
982 { "-vb", "--vertical-scroll-bars", 5, 0 }, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
983 /* These have the same priority as ordinary file name args, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
984 so they are not reordered with respect to those. */ |
11623
584362605c5e
(standard_args): Add -L/--directory/-directory.
Richard M. Stallman <rms@gnu.org>
parents:
11596
diff
changeset
|
985 { "-L", "--directory", 0, 1 }, |
584362605c5e
(standard_args): Add -L/--directory/-directory.
Richard M. Stallman <rms@gnu.org>
parents:
11596
diff
changeset
|
986 { "-directory", 0, 0, 1 }, |
10517
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
987 { "-l", "--load", 0, 1 }, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
988 { "-load", 0, 0, 1 }, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
989 { "-f", "--funcall", 0, 1 }, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
990 { "-funcall", 0, 0, 1 }, |
12851
89d5e3a554de
(standard_args): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12848
diff
changeset
|
991 { "-eval", "--eval", 0, 1 }, |
10517
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
992 { "-insert", "--insert", 0, 1 }, |
11596
b59f90606227
(standard_args): Move -iconic and --icon-type (etc.)
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
993 /* This should be processed after ordinary file name args and the like. */ |
10517
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
994 { "-kill", "--kill", -10, 0 }, |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
995 }; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
996 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
997 /* Reorder the elements of ARGV (assumed to have ARGC elements) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
998 so that the highest priority ones come first. |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
999 Do not change the order of elements of equal priority. |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1000 If an option takes an argument, keep it and its argument together. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1001 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1002 static void |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1003 sort_args (argc, argv) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1004 int argc; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1005 char **argv; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1006 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1007 char **new = (char **) xmalloc (sizeof (char *) * argc); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1008 /* For each element of argv, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1009 the corresponding element of options is: |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1010 0 for an option that takes no arguments, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1011 1 for an option that takes one argument, etc. |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1012 -1 for an ordinary non-option argument. */ |
10150
d8fb9db90d8e
(sort_args): Make `options' a vector of ints.
Richard M. Stallman <rms@gnu.org>
parents:
10111
diff
changeset
|
1013 int *options = (int *) xmalloc (sizeof (int) * argc); |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1014 int *priority = (int *) xmalloc (sizeof (int) * argc); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1015 int to = 1; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1016 int from; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1017 int i; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1018 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1019 /* Categorize all the options, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1020 and figure out which argv elts are option arguments. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1021 for (from = 1; from < argc; from++) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1022 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1023 options[from] = -1; |
10517
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
1024 priority[from] = 0; |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1025 if (argv[from][0] == '-') |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1026 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1027 int match, thislen; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1028 char *equals; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1029 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1030 /* Look for a match with a known old-fashioned option. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1031 for (i = 0; i < sizeof (standard_args) / sizeof (standard_args[0]); i++) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1032 if (!strcmp (argv[from], standard_args[i].name)) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1033 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1034 options[from] = standard_args[i].nargs; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1035 priority[from] = standard_args[i].priority; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1036 from += standard_args[i].nargs; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1037 goto done; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1038 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1039 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1040 /* Look for a match with a known long option. |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1041 MATCH is -1 if no match so far, -2 if two or more matches so far, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1042 >= 0 (the table index of the match) if just one match so far. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1043 if (argv[from][1] == '-') |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1044 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1045 match = -1; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1046 thislen = strlen (argv[from]); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1047 equals = index (argv[from], '='); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1048 if (equals != 0) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1049 thislen = equals - argv[from]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1050 |
11157
620fd38579d8
(sort_args): Skip strncmp if longname is a null pointer.
Karl Heuer <kwzh@gnu.org>
parents:
11076
diff
changeset
|
1051 for (i = 0; |
620fd38579d8
(sort_args): Skip strncmp if longname is a null pointer.
Karl Heuer <kwzh@gnu.org>
parents:
11076
diff
changeset
|
1052 i < sizeof (standard_args) / sizeof (standard_args[0]); i++) |
620fd38579d8
(sort_args): Skip strncmp if longname is a null pointer.
Karl Heuer <kwzh@gnu.org>
parents:
11076
diff
changeset
|
1053 if (standard_args[i].longname |
620fd38579d8
(sort_args): Skip strncmp if longname is a null pointer.
Karl Heuer <kwzh@gnu.org>
parents:
11076
diff
changeset
|
1054 && !strncmp (argv[from], standard_args[i].longname, |
620fd38579d8
(sort_args): Skip strncmp if longname is a null pointer.
Karl Heuer <kwzh@gnu.org>
parents:
11076
diff
changeset
|
1055 thislen)) |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1056 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1057 if (match == -1) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1058 match = i; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1059 else |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1060 match = -2; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1061 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1062 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1063 /* If we found exactly one match, use that. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1064 if (match >= 0) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1065 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1066 options[from] = standard_args[match].nargs; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1067 priority[from] = standard_args[match].priority; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1068 /* If --OPTION=VALUE syntax is used, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1069 this option uses just one argv element. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1070 if (equals != 0) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1071 options[from] = 0; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1072 from += options[from]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1073 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1074 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1075 done: ; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1076 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1077 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1078 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1079 /* Copy the arguments, in order of decreasing priority, to NEW. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1080 new[0] = argv[0]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1081 while (to < argc) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1082 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1083 int best = -1; |
12861
c67a46e4fcef
(sort_args): Initialize best_priority smaller than any
Karl Heuer <kwzh@gnu.org>
parents:
12851
diff
changeset
|
1084 int best_priority = -9999; |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1085 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1086 /* Find the highest priority remaining option. |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1087 If several have equal priority, take the first of them. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1088 for (from = 1; from < argc; from++) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1089 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1090 if (argv[from] != 0 && priority[from] > best_priority) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1091 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1092 best_priority = priority[from]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1093 best = from; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1094 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1095 /* Skip option arguments--they are tied to the options. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1096 if (options[from] > 0) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1097 from += options[from]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1098 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1099 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1100 if (best < 0) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1101 abort (); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1102 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1103 /* Copy the highest priority remaining option, with its args, to NEW. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1104 new[to++] = argv[best]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1105 for (i = 0; i < options[best]; i++) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1106 new[to++] = argv[best + i + 1]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1107 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1108 /* Clear out this option in ARGV. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1109 argv[best] = 0; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1110 for (i = 0; i < options[best]; i++) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1111 argv[best + i + 1] = 0; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1112 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1113 |
10150
d8fb9db90d8e
(sort_args): Make `options' a vector of ints.
Richard M. Stallman <rms@gnu.org>
parents:
10111
diff
changeset
|
1114 bcopy (new, argv, sizeof (char *) * argc); |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1115 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1116 |
284 | 1117 DEFUN ("kill-emacs", Fkill_emacs, Skill_emacs, 0, 1, "P", |
1043
ee6f647ac103
* emacs.c: Incude "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1004
diff
changeset
|
1118 "Exit the Emacs job and kill it.\n\ |
284 | 1119 If ARG is an integer, return ARG as the exit program code.\n\ |
1120 If ARG is a string, stuff it as keyboard input.\n\n\ | |
1121 The value of `kill-emacs-hook', if not void,\n\ | |
1122 is a list of functions (of no args),\n\ | |
1123 all of which are called before Emacs is actually killed.") | |
1124 (arg) | |
1125 Lisp_Object arg; | |
1126 { | |
1127 Lisp_Object hook, hook1; | |
1128 int i; | |
1129 struct gcpro gcpro1; | |
1130 | |
1131 GCPRO1 (arg); | |
1132 | |
1133 if (feof (stdin)) | |
1134 arg = Qt; | |
1135 | |
505 | 1136 if (!NILP (Vrun_hooks) && !noninteractive) |
284 | 1137 call1 (Vrun_hooks, intern ("kill-emacs-hook")); |
1138 | |
1139 UNGCPRO; | |
1140 | |
1141 /* Is it really necessary to do this deassign | |
1142 when we are going to exit anyway? */ | |
1143 /* #ifdef VMS | |
1144 stop_vms_input (); | |
1145 #endif */ | |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1146 |
3837
85652925d5b8
* emacs.c (Fkill_emacs): Pass third argument to shut_down_emacs.
Jim Blandy <jimb@redhat.com>
parents:
3826
diff
changeset
|
1147 shut_down_emacs (0, 0, STRINGP (arg) ? arg : Qnil); |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1148 |
11846
778a35aba3f7
(Fkill_emacs): Delete the auto-save-list file
Karl Heuer <kwzh@gnu.org>
parents:
11841
diff
changeset
|
1149 /* If we have an auto-save list file, |
778a35aba3f7
(Fkill_emacs): Delete the auto-save-list file
Karl Heuer <kwzh@gnu.org>
parents:
11841
diff
changeset
|
1150 kill it because we are exiting Emacs deliberately (not crashing). |
778a35aba3f7
(Fkill_emacs): Delete the auto-save-list file
Karl Heuer <kwzh@gnu.org>
parents:
11841
diff
changeset
|
1151 Do it after shut_down_emacs, which does an auto-save. */ |
778a35aba3f7
(Fkill_emacs): Delete the auto-save-list file
Karl Heuer <kwzh@gnu.org>
parents:
11841
diff
changeset
|
1152 if (STRINGP (Vauto_save_list_file_name)) |
778a35aba3f7
(Fkill_emacs): Delete the auto-save-list file
Karl Heuer <kwzh@gnu.org>
parents:
11841
diff
changeset
|
1153 unlink (XSTRING (Vauto_save_list_file_name)->data); |
778a35aba3f7
(Fkill_emacs): Delete the auto-save-list file
Karl Heuer <kwzh@gnu.org>
parents:
11841
diff
changeset
|
1154 |
9132
b2ca75d3a5cb
(Fkill_emacs): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents:
9094
diff
changeset
|
1155 exit (INTEGERP (arg) ? XINT (arg) |
284 | 1156 #ifdef VMS |
1157 : 1 | |
1158 #else | |
1159 : 0 | |
1160 #endif | |
1161 ); | |
1162 /* NOTREACHED */ | |
1163 } | |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1164 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1165 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1166 /* Perform an orderly shutdown of Emacs. Autosave any modified |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1167 buffers, kill any child processes, clean up the terminal modes (if |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1168 we're in the foreground), and other stuff like that. Don't perform |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1169 any redisplay; this may be called when Emacs is shutting down in |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1170 the background, or after its X connection has died. |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1171 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1172 If SIG is a signal number, print a message for it. |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1173 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1174 This is called by fatal signal handlers, X protocol error handlers, |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1175 and Fkill_emacs. */ |
3711
5acf09035d16
(shut_down_emacs): New arg STUFF. Stuff input here.
Richard M. Stallman <rms@gnu.org>
parents:
3655
diff
changeset
|
1176 |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1177 void |
3711
5acf09035d16
(shut_down_emacs): New arg STUFF. Stuff input here.
Richard M. Stallman <rms@gnu.org>
parents:
3655
diff
changeset
|
1178 shut_down_emacs (sig, no_x, stuff) |
3273
a5e5e1e04331
Don't include termios.h directly--let systty.h do it.
Richard M. Stallman <rms@gnu.org>
parents:
3187
diff
changeset
|
1179 int sig, no_x; |
3711
5acf09035d16
(shut_down_emacs): New arg STUFF. Stuff input here.
Richard M. Stallman <rms@gnu.org>
parents:
3655
diff
changeset
|
1180 Lisp_Object stuff; |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1181 { |
6210
dcc7759634d8
(shut_down_emacs): Set Vrun_hooks to nil.
Richard M. Stallman <rms@gnu.org>
parents:
6171
diff
changeset
|
1182 /* Prevent running of hooks from now on. */ |
dcc7759634d8
(shut_down_emacs): Set Vrun_hooks to nil.
Richard M. Stallman <rms@gnu.org>
parents:
6171
diff
changeset
|
1183 Vrun_hooks = Qnil; |
dcc7759634d8
(shut_down_emacs): Set Vrun_hooks to nil.
Richard M. Stallman <rms@gnu.org>
parents:
6171
diff
changeset
|
1184 |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1185 /* If we are controlling the terminal, reset terminal modes */ |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1186 #ifdef EMACS_HAVE_TTY_PGRP |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1187 { |
4957
dccce35b1173
(main): Use EMACS_GETPGRP macro.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
1188 int pgrp = EMACS_GETPGRP (0); |
dccce35b1173
(main): Use EMACS_GETPGRP macro.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
1189 |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1190 int tpgrp; |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1191 if (EMACS_GET_TTY_PGRP (0, &tpgrp) != -1 |
3826
647bef18618f
Changes for Irix 4.0, tested this time:
Jim Blandy <jimb@redhat.com>
parents:
3801
diff
changeset
|
1192 && tpgrp == pgrp) |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1193 { |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1194 fflush (stdout); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1195 reset_sys_modes (); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1196 if (sig && sig != SIGTERM) |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1197 fprintf (stderr, "Fatal error (%d).", sig); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1198 } |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1199 } |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1200 #else |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1201 fflush (stdout); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1202 reset_sys_modes (); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1203 #endif |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1204 |
3711
5acf09035d16
(shut_down_emacs): New arg STUFF. Stuff input here.
Richard M. Stallman <rms@gnu.org>
parents:
3655
diff
changeset
|
1205 stuff_buffered_input (stuff); |
5acf09035d16
(shut_down_emacs): New arg STUFF. Stuff input here.
Richard M. Stallman <rms@gnu.org>
parents:
3655
diff
changeset
|
1206 |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1207 kill_buffer_processes (Qnil); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1208 Fdo_auto_save (Qt, Qnil); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1209 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1210 #ifdef CLASH_DETECTION |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1211 unlock_all_files (); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1212 #endif |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1213 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1214 #ifdef VMS |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1215 kill_vms_processes (); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1216 #endif |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1217 |
8815
b1766995a504
(shut_down_emacs): Don't call Fx_close_current_connection.
Richard M. Stallman <rms@gnu.org>
parents:
8704
diff
changeset
|
1218 #if 0 /* This triggers a bug in XCloseDisplay and is not needed. */ |
3273
a5e5e1e04331
Don't include termios.h directly--let systty.h do it.
Richard M. Stallman <rms@gnu.org>
parents:
3187
diff
changeset
|
1219 #ifdef HAVE_X_WINDOWS |
7538
c4d128d26fc9
(syms_of_emacs): EMACS_CONFIGURATION renamed from CONFIGURATION.
Richard M. Stallman <rms@gnu.org>
parents:
7480
diff
changeset
|
1220 /* It's not safe to call intern here. Maybe we are crashing. */ |
c4d128d26fc9
(syms_of_emacs): EMACS_CONFIGURATION renamed from CONFIGURATION.
Richard M. Stallman <rms@gnu.org>
parents:
7480
diff
changeset
|
1221 if (!noninteractive && SYMBOLP (Vwindow_system) |
c4d128d26fc9
(syms_of_emacs): EMACS_CONFIGURATION renamed from CONFIGURATION.
Richard M. Stallman <rms@gnu.org>
parents:
7480
diff
changeset
|
1222 && XSYMBOL (Vwindow_system)->name->size == 1 |
c4d128d26fc9
(syms_of_emacs): EMACS_CONFIGURATION renamed from CONFIGURATION.
Richard M. Stallman <rms@gnu.org>
parents:
7480
diff
changeset
|
1223 && XSYMBOL (Vwindow_system)->name->data[0] == 'x' |
c4d128d26fc9
(syms_of_emacs): EMACS_CONFIGURATION renamed from CONFIGURATION.
Richard M. Stallman <rms@gnu.org>
parents:
7480
diff
changeset
|
1224 && ! no_x) |
3273
a5e5e1e04331
Don't include termios.h directly--let systty.h do it.
Richard M. Stallman <rms@gnu.org>
parents:
3187
diff
changeset
|
1225 Fx_close_current_connection (); |
a5e5e1e04331
Don't include termios.h directly--let systty.h do it.
Richard M. Stallman <rms@gnu.org>
parents:
3187
diff
changeset
|
1226 #endif /* HAVE_X_WINDOWS */ |
8815
b1766995a504
(shut_down_emacs): Don't call Fx_close_current_connection.
Richard M. Stallman <rms@gnu.org>
parents:
8704
diff
changeset
|
1227 #endif |
3273
a5e5e1e04331
Don't include termios.h directly--let systty.h do it.
Richard M. Stallman <rms@gnu.org>
parents:
3187
diff
changeset
|
1228 |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1229 #ifdef SIGIO |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1230 /* There is a tendency for a SIGIO signal to arrive within exit, |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1231 and cause a SIGHUP because the input descriptor is already closed. */ |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1232 unrequest_sigio (); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1233 signal (SIGIO, SIG_IGN); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1234 #endif |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1235 } |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1236 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1237 |
284 | 1238 |
1239 #ifndef CANNOT_DUMP | |
1240 | |
1241 #ifdef HAVE_SHM | |
1242 | |
1243 DEFUN ("dump-emacs-data", Fdump_emacs_data, Sdump_emacs_data, 1, 1, 0, | |
1244 "Dump current state of Emacs into data file FILENAME.\n\ | |
1245 This function exists on systems that use HAVE_SHM.") | |
1246 (intoname) | |
1247 Lisp_Object intoname; | |
1248 { | |
11076
9d2cb049844b
(dump-emacs-data, dump-emacs): Declare my_edata as char array.
Richard M. Stallman <rms@gnu.org>
parents:
10902
diff
changeset
|
1249 extern char my_edata[]; |
284 | 1250 Lisp_Object tem; |
1251 | |
1252 CHECK_STRING (intoname, 0); | |
1253 intoname = Fexpand_file_name (intoname, Qnil); | |
1254 | |
1255 tem = Vpurify_flag; | |
1256 Vpurify_flag = Qnil; | |
1257 | |
1258 fflush (stdout); | |
1259 /* Tell malloc where start of impure now is */ | |
1260 /* Also arrange for warnings when nearly out of space. */ | |
1261 #ifndef SYSTEM_MALLOC | |
11720
f21ea087b1d8
Delete all APOLLO conditionals.
Richard M. Stallman <rms@gnu.org>
parents:
11634
diff
changeset
|
1262 memory_warnings (my_edata, malloc_warning); |
284 | 1263 #endif |
1264 map_out_data (XSTRING (intoname)->data); | |
1265 | |
1266 Vpurify_flag = tem; | |
1267 | |
1268 return Qnil; | |
1269 } | |
1270 | |
1271 #else /* not HAVE_SHM */ | |
1272 | |
1273 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0, | |
1274 "Dump current state of Emacs into executable file FILENAME.\n\ | |
1275 Take symbols from SYMFILE (presumably the file you executed to run Emacs).\n\ | |
1276 This is used in the file `loadup.el' when building Emacs.\n\ | |
1277 \n\ | |
1278 Bind `command-line-processed' to nil before dumping,\n\ | |
1279 if you want the dumped Emacs to process its command line\n\ | |
1280 and announce itself normally when it is run.") | |
1281 (intoname, symname) | |
1282 Lisp_Object intoname, symname; | |
1283 { | |
11076
9d2cb049844b
(dump-emacs-data, dump-emacs): Declare my_edata as char array.
Richard M. Stallman <rms@gnu.org>
parents:
10902
diff
changeset
|
1284 extern char my_edata[]; |
284 | 1285 Lisp_Object tem; |
1286 | |
1287 CHECK_STRING (intoname, 0); | |
1288 intoname = Fexpand_file_name (intoname, Qnil); | |
505 | 1289 if (!NILP (symname)) |
284 | 1290 { |
1291 CHECK_STRING (symname, 0); | |
1292 if (XSTRING (symname)->size) | |
1293 symname = Fexpand_file_name (symname, Qnil); | |
1294 } | |
1295 | |
1296 tem = Vpurify_flag; | |
1297 Vpurify_flag = Qnil; | |
1298 | |
1299 fflush (stdout); | |
1300 #ifdef VMS | |
1301 mapout_data (XSTRING (intoname)->data); | |
1302 #else | |
1303 /* Tell malloc where start of impure now is */ | |
1304 /* Also arrange for warnings when nearly out of space. */ | |
1305 #ifndef SYSTEM_MALLOC | |
9788
cfc5a79852e8
(Fdump_emacs): Don't reset the data start address by
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1306 #ifndef WINDOWSNT |
cfc5a79852e8
(Fdump_emacs): Don't reset the data start address by
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1307 /* On Windows, this was done before dumping, and that once suffices. |
cfc5a79852e8
(Fdump_emacs): Don't reset the data start address by
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1308 Meanwhile, my_edata is not valid on Windows. */ |
11756
7d21f64d2c0e
(Fdump_emacs): Don't use & before my_edata.
Richard M. Stallman <rms@gnu.org>
parents:
11720
diff
changeset
|
1309 memory_warnings (my_edata, malloc_warning); |
9788
cfc5a79852e8
(Fdump_emacs): Don't reset the data start address by
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1310 #endif /* not WINDOWSNT */ |
284 | 1311 #endif |
1312 unexec (XSTRING (intoname)->data, | |
11841
c93c1c56a8bb
(Fdump_emacs): Don't take address of array.
Karl Heuer <kwzh@gnu.org>
parents:
11806
diff
changeset
|
1313 !NILP (symname) ? XSTRING (symname)->data : 0, my_edata, 0, 0); |
284 | 1314 #endif /* not VMS */ |
1315 | |
1316 Vpurify_flag = tem; | |
1317 | |
1318 return Qnil; | |
1319 } | |
1320 | |
1321 #endif /* not HAVE_SHM */ | |
1322 | |
1323 #endif /* not CANNOT_DUMP */ | |
1324 | |
2649
3a9fb5d6d259
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2439
diff
changeset
|
1325 #ifndef SEPCHAR |
284 | 1326 #define SEPCHAR ':' |
1327 #endif | |
1328 | |
1329 Lisp_Object | |
1330 decode_env_path (evarname, defalt) | |
1331 char *evarname, *defalt; | |
1332 { | |
1333 register char *path, *p; | |
1334 | |
1335 Lisp_Object lpath; | |
1336 | |
505 | 1337 /* It's okay to use getenv here, because this function is only used |
1338 to initialize variables when Emacs starts up, and isn't called | |
1339 after that. */ | |
638 | 1340 if (evarname != 0) |
1341 path = (char *) getenv (evarname); | |
1342 else | |
1343 path = 0; | |
284 | 1344 if (!path) |
1345 path = defalt; | |
1346 lpath = Qnil; | |
1347 while (1) | |
1348 { | |
1349 p = index (path, SEPCHAR); | |
1350 if (!p) p = path + strlen (path); | |
1351 lpath = Fcons (p - path ? make_string (path, p - path) : Qnil, | |
1352 lpath); | |
1353 if (*p) | |
1354 path = p + 1; | |
1355 else | |
1356 break; | |
1357 } | |
1358 return Fnreverse (lpath); | |
1359 } | |
1360 | |
1361 syms_of_emacs () | |
1362 { | |
3187
0790b5563a66
(syms_of_emacs) [CANNOT_DUMP]: Don't defsubr Sdump_emacs*.
Richard M. Stallman <rms@gnu.org>
parents:
2961
diff
changeset
|
1363 #ifndef CANNOT_DUMP |
284 | 1364 #ifdef HAVE_SHM |
1365 defsubr (&Sdump_emacs_data); | |
1366 #else | |
1367 defsubr (&Sdump_emacs); | |
1368 #endif | |
3187
0790b5563a66
(syms_of_emacs) [CANNOT_DUMP]: Don't defsubr Sdump_emacs*.
Richard M. Stallman <rms@gnu.org>
parents:
2961
diff
changeset
|
1369 #endif |
284 | 1370 |
1371 defsubr (&Skill_emacs); | |
1372 | |
2279
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
1373 defsubr (&Sinvocation_name); |
4484
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
1374 defsubr (&Sinvocation_directory); |
2279
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
1375 |
284 | 1376 DEFVAR_LISP ("command-line-args", &Vcommand_line_args, |
1377 "Args passed by shell to Emacs, as a list of strings."); | |
1378 | |
1379 DEFVAR_LISP ("system-type", &Vsystem_type, | |
1380 "Value is symbol indicating type of operating system you are using."); | |
1381 Vsystem_type = intern (SYSTEM_TYPE); | |
1382 | |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
1383 DEFVAR_LISP ("system-configuration", &Vsystem_configuration, |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
1384 "Value is string indicating configuration Emacs was built for."); |
7538
c4d128d26fc9
(syms_of_emacs): EMACS_CONFIGURATION renamed from CONFIGURATION.
Richard M. Stallman <rms@gnu.org>
parents:
7480
diff
changeset
|
1385 Vsystem_configuration = build_string (EMACS_CONFIGURATION); |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
1386 |
8843
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
1387 DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options, |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
1388 "String containing the configuration options Emacs was built with."); |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
1389 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS); |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
1390 |
284 | 1391 DEFVAR_BOOL ("noninteractive", &noninteractive1, |
1392 "Non-nil means Emacs is running without interactive terminal."); | |
732 | 1393 |
1043
ee6f647ac103
* emacs.c: Incude "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1004
diff
changeset
|
1394 DEFVAR_LISP ("kill-emacs-hook", &Vkill_emacs_hook, |
ee6f647ac103
* emacs.c: Incude "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1004
diff
changeset
|
1395 "Hook to be run whenever kill-emacs is called.\n\ |
ee6f647ac103
* emacs.c: Incude "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1004
diff
changeset
|
1396 Since kill-emacs may be invoked when the terminal is disconnected (or\n\ |
ee6f647ac103
* emacs.c: Incude "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1004
diff
changeset
|
1397 in other similar situations), functions placed on this hook should not\n\ |
10902
a8ec3a55a1d9
(syms_of_emacs): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10664
diff
changeset
|
1398 expect to be able to interact with the user. To ask for confirmation,\n\ |
a8ec3a55a1d9
(syms_of_emacs): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
10664
diff
changeset
|
1399 see `kill-emacs-query-functions' instead."); |
732 | 1400 Vkill_emacs_hook = Qnil; |
1141
d4f6d7467916
(main): Use X menu code if HAVE_X_WINDOWS and not NO_X_MENU.
Richard M. Stallman <rms@gnu.org>
parents:
1074
diff
changeset
|
1401 |
d4f6d7467916
(main): Use X menu code if HAVE_X_WINDOWS and not NO_X_MENU.
Richard M. Stallman <rms@gnu.org>
parents:
1074
diff
changeset
|
1402 DEFVAR_INT ("emacs-priority", &emacs_priority, |
d4f6d7467916
(main): Use X menu code if HAVE_X_WINDOWS and not NO_X_MENU.
Richard M. Stallman <rms@gnu.org>
parents:
1074
diff
changeset
|
1403 "Priority for Emacs to run at.\n\ |
d4f6d7467916
(main): Use X menu code if HAVE_X_WINDOWS and not NO_X_MENU.
Richard M. Stallman <rms@gnu.org>
parents:
1074
diff
changeset
|
1404 This value is effective only if set before Emacs is dumped,\n\ |
d4f6d7467916
(main): Use X menu code if HAVE_X_WINDOWS and not NO_X_MENU.
Richard M. Stallman <rms@gnu.org>
parents:
1074
diff
changeset
|
1405 and only if the Emacs executable is installed with setuid to permit\n\ |
7163
299e6e1e5ae6
(syms_of_emacs): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents:
7003
diff
changeset
|
1406 it to change priority. (Emacs sets its uid back to the real uid.)\n\ |
7480
e96f67e55921
(main): PRIO_PROCESS renamed to SET_EMACS_PRIORITY.
Richard M. Stallman <rms@gnu.org>
parents:
7223
diff
changeset
|
1407 Currently, you need to define SET_EMACS_PRIORITY in `config.h'\n\ |
7164
d5927b5a3da1
Fix typo in previous change.
Richard M. Stallman <rms@gnu.org>
parents:
7163
diff
changeset
|
1408 before you compile Emacs, to enable the code for this feature."); |
1141
d4f6d7467916
(main): Use X menu code if HAVE_X_WINDOWS and not NO_X_MENU.
Richard M. Stallman <rms@gnu.org>
parents:
1074
diff
changeset
|
1409 emacs_priority = 0; |
2279
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
1410 |
7003
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1411 DEFVAR_LISP ("invocation-name", &Vinvocation_name, |
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1412 "The program name that was used to run Emacs.\n\ |
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1413 Any directory names are omitted."); |
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1414 |
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1415 DEFVAR_LISP ("invocation-directory", &Vinvocation_directory, |
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1416 "The directory in which the Emacs executable was found, to run it.\n\ |
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1417 The value is nil if that directory's name is not known."); |
6428
633b2d7d12df
(syms_of_emacs): Don't initialize Vinstallation_name
Richard M. Stallman <rms@gnu.org>
parents:
6210
diff
changeset
|
1418 |
7003
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1419 DEFVAR_LISP ("installation-directory", &Vinstallation_directory, |
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1420 "A directory within which to look for the `lib-src' and `etc' directories.\n\ |
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1421 This is non-nil when we can't find those directories in their standard\n\ |
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1422 installed locations, but we can find them\n\ |
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1423 near where the Emacs executable was found."); |
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1424 Vinstallation_directory = Qnil; |
284 | 1425 } |