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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
|
/* lrexlib_glib_f.c - GLib regular expression library */
/*
This file, written by Hadriel Kaplan, is in the Public Domain, or
under the MIT license if your country does not allow Public Domain.
Copyright (c) 2014 Hadriel Kaplan
SPDX-License-Identifier: MIT
*/
#include <glib.h>
#include "lua.h"
#include "lauxlib.h"
#include "lrexlib.h"
#define VERSION_GLIB (GLIB_MAJOR_VERSION*100 + GLIB_MINOR_VERSION)
static flag_pair gregex_compile_flags[] = {
{ "MAJOR", GLIB_MAJOR_VERSION },
{ "MINOR", GLIB_MINOR_VERSION },
{ "MICRO", GLIB_MICRO_VERSION },
/*----------------------- Compile flags -----------------------------------*/
{ "CASELESS", G_REGEX_CASELESS },
{ "MULTILINE", G_REGEX_MULTILINE },
{ "DOTALL", G_REGEX_DOTALL },
{ "EXTENDED", G_REGEX_EXTENDED },
{ "ANCHORED", G_REGEX_ANCHORED },
{ "DOLLAR_ENDONLY", G_REGEX_DOLLAR_ENDONLY },
{ "UNGREEDY", G_REGEX_UNGREEDY },
{ "NO_AUTO_CAPTURE", G_REGEX_NO_AUTO_CAPTURE },
{ "OPTIMIZE", G_REGEX_OPTIMIZE },
{ "DUPNAMES", G_REGEX_DUPNAMES },
{ "NEWLINE_CR", G_REGEX_NEWLINE_CR },
{ "NEWLINE_LF", G_REGEX_NEWLINE_LF },
{ "NEWLINE_CRLF", G_REGEX_NEWLINE_CRLF },
#if VERSION_GLIB >= 234
{ "FIRSTLINE", G_REGEX_FIRSTLINE },
{ "NEWLINE_ANYCRLF", G_REGEX_NEWLINE_ANYCRLF },
{ "BSR_ANYCRLF", G_REGEX_BSR_ANYCRLF },
{ "JAVASCRIPT_COMPAT", G_REGEX_JAVASCRIPT_COMPAT },
#endif
/*---------------------------------------------------------------------------*/
{ NULL, 0 }
};
/*----------------------- Match flags -------------------------------------*/
static flag_pair gregex_match_flags[] = {
{ "ANCHORED", G_REGEX_MATCH_ANCHORED },
{ "NOTBOL", G_REGEX_MATCH_NOTBOL },
{ "NOTEOL", G_REGEX_MATCH_NOTEOL },
{ "NOTEMPTY", G_REGEX_MATCH_NOTEMPTY },
{ "PARTIAL", G_REGEX_MATCH_PARTIAL },
{ "NEWLINE_CR", G_REGEX_MATCH_NEWLINE_CR },
{ "NEWLINE_LF", G_REGEX_MATCH_NEWLINE_LF },
{ "NEWLINE_CRLF", G_REGEX_MATCH_NEWLINE_CRLF },
{ "NEWLINE_ANY", G_REGEX_MATCH_NEWLINE_ANY },
#if VERSION_GLIB >= 234
{ "NEWLINE_ANYCRLF", G_REGEX_MATCH_NEWLINE_ANYCRLF },
{ "BSR_ANYCRLF", G_REGEX_MATCH_BSR_ANYCRLF },
{ "BSR_ANY", G_REGEX_MATCH_BSR_ANY },
{ "PARTIAL_SOFT", G_REGEX_MATCH_PARTIAL_SOFT },
{ "PARTIAL_HARD", G_REGEX_MATCH_PARTIAL_HARD },
{ "NOTEMPTY_ATSTART", G_REGEX_MATCH_NOTEMPTY_ATSTART },
#endif
/*---------------------------------------------------------------------------*/
{ NULL, 0 }
};
flag_pair gregex_error_flags[] = {
{ "COMPILE", G_REGEX_ERROR_COMPILE },
{ "OPTIMIZE", G_REGEX_ERROR_OPTIMIZE },
{ "REPLACE", G_REGEX_ERROR_REPLACE },
{ "MATCH", G_REGEX_ERROR_MATCH },
{ "INTERNAL", G_REGEX_ERROR_INTERNAL },
{ "STRAY_BACKSLASH", G_REGEX_ERROR_STRAY_BACKSLASH },
{ "MISSING_CONTROL_CHAR", G_REGEX_ERROR_MISSING_CONTROL_CHAR },
{ "UNRECOGNIZED_ESCAPE", G_REGEX_ERROR_UNRECOGNIZED_ESCAPE },
{ "QUANTIFIERS_OUT_OF_ORDER", G_REGEX_ERROR_QUANTIFIERS_OUT_OF_ORDER },
{ "QUANTIFIER_TOO_BIG", G_REGEX_ERROR_QUANTIFIER_TOO_BIG },
{ "UNTERMINATED_CHARACTER_CLASS", G_REGEX_ERROR_UNTERMINATED_CHARACTER_CLASS },
{ "INVALID_ESCAPE_IN_CHARACTER_CLASS", G_REGEX_ERROR_INVALID_ESCAPE_IN_CHARACTER_CLASS },
{ "RANGE_OUT_OF_ORDER", G_REGEX_ERROR_RANGE_OUT_OF_ORDER },
{ "NOTHING_TO_REPEAT", G_REGEX_ERROR_NOTHING_TO_REPEAT },
{ "UNRECOGNIZED_CHARACTER", G_REGEX_ERROR_UNRECOGNIZED_CHARACTER },
{ "POSIX_NAMED_CLASS_OUTSIDE_CLASS", G_REGEX_ERROR_POSIX_NAMED_CLASS_OUTSIDE_CLASS },
{ "UNMATCHED_PARENTHESIS", G_REGEX_ERROR_UNMATCHED_PARENTHESIS },
{ "INEXISTENT_SUBPATTERN_REFERENCE", G_REGEX_ERROR_INEXISTENT_SUBPATTERN_REFERENCE },
{ "UNTERMINATED_COMMENT", G_REGEX_ERROR_UNTERMINATED_COMMENT },
{ "EXPRESSION_TOO_LARGE", G_REGEX_ERROR_EXPRESSION_TOO_LARGE },
{ "MEMORY_ERROR", G_REGEX_ERROR_MEMORY_ERROR },
{ "VARIABLE_LENGTH_LOOKBEHIND", G_REGEX_ERROR_VARIABLE_LENGTH_LOOKBEHIND },
{ "MALFORMED_CONDITION", G_REGEX_ERROR_MALFORMED_CONDITION },
{ "TOO_MANY_CONDITIONAL_BRANCHES", G_REGEX_ERROR_TOO_MANY_CONDITIONAL_BRANCHES },
{ "ASSERTION_EXPECTED", G_REGEX_ERROR_ASSERTION_EXPECTED },
{ "UNKNOWN_POSIX_CLASS_NAME", G_REGEX_ERROR_UNKNOWN_POSIX_CLASS_NAME },
{ "POSIX_COLLATING_ELEMENTS_NOT_SUPPORTED", G_REGEX_ERROR_POSIX_COLLATING_ELEMENTS_NOT_SUPPORTED },
{ "HEX_CODE_TOO_LARGE", G_REGEX_ERROR_HEX_CODE_TOO_LARGE },
{ "INVALID_CONDITION", G_REGEX_ERROR_INVALID_CONDITION },
{ "SINGLE_BYTE_MATCH_IN_LOOKBEHIND", G_REGEX_ERROR_SINGLE_BYTE_MATCH_IN_LOOKBEHIND },
{ "INFINITE_LOOP", G_REGEX_ERROR_INFINITE_LOOP },
{ "MISSING_SUBPATTERN_NAME_TERMINATOR", G_REGEX_ERROR_MISSING_SUBPATTERN_NAME_TERMINATOR },
{ "DUPLICATE_SUBPATTERN_NAME", G_REGEX_ERROR_DUPLICATE_SUBPATTERN_NAME },
{ "MALFORMED_PROPERTY", G_REGEX_ERROR_MALFORMED_PROPERTY },
{ "UNKNOWN_PROPERTY", G_REGEX_ERROR_UNKNOWN_PROPERTY },
{ "SUBPATTERN_NAME_TOO_LONG", G_REGEX_ERROR_SUBPATTERN_NAME_TOO_LONG },
{ "TOO_MANY_SUBPATTERNS", G_REGEX_ERROR_TOO_MANY_SUBPATTERNS },
{ "INVALID_OCTAL_VALUE", G_REGEX_ERROR_INVALID_OCTAL_VALUE },
{ "TOO_MANY_BRANCHES_IN_DEFINE", G_REGEX_ERROR_TOO_MANY_BRANCHES_IN_DEFINE },
{ "INCONSISTENT_NEWLINE_OPTIONS", G_REGEX_ERROR_INCONSISTENT_NEWLINE_OPTIONS },
{ "MISSING_BACK_REFERENCE", G_REGEX_ERROR_MISSING_BACK_REFERENCE },
#if VERSION_GLIB >= 234
{ "INVALID_RELATIVE_REFERENCE", G_REGEX_ERROR_INVALID_RELATIVE_REFERENCE },
{ "BACKTRACKING_CONTROL_VERB_ARGUMENT_FORBIDDEN",G_REGEX_ERROR_BACKTRACKING_CONTROL_VERB_ARGUMENT_FORBIDDEN },
{ "UNKNOWN_BACKTRACKING_CONTROL_VERB", G_REGEX_ERROR_UNKNOWN_BACKTRACKING_CONTROL_VERB },
{ "NUMBER_TOO_BIG", G_REGEX_ERROR_NUMBER_TOO_BIG },
{ "MISSING_SUBPATTERN_NAME", G_REGEX_ERROR_MISSING_SUBPATTERN_NAME },
{ "MISSING_DIGIT", G_REGEX_ERROR_MISSING_DIGIT },
{ "INVALID_DATA_CHARACTER", G_REGEX_ERROR_INVALID_DATA_CHARACTER },
{ "EXTRA_SUBPATTERN_NAME", G_REGEX_ERROR_EXTRA_SUBPATTERN_NAME },
{ "BACKTRACKING_CONTROL_VERB_ARGUMENT_REQUIRED",G_REGEX_ERROR_BACKTRACKING_CONTROL_VERB_ARGUMENT_REQUIRED },
{ "INVALID_CONTROL_CHAR", G_REGEX_ERROR_INVALID_CONTROL_CHAR },
{ "MISSING_NAME", G_REGEX_ERROR_MISSING_NAME },
{ "NOT_SUPPORTED_IN_CLASS", G_REGEX_ERROR_NOT_SUPPORTED_IN_CLASS },
{ "TOO_MANY_FORWARD_REFERENCES", G_REGEX_ERROR_TOO_MANY_FORWARD_REFERENCES },
{ "NAME_TOO_LONG", G_REGEX_ERROR_NAME_TOO_LONG },
{ "CHARACTER_VALUE_TOO_LARGE", G_REGEX_ERROR_CHARACTER_VALUE_TOO_LARGE },
#endif
/*---------------------------------------------------------------------------*/
{ NULL, 0 }
};
int Gregex_get_compile_flags (lua_State *L) {
const flag_pair* fps[] = { gregex_compile_flags, NULL };
return get_flags (L, fps);
}
int Gregex_get_match_flags (lua_State *L) {
const flag_pair* fps[] = { gregex_match_flags, NULL };
return get_flags (L, fps);
}
int Gregex_get_flags (lua_State *L) {
const flag_pair* fps[] = { gregex_compile_flags, gregex_match_flags, gregex_error_flags, NULL };
return get_flags (L, fps);
}
|
