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')