annotate lib-src/make-docfile.c @ 18779:c47ea87f3bd7 libc-970715

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