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
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
//
// definitions.c - Code for defining named pattern rules
//
#include <err.h>
#include <stdlib.h>
#include <string.h>
#include "definitions.h"
#include "files.h"
#include "pattern.h"
#include "utils.h"
//
// Return a new list of definitions with one added to the front
//
def_t *with_def(def_t *defs, size_t namelen, const char *name, pat_t *pat)
{
def_t *def = new(def_t);
def->next = defs;
def->namelen = namelen;
def->name = name;
def->pat = pat;
return def;
}
//
// Load the given grammar (semicolon-separated definitions)
// and return the first rule defined.
//
def_t *load_grammar(def_t *defs, file_t *f)
{
const char *src = f->start;
src = after_spaces(src);
while (src < f->end) {
const char *name = src;
src = after_name(name);
if (src <= name)
file_err(f, name, src, "Invalid name for definition: %s", name);
size_t namelen = (size_t)(src - name);
if (!matchchar(&src, ':'))
errx(EXIT_FAILURE, "Expected ':' in definition");
pat_t *pat = bp_pattern(f, src);
if (pat == NULL) break;
defs = with_def(defs, namelen, name, pat);
src = pat->end;
src = after_spaces(src);
if (matchchar(&src, ';'))
src = after_spaces(src);
}
if (src < f->end)
file_err(f, src, NULL, "Invalid BP pattern");
return defs;
}
//
// Look up a backreference or grammar definition by name
//
def_t *lookup(def_t *defs, size_t namelen, const char *name)
{
for ( ; defs; defs = defs->next) {
if (namelen == defs->namelen && strncmp(defs->name, name, namelen) == 0)
return defs;
}
return NULL;
}
//
// Push a backreference onto the backreference stack
//
def_t *with_backref(def_t *defs, file_t *f, size_t namelen, const char *name, match_t *m)
{
// TODO: maybe calculate length? (nontrivial because of replacements)
pat_t *backref = new_pat(f, m->start, m->end, 0, -1, BP_BACKREF);
backref->args.backref = m;
return with_def(defs, namelen, name, backref);
}
//
// Free all the given definitions up till (but not including) `stop`
//
void free_defs(def_t **defs, def_t *stop)
{
while (*defs != stop && *defs != NULL) {
def_t *next = (*defs)->next;
(*defs)->next = NULL;
free(*defs);
(*defs) = next;
}
}
// vim: ts=4 sw=0 et cino=L2,l1,(0,W4,m1
|
