annotate lib-src/make-docfile.c @ 102942:7aca9a846e08

*** empty log message ***
author Michael Albinus <michael.albinus@gmx.de>
date Sun, 12 Apr 2009 19:31:36 +0000
parents a9f7e446141d
children e5da8db417c0
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.
64769
6358e3c6075c Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64083
diff changeset
2 Copyright (C) 1985, 1986, 1992, 1993, 1994, 1997, 1999, 2000, 2001,
100958
a9f7e446141d Add 2009 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 100104
diff changeset
3 2002, 2003, 2004, 2005, 2006, 2007, 2008, 2009
79748
5714ff101fd9 Add 2008 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 78257
diff changeset
4 Free Software Foundation, Inc.
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
5
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
6 This file is part of GNU Emacs.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
7
94828
3a4bc081639c Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92159
diff changeset
8 GNU Emacs is free software: you can redistribute it and/or modify
38
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
9 it under the terms of the GNU General Public License as published by
94828
3a4bc081639c Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92159
diff changeset
10 the Free Software Foundation, either version 3 of the License, or
3a4bc081639c Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92159
diff changeset
11 (at your option) any later version.
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
12
38
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
13 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
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
16 GNU General Public License for more details.
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
17
056b931d312b *** empty log message ***
Joseph Arceneaux <jla@gnu.org>
parents: 24
diff changeset
18 You should have received a copy of the GNU General Public License
94828
3a4bc081639c Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92159
diff changeset
19 along with GNU Emacs. If not, see <http://www.gnu.org/licenses/>. */
3a4bc081639c Switch to recommended form of GPLv3 permissions notice.
Glenn Morris <rgm@gnu.org>
parents: 92159
diff changeset
20
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
21
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
22 /* 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
23 of GNU Emacs. .elc and .el and .c files are allowed.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
24 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
25 This helps the makefile pass the correct list of files.
53269
957afba80853 (main): For return code, no longer special-case VMS.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
26 Option -d DIR means change to DIR before looking for files.
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
27
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
28 The results, which go to standard output or to a file
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
29 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
30 are entries containing function or variable names and their documentation.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
31 Each entry starts with a ^_ character.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
32 Then comes F for a function or V for a variable.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
33 Then comes the function or variable name, terminated with a newline.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
34 Then comes the documentation for that function or variable.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
35 */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
36
25532
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
37 #include <config.h>
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
38
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
39 /* defined to be emacs_main, sys_fopen, etc. in config.h */
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
40 #undef main
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
41 #undef fopen
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
42 #undef chdir
11690
450b9598aca5 Include config.h.
Richard M. Stallman <rms@gnu.org>
parents: 11413
diff changeset
43
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
44 #include <stdio.h>
5449
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
45 #ifdef MSDOS
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
46 #include <fcntl.h>
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
47 #endif /* MSDOS */
9772
20652342eb9a (main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents: 9643
diff changeset
48 #ifdef WINDOWSNT
60369
3f6c5215bb43 Undo previous change.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 59143
diff changeset
49 #include <stdlib.h>
9772
20652342eb9a (main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents: 9643
diff changeset
50 #include <fcntl.h>
20652342eb9a (main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents: 9643
diff changeset
51 #include <direct.h>
20652342eb9a (main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents: 9643
diff changeset
52 #endif /* WINDOWSNT */
5449
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
53
9772
20652342eb9a (main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents: 9643
diff changeset
54 #ifdef DOS_NT
5449
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
55 #define READ_TEXT "rt"
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
56 #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
57 #else /* not DOS_NT */
5449
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
58 #define READ_TEXT "r"
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
59 #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
60 #endif /* not DOS_NT */
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
61
62292
3c46f9593ea1 (DIRECTORY_SEP): New macro.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60369
diff changeset
62 #ifndef DIRECTORY_SEP
3c46f9593ea1 (DIRECTORY_SEP): New macro.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60369
diff changeset
63 #define DIRECTORY_SEP '/'
3c46f9593ea1 (DIRECTORY_SEP): New macro.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60369
diff changeset
64 #endif
3c46f9593ea1 (DIRECTORY_SEP): New macro.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60369
diff changeset
65
55147
c2f1d71314c4 (IS_DIRECTORY_SEP): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 54746
diff changeset
66 #ifndef IS_DIRECTORY_SEP
62292
3c46f9593ea1 (DIRECTORY_SEP): New macro.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 60369
diff changeset
67 #define IS_DIRECTORY_SEP(_c_) ((_c_) == DIRECTORY_SEP)
55147
c2f1d71314c4 (IS_DIRECTORY_SEP): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 54746
diff changeset
68 #endif
c2f1d71314c4 (IS_DIRECTORY_SEP): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 54746
diff changeset
69
9491
dd3b83e4ceb0 Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents: 7564
diff changeset
70 int scan_file ();
dd3b83e4ceb0 Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents: 7564
diff changeset
71 int scan_lisp_file ();
dd3b83e4ceb0 Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents: 7564
diff changeset
72 int scan_c_file ();
dd3b83e4ceb0 Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents: 7564
diff changeset
73
12134
cf65209088d6 [MSDOS]: #undef chdir.
Karl Heuer <kwzh@gnu.org>
parents: 11690
diff changeset
74 #ifdef MSDOS
cf65209088d6 [MSDOS]: #undef chdir.
Karl Heuer <kwzh@gnu.org>
parents: 11690
diff changeset
75 /* 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
76 file where that function is defined. */
cf65209088d6 [MSDOS]: #undef chdir.
Karl Heuer <kwzh@gnu.org>
parents: 11690
diff changeset
77 #undef chdir
cf65209088d6 [MSDOS]: #undef chdir.
Karl Heuer <kwzh@gnu.org>
parents: 11690
diff changeset
78 #endif
cf65209088d6 [MSDOS]: #undef chdir.
Karl Heuer <kwzh@gnu.org>
parents: 11690
diff changeset
79
21783
798a28989dde Include <unistd.h> for chdir.
Andreas Schwab <schwab@suse.de>
parents: 19636
diff changeset
80 #ifdef HAVE_UNISTD_H
798a28989dde Include <unistd.h> for chdir.
Andreas Schwab <schwab@suse.de>
parents: 19636
diff changeset
81 #include <unistd.h>
798a28989dde Include <unistd.h> for chdir.
Andreas Schwab <schwab@suse.de>
parents: 19636
diff changeset
82 #endif
798a28989dde Include <unistd.h> for chdir.
Andreas Schwab <schwab@suse.de>
parents: 19636
diff changeset
83
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
84 /* Stdio stream for output to the DOC file. */
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
85 FILE *outfile;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
86
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
87 /* Name this program was invoked with. */
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
88 char *progname;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
89
41084
052c2896e6ca Comment fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 40130
diff changeset
90 /* Print error message. `s1' is printf control string, `s2' is arg for it. */
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
91
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
92 /* VARARGS1 */
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
93 void
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
94 error (s1, s2)
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
95 char *s1, *s2;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
96 {
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
97 fprintf (stderr, "%s: ", progname);
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
98 fprintf (stderr, s1, s2);
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
99 fprintf (stderr, "\n");
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
100 }
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
101
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
102 /* Print error message and exit. */
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
103
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
104 /* VARARGS1 */
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
105 void
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
106 fatal (s1, s2)
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
107 char *s1, *s2;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
108 {
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
109 error (s1, s2);
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 55147
diff changeset
110 exit (EXIT_FAILURE);
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
111 }
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
112
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
113 /* 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
114
54746
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
115 void *
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
116 xmalloc (size)
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
117 unsigned int size;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
118 {
54746
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
119 void *result = (void *) malloc (size);
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
120 if (result == NULL)
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
121 fatal ("virtual memory exhausted", 0);
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
122 return result;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
123 }
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
124
9491
dd3b83e4ceb0 Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents: 7564
diff changeset
125 int
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
126 main (argc, argv)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
127 int argc;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
128 char **argv;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
129 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
130 int i;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
131 int err_count = 0;
9643
5d1e70b22a93 (main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents: 9491
diff changeset
132 int first_infile;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
133
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
134 progname = argv[0];
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
135
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
136 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
137
9772
20652342eb9a (main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents: 9643
diff changeset
138 /* 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
139 #ifdef MSDOS
12350
68508136431f (main) [MSDOS]: Do set _fmode.
Richard M. Stallman <rms@gnu.org>
parents: 12328
diff changeset
140 _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
141 #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
142 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
143 (stdout)->_flag &= ~_IOTEXT;
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
144 _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
145 #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
146 outfile = 0;
5449
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
147 #endif /* MSDOS */
9772
20652342eb9a (main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents: 9643
diff changeset
148 #ifdef WINDOWSNT
20652342eb9a (main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents: 9643
diff changeset
149 _fmode = O_BINARY;
20652342eb9a (main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents: 9643
diff changeset
150 _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
151 #endif /* WINDOWSNT */
20652342eb9a (main) [WINDOWSNT]: Now sets _fmode and stdout to O_BINARY.
Richard M. Stallman <rms@gnu.org>
parents: 9643
diff changeset
152
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
153 /* If first two args are -o FILE, output to FILE. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
154 i = 1;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
155 if (argc > i + 1 && !strcmp (argv[i], "-o"))
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
156 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
157 outfile = fopen (argv[i + 1], "w");
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
158 i += 2;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
159 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
160 if (argc > i + 1 && !strcmp (argv[i], "-a"))
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
161 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
162 outfile = fopen (argv[i + 1], "a");
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
163 i += 2;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
164 }
2814
0da5b58e98ed Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents: 2483
diff changeset
165 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
166 {
0da5b58e98ed Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents: 2483
diff changeset
167 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
168 i += 2;
0da5b58e98ed Install patches from David J. Mackenzie to make the srcdir option
Jim Blandy <jimb@redhat.com>
parents: 2483
diff changeset
169 }
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
170
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
171 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
172 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
173
9643
5d1e70b22a93 (main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents: 9491
diff changeset
174 first_infile = i;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
175 for (; i < argc; i++)
9643
5d1e70b22a93 (main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents: 9491
diff changeset
176 {
5d1e70b22a93 (main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents: 9491
diff changeset
177 int j;
5d1e70b22a93 (main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents: 9491
diff changeset
178 /* 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
179 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
180 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
181 break;
5d1e70b22a93 (main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents: 9491
diff changeset
182 if (j == i)
5d1e70b22a93 (main): Don't process one input file twice.
Richard M. Stallman <rms@gnu.org>
parents: 9491
diff changeset
183 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
184 }
53269
957afba80853 (main): For return code, no longer special-case VMS.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 52401
diff changeset
185 return (err_count > 0 ? EXIT_FAILURE : EXIT_SUCCESS);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
186 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
187
54746
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
188 /* Add a source file name boundary marker in the output file. */
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
189 void
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
190 put_filename (filename)
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
191 char *filename;
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
192 {
55147
c2f1d71314c4 (IS_DIRECTORY_SEP): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 54746
diff changeset
193 char *tmp;
c2f1d71314c4 (IS_DIRECTORY_SEP): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 54746
diff changeset
194
c2f1d71314c4 (IS_DIRECTORY_SEP): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 54746
diff changeset
195 for (tmp = filename; *tmp; tmp++)
c2f1d71314c4 (IS_DIRECTORY_SEP): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 54746
diff changeset
196 {
c2f1d71314c4 (IS_DIRECTORY_SEP): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 54746
diff changeset
197 if (IS_DIRECTORY_SEP(*tmp))
c2f1d71314c4 (IS_DIRECTORY_SEP): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 54746
diff changeset
198 filename = tmp + 1;
c2f1d71314c4 (IS_DIRECTORY_SEP): New macro.
Eli Zaretskii <eliz@gnu.org>
parents: 54746
diff changeset
199 }
54746
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
200
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
201 putc (037, outfile);
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
202 putc ('S', outfile);
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
203 fprintf (outfile, "%s\n", filename);
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
204 }
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
205
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
206 /* Read file FILENAME and output its doc strings to outfile. */
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
207 /* Return 1 if file is not found, 0 if it is found. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
208
9491
dd3b83e4ceb0 Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents: 7564
diff changeset
209 int
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
210 scan_file (filename)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
211 char *filename;
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 int len = strlen (filename);
54746
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
214
effb507b5258 (xmalloc): Fix return type.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53269
diff changeset
215 put_filename (filename);
12351
f2e9eb6a8939 (scan_file): Make sure it never looks at filename[-1].
Richard M. Stallman <rms@gnu.org>
parents: 12350
diff changeset
216 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
217 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
218 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
219 return scan_lisp_file (filename, READ_TEXT);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
220 else
5449
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
221 return scan_c_file (filename, READ_TEXT);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
222 }
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 char buf[128];
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
225
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
226 /* Some state during the execution of `read_c_string_or_comment'. */
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
227 struct rcsoc_state
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
228 {
41084
052c2896e6ca Comment fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 40130
diff changeset
229 /* A count of spaces and newlines that have been read, but not output. */
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
230 unsigned pending_spaces, pending_newlines;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
231
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
232 /* Where we're reading from. */
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
233 FILE *in_file;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
234
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
235 /* If non-zero, a buffer into which to copy characters. */
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
236 char *buf_ptr;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
237 /* If non-zero, a file into which to copy characters. */
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
238 FILE *out_file;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
239
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
240 /* A keyword we look for at the beginning of lines. If found, it is
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
241 not copied, and SAW_KEYWORD is set to true. */
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
242 char *keyword;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
243 /* The current point we've reached in an occurance of KEYWORD in
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
244 the input stream. */
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
245 char *cur_keyword_ptr;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
246 /* Set to true if we saw an occurance of KEYWORD. */
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
247 int saw_keyword;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
248 };
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
249
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
250 /* Output CH to the file or buffer in STATE. Any pending newlines or
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
251 spaces are output first. */
39986
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
252
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
253 static INLINE void
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
254 put_char (ch, state)
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
255 int ch;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
256 struct rcsoc_state *state;
39986
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
257 {
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
258 int out_ch;
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
259 do
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
260 {
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
261 if (state->pending_newlines > 0)
39986
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
262 {
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
263 state->pending_newlines--;
39986
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
264 out_ch = '\n';
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
265 }
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
266 else if (state->pending_spaces > 0)
39986
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
267 {
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
268 state->pending_spaces--;
39986
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
269 out_ch = ' ';
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
270 }
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
271 else
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
272 out_ch = ch;
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
273
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
274 if (state->out_file)
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
275 putc (out_ch, state->out_file);
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
276 if (state->buf_ptr)
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
277 *state->buf_ptr++ = out_ch;
39986
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
278 }
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
279 while (out_ch != ch);
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
280 }
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
281
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
282 /* If in the middle of scanning a keyword, continue scanning with
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
283 character CH, otherwise output CH to the file or buffer in STATE.
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
284 Any pending newlines or spaces are output first, as well as any
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
285 previously scanned characters that were thought to be part of a
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
286 keyword, but were in fact not. */
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
287
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
288 static void
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
289 scan_keyword_or_put_char (ch, state)
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
290 int ch;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
291 struct rcsoc_state *state;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
292 {
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
293 if (state->keyword
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
294 && *state->cur_keyword_ptr == ch
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
295 && (state->cur_keyword_ptr > state->keyword
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
296 || state->pending_newlines > 0))
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
297 /* We might be looking at STATE->keyword at some point.
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
298 Keep looking until we know for sure. */
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
299 {
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
300 if (*++state->cur_keyword_ptr == '\0')
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
301 /* Saw the whole keyword. Set SAW_KEYWORD flag to true. */
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
302 {
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
303 state->saw_keyword = 1;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
304
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
305 /* Reset the scanning pointer. */
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
306 state->cur_keyword_ptr = state->keyword;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
307
41084
052c2896e6ca Comment fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 40130
diff changeset
308 /* Canonicalize whitespace preceding a usage string. */
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
309 state->pending_newlines = 2;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
310 state->pending_spaces = 0;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
311
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
312 /* Skip any whitespace between the keyword and the
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
313 usage string. */
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
314 do
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
315 ch = getc (state->in_file);
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
316 while (ch == ' ' || ch == '\n');
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
317
46958
d7669c85c9cb (scan_keyword_or_put_char, write_c_args): Use `fn'
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46394
diff changeset
318 /* Output the open-paren we just read. */
d7669c85c9cb (scan_keyword_or_put_char, write_c_args): Use `fn'
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46394
diff changeset
319 put_char (ch, state);
d7669c85c9cb (scan_keyword_or_put_char, write_c_args): Use `fn'
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46394
diff changeset
320
d7669c85c9cb (scan_keyword_or_put_char, write_c_args): Use `fn'
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46394
diff changeset
321 /* Skip the function name and replace it with `fn'. */
d7669c85c9cb (scan_keyword_or_put_char, write_c_args): Use `fn'
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46394
diff changeset
322 do
d7669c85c9cb (scan_keyword_or_put_char, write_c_args): Use `fn'
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46394
diff changeset
323 ch = getc (state->in_file);
d7669c85c9cb (scan_keyword_or_put_char, write_c_args): Use `fn'
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46394
diff changeset
324 while (ch != ' ' && ch != ')');
d7669c85c9cb (scan_keyword_or_put_char, write_c_args): Use `fn'
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46394
diff changeset
325 put_char ('f', state);
d7669c85c9cb (scan_keyword_or_put_char, write_c_args): Use `fn'
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46394
diff changeset
326 put_char ('n', state);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 48313
diff changeset
327
46958
d7669c85c9cb (scan_keyword_or_put_char, write_c_args): Use `fn'
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46394
diff changeset
328 /* Put back the last character. */
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
329 ungetc (ch, state->in_file);
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
330 }
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
331 }
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
332 else
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
333 {
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
334 if (state->keyword && state->cur_keyword_ptr > state->keyword)
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
335 /* We scanned the beginning of a potential usage
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
336 keyword, but it was a false alarm. Output the
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
337 part we scanned. */
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
338 {
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
339 char *p;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
340
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
341 for (p = state->keyword; p < state->cur_keyword_ptr; p++)
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
342 put_char (*p, state);
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
343
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
344 state->cur_keyword_ptr = state->keyword;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
345 }
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
346
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
347 put_char (ch, state);
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
348 }
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
349 }
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
350
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
351
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
352 /* Skip a C string or C-style comment from INFILE, and return the
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
353 character that follows. COMMENT non-zero means skip a comment. If
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
354 PRINTFLAG is positive, output string contents to outfile. If it is
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
355 negative, store contents in buf. Convert escape sequences \n and
40112
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
356 \t to newline and tab; discard \ followed by newline.
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
357 If SAW_USAGE is non-zero, then any occurances of the string `usage:'
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
358 at the beginning of a line will be removed, and *SAW_USAGE set to
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
359 true if any were encountered. */
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
360
9491
dd3b83e4ceb0 Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents: 7564
diff changeset
361 int
40112
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
362 read_c_string_or_comment (infile, printflag, comment, saw_usage)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
363 FILE *infile;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
364 int printflag;
40112
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
365 int *saw_usage;
48313
85a91bbe8e45 (read_c_string_or_comment): Declare msgno.
Dave Love <fx@gnu.org>
parents: 46958
diff changeset
366 int comment;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
367 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
368 register int c;
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
369 struct rcsoc_state state;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
370
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
371 state.in_file = infile;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
372 state.buf_ptr = (printflag < 0 ? buf : 0);
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
373 state.out_file = (printflag > 0 ? outfile : 0);
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
374 state.pending_spaces = 0;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
375 state.pending_newlines = 0;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
376 state.keyword = (saw_usage ? "usage:" : 0);
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
377 state.cur_keyword_ptr = state.keyword;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
378 state.saw_keyword = 0;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
379
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
380 c = getc (infile);
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
381 if (comment)
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
382 while (c == '\n' || c == '\r' || c == '\t' || c == ' ')
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
383 c = getc (infile);
40112
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
384
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
385 while (c != EOF)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
386 {
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
387 while (c != EOF && (comment ? c != '*' : c != '"'))
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
388 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
389 if (c == '\\')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
390 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
391 c = getc (infile);
25532
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
392 if (c == '\n' || c == '\r')
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
393 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
394 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
395 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
396 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
397 if (c == 'n')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
398 c = '\n';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
399 if (c == 't')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
400 c = '\t';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
401 }
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
402
39986
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
403 if (c == ' ')
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
404 state.pending_spaces++;
39986
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
405 else if (c == '\n')
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
406 {
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
407 state.pending_newlines++;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
408 state.pending_spaces = 0;
39986
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
409 }
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
410 else
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
411 scan_keyword_or_put_char (c, &state);
39986
c9411c9fab91 (put_char): New function.
Miles Bader <miles@gnu.org>
parents: 39976
diff changeset
412
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
413 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
414 }
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
415
39949
f169b10c8e00 (read_c_string_or_comment): Don't drop a '*'
Gerd Moellmann <gerd@gnu.org>
parents: 39897
diff changeset
416 if (c != EOF)
f169b10c8e00 (read_c_string_or_comment): Don't drop a '*'
Gerd Moellmann <gerd@gnu.org>
parents: 39897
diff changeset
417 c = getc (infile);
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
418
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
419 if (comment)
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
420 {
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
421 if (c == '/')
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
422 {
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
423 c = getc (infile);
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
424 break;
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
425 }
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
426
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
427 scan_keyword_or_put_char ('*', &state);
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
428 }
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
429 else
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
430 {
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
431 if (c != '"')
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
432 break;
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
433
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
434 /* If we had a "", concatenate the two strings. */
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
435 c = getc (infile);
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
436 }
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
437 }
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
438
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
439 if (printflag < 0)
40130
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
440 *state.buf_ptr = 0;
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
441
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
442 if (saw_usage)
89269b100451 (struct rcsoc_state): New type.
Miles Bader <miles@gnu.org>
parents: 40112
diff changeset
443 *saw_usage = state.saw_keyword;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
444
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
445 return c;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
446 }
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
447
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
448
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
449
5604
32ac07bd58ef Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents: 5449
diff changeset
450 /* 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
451 MINARGS and MAXARGS are the minimum and maximum number of arguments. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
452
9491
dd3b83e4ceb0 Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents: 7564
diff changeset
453 void
5604
32ac07bd58ef Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents: 5449
diff changeset
454 write_c_args (out, func, buf, minargs, maxargs)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
455 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
456 char *func, *buf;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
457 int minargs, maxargs;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
458 {
1206
de54d705652f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 753
diff changeset
459 register char *p;
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
460 int in_ident = 0;
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
461 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
462 int need_space = 1;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
463
46958
d7669c85c9cb (scan_keyword_or_put_char, write_c_args): Use `fn'
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 46394
diff changeset
464 fprintf (out, "(fn");
5604
32ac07bd58ef Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents: 5449
diff changeset
465
32ac07bd58ef Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents: 5449
diff changeset
466 if (*buf == '(')
32ac07bd58ef Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents: 5449
diff changeset
467 ++buf;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
468
1206
de54d705652f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 753
diff changeset
469 for (p = buf; *p; p++)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
470 {
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
471 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
472 int ident_start = 0;
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
473
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
474 /* Notice when we start printing a new identifier. */
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
475 if ((('A' <= c && c <= 'Z')
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
476 || ('a' <= c && c <= 'z')
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
477 || ('0' <= c && c <= '9')
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
478 || c == '_')
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
479 != in_ident)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
480 {
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
481 if (!in_ident)
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
482 {
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
483 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
484 ident_start = 1;
1206
de54d705652f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 753
diff changeset
485
5604
32ac07bd58ef Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents: 5449
diff changeset
486 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
487 putc (' ', out);
32ac07bd58ef Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents: 5449
diff changeset
488
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
489 if (minargs == 0 && maxargs > 0)
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
490 fprintf (out, "&optional ");
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
491 just_spaced = 1;
1206
de54d705652f *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 753
diff changeset
492
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
493 minargs--;
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
494 maxargs--;
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
495 }
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
496 else
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
497 in_ident = 0;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
498 }
638
40b255f55df3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 168
diff changeset
499
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
500 /* Print the C argument list as it would appear in lisp:
35293
39b2af5f7ee2 (write_c_args): Print newlines as spaces.
Gerd Moellmann <gerd@gnu.org>
parents: 28401
diff changeset
501 print underscores as hyphens, and print commas and newlines
39b2af5f7ee2 (write_c_args): Print newlines as spaces.
Gerd Moellmann <gerd@gnu.org>
parents: 28401
diff changeset
502 as spaces. Collapse adjacent spaces into one. */
39b2af5f7ee2 (write_c_args): Print newlines as spaces.
Gerd Moellmann <gerd@gnu.org>
parents: 28401
diff changeset
503 if (c == '_')
39b2af5f7ee2 (write_c_args): Print newlines as spaces.
Gerd Moellmann <gerd@gnu.org>
parents: 28401
diff changeset
504 c = '-';
39b2af5f7ee2 (write_c_args): Print newlines as spaces.
Gerd Moellmann <gerd@gnu.org>
parents: 28401
diff changeset
505 else if (c == ',' || c == '\n')
39b2af5f7ee2 (write_c_args): Print newlines as spaces.
Gerd Moellmann <gerd@gnu.org>
parents: 28401
diff changeset
506 c = ' ';
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
507
2483
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
508 /* 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
509 `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
510 if (ident_start
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
511 && 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
512 && ! (('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
513 || ('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
514 || ('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
515 || p[6] == '_'))
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
516 {
7564
d5d803ffff27 (write_c_args): Put `default' in upper case.
Richard M. Stallman <rms@gnu.org>
parents: 5604
diff changeset
517 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
518 p += 5;
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
519 in_ident = 0;
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
520 just_spaced = 0;
b4145a12422d * make-docfile.c (write_c_args): Print an argument named "defalt"
Jim Blandy <jimb@redhat.com>
parents: 1676
diff changeset
521 }
35293
39b2af5f7ee2 (write_c_args): Print newlines as spaces.
Gerd Moellmann <gerd@gnu.org>
parents: 28401
diff changeset
522 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
523 {
32ac07bd58ef Make the argument list output look more like the Lisp docstrings do.
Roland McGrath <roland@gnu.org>
parents: 5449
diff changeset
524 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
525 /* 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
526 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
527 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
528 }
1250
5788741d1eaa entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 1206
diff changeset
529
35293
39b2af5f7ee2 (write_c_args): Print newlines as spaces.
Gerd Moellmann <gerd@gnu.org>
parents: 28401
diff changeset
530 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
531 need_space = 0;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
532 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
533 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
534
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
535 /* Read through a c file. If a .o file is named,
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96454
diff changeset
536 the corresponding .c or .m file is read instead.
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
537 Looks for DEFUN constructs such as are defined in ../src/lisp.h.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
538 Accepts any word starting DEF... so it finds DEFSIMPLE and DEFPRED. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
539
9491
dd3b83e4ceb0 Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents: 7564
diff changeset
540 int
5449
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
541 scan_c_file (filename, mode)
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
542 char *filename, *mode;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
543 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
544 FILE *infile;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
545 register int c;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
546 register int commas;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
547 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
548 register int defvarperbufferflag;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
549 register int defvarflag;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
550 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
551 int extension = filename[strlen (filename) - 1];
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
552
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
553 if (extension == 'o')
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
554 filename[strlen (filename) - 1] = 'c';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
555
5449
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
556 infile = fopen (filename, mode);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
557
96675
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96454
diff changeset
558 if (infile == NULL && extension == 'o')
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96454
diff changeset
559 {
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96454
diff changeset
560 /* try .m */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96454
diff changeset
561 filename[strlen (filename) - 1] = 'm';
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96454
diff changeset
562 infile = fopen (filename, mode);
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96454
diff changeset
563 if (infile == NULL)
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96454
diff changeset
564 filename[strlen (filename) - 1] = 'c'; /* don't confuse people */
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96454
diff changeset
565 }
d45acf0c8d23 merging Emacs.app (NeXTstep port)
Adrian Robert <Adrian.B.Robert@gmail.com>
parents: 96454
diff changeset
566
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
567 /* No error if non-ex input file */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
568 if (infile == NULL)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
569 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
570 perror (filename);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
571 return 0;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
572 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
573
41084
052c2896e6ca Comment fixes.
Pavel Janík <Pavel@Janik.cz>
parents: 40130
diff changeset
574 /* Reset extension to be able to detect duplicate files. */
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
575 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
576
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
577 c = '\n';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
578 while (!feof (infile))
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
579 {
39976
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
580 int doc_keyword = 0;
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
581
25532
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
582 if (c != '\n' && c != '\r')
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
583 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
584 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
585 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
586 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
587 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
588 if (c == ' ')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
589 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
590 while (c == ' ')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
591 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
592 if (c != 'D')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
593 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
594 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
595 if (c != 'E')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
596 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
597 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
598 if (c != 'F')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
599 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
600 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
601 if (c != 'V')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
602 continue;
1676
e8b3c6b52c1e * make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents: 1250
diff changeset
603 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
604 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
605 continue;
e8b3c6b52c1e * make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents: 1250
diff changeset
606 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
607 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
608 continue;
e8b3c6b52c1e * make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents: 1250
diff changeset
609 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
610 if (c != '_')
e8b3c6b52c1e * make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents: 1250
diff changeset
611 continue;
e8b3c6b52c1e * make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents: 1250
diff changeset
612
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
613 defvarflag = 1;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
614 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
615
e8b3c6b52c1e * make-docfile.c (scan_c_file): Since DEFVAR_PER_BUFFER now takes
Jim Blandy <jimb@redhat.com>
parents: 1250
diff changeset
616 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
617 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
618
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
619 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
620 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
621 else if (c == 'D')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
622 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
623 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
624 if (c != 'E')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
625 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
626 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
627 if (c != 'F')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
628 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
629 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
630 defunflag = c == 'U';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
631 defvarflag = 0;
58079
bbf8071c5ce8 (scan_c_file): Set defvarperbufferflag to silence compiler.
Kim F. Storm <storm@cua.dk>
parents: 55442
diff changeset
632 defvarperbufferflag = 0;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
633 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
634 else continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
635
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
636 while (c != '(')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
637 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
638 if (c < 0)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
639 goto eof;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
640 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
641 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
642
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
643 /* Lisp variable or function name. */
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
644 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
645 if (c != '"')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
646 continue;
40112
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
647 c = read_c_string_or_comment (infile, -1, 0, 0);
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
648
39976
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
649 /* DEFVAR_LISP ("name", addr, "doc")
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
650 DEFVAR_LISP ("name", addr /\* doc *\/)
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
651 DEFVAR_LISP ("name", addr, doc: /\* doc *\/) */
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
652
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
653 if (defunflag)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
654 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
655 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
656 commas = 2;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
657 else if (defvarflag)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
658 commas = 1;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
659 else /* For DEFSIMPLE and DEFPRED */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
660 commas = 2;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
661
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
662 while (commas)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
663 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
664 if (c == ',')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
665 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
666 commas--;
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
667
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
668 if (defunflag && (commas == 1 || commas == 2))
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
669 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
670 do
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
671 c = getc (infile);
25532
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
672 while (c == ' ' || c == '\n' || c == '\r' || c == '\t');
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
673 if (c < 0)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
674 goto eof;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
675 ungetc (c, infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
676 if (commas == 2) /* pick up minargs */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
677 fscanf (infile, "%d", &minargs);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
678 else /* pick up maxargs */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
679 if (c == 'M' || c == 'U') /* MANY || UNEVALLED */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
680 maxargs = -1;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
681 else
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
682 fscanf (infile, "%d", &maxargs);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
683 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
684 }
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
685
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
686 if (c == EOF)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
687 goto eof;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
688 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
689 }
39976
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
690
25532
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
691 while (c == ' ' || c == '\n' || c == '\r' || c == '\t')
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
692 c = getc (infile);
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
693
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
694 if (c == '"')
40112
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
695 c = read_c_string_or_comment (infile, 0, 0, 0);
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
696
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
697 while (c != EOF && c != ',' && c != '/')
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
698 c = getc (infile);
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
699 if (c == ',')
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
700 {
39976
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
701 c = getc (infile);
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
702 while (c == ' ' || c == '\n' || c == '\r' || c == '\t')
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
703 c = getc (infile);
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
704 while ((c >= 'a' && c <= 'z') || (c >= 'Z' && c <= 'Z'))
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
705 c = getc (infile);
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
706 if (c == ':')
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
707 {
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
708 doc_keyword = 1;
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
709 c = getc (infile);
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
710 while (c == ' ' || c == '\n' || c == '\r' || c == '\t')
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
711 c = getc (infile);
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
712 }
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
713 }
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
714
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
715 if (c == '"'
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
716 || (c == '/'
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
717 && (c = getc (infile),
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
718 ungetc (c, infile),
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
719 c == '*')))
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
720 {
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
721 int comment = c != '"';
40112
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
722 int saw_usage;
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
723
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
724 putc (037, outfile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
725 putc (defvarflag ? 'V' : 'F', outfile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
726 fprintf (outfile, "%s\n", buf);
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
727
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
728 if (comment)
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
729 getc (infile); /* Skip past `*' */
40112
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
730 c = read_c_string_or_comment (infile, 1, comment, &saw_usage);
168
e0ec73426aea *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 164
diff changeset
731
e0ec73426aea *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 164
diff changeset
732 /* 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
733 this function takes MANY or UNEVALLED args, then the C source
e0ec73426aea *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 164
diff changeset
734 won't give the names of the arguments, so we shouldn't bother
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
735 trying to find them.
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
736
39976
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
737 Various doc-string styles:
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
738 0: DEFUN (..., "DOC") (args) [!comment]
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
739 1: DEFUN (..., /\* DOC *\/ (args)) [comment && !doc_keyword]
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
740 2: DEFUN (..., doc: /\* DOC *\/) (args) [comment && doc_keyword]
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
741 */
40112
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
742 if (defunflag && maxargs != -1 && !saw_usage)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
743 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
744 char argbuf[1024], *p = argbuf;
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
745
39976
fa2e20b1440c (scan_c_file): Handle `new style' doc strings in comments [with `doc:'
Miles Bader <miles@gnu.org>
parents: 39949
diff changeset
746 if (!comment || doc_keyword)
39897
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
747 while (c != ')')
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
748 {
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
749 if (c < 0)
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
750 goto eof;
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
751 c = getc (infile);
3e6f2f2a0a62 (read_c_string_or_comment): Renamed from
Gerd Moellmann <gerd@gnu.org>
parents: 35293
diff changeset
752 }
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
753
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
754 /* Skip into arguments. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
755 while (c != '(')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
756 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
757 if (c < 0)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
758 goto eof;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
759 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
760 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
761 /* Copy arguments into ARGBUF. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
762 *p++ = c;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
763 do
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
764 *p++ = c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
765 while (c != ')');
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
766 *p = '\0';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
767 /* Output them. */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
768 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
769 write_c_args (outfile, buf, argbuf, minargs, maxargs);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
770 }
46394
1dd68094031a (scan_c_file): Warn about missing `usage' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42566
diff changeset
771 else if (defunflag && maxargs == -1 && !saw_usage)
1dd68094031a (scan_c_file): Warn about missing `usage' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42566
diff changeset
772 /* The DOC should provide the usage form. */
1dd68094031a (scan_c_file): Warn about missing `usage' info.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 42566
diff changeset
773 fprintf (stderr, "Missing `usage' for function `%s'.\n", buf);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
774 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
775 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
776 eof:
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
777 fclose (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
778 return 0;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
779 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
780
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
781 /* Read a file of Lisp code, compiled or interpreted.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
782 Looks for
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
783 (defun NAME ARGS DOCSTRING ...)
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
784 (defmacro NAME ARGS DOCSTRING ...)
28401
65f19ae2c578 (scan_lisp_file): Also look for `defsubst'.
Andreas Schwab <schwab@suse.de>
parents: 26083
diff changeset
785 (defsubst NAME ARGS DOCSTRING ...)
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
786 (autoload (quote NAME) FILE DOCSTRING ...)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
787 (defvar NAME VALUE DOCSTRING)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
788 (defconst NAME VALUE DOCSTRING)
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
789 (fset (quote NAME) (make-byte-code ... DOCSTRING ...))
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
790 (fset (quote NAME) #[... DOCSTRING ...])
2966
e936d56c2354 (scan_lisp_file): Recognize defalias like fset.
Richard M. Stallman <rms@gnu.org>
parents: 2814
diff changeset
791 (defalias (quote NAME) #[... DOCSTRING ...])
19636
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
792 (custom-declare-variable (quote NAME) VALUE DOCSTRING ...)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
793 starting in column zero.
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
794 (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
795
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
796 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
797 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
798 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
799
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
800 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
801 formatting convention: all docstrings must appear on the same line as the
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
802 initial open-paren (the one in column zero) and must contain a backslash
25536
2cfdaebe325c Fix comment about conventions for Lisp files.
Dave Love <fx@gnu.org>
parents: 25532
diff changeset
803 and a newline immediately after the initial double-quote. No newlines
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
804 must appear between the beginning of the form and the first double-quote.
25536
2cfdaebe325c Fix comment about conventions for Lisp files.
Dave Love <fx@gnu.org>
parents: 25532
diff changeset
805 For defun, defmacro, and autoload, we know how to skip over the
2cfdaebe325c Fix comment about conventions for Lisp files.
Dave Love <fx@gnu.org>
parents: 25532
diff changeset
806 arglist, but the doc string must still have a backslash and newline
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
807 immediately after the double quote.
25536
2cfdaebe325c Fix comment about conventions for Lisp files.
Dave Love <fx@gnu.org>
parents: 25532
diff changeset
808 The only source files that must follow this convention are preloaded
2cfdaebe325c Fix comment about conventions for Lisp files.
Dave Love <fx@gnu.org>
parents: 25532
diff changeset
809 uncompiled ones like loaddefs.el and bindings.el; aside
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
810 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
811 problem because byte-compiler output follows this convention.
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
812 The NAME and DOCSTRING are output.
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
813 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
814 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
815 */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
816
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
817 void
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
818 skip_white (infile)
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
819 FILE *infile;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
820 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
821 char c = ' ';
25532
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
822 while (c == ' ' || c == '\t' || c == '\n' || c == '\r')
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
823 c = getc (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
824 ungetc (c, 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
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
827 void
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
828 read_lisp_symbol (infile, buffer)
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
829 FILE *infile;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
830 char *buffer;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
831 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
832 char c;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
833 char *fillp = buffer;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
834
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
835 skip_white (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
836 while (1)
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
837 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
838 c = getc (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
839 if (c == '\\')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
840 *(++fillp) = getc (infile);
25532
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
841 else if (c == ' ' || c == '\t' || c == '\n' || c == '\r' || c == '(' || c == ')')
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
842 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
843 ungetc (c, infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
844 *fillp = 0;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
845 break;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
846 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
847 else
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
848 *fillp++ = c;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
849 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
850
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
851 if (! buffer[0])
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
852 fprintf (stderr, "## expected a symbol, got '%c'\n", c);
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
853
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
854 skip_white (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
855 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
856
9491
dd3b83e4ceb0 Eliminate some -Wall warnings.
David J. MacKenzie <djm@gnu.org>
parents: 7564
diff changeset
857 int
5449
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
858 scan_lisp_file (filename, mode)
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
859 char *filename, *mode;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
860 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
861 FILE *infile;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
862 register int c;
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
863 char *saved_string = 0;
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
864
5449
296db649863d [MSDOS]: Use text/binary mode as appropriate.
Richard M. Stallman <rms@gnu.org>
parents: 5317
diff changeset
865 infile = fopen (filename, mode);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
866 if (infile == NULL)
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
867 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
868 perror (filename);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
869 return 0; /* No error */
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
870 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
871
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
872 c = '\n';
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
873 while (!feof (infile))
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
874 {
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
875 char buffer[BUFSIZ];
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
876 char type;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
877
25809
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
878 /* If not at end of line, skip till we get to one. */
25532
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
879 if (c != '\n' && c != '\r')
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
880 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
881 c = getc (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
882 continue;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
883 }
25809
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
884 /* Skip the line break. */
25821
9a999c51f856 (scan_lisp_file): Fix typo causing infloop.
Dave Love <fx@gnu.org>
parents: 25809
diff changeset
885 while (c == '\n' || c == '\r')
25809
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
886 c = getc (infile);
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
887 /* 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
888 if (c == '#')
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
889 {
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
890 c = getc (infile);
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
891 if (c == '@')
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
892 {
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
893 int length = 0;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
894 int i;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
895
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
896 /* Read the length. */
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
897 while ((c = getc (infile),
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
898 c >= '0' && c <= '9'))
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
899 {
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
900 length *= 10;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
901 length += c - '0';
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
902 }
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
903
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
904 /* 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
905 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
906 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
907 length--;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
908
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
909 /* Read in the contents. */
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
910 if (saved_string != 0)
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
911 free (saved_string);
100104
6ab80abea3ee (scan_lisp_file): Use xmalloc instead of malloc.
Dan Nicolaescu <dann@ics.uci.edu>
parents: 96675
diff changeset
912 saved_string = (char *) xmalloc (length);
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
913 for (i = 0; i < length; i++)
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
914 saved_string[i] = getc (infile);
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
915 /* The last character is a ^_.
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
916 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
917 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
918 saved_string[length - 1] = 0;
25809
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
919 /* Skip the line break. */
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
920 while (c == '\n' && c == '\r')
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
921 c = getc (infile);
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
922 /* Skip the following line. */
25532
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
923 while (c != '\n' && c != '\r')
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
924 c = getc (infile);
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
925 }
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
926 continue;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
927 }
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
928
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
929 if (c != '(')
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
930 continue;
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
931
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
932 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
933
25809
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
934 if (! strcmp (buffer, "defun")
28401
65f19ae2c578 (scan_lisp_file): Also look for `defsubst'.
Andreas Schwab <schwab@suse.de>
parents: 26083
diff changeset
935 || ! strcmp (buffer, "defmacro")
65f19ae2c578 (scan_lisp_file): Also look for `defsubst'.
Andreas Schwab <schwab@suse.de>
parents: 26083
diff changeset
936 || ! strcmp (buffer, "defsubst"))
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
937 {
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
938 type = 'F';
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
939 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
940
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
941 /* Skip the arguments: either "nil" or a list in parens */
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
942
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
943 c = getc (infile);
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
944 if (c == 'n') /* nil */
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
945 {
25809
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
946 if ((c = getc (infile)) != 'i'
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
947 || (c = getc (infile)) != 'l')
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
948 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
949 fprintf (stderr, "## unparsable arglist in %s (%s)\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
950 buffer, filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
951 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
952 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
953 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
954 else if (c != '(')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
955 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
956 fprintf (stderr, "## unparsable arglist in %s (%s)\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
957 buffer, filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
958 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
959 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
960 else
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
961 while (c != ')')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
962 c = getc (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
963 skip_white (infile);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
964
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
965 /* If the next three characters aren't `dquote bslash newline'
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
966 then we're not reading a docstring.
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
967 */
25809
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
968 if ((c = getc (infile)) != '"'
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
969 || (c = getc (infile)) != '\\'
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
970 || ((c = getc (infile)) != '\n' && c != '\r'))
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
971 {
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
972 #ifdef DEBUG
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
973 fprintf (stderr, "## non-docstring in %s (%s)\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
974 buffer, filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
975 #endif
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
976 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
977 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
978 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
979
25809
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
980 else if (! strcmp (buffer, "defvar")
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
981 || ! strcmp (buffer, "defconst"))
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
982 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
983 char c1 = 0, c2 = 0;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
984 type = 'V';
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
985 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
986
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
987 if (saved_string == 0)
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
988 {
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
989
25809
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
990 /* Skip until the end of line; remember two previous chars. */
25532
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
991 while (c != '\n' && c != '\r' && c >= 0)
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
992 {
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
993 c2 = c1;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
994 c1 = c;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
995 c = getc (infile);
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
996 }
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
997
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
998 /* If two previous characters were " and \,
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
999 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
1000 if (c2 != '"' || c1 != '\\')
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1001 {
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1002 #ifdef DEBUG
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1003 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
1004 buffer, filename);
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1005 #endif
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1006 continue;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1007 }
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1008 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1009 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1010
19636
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1011 else if (! strcmp (buffer, "custom-declare-variable"))
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1012 {
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1013 char c1 = 0, c2 = 0;
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1014 type = 'V';
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1015
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1016 c = getc (infile);
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1017 if (c == '\'')
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1018 read_lisp_symbol (infile, buffer);
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1019 else
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1020 {
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1021 if (c != '(')
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1022 {
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1023 fprintf (stderr,
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1024 "## unparsable name in custom-declare-variable in %s\n",
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1025 filename);
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1026 continue;
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1027 }
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1028 read_lisp_symbol (infile, buffer);
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1029 if (strcmp (buffer, "quote"))
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1030 {
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1031 fprintf (stderr,
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1032 "## unparsable name in custom-declare-variable in %s\n",
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1033 filename);
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1034 continue;
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1035 }
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1036 read_lisp_symbol (infile, buffer);
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1037 c = getc (infile);
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1038 if (c != ')')
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1039 {
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1040 fprintf (stderr,
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1041 "## unparsable quoted name in custom-declare-variable in %s\n",
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1042 filename);
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1043 continue;
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1044 }
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1045 }
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1046
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1047 if (saved_string == 0)
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1048 {
25809
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
1049 /* Skip to end of line; remember the two previous chars. */
25532
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
1050 while (c != '\n' && c != '\r' && c >= 0)
19636
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1051 {
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1052 c2 = c1;
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1053 c1 = c;
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1054 c = getc (infile);
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1055 }
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
1056
19636
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1057 /* If two previous characters were " and \,
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1058 this is a doc string. Otherwise, there is none. */
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1059 if (c2 != '"' || c1 != '\\')
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1060 {
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1061 #ifdef DEBUG
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1062 fprintf (stderr, "## non-docstring in %s (%s)\n",
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1063 buffer, filename);
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1064 #endif
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1065 continue;
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1066 }
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1067 }
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1068 }
77fa90ed939d (scan_lisp_file): Handle custom-declare-variable.
Richard M. Stallman <rms@gnu.org>
parents: 14186
diff changeset
1069
2966
e936d56c2354 (scan_lisp_file): Recognize defalias like fset.
Richard M. Stallman <rms@gnu.org>
parents: 2814
diff changeset
1070 else if (! strcmp (buffer, "fset") || ! strcmp (buffer, "defalias"))
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1071 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1072 char c1 = 0, c2 = 0;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1073 type = 'F';
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1074
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1075 c = getc (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1076 if (c == '\'')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1077 read_lisp_symbol (infile, buffer);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1078 else
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1079 {
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1080 if (c != '(')
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1081 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1082 fprintf (stderr, "## unparsable name in fset in %s\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1083 filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1084 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1085 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1086 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1087 if (strcmp (buffer, "quote"))
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1088 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1089 fprintf (stderr, "## unparsable name in fset in %s\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1090 filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1091 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1092 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1093 read_lisp_symbol (infile, buffer);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1094 c = getc (infile);
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1095 if (c != ')')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1096 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1097 fprintf (stderr,
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1098 "## unparsable quoted name in fset in %s\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1099 filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1100 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1101 }
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1102 }
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
1103
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1104 if (saved_string == 0)
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1105 {
25809
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
1106 /* Skip to end of line; remember the two previous chars. */
25532
9ed9cbc425fe Include config.h not ../src/config.h.
Richard M. Stallman <rms@gnu.org>
parents: 25449
diff changeset
1107 while (c != '\n' && c != '\r' && c >= 0)
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1108 {
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1109 c2 = c1;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1110 c1 = c;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1111 c = getc (infile);
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1112 }
42566
6c1d733d1794 Remove unnecessary whitespaces.
Pavel Janík <Pavel@Janik.cz>
parents: 41084
diff changeset
1113
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1114 /* If two previous characters were " and \,
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1115 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
1116 if (c2 != '"' || c1 != '\\')
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1117 {
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1118 #ifdef DEBUG
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1119 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
1120 buffer, filename);
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1121 #endif
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1122 continue;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1123 }
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1124 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1125 }
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1126
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1127 else if (! strcmp (buffer, "autoload"))
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
1128 {
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1129 type = 'F';
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
1130 c = getc (infile);
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1131 if (c == '\'')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1132 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1133 else
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1134 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1135 if (c != '(')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1136 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1137 fprintf (stderr, "## unparsable name in autoload in %s\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1138 filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1139 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1140 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1141 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1142 if (strcmp (buffer, "quote"))
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1143 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1144 fprintf (stderr, "## unparsable name in autoload in %s\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1145 filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1146 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1147 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1148 read_lisp_symbol (infile, buffer);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1149 c = getc (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1150 if (c != ')')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1151 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1152 fprintf (stderr,
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1153 "## unparsable quoted name in autoload in %s\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1154 filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1155 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1156 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1157 }
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1158 skip_white (infile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1159 if ((c = getc (infile)) != '\"')
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1160 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1161 fprintf (stderr, "## autoload of %s unparsable (%s)\n",
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1162 buffer, filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1163 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1164 }
40112
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
1165 read_c_string_or_comment (infile, 0, 0, 0);
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1166 skip_white (infile);
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
1167
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1168 if (saved_string == 0)
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1169 {
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1170 /* 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
1171 then we're not reading a docstring. */
25809
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
1172 if ((c = getc (infile)) != '"'
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
1173 || (c = getc (infile)) != '\\'
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
1174 || ((c = getc (infile)) != '\n' && c != '\r'))
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1175 {
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1176 #ifdef DEBUG
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1177 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
1178 buffer, filename);
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1179 #endif
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1180 continue;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1181 }
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1182 }
164
aba3ff2b9eb4 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 162
diff changeset
1183 }
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1184
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1185 #ifdef DEBUG
25809
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
1186 else if (! strcmp (buffer, "if")
89230444d638 patched by pjr from diff by rms
Phillip Rulon <pjr@gnu.org>
parents: 25536
diff changeset
1187 || ! strcmp (buffer, "byte-code"))
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1188 ;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1189 #endif
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1190
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1191 else
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1192 {
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1193 #ifdef DEBUG
96454
e52e5a0794e7 American English spelling fix.
Glenn Morris <rgm@gnu.org>
parents: 94828
diff changeset
1194 fprintf (stderr, "## unrecognized top-level form, %s (%s)\n",
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1195 buffer, filename);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1196 #endif
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1197 continue;
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1198 }
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1199
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1200 /* 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
1201 dynamic doc string in saved_string
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1202 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
1203
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1204 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
1205 backslash-newline) have already been read. */
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1206
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1207 putc (037, outfile);
753
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1208 putc (type, outfile);
8a4c2c149ec2 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 650
diff changeset
1209 fprintf (outfile, "%s\n", buffer);
10199
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1210 if (saved_string)
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1211 {
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1212 fputs (saved_string, outfile);
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1213 /* 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
1214 free (saved_string);
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1215 saved_string = 0;
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1216 }
3e2571e22b61 (scan_lisp_file): Handle dynamic doc strings.
Richard M. Stallman <rms@gnu.org>
parents: 9772
diff changeset
1217 else
40112
3a1cdf305658 (read_c_string_or_comment): Add SAW_USAGE parameter, and implement
Miles Bader <miles@gnu.org>
parents: 39986
diff changeset
1218 read_c_string_or_comment (infile, 1, 0, 0);
24
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1219 }
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1220 fclose (infile);
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1221 return 0;
2354a499c504 Initial revision
Richard M. Stallman <rms@gnu.org>
parents:
diff changeset
1222 }
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
1223
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
1224 /* arch-tag: f7203aaf-991a-4238-acb5-601db56f2894
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 49600
diff changeset
1225 (do not change this comment) */
55442
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 55147
diff changeset
1226
a47704955f8d Throughout, replace 0 destined for `exit' arg with `EXIT_SUCCESS'.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 55147
diff changeset
1227 /* make-docfile.c ends here */