Mercurial > emacs
annotate src/emacs.c @ 19860:c17fd465ea95 libc-970911 libc-970912 libc-970913 libc-970914 libc-970915 libc-970916 libc-970917 libc-970918 libc-970919 libc-970920 libc-970921 libc-970922 libc-970923 libc-970924 libc-970925 libc-970926 libc-970927 libc-970928 libc-970929 libc-970930 libc-971001 libc-971018 libc-971019 libc-971020 libc-971021 libc-971022 libc-971023 libc-971024 libc-971025 libc-971026 libc-971027 libc-971028 libc-971029 libc-971030 libc-971031 libc-971101 libc-971102 libc-971103 libc-971104 libc-971105 libc-971106 libc-971107 libc-971108 libc-971109 libc-971110 libc-971111 libc-971112 libc-971113 libc-971114 libc-971115 libc-971116 libc-971117 libc-971118 libc-971120 libc-971121 libc-971122 libc-971123 libc-971124 libc-971125 libc-971126 libc-971127 libc-971128 libc-971129 libc-971130 libc-971201 libc-971203 libc-971204 libc-971205 libc-971206 libc-971207 libc-971208 libc-971209 libc-971210 libc-971211 libc-971212 libc-971213 libc-971214 libc-971217 libc-971218 libc-971219 libc-971220 libc-971221 libc-971222 libc-971223 libc-971224 libc-971225 libc-971226 libc-971227 libc-971228 libc-971229 libc-971230 libc-971231 libc-980103 libc-980104 libc-980105 libc-980106 libc-980107 libc-980108 libc-980109 libc-980110 libc-980111 libc-980112 libc-980114 libc-980115 libc-980116 libc-980117 libc-980118 libc-980119 libc-980120 libc-980121 libc-980122 libc-980123 libc-980124 libc-980125 libc-980126 libc-980127 libc-980128
typos.
author | Jeff Law <law@redhat.com> |
---|---|
date | Wed, 10 Sep 1997 21:16:20 +0000 |
parents | d82a99796033 |
children | a4042bd1c038 |
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 | |
14862 | 18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330, |
19 Boston, MA 02111-1307, USA. */ | |
284 | 20 |
21 | |
22 #include <signal.h> | |
23 #include <errno.h> | |
24 | |
4696
1fc792473491
Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents:
4632
diff
changeset
|
25 #include <config.h> |
284 | 26 #include <stdio.h> |
27 | |
28 #include <sys/types.h> | |
29 #include <sys/file.h> | |
30 | |
31 #ifdef VMS | |
32 #include <ssdef.h> | |
33 #endif | |
34 | |
16219
7f3f182f20a3
Replace symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents:
16091
diff
changeset
|
35 #ifdef BSD_SYSTEM |
284 | 36 #include <sys/ioctl.h> |
37 #endif | |
38 | |
39 #include "lisp.h" | |
40 #include "commands.h" | |
1284 | 41 #include "intervals.h" |
284 | 42 |
1043
ee6f647ac103
* emacs.c: Incude "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1004
diff
changeset
|
43 #include "systty.h" |
14502 | 44 #include "blockinput.h" |
1945
b07c27b4dca7
* emacs.c (fatal_error_signal): Unblock the signal before we try
Jim Blandy <jimb@redhat.com>
parents:
1917
diff
changeset
|
45 #include "syssignal.h" |
4589 | 46 #include "process.h" |
554 | 47 |
16046
53cf5adf7fd1
[HAVE_SETRLIMIT]: Include time.h and resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
15952
diff
changeset
|
48 #ifdef HAVE_SETRLIMIT |
53cf5adf7fd1
[HAVE_SETRLIMIT]: Include time.h and resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
15952
diff
changeset
|
49 #include <sys/time.h> |
53cf5adf7fd1
[HAVE_SETRLIMIT]: Include time.h and resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
15952
diff
changeset
|
50 #include <sys/resource.h> |
53cf5adf7fd1
[HAVE_SETRLIMIT]: Include time.h and resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
15952
diff
changeset
|
51 #endif |
53cf5adf7fd1
[HAVE_SETRLIMIT]: Include time.h and resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
15952
diff
changeset
|
52 |
284 | 53 #ifndef O_RDWR |
54 #define O_RDWR 2 | |
55 #endif | |
56 | |
6027
f25b21c384a1
Move extern declarations to top of file.
Karl Heuer <kwzh@gnu.org>
parents:
5965
diff
changeset
|
57 extern void malloc_warning (); |
14202
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
58 extern void set_time_zone_rule (); |
6027
f25b21c384a1
Move extern declarations to top of file.
Karl Heuer <kwzh@gnu.org>
parents:
5965
diff
changeset
|
59 extern char *index (); |
f25b21c384a1
Move extern declarations to top of file.
Karl Heuer <kwzh@gnu.org>
parents:
5965
diff
changeset
|
60 extern char *strerror (); |
f25b21c384a1
Move extern declarations to top of file.
Karl Heuer <kwzh@gnu.org>
parents:
5965
diff
changeset
|
61 |
284 | 62 /* Command line args from shell, as list of strings */ |
63 Lisp_Object Vcommand_line_args; | |
64 | |
2279
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
65 /* 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
|
66 names discarded. */ |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
67 Lisp_Object Vinvocation_name; |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
68 |
4484
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
69 /* The directory name from which Emacs was invoked. */ |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
70 Lisp_Object Vinvocation_directory; |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
71 |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
72 /* 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
|
73 nil means get them only from PATH_LOADSEARCH. */ |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
74 Lisp_Object Vinstallation_directory; |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
75 |
732 | 76 /* Hook run by `kill-emacs' before it does really anything. */ |
77 Lisp_Object Vkill_emacs_hook; | |
78 | |
284 | 79 /* Set nonzero after Emacs has started up the first time. |
80 Prevents reinitialization of the Lisp world and keymaps | |
81 on subsequent starts. */ | |
82 int initialized; | |
83 | |
17346
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
84 #ifdef DOUG_LEA_MALLOC |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
85 /* Preserves a pointer to the memory allocated that copies that |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
86 static data inside glibc's malloc. */ |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
87 void *malloc_state_ptr; |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
88 /* From glibc, a routine that returns a copy of the malloc internal state. */ |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
89 extern void *malloc_get_state (); |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
90 /* From glibc, a routine that overwrites the malloc internal state. */ |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
91 extern void malloc_set_state (); |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
92 #endif |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
93 |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
94 /* Variable whose value is symbol giving operating system type. */ |
284 | 95 Lisp_Object Vsystem_type; |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
96 |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
97 /* 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
|
98 Lisp_Object Vsystem_configuration; |
8843
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
99 |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
100 /* Variable whose value is string giving configuration options, |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
101 for use when reporting bugs. */ |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
102 Lisp_Object Vsystem_configuration_options; |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
103 |
16386
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
104 Lisp_Object Qfile_name_handler_alist; |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
105 |
284 | 106 /* If non-zero, emacs should not attempt to use an window-specific code, |
107 but instead should use the virtual terminal under which it was started */ | |
108 int inhibit_window_system; | |
109 | |
1202
3d1bf36f0896
* emacs.c (emacs_priority): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1141
diff
changeset
|
110 /* 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
|
111 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
|
112 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
|
113 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
|
114 |
10032
f689803caa92
Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents:
10029
diff
changeset
|
115 /* 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
|
116 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
|
117 int running_asynch_code; |
f689803caa92
Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents:
10029
diff
changeset
|
118 |
6863
2aab30ba72b4
(inherited_pgroup): Conditionalize on BSD_PGRPS.
Richard M. Stallman <rms@gnu.org>
parents:
6814
diff
changeset
|
119 #ifdef BSD_PGRPS |
3655
3e6cc11cfe9f
Interact properly with shells lacking job control (sh, rc, es...)
Jim Blandy <jimb@redhat.com>
parents:
3454
diff
changeset
|
120 /* See sysdep.c. */ |
3e6cc11cfe9f
Interact properly with shells lacking job control (sh, rc, es...)
Jim Blandy <jimb@redhat.com>
parents:
3454
diff
changeset
|
121 extern int inherited_pgroup; |
3e6cc11cfe9f
Interact properly with shells lacking job control (sh, rc, es...)
Jim Blandy <jimb@redhat.com>
parents:
3454
diff
changeset
|
122 #endif |
3e6cc11cfe9f
Interact properly with shells lacking job control (sh, rc, es...)
Jim Blandy <jimb@redhat.com>
parents:
3454
diff
changeset
|
123 |
284 | 124 #ifdef HAVE_X_WINDOWS |
125 /* If non-zero, -d was specified, meaning we're using some window system. */ | |
126 int display_arg; | |
127 #endif | |
128 | |
129 /* An address near the bottom of the stack. | |
130 Tells GC how to save a copy of the stack. */ | |
131 char *stack_bottom; | |
132 | |
13409
280f00071040
[HAVE_NTGUI]: Declare Vwindow_system.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13393
diff
changeset
|
133 #ifdef HAVE_WINDOW_SYSTEM |
284 | 134 extern Lisp_Object Vwindow_system; |
13409
280f00071040
[HAVE_NTGUI]: Declare Vwindow_system.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13393
diff
changeset
|
135 #endif /* HAVE_WINDOW_SYSTEM */ |
284 | 136 |
11720
f21ea087b1d8
Delete all APOLLO conditionals.
Richard M. Stallman <rms@gnu.org>
parents:
11634
diff
changeset
|
137 extern Lisp_Object Vauto_save_list_file_name; |
f21ea087b1d8
Delete all APOLLO conditionals.
Richard M. Stallman <rms@gnu.org>
parents:
11634
diff
changeset
|
138 |
284 | 139 #ifdef USG_SHARED_LIBRARIES |
140 /* If nonzero, this is the place to put the end of the writable segment | |
141 at startup. */ | |
142 | |
143 unsigned int bss_end = 0; | |
144 #endif | |
145 | |
146 /* Nonzero means running Emacs without interactive terminal. */ | |
147 | |
148 int noninteractive; | |
149 | |
150 /* Value of Lisp variable `noninteractive'. | |
151 Normally same as C variable `noninteractive' | |
152 but nothing terrible happens if user sets this one. */ | |
153 | |
154 int noninteractive1; | |
7869
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
155 |
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
156 /* Save argv and argc. */ |
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
157 char **initial_argv; |
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
158 int initial_argc; |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
159 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
160 static void sort_args (); |
284 | 161 |
162 /* Signal code for the fatal signal that was received */ | |
163 int fatal_error_code; | |
164 | |
165 /* Nonzero if handling a fatal error already */ | |
166 int fatal_error_in_progress; | |
167 | |
168 /* Handle bus errors, illegal instruction, etc. */ | |
505 | 169 SIGTYPE |
284 | 170 fatal_error_signal (sig) |
171 int sig; | |
172 { | |
173 fatal_error_code = sig; | |
174 signal (sig, SIG_DFL); | |
175 | |
14497
002c4d6b3e28
(fatal_error_signal): Do TOTALLY_UNBLOCK_INPUT.
Richard M. Stallman <rms@gnu.org>
parents:
14399
diff
changeset
|
176 TOTALLY_UNBLOCK_INPUT; |
002c4d6b3e28
(fatal_error_signal): Do TOTALLY_UNBLOCK_INPUT.
Richard M. Stallman <rms@gnu.org>
parents:
14399
diff
changeset
|
177 |
284 | 178 /* 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
|
179 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
|
180 { |
b07c27b4dca7
* emacs.c (fatal_error_signal): Unblock the signal before we try
Jim Blandy <jimb@redhat.com>
parents:
1917
diff
changeset
|
181 fatal_error_in_progress = 1; |
284 | 182 |
3711
5acf09035d16
(shut_down_emacs): New arg STUFF. Stuff input here.
Richard M. Stallman <rms@gnu.org>
parents:
3655
diff
changeset
|
183 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
|
184 } |
284 | 185 |
186 #ifdef VMS | |
187 LIB$STOP (SS$_ABORT); | |
188 #else | |
1945
b07c27b4dca7
* emacs.c (fatal_error_signal): Unblock the signal before we try
Jim Blandy <jimb@redhat.com>
parents:
1917
diff
changeset
|
189 /* 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
|
190 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
|
191 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
|
192 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
|
193 #ifndef MSDOS |
2118
454228f1c526
* emacs.c (__do_global_ctors, __do_global_ctors_aux,
Jim Blandy <jimb@redhat.com>
parents:
1945
diff
changeset
|
194 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
|
195 #endif |
284 | 196 kill (getpid (), fatal_error_code); |
197 #endif /* not VMS */ | |
198 } | |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
199 |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
200 #ifdef SIGDANGER |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
201 |
6171 | 202 /* Handler for SIGDANGER. */ |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
203 SIGTYPE |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
204 memory_warning_signal (sig) |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
205 int sig; |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
206 { |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
207 signal (sig, memory_warning_signal); |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
208 |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
209 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
|
210 |
38931e897e56
(memory_warning_signal): Call force_auto_save_soon.
Richard M. Stallman <rms@gnu.org>
parents:
7164
diff
changeset
|
211 /* 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
|
212 force_auto_save_soon (); |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
213 } |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
214 #endif |
284 | 215 |
216 /* Code for dealing with Lisp access to the Unix command line */ | |
217 | |
218 static | |
219 init_cmdargs (argc, argv, skip_args) | |
220 int argc; | |
221 char **argv; | |
222 int skip_args; | |
223 { | |
224 register int i; | |
16386
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
225 Lisp_Object name, dir, tem; |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
226 int count = specpdl_ptr - specpdl; |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
227 Lisp_Object raw_name; |
284 | 228 |
7869
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
229 initial_argv = argv; |
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
230 initial_argc = argc; |
3b27d2451f83
(init_cmdargs): Set up initial_argv, initial_argc.
Richard M. Stallman <rms@gnu.org>
parents:
7788
diff
changeset
|
231 |
16386
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
232 raw_name = build_string (argv[0]); |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
233 |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
234 /* Add /: to the front of the name |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
235 if it would otherwise be treated as magic. */ |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
236 tem = Ffind_file_name_handler (raw_name, Qt); |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
237 if (! NILP (tem)) |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
238 raw_name = concat2 (build_string ("/:"), raw_name); |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
239 |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
240 Vinvocation_name = Ffile_name_nondirectory (raw_name); |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
241 Vinvocation_directory = Ffile_name_directory (raw_name); |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
242 |
4484
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
243 /* 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
|
244 Emacs actually came from. */ |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
245 if (NILP (Vinvocation_directory)) |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
246 { |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
247 Lisp_Object found; |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
248 int yes = openp (Vexec_path, Vinvocation_name, |
4589 | 249 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
|
250 if (yes == 1) |
16386
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
251 { |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
252 /* Add /: to the front of the name |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
253 if it would otherwise be treated as magic. */ |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
254 tem = Ffind_file_name_handler (found, Qt); |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
255 if (! NILP (tem)) |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
256 found = concat2 (build_string ("/:"), found); |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
257 Vinvocation_directory = Ffile_name_directory (found); |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
258 } |
4484
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
259 } |
2279
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
260 |
12383
e53c62fff24e
(init_cmdargs): Make Vinvocation_directory
Richard M. Stallman <rms@gnu.org>
parents:
12376
diff
changeset
|
261 if (!NILP (Vinvocation_directory) |
e53c62fff24e
(init_cmdargs): Make Vinvocation_directory
Richard M. Stallman <rms@gnu.org>
parents:
12376
diff
changeset
|
262 && NILP (Ffile_name_absolute_p (Vinvocation_directory))) |
16386
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
263 /* Emacs was started with relative path, like ./emacs. |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
264 Make it absolute. */ |
12383
e53c62fff24e
(init_cmdargs): Make Vinvocation_directory
Richard M. Stallman <rms@gnu.org>
parents:
12376
diff
changeset
|
265 Vinvocation_directory = Fexpand_file_name (Vinvocation_directory, Qnil); |
e53c62fff24e
(init_cmdargs): Make Vinvocation_directory
Richard M. Stallman <rms@gnu.org>
parents:
12376
diff
changeset
|
266 |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
267 Vinstallation_directory = Qnil; |
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 if (!NILP (Vinvocation_directory)) |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
270 { |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
271 dir = Vinvocation_directory; |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
272 name = Fexpand_file_name (Vinvocation_name, dir); |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
273 while (1) |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
274 { |
7002
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
275 Lisp_Object tem, lib_src_exists; |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
276 Lisp_Object etc_exists, info_exists; |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
277 |
7002
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
278 /* 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
|
279 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
|
280 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
|
281 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
|
282 lib_src_exists = Ffile_exists_p (tem); |
16865
0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
Richard M. Stallman <rms@gnu.org>
parents:
16749
diff
changeset
|
283 |
17312
647d2774c99e
(init_cmdargs) [MSDOS]: Make the change that sets
Eli Zaretskii <eliz@gnu.org>
parents:
17060
diff
changeset
|
284 #ifdef MSDOS |
16865
0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
Richard M. Stallman <rms@gnu.org>
parents:
16749
diff
changeset
|
285 /* MSDOS installations frequently remove lib-src, but we still |
0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
Richard M. Stallman <rms@gnu.org>
parents:
16749
diff
changeset
|
286 must set installation-directory, or else info won't find |
0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
Richard M. Stallman <rms@gnu.org>
parents:
16749
diff
changeset
|
287 its files (it uses the value of installation-directory). */ |
0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
Richard M. Stallman <rms@gnu.org>
parents:
16749
diff
changeset
|
288 tem = Fexpand_file_name (build_string ("info"), dir); |
0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
Richard M. Stallman <rms@gnu.org>
parents:
16749
diff
changeset
|
289 info_exists = Ffile_exists_p (tem); |
17312
647d2774c99e
(init_cmdargs) [MSDOS]: Make the change that sets
Eli Zaretskii <eliz@gnu.org>
parents:
17060
diff
changeset
|
290 #else |
647d2774c99e
(init_cmdargs) [MSDOS]: Make the change that sets
Eli Zaretskii <eliz@gnu.org>
parents:
17060
diff
changeset
|
291 info_exists = Qnil; |
647d2774c99e
(init_cmdargs) [MSDOS]: Make the change that sets
Eli Zaretskii <eliz@gnu.org>
parents:
17060
diff
changeset
|
292 #endif |
16865
0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
Richard M. Stallman <rms@gnu.org>
parents:
16749
diff
changeset
|
293 |
0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
Richard M. Stallman <rms@gnu.org>
parents:
16749
diff
changeset
|
294 if (!NILP (lib_src_exists) || !NILP (info_exists)) |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
295 { |
7002
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
296 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
|
297 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
|
298 if (!NILP (etc_exists)) |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
299 { |
7002
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
300 Vinstallation_directory |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
301 = 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
|
302 break; |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
303 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
304 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
305 |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
306 /* 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
|
307 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
|
308 lib_src_exists = Ffile_exists_p (tem); |
16865
0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
Richard M. Stallman <rms@gnu.org>
parents:
16749
diff
changeset
|
309 |
17312
647d2774c99e
(init_cmdargs) [MSDOS]: Make the change that sets
Eli Zaretskii <eliz@gnu.org>
parents:
17060
diff
changeset
|
310 |
647d2774c99e
(init_cmdargs) [MSDOS]: Make the change that sets
Eli Zaretskii <eliz@gnu.org>
parents:
17060
diff
changeset
|
311 #ifdef MSDOS |
647d2774c99e
(init_cmdargs) [MSDOS]: Make the change that sets
Eli Zaretskii <eliz@gnu.org>
parents:
17060
diff
changeset
|
312 /* See the MSDOS commentary above. */ |
16865
0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
Richard M. Stallman <rms@gnu.org>
parents:
16749
diff
changeset
|
313 tem = Fexpand_file_name (build_string ("../info"), dir); |
0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
Richard M. Stallman <rms@gnu.org>
parents:
16749
diff
changeset
|
314 info_exists = Ffile_exists_p (tem); |
17312
647d2774c99e
(init_cmdargs) [MSDOS]: Make the change that sets
Eli Zaretskii <eliz@gnu.org>
parents:
17060
diff
changeset
|
315 #else |
647d2774c99e
(init_cmdargs) [MSDOS]: Make the change that sets
Eli Zaretskii <eliz@gnu.org>
parents:
17060
diff
changeset
|
316 info_exists = Qnil; |
647d2774c99e
(init_cmdargs) [MSDOS]: Make the change that sets
Eli Zaretskii <eliz@gnu.org>
parents:
17060
diff
changeset
|
317 #endif |
16865
0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
Richard M. Stallman <rms@gnu.org>
parents:
16749
diff
changeset
|
318 |
0e79ed2e445b
(init_cmdargs): Allow `installation-directory'
Richard M. Stallman <rms@gnu.org>
parents:
16749
diff
changeset
|
319 if (!NILP (lib_src_exists) || !NILP (info_exists)) |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
320 { |
7002
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
321 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
|
322 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
|
323 if (!NILP (etc_exists)) |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
324 { |
7002
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
325 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
|
326 Vinstallation_directory |
e9667f7a0cbc
(init_cmdargs): Just check for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
6863
diff
changeset
|
327 = 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
|
328 break; |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
329 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
330 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
331 |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
332 /* If the Emacs executable is actually a link, |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
333 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
|
334 tem = Ffile_symlink_p (name); |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
335 if (!NILP (tem)) |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
336 { |
8704
ec7ec0e35e5e
(init_cmdargs): After chasing link, use only the expanded name.
Richard M. Stallman <rms@gnu.org>
parents:
7869
diff
changeset
|
337 name = Fexpand_file_name (tem, dir); |
5763
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
338 dir = Ffile_name_directory (name); |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
339 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
340 else |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
341 break; |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
342 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
343 } |
ec298224882d
(init_cmdargs): Set Vinstallation_directory.
Richard M. Stallman <rms@gnu.org>
parents:
5583
diff
changeset
|
344 |
284 | 345 Vcommand_line_args = Qnil; |
346 | |
347 for (i = argc - 1; i >= 0; i--) | |
348 { | |
349 if (i == 0 || i > skip_args) | |
350 Vcommand_line_args | |
351 = Fcons (build_string (argv[i]), Vcommand_line_args); | |
352 } | |
16386
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
353 |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
354 unbind_to (count, Qnil); |
284 | 355 } |
2279
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
356 |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
357 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
|
358 "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
|
359 Any directory names are omitted.") |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
360 () |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
361 { |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
362 return Fcopy_sequence (Vinvocation_name); |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
363 } |
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
364 |
4484
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
365 DEFUN ("invocation-directory", Finvocation_directory, Sinvocation_directory, |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
366 0, 0, 0, |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
367 "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
|
368 () |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
369 { |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
370 return Fcopy_sequence (Vinvocation_directory); |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
371 } |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
372 |
284 | 373 |
374 #ifdef VMS | |
375 #ifdef LINK_CRTL_SHARE | |
14035
09cb73d0ec41
Test SHARABLE_LIB_BUG, not SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
13881
diff
changeset
|
376 #ifdef SHARABLE_LIB_BUG |
284 | 377 extern noshare char **environ; |
14035
09cb73d0ec41
Test SHARABLE_LIB_BUG, not SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
13881
diff
changeset
|
378 #endif /* SHARABLE_LIB_BUG */ |
284 | 379 #endif /* LINK_CRTL_SHARE */ |
380 #endif /* VMS */ | |
381 | |
14202
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
382 #ifdef HAVE_TZSET |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
383 /* A valid but unlikely value for the TZ environment value. |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
384 It is OK (though a bit slower) if the user actually chooses this value. */ |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
385 static char dump_tz[] = "UtC0"; |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
386 #endif |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
387 |
2118
454228f1c526
* emacs.c (__do_global_ctors, __do_global_ctors_aux,
Jim Blandy <jimb@redhat.com>
parents:
1945
diff
changeset
|
388 #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
|
389 /* 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
|
390 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
|
391 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
|
392 (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
|
393 #ifdef __GNUC__ |
6467
53c14a4f9307
(__do_global_ctors, __do_global_ctors_aux)
Richard M. Stallman <rms@gnu.org>
parents:
6428
diff
changeset
|
394 #ifndef GCC_CTORS_IN_LIBC |
1070
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
395 __do_global_ctors () |
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
396 {} |
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
397 __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
|
398 {} |
1074
ab1964dc212c
(__do_global_dtors): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1070
diff
changeset
|
399 __do_global_dtors () |
ab1964dc212c
(__do_global_dtors): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1070
diff
changeset
|
400 {} |
4619
fdb92f0aa8c7
(__CTOR_LIST__): Don't declare it on Linux.
Richard M. Stallman <rms@gnu.org>
parents:
4589
diff
changeset
|
401 /* 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
|
402 #ifndef LINUX |
1070
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
403 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
|
404 #endif |
1070
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
405 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
|
406 #endif /* GCC_CTORS_IN_LIBC */ |
1070
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
407 __main () |
1061
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
408 {} |
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
409 #endif /* __GNUC__ */ |
2118
454228f1c526
* emacs.c (__do_global_ctors, __do_global_ctors_aux,
Jim Blandy <jimb@redhat.com>
parents:
1945
diff
changeset
|
410 #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
|
411 |
9094 | 412 /* Test whether the next argument in ARGV matches SSTR or a prefix of |
413 LSTR (at least MINLEN characters). If so, then if VALPTR is non-null | |
414 (the argument is supposed to have a value) store in *VALPTR either | |
415 the next argument or the portion of this one after the equal sign. | |
416 ARGV is read starting at position *SKIPPTR; this index is advanced | |
417 by the number of arguments used. | |
418 | |
419 Too bad we can't just use getopt for all of this, but we don't have | |
420 enough information to do it right. */ | |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
421 |
9094 | 422 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
|
423 argmatch (argv, argc, sstr, lstr, minlen, valptr, skipptr) |
9094 | 424 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
|
425 int argc; |
9094 | 426 char *sstr; |
427 char *lstr; | |
428 int minlen; | |
429 char **valptr; | |
430 int *skipptr; | |
431 { | |
432 char *p; | |
433 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
|
434 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
|
435 |
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
436 /* 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
|
437 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
|
438 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
|
439 |
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
440 arg = argv[*skipptr+1]; |
9094 | 441 if (arg == NULL) |
442 return 0; | |
443 if (strcmp (arg, sstr) == 0) | |
444 { | |
445 if (valptr != NULL) | |
446 { | |
447 *valptr = argv[*skipptr+2]; | |
448 *skipptr += 2; | |
449 } | |
450 else | |
451 *skipptr += 1; | |
452 return 1; | |
453 } | |
454 arglen = (valptr != NULL && (p = index (arg, '=')) != NULL | |
455 ? p - arg : strlen (arg)); | |
10102
339e129f8874
(argmatch): Handle lstr == 0.
Richard M. Stallman <rms@gnu.org>
parents:
10032
diff
changeset
|
456 if (lstr == 0 || arglen < minlen || strncmp (arg, lstr, arglen) != 0) |
9094 | 457 return 0; |
458 else if (valptr == NULL) | |
459 { | |
460 *skipptr += 1; | |
461 return 1; | |
462 } | |
463 else if (p != NULL) | |
464 { | |
465 *valptr = p+1; | |
466 *skipptr += 1; | |
467 return 1; | |
468 } | |
469 else if (argv[*skipptr+2] != NULL) | |
470 { | |
471 *valptr = argv[*skipptr+2]; | |
472 *skipptr += 2; | |
473 return 1; | |
474 } | |
475 else | |
476 { | |
477 return 0; | |
478 } | |
479 } | |
480 | |
284 | 481 /* ARGSUSED */ |
482 main (argc, argv, envp) | |
483 int argc; | |
484 char **argv; | |
485 char **envp; | |
486 { | |
487 char stack_bottom_variable; | |
488 int skip_args = 0; | |
489 extern int errno; | |
490 extern sys_nerr; | |
16046
53cf5adf7fd1
[HAVE_SETRLIMIT]: Include time.h and resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
15952
diff
changeset
|
491 #ifdef HAVE_SETRLIMIT |
53cf5adf7fd1
[HAVE_SETRLIMIT]: Include time.h and resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
15952
diff
changeset
|
492 struct rlimit rlim; |
53cf5adf7fd1
[HAVE_SETRLIMIT]: Include time.h and resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
15952
diff
changeset
|
493 #endif |
284 | 494 |
13617
655d3464a49b
(main): Add LINUX_SBRK_BUG conditional call to __sbrk.
Richard M. Stallman <rms@gnu.org>
parents:
13409
diff
changeset
|
495 #ifdef LINUX_SBRK_BUG |
655d3464a49b
(main): Add LINUX_SBRK_BUG conditional call to __sbrk.
Richard M. Stallman <rms@gnu.org>
parents:
13409
diff
changeset
|
496 __sbrk (1); |
655d3464a49b
(main): Add LINUX_SBRK_BUG conditional call to __sbrk.
Richard M. Stallman <rms@gnu.org>
parents:
13409
diff
changeset
|
497 #endif |
655d3464a49b
(main): Add LINUX_SBRK_BUG conditional call to __sbrk.
Richard M. Stallman <rms@gnu.org>
parents:
13409
diff
changeset
|
498 |
17346
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
499 #ifdef DOUG_LEA_MALLOC |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
500 if (initialized) |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
501 { |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
502 malloc_set_state (malloc_state_ptr); |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
503 free (malloc_state_ptr); |
18758
231be0c398fd
(main): Use setrlimit only if RLIMIT_STACK.
Richard M. Stallman <rms@gnu.org>
parents:
18683
diff
changeset
|
504 r_alloc_reinit (); |
17346
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
505 } |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
506 #endif |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
507 |
19729
fce71d3f95b1
(main): Call run_time_remap earlier, before any use of stdio.
Richard M. Stallman <rms@gnu.org>
parents:
19354
diff
changeset
|
508 #ifdef RUN_TIME_REMAP |
fce71d3f95b1
(main): Call run_time_remap earlier, before any use of stdio.
Richard M. Stallman <rms@gnu.org>
parents:
19354
diff
changeset
|
509 if (initialized) |
fce71d3f95b1
(main): Call run_time_remap earlier, before any use of stdio.
Richard M. Stallman <rms@gnu.org>
parents:
19354
diff
changeset
|
510 run_time_remap (argv[0]); |
fce71d3f95b1
(main): Call run_time_remap earlier, before any use of stdio.
Richard M. Stallman <rms@gnu.org>
parents:
19354
diff
changeset
|
511 #endif |
fce71d3f95b1
(main): Call run_time_remap earlier, before any use of stdio.
Richard M. Stallman <rms@gnu.org>
parents:
19354
diff
changeset
|
512 |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
513 sort_args (argc, argv); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
514 |
10172
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
515 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
|
516 { |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
517 Lisp_Object tem; |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
518 tem = Fsymbol_value (intern ("emacs-version")); |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
519 if (!STRINGP (tem)) |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
520 { |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
521 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
|
522 exit (1); |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
523 } |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
524 else |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
525 { |
15572
ed3d11fbbfbf
(main): Add `GNU Emacs' to the response to --version.
Richard M. Stallman <rms@gnu.org>
parents:
15539
diff
changeset
|
526 printf ("GNU Emacs %s\n", XSTRING (tem)->data); |
19752
d82a99796033
(main): Update Copyright messages.
Erik Naggum <erik@naggum.no>
parents:
19729
diff
changeset
|
527 printf ("Copyright (C) 1997 Free Software Foundation, Inc.\n"); |
16278
37408c6b96fd
(main): Add copyright etc. to --version output.
Richard M. Stallman <rms@gnu.org>
parents:
16219
diff
changeset
|
528 printf ("GNU Emacs comes with ABSOLUTELY NO WARRANTY.\n"); |
37408c6b96fd
(main): Add copyright etc. to --version output.
Richard M. Stallman <rms@gnu.org>
parents:
16219
diff
changeset
|
529 printf ("You may redistribute copies of Emacs\n"); |
37408c6b96fd
(main): Add copyright etc. to --version output.
Richard M. Stallman <rms@gnu.org>
parents:
16219
diff
changeset
|
530 printf ("under the terms of the GNU General Public License.\n"); |
37408c6b96fd
(main): Add copyright etc. to --version output.
Richard M. Stallman <rms@gnu.org>
parents:
16219
diff
changeset
|
531 printf ("For more information about these matters, "); |
37408c6b96fd
(main): Add copyright etc. to --version output.
Richard M. Stallman <rms@gnu.org>
parents:
16219
diff
changeset
|
532 printf ("see the files named COPYING.\n"); |
10172
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
533 exit (0); |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
534 } |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
535 } |
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
536 |
284 | 537 /* Map in shared memory, if we are using that. */ |
538 #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
|
539 if (argmatch (argv, argc, "-nl", "--no-shared-memory", 6, NULL, &skip_args)) |
284 | 540 { |
541 map_in_data (0); | |
542 /* The shared memory was just restored, which clobbered this. */ | |
543 skip_args = 1; | |
544 } | |
545 else | |
546 { | |
547 map_in_data (1); | |
548 /* The shared memory was just restored, which clobbered this. */ | |
549 skip_args = 0; | |
550 } | |
551 #endif | |
552 | |
1350
b74d9663f9a6
(main) [NeXT]: Call malloc_jumpstart.
Richard M. Stallman <rms@gnu.org>
parents:
1284
diff
changeset
|
553 #ifdef NeXT |
11806
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
554 { |
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
555 extern int malloc_cookie; |
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
556 /* This helps out unexnext.c. */ |
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
557 if (initialized) |
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
558 if (malloc_jumpstart (malloc_cookie) != 0) |
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
559 printf ("malloc jumpstart failed!\n"); |
78258a1b902b
(main) [NeXT]: Add missing braces.
Karl Heuer <kwzh@gnu.org>
parents:
11756
diff
changeset
|
560 } |
1350
b74d9663f9a6
(main) [NeXT]: Call malloc_jumpstart.
Richard M. Stallman <rms@gnu.org>
parents:
1284
diff
changeset
|
561 #endif /* NeXT */ |
b74d9663f9a6
(main) [NeXT]: Call malloc_jumpstart.
Richard M. Stallman <rms@gnu.org>
parents:
1284
diff
changeset
|
562 |
284 | 563 #ifdef VMS |
564 /* If -map specified, map the data file in */ | |
9094 | 565 { |
566 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
|
567 if (argmatch (argv, argc, "-map", "--map-data", 3, &mapin_file, &skip_args)) |
9094 | 568 mapin_data (file); |
569 } | |
284 | 570 |
571 #ifdef LINK_CRTL_SHARE | |
14035
09cb73d0ec41
Test SHARABLE_LIB_BUG, not SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
13881
diff
changeset
|
572 #ifdef SHARABLE_LIB_BUG |
284 | 573 /* Bletcherous shared libraries! */ |
574 if (!stdin) | |
575 stdin = fdopen (0, "r"); | |
576 if (!stdout) | |
577 stdout = fdopen (1, "w"); | |
578 if (!stderr) | |
579 stderr = fdopen (2, "w"); | |
580 if (!environ) | |
581 environ = envp; | |
14035
09cb73d0ec41
Test SHARABLE_LIB_BUG, not SHAREABLE_LIB_BUG.
Karl Heuer <kwzh@gnu.org>
parents:
13881
diff
changeset
|
582 #endif /* SHARABLE_LIB_BUG */ |
284 | 583 #endif /* LINK_CRTL_SHARE */ |
584 #endif /* VMS */ | |
585 | |
18758
231be0c398fd
(main): Use setrlimit only if RLIMIT_STACK.
Richard M. Stallman <rms@gnu.org>
parents:
18683
diff
changeset
|
586 #if defined (HAVE_SETRLIMIT) && defined (RLIMIT_STACK) |
19354
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
587 /* Extend the stack space available. |
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
588 Don't do that if dumping, since some systems (e.g. DJGPP) |
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
589 might define a smaller stack limit at that time. */ |
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
590 if (1 |
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
591 #ifndef CANNOT_DUMP |
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
592 && (!noninteractive || initialized) |
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
593 #endif |
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
594 && !getrlimit (RLIMIT_STACK, &rlim)) |
16046
53cf5adf7fd1
[HAVE_SETRLIMIT]: Include time.h and resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
15952
diff
changeset
|
595 { |
16968
7c030111c6bb
(main): Don't extend stack limit too far.
Richard M. Stallman <rms@gnu.org>
parents:
16865
diff
changeset
|
596 long newlim; |
19354
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
597 extern int re_max_failures; |
16968
7c030111c6bb
(main): Don't extend stack limit too far.
Richard M. Stallman <rms@gnu.org>
parents:
16865
diff
changeset
|
598 /* Approximate the amount regex.c needs, plus some more. */ |
19354
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
599 newlim = re_max_failures * 2 * 20 * sizeof (char *); |
18683
ec9c20bede0c
(main) [__NetBSD__]: Round up new stack limit to page bdry.
Richard M. Stallman <rms@gnu.org>
parents:
18514
diff
changeset
|
600 #ifdef __NetBSD__ |
ec9c20bede0c
(main) [__NetBSD__]: Round up new stack limit to page bdry.
Richard M. Stallman <rms@gnu.org>
parents:
18514
diff
changeset
|
601 /* NetBSD (at least NetBSD 1.2G and former) has a bug in its |
ec9c20bede0c
(main) [__NetBSD__]: Round up new stack limit to page bdry.
Richard M. Stallman <rms@gnu.org>
parents:
18514
diff
changeset
|
602 stack allocation routine for new process that the allocation |
ec9c20bede0c
(main) [__NetBSD__]: Round up new stack limit to page bdry.
Richard M. Stallman <rms@gnu.org>
parents:
18514
diff
changeset
|
603 fails if stack limit is not on page boundary. So, round up the |
ec9c20bede0c
(main) [__NetBSD__]: Round up new stack limit to page bdry.
Richard M. Stallman <rms@gnu.org>
parents:
18514
diff
changeset
|
604 new limit to page boundary. */ |
ec9c20bede0c
(main) [__NetBSD__]: Round up new stack limit to page bdry.
Richard M. Stallman <rms@gnu.org>
parents:
18514
diff
changeset
|
605 newlim = (newlim + getpagesize () - 1) / getpagesize () * getpagesize(); |
ec9c20bede0c
(main) [__NetBSD__]: Round up new stack limit to page bdry.
Richard M. Stallman <rms@gnu.org>
parents:
18514
diff
changeset
|
606 #endif |
16968
7c030111c6bb
(main): Don't extend stack limit too far.
Richard M. Stallman <rms@gnu.org>
parents:
16865
diff
changeset
|
607 if (newlim > rlim.rlim_max) |
19354
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
608 { |
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
609 newlim = rlim.rlim_max; |
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
610 /* Don't let regex.c overflow the stack. */ |
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
611 re_max_failures = newlim / (2 * 20 * sizeof (char *)); |
85ac99b8b5c8
(main): Update re_max_failures so regex.c won't overflow
Richard M. Stallman <rms@gnu.org>
parents:
19310
diff
changeset
|
612 } |
16968
7c030111c6bb
(main): Don't extend stack limit too far.
Richard M. Stallman <rms@gnu.org>
parents:
16865
diff
changeset
|
613 if (rlim.rlim_cur < newlim) |
7c030111c6bb
(main): Don't extend stack limit too far.
Richard M. Stallman <rms@gnu.org>
parents:
16865
diff
changeset
|
614 rlim.rlim_cur = newlim; |
7c030111c6bb
(main): Don't extend stack limit too far.
Richard M. Stallman <rms@gnu.org>
parents:
16865
diff
changeset
|
615 |
16046
53cf5adf7fd1
[HAVE_SETRLIMIT]: Include time.h and resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
15952
diff
changeset
|
616 setrlimit (RLIMIT_STACK, &rlim); |
53cf5adf7fd1
[HAVE_SETRLIMIT]: Include time.h and resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
15952
diff
changeset
|
617 } |
18758
231be0c398fd
(main): Use setrlimit only if RLIMIT_STACK.
Richard M. Stallman <rms@gnu.org>
parents:
18683
diff
changeset
|
618 #endif /* HAVE_SETRLIMIT and RLIMIT_STACK */ |
16046
53cf5adf7fd1
[HAVE_SETRLIMIT]: Include time.h and resource.h.
Richard M. Stallman <rms@gnu.org>
parents:
15952
diff
changeset
|
619 |
284 | 620 /* Record (approximately) where the stack begins. */ |
621 stack_bottom = &stack_bottom_variable; | |
622 | |
623 #ifdef USG_SHARED_LIBRARIES | |
624 if (bss_end) | |
11233
d3b0cf2c3b78
(main): Cast arg to `brk'.
Richard M. Stallman <rms@gnu.org>
parents:
11195
diff
changeset
|
625 brk ((void *)bss_end); |
284 | 626 #endif |
627 | |
628 clearerr (stdin); | |
3655
3e6cc11cfe9f
Interact properly with shells lacking job control (sh, rc, es...)
Jim Blandy <jimb@redhat.com>
parents:
3454
diff
changeset
|
629 |
284 | 630 #ifndef SYSTEM_MALLOC |
631 if (! initialized) | |
2439
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2392
diff
changeset
|
632 { |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2392
diff
changeset
|
633 /* 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
|
634 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
|
635 |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2392
diff
changeset
|
636 /* 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
|
637 running. */ |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2392
diff
changeset
|
638 uninterrupt_malloc (); |
b6c62e4abf59
Put interrupt input blocking in a separate file from xterm.h.
Jim Blandy <jimb@redhat.com>
parents:
2392
diff
changeset
|
639 } |
284 | 640 #endif /* not SYSTEM_MALLOC */ |
641 | |
5493
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
642 #ifdef MSDOS |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
643 /* 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
|
644 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
|
645 _fmode = O_BINARY; |
14968
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
646 |
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
647 #if __DJGPP__ >= 2 |
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
648 if (!isatty (fileno (stdin))) |
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
649 setmode (fileno (stdin), O_BINARY); |
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
650 if (!isatty (fileno (stdout))) |
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
651 { |
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
652 fflush (stdout); |
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
653 setmode (fileno (stdout), O_BINARY); |
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
654 } |
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
655 #else /* not __DJGPP__ >= 2 */ |
5493
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
656 (stdin)->_flag &= ~_IOTEXT; |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
657 (stdout)->_flag &= ~_IOTEXT; |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
658 (stderr)->_flag &= ~_IOTEXT; |
14968
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
659 #endif /* not __DJGPP__ >= 2 */ |
5493
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
660 #endif /* MSDOS */ |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
661 |
7480
e96f67e55921
(main): PRIO_PROCESS renamed to SET_EMACS_PRIORITY.
Richard M. Stallman <rms@gnu.org>
parents:
7223
diff
changeset
|
662 #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
|
663 if (emacs_priority) |
1202
3d1bf36f0896
* emacs.c (emacs_priority): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1141
diff
changeset
|
664 nice (emacs_priority); |
284 | 665 setuid (getuid ()); |
7480
e96f67e55921
(main): PRIO_PROCESS renamed to SET_EMACS_PRIORITY.
Richard M. Stallman <rms@gnu.org>
parents:
7223
diff
changeset
|
666 #endif /* SET_EMACS_PRIORITY */ |
284 | 667 |
6778
a4a33206aee4
(main): Handle EXTRA_INITIALIZE.
Richard M. Stallman <rms@gnu.org>
parents:
6751
diff
changeset
|
668 #ifdef EXTRA_INITIALIZE |
6814
531d6d07096a
(main): Fix typo in prev. change.
Richard M. Stallman <rms@gnu.org>
parents:
6778
diff
changeset
|
669 EXTRA_INITIALIZE; |
6778
a4a33206aee4
(main): Handle EXTRA_INITIALIZE.
Richard M. Stallman <rms@gnu.org>
parents:
6751
diff
changeset
|
670 #endif |
a4a33206aee4
(main): Handle EXTRA_INITIALIZE.
Richard M. Stallman <rms@gnu.org>
parents:
6751
diff
changeset
|
671 |
284 | 672 inhibit_window_system = 0; |
673 | |
420 | 674 /* Handle the -t switch, which specifies filename to use as terminal */ |
9094 | 675 { |
676 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
|
677 if (argmatch (argv, argc, "-t", "--terminal", 4, &term, &skip_args)) |
9094 | 678 { |
679 int result; | |
680 close (0); | |
681 close (1); | |
682 result = open (term, O_RDWR, 2 ); | |
683 if (result < 0) | |
684 { | |
685 char *errstring = strerror (errno); | |
686 fprintf (stderr, "emacs: %s: %s\n", term, errstring); | |
687 exit (1); | |
688 } | |
689 dup (0); | |
690 if (! isatty (0)) | |
691 { | |
692 fprintf (stderr, "emacs: %s: not a tty\n", term); | |
693 exit (1); | |
694 } | |
695 fprintf (stderr, "Using %s\n", term); | |
13409
280f00071040
[HAVE_NTGUI]: Declare Vwindow_system.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13393
diff
changeset
|
696 #ifdef HAVE_WINDOW_SYSTEM |
9094 | 697 inhibit_window_system = 1; /* -t => -nw */ |
698 #endif | |
699 } | |
700 } | |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
701 if (argmatch (argv, argc, "-nw", "--no-windows", 6, NULL, &skip_args)) |
9094 | 702 inhibit_window_system = 1; |
703 | |
704 /* Handle the -batch switch, which means don't do interactive display. */ | |
705 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
|
706 if (argmatch (argv, argc, "-batch", "--batch", 5, NULL, &skip_args)) |
9094 | 707 noninteractive = 1; |
708 | |
709 /* 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
|
710 if (argmatch (argv, argc, "-help", "--help", 3, NULL, &skip_args)) |
284 | 711 { |
9094 | 712 printf ("\ |
713 Usage: %s [-t term] [--terminal term] [-nw] [--no-windows] [--batch]\n\ | |
714 [-q] [--no-init-file] [-u user] [--user user] [--debug-init]\n\ | |
12533 | 715 [--version] [--no-site-file]\n\ |
9094 | 716 [-f func] [--funcall func] [-l file] [--load file] [--insert file]\n\ |
15952
1757da8f8f31
(main): Add bug report info in --help message.
Richard M. Stallman <rms@gnu.org>
parents:
15572
diff
changeset
|
717 [+linenum] file-to-visit [--kill]\n\ |
1757da8f8f31
(main): Add bug report info in --help message.
Richard M. Stallman <rms@gnu.org>
parents:
15572
diff
changeset
|
718 Report bugs to bug-gnu-emacs@prep.ai.mit.edu. First, please see\n\ |
18950
b8d11c38bff9
(main): Make --help msg end in newline.
Richard M. Stallman <rms@gnu.org>
parents:
18758
diff
changeset
|
719 the Bugs section of the Emacs manual or the file BUGS.\n", argv[0]); |
9094 | 720 exit (0); |
284 | 721 } |
722 | |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
723 #ifdef HAVE_X_WINDOWS |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
724 /* 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
|
725 handle this argument entirely in window system dependent code |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
726 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
|
727 to run until we've recognized this argument. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
728 { |
14922
1968e2da175c
(main): Initialize displayname.
Richard M. Stallman <rms@gnu.org>
parents:
14862
diff
changeset
|
729 char *displayname = 0; |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
730 int i; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
731 int count_before = skip_args; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
732 |
10111
add3c6d21876
(argmatch): Take argc as arg; don't go past end of argv.
Richard M. Stallman <rms@gnu.org>
parents:
10102
diff
changeset
|
733 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
|
734 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
|
735 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
|
736 display_arg = 1; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
737 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
738 /* If we have the form --display=NAME, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
739 convert it into -d name. |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
740 This requires inserting a new element into argv. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
741 if (displayname != 0 && skip_args - count_before == 1) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
742 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
743 char **new = (char **) xmalloc (sizeof (char *) * (argc + 2)); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
744 int j; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
745 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
746 for (j = 0; j < count_before + 1; j++) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
747 new[j] = argv[j]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
748 new[count_before + 1] = "-d"; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
749 new[count_before + 2] = displayname; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
750 for (j = count_before + 2; j <argc; j++) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
751 new[j + 1] = argv[j]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
752 argv = new; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
753 argc++; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
754 } |
10172
9a91efe65b85
(main): Fix conversion of --display to -d.
Richard M. Stallman <rms@gnu.org>
parents:
10150
diff
changeset
|
755 /* 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
|
756 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
|
757 && argv[count_before + 1][1] == '-') |
13721
eb5fa0aa172e
(main): Fix args to handle `--display DISPLAY'.
Karl Heuer <kwzh@gnu.org>
parents:
13617
diff
changeset
|
758 argv[count_before + 1] = "-d"; |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
759 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
760 /* Don't actually discard this arg. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
761 skip_args = count_before; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
762 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
763 #endif |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
764 |
7788
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
765 if (! noninteractive) |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
766 { |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
767 #ifdef BSD_PGRPS |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
768 if (initialized) |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
769 { |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
770 inherited_pgroup = EMACS_GETPGRP (0); |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
771 setpgrp (0, getpid ()); |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
772 } |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
773 #else |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
774 #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
|
775 setpgrp (); |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
776 #endif |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
777 #endif |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
778 } |
ddcb81020fa1
(main): Do the setpgrp after checking for -batch.
Richard M. Stallman <rms@gnu.org>
parents:
7716
diff
changeset
|
779 |
348 | 780 #ifdef POSIX_SIGNALS |
781 init_signals (); | |
782 #endif | |
783 | |
14127
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
784 /* Don't catch SIGHUP if dumping. */ |
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
785 if (1 |
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
786 #ifndef CANNOT_DUMP |
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
787 && initialized |
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
788 #endif |
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
789 ) |
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
790 { |
15423
5b9fe08fa6eb
(main): For SIGHUP, use sigblock and sigunblock,
Richard M. Stallman <rms@gnu.org>
parents:
15202
diff
changeset
|
791 sigblock (sigmask (SIGHUP)); |
14127
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
792 /* In --batch mode, don't catch SIGHUP if already ignored. |
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
793 That makes nohup work. */ |
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
794 if (! noninteractive |
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
795 || signal (SIGHUP, SIG_IGN) != SIG_IGN) |
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
796 signal (SIGHUP, fatal_error_signal); |
15423
5b9fe08fa6eb
(main): For SIGHUP, use sigblock and sigunblock,
Richard M. Stallman <rms@gnu.org>
parents:
15202
diff
changeset
|
797 sigunblock (sigmask (SIGHUP)); |
14127
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
798 } |
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
799 |
284 | 800 if ( |
801 #ifndef CANNOT_DUMP | |
802 ! noninteractive || initialized | |
803 #else | |
804 1 | |
805 #endif | |
806 ) | |
807 { | |
14127
ebaba7107594
(main): In batch mode, don't handle SIGHUP if was ignored.
Karl Heuer <kwzh@gnu.org>
parents:
14072
diff
changeset
|
808 /* Don't catch these signals in batch mode if dumping. |
284 | 809 On some machines, this sets static data that would make |
810 signal fail to work right when the dumped Emacs is run. */ | |
811 signal (SIGQUIT, fatal_error_signal); | |
812 signal (SIGILL, fatal_error_signal); | |
813 signal (SIGTRAP, fatal_error_signal); | |
10388
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
814 #ifdef SIGABRT |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
815 signal (SIGABRT, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
816 #endif |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
817 #ifdef SIGHWE |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
818 signal (SIGHWE, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
819 #endif |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
820 #ifdef SIGPRE |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
821 signal (SIGPRE, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
822 #endif |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
823 #ifdef SIGORE |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
824 signal (SIGORE, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
825 #endif |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
826 #ifdef SIGUME |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
827 signal (SIGUME, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
828 #endif |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
829 #ifdef SIGDLK |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
830 signal (SIGDLK, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
831 #endif |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
832 #ifdef SIGCPULIM |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
833 signal (SIGCPULIM, fatal_error_signal); |
0ae5926bdee7
(main): Handle SIGABRT, SIGHWE, SIGPRE, SIGORE, SIGDLK,
Richard M. Stallman <rms@gnu.org>
parents:
10172
diff
changeset
|
834 #endif |
2118
454228f1c526
* emacs.c (__do_global_ctors, __do_global_ctors_aux,
Jim Blandy <jimb@redhat.com>
parents:
1945
diff
changeset
|
835 #ifdef SIGIOT |
454228f1c526
* emacs.c (__do_global_ctors, __do_global_ctors_aux,
Jim Blandy <jimb@redhat.com>
parents:
1945
diff
changeset
|
836 /* This is missing on some systems - OS/2, for example. */ |
284 | 837 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
|
838 #endif |
284 | 839 #ifdef SIGEMT |
840 signal (SIGEMT, fatal_error_signal); | |
841 #endif | |
842 signal (SIGFPE, fatal_error_signal); | |
2913
409c1022bad5
Some changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
2674
diff
changeset
|
843 #ifdef SIGBUS |
284 | 844 signal (SIGBUS, fatal_error_signal); |
2913
409c1022bad5
Some changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
2674
diff
changeset
|
845 #endif |
284 | 846 signal (SIGSEGV, fatal_error_signal); |
2913
409c1022bad5
Some changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
2674
diff
changeset
|
847 #ifdef SIGSYS |
284 | 848 signal (SIGSYS, fatal_error_signal); |
2913
409c1022bad5
Some changes from Michael K. Johnson for Linux.
Jim Blandy <jimb@redhat.com>
parents:
2674
diff
changeset
|
849 #endif |
284 | 850 signal (SIGTERM, fatal_error_signal); |
851 #ifdef SIGXCPU | |
852 signal (SIGXCPU, fatal_error_signal); | |
853 #endif | |
854 #ifdef SIGXFSZ | |
855 signal (SIGXFSZ, fatal_error_signal); | |
856 #endif /* SIGXFSZ */ | |
857 | |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
858 #ifdef SIGDANGER |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
859 /* 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
|
860 signal (SIGDANGER, memory_warning_signal); |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
861 #endif |
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
862 |
284 | 863 #ifdef AIX |
5794
9d324422db4c
(main) [AIX]: Don't handle signal 20, 21 or 22.
Richard M. Stallman <rms@gnu.org>
parents:
5763
diff
changeset
|
864 /* 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
|
865 signal (SIGXCPU, fatal_error_signal); |
3320
8995a815f92f
(main) [AIX _I386]: Don't handle SIGIOINT.
Richard M. Stallman <rms@gnu.org>
parents:
3273
diff
changeset
|
866 #ifndef _I386 |
284 | 867 signal (SIGIOINT, fatal_error_signal); |
3320
8995a815f92f
(main) [AIX _I386]: Don't handle SIGIOINT.
Richard M. Stallman <rms@gnu.org>
parents:
3273
diff
changeset
|
868 #endif |
284 | 869 signal (SIGGRANT, fatal_error_signal); |
870 signal (SIGRETRACT, fatal_error_signal); | |
871 signal (SIGSOUND, fatal_error_signal); | |
872 signal (SIGMSG, fatal_error_signal); | |
873 #endif /* AIX */ | |
874 } | |
875 | |
876 noninteractive1 = noninteractive; | |
877 | |
878 /* Perform basic initializations (not merely interning symbols) */ | |
879 | |
880 if (!initialized) | |
881 { | |
882 init_alloc_once (); | |
883 init_obarray (); | |
884 init_eval_once (); | |
17060
8c069ef6e1c4
(main): Call several initialization function introduced
Karl Heuer <kwzh@gnu.org>
parents:
16968
diff
changeset
|
885 init_charset_once (); |
8c069ef6e1c4
(main): Call several initialization function introduced
Karl Heuer <kwzh@gnu.org>
parents:
16968
diff
changeset
|
886 init_coding_once (); |
284 | 887 init_syntax_once (); /* Create standard syntax table. */ |
17060
8c069ef6e1c4
(main): Call several initialization function introduced
Karl Heuer <kwzh@gnu.org>
parents:
16968
diff
changeset
|
888 init_category_once (); /* Create standard category table. */ |
284 | 889 /* Must be done before init_buffer */ |
890 init_casetab_once (); | |
891 init_buffer_once (); /* Create buffer table and some buffers */ | |
892 init_minibuf_once (); /* Create list of minibuffers */ | |
893 /* Must precede init_window_once */ | |
894 init_window_once (); /* Init the window system */ | |
895 } | |
896 | |
897 init_alloc (); | |
898 init_eval (); | |
899 init_data (); | |
10032
f689803caa92
Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents:
10029
diff
changeset
|
900 running_asynch_code = 0; |
1917
2ed00cbd9e53
* callproc.c (init_callproc): Move the initialization of
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
901 |
5493
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
902 #ifdef MSDOS |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
903 /* 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
|
904 init_dosfns (); |
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
905 /* Set defaults for several environment variables. */ |
14968
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
906 if (initialized) |
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
907 init_environment (argc, argv, skip_args); |
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
908 else |
15012
2dabff0bce33
(main) [MSDOS]: Always call tzset, not init__gettimeofday.
Richard M. Stallman <rms@gnu.org>
parents:
14993
diff
changeset
|
909 tzset (); |
14968
1351c75bc3d6
(main) [MSDOS]: Handle DJGPP version 2.
Richard M. Stallman <rms@gnu.org>
parents:
14922
diff
changeset
|
910 #endif /* MSDOS */ |
5493
2a0ba54aefb5
(main) [MSDOS]: Call init_environment. Set file types to
Richard M. Stallman <rms@gnu.org>
parents:
5364
diff
changeset
|
911 |
13409
280f00071040
[HAVE_NTGUI]: Declare Vwindow_system.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13393
diff
changeset
|
912 #ifdef WINDOWSNT |
280f00071040
[HAVE_NTGUI]: Declare Vwindow_system.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13393
diff
changeset
|
913 /* Initialize environment from registry settings. */ |
280f00071040
[HAVE_NTGUI]: Declare Vwindow_system.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13393
diff
changeset
|
914 init_environment (); |
15089
3305f0390624
(main) [WINDOWSNT]: Invoke init_ntproc.
Richard M. Stallman <rms@gnu.org>
parents:
15012
diff
changeset
|
915 init_ntproc (); /* must precede init_editfns */ |
13409
280f00071040
[HAVE_NTGUI]: Declare Vwindow_system.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13393
diff
changeset
|
916 #endif |
280f00071040
[HAVE_NTGUI]: Declare Vwindow_system.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13393
diff
changeset
|
917 |
1917
2ed00cbd9e53
* callproc.c (init_callproc): Move the initialization of
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
918 /* 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
|
919 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
|
920 until calling init_callproc. */ |
2ed00cbd9e53
* callproc.c (init_callproc): Move the initialization of
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
921 set_process_environment (); |
5364
99b5ca69dea7
(main) [AIX]: Call putenv.
Richard M. Stallman <rms@gnu.org>
parents:
5236
diff
changeset
|
922 /* 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
|
923 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
|
924 don't pollute Vprocess_environment. */ |
99b5ca69dea7
(main) [AIX]: Call putenv.
Richard M. Stallman <rms@gnu.org>
parents:
5236
diff
changeset
|
925 #ifdef AIX |
99b5ca69dea7
(main) [AIX]: Call putenv.
Richard M. Stallman <rms@gnu.org>
parents:
5236
diff
changeset
|
926 putenv ("LANG=C"); |
99b5ca69dea7
(main) [AIX]: Call putenv.
Richard M. Stallman <rms@gnu.org>
parents:
5236
diff
changeset
|
927 #endif |
1917
2ed00cbd9e53
* callproc.c (init_callproc): Move the initialization of
Jim Blandy <jimb@redhat.com>
parents:
1821
diff
changeset
|
928 |
4484
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
929 init_buffer (); /* Init default directory of main buffer */ |
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
930 |
5155
3fcc21b4f083
(main): Call init_callproc and init_callproc_1.
Richard M. Stallman <rms@gnu.org>
parents:
4957
diff
changeset
|
931 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
|
932 init_cmdargs (argc, argv, skip_args); /* Must precede init_lread. */ |
16488
65c729d461c3
(main): Clear out *Messages* before init_callproc.
Richard M. Stallman <rms@gnu.org>
parents:
16386
diff
changeset
|
933 |
65c729d461c3
(main): Clear out *Messages* before init_callproc.
Richard M. Stallman <rms@gnu.org>
parents:
16386
diff
changeset
|
934 if (initialized) |
65c729d461c3
(main): Clear out *Messages* before init_callproc.
Richard M. Stallman <rms@gnu.org>
parents:
16386
diff
changeset
|
935 { |
65c729d461c3
(main): Clear out *Messages* before init_callproc.
Richard M. Stallman <rms@gnu.org>
parents:
16386
diff
changeset
|
936 /* Erase any pre-dump messages in the message log, to avoid confusion */ |
65c729d461c3
(main): Clear out *Messages* before init_callproc.
Richard M. Stallman <rms@gnu.org>
parents:
16386
diff
changeset
|
937 Lisp_Object old_log_max; |
65c729d461c3
(main): Clear out *Messages* before init_callproc.
Richard M. Stallman <rms@gnu.org>
parents:
16386
diff
changeset
|
938 old_log_max = Vmessage_log_max; |
65c729d461c3
(main): Clear out *Messages* before init_callproc.
Richard M. Stallman <rms@gnu.org>
parents:
16386
diff
changeset
|
939 XSETFASTINT (Vmessage_log_max, 0); |
65c729d461c3
(main): Clear out *Messages* before init_callproc.
Richard M. Stallman <rms@gnu.org>
parents:
16386
diff
changeset
|
940 message_dolog ("", 0, 1); |
65c729d461c3
(main): Clear out *Messages* before init_callproc.
Richard M. Stallman <rms@gnu.org>
parents:
16386
diff
changeset
|
941 Vmessage_log_max = old_log_max; |
65c729d461c3
(main): Clear out *Messages* before init_callproc.
Richard M. Stallman <rms@gnu.org>
parents:
16386
diff
changeset
|
942 } |
65c729d461c3
(main): Clear out *Messages* before init_callproc.
Richard M. Stallman <rms@gnu.org>
parents:
16386
diff
changeset
|
943 |
5155
3fcc21b4f083
(main): Call init_callproc and init_callproc_1.
Richard M. Stallman <rms@gnu.org>
parents:
4957
diff
changeset
|
944 init_callproc (); /* Must follow init_cmdargs but not init_sys_modes. */ |
348 | 945 init_lread (); |
284 | 946 |
947 if (!noninteractive) | |
948 { | |
949 #ifdef VMS | |
763 | 950 init_vms_input ();/* init_display calls get_frame_size, that needs this */ |
284 | 951 #endif /* VMS */ |
952 init_display (); /* Determine terminal type. init_sys_modes uses results */ | |
953 } | |
954 init_keyboard (); /* This too must precede init_sys_modes */ | |
955 #ifdef VMS | |
956 init_vmsproc (); /* And this too. */ | |
957 #endif /* VMS */ | |
958 init_sys_modes (); /* Init system terminal modes (RAW or CBREAK, etc.) */ | |
959 init_xdisp (); | |
960 init_macros (); | |
961 init_editfns (); | |
962 #ifdef LISP_FLOAT_TYPE | |
963 init_floatfns (); | |
964 #endif | |
965 #ifdef VMS | |
966 init_vmsfns (); | |
967 #endif /* VMS */ | |
968 init_process (); | |
969 | |
970 /* Intern the names of all standard functions and variables; define standard keys */ | |
971 | |
972 if (!initialized) | |
973 { | |
974 /* The basic levels of Lisp must come first */ | |
975 /* And data must come first of all | |
976 for the sake of symbols like error-message */ | |
977 syms_of_data (); | |
978 syms_of_alloc (); | |
348 | 979 syms_of_lread (); |
284 | 980 syms_of_print (); |
981 syms_of_eval (); | |
982 syms_of_fns (); | |
983 syms_of_floatfns (); | |
984 | |
985 syms_of_abbrev (); | |
986 syms_of_buffer (); | |
987 syms_of_bytecode (); | |
988 syms_of_callint (); | |
989 syms_of_casefiddle (); | |
990 syms_of_casetab (); | |
991 syms_of_callproc (); | |
17060
8c069ef6e1c4
(main): Call several initialization function introduced
Karl Heuer <kwzh@gnu.org>
parents:
16968
diff
changeset
|
992 syms_of_category (); |
8c069ef6e1c4
(main): Call several initialization function introduced
Karl Heuer <kwzh@gnu.org>
parents:
16968
diff
changeset
|
993 syms_of_ccl (); |
8c069ef6e1c4
(main): Call several initialization function introduced
Karl Heuer <kwzh@gnu.org>
parents:
16968
diff
changeset
|
994 syms_of_charset (); |
284 | 995 syms_of_cmds (); |
996 #ifndef NO_DIR_LIBRARY | |
997 syms_of_dired (); | |
998 #endif /* not NO_DIR_LIBRARY */ | |
999 syms_of_display (); | |
1000 syms_of_doc (); | |
1001 syms_of_editfns (); | |
1002 syms_of_emacs (); | |
1003 syms_of_fileio (); | |
17060
8c069ef6e1c4
(main): Call several initialization function introduced
Karl Heuer <kwzh@gnu.org>
parents:
16968
diff
changeset
|
1004 syms_of_coding (); /* This should be after syms_of_fileio. */ |
284 | 1005 #ifdef CLASH_DETECTION |
1006 syms_of_filelock (); | |
1007 #endif /* CLASH_DETECTION */ | |
1008 syms_of_indent (); | |
16548
12915fed5a02
(main): Call syms_of_insdel.
Richard M. Stallman <rms@gnu.org>
parents:
16488
diff
changeset
|
1009 syms_of_insdel (); |
284 | 1010 syms_of_keyboard (); |
1011 syms_of_keymap (); | |
1012 syms_of_macros (); | |
1013 syms_of_marker (); | |
1014 syms_of_minibuf (); | |
1015 syms_of_mocklisp (); | |
1016 syms_of_process (); | |
1017 syms_of_search (); | |
763 | 1018 syms_of_frame (); |
284 | 1019 syms_of_syntax (); |
6751 | 1020 syms_of_term (); |
284 | 1021 syms_of_undo (); |
1284 | 1022 |
1023 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ | |
1024 syms_of_textprop (); | |
284 | 1025 #ifdef VMS |
1026 syms_of_vmsproc (); | |
1027 #endif /* VMS */ | |
15202
0a9e62f4f10b
(main) [WINDOWSNT]: Call syms_of_ntproc.
Richard M. Stallman <rms@gnu.org>
parents:
15089
diff
changeset
|
1028 #ifdef WINDOWSNT |
0a9e62f4f10b
(main) [WINDOWSNT]: Call syms_of_ntproc.
Richard M. Stallman <rms@gnu.org>
parents:
15089
diff
changeset
|
1029 syms_of_ntproc (); |
0a9e62f4f10b
(main) [WINDOWSNT]: Call syms_of_ntproc.
Richard M. Stallman <rms@gnu.org>
parents:
15089
diff
changeset
|
1030 #endif /* WINDOWSNT */ |
284 | 1031 syms_of_window (); |
1032 syms_of_xdisp (); | |
1033 #ifdef HAVE_X_WINDOWS | |
375 | 1034 syms_of_xterm (); |
284 | 1035 syms_of_xfns (); |
17060
8c069ef6e1c4
(main): Call several initialization function introduced
Karl Heuer <kwzh@gnu.org>
parents:
16968
diff
changeset
|
1036 syms_of_fontset (); |
375 | 1037 #ifdef HAVE_X11 |
1038 syms_of_xselect (); | |
1039 #endif | |
284 | 1040 #endif /* HAVE_X_WINDOWS */ |
1041 | |
18062
b0aa97f95c05
(main): Call syms_of_xfaces whenever ! HAVE_NTGUI.
Richard M. Stallman <rms@gnu.org>
parents:
17563
diff
changeset
|
1042 #ifndef HAVE_NTGUI |
9572 | 1043 syms_of_xfaces (); |
1044 syms_of_xmenu (); | |
14788
a3b8405017f4
(main) [! HAVE_NTGUI]: Don't call syms_of_xmenu.
Richard M. Stallman <rms@gnu.org>
parents:
14740
diff
changeset
|
1045 #endif |
9572 | 1046 |
13409
280f00071040
[HAVE_NTGUI]: Declare Vwindow_system.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13393
diff
changeset
|
1047 #ifdef HAVE_NTGUI |
16588
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16548
diff
changeset
|
1048 syms_of_w32term (); |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16548
diff
changeset
|
1049 syms_of_w32fns (); |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16548
diff
changeset
|
1050 syms_of_w32faces (); |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16548
diff
changeset
|
1051 syms_of_w32select (); |
481b7874a1e9
Change identifiers of the form win32* to w32*.
Geoff Voelker <voelker@cs.washington.edu>
parents:
16548
diff
changeset
|
1052 syms_of_w32menu (); |
13409
280f00071040
[HAVE_NTGUI]: Declare Vwindow_system.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13393
diff
changeset
|
1053 #endif /* HAVE_NTGUI */ |
280f00071040
[HAVE_NTGUI]: Declare Vwindow_system.
Geoff Voelker <voelker@cs.washington.edu>
parents:
13393
diff
changeset
|
1054 |
284 | 1055 #ifdef SYMS_SYSTEM |
1056 SYMS_SYSTEM; | |
1057 #endif | |
1058 | |
1059 #ifdef SYMS_MACHINE | |
1060 SYMS_MACHINE; | |
1061 #endif | |
1062 | |
1063 keys_of_casefiddle (); | |
1064 keys_of_cmds (); | |
1065 keys_of_buffer (); | |
1066 keys_of_keyboard (); | |
1067 keys_of_keymap (); | |
1068 keys_of_macros (); | |
1069 keys_of_minibuf (); | |
1070 keys_of_window (); | |
1384
416f7f33fe95
* emacs.c (main): Call keys_of_frame.
Jim Blandy <jimb@redhat.com>
parents:
1350
diff
changeset
|
1071 keys_of_frame (); |
284 | 1072 } |
1073 | |
1074 if (!initialized) | |
1075 { | |
9094 | 1076 char *file; |
284 | 1077 /* 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
|
1078 if (argmatch (argv, argc, "-l", "--load", 3, &file, &skip_args)) |
284 | 1079 Vtop_level = Fcons (intern ("load"), |
9094 | 1080 Fcons (build_string (file), Qnil)); |
284 | 1081 #ifdef CANNOT_DUMP |
1082 /* 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
|
1083 if (!argmatch (argv, argc, "-nl", "--no-loadup", 6, NULL, &skip_args)) |
284 | 1084 Vtop_level = Fcons (intern ("load"), |
1085 Fcons (build_string ("loadup.el"), Qnil)); | |
1086 #endif /* CANNOT_DUMP */ | |
1087 } | |
1088 | |
11195
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
1089 if (initialized) |
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
1090 { |
14202
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1091 #ifdef HAVE_TZSET |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1092 { |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1093 /* If the execution TZ happens to be the same as the dump TZ, |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1094 change it to some other value and then change it back, |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1095 to force the underlying implementation to reload the TZ info. |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1096 This is needed on implementations that load TZ info from files, |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1097 since the TZ file contents may differ between dump and execution. */ |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1098 char *tz = getenv ("TZ"); |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1099 if (tz && !strcmp (tz, dump_tz)) |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1100 { |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1101 ++*tz; |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1102 tzset (); |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1103 --*tz; |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1104 } |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1105 } |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1106 #endif |
11195
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
1107 } |
0833fb6a29bb
(main): Start with an empty message log.
Karl Heuer <kwzh@gnu.org>
parents:
11157
diff
changeset
|
1108 |
19291
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1109 /* Gerd Moellmann <gerd@acm.org> says this makes profiling work on |
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1110 FreeBSD. It might work on some other systems too. |
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1111 Give it a try and tell me if it works on your system. */ |
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1112 #ifdef __FreeBSD__ |
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1113 #ifdef PROFILING |
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1114 if (initialized) |
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1115 { |
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1116 extern void _mcleanup (); |
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1117 extern char etext; |
19309
f8d133a2df57
(main): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
19291
diff
changeset
|
1118 extern Lisp_Object Fredraw_frame (); |
19291
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1119 atexit (_mcleanup); |
19310 | 1120 /* This uses Fredraw_frame because that function |
1121 comes first in the Emacs executable. | |
1122 It might be better to use something that gives | |
1123 the start of the text segment, but start_of_text | |
1124 is not defined on all systems now. */ | |
19309
f8d133a2df57
(main): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
19291
diff
changeset
|
1125 monstartup (Fredraw_frame, &etext); |
19291
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1126 } |
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1127 else |
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1128 moncontrol (0); |
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1129 #endif |
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1130 #endif |
27c3012475b2
(main) [__FreeBSD__ && PROFILING]: Add code for profiling.
Richard M. Stallman <rms@gnu.org>
parents:
19215
diff
changeset
|
1131 |
284 | 1132 initialized = 1; |
1133 | |
13016
6ad7dc19b526
(main): Call tzset only if LOCALTIME_CACHE is defined;
Richard M. Stallman <rms@gnu.org>
parents:
12971
diff
changeset
|
1134 #ifdef LOCALTIME_CACHE |
6ad7dc19b526
(main): Call tzset only if LOCALTIME_CACHE is defined;
Richard M. Stallman <rms@gnu.org>
parents:
12971
diff
changeset
|
1135 /* Some versions of localtime have a bug. They cache the value of the time |
815 | 1136 zone rather than looking it up every time. Since localtime() is |
1137 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
|
1138 results in localtime ignoring the TZ environment variable. |
fd9865b5a41e
(main): Test LOCALTIME_CACHE.
Richard M. Stallman <rms@gnu.org>
parents:
3932
diff
changeset
|
1139 This flushes the new TZ value into localtime. */ |
fd9865b5a41e
(main): Test LOCALTIME_CACHE.
Richard M. Stallman <rms@gnu.org>
parents:
3932
diff
changeset
|
1140 tzset (); |
13016
6ad7dc19b526
(main): Call tzset only if LOCALTIME_CACHE is defined;
Richard M. Stallman <rms@gnu.org>
parents:
12971
diff
changeset
|
1141 #endif /* defined (LOCALTIME_CACHE) */ |
815 | 1142 |
284 | 1143 /* Enter editor command loop. This never returns. */ |
1144 Frecursive_edit (); | |
1145 /* NOTREACHED */ | |
1146 } | |
1147 | |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1148 /* 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
|
1149 at the beginning of argv. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1150 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1151 /* 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
|
1152 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1153 struct standard_args |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1154 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1155 char *name; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1156 char *longname; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1157 int priority; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1158 int nargs; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1159 }; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1160 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1161 struct standard_args standard_args[] = |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1162 { |
11634
820eaef29fae
(main): Delete duplicate code for -version.
Richard M. Stallman <rms@gnu.org>
parents:
11629
diff
changeset
|
1163 { "-version", "--version", 110, 0 }, |
820eaef29fae
(main): Delete duplicate code for -version.
Richard M. Stallman <rms@gnu.org>
parents:
11629
diff
changeset
|
1164 { "-help", "--help", 110, 0 }, |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1165 { "-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
|
1166 #ifdef VMS |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1167 { "-map", "--map-data", 100, 0 }, |
11629
bae8a831397f
(standard_args): Add #ifdef VMS for -map.
Richard M. Stallman <rms@gnu.org>
parents:
11623
diff
changeset
|
1168 #endif |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1169 { "-t", "--terminal", 90, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1170 { "-d", "--display", 80, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1171 { "-display", 0, 80, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1172 { "-nw", "--no-windows", 70, 0 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1173 { "-batch", "--batch", 60, 0 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1174 { "-q", "--no-init-file", 50, 0 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1175 { "-no-init-file", 0, 50, 0 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1176 { "-no-site-file", "--no-site-file", 40, 0 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1177 { "-u", "--user", 30, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1178 { "-user", 0, 30, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1179 { "-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
|
1180 { "-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
|
1181 { "-itype", 0, 15, 0 }, |
11596
b59f90606227
(standard_args): Move -iconic and --icon-type (etc.)
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
1182 { "-iconic", "--iconic", 15, 0 }, |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1183 { "-bg", "--background-color", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1184 { "-background", 0, 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1185 { "-fg", "--foreground-color", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1186 { "-foreground", 0, 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1187 { "-bd", "--border-color", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1188 { "-bw", "--border-width", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1189 { "-ib", "--internal-border", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1190 { "-ms", "--mouse-color", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1191 { "-cr", "--cursor-color", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1192 { "-fn", "--font", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1193 { "-font", 0, 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1194 { "-g", "--geometry", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1195 { "-geometry", 0, 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1196 { "-T", "--title", 10, 1 }, |
14993
a29d378dc9cd
(standard_args): Synchronize with startup.el.
Richard M. Stallman <rms@gnu.org>
parents:
14968
diff
changeset
|
1197 { "-title", 0, 10, 1 }, |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1198 { "-name", "--name", 10, 1 }, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1199 { "-xrm", "--xrm", 10, 1 }, |
10517
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
1200 { "-r", "--reverse-video", 5, 0 }, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
1201 { "-rv", 0, 5, 0 }, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
1202 { "-reverse", 0, 5, 0 }, |
14993
a29d378dc9cd
(standard_args): Synchronize with startup.el.
Richard M. Stallman <rms@gnu.org>
parents:
14968
diff
changeset
|
1203 { "-hb", "--horizontal-scroll-bars", 5, 0 }, |
10517
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
1204 { "-vb", "--vertical-scroll-bars", 5, 0 }, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
1205 /* 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
|
1206 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
|
1207 { "-L", "--directory", 0, 1 }, |
584362605c5e
(standard_args): Add -L/--directory/-directory.
Richard M. Stallman <rms@gnu.org>
parents:
11596
diff
changeset
|
1208 { "-directory", 0, 0, 1 }, |
10517
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
1209 { "-l", "--load", 0, 1 }, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
1210 { "-load", 0, 0, 1 }, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
1211 { "-f", "--funcall", 0, 1 }, |
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
1212 { "-funcall", 0, 0, 1 }, |
12851
89d5e3a554de
(standard_args): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents:
12848
diff
changeset
|
1213 { "-eval", "--eval", 0, 1 }, |
16749
c85f62b1b749
(standard_args): Add -find-file and -visit.
Richard M. Stallman <rms@gnu.org>
parents:
16588
diff
changeset
|
1214 { "-find-file", "--find-file", 0, 1 }, |
c85f62b1b749
(standard_args): Add -find-file and -visit.
Richard M. Stallman <rms@gnu.org>
parents:
16588
diff
changeset
|
1215 { "-visit", "--visit", 0, 1 }, |
10517
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
1216 { "-insert", "--insert", 0, 1 }, |
11596
b59f90606227
(standard_args): Move -iconic and --icon-type (etc.)
Richard M. Stallman <rms@gnu.org>
parents:
11235
diff
changeset
|
1217 /* 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
|
1218 { "-kill", "--kill", -10, 0 }, |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1219 }; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1220 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1221 /* 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
|
1222 so that the highest priority ones come first. |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1223 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
|
1224 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
|
1225 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1226 static void |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1227 sort_args (argc, argv) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1228 int argc; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1229 char **argv; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1230 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1231 char **new = (char **) xmalloc (sizeof (char *) * argc); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1232 /* For each element of argv, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1233 the corresponding element of options is: |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1234 0 for an option that takes no arguments, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1235 1 for an option that takes one argument, etc. |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1236 -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
|
1237 int *options = (int *) xmalloc (sizeof (int) * argc); |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1238 int *priority = (int *) xmalloc (sizeof (int) * argc); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1239 int to = 1; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1240 int from; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1241 int i; |
16091
d76a0697d12e
(sort_args): Don't rearrange any args that follow "--".
Richard M. Stallman <rms@gnu.org>
parents:
16046
diff
changeset
|
1242 int end_of_options = argc; |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1243 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1244 /* Categorize all the options, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1245 and figure out which argv elts are option arguments. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1246 for (from = 1; from < argc; from++) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1247 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1248 options[from] = -1; |
10517
08e3895c1fdc
(sort_args): Ordinary args get priority 0.
Richard M. Stallman <rms@gnu.org>
parents:
10388
diff
changeset
|
1249 priority[from] = 0; |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1250 if (argv[from][0] == '-') |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1251 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1252 int match, thislen; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1253 char *equals; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1254 |
16091
d76a0697d12e
(sort_args): Don't rearrange any args that follow "--".
Richard M. Stallman <rms@gnu.org>
parents:
16046
diff
changeset
|
1255 /* If we have found "--", don't consider |
d76a0697d12e
(sort_args): Don't rearrange any args that follow "--".
Richard M. Stallman <rms@gnu.org>
parents:
16046
diff
changeset
|
1256 any more arguments as options. */ |
19030
469abf255dcb
(sort_args): Check properly for `--'.
Richard M. Stallman <rms@gnu.org>
parents:
18950
diff
changeset
|
1257 if (argv[from][1] == '-' && argv[from][2] == 0) |
16091
d76a0697d12e
(sort_args): Don't rearrange any args that follow "--".
Richard M. Stallman <rms@gnu.org>
parents:
16046
diff
changeset
|
1258 { |
d76a0697d12e
(sort_args): Don't rearrange any args that follow "--".
Richard M. Stallman <rms@gnu.org>
parents:
16046
diff
changeset
|
1259 /* Leave the "--", and everything following it, at the end. */ |
d76a0697d12e
(sort_args): Don't rearrange any args that follow "--".
Richard M. Stallman <rms@gnu.org>
parents:
16046
diff
changeset
|
1260 for (; from < argc; from++) |
d76a0697d12e
(sort_args): Don't rearrange any args that follow "--".
Richard M. Stallman <rms@gnu.org>
parents:
16046
diff
changeset
|
1261 { |
d76a0697d12e
(sort_args): Don't rearrange any args that follow "--".
Richard M. Stallman <rms@gnu.org>
parents:
16046
diff
changeset
|
1262 priority[from] = -100; |
d76a0697d12e
(sort_args): Don't rearrange any args that follow "--".
Richard M. Stallman <rms@gnu.org>
parents:
16046
diff
changeset
|
1263 options[from] = -1; |
d76a0697d12e
(sort_args): Don't rearrange any args that follow "--".
Richard M. Stallman <rms@gnu.org>
parents:
16046
diff
changeset
|
1264 } |
d76a0697d12e
(sort_args): Don't rearrange any args that follow "--".
Richard M. Stallman <rms@gnu.org>
parents:
16046
diff
changeset
|
1265 break; |
d76a0697d12e
(sort_args): Don't rearrange any args that follow "--".
Richard M. Stallman <rms@gnu.org>
parents:
16046
diff
changeset
|
1266 } |
d76a0697d12e
(sort_args): Don't rearrange any args that follow "--".
Richard M. Stallman <rms@gnu.org>
parents:
16046
diff
changeset
|
1267 |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1268 /* 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
|
1269 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
|
1270 if (!strcmp (argv[from], standard_args[i].name)) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1271 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1272 options[from] = standard_args[i].nargs; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1273 priority[from] = standard_args[i].priority; |
14399
3a16ff5f6594
(sort_args): Error if option is missing an arg.
Richard M. Stallman <rms@gnu.org>
parents:
14202
diff
changeset
|
1274 if (from + standard_args[i].nargs >= argc) |
3a16ff5f6594
(sort_args): Error if option is missing an arg.
Richard M. Stallman <rms@gnu.org>
parents:
14202
diff
changeset
|
1275 fatal ("Option `%s' requires an argument\n", argv[from]); |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1276 from += standard_args[i].nargs; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1277 goto done; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1278 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1279 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1280 /* Look for a match with a known long option. |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1281 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
|
1282 >= 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
|
1283 if (argv[from][1] == '-') |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1284 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1285 match = -1; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1286 thislen = strlen (argv[from]); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1287 equals = index (argv[from], '='); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1288 if (equals != 0) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1289 thislen = equals - argv[from]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1290 |
11157
620fd38579d8
(sort_args): Skip strncmp if longname is a null pointer.
Karl Heuer <kwzh@gnu.org>
parents:
11076
diff
changeset
|
1291 for (i = 0; |
620fd38579d8
(sort_args): Skip strncmp if longname is a null pointer.
Karl Heuer <kwzh@gnu.org>
parents:
11076
diff
changeset
|
1292 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
|
1293 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
|
1294 && !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
|
1295 thislen)) |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1296 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1297 if (match == -1) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1298 match = i; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1299 else |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1300 match = -2; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1301 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1302 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1303 /* If we found exactly one match, use that. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1304 if (match >= 0) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1305 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1306 options[from] = standard_args[match].nargs; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1307 priority[from] = standard_args[match].priority; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1308 /* If --OPTION=VALUE syntax is used, |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1309 this option uses just one argv element. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1310 if (equals != 0) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1311 options[from] = 0; |
14399
3a16ff5f6594
(sort_args): Error if option is missing an arg.
Richard M. Stallman <rms@gnu.org>
parents:
14202
diff
changeset
|
1312 if (from + options[from] >= argc) |
3a16ff5f6594
(sort_args): Error if option is missing an arg.
Richard M. Stallman <rms@gnu.org>
parents:
14202
diff
changeset
|
1313 fatal ("Option `%s' requires an argument\n", argv[from]); |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1314 from += options[from]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1315 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1316 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1317 done: ; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1318 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1319 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1320 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1321 /* 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
|
1322 new[0] = argv[0]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1323 while (to < argc) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1324 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1325 int best = -1; |
12861
c67a46e4fcef
(sort_args): Initialize best_priority smaller than any
Karl Heuer <kwzh@gnu.org>
parents:
12851
diff
changeset
|
1326 int best_priority = -9999; |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1327 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1328 /* Find the highest priority remaining option. |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1329 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
|
1330 for (from = 1; from < argc; from++) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1331 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1332 if (argv[from] != 0 && priority[from] > best_priority) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1333 { |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1334 best_priority = priority[from]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1335 best = from; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1336 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1337 /* Skip option arguments--they are tied to the options. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1338 if (options[from] > 0) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1339 from += options[from]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1340 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1341 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1342 if (best < 0) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1343 abort (); |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1344 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1345 /* 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
|
1346 new[to++] = argv[best]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1347 for (i = 0; i < options[best]; i++) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1348 new[to++] = argv[best + i + 1]; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1349 |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1350 /* Clear out this option in ARGV. */ |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1351 argv[best] = 0; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1352 for (i = 0; i < options[best]; i++) |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1353 argv[best + i + 1] = 0; |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1354 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1355 |
10150
d8fb9db90d8e
(sort_args): Make `options' a vector of ints.
Richard M. Stallman <rms@gnu.org>
parents:
10111
diff
changeset
|
1356 bcopy (new, argv, sizeof (char *) * argc); |
17563
b696f990c544
(sort_args): Free the malloc'd memory.
Richard M. Stallman <rms@gnu.org>
parents:
17346
diff
changeset
|
1357 |
b696f990c544
(sort_args): Free the malloc'd memory.
Richard M. Stallman <rms@gnu.org>
parents:
17346
diff
changeset
|
1358 free (options); |
b696f990c544
(sort_args): Free the malloc'd memory.
Richard M. Stallman <rms@gnu.org>
parents:
17346
diff
changeset
|
1359 free (new); |
b696f990c544
(sort_args): Free the malloc'd memory.
Richard M. Stallman <rms@gnu.org>
parents:
17346
diff
changeset
|
1360 free (priority); |
10029
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1361 } |
fdc1155b891c
(sort_args): New function.
Richard M. Stallman <rms@gnu.org>
parents:
9788
diff
changeset
|
1362 |
284 | 1363 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
|
1364 "Exit the Emacs job and kill it.\n\ |
284 | 1365 If ARG is an integer, return ARG as the exit program code.\n\ |
1366 If ARG is a string, stuff it as keyboard input.\n\n\ | |
1367 The value of `kill-emacs-hook', if not void,\n\ | |
1368 is a list of functions (of no args),\n\ | |
1369 all of which are called before Emacs is actually killed.") | |
1370 (arg) | |
1371 Lisp_Object arg; | |
1372 { | |
1373 Lisp_Object hook, hook1; | |
1374 int i; | |
1375 struct gcpro gcpro1; | |
1376 | |
1377 GCPRO1 (arg); | |
1378 | |
1379 if (feof (stdin)) | |
1380 arg = Qt; | |
1381 | |
505 | 1382 if (!NILP (Vrun_hooks) && !noninteractive) |
284 | 1383 call1 (Vrun_hooks, intern ("kill-emacs-hook")); |
1384 | |
1385 UNGCPRO; | |
1386 | |
1387 /* Is it really necessary to do this deassign | |
1388 when we are going to exit anyway? */ | |
1389 /* #ifdef VMS | |
1390 stop_vms_input (); | |
1391 #endif */ | |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1392 |
3837
85652925d5b8
* emacs.c (Fkill_emacs): Pass third argument to shut_down_emacs.
Jim Blandy <jimb@redhat.com>
parents:
3826
diff
changeset
|
1393 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
|
1394 |
11846
778a35aba3f7
(Fkill_emacs): Delete the auto-save-list file
Karl Heuer <kwzh@gnu.org>
parents:
11841
diff
changeset
|
1395 /* 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
|
1396 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
|
1397 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
|
1398 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
|
1399 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
|
1400 |
9132
b2ca75d3a5cb
(Fkill_emacs): Use type test macros.
Karl Heuer <kwzh@gnu.org>
parents:
9094
diff
changeset
|
1401 exit (INTEGERP (arg) ? XINT (arg) |
284 | 1402 #ifdef VMS |
1403 : 1 | |
1404 #else | |
1405 : 0 | |
1406 #endif | |
1407 ); | |
1408 /* NOTREACHED */ | |
1409 } | |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1410 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1411 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1412 /* 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
|
1413 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
|
1414 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
|
1415 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
|
1416 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
|
1417 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1418 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
|
1419 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1420 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
|
1421 and Fkill_emacs. */ |
3711
5acf09035d16
(shut_down_emacs): New arg STUFF. Stuff input here.
Richard M. Stallman <rms@gnu.org>
parents:
3655
diff
changeset
|
1422 |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1423 void |
3711
5acf09035d16
(shut_down_emacs): New arg STUFF. Stuff input here.
Richard M. Stallman <rms@gnu.org>
parents:
3655
diff
changeset
|
1424 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
|
1425 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
|
1426 Lisp_Object stuff; |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1427 { |
6210
dcc7759634d8
(shut_down_emacs): Set Vrun_hooks to nil.
Richard M. Stallman <rms@gnu.org>
parents:
6171
diff
changeset
|
1428 /* 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
|
1429 Vrun_hooks = Qnil; |
dcc7759634d8
(shut_down_emacs): Set Vrun_hooks to nil.
Richard M. Stallman <rms@gnu.org>
parents:
6171
diff
changeset
|
1430 |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1431 /* 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
|
1432 #ifdef EMACS_HAVE_TTY_PGRP |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1433 { |
4957
dccce35b1173
(main): Use EMACS_GETPGRP macro.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
1434 int pgrp = EMACS_GETPGRP (0); |
dccce35b1173
(main): Use EMACS_GETPGRP macro.
Richard M. Stallman <rms@gnu.org>
parents:
4696
diff
changeset
|
1435 |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1436 int tpgrp; |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1437 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
|
1438 && tpgrp == pgrp) |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1439 { |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1440 fflush (stdout); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1441 reset_sys_modes (); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1442 if (sig && sig != SIGTERM) |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1443 fprintf (stderr, "Fatal error (%d).", sig); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1444 } |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1445 } |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1446 #else |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1447 fflush (stdout); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1448 reset_sys_modes (); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1449 #endif |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1450 |
3711
5acf09035d16
(shut_down_emacs): New arg STUFF. Stuff input here.
Richard M. Stallman <rms@gnu.org>
parents:
3655
diff
changeset
|
1451 stuff_buffered_input (stuff); |
5acf09035d16
(shut_down_emacs): New arg STUFF. Stuff input here.
Richard M. Stallman <rms@gnu.org>
parents:
3655
diff
changeset
|
1452 |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1453 kill_buffer_processes (Qnil); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1454 Fdo_auto_save (Qt, Qnil); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1455 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1456 #ifdef CLASH_DETECTION |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1457 unlock_all_files (); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1458 #endif |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1459 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1460 #ifdef VMS |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1461 kill_vms_processes (); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1462 #endif |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1463 |
8815
b1766995a504
(shut_down_emacs): Don't call Fx_close_current_connection.
Richard M. Stallman <rms@gnu.org>
parents:
8704
diff
changeset
|
1464 #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
|
1465 #ifdef HAVE_X_WINDOWS |
7538
c4d128d26fc9
(syms_of_emacs): EMACS_CONFIGURATION renamed from CONFIGURATION.
Richard M. Stallman <rms@gnu.org>
parents:
7480
diff
changeset
|
1466 /* 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
|
1467 if (!noninteractive && SYMBOLP (Vwindow_system) |
c4d128d26fc9
(syms_of_emacs): EMACS_CONFIGURATION renamed from CONFIGURATION.
Richard M. Stallman <rms@gnu.org>
parents:
7480
diff
changeset
|
1468 && 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
|
1469 && 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
|
1470 && ! 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
|
1471 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
|
1472 #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
|
1473 #endif |
3273
a5e5e1e04331
Don't include termios.h directly--let systty.h do it.
Richard M. Stallman <rms@gnu.org>
parents:
3187
diff
changeset
|
1474 |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1475 #ifdef SIGIO |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1476 /* 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
|
1477 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
|
1478 unrequest_sigio (); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1479 signal (SIGIO, SIG_IGN); |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1480 #endif |
15089
3305f0390624
(main) [WINDOWSNT]: Invoke init_ntproc.
Richard M. Stallman <rms@gnu.org>
parents:
15012
diff
changeset
|
1481 |
3305f0390624
(main) [WINDOWSNT]: Invoke init_ntproc.
Richard M. Stallman <rms@gnu.org>
parents:
15012
diff
changeset
|
1482 #ifdef WINDOWSNT |
3305f0390624
(main) [WINDOWSNT]: Invoke init_ntproc.
Richard M. Stallman <rms@gnu.org>
parents:
15012
diff
changeset
|
1483 term_ntproc (); |
3305f0390624
(main) [WINDOWSNT]: Invoke init_ntproc.
Richard M. Stallman <rms@gnu.org>
parents:
15012
diff
changeset
|
1484 #endif |
1774
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1485 } |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1486 |
04cd18603ec5
* emacs.c (shut_down_emacs): New function.
Jim Blandy <jimb@redhat.com>
parents:
1472
diff
changeset
|
1487 |
284 | 1488 |
1489 #ifndef CANNOT_DUMP | |
1490 | |
1491 #ifdef HAVE_SHM | |
1492 | |
1493 DEFUN ("dump-emacs-data", Fdump_emacs_data, Sdump_emacs_data, 1, 1, 0, | |
1494 "Dump current state of Emacs into data file FILENAME.\n\ | |
1495 This function exists on systems that use HAVE_SHM.") | |
14072
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1496 (filename) |
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1497 Lisp_Object filename; |
284 | 1498 { |
11076
9d2cb049844b
(dump-emacs-data, dump-emacs): Declare my_edata as char array.
Richard M. Stallman <rms@gnu.org>
parents:
10902
diff
changeset
|
1499 extern char my_edata[]; |
284 | 1500 Lisp_Object tem; |
1501 | |
14072
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1502 CHECK_STRING (filename, 0); |
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1503 filename = Fexpand_file_name (filename, Qnil); |
284 | 1504 |
1505 tem = Vpurify_flag; | |
1506 Vpurify_flag = Qnil; | |
1507 | |
1508 fflush (stdout); | |
1509 /* Tell malloc where start of impure now is */ | |
1510 /* Also arrange for warnings when nearly out of space. */ | |
1511 #ifndef SYSTEM_MALLOC | |
11720
f21ea087b1d8
Delete all APOLLO conditionals.
Richard M. Stallman <rms@gnu.org>
parents:
11634
diff
changeset
|
1512 memory_warnings (my_edata, malloc_warning); |
284 | 1513 #endif |
14072
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1514 map_out_data (XSTRING (filename)->data); |
284 | 1515 |
1516 Vpurify_flag = tem; | |
1517 | |
1518 return Qnil; | |
1519 } | |
1520 | |
1521 #else /* not HAVE_SHM */ | |
1522 | |
1523 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0, | |
1524 "Dump current state of Emacs into executable file FILENAME.\n\ | |
1525 Take symbols from SYMFILE (presumably the file you executed to run Emacs).\n\ | |
1526 This is used in the file `loadup.el' when building Emacs.\n\ | |
1527 \n\ | |
18394
d249b1ae0a02
(Fdump_emacs): Error if not run in batch mode.
Richard M. Stallman <rms@gnu.org>
parents:
18062
diff
changeset
|
1528 You must run Emacs in batch mode in order to dump it.") |
14072
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1529 (filename, symfile) |
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1530 Lisp_Object filename, symfile; |
284 | 1531 { |
11076
9d2cb049844b
(dump-emacs-data, dump-emacs): Declare my_edata as char array.
Richard M. Stallman <rms@gnu.org>
parents:
10902
diff
changeset
|
1532 extern char my_edata[]; |
284 | 1533 Lisp_Object tem; |
18395
4b6ab0b6fd50
(Fdump_emacs): Bind command-line-processed to nil here.
Richard M. Stallman <rms@gnu.org>
parents:
18394
diff
changeset
|
1534 Lisp_Object symbol; |
4b6ab0b6fd50
(Fdump_emacs): Bind command-line-processed to nil here.
Richard M. Stallman <rms@gnu.org>
parents:
18394
diff
changeset
|
1535 int count = specpdl_ptr - specpdl; |
284 | 1536 |
18394
d249b1ae0a02
(Fdump_emacs): Error if not run in batch mode.
Richard M. Stallman <rms@gnu.org>
parents:
18062
diff
changeset
|
1537 if (! noninteractive) |
d249b1ae0a02
(Fdump_emacs): Error if not run in batch mode.
Richard M. Stallman <rms@gnu.org>
parents:
18062
diff
changeset
|
1538 error ("Dumping Emacs works only in batch mode"); |
d249b1ae0a02
(Fdump_emacs): Error if not run in batch mode.
Richard M. Stallman <rms@gnu.org>
parents:
18062
diff
changeset
|
1539 |
18395
4b6ab0b6fd50
(Fdump_emacs): Bind command-line-processed to nil here.
Richard M. Stallman <rms@gnu.org>
parents:
18394
diff
changeset
|
1540 /* Bind `command-line-processed' to nil before dumping, |
4b6ab0b6fd50
(Fdump_emacs): Bind command-line-processed to nil here.
Richard M. Stallman <rms@gnu.org>
parents:
18394
diff
changeset
|
1541 so that the dumped Emacs will process its command line |
4b6ab0b6fd50
(Fdump_emacs): Bind command-line-processed to nil here.
Richard M. Stallman <rms@gnu.org>
parents:
18394
diff
changeset
|
1542 and set up to work with X windows if appropriate. */ |
4b6ab0b6fd50
(Fdump_emacs): Bind command-line-processed to nil here.
Richard M. Stallman <rms@gnu.org>
parents:
18394
diff
changeset
|
1543 symbol = intern ("command-line-process"); |
4b6ab0b6fd50
(Fdump_emacs): Bind command-line-processed to nil here.
Richard M. Stallman <rms@gnu.org>
parents:
18394
diff
changeset
|
1544 specbind (symbol, Qnil); |
4b6ab0b6fd50
(Fdump_emacs): Bind command-line-processed to nil here.
Richard M. Stallman <rms@gnu.org>
parents:
18394
diff
changeset
|
1545 |
14072
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1546 CHECK_STRING (filename, 0); |
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1547 filename = Fexpand_file_name (filename, Qnil); |
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1548 if (!NILP (symfile)) |
284 | 1549 { |
14072
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1550 CHECK_STRING (symfile, 0); |
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1551 if (XSTRING (symfile)->size) |
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1552 symfile = Fexpand_file_name (symfile, Qnil); |
284 | 1553 } |
1554 | |
1555 tem = Vpurify_flag; | |
1556 Vpurify_flag = Qnil; | |
1557 | |
14202
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1558 #ifdef HAVE_TZSET |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1559 set_time_zone_rule (dump_tz); |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1560 #ifndef LOCALTIME_CACHE |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1561 /* Force a tz reload, since set_time_zone_rule doesn't. */ |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1562 tzset (); |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1563 #endif |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1564 #endif |
7acafb848e80
(Fdump_emacs): If HAVE_TZSET and not
Richard M. Stallman <rms@gnu.org>
parents:
14127
diff
changeset
|
1565 |
284 | 1566 fflush (stdout); |
1567 #ifdef VMS | |
14072
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1568 mapout_data (XSTRING (filename)->data); |
284 | 1569 #else |
1570 /* Tell malloc where start of impure now is */ | |
1571 /* Also arrange for warnings when nearly out of space. */ | |
1572 #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
|
1573 #ifndef WINDOWSNT |
cfc5a79852e8
(Fdump_emacs): Don't reset the data start address by
Richard M. Stallman <rms@gnu.org>
parents:
9572
diff
changeset
|
1574 /* 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
|
1575 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
|
1576 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
|
1577 #endif /* not WINDOWSNT */ |
284 | 1578 #endif |
17346
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
1579 #ifdef DOUG_LEA_MALLOC |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
1580 malloc_state_ptr = malloc_get_state (); |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
1581 #endif |
14072
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1582 unexec (XSTRING (filename)->data, |
d6f46c53f2aa
(Fdump_emacs_data, Fdump_emacs): Harmonize arguments with documentation.
Erik Naggum <erik@naggum.no>
parents:
14035
diff
changeset
|
1583 !NILP (symfile) ? XSTRING (symfile)->data : 0, my_edata, 0, 0); |
17346
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
1584 #ifdef DOUG_LEA_MALLOC |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
1585 free (malloc_state_ptr); |
f29f51d8a21f
(malloc_get_state, malloc_set_state): New declarations.
Richard M. Stallman <rms@gnu.org>
parents:
17312
diff
changeset
|
1586 #endif |
284 | 1587 #endif /* not VMS */ |
1588 | |
1589 Vpurify_flag = tem; | |
1590 | |
18395
4b6ab0b6fd50
(Fdump_emacs): Bind command-line-processed to nil here.
Richard M. Stallman <rms@gnu.org>
parents:
18394
diff
changeset
|
1591 return unbind_to (count, Qnil); |
284 | 1592 } |
1593 | |
1594 #endif /* not HAVE_SHM */ | |
1595 | |
1596 #endif /* not CANNOT_DUMP */ | |
1597 | |
2649
3a9fb5d6d259
* emacs.c (SEPCHAR): Instead of defining this to be ',' on VMS and
Jim Blandy <jimb@redhat.com>
parents:
2439
diff
changeset
|
1598 #ifndef SEPCHAR |
284 | 1599 #define SEPCHAR ':' |
1600 #endif | |
1601 | |
1602 Lisp_Object | |
1603 decode_env_path (evarname, defalt) | |
1604 char *evarname, *defalt; | |
1605 { | |
1606 register char *path, *p; | |
16386
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1607 Lisp_Object lpath, element, tem; |
284 | 1608 |
505 | 1609 /* It's okay to use getenv here, because this function is only used |
1610 to initialize variables when Emacs starts up, and isn't called | |
1611 after that. */ | |
638 | 1612 if (evarname != 0) |
1613 path = (char *) getenv (evarname); | |
1614 else | |
1615 path = 0; | |
284 | 1616 if (!path) |
1617 path = defalt; | |
18514
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1618 #ifdef DOS_NT |
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1619 /* Ensure values from the environment use the proper directory separator. */ |
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1620 if (path) |
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1621 { |
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1622 p = alloca (strlen (path) + 1); |
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1623 strcpy (p, path); |
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1624 path = p; |
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1625 |
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1626 if ('/' == DIRECTORY_SEP) |
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1627 dostounix_filename (path); |
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1628 else |
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1629 unixtodos_filename (path); |
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1630 } |
38e3a189ed1d
(decode_env_path): Ensure path elements use proper directory separator.
Richard M. Stallman <rms@gnu.org>
parents:
18395
diff
changeset
|
1631 #endif |
284 | 1632 lpath = Qnil; |
1633 while (1) | |
1634 { | |
1635 p = index (path, SEPCHAR); | |
1636 if (!p) p = path + strlen (path); | |
16386
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1637 element = (p - path ? make_string (path, p - path) |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1638 : build_string (".")); |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1639 |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1640 /* Add /: to the front of the name |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1641 if it would otherwise be treated as magic. */ |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1642 tem = Ffind_file_name_handler (element, Qt); |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1643 if (! NILP (tem)) |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1644 element = concat2 (build_string ("/:"), element); |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1645 |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1646 lpath = Fcons (element, lpath); |
284 | 1647 if (*p) |
1648 path = p + 1; | |
1649 else | |
1650 break; | |
1651 } | |
1652 return Fnreverse (lpath); | |
1653 } | |
1654 | |
1655 syms_of_emacs () | |
1656 { | |
16386
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1657 Qfile_name_handler_alist = intern ("file-name-handler-alist"); |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1658 staticpro (&Qfile_name_handler_alist); |
e7e295c6add2
(decode_env_path): Add /: to dir names that could be magic.
Richard M. Stallman <rms@gnu.org>
parents:
16278
diff
changeset
|
1659 |
3187
0790b5563a66
(syms_of_emacs) [CANNOT_DUMP]: Don't defsubr Sdump_emacs*.
Richard M. Stallman <rms@gnu.org>
parents:
2961
diff
changeset
|
1660 #ifndef CANNOT_DUMP |
284 | 1661 #ifdef HAVE_SHM |
1662 defsubr (&Sdump_emacs_data); | |
1663 #else | |
1664 defsubr (&Sdump_emacs); | |
1665 #endif | |
3187
0790b5563a66
(syms_of_emacs) [CANNOT_DUMP]: Don't defsubr Sdump_emacs*.
Richard M. Stallman <rms@gnu.org>
parents:
2961
diff
changeset
|
1666 #endif |
284 | 1667 |
1668 defsubr (&Skill_emacs); | |
1669 | |
2279
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
1670 defsubr (&Sinvocation_name); |
4484
c589c71324dd
(Vinvocation_directory): New var.
Richard M. Stallman <rms@gnu.org>
parents:
4303
diff
changeset
|
1671 defsubr (&Sinvocation_directory); |
2279
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
1672 |
284 | 1673 DEFVAR_LISP ("command-line-args", &Vcommand_line_args, |
1674 "Args passed by shell to Emacs, as a list of strings."); | |
1675 | |
1676 DEFVAR_LISP ("system-type", &Vsystem_type, | |
1677 "Value is symbol indicating type of operating system you are using."); | |
1678 Vsystem_type = intern (SYSTEM_TYPE); | |
1679 | |
5236
3be757b02da0
(syms_of_emacs): Define Lisp var system-configuration.
Richard M. Stallman <rms@gnu.org>
parents:
5197
diff
changeset
|
1680 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
|
1681 "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
|
1682 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
|
1683 |
8843
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
1684 DEFVAR_LISP ("system-configuration-options", &Vsystem_configuration_options, |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
1685 "String containing the configuration options Emacs was built with."); |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
1686 Vsystem_configuration_options = build_string (EMACS_CONFIG_OPTIONS); |
4fd9700b07a7
(Vsystem_configuration_options): New variable.
Karl Heuer <kwzh@gnu.org>
parents:
8815
diff
changeset
|
1687 |
284 | 1688 DEFVAR_BOOL ("noninteractive", &noninteractive1, |
1689 "Non-nil means Emacs is running without interactive terminal."); | |
732 | 1690 |
1043
ee6f647ac103
* emacs.c: Incude "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1004
diff
changeset
|
1691 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
|
1692 "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
|
1693 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
|
1694 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
|
1695 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
|
1696 see `kill-emacs-query-functions' instead."); |
732 | 1697 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
|
1698 |
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
|
1699 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
|
1700 "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
|
1701 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
|
1702 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
|
1703 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
|
1704 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
|
1705 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
|
1706 emacs_priority = 0; |
2279
012b04efa234
* emacs.c (Finvocation_name): New function.
Jim Blandy <jimb@redhat.com>
parents:
2118
diff
changeset
|
1707 |
7003
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1708 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
|
1709 "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
|
1710 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
|
1711 |
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1712 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
|
1713 "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
|
1714 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
|
1715 |
7003
176bb79caecf
(init_cmdargs): Check only for etc and lib-src subdirs
Richard M. Stallman <rms@gnu.org>
parents:
7002
diff
changeset
|
1716 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
|
1717 "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
|
1718 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
|
1719 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
|
1720 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
|
1721 Vinstallation_directory = Qnil; |
284 | 1722 } |