comparison lib-src/etags.c @ 45655:a4c27d23899f

(enum arg_type): New label at_stdin. (STDIN): New constant. (parsing_stdin): New flag. (longopts): New option --parse-stdin=NAME. (print_help): Document it. (main): Handle it. (process_file): Split into process_file and process_file_name. (process_file_name): New function.

45654:816b7344d062

 * 2002 #line directives by Francesco Potort́.
 *
 *	Francesco Potort́ <[e-mail]> has maintained it since 1993.
 */

char pot_etags_version[] = "@(#) pot revision number is 15.26";

#define	TRUE	1
#define	FALSE	0

#ifdef DEBUG

{
  enum {
    at_language,		/* a language specification */
    at_regexp,			/* a regular expression */
    at_icregexp,		/* same, but with case ignored */
    at_filename			/* a file name */
  } arg_type;			/* argument type */
  language *lang;		/* language associated with the argument */
  char *what;			/* the argument itself */
} argument;

static void pfatal __P((char *));
static void add_node __P((node *, node **));

static void init __P((void));
static void initbuffer __P((linebuffer *));
static void process_file __P((char *, language *));
static void find_entries __P((FILE *));
static void free_tree __P((node *));
static void free_fdesc __P((fdesc *));
static void pfnote __P((char *, bool, char *, int, int, long));
static void new_pfnote __P((char *, int, bool, char *, int, int, long));

static bool cxref_style;	/* -x: create cxref style output */
static bool cplusplus;		/* .[hc] means C++, not C */
static bool noindentypedefs;	/* -I: ignore indentation in C */
static bool packages_only;	/* --packages-only: in Ada, only tag packages*/

#ifdef ETAGS_REGEXPS
/* List of all regexps. */
static pattern *p_head;

/* How many characters in the character set.  (From regex.c.)  */

#ifdef ETAGS_REGEXPS
  { "regex",		  required_argument, NULL,	     	 'r'   },
  { "no-regex",		  no_argument,	     NULL,	     	 'R'   },
  { "ignore-case-regex",  required_argument, NULL,	     	 'c'   },
#endif /* ETAGS_REGEXPS */
  { "version",		  no_argument,	     NULL,     	     	 'V'   },

#if CTAGS /* Etags options */
  { "backward-search",	  no_argument,	     NULL,	     	 'B'   },
  { "cxref",		  no_argument,	     NULL,	     	 'x'   },

#endif /* LONG_OPTIONS */
  puts ("  A - as file name means read names from stdin (one per line).\n\
Absolute names are stored in the output file as they are.\n\
Relative ones are stored relative to the output file's directory.\n");

  if (!CTAGS)
    puts ("-a, --append\n\
        Append tag entries to existing tags file.");

  puts ("--packages-only\n\

  int current_arg, file_count;
  linebuffer filename_lb;
#ifdef VMS
  bool got_err;
#endif

#ifdef DOS_NT
  _fmode = O_BINARY;   /* all of files are treated as binary files */
#endif /* DOS_NT */

    {
      typedefs = typedefs_or_cplusplus = constantypedefs = TRUE;
      globals = TRUE;
    }

  while (1)
    {
      int opt;
      char *optstring = "-";

#ifdef ETAGS_REGEXPS
      optstring = "-r:Rc:";
#endif /* ETAGS_REGEXPS */

#ifndef LONG_OPTIONS
      optstring = optstring + 1;
#endif /* LONG_OPTIONS */

      optstring = concat (optstring,
			  "Cf:Il:o:SVhH",
			  (CTAGS) ? "BxdtTuvw" : "aDi:");

      opt = getopt_long (argc, argv, optstring, longopts, 0);
      if (opt == EOF)
	break;

      switch (opt)
	{
	case 0:
	  /* If getopt returns 0, then it has already processed a
	     long-named option.  We should do nothing.  */
	  break;

	case 1:
	  /* This means that a file name has been seen.  Record it. */
	  argbuffer[current_arg].arg_type = at_filename;
	  argbuffer[current_arg].what = optarg;
	  ++current_arg;
	  ++file_count;
	  break;

	  /* Common options. */
	case 'C': cplusplus = TRUE;		break;
	case 'f':		/* for compatibility with old makefiles */
	case 'o':
	  if (tagfile)
	    {
	      error ("-o option may only be given once.", (char *)NULL);
	      suggest_asking_for_help ();
	    }
	  tagfile = optarg;
	  break;
	case 'I':
	case 'S':		/* for backward compatibility */
	  noindentypedefs = TRUE;
	  break;
	case 'l':
	  {
	    language *lang = get_language_from_langname (optarg);
	    if (lang != NULL)
	      {
		argbuffer[current_arg].lang = lang;
		argbuffer[current_arg].arg_type = at_language;
		++current_arg;
	      }
	  }
	  break;
	case 'r':
	  argbuffer[current_arg].arg_type = at_regexp;
	  argbuffer[current_arg].what = optarg;
	  ++current_arg;
	  break;
	case 'R':
	  argbuffer[current_arg].arg_type = at_regexp;
	  argbuffer[current_arg].what = NULL;
	  ++current_arg;
	  break;
        case 'c':
	  argbuffer[current_arg].arg_type = at_icregexp;
	  argbuffer[current_arg].what = optarg;
	  ++current_arg;
	  break;
	case 'V':
	  print_version ();
	  break;
	case 'h':
	case 'H':
	  print_help ();
	  break;

	  /* Etags options */
	case 'a': append_to_tagfile = TRUE;			break;
	case 'D': constantypedefs = FALSE;			break;
	case 'i': included_files[nincluded_files++] = optarg;	break;

	  /* Ctags options. */
	case 'B': searchar = '?';				break;
	case 'd': constantypedefs = TRUE;			break;
	case 't': typedefs = TRUE;				break;
	case 'T': typedefs = typedefs_or_cplusplus = TRUE;	break;
	case 'u': update = TRUE;				break;
	case 'v': vgrind_style = TRUE;			  /*FALLTHRU*/
	case 'x': cxref_style = TRUE;				break;
	case 'w': no_warnings = TRUE;				break;
	default:
	  suggest_asking_for_help ();
	}
    }

  for (; optind < argc; ++optind)
    {
      argbuffer[current_arg].arg_type = at_filename;
      argbuffer[current_arg].what = argv[optind];

	      this_file = argbuffer[i].what;
#endif
	      /* Input file named "-" means read file names from stdin
		 (one per line) and use them. */
	      if (streq (this_file, "-"))
		while (readline_internal (&filename_lb, stdin) > 0)
		  process_file (filename_lb.buffer, lang);
	      else
		process_file (this_file, lang);
#ifdef VMS
	    }
#endif
	  break;
	}
    }

#ifdef ETAGS_REGEXPS
  free_patterns ();

  if (update)
    {
      char cmd[BUFSIZ];
      for (i = 0; i < current_arg; ++i)
	{
	  if (argbuffer[i].arg_type != at_filename)
	    continue;
	  sprintf (cmd,
		   "mv %s OTAGS;fgrep -v '\t%s\t' OTAGS >%s;rm OTAGS",
		   tagfile, argbuffer[i].what, tagfile);
	  if (system (cmd) != GOOD)
	    fatal ("failed to execute shell command", (char *)NULL);


/*
 * This routine is called on each file argument.
 */
static void
process_file (file, lang)
     char *file;
     language *lang;
{
  struct stat stat_buf;
  FILE *inf;
  static const fdesc emptyfdesc;
  fdesc *fdp;
  compressor *compr;
  char *compressed_name, *uncompressed_name;
  char *ext, *real_name;
  int retval;


  canonicalize_filename (file);
  if (streq (file, tagfile) && !streq (tagfile, "-"))
    {
      error ("skipping inclusion of %s in self.", file);

    {
      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 = pclose (inf);
  else
    retval = fclose (inf);
  if (retval < 0)
    pfatal (file);

  /* If not Ctags, and if this is not metasource and if it contained no #line
     directives, we can write the tags and free all nodes pointing to
     curfdp. */
  if (!CTAGS

	    nodehead = NULL;	/* no nodes left */
	  else
	    prev->left = NULL;	/* delete the pointer to the sublist */
	}
    }

 cleanup:
  if (compressed_name) free (compressed_name);
  if (uncompressed_name) free (uncompressed_name);
  last_node = NULL;
  curfdp = NULL;
  return;
}

/*
 * This routine sets up the boolean pseudo-functions which work
 * by setting boolean flags dependent upon the corresponding character.

    }
  else if (s[pos] == '\'')
    {
      pos++;

      while (1)
	{
	  if (s[pos] == '\'')
	    {
	      pos++;
	      if (s[pos] != '\'')

    }
  else if (s[pos] == '\'')
    {
      pos++;

      while (1)
	{
	  if (s[pos] == '\'')
	    {
	      pos++;
	      break;

  register char *pend;
  int chars_deleted;

  pend = p + lbp->size;		/* Separate to avoid 386/IX compiler bug.  */

  while (1)
    {
      register int c = getc (stream);
      if (p == pend)
	{
	  /* We're at the end of linebuffer: expand it. */

45655:a4c27d23899f

 * 2002 #line directives by Francesco Potort́.
 *
 *	Francesco Potort́ <[e-mail]> has maintained it since 1993.
 */

char pot_etags_version[] = "@(#) pot revision number is 16.4";

#define	TRUE	1
#define	FALSE	0

#ifdef DEBUG

{
  enum {
    at_language,		/* a language specification */
    at_regexp,			/* a regular expression */
    at_icregexp,		/* same, but with case ignored */
    at_filename,		/* a file name */
    at_stdin			/* read from stdin here */
  } arg_type;			/* argument type */
  language *lang;		/* language associated with the argument */
  char *what;			/* the argument itself */
} argument;

static void pfatal __P((char *));
static void add_node __P((node *, node **));

static void init __P((void));
static void initbuffer __P((linebuffer *));
static void process_file_name __P((char *, language *));
static void process_file __P((FILE *, char *, language *));
static void find_entries __P((FILE *));
static void free_tree __P((node *));
static void free_fdesc __P((fdesc *));
static void pfnote __P((char *, bool, char *, int, int, long));
static void new_pfnote __P((char *, int, bool, char *, int, int, long));

static bool cxref_style;	/* -x: create cxref style output */
static bool cplusplus;		/* .[hc] means C++, not C */
static bool noindentypedefs;	/* -I: ignore indentation in C */
static bool packages_only;	/* --packages-only: in Ada, only tag packages*/

#define STDIN 0x1001		/* returned by getopt_long on --parse-stdin */
static bool parsing_stdin;	/* --parse-stdin used */

#ifdef ETAGS_REGEXPS
/* List of all regexps. */
static pattern *p_head;

/* How many characters in the character set.  (From regex.c.)  */

#ifdef ETAGS_REGEXPS
  { "regex",		  required_argument, NULL,	     	 'r'   },
  { "no-regex",		  no_argument,	     NULL,	     	 'R'   },
  { "ignore-case-regex",  required_argument, NULL,	     	 'c'   },
#endif /* ETAGS_REGEXPS */
  { "parse-stdin",        required_argument, NULL,               STDIN },
  { "version",		  no_argument,	     NULL,     	     	 'V'   },

#if CTAGS /* Etags options */
  { "backward-search",	  no_argument,	     NULL,	     	 'B'   },
  { "cxref",		  no_argument,	     NULL,	     	 'x'   },

#endif /* LONG_OPTIONS */
  puts ("  A - as file name means read names from stdin (one per line).\n\
Absolute names are stored in the output file as they are.\n\
Relative ones are stored relative to the output file's directory.\n");

  puts ("--parse-stdin=NAME\n\
        Read from standard input and record tags as belonging to file NAME.");

  if (!CTAGS)
    puts ("-a, --append\n\
        Append tag entries to existing tags file.");

  puts ("--packages-only\n\

  int current_arg, file_count;
  linebuffer filename_lb;
#ifdef VMS
  bool got_err;
#endif
 char *optstring;
 int opt;


#ifdef DOS_NT
  _fmode = O_BINARY;   /* all of files are treated as binary files */
#endif /* DOS_NT */

    {
      typedefs = typedefs_or_cplusplus = constantypedefs = TRUE;
      globals = TRUE;
    }

  optstring = "-";
#ifdef ETAGS_REGEXPS
  optstring = "-r:Rc:";
#endif /* ETAGS_REGEXPS */
#ifndef LONG_OPTIONS
  optstring = optstring + 1;
#endif /* LONG_OPTIONS */
  optstring = concat (optstring,
		      "Cf:Il:o:SVhH",
		      (CTAGS) ? "BxdtTuvw" : "aDi:");

  while ((opt = getopt_long (argc, argv, optstring, longopts, 0)) != EOF)
    switch (opt)
      {
      case 0:
	/* If getopt returns 0, then it has already processed a
	   long-named option.  We should do nothing.  */
	break;

      case 1:
	/* This means that a file name has been seen.  Record it. */
	argbuffer[current_arg].arg_type = at_filename;
	argbuffer[current_arg].what     = optarg;
	++current_arg;
	++file_count;
	break;

      case STDIN:
	/* Parse standard input.  Idea by Vivek <[e-mail]>. */
	argbuffer[current_arg].arg_type = at_stdin;
	argbuffer[current_arg].what     = optarg;
	++current_arg;
	++file_count;
	parsing_stdin = TRUE;
	break;

	/* Common options. */
      case 'C': cplusplus = TRUE;		break;
      case 'f':		/* for compatibility with old makefiles */
      case 'o':
	if (tagfile)
	  {
	    error ("-o option may only be given once.", (char *)NULL);
	    suggest_asking_for_help ();
	  }
	tagfile = optarg;
	break;
      case 'I':
      case 'S':		/* for backward compatibility */
	noindentypedefs = TRUE;
	break;
      case 'l':
	{
	  language *lang = get_language_from_langname (optarg);
	  if (lang != NULL)
	    {
	      argbuffer[current_arg].lang = lang;
	      argbuffer[current_arg].arg_type = at_language;
	      ++current_arg;
	    }
	}
	break;
      case 'r':
	argbuffer[current_arg].arg_type = at_regexp;
	argbuffer[current_arg].what = optarg;
	++current_arg;
	break;
      case 'R':
	argbuffer[current_arg].arg_type = at_regexp;
	argbuffer[current_arg].what = NULL;
	++current_arg;
	break;
      case 'c':
	argbuffer[current_arg].arg_type = at_icregexp;
	argbuffer[current_arg].what = optarg;
	++current_arg;
	break;
      case 'V':
	print_version ();
	break;
      case 'h':
      case 'H':
	print_help ();
	break;

	/* Etags options */
      case 'a': append_to_tagfile = TRUE;			break;
      case 'D': constantypedefs = FALSE;			break;
      case 'i': included_files[nincluded_files++] = optarg;	break;

	/* Ctags options. */
      case 'B': searchar = '?';					break;
      case 'd': constantypedefs = TRUE;				break;
      case 't': typedefs = TRUE;				break;
      case 'T': typedefs = typedefs_or_cplusplus = TRUE;	break;
      case 'u': update = TRUE;					break;
      case 'v': vgrind_style = TRUE;			  /*FALLTHRU*/
      case 'x': cxref_style = TRUE;				break;
      case 'w': no_warnings = TRUE;				break;
      default:
	suggest_asking_for_help ();
      }

  for (; optind < argc; ++optind)
    {
      argbuffer[current_arg].arg_type = at_filename;
      argbuffer[current_arg].what = argv[optind];

	      this_file = argbuffer[i].what;
#endif
	      /* Input file named "-" means read file names from stdin
		 (one per line) and use them. */
	      if (streq (this_file, "-"))
		{
		  if (parsing_stdin)
		    fatal ("cannot parse standard input AND read file names from it",
			   (char *)NULL);
		  while (readline_internal (&filename_lb, stdin) > 0)
		    process_file_name (filename_lb.buffer, lang);
		}
	      else
		process_file_name (this_file, lang);
#ifdef VMS
	    }
#endif
	  break;
        case at_stdin:
          this_file = argbuffer[i].what;
          process_file (stdin, this_file, lang);
          break;
	}
    }

#ifdef ETAGS_REGEXPS
  free_patterns ();

  if (update)
    {
      char cmd[BUFSIZ];
      for (i = 0; i < current_arg; ++i)
	{
	  switch (argbuffer[i].arg_type)
	    {
	    case at_filename:
	    case at_stdin:
	      break;
	    default:
	      continue;		/* the for loop */
	    }
	  sprintf (cmd,
		   "mv %s OTAGS;fgrep -v '\t%s\t' OTAGS >%s;rm OTAGS",
		   tagfile, argbuffer[i].what, tagfile);
	  if (system (cmd) != GOOD)
	    fatal ("failed to execute shell command", (char *)NULL);


/*
 * This routine is called on each file argument.
 */
static void
process_file_name (file, lang)
     char *file;
     language *lang;
{
  struct stat stat_buf;
  FILE *inf;
  fdesc *fdp;
  compressor *compr;
  char *compressed_name, *uncompressed_name;
  char *ext, *real_name;
  int retval;

  canonicalize_filename (file);
  if (streq (file, tagfile) && !streq (tagfile, "-"))
    {
      error ("skipping inclusion of %s in self.", file);

    {
      perror (real_name);
      goto cleanup;
    }

  process_file (inf, uncompressed_name, lang);

  if (real_name == compressed_name)
    retval = pclose (inf);
  else
    retval = fclose (inf);
  if (retval < 0)
    pfatal (file);

 cleanup:
  if (compressed_name) free (compressed_name);
  if (uncompressed_name) free (uncompressed_name);
  last_node = NULL;
  curfdp = NULL;
  return;
}

static void
process_file (fh, fn, lang)
     FILE *fh;
     char *fn;
     language *lang;
{
  static const fdesc emptyfdesc;
  fdesc *fdp;

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

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

  find_entries (fh);

  /* If not Ctags, and if this is not metasource and if it contained no #line
     directives, we can write the tags and free all nodes pointing to
     curfdp. */
  if (!CTAGS

	    nodehead = NULL;	/* no nodes left */
	  else
	    prev->left = NULL;	/* delete the pointer to the sublist */
	}
    }
}

/*
 * This routine sets up the boolean pseudo-functions which work
 * by setting boolean flags dependent upon the corresponding character.

    }
  else if (s[pos] == '\'')
    {
      pos++;

      for (;;)
	{
	  if (s[pos] == '\'')
	    {
	      pos++;
	      if (s[pos] != '\'')

    }
  else if (s[pos] == '\'')
    {
      pos++;

      for (;;)
	{
	  if (s[pos] == '\'')
	    {
	      pos++;
	      break;

  register char *pend;
  int chars_deleted;

  pend = p + lbp->size;		/* Separate to avoid 386/IX compiler bug.  */

  for (;;)
    {
      register int c = getc (stream);
      if (p == pend)
	{
	  /* We're at the end of linebuffer: expand it. */