- ifp = fopen(fname, FOPEN_RB);
- if (ifp) {
- break;
- } /* if */
- if (!sle && !name_only) {
- name_only = strrchr(sf->name, '/');
- if (name_only) {
- /* try search-list again, but this time with name only: */
- ++name_only;
- sle = src_search_list.head;
- } /* if */
- } /* if */
- if (sle) {
- strcpy(fname, sle->path);
- strcat(fname, "/");
- if (name_only) {
- strcat(fname, name_only);
- } else {
- strcat(fname, sf->name);
- } /* if */
- sle = sle->next;
- } else {
- if (errno == ENOENT) {
- fprintf(stderr, "%s: could not locate `%s'\n",
- whoami, sf->name);
- } else {
- perror(sf->name);
- } /* if */
- return 0;
- } /* if */
- } /* while */
-
- ofp = stdout;
- if (create_annotation_files) {
- /* try to create annotated source file: */
- const char *filename;
-
- /* create annotation files in the current working directory: */
- filename = strrchr(sf->name, '/');
- if (filename) {
- ++filename;
- } else {
- filename = sf->name;
- } /* if */
-
- strcpy(fname, filename);
- strcat(fname, EXT_ANNO);
- ofp = fopen(fname, "w");
- if (!ofp) {
- perror(fname);
- return 0;
- } /* if */
- } /* if */
-
- /*
- * Print file names if output goes to stdout and there are
- * more than one source file:
- */
- if (ofp == stdout) {
- if (first_file) {
- first_file = FALSE;
- } else {
- fputc('\n', ofp);
- } /* if */
- if (first_output) {
- first_output = FALSE;
- } else {
- fprintf(ofp, "\f\n");
- } /* if */
- fprintf(ofp, "*** File %s:\n", sf->name);
- } /* if */
-
- annotation = xmalloc(max_width + 1);
- line_num = 1;
- new_line = TRUE;
- while ((nread = fread(buf, 1, sizeof(buf), ifp)) > 0) {
- for (i = 0; i < nread; ++i) {
- if (new_line) {
- (*annote)(annotation, max_width, line_num, arg);
- fputs(annotation, ofp);
- ++line_num; new_line = FALSE;
- } /* if */
- new_line = (buf[i] == '\n');
- fputc(buf[i], ofp);
- } /* for */
- } /* while */
- free(annotation);
- return ofp;
-} /* annotate_source */
-
- /*** end of source.c ***/
+
+ ifp = fopen (fname, FOPEN_RB);
+ if (ifp)
+ break;
+
+ if (!sle && !name_only)
+ {
+ name_only = strrchr (sf->name, '/');
+#ifdef HAVE_DOS_BASED_FILE_SYSTEM
+ {
+ char *bslash = strrchr (sf->name, '\\');
+ if (name_only == NULL || (bslash != NULL && bslash > name_only))
+ name_only = bslash;
+ if (name_only == NULL && sf->name[0] != '\0' && sf->name[1] == ':')
+ name_only = (char *)sf->name + 1;
+ }
+#endif
+ if (name_only)
+ {
+ /* Try search-list again, but this time with name only. */
+ ++name_only;
+ sle = src_search_list.head;
+ }
+ }
+
+ if (sle)
+ {
+ strcpy (fname, sle->path);
+#ifdef HAVE_DOS_BASED_FILE_SYSTEM
+ /* d:foo is not the same thing as d:/foo! */
+ if (fname[strlen (fname) - 1] == ':')
+ strcat (fname, ".");
+#endif
+ strcat (fname, "/");
+
+ if (name_only)
+ strcat (fname, name_only);
+ else
+ strcat (fname, sf->name);
+
+ sle = sle->next;
+ }
+ else
+ {
+ if (errno == ENOENT)
+ fprintf (stderr, _("%s: could not locate `%s'\n"),
+ whoami, sf->name);
+ else
+ perror (sf->name);
+
+ return 0;
+ }
+ }
+
+ ofp = stdout;
+
+ if (create_annotation_files)
+ {
+ /* Try to create annotated source file. */
+ const char *filename;
+
+ /* Create annotation files in the current working directory. */
+ filename = strrchr (sf->name, '/');
+#ifdef HAVE_DOS_BASED_FILE_SYSTEM
+ {
+ char *bslash = strrchr (sf->name, '\\');
+ if (filename == NULL || (bslash != NULL && bslash > filename))
+ filename = bslash;
+ if (filename == NULL && sf->name[0] != '\0' && sf->name[1] == ':')
+ filename = sf->name + 1;
+ }
+#endif
+ if (filename)
+ ++filename;
+ else
+ filename = sf->name;
+
+ strcpy (fname, filename);
+ strcat (fname, EXT_ANNO);
+#ifdef __MSDOS__
+ {
+ /* foo.cpp-ann can overwrite foo.cpp due to silent truncation of
+ file names on 8+3 filesystems. Their `stat' better be good... */
+ struct stat buf1, buf2;
+
+ if (stat (filename, &buf1) == 0
+ && stat (fname, &buf2) == 0
+ && buf1.st_ino == buf2.st_ino)
+ {
+ char *dot = strrchr (fname, '.');
+
+ if (dot)
+ *dot = '\0';
+ strcat (fname, ".ann");
+ }
+ }
+#endif
+ ofp = fopen (fname, "w");
+
+ if (!ofp)
+ {
+ perror (fname);
+ return 0;
+ }
+ }
+
+ /* Print file names if output goes to stdout
+ and there are more than one source file. */
+ if (ofp == stdout)
+ {
+ if (first_file)
+ first_file = FALSE;
+ else
+ fputc ('\n', ofp);
+
+ if (first_output)
+ first_output = FALSE;
+ else
+ fprintf (ofp, "\f\n");
+
+ fprintf (ofp, _("*** File %s:\n"), sf->name);
+ }
+
+ annotation = (char *) xmalloc (max_width + 1);
+ line_num = 1;
+ new_line = TRUE;
+
+ while ((nread = fread (buf, 1, sizeof (buf), ifp)) > 0)
+ {
+ for (i = 0; i < nread; ++i)
+ {
+ if (new_line)
+ {
+ (*annote) (annotation, max_width, line_num, arg);
+ fputs (annotation, ofp);
+ ++line_num;
+ }
+
+ new_line = (buf[i] == '\n');
+ fputc (buf[i], ofp);
+ }
+ }
+
+ free (annotation);
+ fclose (ifp);
+ return ofp;
+}