Mercurial > emacs
annotate lib-src/make-docfile.c @ 11885:c686f5539749
(XlwMenuInitialize): Cast XCreatePixmapFromBitmapData args.
author | Karl Heuer <kwzh@gnu.org> |
---|---|
date | Tue, 23 May 1995 03:04:22 +0000 |
parents | 450b9598aca5 |
children | cf65209088d6 |
rev | line source |
---|---|
24 | 1 /* Generate doc-string file for GNU Emacs from source files. |
5604
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
2 Copyright (C) 1985, 1986, 1992, 1993, 1994 Free Software Foundation, Inc. |
24 | 3 |
4 This file is part of GNU Emacs. | |
5 | |
38 | 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 | |
638 | 8 the Free Software Foundation; either version 2, or (at your option) |
38 | 9 any later version. |
24 | 10 |
38 | 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. */ | |
24 | 19 |
20 /* The arguments given to this program are all the C and Lisp source files | |
21 of GNU Emacs. .elc and .el and .c files are allowed. | |
22 A .o file can also be specified; the .c file it was made from is used. | |
23 This helps the makefile pass the correct list of files. | |
24 | |
25 The results, which go to standard output or to a file | |
26 specified with -a or -o (-a to append, -o to start from nothing), | |
27 are entries containing function or variable names and their documentation. | |
28 Each entry starts with a ^_ character. | |
29 Then comes F for a function or V for a variable. | |
30 Then comes the function or variable name, terminated with a newline. | |
31 Then comes the documentation for that function or variable. | |
32 */ | |
33 | |
11690 | 34 #define NO_SHORTNAMES /* Tell config not to load remap.h */ |
35 #include <../src/config.h> | |
36 | |
24 | 37 #include <stdio.h> |
5449
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
38 #ifdef MSDOS |
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
39 #include <fcntl.h> |
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
40 #endif /* MSDOS */ |
9772
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
41 #ifdef WINDOWSNT |
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
42 #include <stdlib.h> |
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
43 #include <fcntl.h> |
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
44 #include <direct.h> |
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
45 #endif /* WINDOWSNT */ |
5449
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
46 |
9772
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
47 #ifdef DOS_NT |
5449
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
48 #define READ_TEXT "rt" |
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
49 #define READ_BINARY "rb" |
9772
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
50 #else /* not DOS_NT */ |
5449
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
51 #define READ_TEXT "r" |
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
52 #define READ_BINARY "r" |
9772
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
53 #endif /* not DOS_NT */ |
24 | 54 |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
7564
diff
changeset
|
55 int scan_file (); |
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
7564
diff
changeset
|
56 int scan_lisp_file (); |
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
7564
diff
changeset
|
57 int scan_c_file (); |
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
7564
diff
changeset
|
58 |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
59 /* Stdio stream for output to the DOC file. */ |
24 | 60 FILE *outfile; |
61 | |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
62 /* Name this program was invoked with. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
63 char *progname; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
64 |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
65 /* Print error message. `s1' is printf control string, `s2' is arg for it. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
66 |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
67 /* VARARGS1 */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
68 void |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
69 error (s1, s2) |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
70 char *s1, *s2; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
71 { |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
72 fprintf (stderr, "%s: ", progname); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
73 fprintf (stderr, s1, s2); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
74 fprintf (stderr, "\n"); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
75 } |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
76 |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
77 /* Print error message and exit. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
78 |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
79 /* VARARGS1 */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
80 void |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
81 fatal (s1, s2) |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
82 char *s1, *s2; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
83 { |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
84 error (s1, s2); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
85 exit (1); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
86 } |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
87 |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
88 /* Like malloc but get fatal error if memory is exhausted. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
89 |
11690 | 90 long * |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
91 xmalloc (size) |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
92 unsigned int size; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
93 { |
11690 | 94 long *result = (long *) malloc (size); |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
95 if (result == NULL) |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
96 fatal ("virtual memory exhausted", 0); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
97 return result; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
98 } |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
99 |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
7564
diff
changeset
|
100 int |
24 | 101 main (argc, argv) |
102 int argc; | |
103 char **argv; | |
104 { | |
105 int i; | |
106 int err_count = 0; | |
9643
5d1e70b22a93
(main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
107 int first_infile; |
24 | 108 |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
109 progname = argv[0]; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
110 |
9772
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
111 /* Don't put CRs in the DOC file. */ |
5449
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
112 #ifdef MSDOS |
9772
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
113 _fmode = O_BINARY; |
5449
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
114 (stdout)->_flag &= ~_IOTEXT; |
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
115 _setmode (fileno (stdout), O_BINARY); |
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
116 #endif /* MSDOS */ |
9772
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
117 #ifdef WINDOWSNT |
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
118 _fmode = O_BINARY; |
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
119 _setmode (fileno (stdout), O_BINARY); |
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
120 #endif /* WINDOWSNT */ |
20652342eb9a
(main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents:
9643
diff
changeset
|
121 |
24 | 122 outfile = stdout; |
123 | |
124 /* If first two args are -o FILE, output to FILE. */ | |
125 i = 1; | |
126 if (argc > i + 1 && !strcmp (argv[i], "-o")) | |
127 { | |
128 outfile = fopen (argv[i + 1], "w"); | |
129 i += 2; | |
130 } | |
131 if (argc > i + 1 && !strcmp (argv[i], "-a")) | |
132 { | |
133 outfile = fopen (argv[i + 1], "a"); | |
134 i += 2; | |
135 } | |
2814
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
2483
diff
changeset
|
136 if (argc > i + 1 && !strcmp (argv[i], "-d")) |
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
2483
diff
changeset
|
137 { |
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
2483
diff
changeset
|
138 chdir (argv[i + 1]); |
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
2483
diff
changeset
|
139 i += 2; |
0da5b58e98ed
Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents:
2483
diff
changeset
|
140 } |
24 | 141 |
9643
5d1e70b22a93
(main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
142 first_infile = i; |
24 | 143 for (; i < argc; i++) |
9643
5d1e70b22a93
(main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
144 { |
5d1e70b22a93
(main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
145 int j; |
5d1e70b22a93
(main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
146 /* Don't process one file twice. */ |
5d1e70b22a93
(main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
147 for (j = first_infile; j < i; j++) |
5d1e70b22a93
(main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
148 if (! strcmp (argv[i], argv[j])) |
5d1e70b22a93
(main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
149 break; |
5d1e70b22a93
(main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
150 if (j == i) |
5d1e70b22a93
(main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
151 err_count += scan_file (argv[i]); |
5d1e70b22a93
(main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
152 } |
24 | 153 #ifndef VMS |
9643
5d1e70b22a93
(main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
154 exit (err_count > 0); |
3028 | 155 #endif /* VMS */ |
9643
5d1e70b22a93
(main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents:
9491
diff
changeset
|
156 return err_count > 0; |
24 | 157 } |
158 | |
164 | 159 /* Read file FILENAME and output its doc strings to outfile. */ |
24 | 160 /* Return 1 if file is not found, 0 if it is found. */ |
161 | |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
7564
diff
changeset
|
162 int |
24 | 163 scan_file (filename) |
164 char *filename; | |
165 { | |
166 int len = strlen (filename); | |
167 if (!strcmp (filename + len - 4, ".elc")) | |
5449
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
168 return scan_lisp_file (filename, READ_BINARY); |
24 | 169 else if (!strcmp (filename + len - 3, ".el")) |
5449
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
170 return scan_lisp_file (filename, READ_TEXT); |
24 | 171 else |
5449
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
172 return scan_c_file (filename, READ_TEXT); |
24 | 173 } |
174 | |
175 char buf[128]; | |
176 | |
177 /* Skip a C string from INFILE, | |
178 and return the character that follows the closing ". | |
164 | 179 If printflag is positive, output string contents to outfile. |
24 | 180 If it is negative, store contents in buf. |
181 Convert escape sequences \n and \t to newline and tab; | |
182 discard \ followed by newline. */ | |
183 | |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
7564
diff
changeset
|
184 int |
24 | 185 read_c_string (infile, printflag) |
186 FILE *infile; | |
187 int printflag; | |
188 { | |
189 register int c; | |
190 char *p = buf; | |
191 | |
192 c = getc (infile); | |
193 while (c != EOF) | |
194 { | |
195 while (c != '"' && c != EOF) | |
196 { | |
197 if (c == '\\') | |
198 { | |
199 c = getc (infile); | |
200 if (c == '\n') | |
201 { | |
202 c = getc (infile); | |
203 continue; | |
204 } | |
205 if (c == 'n') | |
206 c = '\n'; | |
207 if (c == 't') | |
208 c = '\t'; | |
209 } | |
210 if (printflag > 0) | |
211 putc (c, outfile); | |
212 else if (printflag < 0) | |
213 *p++ = c; | |
214 c = getc (infile); | |
215 } | |
216 c = getc (infile); | |
217 if (c != '"') | |
218 break; | |
4987
f052db139432
(read_c_string): For "", concatenate the two strings.
Richard M. Stallman <rms@gnu.org>
parents:
3591
diff
changeset
|
219 /* If we had a "", concatenate the two strings. */ |
24 | 220 c = getc (infile); |
221 } | |
222 | |
223 if (printflag < 0) | |
224 *p = 0; | |
225 | |
226 return c; | |
227 } | |
228 | |
5604
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
229 /* Write to file OUT the argument names of function FUNC, whose text is in BUF. |
24 | 230 MINARGS and MAXARGS are the minimum and maximum number of arguments. */ |
231 | |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
7564
diff
changeset
|
232 void |
5604
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
233 write_c_args (out, func, buf, minargs, maxargs) |
24 | 234 FILE *out; |
5604
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
235 char *func, *buf; |
24 | 236 int minargs, maxargs; |
237 { | |
1206 | 238 register char *p; |
1250 | 239 int in_ident = 0; |
240 int just_spaced = 0; | |
5604
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
241 int need_space = 1; |
24 | 242 |
5604
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
243 fprintf (out, "(%s", func); |
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
244 |
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
245 if (*buf == '(') |
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
246 ++buf; |
24 | 247 |
1206 | 248 for (p = buf; *p; p++) |
24 | 249 { |
1250 | 250 char c = *p; |
2483
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
251 int ident_start = 0; |
1250 | 252 |
253 /* Notice when we start printing a new identifier. */ | |
254 if ((('A' <= c && c <= 'Z') | |
255 || ('a' <= c && c <= 'z') | |
256 || ('0' <= c && c <= '9') | |
257 || c == '_') | |
258 != in_ident) | |
24 | 259 { |
1250 | 260 if (!in_ident) |
261 { | |
262 in_ident = 1; | |
2483
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
263 ident_start = 1; |
1206 | 264 |
5604
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
265 if (need_space) |
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
266 putc (' ', out); |
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
267 |
1250 | 268 if (minargs == 0 && maxargs > 0) |
269 fprintf (out, "&optional "); | |
270 just_spaced = 1; | |
1206 | 271 |
1250 | 272 minargs--; |
273 maxargs--; | |
274 } | |
275 else | |
276 in_ident = 0; | |
24 | 277 } |
638 | 278 |
1250 | 279 /* Print the C argument list as it would appear in lisp: |
280 print underscores as hyphens, and print commas as spaces. | |
281 Collapse adjacent spaces into one. */ | |
282 if (c == '_') c = '-'; | |
283 if (c == ',') c = ' '; | |
284 | |
2483
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
285 /* In C code, `default' is a reserved word, so we spell it |
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
286 `defalt'; unmangle that here. */ |
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
287 if (ident_start |
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
288 && strncmp (p, "defalt", 6) == 0 |
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
289 && ! (('A' <= p[6] && p[6] <= 'Z') |
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
290 || ('a' <= p[6] && p[6] <= 'z') |
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
291 || ('0' <= p[6] && p[6] <= '9') |
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
292 || p[6] == '_')) |
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
293 { |
7564
d5d803ffff27
(write_c_args): Put `default' in upper case.
Richard M. Stallman <rms@gnu.org>
parents:
5604
diff
changeset
|
294 fprintf (out, "DEFAULT"); |
2483
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
295 p += 5; |
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
296 in_ident = 0; |
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
297 just_spaced = 0; |
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
298 } |
b4145a12422d
* make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents:
1676
diff
changeset
|
299 else if (c != ' ' || ! just_spaced) |
5604
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
300 { |
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
301 if (c >= 'a' && c <= 'z') |
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
302 /* Upcase the letter. */ |
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
303 c += 'A' - 'a'; |
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
304 putc (c, out); |
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
305 } |
1250 | 306 |
307 just_spaced = (c == ' '); | |
5604
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
308 need_space = 0; |
24 | 309 } |
310 } | |
311 | |
312 /* Read through a c file. If a .o file is named, | |
313 the corresponding .c file is read instead. | |
314 Looks for DEFUN constructs such as are defined in ../src/lisp.h. | |
315 Accepts any word starting DEF... so it finds DEFSIMPLE and DEFPRED. */ | |
316 | |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
7564
diff
changeset
|
317 int |
5449
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
318 scan_c_file (filename, mode) |
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
319 char *filename, *mode; |
24 | 320 { |
321 FILE *infile; | |
322 register int c; | |
323 register int commas; | |
324 register int defunflag; | |
1676
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
325 register int defvarperbufferflag; |
24 | 326 register int defvarflag; |
327 int minargs, maxargs; | |
11413
9cd115f44483
(scan_c_file): At end, restore file name last char to its original value.
Richard M. Stallman <rms@gnu.org>
parents:
10199
diff
changeset
|
328 int extension = filename[strlen (filename) - 1]; |
24 | 329 |
11413
9cd115f44483
(scan_c_file): At end, restore file name last char to its original value.
Richard M. Stallman <rms@gnu.org>
parents:
10199
diff
changeset
|
330 if (extension == 'o') |
24 | 331 filename[strlen (filename) - 1] = 'c'; |
332 | |
5449
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
333 infile = fopen (filename, mode); |
24 | 334 |
335 /* No error if non-ex input file */ | |
336 if (infile == NULL) | |
337 { | |
338 perror (filename); | |
339 return 0; | |
340 } | |
341 | |
11413
9cd115f44483
(scan_c_file): At end, restore file name last char to its original value.
Richard M. Stallman <rms@gnu.org>
parents:
10199
diff
changeset
|
342 /* Reset extension to be able to detect duplicate files. */ |
9cd115f44483
(scan_c_file): At end, restore file name last char to its original value.
Richard M. Stallman <rms@gnu.org>
parents:
10199
diff
changeset
|
343 filename[strlen (filename) - 1] = extension; |
9cd115f44483
(scan_c_file): At end, restore file name last char to its original value.
Richard M. Stallman <rms@gnu.org>
parents:
10199
diff
changeset
|
344 |
24 | 345 c = '\n'; |
346 while (!feof (infile)) | |
347 { | |
348 if (c != '\n') | |
349 { | |
350 c = getc (infile); | |
351 continue; | |
352 } | |
353 c = getc (infile); | |
354 if (c == ' ') | |
355 { | |
356 while (c == ' ') | |
357 c = getc (infile); | |
358 if (c != 'D') | |
359 continue; | |
360 c = getc (infile); | |
361 if (c != 'E') | |
362 continue; | |
363 c = getc (infile); | |
364 if (c != 'F') | |
365 continue; | |
366 c = getc (infile); | |
367 if (c != 'V') | |
368 continue; | |
1676
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
369 c = getc (infile); |
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
370 if (c != 'A') |
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
371 continue; |
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
372 c = getc (infile); |
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
373 if (c != 'R') |
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
374 continue; |
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
375 c = getc (infile); |
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
376 if (c != '_') |
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
377 continue; |
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
378 |
24 | 379 defvarflag = 1; |
380 defunflag = 0; | |
1676
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
381 |
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
382 c = getc (infile); |
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
383 defvarperbufferflag = (c == 'P'); |
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
384 |
24 | 385 c = getc (infile); |
386 } | |
387 else if (c == 'D') | |
388 { | |
389 c = getc (infile); | |
390 if (c != 'E') | |
391 continue; | |
392 c = getc (infile); | |
393 if (c != 'F') | |
394 continue; | |
395 c = getc (infile); | |
396 defunflag = c == 'U'; | |
397 defvarflag = 0; | |
398 } | |
399 else continue; | |
400 | |
401 while (c != '(') | |
402 { | |
403 if (c < 0) | |
404 goto eof; | |
405 c = getc (infile); | |
406 } | |
407 | |
408 c = getc (infile); | |
409 if (c != '"') | |
410 continue; | |
411 c = read_c_string (infile, -1); | |
412 | |
413 if (defunflag) | |
414 commas = 5; | |
1676
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
415 else if (defvarperbufferflag) |
e8b3c6b52c1e
* make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents:
1250
diff
changeset
|
416 commas = 2; |
24 | 417 else if (defvarflag) |
418 commas = 1; | |
419 else /* For DEFSIMPLE and DEFPRED */ | |
420 commas = 2; | |
421 | |
422 while (commas) | |
423 { | |
424 if (c == ',') | |
425 { | |
426 commas--; | |
427 if (defunflag && (commas == 1 || commas == 2)) | |
428 { | |
429 do | |
430 c = getc (infile); | |
431 while (c == ' ' || c == '\n' || c == '\t'); | |
432 if (c < 0) | |
433 goto eof; | |
434 ungetc (c, infile); | |
435 if (commas == 2) /* pick up minargs */ | |
436 fscanf (infile, "%d", &minargs); | |
437 else /* pick up maxargs */ | |
438 if (c == 'M' || c == 'U') /* MANY || UNEVALLED */ | |
439 maxargs = -1; | |
440 else | |
441 fscanf (infile, "%d", &maxargs); | |
442 } | |
443 } | |
444 if (c < 0) | |
445 goto eof; | |
446 c = getc (infile); | |
447 } | |
448 while (c == ' ' || c == '\n' || c == '\t') | |
449 c = getc (infile); | |
450 if (c == '"') | |
451 c = read_c_string (infile, 0); | |
452 while (c != ',') | |
453 c = getc (infile); | |
454 c = getc (infile); | |
455 while (c == ' ' || c == '\n' || c == '\t') | |
456 c = getc (infile); | |
457 | |
458 if (c == '"') | |
459 { | |
460 putc (037, outfile); | |
461 putc (defvarflag ? 'V' : 'F', outfile); | |
462 fprintf (outfile, "%s\n", buf); | |
168 | 463 c = read_c_string (infile, 1); |
464 | |
465 /* If this is a defun, find the arguments and print them. If | |
466 this function takes MANY or UNEVALLED args, then the C source | |
467 won't give the names of the arguments, so we shouldn't bother | |
468 trying to find them. */ | |
469 if (defunflag && maxargs != -1) | |
24 | 470 { |
471 char argbuf[1024], *p = argbuf; | |
472 while (c != ')') | |
473 { | |
474 if (c < 0) | |
475 goto eof; | |
476 c = getc (infile); | |
477 } | |
478 /* Skip into arguments. */ | |
479 while (c != '(') | |
480 { | |
481 if (c < 0) | |
482 goto eof; | |
483 c = getc (infile); | |
484 } | |
485 /* Copy arguments into ARGBUF. */ | |
486 *p++ = c; | |
487 do | |
488 *p++ = c = getc (infile); | |
489 while (c != ')'); | |
490 *p = '\0'; | |
491 /* Output them. */ | |
492 fprintf (outfile, "\n\n"); | |
5604
32ac07bd58ef
Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents:
5449
diff
changeset
|
493 write_c_args (outfile, buf, argbuf, minargs, maxargs); |
24 | 494 } |
495 } | |
496 } | |
497 eof: | |
498 fclose (infile); | |
499 return 0; | |
500 } | |
501 | |
502 /* Read a file of Lisp code, compiled or interpreted. | |
503 Looks for | |
504 (defun NAME ARGS DOCSTRING ...) | |
753 | 505 (defmacro NAME ARGS DOCSTRING ...) |
506 (autoload (quote NAME) FILE DOCSTRING ...) | |
24 | 507 (defvar NAME VALUE DOCSTRING) |
508 (defconst NAME VALUE DOCSTRING) | |
753 | 509 (fset (quote NAME) (make-byte-code ... DOCSTRING ...)) |
510 (fset (quote NAME) #[... DOCSTRING ...]) | |
2966
e936d56c2354
(scan_lisp_file): Recognize defalias like fset.
Richard M. Stallman <rms@gnu.org>
parents:
2814
diff
changeset
|
511 (defalias (quote NAME) #[... DOCSTRING ...]) |
24 | 512 starting in column zero. |
753 | 513 (quote NAME) may appear as 'NAME as well. |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
514 |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
515 We also look for #@LENGTH CONTENTS^_ at the beginning of the line. |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
516 When we find that, we save it for the following defining-form, |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
517 and we use that instead of reading a doc string within that defining-form. |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
518 |
753 | 519 For defun, defmacro, and autoload, we know how to skip over the arglist. |
3591
507f64624555
Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents:
3028
diff
changeset
|
520 For defvar, defconst, and fset we skip to the docstring with a kludgy |
753 | 521 formatting convention: all docstrings must appear on the same line as the |
522 initial open-paren (the one in column zero) and must contain a backslash | |
523 and a double-quote immediately after the initial double-quote. No newlines | |
524 must appear between the beginning of the form and the first double-quote. | |
525 The only source file that must follow this convention is loaddefs.el; aside | |
526 from that, it is always the .elc file that we look at, and they are no | |
527 problem because byte-compiler output follows this convention. | |
24 | 528 The NAME and DOCSTRING are output. |
529 NAME is preceded by `F' for a function or `V' for a variable. | |
530 An entry is output only if DOCSTRING has \ newline just after the opening " | |
531 */ | |
532 | |
753 | 533 void |
534 skip_white (infile) | |
535 FILE *infile; | |
536 { | |
537 char c = ' '; | |
538 while (c == ' ' || c == '\t' || c == '\n') | |
539 c = getc (infile); | |
540 ungetc (c, infile); | |
541 } | |
542 | |
543 void | |
544 read_lisp_symbol (infile, buffer) | |
545 FILE *infile; | |
546 char *buffer; | |
547 { | |
548 char c; | |
549 char *fillp = buffer; | |
550 | |
551 skip_white (infile); | |
552 while (1) | |
553 { | |
554 c = getc (infile); | |
555 if (c == '\\') | |
556 *(++fillp) = getc (infile); | |
557 else if (c == ' ' || c == '\t' || c == '\n' || c == '(' || c == ')') | |
558 { | |
559 ungetc (c, infile); | |
560 *fillp = 0; | |
561 break; | |
562 } | |
563 else | |
564 *fillp++ = c; | |
565 } | |
566 | |
567 if (! buffer[0]) | |
568 fprintf (stderr, "## expected a symbol, got '%c'\n", c); | |
569 | |
570 skip_white (infile); | |
571 } | |
572 | |
9491
dd3b83e4ceb0
Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents:
7564
diff
changeset
|
573 int |
5449
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
574 scan_lisp_file (filename, mode) |
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
575 char *filename, *mode; |
24 | 576 { |
577 FILE *infile; | |
578 register int c; | |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
579 char *saved_string = 0; |
24 | 580 |
5449
296db649863d
[MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents:
5317
diff
changeset
|
581 infile = fopen (filename, mode); |
24 | 582 if (infile == NULL) |
583 { | |
584 perror (filename); | |
585 return 0; /* No error */ | |
586 } | |
587 | |
588 c = '\n'; | |
589 while (!feof (infile)) | |
590 { | |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
591 char buffer[BUFSIZ]; |
753 | 592 char type; |
593 | |
24 | 594 if (c != '\n') |
595 { | |
596 c = getc (infile); | |
597 continue; | |
598 } | |
599 c = getc (infile); | |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
600 /* Detect a dynamic doc string and save it for the next expression. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
601 if (c == '#') |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
602 { |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
603 c = getc (infile); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
604 if (c == '@') |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
605 { |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
606 int length = 0; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
607 int i; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
608 |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
609 /* Read the length. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
610 while ((c = getc (infile), |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
611 c >= '0' && c <= '9')) |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
612 { |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
613 length *= 10; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
614 length += c - '0'; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
615 } |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
616 |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
617 /* The next character is a space that is counted in the length |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
618 but not part of the doc string. |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
619 We already read it, so just ignore it. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
620 length--; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
621 |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
622 /* Read in the contents. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
623 if (saved_string != 0) |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
624 free (saved_string); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
625 saved_string = (char *) malloc (length); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
626 for (i = 0; i < length; i++) |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
627 saved_string[i] = getc (infile); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
628 /* The last character is a ^_. |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
629 That is needed in the .elc file |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
630 but it is redundant in DOC. So get rid of it here. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
631 saved_string[length - 1] = 0; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
632 /* Skip the newline. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
633 c = getc (infile); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
634 while (c != '\n') |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
635 c = getc (infile); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
636 } |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
637 continue; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
638 } |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
639 |
24 | 640 if (c != '(') |
641 continue; | |
164 | 642 |
753 | 643 read_lisp_symbol (infile, buffer); |
644 | |
645 if (! strcmp (buffer, "defun") || | |
646 ! strcmp (buffer, "defmacro")) | |
24 | 647 { |
753 | 648 type = 'F'; |
649 read_lisp_symbol (infile, buffer); | |
650 | |
651 /* Skip the arguments: either "nil" or a list in parens */ | |
24 | 652 |
653 c = getc (infile); | |
753 | 654 if (c == 'n') /* nil */ |
655 { | |
656 if ((c = getc (infile)) != 'i' || | |
657 (c = getc (infile)) != 'l') | |
658 { | |
659 fprintf (stderr, "## unparsable arglist in %s (%s)\n", | |
660 buffer, filename); | |
661 continue; | |
662 } | |
663 } | |
664 else if (c != '(') | |
665 { | |
666 fprintf (stderr, "## unparsable arglist in %s (%s)\n", | |
667 buffer, filename); | |
668 continue; | |
669 } | |
670 else | |
671 while (c != ')') | |
672 c = getc (infile); | |
673 skip_white (infile); | |
24 | 674 |
753 | 675 /* If the next three characters aren't `dquote bslash newline' |
676 then we're not reading a docstring. | |
677 */ | |
678 if ((c = getc (infile)) != '"' || | |
679 (c = getc (infile)) != '\\' || | |
680 (c = getc (infile)) != '\n') | |
24 | 681 { |
753 | 682 #ifdef DEBUG |
683 fprintf (stderr, "## non-docstring in %s (%s)\n", | |
684 buffer, filename); | |
685 #endif | |
686 continue; | |
687 } | |
688 } | |
689 | |
690 else if (! strcmp (buffer, "defvar") || | |
691 ! strcmp (buffer, "defconst")) | |
692 { | |
693 char c1 = 0, c2 = 0; | |
694 type = 'V'; | |
695 read_lisp_symbol (infile, buffer); | |
696 | |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
697 if (saved_string == 0) |
753 | 698 { |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
699 |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
700 /* Skip until the first newline; remember the two previous chars. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
701 while (c != '\n' && c >= 0) |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
702 { |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
703 c2 = c1; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
704 c1 = c; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
705 c = getc (infile); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
706 } |
753 | 707 |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
708 /* If two previous characters were " and \, |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
709 this is a doc string. Otherwise, there is none. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
710 if (c2 != '"' || c1 != '\\') |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
711 { |
753 | 712 #ifdef DEBUG |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
713 fprintf (stderr, "## non-docstring in %s (%s)\n", |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
714 buffer, filename); |
753 | 715 #endif |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
716 continue; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
717 } |
753 | 718 } |
719 } | |
720 | |
2966
e936d56c2354
(scan_lisp_file): Recognize defalias like fset.
Richard M. Stallman <rms@gnu.org>
parents:
2814
diff
changeset
|
721 else if (! strcmp (buffer, "fset") || ! strcmp (buffer, "defalias")) |
753 | 722 { |
723 char c1 = 0, c2 = 0; | |
724 type = 'F'; | |
725 | |
726 c = getc (infile); | |
727 if (c == '\'') | |
728 read_lisp_symbol (infile, buffer); | |
24 | 729 else |
730 { | |
731 if (c != '(') | |
753 | 732 { |
733 fprintf (stderr, "## unparsable name in fset in %s\n", | |
734 filename); | |
735 continue; | |
736 } | |
737 read_lisp_symbol (infile, buffer); | |
738 if (strcmp (buffer, "quote")) | |
739 { | |
740 fprintf (stderr, "## unparsable name in fset in %s\n", | |
741 filename); | |
742 continue; | |
743 } | |
744 read_lisp_symbol (infile, buffer); | |
24 | 745 c = getc (infile); |
753 | 746 if (c != ')') |
747 { | |
748 fprintf (stderr, | |
749 "## unparsable quoted name in fset in %s\n", | |
750 filename); | |
751 continue; | |
752 } | |
24 | 753 } |
164 | 754 |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
755 if (saved_string == 0) |
24 | 756 { |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
757 /* Skip until the first newline; remember the two previous chars. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
758 while (c != '\n' && c >= 0) |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
759 { |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
760 c2 = c1; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
761 c1 = c; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
762 c = getc (infile); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
763 } |
753 | 764 |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
765 /* If two previous characters were " and \, |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
766 this is a doc string. Otherwise, there is none. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
767 if (c2 != '"' || c1 != '\\') |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
768 { |
753 | 769 #ifdef DEBUG |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
770 fprintf (stderr, "## non-docstring in %s (%s)\n", |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
771 buffer, filename); |
753 | 772 #endif |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
773 continue; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
774 } |
24 | 775 } |
776 } | |
753 | 777 |
778 else if (! strcmp (buffer, "autoload")) | |
164 | 779 { |
753 | 780 type = 'F'; |
164 | 781 c = getc (infile); |
753 | 782 if (c == '\'') |
783 read_lisp_symbol (infile, buffer); | |
784 else | |
785 { | |
786 if (c != '(') | |
787 { | |
788 fprintf (stderr, "## unparsable name in autoload in %s\n", | |
789 filename); | |
790 continue; | |
791 } | |
792 read_lisp_symbol (infile, buffer); | |
793 if (strcmp (buffer, "quote")) | |
794 { | |
795 fprintf (stderr, "## unparsable name in autoload in %s\n", | |
796 filename); | |
797 continue; | |
798 } | |
799 read_lisp_symbol (infile, buffer); | |
800 c = getc (infile); | |
801 if (c != ')') | |
802 { | |
803 fprintf (stderr, | |
804 "## unparsable quoted name in autoload in %s\n", | |
805 filename); | |
806 continue; | |
807 } | |
808 } | |
809 skip_white (infile); | |
810 if ((c = getc (infile)) != '\"') | |
811 { | |
812 fprintf (stderr, "## autoload of %s unparsable (%s)\n", | |
813 buffer, filename); | |
814 continue; | |
815 } | |
816 read_c_string (infile, 0); | |
817 skip_white (infile); | |
164 | 818 |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
819 if (saved_string == 0) |
753 | 820 { |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
821 /* If the next three characters aren't `dquote bslash newline' |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
822 then we're not reading a docstring. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
823 if ((c = getc (infile)) != '"' || |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
824 (c = getc (infile)) != '\\' || |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
825 (c = getc (infile)) != '\n') |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
826 { |
753 | 827 #ifdef DEBUG |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
828 fprintf (stderr, "## non-docstring in %s (%s)\n", |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
829 buffer, filename); |
753 | 830 #endif |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
831 continue; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
832 } |
753 | 833 } |
164 | 834 } |
24 | 835 |
753 | 836 #ifdef DEBUG |
837 else if (! strcmp (buffer, "if") || | |
838 ! strcmp (buffer, "byte-code")) | |
839 ; | |
840 #endif | |
24 | 841 |
753 | 842 else |
843 { | |
844 #ifdef DEBUG | |
845 fprintf (stderr, "## unrecognised top-level form, %s (%s)\n", | |
846 buffer, filename); | |
847 #endif | |
848 continue; | |
849 } | |
24 | 850 |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
851 /* At this point, we should either use the previous |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
852 dynamic doc string in saved_string |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
853 or gobble a doc string from the input file. |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
854 |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
855 In the latter case, the opening quote (and leading |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
856 backslash-newline) have already been read. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
857 |
24 | 858 putc (037, outfile); |
753 | 859 putc (type, outfile); |
860 fprintf (outfile, "%s\n", buffer); | |
10199
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
861 if (saved_string) |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
862 { |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
863 fputs (saved_string, outfile); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
864 /* Don't use one dynamic doc string twice. */ |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
865 free (saved_string); |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
866 saved_string = 0; |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
867 } |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
868 else |
3e2571e22b61
(scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents:
9772
diff
changeset
|
869 read_c_string (infile, 1); |
24 | 870 } |
871 fclose (infile); | |
872 return 0; | |
873 } |