annotate src/s/usg5-2-2.h @ 13144:fd14ccddb85a

(describe_syntax): Handle new syntax-table data format. (Fmodify_syntax_entry, init_syntax_once): Use SET_RAW_SYNTAX_ENTRY. Handle new syntax-table data format. (check_syntax_table): Use CHECK_CHAR_TABLE. Now static. Don't return anything; callers changed. (Fcopy_syntax_table): Use Fcopy_sequence. (Fchar_syntax, Fmatching_paren, Fforward_comment): Copy complex args to SYNTAX into variables before using them. (Fsyntax_table_p): Accept any char-table. (syntax_parent_lookup): New function. (syntax_temp): New variable.
author Richard M. Stallman <rms@gnu.org>
date Sat, 07 Oct 1995 21:59:28 +0000
parents 191acacfa1ec
children ee40177f6c68
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 /* Definitions file for GNU Emacs running on AT&T's System V Release 2.2
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2 Copyright (C) 1985, 1986 Free Software Foundation, Inc.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4 This file is part of GNU Emacs.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 it under the terms of the GNU General Public License as published by
3699
7be0f0a02725 Updated GPL version to 2.
Jim Blandy <jimb@redhat.com>
parents: 3591
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 any later version.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 GNU General Public License for more details.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 You should have received a copy of the GNU General Public License
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
20
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21 /*
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22 * Define symbols to identify the version of Unix this is.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 * Define all the symbols that apply correctly.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26 #define USG /* System III, System V, etc */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
27
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
28 #define USG5
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
29
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
30 /* SYSTEM_TYPE should indicate the kind of system you are using.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
31 It sets the Lisp variable system-type. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
32
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
33 #define SYSTEM_TYPE "usg-unix-v"
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
34
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 /* nomultiplejobs should be defined if your system's shell
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36 does not have "job control" (the ability to stop a program,
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 run some other program, then continue the first one). */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 #define NOMULTIPLEJOBS
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 /* Default is to set interrupt_input to 0: don't do input buffering within Emacs */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
43 /* #define INTERRUPT_INPUT */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
44
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
45 /* Letter to use in finding device name of first pty,
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46 if system supports pty's. 'p' means it is /dev/ptyp0 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
47
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
48 #define FIRST_PTY_LETTER 'p'
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
50 /*
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
51 * Define HAVE_TERMIO if the system provides sysV-style ioctls
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52 * for terminal control.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 #define HAVE_TERMIO
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 /*
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 * Define HAVE_PTYS if the system supports pty devices.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61 /* #define HAVE_PTYS */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
62
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
63 /* Define HAVE_SOCKETS if system supports 4.2-compatible sockets. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
64
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
65 /* #define HAVE_SOCKETS */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
66
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
67 /*
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
68 * Define NONSYSTEM_DIR_LIBRARY to make Emacs emulate
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
69 * The 4.2 opendir, etc., library functions.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
70 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
71
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
72 #define NONSYSTEM_DIR_LIBRARY
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
73
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74 /* Define this symbol if your system has the functions bcopy, etc. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
76 /* #define BSTRING */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
78 /* subprocesses should be defined if you want to
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79 have code for asynchronous subprocesses
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80 (as used in M-x compile and M-x shell).
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
81 This is supposed to work now on system V release 2. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
83 #define subprocesses
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
84
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
85 /* If your system uses COFF (Common Object File Format) then define the
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
86 preprocessor symbol "COFF". */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 #define COFF
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90 /* define MAIL_USE_FLOCK if the mailer uses flock
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91 to interlock access to /usr/spool/mail/$USER.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 The alternative is that a lock file named
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93 /usr/spool/mail/$USER.lock. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
95 /* #define MAIL_USE_FLOCK */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
96
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
97 /* Define CLASH_DETECTION if you want lock files to be written
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98 so that Emacs can tell instantly when you try to modify
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99 a file that someone else has modified in his Emacs. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101 /* #define CLASH_DETECTION */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103 /* Define SHORTNAMES if the C compiler can distinguish only
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104 short names. It means that the stuff in ../shortnames
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105 must be run to convert the long names to short ones. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
106
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
107 /* #define SHORTNAMES */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
108
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109 /* We use the Berkeley (and usg5.2.2) interface to nlist. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
110
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111 #define NLIST_STRUCT
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
112
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113 /* The file containing the kernel's symbol table is called /unix. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
114
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
115 #define KERNEL_FILE "/unix"
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
116
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
117 /* The symbol in the kernel where the load average is found
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118 is named avenrun. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120 #define LDAV_SYMBOL "avenrun"
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
122 /* Special hacks needed to make Emacs run on this system. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124 /*
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 * Make the sigsetmask function go away. Don't know what the
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 * ramifications of this are, but doesn't seem possible to
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 * emulate it properly anyway at this point.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128 */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 #define sigsetmask(mask) /* Null expansion */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
132 /* setjmp and longjmp can safely replace _setjmp and _longjmp,
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133 but they will run slower. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
134
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135 #define _setjmp setjmp
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 #define _longjmp longjmp
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 457
diff changeset
138 /* On USG systems the system calls are interruptible by signals
457
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 that the user program has elected to catch. Thus the system call
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140 must be retried in these cases. To handle this without massive
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 changes in the source code, we remap the standard system call names
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142 to names for our own functions in sysdep.c that do the system call
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 with retries. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145 #define read sys_read
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146 #define open sys_open
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
147 #define write sys_write
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
148
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
149 #define INTERRUPTIBLE_OPEN
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
150 #define INTERRUPTIBLE_IO
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 /* On USG systems these have different names */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
153
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
154 #define index strchr
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155 #define rindex strrchr
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
156
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
157 /* USG systems tend to put everything declared static
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
158 into the initialized data area, which becomes pure after dumping Emacs.
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
159 Foil this. Emacs carefully avoids static vars inside functions. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161 #define static
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
162
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163 /* Compiler bug bites on many systems when default ADDR_CORRECT is used. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
164
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165 #define ADDR_CORRECT(x) (x)
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 /* Prevent -lg from being used for debugging. Not implemented? */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
168
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
169 #define LIBS_DEBUG
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 /* Use terminfo instead of termcap. */
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172
e442bb589751 entered into RCS
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173 #define TERMINFO