-
Notifications
You must be signed in to change notification settings - Fork 616
/
forth.c
58 lines (48 loc) · 1.22 KB
/
forth.c
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
/*
* 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"
static void initializeForthParser (const langType language CTAGS_ATTR_UNUSED)
{
}
extern parserDefinition* ForthParser (void)
{
static const char *const extensions [] = {
"fth",
"forth",
NULL
};
static const char *const aliases [] = {
NULL
};
static const char *const patterns [] = {
NULL
};
static kindDefinition ForthKindTable [] = {
{
true, 'f', "funciton", "functions",
},
};
static tagRegexTable ForthTagRegexTable [] = {
{"^:[[:space:]]*([^[:space:]]+)", "\\1",
"f", NULL, NULL, false},
};
parserDefinition* const def = parserNew ("Forth");
def->versionCurrent= 0;
def->versionAge = 0;
def->enabled = true;
def->extensions = extensions;
def->patterns = patterns;
def->aliases = aliases;
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;
}