Mercurial > emacs
comparison lib-src/make-docfile.c @ 11413:9cd115f44483
(scan_c_file): At end, restore file name last char to its original value.
author | Richard M. Stallman <rms@gnu.org> |
---|---|
date | Thu, 13 Apr 1995 16:05:43 +0000 |
parents | 3e2571e22b61 |
children | 450b9598aca5 |
comparison
equal
deleted
inserted
replaced
11412:513d8c69dc6f | 11413:9cd115f44483 |
---|---|
320 register int commas; | 320 register int commas; |
321 register int defunflag; | 321 register int defunflag; |
322 register int defvarperbufferflag; | 322 register int defvarperbufferflag; |
323 register int defvarflag; | 323 register int defvarflag; |
324 int minargs, maxargs; | 324 int minargs, maxargs; |
325 | 325 int extension = filename[strlen (filename) - 1]; |
326 if (filename[strlen (filename) - 1] == 'o') | 326 |
327 if (extension == 'o') | |
327 filename[strlen (filename) - 1] = 'c'; | 328 filename[strlen (filename) - 1] = 'c'; |
328 | 329 |
329 infile = fopen (filename, mode); | 330 infile = fopen (filename, mode); |
330 | 331 |
331 /* No error if non-ex input file */ | 332 /* No error if non-ex input file */ |
332 if (infile == NULL) | 333 if (infile == NULL) |
333 { | 334 { |
334 perror (filename); | 335 perror (filename); |
335 return 0; | 336 return 0; |
336 } | 337 } |
338 | |
339 /* Reset extension to be able to detect duplicate files. */ | |
340 filename[strlen (filename) - 1] = extension; | |
337 | 341 |
338 c = '\n'; | 342 c = '\n'; |
339 while (!feof (infile)) | 343 while (!feof (infile)) |
340 { | 344 { |
341 if (c != '\n') | 345 if (c != '\n') |