annotate lib-src/make-docfile.c @ 4644:e19a64761187

Include getdate.c in distribution.
author Richard M. Stallman <rms@gnu.org>
date Sun, 15 Aug 1993 04:38:25 +0000
parents 507f64624555
children f052db139432
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1 /* Generate doc-string file for GNU Emacs from source files.
638
40b255f55df3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 168
diff changeset
2 Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
3
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
4 This file is part of GNU Emacs.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
38
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
6 GNU Emacs is free software; you can redistribute it and/or modify
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
7 it under the terms of the GNU General Public License as published by
638
40b255f55df3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 168
diff changeset
8 the Free Software Foundation; either version 2, or (at your option)
38
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
9 any later version.
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
10
38
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
11 GNU Emacs is distributed in the hope that it will be useful,
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
14 GNU General Public License for more details.
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
15
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
16 You should have received a copy of the GNU General Public License
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
17 along with GNU Emacs; see the file COPYING. If not, write to
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
19
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
20 /* The arguments given to this program are all the C and Lisp source files
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21 of GNU Emacs. .elc and .el and .c files are allowed.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 A .o file can also be specified; the .c file it was made from is used.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
23 This helps the makefile pass the correct list of files.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
25 The results, which go to standard output or to a file
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
26 specified with -a or -o (-a to append, -o to start from nothing),
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27 are entries containing function or variable names and their documentation.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 Each entry starts with a ^_ character.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 Then comes F for a function or V for a variable.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
30 Then comes the function or variable name, terminated with a newline.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 Then comes the documentation for that function or variable.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 #include <stdio.h>
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36 FILE *outfile;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
37
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
38 main (argc, argv)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
39 int argc;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
40 char **argv;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
41 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
42 int i;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
43 int err_count = 0;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
45 outfile = stdout;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
46
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
47 /* If first two args are -o FILE, output to FILE. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
48 i = 1;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
49 if (argc > i + 1 && !strcmp (argv[i], "-o"))
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
50 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
51 outfile = fopen (argv[i + 1], "w");
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
52 i += 2;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
53 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
54 if (argc > i + 1 && !strcmp (argv[i], "-a"))
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
55 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
56 outfile = fopen (argv[i + 1], "a");
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
57 i += 2;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
58 }
2814
0da5b58e98ed Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents: 2483
diff changeset
59 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
60 {
0da5b58e98ed Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents: 2483
diff changeset
61 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
62 i += 2;
0da5b58e98ed Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents: 2483
diff changeset
63 }
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
64
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
65 for (; i < argc; i++)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
66 err_count += scan_file (argv[i]); /* err_count seems to be {mis,un}used */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
67 #ifndef VMS
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
68 exit (err_count); /* see below - shane */
3028
cf9379f91ea1 * make-docfile.c: Doc fix.
Jim Blandy <jimb@redhat.com>
parents: 2966
diff changeset
69 #endif /* VMS */
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
70 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
71
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
72 /* Read file FILENAME and output its doc strings to outfile. */
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
73 /* Return 1 if file is not found, 0 if it is found. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
74
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
75 scan_file (filename)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
76 char *filename;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
77 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
78 int len = strlen (filename);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
79 if (!strcmp (filename + len - 4, ".elc"))
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
80 return scan_lisp_file (filename);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
81 else if (!strcmp (filename + len - 3, ".el"))
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
82 return scan_lisp_file (filename);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
83 else
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
84 return scan_c_file (filename);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
87 char buf[128];
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
88
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
89 /* Skip a C string from INFILE,
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
90 and return the character that follows the closing ".
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
91 If printflag is positive, output string contents to outfile.
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
92 If it is negative, store contents in buf.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
93 Convert escape sequences \n and \t to newline and tab;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
94 discard \ followed by newline. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
95
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
96 read_c_string (infile, printflag)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
97 FILE *infile;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
98 int printflag;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
99 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
100 register int c;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
101 char *p = buf;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
102
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
103 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
104 while (c != EOF)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
105 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
106 while (c != '"' && c != EOF)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
107 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
108 if (c == '\\')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
109 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
110 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
111 if (c == '\n')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
112 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
113 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
114 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
115 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
116 if (c == 'n')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
117 c = '\n';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
118 if (c == 't')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
119 c = '\t';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
120 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
121 if (printflag > 0)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
122 putc (c, outfile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
123 else if (printflag < 0)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
124 *p++ = c;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
125 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 if (c != '"')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 break;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 if (printflag > 0)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 putc (c, outfile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
132 else if (printflag < 0)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133 *p++ = c;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
134 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
135 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
136
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
137 if (printflag < 0)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
138 *p = 0;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
139
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
140 return c;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
141 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
142
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
143 /* Write to file OUT the argument names of the function whose text is in BUF.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
144 MINARGS and MAXARGS are the minimum and maximum number of arguments. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
145
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
146 write_c_args (out, buf, minargs, maxargs)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
147 FILE *out;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
148 char *buf;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
149 int minargs, maxargs;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
150 {
1206
de54d705652f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 753
diff changeset
151 register char *p;
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
152 int in_ident = 0;
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
153 int just_spaced = 0;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154
168
e0ec73426aea *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 164
diff changeset
155 fprintf (out, "arguments: ");
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156
1206
de54d705652f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 753
diff changeset
157 for (p = buf; *p; p++)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 {
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
159 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
160 int ident_start = 0;
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
161
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
162 /* Notice when we start printing a new identifier. */
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
163 if ((('A' <= c && c <= 'Z')
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
164 || ('a' <= c && c <= 'z')
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
165 || ('0' <= c && c <= '9')
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
166 || c == '_')
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
167 != in_ident)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
168 {
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
169 if (!in_ident)
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
170 {
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
171 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
172 ident_start = 1;
1206
de54d705652f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 753
diff changeset
173
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
174 if (minargs == 0 && maxargs > 0)
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
175 fprintf (out, "&optional ");
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
176 just_spaced = 1;
1206
de54d705652f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 753
diff changeset
177
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
178 minargs--;
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
179 maxargs--;
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
180 }
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
181 else
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
182 in_ident = 0;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
183 }
638
40b255f55df3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 168
diff changeset
184
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
185 /* Print the C argument list as it would appear in lisp:
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
186 print underscores as hyphens, and print commas as spaces.
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
187 Collapse adjacent spaces into one. */
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
188 if (c == '_') c = '-';
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
189 if (c == ',') c = ' ';
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
190
2483
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
191 /* 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
192 `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
193 if (ident_start
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
194 && 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
195 && ! (('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
196 || ('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
197 || ('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
198 || p[6] == '_'))
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
199 {
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
200 fprintf (out, "default");
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
201 p += 5;
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
202 in_ident = 0;
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
203 just_spaced = 0;
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
204 }
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
205 else if (c != ' ' || ! just_spaced)
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
206 putc (c, out);
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
207
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
208 just_spaced = (c == ' ');
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
209 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
212 /* Read through a c file. If a .o file is named,
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
213 the corresponding .c file is read instead.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
214 Looks for DEFUN constructs such as are defined in ../src/lisp.h.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
215 Accepts any word starting DEF... so it finds DEFSIMPLE and DEFPRED. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
216
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
217 scan_c_file (filename)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
218 char *filename;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
219 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220 FILE *infile;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
221 register int c;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 register int commas;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
223 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
224 register int defvarperbufferflag;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225 register int defvarflag;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
226 int minargs, maxargs;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
227
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
228 if (filename[strlen (filename) - 1] == 'o')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
229 filename[strlen (filename) - 1] = 'c';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
230
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
231 infile = fopen (filename, "r");
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
232
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
233 /* No error if non-ex input file */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
234 if (infile == NULL)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
235 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
236 perror (filename);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
237 return 0;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
238 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
239
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
240 c = '\n';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
241 while (!feof (infile))
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
242 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
243 if (c != '\n')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
244 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
245 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
246 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
247 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
248 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
249 if (c == ' ')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
250 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
251 while (c == ' ')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
252 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
253 if (c != 'D')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
254 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
255 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
256 if (c != 'E')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
257 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
258 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
259 if (c != 'F')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
260 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
261 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
262 if (c != 'V')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
263 continue;
1676
e8b3c6b52c1e * make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents: 1250
diff changeset
264 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
265 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
266 continue;
e8b3c6b52c1e * make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents: 1250
diff changeset
267 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
268 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
269 continue;
e8b3c6b52c1e * make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents: 1250
diff changeset
270 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
271 if (c != '_')
e8b3c6b52c1e * make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents: 1250
diff changeset
272 continue;
e8b3c6b52c1e * make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents: 1250
diff changeset
273
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
274 defvarflag = 1;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
275 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
276
e8b3c6b52c1e * make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents: 1250
diff changeset
277 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
278 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
279
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
280 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
281 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
282 else if (c == 'D')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
283 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
284 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
285 if (c != 'E')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
286 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
287 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
288 if (c != 'F')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
289 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
290 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
291 defunflag = c == 'U';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
292 defvarflag = 0;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
293 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
294 else continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
295
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
296 while (c != '(')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
297 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
298 if (c < 0)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
299 goto eof;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
300 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
301 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
302
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
303 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
304 if (c != '"')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
305 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
306 c = read_c_string (infile, -1);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
307
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
308 if (defunflag)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
309 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
310 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
311 commas = 2;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
312 else if (defvarflag)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
313 commas = 1;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
314 else /* For DEFSIMPLE and DEFPRED */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
315 commas = 2;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
316
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
317 while (commas)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
318 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
319 if (c == ',')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
320 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
321 commas--;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
322 if (defunflag && (commas == 1 || commas == 2))
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
323 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
324 do
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
325 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
326 while (c == ' ' || c == '\n' || c == '\t');
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
327 if (c < 0)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
328 goto eof;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
329 ungetc (c, infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
330 if (commas == 2) /* pick up minargs */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
331 fscanf (infile, "%d", &minargs);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
332 else /* pick up maxargs */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
333 if (c == 'M' || c == 'U') /* MANY || UNEVALLED */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
334 maxargs = -1;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
335 else
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
336 fscanf (infile, "%d", &maxargs);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
337 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
338 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
339 if (c < 0)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
340 goto eof;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
341 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
342 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
343 while (c == ' ' || c == '\n' || c == '\t')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
344 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
345 if (c == '"')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
346 c = read_c_string (infile, 0);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
347 while (c != ',')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
348 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
349 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
350 while (c == ' ' || c == '\n' || c == '\t')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
351 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
352
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
353 if (c == '"')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
354 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
355 putc (037, outfile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
356 putc (defvarflag ? 'V' : 'F', outfile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
357 fprintf (outfile, "%s\n", buf);
168
e0ec73426aea *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 164
diff changeset
358 c = read_c_string (infile, 1);
e0ec73426aea *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 164
diff changeset
359
e0ec73426aea *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 164
diff changeset
360 /* If this is a defun, find the arguments and print them. If
e0ec73426aea *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 164
diff changeset
361 this function takes MANY or UNEVALLED args, then the C source
e0ec73426aea *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 164
diff changeset
362 won't give the names of the arguments, so we shouldn't bother
e0ec73426aea *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 164
diff changeset
363 trying to find them. */
e0ec73426aea *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 164
diff changeset
364 if (defunflag && maxargs != -1)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
365 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
366 char argbuf[1024], *p = argbuf;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367 while (c != ')')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
368 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
369 if (c < 0)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
370 goto eof;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
371 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
372 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
373 /* Skip into arguments. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
374 while (c != '(')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
375 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
376 if (c < 0)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
377 goto eof;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
378 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
379 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
380 /* Copy arguments into ARGBUF. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
381 *p++ = c;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
382 do
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
383 *p++ = c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
384 while (c != ')');
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
385 *p = '\0';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 /* Output them. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
387 fprintf (outfile, "\n\n");
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 write_c_args (outfile, argbuf, minargs, maxargs);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
389 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
392 eof:
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 fclose (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 return 0;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 /* Read a file of Lisp code, compiled or interpreted.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398 Looks for
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 (defun NAME ARGS DOCSTRING ...)
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
400 (defmacro NAME ARGS DOCSTRING ...)
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
401 (autoload (quote NAME) FILE DOCSTRING ...)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
402 (defvar NAME VALUE DOCSTRING)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
403 (defconst NAME VALUE DOCSTRING)
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
404 (fset (quote NAME) (make-byte-code ... DOCSTRING ...))
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
405 (fset (quote NAME) #[... DOCSTRING ...])
2966
e936d56c2354 (scan_lisp_file): Recognize defalias like fset.
Richard M. Stallman <rms@gnu.org>
parents: 2814
diff changeset
406 (defalias (quote NAME) #[... DOCSTRING ...])
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
407 starting in column zero.
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
408 (quote NAME) may appear as 'NAME as well.
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
409 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
410 For defvar, defconst, and fset we skip to the docstring with a kludgy
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
411 formatting convention: all docstrings must appear on the same line as the
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
412 initial open-paren (the one in column zero) and must contain a backslash
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
413 and a double-quote immediately after the initial double-quote. No newlines
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
414 must appear between the beginning of the form and the first double-quote.
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
415 The only source file that must follow this convention is loaddefs.el; aside
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
416 from that, it is always the .elc file that we look at, and they are no
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
417 problem because byte-compiler output follows this convention.
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
418 The NAME and DOCSTRING are output.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
419 NAME is preceded by `F' for a function or `V' for a variable.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
420 An entry is output only if DOCSTRING has \ newline just after the opening "
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
421 */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
422
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
423 void
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
424 skip_white (infile)
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
425 FILE *infile;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
426 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
427 char c = ' ';
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
428 while (c == ' ' || c == '\t' || c == '\n')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
429 c = getc (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
430 ungetc (c, infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
431 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
432
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
433 void
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
434 read_lisp_symbol (infile, buffer)
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
435 FILE *infile;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
436 char *buffer;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
437 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
438 char c;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
439 char *fillp = buffer;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
440
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
441 skip_white (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
442 while (1)
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
443 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
444 c = getc (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
445 if (c == '\\')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
446 *(++fillp) = getc (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
447 else if (c == ' ' || c == '\t' || c == '\n' || c == '(' || c == ')')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
448 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
449 ungetc (c, infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
450 *fillp = 0;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
451 break;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
452 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
453 else
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
454 *fillp++ = c;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
455 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
456
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
457 if (! buffer[0])
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
458 fprintf (stderr, "## expected a symbol, got '%c'\n", c);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
459
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
460 skip_white (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
461 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
462
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
463
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
464 scan_lisp_file (filename)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
465 char *filename;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
466 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
467 FILE *infile;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468 register int c;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
469
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 infile = fopen (filename, "r");
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
471 if (infile == NULL)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
472 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
473 perror (filename);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
474 return 0; /* No error */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
475 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
476
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
477 c = '\n';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
478 while (!feof (infile))
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
479 {
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
480 char buffer [BUFSIZ];
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
481 char *fillp = buffer;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
482 char type;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
483
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
484 if (c != '\n')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
485 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
486 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
487 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
488 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
489 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
490 if (c != '(')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
491 continue;
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
492
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
493 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
494
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
495 if (! strcmp (buffer, "defun") ||
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
496 ! strcmp (buffer, "defmacro"))
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
497 {
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
498 type = 'F';
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
499 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
500
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
501 /* Skip the arguments: either "nil" or a list in parens */
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
502
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
503 c = getc (infile);
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
504 if (c == 'n') /* nil */
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
505 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
506 if ((c = getc (infile)) != 'i' ||
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
507 (c = getc (infile)) != 'l')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
508 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
509 fprintf (stderr, "## unparsable arglist in %s (%s)\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
510 buffer, filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
511 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
512 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
513 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
514 else if (c != '(')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
515 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
516 fprintf (stderr, "## unparsable arglist in %s (%s)\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
517 buffer, filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
518 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
519 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
520 else
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
521 while (c != ')')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
522 c = getc (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
523 skip_white (infile);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
524
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
525 /* If the next three characters aren't `dquote bslash newline'
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
526 then we're not reading a docstring.
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
527 */
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
528 if ((c = getc (infile)) != '"' ||
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
529 (c = getc (infile)) != '\\' ||
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
530 (c = getc (infile)) != '\n')
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
531 {
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
532 #ifdef DEBUG
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
533 fprintf (stderr, "## non-docstring in %s (%s)\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
534 buffer, filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
535 #endif
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
536 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
537 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
538 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
539
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
540 else if (! strcmp (buffer, "defvar") ||
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
541 ! strcmp (buffer, "defconst"))
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
542 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
543 char c1 = 0, c2 = 0;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
544 type = 'V';
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
545 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
546
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
547 /* Skip until the first newline; remember the two previous chars. */
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
548 while (c != '\n' && c >= 0)
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
549 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
550 c2 = c1;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
551 c1 = c;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
553 }
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
554
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
555 /* If two previous characters were " and \,
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
556 this is a doc string. Otherwise, there is none. */
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
557 if (c2 != '"' || c1 != '\\')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
558 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
559 #ifdef DEBUG
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
560 fprintf (stderr, "## non-docstring in %s (%s)\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
561 buffer, filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
562 #endif
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
563 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
564 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
565 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
566
2966
e936d56c2354 (scan_lisp_file): Recognize defalias like fset.
Richard M. Stallman <rms@gnu.org>
parents: 2814
diff changeset
567 else if (! strcmp (buffer, "fset") || ! strcmp (buffer, "defalias"))
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
568 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
569 char c1 = 0, c2 = 0;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
570 type = 'F';
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
571
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
572 c = getc (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
573 if (c == '\'')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
574 read_lisp_symbol (infile, buffer);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
575 else
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
576 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577 if (c != '(')
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
578 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
579 fprintf (stderr, "## unparsable name in fset in %s\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
580 filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
581 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
582 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
583 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
584 if (strcmp (buffer, "quote"))
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
585 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
586 fprintf (stderr, "## unparsable name in fset in %s\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
587 filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
588 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
589 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
590 read_lisp_symbol (infile, buffer);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 c = getc (infile);
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
592 if (c != ')')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
593 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
594 fprintf (stderr,
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
595 "## unparsable quoted name in fset in %s\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
596 filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
597 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
598 }
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 }
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
600
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
601 /* Skip until the first newline; remember the two previous chars. */
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
602 while (c != '\n' && c >= 0)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
603 {
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
604 c2 = c1;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
605 c1 = c;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
606 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
607 }
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
608
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
609 /* If two previous characters were " and \,
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
610 this is a doc string. Otherwise, there is none. */
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
611 if (c2 != '"' || c1 != '\\')
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
612 {
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
613 #ifdef DEBUG
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
614 fprintf (stderr, "## non-docstring in %s (%s)\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
615 buffer, filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
616 #endif
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
617 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
618 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619 }
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
620
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
621 else if (! strcmp (buffer, "autoload"))
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
622 {
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
623 type = 'F';
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
624 c = getc (infile);
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
625 if (c == '\'')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
626 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
627 else
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
628 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
629 if (c != '(')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
630 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
631 fprintf (stderr, "## unparsable name in autoload in %s\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
632 filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
633 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
634 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
635 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
636 if (strcmp (buffer, "quote"))
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
637 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
638 fprintf (stderr, "## unparsable name in autoload in %s\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
639 filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
640 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
641 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
642 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
643 c = getc (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
644 if (c != ')')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
645 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
646 fprintf (stderr,
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
647 "## unparsable quoted name in autoload in %s\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
648 filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
649 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
650 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
651 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
652 skip_white (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
653 if ((c = getc (infile)) != '\"')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
654 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
655 fprintf (stderr, "## autoload of %s unparsable (%s)\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
656 buffer, filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
657 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
658 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
659 read_c_string (infile, 0);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
660 skip_white (infile);
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
661
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
662 /* If the next three characters aren't `dquote bslash newline'
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
663 then we're not reading a docstring.
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
664 */
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
665 if ((c = getc (infile)) != '"' ||
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
666 (c = getc (infile)) != '\\' ||
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
667 (c = getc (infile)) != '\n')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
668 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
669 #ifdef DEBUG
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
670 fprintf (stderr, "## non-docstring in %s (%s)\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
671 buffer, filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
672 #endif
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
673 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
674 }
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
675 }
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
677 #ifdef DEBUG
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
678 else if (! strcmp (buffer, "if") ||
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
679 ! strcmp (buffer, "byte-code"))
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
680 ;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
681 #endif
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
683 else
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
684 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
685 #ifdef DEBUG
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
686 fprintf (stderr, "## unrecognised top-level form, %s (%s)\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
687 buffer, filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
688 #endif
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
689 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
690 }
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
691
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
692 /* At this point, there is a docstring that we should gobble.
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
693 The opening quote (and leading backslash-newline) have already
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
694 been read.
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
695 */
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
696 putc ('\n', outfile);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
697 putc (037, outfile);
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
698 putc (type, outfile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
699 fprintf (outfile, "%s\n", buffer);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
700 read_c_string (infile, 1);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
701 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
702 fclose (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
703 return 0;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
704 }