/[emacs]/emacs/lib-src/make-docfile.c
ViewVC logotype

Diff of /emacs/lib-src/make-docfile.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.50 by pj, Sat Jan 5 23:37:58 2002 UTC revision 1.50.4.1 by miles, Fri Apr 4 06:19:55 2003 UTC
# Line 290  scan_keyword_or_put_char (ch, state) Line 290  scan_keyword_or_put_char (ch, state)
290              ch = getc (state->in_file);              ch = getc (state->in_file);
291            while (ch == ' ' || ch == '\n');            while (ch == ' ' || ch == '\n');
292    
293            /* Put back the non-whitespace character.  */            /* Output the open-paren we just read.  */
294              put_char (ch, state);
295    
296              /* Skip the function name and replace it with `fn'.  */
297              do
298                ch = getc (state->in_file);
299              while (ch != ' ' && ch != ')');
300              put_char ('f', state);
301              put_char ('n', state);
302    
303              /* Put back the last character.  */
304            ungetc (ch, state->in_file);            ungetc (ch, state->in_file);
305          }          }
306      }      }
# Line 328  read_c_string_or_comment (infile, printf Line 338  read_c_string_or_comment (infile, printf
338       FILE *infile;       FILE *infile;
339       int printflag;       int printflag;
340       int *saw_usage;       int *saw_usage;
341         int comment;
342  {  {
343    register int c;    register int c;
344    struct rcsoc_state state;    struct rcsoc_state state;
# Line 425  write_c_args (out, func, buf, minargs, m Line 436  write_c_args (out, func, buf, minargs, m
436    int just_spaced = 0;    int just_spaced = 0;
437    int need_space = 1;    int need_space = 1;
438    
439    fprintf (out, "(%s", func);    fprintf (out, "(fn");
440    
441    if (*buf == '(')    if (*buf == '(')
442      ++buf;      ++buf;
# Line 722  scan_c_file (filename, mode) Line 733  scan_c_file (filename, mode)
733                fprintf (outfile, "\n\n");                fprintf (outfile, "\n\n");
734                write_c_args (outfile, buf, argbuf, minargs, maxargs);                write_c_args (outfile, buf, argbuf, minargs, maxargs);
735              }              }
736              else if (defunflag && maxargs == -1 && !saw_usage)
737                /* The DOC should provide the usage form.  */
738                fprintf (stderr, "Missing `usage' for function `%s'.\n", buf);
739          }          }
740      }      }
741   eof:   eof:

Legend:
Removed from v.1.50  
changed lines
  Added in v.1.50.4.1

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26