diff options
author | Ken Raeburn <raeburn@cygnus> | 1995-02-08 02:35:44 +0000 |
---|---|---|
committer | Ken Raeburn <raeburn@cygnus> | 1995-02-08 02:35:44 +0000 |
commit | 12516a373c27abe4516c2a3c84cfe9d94f02e18f (patch) | |
tree | 20c1b81fb9d0ec20120f35bb71eb436f652788c8 /gprof/source.c | |
parent | 28860f46fa46ce73225d72ad6a0f72739ca8295c (diff) | |
download | gdb-12516a373c27abe4516c2a3c84cfe9d94f02e18f.zip gdb-12516a373c27abe4516c2a3c84cfe9d94f02e18f.tar.gz gdb-12516a373c27abe4516c2a3c84cfe9d94f02e18f.tar.bz2 |
ran "indent -gnu"; have not fixed block comment style
Diffstat (limited to 'gprof/source.c')
-rw-r--r-- | gprof/source.c | 367 |
1 files changed, 203 insertions, 164 deletions
diff --git a/gprof/source.c b/gprof/source.c index 7917bba..1fb0e53 100644 --- a/gprof/source.c +++ b/gprof/source.c @@ -13,174 +13,213 @@ */ bool create_annotation_files = FALSE; -Search_List src_search_list = {0, 0}; +Search_List src_search_list = +{0, 0}; Source_File *first_src_file = 0; -Source_File* -DEFUN(source_file_lookup_path, (path), const char *path) +Source_File * +DEFUN (source_file_lookup_path, (path), const char *path) { - Source_File *sf; - - for (sf = first_src_file; sf; sf = sf->next) { - if (strcmp(path, sf->name) == 0) { - break; - } /* if */ - } /* for */ - if (!sf) { - /* create a new source file descriptor: */ - - sf = (Source_File*) xmalloc(sizeof(*sf)); - memset(sf, 0, sizeof(*sf)); - sf->name = strdup(path); - sf->next = first_src_file; - first_src_file = sf; - } /* if */ - return sf; -} /* source_file_lookup_path */ - - -Source_File* -DEFUN(source_file_lookup_name, (filename), const char *filename) + Source_File *sf; + + for (sf = first_src_file; sf; sf = sf->next) + { + if (strcmp (path, sf->name) == 0) + { + break; + } /* if */ + } /* for */ + if (!sf) + { + /* create a new source file descriptor: */ + + sf = (Source_File *) xmalloc (sizeof (*sf)); + memset (sf, 0, sizeof (*sf)); + sf->name = strdup (path); + sf->next = first_src_file; + first_src_file = sf; + } /* if */ + return sf; +} /* source_file_lookup_path */ + + +Source_File * +DEFUN (source_file_lookup_name, (filename), const char *filename) { - const char *fname; - Source_File *sf; - /* - * The user cannot know exactly how a filename will be stored in - * the debugging info (e.g., ../include/foo.h - * vs. /usr/include/foo.h). So we simply compare the filename - * component of a path only: - */ - for (sf = first_src_file; sf; sf = sf->next) { - fname = strrchr(sf->name, '/'); - if (fname) { - ++fname; - } else { - fname = sf->name; - } /* if */ - if (strcmp(filename, fname) == 0) { - break; - } /* if */ - } /* for */ - return sf; -} /* source_file_lookup_name */ - - -FILE* -DEFUN(annotate_source, (sf, max_width, annote, arg), - Source_File *sf AND int max_width - AND void (*annote) PARAMS((char *buf, int w, int l, void *arg)) - AND void *arg) + const char *fname; + Source_File *sf; + /* + * The user cannot know exactly how a filename will be stored in + * the debugging info (e.g., ../include/foo.h + * vs. /usr/include/foo.h). So we simply compare the filename + * component of a path only: + */ + for (sf = first_src_file; sf; sf = sf->next) + { + fname = strrchr (sf->name, '/'); + if (fname) + { + ++fname; + } + else + { + fname = sf->name; + } /* if */ + if (strcmp (filename, fname) == 0) + { + break; + } /* if */ + } /* for */ + return sf; +} /* source_file_lookup_name */ + + +FILE * +DEFUN (annotate_source, (sf, max_width, annote, arg), + Source_File * sf AND int max_width + AND void (*annote) PARAMS ((char *buf, int w, int l, void *arg)) + AND void *arg) { - static bool first_file = TRUE; - int i, line_num, nread; - bool new_line; - char buf[8192]; - char fname[PATH_MAX]; - char *annotation, *name_only; - FILE *ifp, *ofp; - Search_List_Elem *sle = src_search_list.head; - - /* - * Open input file. If open fails, walk along search-list until - * open succeeds or reaching end of list: - */ - strcpy(fname, sf->name); - if (sf->name[0] == '/') { - sle = 0; /* don't use search list for absolute paths */ - } /* if */ - name_only = 0; - while (TRUE) { - DBG(SRCDEBUG, printf("[annotate_source]: looking for %s, trying %s\n", + static bool first_file = TRUE; + int i, line_num, nread; + bool new_line; + char buf[8192]; + char fname[PATH_MAX]; + char *annotation, *name_only; + FILE *ifp, *ofp; + Search_List_Elem *sle = src_search_list.head; + + /* + * Open input file. If open fails, walk along search-list until + * open succeeds or reaching end of list: + */ + strcpy (fname, sf->name); + if (sf->name[0] == '/') + { + sle = 0; /* don't use search list for absolute paths */ + } /* if */ + name_only = 0; + while (TRUE) + { + DBG (SRCDEBUG, printf ("[annotate_source]: looking for %s, trying %s\n", sf->name, fname)); - 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 */ + 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 ***/ |