2 * Copyright (c) 2000-2001, Jérôme Plût
3 * Copyright (c) 2006, Enrico Tröger
5 * This source code is released for free distribution under the terms of the
6 * GNU General Public License.
8 * This module contains functions for generating tags for source files
9 * for the TeX formatting system.
15 #include "general.h" /* must always come first */
37 static kindOption TeXKinds
[] = {
38 { TRUE
, 'f', "function", "command definitions" },
39 { TRUE
, 'c', "class", "environment definitions" },
40 { TRUE
, 'm', "member", "labels, sections and bibliography" },
41 { TRUE
, 'd', "macro", "subsections" },
42 { TRUE
, 'v', "variable", "subsubsections" },
43 { TRUE
, 'n', "namespace", "chapters"},
44 { TRUE
, 's', "struct", "labels and bibliography" }
47 #define TEX_BRACES (1<<0)
48 #define TEX_BSLASH (1<<1)
49 #define TEX_LABEL (1<<2)
52 * FUNCTION DEFINITIONS
55 static int getWord(const char * ref
, const char **ptr
)
59 while ((*ref
!= '\0') && (*p
!= '\0') && (*ref
== *p
))
66 if (*p
== '*') /* to allow something like \section*{foobar} */
73 static void createTag(int flags
, TeXKind kind
, const char * l
)
75 vString
*name
= vStringNew ();
79 if (flags
& (TEX_BRACES
| TEX_LABEL
))
89 l
++; /* skip the closing square bracket */
95 if (flags
& TEX_BSLASH
)
100 if (flags
& TEX_LABEL
)
104 vStringPut(name
, (int) *l
);
106 } while ((*l
!= '\0') && (*l
!= '}'));
107 vStringTerminate(name
);
108 if (name
->buffer
[0] != '}')
109 makeSimpleTag(name
, TeXKinds
, kind
);
111 else if (isalpha((int) *l
) || *l
== '@')
115 vStringPut (name
, (int) *l
);
117 } while (isalpha((int) *l
) || *l
== '@');
118 vStringTerminate(name
);
119 makeSimpleTag(name
, TeXKinds
, kind
);
123 vStringPut(name
, (int) *l
);
124 vStringTerminate(name
);
125 makeSimpleTag(name
, TeXKinds
, kind
);
132 static void findTeXTags(void)
136 while ((line
= (const char*)fileReadLine()) != NULL
)
138 const char *cp
= line
;
141 for (; *cp
!= '\0'; cp
++)
149 /* \newcommand{\command} */
150 if (getWord("newcommand", &cp
)
151 || getWord("providecommand", &cp
)
152 || getWord("renewcommand", &cp
)
155 createTag (TEX_BRACES
|TEX_BSLASH
, K_COMMAND
, cp
);
159 /* \DeclareMathOperator{\command} */
160 else if (getWord("DeclareMathOperator", &cp
))
164 createTag(TEX_BRACES
|TEX_BSLASH
, K_COMMAND
, cp
);
169 else if (getWord("def", &cp
))
171 createTag(TEX_BSLASH
, K_COMMAND
, cp
);
175 /* \newenvironment{name} */
176 else if ( getWord("newenvironment", &cp
)
177 || getWord("newtheorem", &cp
)
178 || getWord("begin", &cp
)
181 createTag(TEX_BRACES
, K_ENVIRONMENT
, cp
);
185 /* \bibitem[label]{key} */
186 else if (getWord("bibitem", &cp
))
192 while ((*cp
!= '\0') && (*cp
!= ']'))
196 createTag(TEX_LABEL
, K_LABEL
, cp
);
201 else if (getWord("label", &cp
))
203 createTag(TEX_LABEL
, K_LABEL
, cp
);
207 else if (getWord("section", &cp
))
209 createTag(TEX_LABEL
, K_SECTION
, cp
);
212 /* \subsection{key} */
213 else if (getWord("subsection", &cp
))
215 createTag(TEX_LABEL
, K_SUBSECTION
, cp
);
218 /* \subsubsection{key} */
219 else if (getWord("subsubsection", &cp
))
221 createTag(TEX_LABEL
, K_SUBSUBSECTION
, cp
);
225 else if (getWord("chapter", &cp
))
227 createTag(TEX_LABEL
, K_CHAPTER
, cp
);
235 extern parserDefinition
* LaTeXParser (void)
237 static const char *const extensions
[] = { "tex", "sty", "idx", NULL
};
238 parserDefinition
* def
= parserNew ("LaTeX");
239 def
->kinds
= TeXKinds
;
240 def
->kindCount
= KIND_COUNT (TeXKinds
);
241 def
->extensions
= extensions
;
242 def
->parser
= findTeXTags
;