Commit 97052c63 authored by Dave Love's avatar Dave Love
Browse files

(Texinfo_functions): New function.

(lang_names): Install it.
(Texinfo_suffixes): New variable.
parent 419d1c74
2000-03-19 Dave Love <fx@gnu.org>
* etags.c (Texinfo_functions): New function.
(lang_names): Install it.
(Texinfo_suffixes): New variable.
2000-04-19 Gerd Moellmann <gerd@gnu.org>
* ebrowse.c (xmalloc, xrealloc): Rewritten.
......
/* Tags file maker to go with GNU Emacs
Copyright (C) 1984, 87, 88, 89, 93, 94, 95, 98, 99
Copyright (C) 1984, 87, 88, 89, 93, 94, 95, 98, 99, 2000
Free Software Foundation, Inc. and Ken Arnold
This file is not considered part of GNU Emacs.
......@@ -255,6 +255,7 @@ static void Prolog_functions P_((FILE *));
static void Python_functions P_((FILE *));
static void Scheme_functions P_((FILE *));
static void TeX_functions P_((FILE *));
static void Texinfo_functions P_ ((FILE *));
static void just_read_file P_((FILE *));
static void print_language_names P_((void));
......@@ -522,6 +523,9 @@ char *Scheme_suffixes [] =
char *TeX_suffixes [] =
{ "TeX", "bib", "clo", "cls", "ltx", "sty", "tex", NULL };
char *Texinfo_suffixes [] =
{ "texi", "txi", "texinfo", NULL };
char *Yacc_suffixes [] =
{ "y", "ym", "yy", "yxx", "y++", NULL }; /* .ym is Objective yacc file */
......@@ -552,6 +556,7 @@ language lang_names [] =
{ "python", Python_functions, Python_suffixes, NULL },
{ "scheme", Scheme_functions, Scheme_suffixes, NULL },
{ "tex", TeX_functions, TeX_suffixes, NULL },
{ "texinfo", Texinfo_functions, Texinfo_suffixes, NULL },
{ "yacc", Yacc_entries, Yacc_suffixes, NULL },
{ "auto", NULL }, /* default guessing scheme */
{ "none", just_read_file }, /* regexp matching only */
......@@ -4378,6 +4383,28 @@ TEX_Token (cp)
return -1;
}
/* Texinfo support. Dave Love, Mar. 2000. */
static void
Texinfo_functions (inf)
FILE * inf;
{
char *cp, *start;
LOOP_ON_INPUT_LINES (inf, lb, cp)
{
if ((*cp++ == '@' && *cp++ == 'n' && *cp++ == 'o' && *cp++ == 'd'
&& *cp++ == 'e' && iswhite (*cp++)))
{
while (iswhite (*cp))
cp++;
start = 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
*
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment