blob: 005b961ab6b0a2828eec718d2b89c85772b853b4 (
plain)
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
|
#include <stddef.h>
#include <set>
#include <valarray>
#include <vector>
#include "lib/regcomp_dfa_regless.h"
#include "lib/regex.h"
#include "lib/regex_impl.h"
#include "lib/regoff_trie.h"
#include "src/dfa/dfa.h"
#include "src/dfa/tcmd.h"
#include "src/encoding/range_suffix.h"
#include "src/nfa/nfa.h"
#include "src/parse/ast.h"
#include "src/regexp/rule.h"
#include "src/regexp/tag.h"
#include "src/util/free_list.h"
#include "src/util/range.h"
using namespace re2c;
using namespace re2c::libre2c;
void regfree(regex_t *preg)
{
delete preg->rmgr;
delete &preg->nfa->charset;
delete &preg->nfa->rules;
delete &preg->nfa->tags;
delete preg->nfa;
if (preg->flags & REG_TSTRING) {
delete[] preg->tstring.string;
} else if (preg->flags & REG_SUBHIST) {
// regfreesub() should be called by the user after regparse()
} else {
// allocated and freed by the user (pointer stored in regex_t)
}
if (preg->flags & REG_NFA) {
if ((preg->flags & REG_TRIE) && (preg->flags & REG_LEFTMOST)) {
delete static_cast<lzsimctx_t*>(preg->simctx);
} else if (preg->flags & REG_TRIE) {
delete static_cast<pzsimctx_t*>(preg->simctx);
} else if (preg->flags & REG_LEFTMOST) {
delete static_cast<lsimctx_t*>(preg->simctx);
} else if (preg->flags & REG_KUKLEWICZ) {
delete static_cast<ksimctx_t*>(preg->simctx);
} else {
delete static_cast<psimctx_t*>(preg->simctx);
}
} else {
delete[] preg->char2class;
delete[] preg->dfa->finvers;
delete &preg->dfa->mtagvers;
delete &preg->dfa->tcpool;
delete preg->dfa;
if (preg->flags & REG_REGLESS) {
if (preg->flags & REG_LEFTMOST) {
delete static_cast<ldetctx_t*>(preg->rldfa->ctx);
} else {
delete static_cast<pdetctx_t*>(preg->rldfa->ctx);
}
delete preg->rldfa->opts;
delete[] preg->rldfa->result;
delete preg->rldfa;
}
if (preg->flags & REG_TSTRING) {
// t-string construction does not use this
} else if (preg->flags & REG_SUBHIST) {
delete preg->regtrie;
} else {
delete[] preg->regs;
}
}
AST::flist.clear();
RangeSuffix::freeList.clear();
}
void regfreesub(subhistory_t *history)
{
free(history);
}
|
