103 lines
2.0 KiB
C
103 lines
2.0 KiB
C
|
/*
|
||
|
|
*
|
||
|
|
* Copyright (c) 2005, Enrico Troeger
|
||
|
|
*
|
||
|
|
* This source code is released for free distribution under the terms of the
|
||
|
|
* GNU General Public License.
|
||
|
|
*
|
||
|
|
* This module contains functions for generating tags for (la)tex files.
|
||
|
|
*/
|
||
|
|
|
||
|
|
/*
|
||
|
|
* INCLUDE FILES
|
||
|
|
*/
|
||
|
|
#include "general.h" /* must always come first */
|
||
|
|
|
||
|
|
#include <ctype.h>
|
||
|
|
|
||
|
|
#include "parse.h"
|
||
|
|
#include "read.h"
|
||
|
|
#include "vstring.h"
|
||
|
|
|
||
|
|
/*
|
||
|
|
* DATA DEFINITIONS
|
||
|
|
*/
|
||
|
|
typedef enum {
|
||
|
|
K_KEYWORD
|
||
|
|
} texKind;
|
||
|
|
|
||
|
|
static kindOption TexKinds [] = {
|
||
|
|
{ TRUE, 's', "symbol", "symbols"}
|
||
|
|
};
|
||
|
|
|
||
|
|
/*
|
||
|
|
* FUNCTION DEFINITIONS
|
||
|
|
*/
|
||
|
|
|
||
|
|
static boolean isIdentifier (int c)
|
||
|
|
{
|
||
|
|
return (boolean)(isalnum (c) || c == '\\');
|
||
|
|
}
|
||
|
|
|
||
|
|
static void findTexTags (void)
|
||
|
|
{
|
||
|
|
vString *name = vStringNew ();
|
||
|
|
const unsigned char *line;
|
||
|
|
|
||
|
|
while ((line = fileReadLine ()) != NULL)
|
||
|
|
{
|
||
|
|
const unsigned char* cp = line;
|
||
|
|
boolean possible = TRUE;
|
||
|
|
|
||
|
|
while (isspace ((int) *cp))
|
||
|
|
++cp;
|
||
|
|
if (*cp == '#')
|
||
|
|
continue;
|
||
|
|
|
||
|
|
while (*cp != '\0')
|
||
|
|
{
|
||
|
|
/* We look for any sequence of identifier characters following
|
||
|
|
* either a white space or a colon and followed by either = or :=
|
||
|
|
*/
|
||
|
|
if (possible && isIdentifier ((int) *cp))
|
||
|
|
{
|
||
|
|
while (isIdentifier ((int) *cp))
|
||
|
|
{
|
||
|
|
vStringPut (name, (int) *cp);
|
||
|
|
++cp;
|
||
|
|
}
|
||
|
|
vStringTerminate (name);
|
||
|
|
while (isspace ((int) *cp))
|
||
|
|
++cp;
|
||
|
|
if ( *cp == ':')
|
||
|
|
++cp;
|
||
|
|
if ( *cp == '=')
|
||
|
|
makeSimpleTag (name, TexKinds, K_KEYWORD);
|
||
|
|
vStringClear (name);
|
||
|
|
}
|
||
|
|
else if (isspace ((int) *cp) || *cp == ':')
|
||
|
|
possible = TRUE;
|
||
|
|
else
|
||
|
|
possible = FALSE;
|
||
|
|
if (*cp != '\0')
|
||
|
|
++cp;
|
||
|
|
}
|
||
|
|
}
|
||
|
|
vStringDelete (name);
|
||
|
|
}
|
||
|
|
|
||
|
|
extern parserDefinition* TexParser (void)
|
||
|
|
{
|
||
|
|
//static const char *const patterns [] = { "[Mm]akefile", NULL };
|
||
|
|
static const char *const extensions [] = { "tex", NULL };
|
||
|
|
parserDefinition* const def = parserNew ("Tex");
|
||
|
|
def->kinds = TexKinds;
|
||
|
|
def->kindCount = KIND_COUNT (TexKinds);
|
||
|
|
//def->patterns = patterns;
|
||
|
|
def->extensions = extensions;
|
||
|
|
def->parser = findTexTags;
|
||
|
|
return def;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* vi:set tabstop=8 shiftwidth=4: */
|