1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
/*
* Generated by ./misc/optlib2c from optlib/forth.ctags, Don't edit this manually.
*/
#include "general.h"
#include "parse.h"
#include "routines.h"
#include "field.h"
#include "xtag.h"
#include "selectors.h"
static void initializeForthParser (const langType language CTAGS_ATTR_UNUSED)
{
}
extern parserDefinition* ForthParser (void)
{
static const char *const extensions [] = {
"fth",
"forth",
"fs",
"4th",
"f",
NULL
};
static const char *const aliases [] = {
NULL
};
static const char *const patterns [] = {
NULL
};
static kindDefinition ForthKindTable [] = {
{
true, 'w', "word", "words",
},
{
true, 'v', "variable", "variables",
},
{
true, 'c', "constant", "constants",
},
};
static tagRegexTable ForthTagRegexTable [] = {
{"^[[:space:]]*\\\\.*", "",
"", "{exclusive}", NULL, false},
{"^:[[:space:]]+([^[:space:]]+)", "\\1",
"w", "{exclusive}", NULL, false},
{"^variable[[:space:]]+([^[:space:]]+)", "\\1",
"v", "{exclusive}{icase}", NULL, false},
{"^[[:alnum:]]+[[:space:]]+constant[[:space:]]+([^[:space:]]+)", "\\1",
"c", "{exclusive}{icase}", NULL, false},
};
static selectLanguage selectors[] = { selectFortranOrForthByForthMarker, NULL };
parserDefinition* const def = parserNew ("Forth");
def->versionCurrent= 0;
def->versionAge = 0;
def->enabled = true;
def->extensions = extensions;
def->patterns = patterns;
def->aliases = aliases;
def->selectLanguage= selectors;
def->method = METHOD_NOT_CRAFTED|METHOD_REGEX;
def->kindTable = ForthKindTable;
def->kindCount = ARRAY_SIZE(ForthKindTable);
def->tagRegexTable = ForthTagRegexTable;
def->tagRegexCount = ARRAY_SIZE(ForthTagRegexTable);
def->initialize = initializeForthParser;
return def;
}
|
