Mercurial > emacs
annotate src/emacs.c @ 1284:4742a5797146
Password:
Last login: Tue Sep 29 20:00:25 from paris.CS.Berkele
4.3 BSD UNIX #1: Fri Dec 1 20:30:54 EST 1989
This machine belongs to the GNU project. Feel free to use it.
Send questions, requests, or other remarks to request@gnu.ai.mit.edu
The GNU Project does not have the physical resources to "host" random games
and IRC daemons on its machines. They tie up computing resources needed to
develop software and further GNU. They have become a real hassle for us, so
please don't run them.
/home/fsg is full. Do the right thing.
Guests: please don't use the hp300 machines for games, IRC, or news. You
are welcome to use them for other purposes as long as a staff member
doesn't ask you to log out and use another host. The hp300s include
wookumz, churchy, geech, and mole. Machines which may be used for just
about any purpose include hal, wombat, kropotkin, goldman, and hill.
You have mail.
This is a -bash login shell.
No DISPLAY variable here...
jla@churchy$ pwd
/home/fsf/jla
jla@churchy$ cd src
/gd/gnu/emacs/19.0/src
jla@churchy$ gdb xemacs
GDB is free software and you are welcome to distribute copies of it
under certain conditions; type "show copying" to see the conditions.
There is absolutely no warranty for GDB; type "show warranty" for details.
GDB 4.6, Copyright 1992 Free Software Foundation, Inc...
TERMCAP and TERM environment variables unset.
Environment variable "DISPLAY" not defined.
Breakpoint 1 at 0x7d6ec
Breakpoint 2 at 0x77310
(gdb) set env DISPLAY 128.32.150.43:0.0
(gdb) r
Starting program: /home/gd/gnu/emacs/19.0/src/xemacs -q
Cannot insert breakpoint 1:
The same program may be running in another process.
Cannot access memory at address 0x7d6ec.
(gdb)
[1]+ Stopped gdb xemacs
jla@churchy$ ps x
PID TT STAT TIME COMMAND
29053 p7 S 0:05 -bash (bash)
29074 p7 T 0:04 gdb xemacs
29075 p7 T 0:00 /home/gd/gnu/emacs/19.0/src/xemacs -q
29076 p7 R 0:00 ps x
jla@churchy$ ps ax
PID TT STAT TIME COMMAND
0 ? D 0:36 swapper
1 ? I 0:01 init
2 ? D 0:03 pagedaemon
49 ? S 15:02 syslogd
50 ? I 0:58 portmap
60 ? I 0:12 -accepting connections (sendmail)
64 ? S < 0:53 /usr/local/etc/ntpd
67 ? I 0:01 /usr/bin/X11/xdm
97 ? I 0:19 cron
101 ? S 2:22 /usr/etc/rwhod
103 ? I 2:45 /etc/inetd
106 ? IW 0:00 /usr/lib/lpd
145 ? IW 0:00 (nfsd)
146 ? IW 0:00 (nfsd)
147 ? IW 0:00 (nfsd)
148 ? IW 0:00 (nfsd)
152 ? IW 1:38 (biod)
153 ? IW 1:40 (biod)
154 ? IW 1:41 (biod)
155 ? IW 1:40 (biod)
2925 ? IW 0:00 rpc.mountd
5255 ? I 11:14 ibble
24806 ? S 19:37 /usr/bin/X11/X :0
28913 ? I 0:00 -:0 (xdm)
28924 ? I 0:01 sh /home/fsf/melissa/.xinitrc
28932 ? I 0:00 xterm -C -ut +sb -n Console -geometry 80x24+1+0
28933 ? I 0:00 xbiff -geometry -140+180
28934 ? S 0:02 xclock -analog -geometry -0+180
28935 ? S 0:02 xclock -digital -geometry 85x17-0+280
28936 ? I 0:54 emacs -wn Mail -in Mail -geometry 80x55+35+18 -f rmail -fon
28937 ? I 0:01 twm
28940 ? I 0:00 /usr/local/lib/emacs/etc/wakeup 60
28951 ? I 0:11 emacs -d :0.0 -w
28952 ? I 0:00 /usr/local/lib/emacs/etc/wakeup 60
29024 ? I 0:09 emacs -d :0.0 -w
29025 ? I 0:00 /usr/local/lib/emacs/etc/wakeup 60
29045 ? I 0:00 -AA29035 mizzou1.missouri.edu: user open (sendmail)
28938 p0 I 0:00 bash
28942 p1 I 0:00 /usr/local/gnubin/bash -i
28943 p2 I 0:00 -sh (csh)
28953 p3 I 0:00 /usr/local/gnubin/bash -i
28954 p4 I 0:00 -sh (csh)
29026 p5 I 0:00 /usr/local/gnubin/bash -i
560 p6 I 0:08 .nbin/mr
29027 p6 I 0:00 -sh (csh)
29052 p7 S 0:00 rlogind
29053 p7 S 0:05 -bash (bash)
29074 p7 T 0:04 gdb xemacs
29075 p7 T 0:00 /home/gd/gnu/emacs/19.0/src/xemacs -q
29077 p7 R 0:00 ps ax
5256 q0 IW 0:00 -bin/csh (csh)
5272 q0 S 6:38 tf2
5261 q1 IW 0:00 -bin/csh (csh)
5266 q2 IW 0:00 -bin/csh (csh)
15329 q2 I 7:27 emacs -f gnus
15330 q2 I 0:01 /usr/local/lib/emacs/etc/wakeup 60
95 ? S 2:22 update
157 ? IW 0:00 - 300h console (getty)
jla@churchy$ fg
gdb xemacs
(gdb) r
The program being debugged has been started already.
Start it from the beginning? (y or n) y
Starting program: /home/gd/gnu/emacs/19.0/src/xemacs -q
Cannot insert breakpoint 1:
The same program may be running in another process.
Cannot access memory at address 0x7d6ec.
(gdb) dis
(gdb) r
The program being debugged has been started already.
Start it from the beginning? (y or n) y
Starting program: /home/gd/gnu/emacs/19.0/src/xemacs -q
Program received signal 2, Interrupt
0x83ffe in select ()
(gdb) b Fsignal
Breakpoint 3 at 0x503da: file eval.c, line 1105.
(gdb) c
Continuing.
Cannot insert breakpoint 3:
The same program may be running in another process.
Cannot access memory at address 0x503da.
(gdb) dis
(gdb) c
Continuing.
Program received signal 2, Interrupt
0x83ffe in select ()
(gdb) k`
Kill the inferior process? (y or n) y
(gdb) q
jla@churchy$ who
jla ttyp7 Sep 30 14:10 (priam.CS.Berkele)
melissa :0 Sep 30 13:41
jla@churchy$ ll *emacs*
-rwxrwxrwx 1 jimb daemon 2464158 Sep 27 23:33 emacs-19.0.437*
-rwxrwxrwx 1 jimb daemon 2464135 Sep 28 02:19 emacs-19.0.438*
-rwxrwxrwx 1 rms daemon 2464283 Sep 28 09:08 emacs-19.0.439*
-rwxrwxrwx 1 jimb daemon 2464480 Sep 29 00:59 emacs-19.0.440*
-rwxrwxrwx 1 jimb daemon 2465827 Sep 29 09:24 emacs-19.0.444*
-rwxrwxrwx 1 jimb daemon 2466058 Sep 29 10:16 emacs-19.0.445*
-rwxrwxrwx 1 jimb daemon 2466058 Sep 29 10:35 emacs-19.0.446*
-rwxrwxrwx 1 jimb daemon 2466070 Sep 29 13:18 emacs-19.0.447*
-rwxrwxrwx 1 jimb daemon 2462257 Sep 30 11:00 emacs-19.0.448*
-rwxrwxrwx 2 jimb daemon 2462209 Sep 30 11:16 emacs-19.0.449*
-rwxrwxrwx 1 jimb daemon 2462194 Sep 30 11:57 emacs-19.0.450*
-rwxrwxrwx 2 jimb daemon 2466524 Sep 30 12:19 emacs-19.0.451*
-r--r--r-- 1 jimb daemon 20265 Sep 22 23:40 emacs.c
-rw-rw-rw- 1 rms daemon 18316 Sep 23 08:15 emacs.o
-rwxrwxrwx 1 jimb daemon 2466070 Sep 29 14:36 jimb-xemacs*
-rwxrwxrwx 1 jimb daemon 2097884 Sep 30 12:17 temacs*
-rwxrwxrwx 1 jimb daemon 1822178 Sep 13 09:31 temacs-2*
-rw-rw-rw- 1 jimb daemon 784 Sep 18 1988 temacs.opt
-rw-rw-rw- 1 jimb daemon 177 Feb 26 1987 testemacs.com
-rwxrwxrwx 2 jimb daemon 2466524 Sep 30 12:19 xemacs*
-rwxrwxrwx 1 jla daemon 2463040 Sep 23 17:15 yemacs*
jla@churchy$ rm yemacs
jla@churchy$ cp xemacs yemacs &
[1] 29088
jla@churchy$ more ChangeLog
Wed Sep 30 06:59:07 1992 Jim Blandy (jimb@wookumz.gnu.ai.mit.edu)
* buffer.c (Fother_buffer): Add back the VISIBLE_OK argument. It
got removed with no comment or ChangeLog entry, and
append-to-buffer uses it.
* window.c (struct save_window_data): Add a member called
focus_frame, to save and restore the screen's focus frame.
(Fset_window_configuration): Redirect the frame's focus as
indicated in the window configuration.
(Fcurrent_window_configuration): Record the frame's current focus.
* minibuf.c (read_minibuf): Don't bother to save the current
frame's focus, and have read_minibuf_unwind restore it; saving and
restoring the window configurations will take care of that.
(read_minibuf_unwind): Don't worry about restoring the frame's focus.
* window.c (Fset_window_configuration): Don't select the frame
just because we restored its configuration.
* window.c (Fset_window_configuration): Don't forget to set the
frame's selected window when we can't call Fselect_window.
* xterm.c (x_meta_mod_mask): New variable, indicating which X
modifier bits denote meta keys.
(x_find_modifier_meanings): New function, to set x_meta_mod_mask.
(x_convert_modifiers): Use that.
(x_term_init): Call x_find_modifier_meanings.
* data.c (Fmake_local_variable): If SYM forwards to a C variable,
swap in the value for the current buffer immediately.
* lisp.h: Doc elaboration for Lisp_Buffer_Local_Value.
Tue Sep 29 21:05:30 1992 Joseph Arceneaux (jla@churchy.gnu.ai.mit.edu)
* textprop.c (Ferase_text_properties): Merge intervals when
possible.
Tue Sep 29 00:04:05 1992 Jim Blandy (jimb@wookumz.gnu.ai.mit.edu)
* xselect.c (Qcut_buffer0): Symbol removed; we're using a new
interface to the cut buffer now.
(NUM_CUT_BUFFERS, cut_buffer_atom, cut_buffer_value,
cut_buffer_cached, cut_buffer_just_set): New variables.
(Fx_own_selection, Fx_selection_value): Dike out the code to
handle CUT_BUFFER0 requests.
(Fx_get_cut_buffer, Fx_set_cut_buffer, x_watch_cut_buffer_cache,
x_invalidate_cut_buffer_cache): New functions.
[1]+ Exit 0 cp xemacs yemacs
jla@churchy$ gdb yemacs
GDB is free software and you are welcome to distribute copies of it
under certain conditions; type "show copying" to see the conditions.
There is absolutely no warranty for GDB; type "show warranty" for details.
GDB 4.6, Copyright 1992 Free Software Foundation, Inc...
TERMCAP and TERM environment variables unset.
Environment variable "DISPLAY" not defined.
Breakpoint 1 at 0x7d6ec
Breakpoint 2 at 0x77310
(gdb) b Fsignal
Breakpoint 3 at 0x503da: file eval.c, line 1105.
(gdb) set env DISPLAY 128.32.150.43:0.0
(gdb) r
Starting program: /home/gd/gnu/emacs/19.0/src/yemacs -q
Breakpoint 3, Fsignal (sig=17759556, data=17759236) at eval.c:1105
1105 register struct handler *allhandlers = handlerlist;
(gdb) c
Continuing.
Breakpoint 3, Fsignal (sig=17759576, data=84996828) at eval.c:1105
1105 register struct handler *allhandlers = handlerlist;
(gdb) bt
#0 Fsignal (sig=17759576, data=84996828) at eval.c:1105
#1 0x4664a in wrong_type_argument (predicate=17803608, value=987136)
at data.c:73
#2 0x4572 in Fredirect_frame_focus (frame=987136, focus_frame=235868160)
at frame.c:893
#3 0xe114 in Fset_window_configuration (configuration=353327296)
at window.c:2498
#4 0x524aa in unbind_to (count=7, value=51516952) at eval.c:2111
#5 0xe61c in Fsave_window_excursion (args=84526412) at window.c:2683
#6 0x60cd4 in Fbyte_code (bytestr=50971960, vector=67749184, maxdepth=1)
at bytecode.c:555
#7 0x521a8 in funcall_lambda (fun=101303552, nargs=2, arg_vector=0xffeff7ae)
at eval.c:2032
#8 0x51c42 in Ffuncall (nargs=3, args=0xffeff7aa) at eval.c:1898
#9 0x607c8 in Fbyte_code (bytestr=50977256, vector=67754576, maxdepth=5)
at bytecode.c:422
#10 0x521a8 in funcall_lambda (fun=101308856, nargs=1, arg_vector=0xffeff8ee)
at eval.c:2032
#11 0x51c42 in Ffuncall (nargs=2, args=0xffeff8ea) at eval.c:1898
#12 0x4e980 in Fcall_interactively (function=17914640, record=17759236)
at callint.c:508
#13 0x24090 in Fcommand_execute (cmd=17914640, record=17759236)
at keyboard.c:3025
#14 0x21028 in command_loop_1 () at keyboard.c:973
#15 0x50370 in internal_condition_case (bfun=0x2084c <command_loop_1>,
handlers=17759536, hfun=0x20304 <cmd_error>) at eval.c:1083
#16 0x2066a in command_loop_2 () at keyboard.c:701
#17 0x4fece in internal_catch (tag=17759516, func=0x2064e <command_loop_2>,
arg=17759236) at eval.c:875
#18 0x2062e in command_loop () at keyboard.c:681
#19 0x201ca in recursive_edit_1 () at keyboard.c:523
#20 0x20298 in Frecursive_edit () at keyboard.c:558
#21 0x1fa36 in main (argc=2, argv=0xffeffce4, envp=0xffeffcf0) at emacs.c:581
(gdb) fr 2
#2 0x4572 in Fredirect_frame_focus (frame=987136, focus_frame=235868160)
at frame.c:893
893 CHECK_LIVE_FRAME (frame, 0);
(gdb) l
888 This is useful for temporarily redirecting keystrokes to the minibuffer\n\
889 window when a frame doesn't have its own minibuffer.")
890 (frame, focus_frame)
891 Lisp_Object frame, focus_frame;
892 {
893 CHECK_LIVE_FRAME (frame, 0);
894
895 if (NILP (focus_frame))
896 focus_frame = frame;
897 else
(gdb)
898 CHECK_LIVE_FRAME (focus_frame, 1);
899
900 XFRAME (frame)->focus_frame = focus_frame;
901
902 if (frame_rehighlight_hook)
903 (*frame_rehighlight_hook) ();
904
jla@churchy$ l
elisp/ jla-src/ v19-src/
jla@churchy$ cd v19-src/
jla@churchy$ grep INTERVAL lisp.h
#ifdef USE_INTERVALS
typedef struct interval *INTERVAL;
#define DECLARE_INTERVALS INTERVAL intervals;
#define INITIALIZE_INTERVAL(ptr,val) ptr->intervals = val
#define INTERVAL
#define DECLARE_INTERVALS
#define INITIALIZE_INTERVAL(ptr,val)
#endif /* USE_INTERVALS */
DECLARE_INTERVALS
jla@churchy$ grep INTERVAL config.h
/* Define USE_INTERVALS to handle fat text. */
#define USE_INTERVALS
jla@churchy$ d
/gd2/jla/v19-src
jla@churchy$ pwd
/home/gd2/jla/v19-src
jla@churchy$ grep DECLARE_INTERVALS *.[ch]
buffer.h: DECLARE_INTERVALS
lisp.h:#define DECLARE_INTERVALS INTERVAL intervals;
lisp.h:#define DECLARE_INTERVALS
lisp.h: DECLARE_INTERVALS
jla@churchy$ grep INITIALIZE_INTERVAL *.c
alloc.c: INITIALIZE_INTERVAL (XSTRING (val), NULL_INTERVAL);
alloc.c: INITIALIZE_INTERVAL (XSTRING (new), NULL_INTERVAL);
buffer.c: INITIALIZE_INTERVAL (b, NULL_INTERVAL);
buffer.c: INITIALIZE_INTERVAL (b, NULL_INTERVAL);
jla@churchy$ pwd
/home/gd2/jla/v19-src
jla@churchy$ cd etc
/gd/gnu/emacs/19.0/etc
jla@churchy$ l *.c
/usr/local/gnubin/ls: *.c: No such file or directory
jla@churchy$ more Makefile
DESTDIR=
LIBDIR=/usr/local/lib
BINDIR=/usr/local/bin
MANDIR=/usr/man/man1
MANEXT=1
all:
distclean:
-rm -f *~ \#* DOC* core
clean:
-rm -f core
jla@churchy$ cd ..
jla@churchy$ l
ChangeLog README.~3~ info/
ChangeLog~ README.~6~ lib-src/
GETTING.GNU.SOFTWARE README.~7~ lisp/
GETTING.GNU.SOFTWARE.~1~ arch-lib/ local-lisp/
GETTING.GNU.SOFTWARE.~2~ build-install* lock/
INSTALL build-install.in* make-dist*
INSTALL.~1~ build-install.in,v* make-dist.~10~*
INSTALL.~2~ config.emacs.~1~* make-dist.~11~*
jla@churchy$ cd src
/gd/gnu/emacs/19.0/src
jla@churchy$ make -f xmakefile editfns.o
make: `editfns.o' is up to date.
jla@churchy$ ll editfns.[co]
-rw-r--r-- 1 jla daemon 36258 Sep 30 20:39 editfns.c
-rw-rw-rw- 1 jla daemon 38383 Sep 30 20:43 editfns.o
jla@churchy$ date
Wed Sep 30 20:45:25 EDT 1992
jla@churchy$ rm editfns.o
jla@churchy$ make -f xmakefile editfns.o
cc -g -Demacs -Is -Im -c editfns.c -o editfns.o
jla@churchy$ lt {insdel,emacs,buffer}.[co]
-rw-rw-rw- 1 jla daemon 16422 Sep 30 20:42 insdel.o
-rw-rw-rw- 1 rms daemon 18316 Sep 30 20:40 emacs.o
-rw-r--r-- 1 jla daemon 14931 Sep 30 19:54 insdel.c
-rw-r--r-- 1 jla daemon 20387 Sep 30 19:33 emacs.c
-rw-rw-rw- 1 jla daemon 44674 Sep 30 19:29 buffer.o
-r--r--r-- 1 jimb daemon 56614 Sep 30 14:13 buffer.c
jla@churchy$ ll buffer.h
-rw-r--r-- 1 jla daemon 14323 Sep 30 18:36 buffer.h
jla@churchy$ ll temacs
-rw-rw-rw- 1 jimb daemon 313564 Sep 30 20:46 temacs
jla@churchy$ man rcs
jla@churchy$ man rlog
jla@churchy$ rlog RCS/buffer.c,v
RCS file: RCS/buffer.c,v
Working file: buffer.c
head: 1.15
branch:
locks: strict
access list:
symbolic names:
comment leader: " * "
keyword substitution: kv
total revisions: 15; selected revisions: 15
description:
/* Buffer manipulation primitives for GNU Emacs.
----------------------------
revision 1.15
date: 1992/09/30 18:16:11; author: jimb; state: Exp; lines: +9 -5
* buffer.c (Fother_buffer): Add back the VISIBLE_OK argument. It
got removed with no comment or ChangeLog entry, and
append-to-buffer uses it.
----------------------------
revision 1.14
date: 1992/09/29 04:54:28; author: jimb; state: Exp; lines: +1 -1
* data.c (Frem): Use the `fmod' function under SunOS, Ultrix, and
HP/UX, not just under USG systems.
----------------------------
revision 1.13
date: 1992/09/29 04:08:04; author: jimb; state: Exp; lines: +20 -14
* buffer.c (Fbury_buffer): This used to undisplay the buffer being
buried only if the BUFFER argument was nil. Instead, undisplay the
buffer whenever it's displayed in the selected window, no matter
how it was specified by BUFFER. This is how it behaves in 18.58,
and I can't find any ChangeLog entry in 18.58 or 19.0 saying why
they differ. Fix the doc string accordingly.
----------------------------
revision 1.12
date: 1992/09/22 05:16:47; author: jimb; state: Exp; lines: +1 -0
* buffer.c (Fget_buffer_create): Doc fix.
jla@churchy$ d
/gd/gnu/emacs/19.0/src
jla@churchy$ ci editfns.c insdel.c emacs.c buffer.h intervals.h intervals.c tex
tprop.c
RCS/editfns.c,v <-- editfns.c
new revision: 1.14; previous revision: 1.13
enter log message, terminated with single '.' or end of file:
>>
>> * editfns.c (make_buffer_string): Call copy_intervals_to_string().
(Finsert_buffer_substring): Call graft_intervals_into_buffer().
#include "intervals.h".
>> >> >> .
done
RCS/insdel.c,v <-- insdel.c
new revision: 1.5; previous revision: 1.4
reuse log message of previous file? [yn](y): n
enter log message, terminated with single '.' or end of file:
>> * insdel.c: #include "intervals.h"
(prepare_to_modify_buffer): Call verify_interval_modification().
(insert_from_string): Call offset_intervals() and
graft_intervals_into_buffer().
(del_range): Call offset_intervals().
(insert): Call offset_interv>> >> >> >> >> als().
>> .
done
author | Joseph Arceneaux <jla@gnu.org> |
---|---|
date | Thu, 01 Oct 1992 00:56:11 +0000 |
parents | 3d1bf36f0896 |
children | b74d9663f9a6 |
rev | line source |
---|---|
284 | 1 /* Fully extensible Emacs, running on Unix, intended for GNU. |
587 | 2 Copyright (C) 1985, 1986, 1987, 1992 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 | |
8 the Free Software Foundation; either version 1, or (at your option) | |
9 any later version. | |
10 | |
11 GNU Emacs is distributed in the hope that it will be useful, | |
12 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
14 GNU General Public License for more details. | |
15 | |
16 You should have received a copy of the GNU General Public License | |
17 along with GNU Emacs; see the file COPYING. If not, write to | |
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ | |
19 | |
20 | |
21 #include <signal.h> | |
22 #include <errno.h> | |
23 | |
24 #include "config.h" | |
25 #include <stdio.h> | |
26 | |
27 #include <sys/types.h> | |
28 #include <sys/file.h> | |
29 | |
30 #ifdef VMS | |
31 #include <ssdef.h> | |
32 #endif | |
33 | |
34 #ifdef BSD | |
35 #include <sys/ioctl.h> | |
36 #endif | |
37 | |
505 | 38 #ifdef HAVE_TERMIOS |
39 #include <termios.h> | |
40 #endif | |
41 | |
284 | 42 #ifdef APOLLO |
43 #ifndef APOLLO_SR10 | |
44 #include <default_acl.h> | |
45 #endif | |
46 #endif | |
47 | |
48 #include "lisp.h" | |
49 #include "commands.h" | |
1284 | 50 #include "intervals.h" |
284 | 51 |
1043
ee6f647ac103
* emacs.c: Incude "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1004
diff
changeset
|
52 #include "systty.h" |
554 | 53 |
284 | 54 #ifndef O_RDWR |
55 #define O_RDWR 2 | |
56 #endif | |
57 | |
58 #define PRIO_PROCESS 0 | |
59 | |
60 /* Command line args from shell, as list of strings */ | |
61 Lisp_Object Vcommand_line_args; | |
62 | |
732 | 63 /* Hook run by `kill-emacs' before it does really anything. */ |
64 Lisp_Object Vkill_emacs_hook; | |
65 | |
284 | 66 /* Set nonzero after Emacs has started up the first time. |
67 Prevents reinitialization of the Lisp world and keymaps | |
68 on subsequent starts. */ | |
69 int initialized; | |
70 | |
71 /* Variable whose value is symbol giving operating system type */ | |
72 Lisp_Object Vsystem_type; | |
73 | |
74 /* If non-zero, emacs should not attempt to use an window-specific code, | |
75 but instead should use the virtual terminal under which it was started */ | |
76 int inhibit_window_system; | |
77 | |
1202
3d1bf36f0896
* emacs.c (emacs_priority): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1141
diff
changeset
|
78 /* 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
|
79 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
|
80 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
|
81 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
|
82 |
284 | 83 #ifdef HAVE_X_WINDOWS |
84 /* If non-zero, -d was specified, meaning we're using some window system. */ | |
85 int display_arg; | |
86 #endif | |
87 | |
88 /* An address near the bottom of the stack. | |
89 Tells GC how to save a copy of the stack. */ | |
90 char *stack_bottom; | |
91 | |
92 #ifdef HAVE_X_WINDOWS | |
93 extern Lisp_Object Vwindow_system; | |
94 #endif /* HAVE_X_WINDOWS */ | |
95 | |
96 #ifdef USG_SHARED_LIBRARIES | |
97 /* If nonzero, this is the place to put the end of the writable segment | |
98 at startup. */ | |
99 | |
100 unsigned int bss_end = 0; | |
101 #endif | |
102 | |
103 /* Nonzero means running Emacs without interactive terminal. */ | |
104 | |
105 int noninteractive; | |
106 | |
107 /* Value of Lisp variable `noninteractive'. | |
108 Normally same as C variable `noninteractive' | |
109 but nothing terrible happens if user sets this one. */ | |
110 | |
111 int noninteractive1; | |
112 | |
113 /* Signal code for the fatal signal that was received */ | |
114 int fatal_error_code; | |
115 | |
116 /* Nonzero if handling a fatal error already */ | |
117 int fatal_error_in_progress; | |
118 | |
119 /* Handle bus errors, illegal instruction, etc. */ | |
505 | 120 SIGTYPE |
284 | 121 fatal_error_signal (sig) |
122 int sig; | |
123 { | |
124 fatal_error_code = sig; | |
125 signal (sig, SIG_DFL); | |
126 | |
127 /* If fatal error occurs in code below, avoid infinite recursion. */ | |
128 if (fatal_error_in_progress) | |
129 kill (getpid (), fatal_error_code); | |
130 | |
131 fatal_error_in_progress = 1; | |
132 | |
133 /* If we are controlling the terminal, reset terminal modes */ | |
554 | 134 #ifdef EMACS_HAVE_TTY_PGRP |
505 | 135 { |
136 int tpgrp; | |
554 | 137 if (EMACS_GET_TTY_PGRP (0, &tpgrp) != -1 |
505 | 138 && tpgrp == getpgrp (0)) |
139 { | |
140 reset_sys_modes (); | |
141 if (sig != SIGTERM) | |
142 fprintf (stderr, "Fatal error (%d).", sig); | |
143 } | |
144 } | |
145 #endif /* uses pgrp */ | |
284 | 146 |
147 /* Clean up */ | |
148 kill_buffer_processes (Qnil); | |
149 Fdo_auto_save (Qt, Qnil); | |
150 | |
151 #ifdef CLASH_DETECTION | |
152 unlock_all_files (); | |
153 #endif /* CLASH_DETECTION */ | |
154 | |
155 #ifdef VMS | |
156 kill_vms_processes (); | |
157 LIB$STOP (SS$_ABORT); | |
158 #else | |
159 /* Signal the same code; this time it will really be fatal. */ | |
160 kill (getpid (), fatal_error_code); | |
161 #endif /* not VMS */ | |
162 } | |
163 | |
164 /* Code for dealing with Lisp access to the Unix command line */ | |
165 | |
166 static | |
167 init_cmdargs (argc, argv, skip_args) | |
168 int argc; | |
169 char **argv; | |
170 int skip_args; | |
171 { | |
172 register int i; | |
173 | |
174 Vcommand_line_args = Qnil; | |
175 | |
176 for (i = argc - 1; i >= 0; i--) | |
177 { | |
178 if (i == 0 || i > skip_args) | |
179 Vcommand_line_args | |
180 = Fcons (build_string (argv[i]), Vcommand_line_args); | |
181 } | |
182 } | |
183 | |
184 #ifdef VMS | |
185 #ifdef LINK_CRTL_SHARE | |
186 #ifdef SHAREABLE_LIB_BUG | |
187 extern noshare char **environ; | |
188 #endif /* SHAREABLE_LIB_BUG */ | |
189 #endif /* LINK_CRTL_SHARE */ | |
190 #endif /* VMS */ | |
191 | |
1061
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
192 /* 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
|
193 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
|
194 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
|
195 (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
|
196 #ifdef __GNUC__ |
1070
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
197 __do_global_ctors () |
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
198 {} |
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
199 __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
|
200 {} |
1074
ab1964dc212c
(__do_global_dtors): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1070
diff
changeset
|
201 __do_global_dtors () |
ab1964dc212c
(__do_global_dtors): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1070
diff
changeset
|
202 {} |
1070
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
203 char * __CTOR_LIST__[2] = { (char *) (-1), 0 }; |
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
204 char * __DTOR_LIST__[2] = { (char *) (-1), 0 }; |
b0f508376593
(__main): New dummy function.
Richard M. Stallman <rms@gnu.org>
parents:
1061
diff
changeset
|
205 __main () |
1061
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
206 {} |
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
207 #endif /* __GNUC__ */ |
06b98c795200
(__do_global_ctors, __do_global_ctors_aux): New dummy fns.
Richard M. Stallman <rms@gnu.org>
parents:
1043
diff
changeset
|
208 |
284 | 209 /* ARGSUSED */ |
210 main (argc, argv, envp) | |
211 int argc; | |
212 char **argv; | |
213 char **envp; | |
214 { | |
215 char stack_bottom_variable; | |
216 int skip_args = 0; | |
217 extern int errno; | |
218 extern sys_nerr; | |
219 extern char *sys_errlist[]; | |
220 extern void malloc_warning (); | |
221 | |
222 /* Map in shared memory, if we are using that. */ | |
223 #ifdef HAVE_SHM | |
224 if (argc > 1 && !strcmp (argv[1], "-nl")) | |
225 { | |
226 map_in_data (0); | |
227 /* The shared memory was just restored, which clobbered this. */ | |
228 skip_args = 1; | |
229 } | |
230 else | |
231 { | |
232 map_in_data (1); | |
233 /* The shared memory was just restored, which clobbered this. */ | |
234 skip_args = 0; | |
235 } | |
236 #endif | |
237 | |
238 #ifdef HAVE_X_WINDOWS | |
348 | 239 /* Stupid kludge to catch command-line display spec. We can't |
240 handle this argument entirely in window system dependent code | |
241 because we don't even know which window system dependent code | |
242 to run until we've recognized this argument. */ | |
284 | 243 { |
244 int i; | |
245 | |
246 for (i = 1; (i < argc && ! display_arg); i++) | |
247 if (!strcmp (argv[i], "-d")) | |
248 display_arg = 1; | |
249 } | |
250 #endif | |
251 | |
252 #ifdef VMS | |
253 /* If -map specified, map the data file in */ | |
254 if (argc > 2 && ! strcmp (argv[1], "-map")) | |
255 { | |
256 skip_args = 2; | |
257 mapin_data (argv[2]); | |
258 } | |
259 | |
260 #ifdef LINK_CRTL_SHARE | |
261 #ifdef SHAREABLE_LIB_BUG | |
262 /* Bletcherous shared libraries! */ | |
263 if (!stdin) | |
264 stdin = fdopen (0, "r"); | |
265 if (!stdout) | |
266 stdout = fdopen (1, "w"); | |
267 if (!stderr) | |
268 stderr = fdopen (2, "w"); | |
269 if (!environ) | |
270 environ = envp; | |
271 #endif /* SHAREABLE_LIB_BUG */ | |
272 #endif /* LINK_CRTL_SHARE */ | |
273 #endif /* VMS */ | |
274 | |
275 /* Record (approximately) where the stack begins. */ | |
276 stack_bottom = &stack_bottom_variable; | |
277 | |
278 #ifdef RUN_TIME_REMAP | |
279 if (initialized) | |
280 run_time_remap (argv[0]); | |
281 #endif | |
282 | |
283 #ifdef USG_SHARED_LIBRARIES | |
284 if (bss_end) | |
285 brk (bss_end); | |
286 #endif | |
287 | |
288 clearerr (stdin); | |
289 #ifdef BSD | |
290 setpgrp (0, getpid ()); | |
291 #endif | |
292 | |
293 #ifdef APOLLO | |
294 #ifndef APOLLO_SR10 | |
295 /* If USE_DOMAIN_ACLS environment variable exists, | |
296 use ACLs rather than UNIX modes. */ | |
297 if (egetenv ("USE_DOMAIN_ACLS")) | |
298 default_acl (USE_DEFACL); | |
299 #endif | |
300 #endif /* APOLLO */ | |
301 | |
302 #ifndef SYSTEM_MALLOC | |
303 if (! initialized) | |
304 malloc_init (0, malloc_warning); | |
305 #endif /* not SYSTEM_MALLOC */ | |
306 | |
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
|
307 #ifdef PRIO_PROCESS |
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
|
308 if (emacs_priority) |
1202
3d1bf36f0896
* emacs.c (emacs_priority): Doc fix.
Jim Blandy <jimb@redhat.com>
parents:
1141
diff
changeset
|
309 nice (emacs_priority); |
284 | 310 setuid (getuid ()); |
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
|
311 #endif /* PRIO_PROCESS */ |
284 | 312 |
313 #ifdef BSD | |
314 /* interrupt_input has trouble if we aren't in a separate process group. */ | |
315 setpgrp (getpid (), getpid ()); | |
316 #endif | |
317 | |
318 inhibit_window_system = 0; | |
319 | |
420 | 320 /* Handle the -t switch, which specifies filename to use as terminal */ |
284 | 321 if (skip_args + 2 < argc && !strcmp (argv[skip_args + 1], "-t")) |
322 { | |
323 int result; | |
324 skip_args += 2; | |
325 close (0); | |
326 close (1); | |
327 result = open (argv[skip_args], O_RDWR, 2 ); | |
328 if (result < 0) | |
329 { | |
330 char *errstring; | |
331 | |
332 if (errno >= 0 && errno < sys_nerr) | |
333 errstring = sys_errlist[errno]; | |
334 else | |
335 errstring = "undocumented error code"; | |
336 fprintf (stderr, "emacs: %s: %s\n", argv[skip_args], errstring); | |
337 exit (1); | |
338 } | |
339 dup (0); | |
340 if (! isatty (0)) | |
341 { | |
342 fprintf (stderr, "emacs: %s: not a tty\n", argv[skip_args]); | |
343 exit (1); | |
344 } | |
345 fprintf (stderr, "Using %s\n", argv[skip_args]); | |
346 #ifdef HAVE_X_WINDOWS | |
347 inhibit_window_system = 1; /* -t => -nw */ | |
348 #endif | |
349 } | |
350 | |
351 if (skip_args + 1 < argc | |
352 && (!strcmp (argv[skip_args + 1], "-nw"))) | |
353 { | |
354 skip_args += 1; | |
355 inhibit_window_system = 1; | |
356 } | |
357 | |
358 /* Handle the -batch switch, which means don't do interactive display. */ | |
359 noninteractive = 0; | |
360 if (skip_args + 1 < argc && !strcmp (argv[skip_args + 1], "-batch")) | |
361 { | |
362 skip_args += 1; | |
363 noninteractive = 1; | |
364 } | |
365 | |
348 | 366 #ifdef POSIX_SIGNALS |
367 init_signals (); | |
368 #endif | |
369 | |
284 | 370 if ( |
371 #ifndef CANNOT_DUMP | |
372 ! noninteractive || initialized | |
373 #else | |
374 1 | |
375 #endif | |
376 ) | |
377 { | |
378 /* Don't catch these signals in batch mode if not initialized. | |
379 On some machines, this sets static data that would make | |
380 signal fail to work right when the dumped Emacs is run. */ | |
381 signal (SIGHUP, fatal_error_signal); | |
382 signal (SIGQUIT, fatal_error_signal); | |
383 signal (SIGILL, fatal_error_signal); | |
384 signal (SIGTRAP, fatal_error_signal); | |
385 signal (SIGIOT, fatal_error_signal); | |
386 #ifdef SIGEMT | |
387 signal (SIGEMT, fatal_error_signal); | |
388 #endif | |
389 signal (SIGFPE, fatal_error_signal); | |
390 signal (SIGBUS, fatal_error_signal); | |
391 signal (SIGSEGV, fatal_error_signal); | |
392 signal (SIGSYS, fatal_error_signal); | |
393 signal (SIGTERM, fatal_error_signal); | |
394 #ifdef SIGXCPU | |
395 signal (SIGXCPU, fatal_error_signal); | |
396 #endif | |
397 #ifdef SIGXFSZ | |
398 signal (SIGXFSZ, fatal_error_signal); | |
399 #endif /* SIGXFSZ */ | |
400 | |
401 #ifdef AIX | |
402 signal (SIGDANGER, fatal_error_signal); | |
403 signal (20, fatal_error_signal); | |
404 signal (21, fatal_error_signal); | |
405 signal (22, fatal_error_signal); | |
406 signal (23, fatal_error_signal); | |
407 signal (24, fatal_error_signal); | |
372 | 408 #ifdef SIGIO |
284 | 409 signal (SIGAIO, fatal_error_signal); |
410 signal (SIGPTY, fatal_error_signal); | |
372 | 411 #endif |
284 | 412 signal (SIGIOINT, fatal_error_signal); |
413 signal (SIGGRANT, fatal_error_signal); | |
414 signal (SIGRETRACT, fatal_error_signal); | |
415 signal (SIGSOUND, fatal_error_signal); | |
416 signal (SIGMSG, fatal_error_signal); | |
417 #endif /* AIX */ | |
418 } | |
419 | |
420 noninteractive1 = noninteractive; | |
421 | |
422 /* Perform basic initializations (not merely interning symbols) */ | |
423 | |
424 if (!initialized) | |
425 { | |
426 init_alloc_once (); | |
427 init_obarray (); | |
428 init_eval_once (); | |
429 init_syntax_once (); /* Create standard syntax table. */ | |
430 /* Must be done before init_buffer */ | |
431 init_casetab_once (); | |
432 init_buffer_once (); /* Create buffer table and some buffers */ | |
433 init_minibuf_once (); /* Create list of minibuffers */ | |
434 /* Must precede init_window_once */ | |
435 init_window_once (); /* Init the window system */ | |
436 } | |
437 | |
438 init_alloc (); | |
439 init_eval (); | |
440 init_data (); | |
348 | 441 init_lread (); |
284 | 442 |
443 init_cmdargs (argc, argv, skip_args); /* Create list Vcommand_line_args */ | |
444 init_buffer (); /* Init default directory of main buffer */ | |
445 if (!noninteractive) | |
446 { | |
447 #ifdef VMS | |
763 | 448 init_vms_input ();/* init_display calls get_frame_size, that needs this */ |
284 | 449 #endif /* VMS */ |
450 init_display (); /* Determine terminal type. init_sys_modes uses results */ | |
451 } | |
452 init_keyboard (); /* This too must precede init_sys_modes */ | |
453 init_callproc (); /* And this too. */ | |
454 #ifdef VMS | |
455 init_vmsproc (); /* And this too. */ | |
456 #endif /* VMS */ | |
457 init_sys_modes (); /* Init system terminal modes (RAW or CBREAK, etc.) */ | |
458 init_xdisp (); | |
459 init_macros (); | |
460 init_editfns (); | |
461 #ifdef LISP_FLOAT_TYPE | |
462 init_floatfns (); | |
463 #endif | |
464 #ifdef VMS | |
465 init_vmsfns (); | |
466 #endif /* VMS */ | |
467 init_process (); | |
624 | 468 #ifdef CLASH_DETECTION |
469 init_filelock (); | |
470 #endif /* CLASH_DETECTION */ | |
284 | 471 |
472 /* Intern the names of all standard functions and variables; define standard keys */ | |
473 | |
474 if (!initialized) | |
475 { | |
476 /* The basic levels of Lisp must come first */ | |
477 /* And data must come first of all | |
478 for the sake of symbols like error-message */ | |
479 syms_of_data (); | |
480 syms_of_alloc (); | |
348 | 481 syms_of_lread (); |
284 | 482 syms_of_print (); |
483 syms_of_eval (); | |
484 syms_of_fns (); | |
485 #ifdef LISP_FLOAT_TYPE | |
486 syms_of_floatfns (); | |
487 #endif | |
488 | |
489 syms_of_abbrev (); | |
490 syms_of_buffer (); | |
491 syms_of_bytecode (); | |
492 syms_of_callint (); | |
493 syms_of_casefiddle (); | |
494 syms_of_casetab (); | |
495 syms_of_callproc (); | |
496 syms_of_cmds (); | |
497 #ifndef NO_DIR_LIBRARY | |
498 syms_of_dired (); | |
499 #endif /* not NO_DIR_LIBRARY */ | |
500 syms_of_display (); | |
501 syms_of_doc (); | |
502 syms_of_editfns (); | |
503 syms_of_emacs (); | |
504 syms_of_fileio (); | |
505 #ifdef CLASH_DETECTION | |
506 syms_of_filelock (); | |
507 #endif /* CLASH_DETECTION */ | |
508 syms_of_indent (); | |
509 syms_of_keyboard (); | |
510 syms_of_keymap (); | |
511 syms_of_macros (); | |
512 syms_of_marker (); | |
513 syms_of_minibuf (); | |
514 syms_of_mocklisp (); | |
515 syms_of_process (); | |
516 syms_of_search (); | |
763 | 517 syms_of_frame (); |
284 | 518 syms_of_syntax (); |
519 syms_of_undo (); | |
1284 | 520 |
521 /* Only defined if Emacs is compiled with USE_TEXT_PROPERTIES */ | |
522 syms_of_textprop (); | |
284 | 523 #ifdef VMS |
524 syms_of_vmsproc (); | |
525 #endif /* VMS */ | |
526 syms_of_window (); | |
527 syms_of_xdisp (); | |
528 #ifdef HAVE_X_WINDOWS | |
375 | 529 syms_of_xterm (); |
284 | 530 syms_of_xfns (); |
375 | 531 #ifdef HAVE_X11 |
532 syms_of_xselect (); | |
533 #endif | |
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
|
534 #ifdef HAVE_X_WINDOW |
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
|
535 #ifndef NO_X_MENU |
284 | 536 syms_of_xmenu (); |
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
|
537 #endif /* not NO_X_MENU */ |
284 | 538 #endif /* HAVE_X_MENU */ |
539 #endif /* HAVE_X_WINDOWS */ | |
540 | |
541 #ifdef SYMS_SYSTEM | |
542 SYMS_SYSTEM; | |
543 #endif | |
544 | |
545 #ifdef SYMS_MACHINE | |
546 SYMS_MACHINE; | |
547 #endif | |
548 | |
549 keys_of_casefiddle (); | |
550 keys_of_cmds (); | |
551 keys_of_buffer (); | |
552 keys_of_keyboard (); | |
553 keys_of_keymap (); | |
554 keys_of_macros (); | |
555 keys_of_minibuf (); | |
556 keys_of_window (); | |
557 } | |
558 | |
559 if (!initialized) | |
560 { | |
561 /* Handle -l loadup-and-dump, args passed by Makefile. */ | |
562 if (argc > 2 + skip_args && !strcmp (argv[1 + skip_args], "-l")) | |
563 Vtop_level = Fcons (intern ("load"), | |
564 Fcons (build_string (argv[2 + skip_args]), Qnil)); | |
565 #ifdef CANNOT_DUMP | |
566 /* Unless next switch is -nl, load "loadup.el" first thing. */ | |
567 if (!(argc > 1 + skip_args && !strcmp (argv[1 + skip_args], "-nl"))) | |
568 Vtop_level = Fcons (intern ("load"), | |
569 Fcons (build_string ("loadup.el"), Qnil)); | |
570 #endif /* CANNOT_DUMP */ | |
571 } | |
572 | |
573 initialized = 1; | |
574 | |
815 | 575 #ifdef sun |
576 /* sun's localtime() has a bug. it caches the value of the time | |
577 zone rather than looking it up every time. Since localtime() is | |
578 called to bolt the undumping time into the undumped emacs, this | |
579 results in localtime() ignoring the TZ environment variable. | |
580 This flushes the new TZ value into localtime(). */ | |
581 tzset(); | |
582 #endif /* sun */ | |
583 | |
284 | 584 /* Enter editor command loop. This never returns. */ |
585 Frecursive_edit (); | |
586 /* NOTREACHED */ | |
587 } | |
588 | |
589 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
|
590 "Exit the Emacs job and kill it.\n\ |
284 | 591 If ARG is an integer, return ARG as the exit program code.\n\ |
592 If ARG is a string, stuff it as keyboard input.\n\n\ | |
593 The value of `kill-emacs-hook', if not void,\n\ | |
594 is a list of functions (of no args),\n\ | |
595 all of which are called before Emacs is actually killed.") | |
596 (arg) | |
597 Lisp_Object arg; | |
598 { | |
599 Lisp_Object hook, hook1; | |
600 int i; | |
601 struct gcpro gcpro1; | |
602 | |
603 GCPRO1 (arg); | |
604 | |
605 if (feof (stdin)) | |
606 arg = Qt; | |
607 | |
505 | 608 if (!NILP (Vrun_hooks) && !noninteractive) |
284 | 609 call1 (Vrun_hooks, intern ("kill-emacs-hook")); |
610 | |
611 kill_buffer_processes (Qnil); | |
612 | |
613 #ifdef VMS | |
614 kill_vms_processes (); | |
615 #endif /* VMS */ | |
616 | |
617 Fdo_auto_save (Qt, Qnil); | |
618 | |
619 #ifdef CLASH_DETECTION | |
620 unlock_all_files (); | |
621 #endif /* CLASH_DETECTION */ | |
622 | |
623 fflush (stdout); | |
624 reset_sys_modes (); | |
625 | |
626 #ifdef HAVE_X_WINDOWS | |
627 if (!noninteractive && EQ (Vwindow_system, intern ("x"))) | |
628 Fx_close_current_connection (); | |
629 #endif /* HAVE_X_WINDOWS */ | |
630 | |
631 UNGCPRO; | |
632 | |
633 /* Is it really necessary to do this deassign | |
634 when we are going to exit anyway? */ | |
635 /* #ifdef VMS | |
636 stop_vms_input (); | |
637 #endif */ | |
638 stuff_buffered_input (arg); | |
639 #ifdef SIGIO | |
640 /* There is a tendency for a SIGIO signal to arrive within exit, | |
641 and cause a SIGHUP because the input descriptor is already closed. */ | |
642 unrequest_sigio (); | |
643 signal (SIGIO, SIG_IGN); | |
644 #endif | |
645 exit ((XTYPE (arg) == Lisp_Int) ? XINT (arg) | |
646 #ifdef VMS | |
647 : 1 | |
648 #else | |
649 : 0 | |
650 #endif | |
651 ); | |
652 /* NOTREACHED */ | |
653 } | |
654 | |
655 #ifndef CANNOT_DUMP | |
656 /* Nothing like this can be implemented on an Apollo. | |
657 What a loss! */ | |
658 | |
659 #ifdef HAVE_SHM | |
660 | |
661 DEFUN ("dump-emacs-data", Fdump_emacs_data, Sdump_emacs_data, 1, 1, 0, | |
662 "Dump current state of Emacs into data file FILENAME.\n\ | |
663 This function exists on systems that use HAVE_SHM.") | |
664 (intoname) | |
665 Lisp_Object intoname; | |
666 { | |
667 extern int my_edata; | |
668 Lisp_Object tem; | |
669 extern void malloc_warning (); | |
670 | |
671 CHECK_STRING (intoname, 0); | |
672 intoname = Fexpand_file_name (intoname, Qnil); | |
673 | |
674 tem = Vpurify_flag; | |
675 Vpurify_flag = Qnil; | |
676 | |
677 fflush (stdout); | |
678 /* Tell malloc where start of impure now is */ | |
679 /* Also arrange for warnings when nearly out of space. */ | |
680 #ifndef SYSTEM_MALLOC | |
681 malloc_init (&my_edata, malloc_warning); | |
682 #endif | |
683 map_out_data (XSTRING (intoname)->data); | |
684 | |
685 Vpurify_flag = tem; | |
686 | |
687 return Qnil; | |
688 } | |
689 | |
690 #else /* not HAVE_SHM */ | |
691 | |
692 DEFUN ("dump-emacs", Fdump_emacs, Sdump_emacs, 2, 2, 0, | |
693 "Dump current state of Emacs into executable file FILENAME.\n\ | |
694 Take symbols from SYMFILE (presumably the file you executed to run Emacs).\n\ | |
695 This is used in the file `loadup.el' when building Emacs.\n\ | |
696 \n\ | |
697 Bind `command-line-processed' to nil before dumping,\n\ | |
698 if you want the dumped Emacs to process its command line\n\ | |
699 and announce itself normally when it is run.") | |
700 (intoname, symname) | |
701 Lisp_Object intoname, symname; | |
702 { | |
703 extern int my_edata; | |
704 Lisp_Object tem; | |
705 extern void malloc_warning (); | |
706 | |
707 CHECK_STRING (intoname, 0); | |
708 intoname = Fexpand_file_name (intoname, Qnil); | |
505 | 709 if (!NILP (symname)) |
284 | 710 { |
711 CHECK_STRING (symname, 0); | |
712 if (XSTRING (symname)->size) | |
713 symname = Fexpand_file_name (symname, Qnil); | |
714 } | |
715 | |
716 tem = Vpurify_flag; | |
717 Vpurify_flag = Qnil; | |
718 | |
719 fflush (stdout); | |
720 #ifdef VMS | |
721 mapout_data (XSTRING (intoname)->data); | |
722 #else | |
723 /* Tell malloc where start of impure now is */ | |
724 /* Also arrange for warnings when nearly out of space. */ | |
725 #ifndef SYSTEM_MALLOC | |
726 malloc_init (&my_edata, malloc_warning); | |
727 #endif | |
728 unexec (XSTRING (intoname)->data, | |
505 | 729 !NILP (symname) ? XSTRING (symname)->data : 0, &my_edata, 0, 0); |
284 | 730 #endif /* not VMS */ |
731 | |
732 Vpurify_flag = tem; | |
733 | |
734 return Qnil; | |
735 } | |
736 | |
737 #endif /* not HAVE_SHM */ | |
738 | |
739 #endif /* not CANNOT_DUMP */ | |
740 | |
741 #ifdef VMS | |
742 #define SEPCHAR ',' | |
743 #else | |
744 #define SEPCHAR ':' | |
745 #endif | |
746 | |
747 Lisp_Object | |
748 decode_env_path (evarname, defalt) | |
749 char *evarname, *defalt; | |
750 { | |
751 register char *path, *p; | |
752 extern char *index (); | |
753 | |
754 Lisp_Object lpath; | |
755 | |
505 | 756 /* It's okay to use getenv here, because this function is only used |
757 to initialize variables when Emacs starts up, and isn't called | |
758 after that. */ | |
638 | 759 if (evarname != 0) |
760 path = (char *) getenv (evarname); | |
761 else | |
762 path = 0; | |
284 | 763 if (!path) |
764 path = defalt; | |
765 lpath = Qnil; | |
766 while (1) | |
767 { | |
768 p = index (path, SEPCHAR); | |
769 if (!p) p = path + strlen (path); | |
770 lpath = Fcons (p - path ? make_string (path, p - path) : Qnil, | |
771 lpath); | |
772 if (*p) | |
773 path = p + 1; | |
774 else | |
775 break; | |
776 } | |
777 return Fnreverse (lpath); | |
778 } | |
779 | |
780 syms_of_emacs () | |
781 { | |
782 #ifdef HAVE_SHM | |
783 defsubr (&Sdump_emacs_data); | |
784 #else | |
785 defsubr (&Sdump_emacs); | |
786 #endif | |
787 | |
788 defsubr (&Skill_emacs); | |
789 | |
790 DEFVAR_LISP ("command-line-args", &Vcommand_line_args, | |
791 "Args passed by shell to Emacs, as a list of strings."); | |
792 | |
793 DEFVAR_LISP ("system-type", &Vsystem_type, | |
794 "Value is symbol indicating type of operating system you are using."); | |
795 Vsystem_type = intern (SYSTEM_TYPE); | |
796 | |
797 DEFVAR_BOOL ("noninteractive", &noninteractive1, | |
798 "Non-nil means Emacs is running without interactive terminal."); | |
732 | 799 |
1043
ee6f647ac103
* emacs.c: Incude "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1004
diff
changeset
|
800 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
|
801 "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
|
802 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
|
803 in other similar situations), functions placed on this hook should not\n\ |
ee6f647ac103
* emacs.c: Incude "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents:
1004
diff
changeset
|
804 not expect to be able to interact with the user."); |
732 | 805 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
|
806 |
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
|
807 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
|
808 "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
|
809 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
|
810 and only if the Emacs executable is installed with setuid to permit\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
|
811 it to change priority. (Emacs sets its uid back to the real uid.)"); |
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
|
812 emacs_priority = 0; |
284 | 813 } |