comparison lib-src/etags.c @ 13404:9d6c77b66cfb

* etags.c (get_lang_from_name, get_lang_from_interpreter, get_lang_from_suffix): New functions. (get_language): Function deleted. (lang_entry): Two members added to struct. (lang_names): Reflect the new layout of lang_entry. (print_language_names, main, find_entries): Use the new functions. (find_entries): Look at the first line for #! if no language. (C_entries): Invalidate the token when funcdef is reset. (Perl_functions): New function. (lang_suffixes): .pl and .pm are Perl suffixes.

13403:fd657bdc6982

#endif
 *
 *	Francesco Potorti` ([e-mail]) is the current maintainer.
 */

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

#define	TRUE	1
#define	FALSE	0
#ifndef DEBUG
# define DEBUG FALSE

Lang_function Cstar_entries;
Lang_function Fortran_functions;
Lang_function Yacc_entries;
Lang_function Lisp_functions;
Lang_function Pascal_functions;
Lang_function Prolog_functions;
Lang_function Scheme_functions;
Lang_function TeX_functions;
Lang_function just_read_file;
#else				/* so let's write it this way */

void Cstar_entries ();
void Fortran_functions ();
void Yacc_entries ();
void Lisp_functions ();
void Pascal_functions ();
void Prolog_functions ();
void Scheme_functions ();
void TeX_functions ();
void just_read_file ();
#endif

logical get_language ();
int total_size_of_entries ();
long readline ();
long readline_internal ();
#ifdef ETAGS_REGEXPS
void add_regex ();

/* Array of all regexps. */
struct pattern *patterns = NULL;
#endif /* ETAGS_REGEXPS */

/* Language stuff. */
struct lang_entry
{
  char *suffix;
  Lang_function *function;
};

/* Table of language names and corresponding functions. */
/* It is ok for a given function to be listed under more than one
   name.  I just didn't. */
/* "auto" language reverts to default behavior. */
struct lang_entry lang_names[] =
{
  { "asm", Asm_labels },
  { "c", default_C_entries },
  { "c++", Cplusplus_entries },
  { "c*", Cstar_entries },
  { "fortran", Fortran_functions },
  { "lisp", Lisp_functions },
  { "none", just_read_file },
  { "pascal", Pascal_functions },
  { "scheme" , Scheme_functions },
  { "tex", TeX_functions },
  { "auto", NULL },
  { NULL, NULL }
};

/* Table of file name suffixes and corresponding language functions. */
struct lang_entry lang_suffixes[] =
{
  /* Assembly code */
  { "a", Asm_labels },		/* Unix assembler */
  { "asm", Asm_labels },	/* Microcontroller assembly */
  { "def", Asm_labels },	/* BSO/Tasking definition includes  */
  { "inc", Asm_labels },	/* Microcontroller include files */
  { "ins", Asm_labels },	/* Microcontroller include files */
  { "s", Asm_labels },
  { "sa", Asm_labels },		/* Unix assembler */
  { "src", Asm_labels },	/* BSO/Tasking C compiler output */

  /* LaTeX source code */
  { "bib", TeX_functions },
  { "clo", TeX_functions },
  { "cls", TeX_functions },
  { "ltx", TeX_functions },
  { "sty", TeX_functions },
  { "TeX", TeX_functions },
  { "tex", TeX_functions },

  /* Lisp source code */
  { "cl", Lisp_functions },
  { "clisp", Lisp_functions },
  { "el", Lisp_functions },
  { "l", Lisp_functions },
  { "lisp", Lisp_functions },
  { "lsp", Lisp_functions },
  { "ml", Lisp_functions },

  /* Scheme source code */
  { "SCM", Scheme_functions },
  { "SM", Scheme_functions },
  { "oak", Scheme_functions },
  { "sch", Scheme_functions },
  { "scheme", Scheme_functions },
  { "scm", Scheme_functions },
  { "sm", Scheme_functions },
  { "t", Scheme_functions },
  /* FIXME Can't do the `SCM' or `scm' prefix with a version number */

  /* Note that .c and .h can be considered C++, if the --c++ flag was
     given.  That is why default_C_entries is called here. */
  { "c", default_C_entries },
  { "h", default_C_entries },

  /* Pro*C file. */
  { "pc", plain_C_entries },

  /* C++ file */
  { "C", Cplusplus_entries },
  { "H", Cplusplus_entries },
  { "c++", Cplusplus_entries },
  { "cc", Cplusplus_entries },
  { "cpp", Cplusplus_entries },
  { "cxx", Cplusplus_entries },
  { "h++", Cplusplus_entries },
  { "hh", Cplusplus_entries },
  { "hpp", Cplusplus_entries },
  { "hxx", Cplusplus_entries },

  /* Yacc file */
  { "y", Yacc_entries },

  /* C* file */
  { "cs", Cstar_entries },
  { "hs", Cstar_entries },

  /* Fortran */
  { "F", Fortran_functions },
  { "f", Fortran_functions },
  { "f90", Fortran_functions },
  { "for", Fortran_functions },

  /* Prolog source code */
  { "prolog", Prolog_functions },

  /* Pascal file */
  { "p", Pascal_functions },
  { "pas", Pascal_functions },

  { NULL, NULL }
};

/* Non-NULL if language fixed. */
Lang_function *lang_func = NULL;


void
print_language_names ()
{
  struct lang_entry *name, *ext;

  puts ("\nThese are the currently supported languages, along with the\n\
default file name suffixes:");
  for (name = lang_names; name->suffix; ++name)
    {
      printf ("\t%s\t", name->suffix);
      for (ext = lang_suffixes; ext->suffix; ++ext)
	if (name->function == ext->function)
	  printf (" .%s", ext->suffix);
      puts ("");
    }
  puts ("Where `auto' means use default language for files based on file\n\
name suffix, and `none' means only do regexp processing on files.\n\
If no language is specified and no matching suffix is found,\n\
Fortran is tried first; if no tags are found, C is tried next.");
}

#ifndef VERSION
# define VERSION "19"

typedef struct
{
  enum argument_type arg_type;
  char *what;
  Lang_function *function;
} ARGUMENT;

#ifdef VMS			/* VMS specific functions */

#define	EOS	'\0'

{
  int i;
  unsigned int nincluded_files = 0;
  char **included_files = xnew (argc, char *);
  char *this_file;
  ARGUMENT *argbuffer;
  int current_arg = 0, file_count = 0;
  struct linebuffer filename_lb;
#ifdef VMS
  logical got_err;
#endif

  progname = argv[0];

  /* Allocate enough no matter what happens.  Overkill, but each one
     is small. */
  argbuffer = xnew (argc, ARGUMENT);

#ifdef ETAGS_REGEXPS
  /* Set syntax for regular expression routines. */
  re_set_syntax (RE_SYNTAX_EMACS);
#endif /* ETAGS_REGEXPS */

	case 'I':
	case 'S':		/* for backward compatibility */
	  noindentypedefs = TRUE;
	  break;
	case 'l':
	  if (!get_language (optarg, &argbuffer[current_arg].function))
	    {
	      fprintf (stderr, "%s: language \"%s\" not recognized.\n",
		       progname, optarg);
	      goto usage;
	    }

  exit (GOOD);
}


/*
 * Set the language, given the name.
 */
logical
get_language (language, func)
     char *language;
     Lang_function **func;
{
  struct lang_entry *lang;

  for (lang = lang_names; lang->suffix; ++lang)
    {
      if (streq (language, lang->suffix))
	{
	  *func = lang->function;
	  return TRUE;
	}
    }

  return FALSE;
}


/*
 * This routine is called on each file argument.

find_entries (file, inf)
     char *file;
     FILE *inf;
{
  char *cp;
  struct lang_entry *lang;
  NODE *old_last_node;
  extern NODE *last_node;

  /* Memory leakage here: the memory block pointed by curfile is never
     released.  The amount of memory leaked here is the sum of the
     lengths of the input file names. */
  curfile = savestr (file);
  cp = etags_strrchr (file, '.');

  /* If user specified a language, use it. */
  if (lang_func != NULL)
    {
      lang_func (inf);
      fclose (inf);
      return;
    }

  if (cp)
    {
      ++cp;
      for (lang = lang_suffixes; lang->suffix; ++lang)
	{
	  if (streq (cp, lang->suffix))
	    {
	      lang->function (inf);
	      fclose (inf);
	      return;
	    }
	}
    }

  /* Try Fortran. */
  old_last_node = last_node;
  Fortran_functions (inf);

    {
      rewind (inf);
      default_C_entries (inf);
    }
  fclose (inf);
}

/* Record a tag. */
void
pfnote (name, is_func, linestart, linelen, lno, cno)

		/* FALLTHRU */
	      default:
		typdef = tnone;
	      }
	  if (funcdef != fignore)
	    funcdef = fnone;
	  if (structdef == stagseen)
	    structdef = snone;
	  break;
	case ',':
	  if (definedef != dnone)

 	      /* Found end of label, so copy it and add it to the table. */
 	      pfnote (NULL, TRUE,
		      lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
 	    }
 	}
    }
}

/* Added by Mosur Mohan, 4/22/88 */
/* Pascal parsing                */

13404:9d6c77b66cfb

#endif
 *
 *	Francesco Potorti` ([e-mail]) is the current maintainer.
 */

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

#define	TRUE	1
#define	FALSE	0
#ifndef DEBUG
# define DEBUG FALSE

Lang_function Cstar_entries;
Lang_function Fortran_functions;
Lang_function Yacc_entries;
Lang_function Lisp_functions;
Lang_function Pascal_functions;
Lang_function Perl_functions;
Lang_function Prolog_functions;
Lang_function Scheme_functions;
Lang_function TeX_functions;
Lang_function just_read_file;
#else				/* so let's write it this way */

void Cstar_entries ();
void Fortran_functions ();
void Yacc_entries ();
void Lisp_functions ();
void Pascal_functions ();
void Perl_functions ();
void Prolog_functions ();
void Scheme_functions ();
void TeX_functions ();
void just_read_file ();
#endif

Lang_function *get_language_from_name ();
Lang_function *get_language_from_interpreter ();
Lang_function *get_language_from_suffix ();
int total_size_of_entries ();
long readline ();
long readline_internal ();
#ifdef ETAGS_REGEXPS
void add_regex ();

/* Array of all regexps. */
struct pattern *patterns = NULL;
#endif /* ETAGS_REGEXPS */

/*
 * Language stuff.
 */

/* Non-NULL if language fixed. */
Lang_function *lang_func = NULL;

/* Assembly code */
char *Asm_suffixes [] = { "a",	/* Unix assembler */
			  "asm", /* Microcontroller assembly */
			  "def", /* BSO/Tasking definition includes  */
			  "inc", /* Microcontroller include files */
			  "ins", /* Microcontroller include files */
			  "s", "sa", /* Unix assembler */
			  "src", /* BSO/Tasking C compiler output */
			  NULL
			};

/* Note that .c and .h can be considered C++, if the --c++ flag was
   given.  That is why default_C_entries is called here. */
char *default_C_suffixes [] =
  { "c", "h", NULL };

/* C++ file */
char *Cplusplus_suffixes [] =
  { "C", "H", "c++", "cc", "cpp", "cxx", "h++", "hh", "hpp", "hxx", NULL };

/* C* file */
char *Cstar_suffixes [] =
  { "cs", "hs", NULL };

/* Fortran */
char *Fortran_suffixes [] =
  { "F", "f", "f90", "for", NULL };

/* Lisp source code */
char *Lisp_suffixes [] =
  { "cl", "clisp", "el", "l", "lisp", "lsp", "ml", NULL };

/* Pascal file */
char *Pascal_suffixes [] =
  { "p", "pas", NULL };

/* Perl file */
char *Perl_suffixes [] =
  { "pl", "pm", NULL };
char *Perl_interpreters [] =
  { "perl", NULL };

/* Pro*C file. */
char *plain_C_suffixes [] =
  { "pc", NULL };

/* Prolog source code */
char *Prolog_suffixes [] =
  { "prolog", NULL };

/* Scheme source code */
/* FIXME Can't do the `SCM' or `scm' prefix with a version number */
char *Scheme_suffixes [] =
  { "SCM", "SM", "oak", "sch", "scheme", "scm", "sm", "t", NULL };

/* TeX/LaTeX source code */
char *TeX_suffixes [] =
  { "bib", "clo", "cls", "ltx", "sty", "TeX", "tex", NULL };

/* Yacc file */
char *Yacc_suffixes [] =
  { "y", NULL };

/* Table of language names and corresponding functions, file suffixes
   and interpreter names.
   It is ok for a given function to be listed under more than one
   name.  I just didn't. */
struct lang_entry
{
  char *name;
  Lang_function *function;
  char **suffixes;
  char **interpreters;
};

struct lang_entry lang_names [] =
{
  { "asm", Asm_labels, Asm_suffixes },
  { "c", default_C_entries, default_C_suffixes },
  { "c++", Cplusplus_entries, Cplusplus_suffixes },
  { "c*", Cstar_entries, Cstar_suffixes },
  { "fortran", Fortran_functions, Fortran_suffixes },
  { "lisp", Lisp_functions, Lisp_suffixes },
  { "pascal", Pascal_functions, Pascal_suffixes },
  { "perl", Perl_functions, Perl_suffixes, Perl_interpreters },
  { "proc", plain_C_entries, plain_C_suffixes },
  { "prolog", Prolog_functions, Prolog_suffixes },
  { "scheme" , Scheme_functions, Scheme_suffixes },
  { "tex", TeX_functions, TeX_suffixes },
  { "yacc", Yacc_entries, Yacc_suffixes },
  { "auto", NULL },		/* default guessing scheme */
  { "none", just_read_file },	/* regexp matching only */
  { NULL, NULL }		/* end of list */
};


void
print_language_names ()
{
  struct lang_entry *lang;
  char **ext;

  puts ("\nThese are the currently supported languages, along with the\n\
default file name suffixes:");
  for (lang = lang_names; lang->name != NULL; lang++)
    {
      printf ("\t%s\t", lang->name);
      if (lang->suffixes != NULL)
	for (ext = lang->suffixes; *ext != NULL; ext++)
	  printf (" .%s", *ext);
      puts ("");
    }
  puts ("Where `auto' means use default language for files based on file\n\
name suffix, and `none' means only do regexp processing on files.\n\
If no language is specified and no matching suffix is found,\n\
the first line of the file is read for a sharp-bang (#!) sequence\n\
followed by the name of an interpreter.  If no such sequence is found,\n\
Fortran is tried first; if no tags are found, C is tried next.");
}

#ifndef VERSION
# define VERSION "19"

typedef struct
{
  enum argument_type arg_type;
  char *what;
  Lang_function *function;
} argument;

#ifdef VMS			/* VMS specific functions */

#define	EOS	'\0'

{
  int i;
  unsigned int nincluded_files = 0;
  char **included_files = xnew (argc, char *);
  char *this_file;
  argument *argbuffer;
  int current_arg = 0, file_count = 0;
  struct linebuffer filename_lb;
#ifdef VMS
  logical got_err;
#endif

  progname = argv[0];

  /* Allocate enough no matter what happens.  Overkill, but each one
     is small. */
  argbuffer = xnew (argc, argument);

#ifdef ETAGS_REGEXPS
  /* Set syntax for regular expression routines. */
  re_set_syntax (RE_SYNTAX_EMACS);
#endif /* ETAGS_REGEXPS */

	case 'I':
	case 'S':		/* for backward compatibility */
	  noindentypedefs = TRUE;
	  break;
	case 'l':
	  argbuffer[current_arg].function = get_language_from_name (optarg);
	  if (argbuffer[current_arg].function == NULL)
	    {
	      fprintf (stderr, "%s: language \"%s\" not recognized.\n",
		       progname, optarg);
	      goto usage;
	    }

  exit (GOOD);
}


/*
 * Return a Lang_function given the name.
 */
Lang_function *
get_language_from_name (name)
     char *name;
{
  struct lang_entry *lang;

  if (name == NULL)
    return NULL;
  for (lang = lang_names; lang->name != NULL; lang++)
    {
      if (streq (name, lang->name))
	return lang->function;
    }

  return NULL;
}


/*
 * Return a Lang_function given the interpreter name.
 */
Lang_function *
get_language_from_interpreter (interpreter)
     char *interpreter;
{
  struct lang_entry *lang;
  char **iname;

  if (interpreter == NULL)
    return NULL;
  for (lang = lang_names; lang->name != NULL; lang++)
    if (lang->interpreters != NULL)
      for (iname = lang->interpreters; *iname != NULL; iname++)
	if (streq (*iname, interpreter))
	    return lang->function;

  return NULL;
}



/*
 * Return a Lang_function given the file suffix.
 */
Lang_function *
get_language_from_suffix (suffix)
     char *suffix;
{
  struct lang_entry *lang;
  char **ext;

  if (suffix == NULL)
    return NULL;
  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->function;

  return NULL;
}


/*
 * This routine is called on each file argument.

find_entries (file, inf)
     char *file;
     FILE *inf;
{
  char *cp;
  Lang_function *function;
  NODE *old_last_node;
  extern NODE *last_node;

  /* Memory leakage here: the memory block pointed by curfile is never
     released.  The amount of memory leaked here is the sum of the
     lengths of the input file names. */
  curfile = savestr (file);

  /* If user specified a language, use it. */
  function = lang_func;
  if (function != NULL)
    {
      function (inf);
      fclose (inf);
      return;
    }

  cp = etags_strrchr (file, '.');
  if (cp != NULL)
    {
      cp += 1;
      function = get_language_from_suffix (cp);
      if (function != NULL)
	{
	  function (inf);
	  fclose (inf);
	  return;
	}
    }

  /* Look for sharp-bang as the first two characters. */
  if (readline_internal (&lb, inf) > 2
      && lb.buffer[0] == '#'
      && lb.buffer[1] == '!')
    {
      char *lp;

      /* Set lp to point at the first char after the last slash in the
         line or, if no slashes, at the first nonblank.  Then set cp to
	 the first successive blank and terminate the string. */
      lp = etags_strrchr (lb.buffer+2, '/');
      if (lp != NULL)
	lp += 1;
      else
	for (lp = lb.buffer+2; *lp != '\0' && isspace (*lp); lp++)
	  continue;
      for (cp = lp; *cp != '\0' && !isspace (*cp); cp++)
	continue;
      *cp = '\0';

      if (strlen (lp) > 0)
	{
	  function = get_language_from_interpreter (lp);
	  if (function != NULL)
	    {
	      function (inf);
	      fclose (inf);
	      return;
	    }
	}
    }
  rewind (inf);

  /* Try Fortran. */
  old_last_node = last_node;
  Fortran_functions (inf);

    {
      rewind (inf);
      default_C_entries (inf);
    }
  fclose (inf);
  return;
}

/* Record a tag. */
void
pfnote (name, is_func, linestart, linelen, lno, cno)

		/* FALLTHRU */
	      default:
		typdef = tnone;
	      }
	  if (funcdef != fignore)
	    {
	      funcdef = fnone;
	      /* The following instruction invalidates the token.
		 Probably the token should be invalidated in all
		 other cases  where some state machine is reset. */
	      tok.valid = FALSE;
	    }
	  if (structdef == stagseen)
	    structdef = snone;
	  break;
	case ',':
	  if (definedef != dnone)

 	      /* Found end of label, so copy it and add it to the table. */
 	      pfnote (NULL, TRUE,
		      lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
 	    }
 	}
    }
}

/*
 * Perl support by Bart Robinson <[e-mail]>
 * Perl sub names: look for /^sub[ \t\n]+[^ \t\n{]+/
 */
void
Perl_functions (inf)
     FILE *inf;
{
  register char *cp;

  lineno = 0;
  charno = 0;

  while (!feof (inf))
    {
      lineno++;
      linecharno = charno;
      charno += readline (&lb, inf);
      cp = lb.buffer;

      if (*cp++ == 's' && *cp++ == 'u' && *cp++ == 'b' && isspace(*cp++))
	{
	  while (*cp && isspace(*cp))
	    cp++;
	  while (*cp && ! isspace(*cp) && *cp != '{')
	    cp++;
	  pfnote (NULL, TRUE,
		  lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
	}
    }
}

/* Added by Mosur Mohan, 4/22/88 */
/* Pascal parsing                */