emacs: lib-src/etags.c comparison

comparison lib-src/etags.c @ 42042:481d38f6aec2

* etags.c (PHP_functions): New function by Diez B. Roggisch, heavily adapted by me, for parsing PHP. (LOOKING_AT): New macro. (Perl_functions, Python_functions, PHP_functions) (Scheme_functions, Texinfo_nodes): Use it. (Perl_functions): Use strneq. (prolog_pred): Renamed to prolog_pr. (prolog_pr): Recognise Prolog rules (thanks to Geert Kloosterman) in addition to predicates. [ETAGS_REGEXPS] [!HAVE_CONFIG_H] [__CYGWIN__]: Prevent unmodified compile, as Cygwin's regex.h is incompatible with us (thanks to Markus Hoenicka). [!HAVE_CONFIG_H] [!__STDC__]: #define const as the empty string.

author	Francesco Potortì <pot@gnu.org>
date	Sat, 15 Dec 2001 16:07:31 +0000
parents	a7f40b000353
children	7d2776273a81

comparison

equal deleted inserted replaced

-:b4eeb5fd09f9
+:481d38f6aec2
 * 2001 Nested classes by Francesco Potortė based on work by Mykola Dzyuba.
 *
 *	Francesco Potortė <pot@gnu.org> has maintained it since 1993.
 */
-char pot_etags_version[] = "@(#) pot revision number is 14.21";
+char pot_etags_version[] = "@(#) pot revision number is 14.26";
 #define	TRUE	1
 #define	FALSE	0
 #ifdef DEBUG
 # define ETAGS_REGEXPS		/* use the regexp features */
 # define LONG_OPTIONS		/* accept long options */
 #else
 # ifndef __STDC__
 #   define static		/* remove static for old compilers' sake */
+#   define const		/* same for const */
 # endif
 #endif /* !HAVE_CONFIG_H */
 #ifndef _GNU_SOURCE
 # define _GNU_SOURCE 1		/* enables some compiler checks on GNU */
 extern char *optarg;
 extern int optind, opterr;
 #endif /* LONG_OPTIONS */
 #ifdef ETAGS_REGEXPS
+# ifndef HAVE_CONFIG_H		/* this is a standalone compilation */
+#   ifdef __CYGWIN__         	/* compiling on Cygwin */
+			     !!! NOTICE !!!
+the regex.h distributed with Cygwin is not compatible with etags, alas!
+If you want regular expression support, you should delete this notice and
+	      arrange to use the GNU regex.h and regex.c.
+#   endif
+# endif
 # include <regex.h>
 #endif /* ETAGS_REGEXPS */
 /* Define CTAGS to make the program "ctags" compatible with the usual one.
 Leave it undefined to make the program "etags", which makes emacs-style
 static void Yacc_entries P_((FILE *));
 static void Lisp_functions P_((FILE *));
 static void Makefile_targets P_((FILE *));
 static void Pascal_functions P_((FILE *));
 static void Perl_functions P_((FILE *));
+static void PHP_functions P_((FILE *));
 static void Postscript_functions P_((FILE *));
 static void Prolog_functions P_((FILE *));
 static void Python_functions P_((FILE *));
 static void Scheme_functions P_((FILE *));
 static void TeX_commands P_((FILE *));
 char *Perl_suffixes [] =
 { "pl", "pm", NULL };
 char *Perl_interpreters [] =
 { "perl", "@PERL@", NULL };
+char *PHP_suffixes [] =
+{ "php", "php3", "php4", NULL };
 char *plain_C_suffixes [] =
 { "lm",			/* Objective lex file */
 "m",			/* Objective C file */
 "pc",			/* Pro*C file */
 NULL };
 { "java",    	  Cjava_entries,       	NULL, Cjava_suffixes,      	NULL },
 { "lisp",    	  Lisp_functions,      	NULL, Lisp_suffixes,       	NULL },
 { "makefile",   Makefile_targets,     Makefile_filenames, NULL,     	NULL },
 { "pascal",  	  Pascal_functions,    	NULL, Pascal_suffixes,     	NULL },
 { "perl",    	  Perl_functions,     NULL, Perl_suffixes, Perl_interpreters },
+{ "php",  	  PHP_functions,    	NULL, PHP_suffixes,     	NULL },
 { "postscript", Postscript_functions, NULL, Postscript_suffixes, 	NULL },
 { "proc",    	  plain_C_entries,     	NULL, plain_C_suffixes,    	NULL },
 { "prolog",  	  Prolog_functions,    	NULL, Prolog_suffixes,     	NULL },
 { "python",  	  Python_functions,    	NULL, Python_suffixes,     	NULL },
 { "scheme",  	  Scheme_functions,    	NULL, Scheme_suffixes,     	NULL },
 {
 C_entries (YACC, inf);
 }
-/* A useful macro. */
+/* Useful macros. */
 #define LOOP_ON_INPUT_LINES(file_pointer, line_buffer, char_pointer)	\
 for (lineno = charno = 0;	/* loop initialization */		\
 !feof (file_pointer)	/* loop test */				\
 && (lineno++,		/* instructions at start of loop */	\
 	   linecharno = charno,						\
 	   charno += readline (&line_buffer, file_pointer),		\
 	   char_pointer = lb.buffer,					\
 	   TRUE);							\
 )
+#define LOOKING_AT(cp, keyword)	/* keyword is a constant string */	\
+(strneq ((cp), keyword, sizeof(keyword)-1) /* cp points at kyword */	\
+&& iswhite((cp)[sizeof(keyword)-1])	/* followed by a blank */	\
+&& ((cp) = skip_spaces((cp)+sizeof(keyword)-1))) /* skip blanks */
 /*
 * Read a file, but do no processing.  This is used to do regexp
 * matching on files that have no language defined.
 */
 {
 register char *cp;
 LOOP_ON_INPUT_LINES (inf, lb, cp)
 {
-if (*cp++ == 's'
+if (LOOKING_AT (cp, "sub"))
-	  && *cp++ == 'u'
+	{
-	  && *cp++ == 'b' && iswhite (*cp++))
-	{
-	  cp = skip_spaces (cp);
 	  if (*cp != '\0')
 	    {
 	      char *sp = cp;
 	      while (*cp != '\0'
 		     && !iswhite (*cp) && *cp != '{' && *cp != '(')
 	      pfnote (savenstr (sp, cp-sp), TRUE,
 		      lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
 	    }
 	}
 else if (globals		/* only if tagging global vars is enabled */
-		&& ((cp = lb.buffer,
+		&& ((strneq (cp, "my", 2) && (cp+=2))
-		     *cp++ == 'm'
+		    || (strneq (cp, "local", 5) && (cp+=5)))
-		     && *cp++ == 'y')
-		    || (cp = lb.buffer,
-			*cp++ == 'l'
-			&& *cp++ == 'o'
-			&& *cp++ == 'c'
-			&& *cp++ == 'a'
-			&& *cp++ == 'l'))
 		&& (*cp == '(' || iswhite (*cp)))
 	{
 	  /* After "my" or "local", but before any following paren or space. */
 	  char *varname = NULL;
 		  FALSE, lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
 	}
 }
 }
 /*
 * Python support
 * Look for /^def[ \t\n]+[^ \t\n(:]+/ or /^class[ \t\n]+[^ \t\n(:]+/
 * Eric S. Raymond <esr@thyrsus.com> (1997)
 */
 FILE *inf;
 {
 register char *cp;
 LOOP_ON_INPUT_LINES (inf, lb, cp)
-{
+if (LOOKING_AT (cp, "def") || LOOKING_AT (cp, "class"))
-if (*cp++ == 'd'
+{
-	  && *cp++ == 'e'
+	while (*cp != '\0' && !iswhite (*cp) && *cp != '(' && *cp != ':')
-	  && *cp++ == 'f' && iswhite (*cp++))
+	  cp++;
-	{
+	pfnote (NULL, TRUE,
-	  cp = skip_spaces (cp);
+		lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
-	  while (*cp != '\0' && !iswhite (*cp) && *cp != '(' && *cp != ':')
+}
+}
+/*
+* PHP support
+* Look for:
+*  - /^[ \t]*function[ \t\n]+[^ \t\n(]+/
+*  - /^[ \t]*class[ \t\n]+[^ \t\n]+/
+*  - /^[ \t]*define\(\"[^\"]+/
+* Only with --members:
+*  - /^[ \t]*var[ \t\n]+\$[^ \t\n=;]/
+* originally by Diez B. Roggisch 2001-06-06
+*/
+static void
+PHP_functions (inf)
+FILE *inf;
+{
+register char *cp;
+bool search_identifier = FALSE;
+LOOP_ON_INPUT_LINES (inf, lb, cp)
+{
+cp = skip_spaces (cp);
+if (search_identifier
+	  && *cp != '\0')
+	{
+	  while (*cp != '\0' && !iswhite (*cp) && *cp != '(')
 	    cp++;
 	  pfnote (NULL, TRUE,
 		  lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
-	}
+	  search_identifier = FALSE;
+	}
-cp = lb.buffer;
+else if (LOOKING_AT (cp, "function"))
-if (*cp++ == 'c'
+	{
-	  && *cp++ == 'l'
+	  if(*cp == '&')
-	  && *cp++ == 'a'
+	    cp = skip_spaces (cp+1);
-	  && *cp++ == 's'
+	  if(*cp != '\0')
-	  && *cp++ == 's' && iswhite (*cp++))
+	    {
-	{
+	      while (*cp != '\0' && !iswhite (*cp) && *cp != '(')
-	  cp = skip_spaces (cp);
+		cp++;
-	  while (*cp != '\0' && !iswhite (*cp) && *cp != '(' && *cp != ':')
+	      pfnote (NULL, TRUE,
+		      lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
+	    }
+	  else
+	    search_identifier = TRUE;
+	}
+else if (LOOKING_AT (cp, "class"))
+	{
+	  if (*cp != '\0')
+	    {
+	      while (*cp != '\0' && !iswhite (*cp))
+		cp++;
+	      pfnote (NULL, FALSE,
+		      lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
+	    }
+	  else
+	    search_identifier = TRUE;
+	}
+else if (strneq (cp, "define", 6)
+	       && (cp = skip_spaces (cp+6))
+	       && *cp++ == '('
+	       && (*cp == '"' || *cp == '\''))
+	{
+	  char quote = *cp++;
+	  while (*cp != quote && *cp != '\0')
 	    cp++;
-	  pfnote (NULL, TRUE,
+	  pfnote (NULL, FALSE,
+		  lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
+	}
+else if (members
+	       && LOOKING_AT (cp, "var")
+	       && *cp == '$')
+	{
+	  while (*cp != '=' && *cp != ';' && *cp != '\0' && !iswhite(*cp))
+	    cp++;
+	  pfnote (NULL, FALSE,
 		  lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
 	}
 }
 }
 	  /* Skip over open parens and white space */
 	  while (iswhite (*bp) || *bp == '(')
 	    bp++;
 	  get_tag (bp);
 	}
-if (bp[0] == '('
+if (LOOKING_AT (bp, "(SET!") || LOOKING_AT (bp, "(set!"))
-	  && (bp[1] == 'S' || bp[1] == 's')
+	get_tag (bp);
-	  && (bp[2] == 'E' || bp[2] == 'e')
-	  && (bp[3] == 'T' || bp[3] == 't')
-	  && (bp[4] == '!' || bp[4] == '!')
-	  && (iswhite (bp[5])))
-	{
-	  bp = skip_non_spaces (bp);
-	  bp = skip_spaces (bp);
-	  get_tag (bp);
-	}
 }
 }
 /* Find tags in TeX and LaTeX input files.  */
 Texinfo_nodes (inf)
 FILE * inf;
 {
 char *cp, *start;
 LOOP_ON_INPUT_LINES (inf, lb, cp)
-{
+if (LOOKING_AT (cp, "@node"))
-if ((*cp++ == '@'
+{
-	   && *cp++ == 'n'
+	start = cp;
-	   && *cp++ == 'o'
+	while (*cp != '\0' && *cp != ',')
-	   && *cp++ == 'd'
+	  cp++;
-	   && *cp++ == 'e' && iswhite (*cp++)))
+	pfnote (savenstr (start, cp - start), TRUE,
-	{
+		lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
-	  start = cp = skip_spaces(cp);
+}
-	  while (*cp != '\0' && *cp != ',')
-	    cp++;
-	  pfnote (savenstr (start, cp - start), TRUE,
-		  lb.buffer, cp - lb.buffer + 1, lineno, linecharno);
-	}
-}
 }
 /*
 * Prolog support (rewritten) by Anders Lindgren, Mar. 96
 *
 * Assumes that the predicate starts at column 0.
 * Only the first clause of a predicate is added.
 */
-static int prolog_pred P_((char *, char *));
+static int prolog_pr P_((char *, char *));
 static void prolog_skip_comment P_((linebuffer *, FILE *));
 static int prolog_atom P_((char *, int));
 static void
 Prolog_functions (inf)
 	continue;
 else if (iswhite (cp[0])) /* Not a predicate */
 	continue;
 else if (cp[0] == '/' && cp[1] == '*')	/* comment. */
 	prolog_skip_comment (&lb, inf);
-else if ((len = prolog_pred (cp, last)) > 0)
+else if ((len = prolog_pr (cp, last)) > 0)
 	{
 	  /* Predicate.  Store the function name so that we only
 	     generate a tag for the first clause.  */
 	  if (last == NULL)
 	    last = xnew(len + 1, char);
 }
 while (!feof(inf));
 }
 /*
-* A predicate definition is added if it matches:
+* A predicate or rule definition is added if it matches:
 *     <beginning of line><Prolog Atom><whitespace>(
+* or  <beginning of line><Prolog Atom><whitespace>:-
 *
 * It is added to the tags database if it doesn't match the
 * name of the previous clause header.
 *
-* Return the size of the name of the predicate, or 0 if no header
+* Return the size of the name of the predicate or rule, or 0 if no
-* was found.
+* header was found.
 */
 static int
-prolog_pred (s, last)
+prolog_pr (s, last)
 char *s;
 char *last;		/* Name of last clause. */
 {
 int pos;
 int len;
 return 0;
 len = pos;
 pos = skip_spaces (s + pos) - s;
-if ((s[pos] == '(') || (s[pos] == '.'))
+if ((s[pos] == '.'
-{
+|| (s[pos] == '(' && (pos += 1))
-if (s[pos] == '(')
+|| (s[pos] == ':' && s[pos + 1] == '-' && (pos += 2)))
-	pos++;
+&& (last == NULL		/* save only the first clause */
+	  || len != strlen (last)
-/* Save only the first clause. */
+	  || !strneq (s, last, len)))
-if (last == NULL
-	  || len != (int)strlen (last)
-	  || !strneq (s, last, len))
 	{
 	  pfnote (savenstr (s, len), TRUE, s, pos, lineno, linecharno);
 	  return len;
 	}
-}
+else
 return 0;
 }
 /*
 * Consume a Prolog atom.
 * Return the number of bytes consumed, or -1 if there was an error.
 long *result =  (long *) realloc (ptr, size);
 if (result == NULL)
 fatal ("virtual memory exhausted", (char *)NULL);
 return result;
 }
+/*
+* Local Variables:
+* c-indentation-style: gnu
+* indent-tabs-mode: t
+* tab-width: 8
+* c-font-lock-extra-types: ("FILE" "bool" "linebuffer")
+* End:
+*/

Mercurial > emacs

comparison lib-src/etags.c @ 42042:481d38f6aec2