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 |
} |
} |
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; |
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; |
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: |