Back to index

cell-binutils  2.17cvs20070401
Defines | Functions | Variables
source.c File Reference
#include "gprof.h"
#include "libiberty.h"
#include "filenames.h"
#include "search_list.h"
#include "source.h"

Go to the source code of this file.

Defines

#define EXT_ANNO   "-ann" /* Postfix of annotated files. */

Functions

Source_Filesource_file_lookup_path (const char *path)
Source_Filesource_file_lookup_name (const char *filename)
FILE * annotate_source (Source_File *sf, unsigned int max_width, void(*annote)(char *, unsigned int, int, void *), void *arg)

Variables

bfd_boolean create_annotation_files = FALSE
Search_List src_search_list = {0, 0}
Source_Filefirst_src_file = 0

Define Documentation

#define EXT_ANNO   "-ann" /* Postfix of annotated files. */

Definition at line 28 of file source.c.


Function Documentation

FILE* annotate_source ( Source_File sf,
unsigned int  max_width,
void(*)(char *, unsigned int, int, void *)  annote,
void *  arg 
)

Definition at line 92 of file source.c.

{
  static bfd_boolean first_file = TRUE;
  int i, line_num, nread;
  bfd_boolean 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 (IS_ABSOLUTE_PATH (sf->name))
    sle = 0;                /* Don't use search list for absolute paths.  */

  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 (!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 = 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;
           }

         new_line = (buf[i] == '\n');
         fputc (buf[i], ofp);
       }
    }

  free (annotation);
  return ofp;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Source_File* source_file_lookup_name ( const char *  filename)

Definition at line 65 of file source.c.

{
  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 (FILENAME_CMP (filename, fname) == 0)
       break;
    }

  return sf;
}

Here is the call graph for this function:

Here is the caller graph for this function:

Definition at line 38 of file source.c.

{
  Source_File *sf;

  for (sf = first_src_file; sf; sf = sf->next)
    {
      if (FILENAME_CMP (path, sf->name) == 0)
       break;
    }

  if (!sf)
    {
      /* Create a new source file descriptor.  */
      sf = (Source_File *) xmalloc (sizeof (*sf));

      memset (sf, 0, sizeof (*sf));

      sf->name = xstrdup (path);
      sf->next = first_src_file;
      first_src_file = sf;
    }

  return sf;
}

Here is the call graph for this function:

Here is the caller graph for this function:


Variable Documentation

Definition at line 31 of file source.c.

Definition at line 34 of file source.c.

Definition at line 33 of file source.c.