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 |
} |
} |
435 |
int just_spaced = 0; |
int just_spaced = 0; |
436 |
int need_space = 1; |
int need_space = 1; |
437 |
|
|
438 |
fprintf (out, "(%s", func); |
fprintf (out, "(fn"); |
439 |
|
|
440 |
if (*buf == '(') |
if (*buf == '(') |
441 |
++buf; |
++buf; |