Mercurial > emacs
comparison lib-src/make-docfile.c @ 41084:052c2896e6ca
Comment fixes.
author | Pavel Janík <Pavel@Janik.cz> |
---|---|
date | Thu, 15 Nov 2001 15:50:31 +0000 |
parents | 89269b100451 |
children | 6c1d733d1794 |
comparison
equal
deleted
inserted
replaced
41083:f7b5ea29283e | 41084:052c2896e6ca |
---|---|
77 FILE *outfile; | 77 FILE *outfile; |
78 | 78 |
79 /* Name this program was invoked with. */ | 79 /* Name this program was invoked with. */ |
80 char *progname; | 80 char *progname; |
81 | 81 |
82 /* Print error message. `s1' is printf control string, `s2' is arg for it. */ | 82 /* Print error message. `s1' is printf control string, `s2' is arg for it. */ |
83 | 83 |
84 /* VARARGS1 */ | 84 /* VARARGS1 */ |
85 void | 85 void |
86 error (s1, s2) | 86 error (s1, s2) |
87 char *s1, *s2; | 87 char *s1, *s2; |
199 char buf[128]; | 199 char buf[128]; |
200 | 200 |
201 /* Some state during the execution of `read_c_string_or_comment'. */ | 201 /* Some state during the execution of `read_c_string_or_comment'. */ |
202 struct rcsoc_state | 202 struct rcsoc_state |
203 { | 203 { |
204 /* A count of spaces and newlines that have been read, but not output. */ | 204 /* A count of spaces and newlines that have been read, but not output. */ |
205 unsigned pending_spaces, pending_newlines; | 205 unsigned pending_spaces, pending_newlines; |
206 | 206 |
207 /* Where we're reading from. */ | 207 /* Where we're reading from. */ |
208 FILE *in_file; | 208 FILE *in_file; |
209 | 209 |
278 state->saw_keyword = 1; | 278 state->saw_keyword = 1; |
279 | 279 |
280 /* Reset the scanning pointer. */ | 280 /* Reset the scanning pointer. */ |
281 state->cur_keyword_ptr = state->keyword; | 281 state->cur_keyword_ptr = state->keyword; |
282 | 282 |
283 /* Canonicalize whitespace preceding a usage string. */ | 283 /* Canonicalize whitespace preceding a usage string. */ |
284 state->pending_newlines = 2; | 284 state->pending_newlines = 2; |
285 state->pending_spaces = 0; | 285 state->pending_spaces = 0; |
286 | 286 |
287 /* Skip any whitespace between the keyword and the | 287 /* Skip any whitespace between the keyword and the |
288 usage string. */ | 288 usage string. */ |
524 { | 524 { |
525 perror (filename); | 525 perror (filename); |
526 return 0; | 526 return 0; |
527 } | 527 } |
528 | 528 |
529 /* Reset extension to be able to detect duplicate files. */ | 529 /* Reset extension to be able to detect duplicate files. */ |
530 filename[strlen (filename) - 1] = extension; | 530 filename[strlen (filename) - 1] = extension; |
531 | 531 |
532 c = '\n'; | 532 c = '\n'; |
533 while (!feof (infile)) | 533 while (!feof (infile)) |
534 { | 534 { |