comparison lib-src/make-docfile.c @ 638:40b255f55df3

*** empty log message ***
author Jim Blandy <jimb@redhat.com>
date Sun, 10 May 1992 18:15:10 +0000
parents e0ec73426aea
children 39f0e62a8511
comparison
equal deleted inserted replaced
637:639afe138172 638:40b255f55df3
1 /* Generate doc-string file for GNU Emacs from source files. 1 /* Generate doc-string file for GNU Emacs from source files.
2 Copyright (C) 1985, 1986 Free Software Foundation, Inc. 2 Copyright (C) 1985, 1986, 1992 Free Software Foundation, Inc.
3 3
4 This file is part of GNU Emacs. 4 This file is part of GNU Emacs.
5 5
6 GNU Emacs is free software; you can redistribute it and/or modify 6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by 7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 1, or (at your option) 8 the Free Software Foundation; either version 2, or (at your option)
9 any later version. 9 any later version.
10 10
11 GNU Emacs is distributed in the hope that it will be useful, 11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of 12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
164 continue; 164 continue;
165 } 165 }
166 else if (c == ' ' && space) 166 else if (c == ' ' && space)
167 continue; 167 continue;
168 space = (c == ' '); 168 space = (c == ' ');
169 putc (c, out); 169
170 /* Print the C arguments as they would appear in Elisp;
171 print underscores as hyphens. */
172 if (c == '_')
173 putc ('-');
174 else
175 putc (c, out);
170 } 176 }
171 putc ('\n', out); 177 putc ('\n', out);
172 } 178 }
173 179
174 /* Read through a c file. If a .o file is named, 180 /* Read through a c file. If a .o file is named,