comparison lib-src/etags.c @ 17785:5b92f8ba5c6d

Added support for the Java language.

17784:5b2fa4a13a8b

 *	Regexp tags by Tom Tromey.
 *
 *	Francesco Potorti` ([e-mail]) is the current maintainer.
 */

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

#define	TRUE	1
#define	FALSE	0

#ifndef DEBUG

  { "c",       default_C_entries,   default_C_suffixes,   NULL              },
  { "c++",     Cplusplus_entries,   Cplusplus_suffixes,   NULL              },
  { "c*",      Cstar_entries,       Cstar_suffixes,       NULL              },
  { "erlang",  Erlang_functions,    Erlang_suffixes,      NULL              },
  { "fortran", Fortran_functions,   Fortran_suffixes,     NULL              },
/*{ "java",    Cjava_entries,       Cjava_suffixes,       NULL             },*/
  { "lisp",    Lisp_functions,      Lisp_suffixes,        NULL              },
  { "pascal",  Pascal_functions,    Pascal_suffixes,      NULL              },
  { "perl",    Perl_functions,      Perl_suffixes,        Perl_interpreters },
  { "postscript", Postscript_functions, Postscript_suffixes, NULL           },
  { "proc",    plain_C_entries,     plain_C_suffixes,     NULL              },

 */
enum sym_type
{
  st_none, st_C_objprot, st_C_objimpl, st_C_objend, st_C_gnumacro,
  st_C_struct, st_C_enum, st_C_define, st_C_typedef, st_C_typespec,
  st_C_jstruct
};

/* Feed stuff between (but not including) %[ and %] lines to:
      gperf -c -k 1,3 -o -p -r -t
%[

%%
@interface,	0,	st_C_objprot
@protocol,	0,	st_C_objprot
@implementation,0,	st_C_objimpl
@end,		0,	st_C_objend
extends,  	C_JAVA,	st_C_jstruct
implements,  	C_JAVA,	st_C_jstruct
class,  	C_PLPL,	st_C_struct
namespace,	C_PLPL,	st_C_struct
domain, 	C_STAR,	st_C_struct
union,  	0,	st_C_struct
struct, 	0,	st_C_struct

      {"class",   	C_PLPL,	st_C_struct},
      {"auto",     	0,	st_C_typespec},
      {"",}, {"",}, 
      {"bool", 		C_PLPL,	st_C_typespec},
      {"extern",   	0,	st_C_typespec},
      {"extends",   	C_JAVA,	st_C_jstruct},
      {"",}, {"",}, 
      {"@implementation", 0,	st_C_objimpl},
      {"",}, {"",}, {"",}, 
      {"@end", 		0,	st_C_objend},
      {"mutable", 	C_PLPL,	st_C_typespec},

      {"long",     	0,	st_C_typespec},
      {"typedef",  	0,	st_C_typedef},
      {"typename", 	C_PLPL,	st_C_typespec},
      {"volatile", 	0,	st_C_typespec},
      {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, 
      {"implements",   	C_JAVA,	st_C_jstruct},
      {"",}, {"",}, 
      {"union",   	0,	st_C_struct},
      {"",}, 
      {"double",   	0,	st_C_typespec},
      {"DEFUN", 		0,	st_C_gnumacro},

  dignorerest			/* ignore rest of line */
} definedef;

/*
 * State machine for Objective C protocols and implementations.
 */
enum
{
  onone,			/* nothing seen */
  oprotocol,			/* @interface or @protocol seen */

   * file is plain C.  This is because a struct tag may have the same
   * name as another tag, and this loses with ctags.
   */
  switch (toktype)
    {
    case st_C_jstruct:
      if (structdef == stagseen)
        structdef = scolonseen;
      return FALSE;
      break;
    case st_C_struct:

}

/*
 * Postscript tag functions
 * Just look for lines where the first character is '/'
 */
void 
Postscript_functions (inf)
     FILE *inf;
{

    {
      error ("missing regexp", (char *)NULL);
      return;
    }
  if (regex_arg[0] == '@'
      && stat (regex_arg + 1, &stat_buf) == 0
      && S_ISREG (stat_buf.st_mode))
    {
      FILE *regexfp;
      struct linebuffer regexbuf;
      char *regexfile = regex_arg + 1;

17785:5b92f8ba5c6d

 *	Regexp tags by Tom Tromey.
 *
 *	Francesco Potorti` ([e-mail]) is the current maintainer.
 */

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

#define	TRUE	1
#define	FALSE	0

#ifndef DEBUG

  { "c",       default_C_entries,   default_C_suffixes,   NULL              },
  { "c++",     Cplusplus_entries,   Cplusplus_suffixes,   NULL              },
  { "c*",      Cstar_entries,       Cstar_suffixes,       NULL              },
  { "erlang",  Erlang_functions,    Erlang_suffixes,      NULL              },
  { "fortran", Fortran_functions,   Fortran_suffixes,     NULL              },
  { "java",    Cjava_entries,       Cjava_suffixes,       NULL              },
  { "lisp",    Lisp_functions,      Lisp_suffixes,        NULL              },
  { "pascal",  Pascal_functions,    Pascal_suffixes,      NULL              },
  { "perl",    Perl_functions,      Perl_suffixes,        Perl_interpreters },
  { "postscript", Postscript_functions, Postscript_suffixes, NULL           },
  { "proc",    plain_C_entries,     plain_C_suffixes,     NULL              },

 */
enum sym_type
{
  st_none, st_C_objprot, st_C_objimpl, st_C_objend, st_C_gnumacro,
  st_C_struct, st_C_enum, st_C_define, st_C_typedef, st_C_typespec,
  st_C_javastruct
};

/* Feed stuff between (but not including) %[ and %] lines to:
      gperf -c -k 1,3 -o -p -r -t
%[

%%
@interface,	0,	st_C_objprot
@protocol,	0,	st_C_objprot
@implementation,0,	st_C_objimpl
@end,		0,	st_C_objend
extends,  	C_JAVA,	st_C_javastruct
implements,  	C_JAVA,	st_C_javastruct
class,  	C_PLPL,	st_C_struct
namespace,	C_PLPL,	st_C_struct
domain, 	C_STAR,	st_C_struct
union,  	0,	st_C_struct
struct, 	0,	st_C_struct

      {"class",   	C_PLPL,	st_C_struct},
      {"auto",     	0,	st_C_typespec},
      {"",}, {"",}, 
      {"bool", 		C_PLPL,	st_C_typespec},
      {"extern",   	0,	st_C_typespec},
      {"extends",   	C_JAVA,	st_C_javastruct},
      {"",}, {"",}, 
      {"@implementation", 0,	st_C_objimpl},
      {"",}, {"",}, {"",}, 
      {"@end", 		0,	st_C_objend},
      {"mutable", 	C_PLPL,	st_C_typespec},

      {"long",     	0,	st_C_typespec},
      {"typedef",  	0,	st_C_typedef},
      {"typename", 	C_PLPL,	st_C_typespec},
      {"volatile", 	0,	st_C_typespec},
      {"",}, {"",}, {"",}, {"",}, {"",}, {"",}, 
      {"implements",   	C_JAVA,	st_C_javastruct},
      {"",}, {"",}, 
      {"union",   	0,	st_C_struct},
      {"",}, 
      {"double",   	0,	st_C_typespec},
      {"DEFUN", 		0,	st_C_gnumacro},

  dignorerest			/* ignore rest of line */
} definedef;

/*
 * State machine for Objective C protocols and implementations.
 * Tom R.Hageman <[e-mail]>
 */
enum
{
  onone,			/* nothing seen */
  oprotocol,			/* @interface or @protocol seen */

   * file is plain C.  This is because a struct tag may have the same
   * name as another tag, and this loses with ctags.
   */
  switch (toktype)
    {
    case st_C_javastruct:
      if (structdef == stagseen)
        structdef = scolonseen;
      return FALSE;
      break;
    case st_C_struct:

}

/*
 * Postscript tag functions
 * Just look for lines where the first character is '/'
 * Richard Mlynarik <[e-mail]>
 */
void 
Postscript_functions (inf)
     FILE *inf;
{

    {
      error ("missing regexp", (char *)NULL);
      return;
    }
  if (regex_arg[0] == '@'
      && stat (regex_arg + 1, &stat_buf) == 0)
    {
      FILE *regexfp;
      struct linebuffer regexbuf;
      char *regexfile = regex_arg + 1;