comparison lib-src/etags.c @ 44605:1bec0b430206

Bug fix. New version to come soon.

44604:4702b23921b4

int main __P((int, char **));

static compressor *get_compressor_from_suffix __P((char *, char **));
static language *get_language_from_langname __P((const char *));
static language *get_language_from_interpreter __P((char *));
static language *get_language_from_filename __P((char *));
static long readline __P((linebuffer *, FILE *));
static long readline_internal __P((linebuffer *, FILE *));
static bool nocase_tail __P((char *));
static char *get_tag __P((char *));

static char *skip_non_spaces __P((char *));
static char *savenstr __P((char *, int));
static char *savestr __P((char *));
static char *etags_strchr __P((const char *, int));
static char *etags_strrchr __P((const char *, int));
static char *etags_getcwd __P((void));
static char *relative_filename __P((char *, char *));
static char *absolute_filename __P((char *, char *));
static char *absolute_dirname __P((char *, char *));
static bool filename_is_absolute __P((char *f));

/*
 * Return a language given the file name.
 */
static language *
get_language_from_filename (file)
     char *file;
{
  language *lang;
  char **name, **ext, *suffix;

  /* Try whole file name first. */
  for (lang = lang_names; lang->name != NULL; lang++)
    if (lang->filenames != NULL)
      for (name = lang->filenames; *name != NULL; name++)
	if (streq (*name, file))
	  return lang;

  /* If not found, try suffix after last dot. */
  suffix = etags_strrchr (file, '.');
  if (suffix == NULL)
    return NULL;
  suffix += 1;
  for (lang = lang_names; lang->name != NULL; lang++)
    if (lang->suffixes != NULL)
      for (ext = lang->suffixes; *ext != NULL; ext++)
	if (streq (*ext, suffix))
	  return lang;
  return NULL;
}



    {
      assert (fdp->infname != NULL);
      if (streq (uncompressed_name, fdp->infname))
	goto cleanup;
    }

  /* Create a new input file description entry. */
  fdp = fdhead;
  fdhead = xnew (1, fdesc);
  *fdhead = emptyfdesc;
  fdhead->next = fdp;

  if (stat (real_name, &stat_buf) != 0)
    {
      /* Reset real_name and try with a different name. */
      real_name = NULL;

    {
      perror (real_name);
      goto cleanup;
    }

  fdhead->infname = savestr (uncompressed_name);
  fdhead->lang = lang;
  fdhead->infabsname = absolute_filename (uncompressed_name, cwd);
  fdhead->infabsdir = absolute_dirname (uncompressed_name, cwd);
  if (filename_is_absolute (uncompressed_name))
    {
      /* file is an absolute file name.  Canonicalize it. */
      fdhead->taggedfname = absolute_filename (uncompressed_name, NULL);
    }
  else
    {
      /* file is a file name relative to cwd.  Make it relative
	 to the directory of the tags file. */
      fdhead->taggedfname = relative_filename (uncompressed_name, tagfiledir);
    }
  fdhead->usecharno = TRUE;	/* use char position when making tags */
  fdhead->prop = NULL;

  curfdp = fdhead;		/* the current file description */

  find_entries (inf);

  if (real_name == compressed_name)

    retval = fclose (inf);
  if (retval < 0)
    pfatal (file);

 cleanup:
  /* XXX if no more useful, delete head of file description list */
  if (compressed_name) free (compressed_name);
  if (uncompressed_name) free (uncompressed_name);
  return;
}

    }

  /* Else try to guess the language given the file name. */
  if (parser == NULL)
    {
      lang = get_language_from_filename (curfdp->infname);
      if (lang != NULL && lang->function != NULL)
	{
	  curfdp->lang = lang;
	  parser = lang->function;
	}

	      parser = lang->function;
	    }
	}
    }

  if (!no_line_directive
      && curfdp->lang != NULL && curfdp->lang->metasource)
    /* It may be that this is an xxx.y file, and we already parsed an xxx.c
       file, or anyway we parsed a file that is automatically generated from
       this one.  If this is the case, the xxx.c file contained #line
       directives that generated tags pointing to this file.  Let's delete
       them all before parsing this file, which is the real source. */
    {
      fdesc **fdpp = &fdhead;
      while (*fdpp != NULL)

	    fdesc *badfdp = *fdpp;

	    *fdpp = badfdp->next; /* remove the bad description from the list */
	    fdpp = &badfdp->next; /* advance the list pointer */

	    fprintf (stderr, "Removing references to \"%s\" obtained from \"%s\"\n",
		     badfdp->taggedfname, badfdp->infname);
	    /* Delete the tags referring to badfdp. */
	    invalidate_nodes (badfdp, nodehead);

	    /* Delete badfdp. */
	    if (badfdp->infname != NULL) free (badfdp->infname);

  if (parser != NULL)
    {
      parser (inf);
      return;
    }

  /* We rewind here, even if inf may be a pipe.  We fail if the
     length of the first line is longer than the pipe block size,
     which is unlikely. */
  rewind (inf);

  /* Else try Fortran. */
  old_last_node = last_node;
  curfdp->lang = get_language_from_langname ("fortran");
  Fortran_functions (inf);

     fdesc *badfdp;
     node *np;
{
  if (np->left != NULL)
    invalidate_nodes (badfdp, np->left);
  if (np->fdp == badfdp)
    np-> valid = FALSE;
  if (np->right != NULL)
    invalidate_nodes (badfdp, np->right);
}

	r = sp;
  } while (*sp++);
  return (char *)r;
}


/*
 * Return the ptr in sp at which the character c first
 * appears; NULL if not found
 *
 * Identical to POSIX strchr, included for portability.

    {
      if (*sp == c)
	return (char *)sp;
    } while (*sp++);
  return NULL;
}

/* Skip spaces, return new pointer. */
static char *
skip_spaces (cp)

44605:1bec0b430206

int main __P((int, char **));

static compressor *get_compressor_from_suffix __P((char *, char **));
static language *get_language_from_langname __P((const char *));
static language *get_language_from_interpreter __P((char *));
static language *get_language_from_filename __P((char *, bool));
static long readline __P((linebuffer *, FILE *));
static long readline_internal __P((linebuffer *, FILE *));
static bool nocase_tail __P((char *));
static char *get_tag __P((char *));

static char *skip_non_spaces __P((char *));
static char *savenstr __P((char *, int));
static char *savestr __P((char *));
static char *etags_strchr __P((const char *, int));
static char *etags_strrchr __P((const char *, int));
static bool strcaseeq __P((const char *, const char *));
static char *etags_getcwd __P((void));
static char *relative_filename __P((char *, char *));
static char *absolute_filename __P((char *, char *));
static char *absolute_dirname __P((char *, char *));
static bool filename_is_absolute __P((char *f));

/*
 * Return a language given the file name.
 */
static language *
get_language_from_filename (file, case_sensitive)
     char *file;
     bool case_sensitive;
{
  language *lang;
  char **name, **ext, *suffix;

  /* Try whole file name first. */
  for (lang = lang_names; lang->name != NULL; lang++)
    if (lang->filenames != NULL)
      for (name = lang->filenames; *name != NULL; name++)
	if ((case_sensitive)
	    ? streq (*name, file)
	    : strcaseeq (*name, file))
	  return lang;

  /* If not found, try suffix after last dot. */
  suffix = etags_strrchr (file, '.');
  if (suffix == NULL)
    return NULL;
  suffix += 1;
  for (lang = lang_names; lang->name != NULL; lang++)
    if (lang->suffixes != NULL)
      for (ext = lang->suffixes; *ext != NULL; ext++)
	if ((case_sensitive)
	    ? streq (*ext, suffix)
	    : strcaseeq (*ext, suffix))
	  return lang;
  return NULL;
}



    {
      assert (fdp->infname != NULL);
      if (streq (uncompressed_name, fdp->infname))
	goto cleanup;
    }

  if (stat (real_name, &stat_buf) != 0)
    {
      /* Reset real_name and try with a different name. */
      real_name = NULL;

    {
      perror (real_name);
      goto cleanup;
    }

  /* Create a new input file description entry. */
  fdp = xnew (1, fdesc);
  *fdp = emptyfdesc;
  fdp->next = fdhead;
  fdp->infname = savestr (uncompressed_name);
  fdp->lang = lang;
  fdp->infabsname = absolute_filename (uncompressed_name, cwd);
  fdp->infabsdir = absolute_dirname (uncompressed_name, cwd);
  if (filename_is_absolute (uncompressed_name))
    {
      /* file is an absolute file name.  Canonicalize it. */
      fdp->taggedfname = absolute_filename (uncompressed_name, NULL);
    }
  else
    {
      /* file is a file name relative to cwd.  Make it relative
	 to the directory of the tags file. */
      fdp->taggedfname = relative_filename (uncompressed_name, tagfiledir);
    }
  fdp->usecharno = TRUE;	/* use char position when making tags */
  fdp->prop = NULL;

  fdhead = fdp;
  curfdp = fdhead;		/* the current file description */

  find_entries (inf);

  if (real_name == compressed_name)

    retval = fclose (inf);
  if (retval < 0)
    pfatal (file);

 cleanup:
  /* Memory leak here: if this is not metasource and if it contained no #line
     directives, curfdp could be freed, and so could all nodes pointing to it
     if not CTAGS. */
  if (compressed_name) free (compressed_name);
  if (uncompressed_name) free (uncompressed_name);
  return;
}

    }

  /* Else try to guess the language given the file name. */
  if (parser == NULL)
    {
      lang = get_language_from_filename (curfdp->infname, TRUE);
      if (lang != NULL && lang->function != NULL)
	{
	  curfdp->lang = lang;
	  parser = lang->function;
	}

	      parser = lang->function;
	    }
	}
    }

  /* We rewind here, even if inf may be a pipe.  We fail if the
     length of the first line is longer than the pipe block size,
     which is unlikely. */
  if (parser == NULL)
    rewind (inf);
#if 0
  /* Else try to guess the language given the case insensitive file name. */
  if (parser == NULL)
    {
      lang = get_language_from_filename (curfdp->infname, FALSE);
      if (lang != NULL && lang->function != NULL)
	{
	  curfdp->lang = lang;
	  parser = lang->function;
	}
    }
#endif
  if (!no_line_directive
      && curfdp->lang != NULL && curfdp->lang->metasource)
    /* It may be that this is a bingo.y file, and we already parsed a bingo.c
       file, or anyway we parsed a file that is automatically generated from
       this one.  If this is the case, the bingo.c file contained #line
       directives that generated tags pointing to this file.  Let's delete
       them all before parsing this file, which is the real source. */
    {
      fdesc **fdpp = &fdhead;
      while (*fdpp != NULL)

	    fdesc *badfdp = *fdpp;

	    *fdpp = badfdp->next; /* remove the bad description from the list */
	    fdpp = &badfdp->next; /* advance the list pointer */

	    if (DEBUG)
	      fprintf (stderr,
		       "Removing references to \"%s\" obtained from \"%s\"\n",
		       badfdp->taggedfname, badfdp->infname);

	    /* Delete the tags referring to badfdp. */
	    invalidate_nodes (badfdp, nodehead);

	    /* Delete badfdp. */
	    if (badfdp->infname != NULL) free (badfdp->infname);

  if (parser != NULL)
    {
      parser (inf);
      return;
    }

  /* Else try Fortran. */
  old_last_node = last_node;
  curfdp->lang = get_language_from_langname ("fortran");
  Fortran_functions (inf);

     fdesc *badfdp;
     node *np;
{
  if (np->left != NULL)
    invalidate_nodes (badfdp, np->left);
  /* Memory leak here: if not CTAGS, in which case it would be quite
     difficult, the node could be freed.  If CTAGS the node is part of a
     binary tree, if not it is part of a list of lists. */
  if (np->fdp == badfdp)
    np-> valid = FALSE;
  if (np->right != NULL)
    invalidate_nodes (badfdp, np->right);
}

	r = sp;
  } while (*sp++);
  return (char *)r;
}

/*
 * Return the ptr in sp at which the character c first
 * appears; NULL if not found
 *
 * Identical to POSIX strchr, included for portability.

    {
      if (*sp == c)
	return (char *)sp;
    } while (*sp++);
  return NULL;
}

/*
 * Return TRUE if the two strings are equal, ignoring case for alphabetic
 * characters.
 *
 * Analogous to BSD's strcasecmp, included for portability.
 */
static bool
strcaseeq (s1, s2)
     register const char *s1;
     register const char *s2;
{
  while (*s1 != '\0'
	 && (ISALPHA (*s1) && ISALPHA (*s2)
	     ? lowcase (*s1) == lowcase (*s2)
	     : *s1 == *s2))
    s1++, s2++;

  return (*s1 == *s2);
}

/* Skip spaces, return new pointer. */
static char *
skip_spaces (cp)