2
* Copyright (c) 2008 Kungliga Tekniska Högskolan
3
* (Royal Institute of Technology, Stockholm, Sweden).
6
* Redistribution and use in source and binary forms, with or without
7
* modification, are permitted provided that the following conditions
10
* 1. Redistributions of source code must retain the above copyright
11
* notice, this list of conditions and the following disclaimer.
13
* 2. Redistributions in binary form must reproduce the above copyright
14
* notice, this list of conditions and the following disclaimer in the
15
* documentation and/or other materials provided with the distribution.
17
* 3. Neither the name of the Institute nor the names of its contributors
18
* may be used to endorse or promote products derived from this software
19
* without specific prior written permission.
21
* THIS SOFTWARE IS PROVIDED BY THE INSTITUTE AND CONTRIBUTORS ``AS IS'' AND
22
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
23
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
24
* ARE DISCLAIMED. IN NO EVENT SHALL THE INSTITUTE OR CONTRIBUTORS BE LIABLE
25
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
26
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
27
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
28
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
29
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
30
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
37
_hx509_make_expr(enum hx_expr_op op, void *arg1, void *arg2)
41
expr = malloc(sizeof(*expr));
52
eval_word(hx509_context context, hx509_env env, struct hx_expr *word)
58
if (word->arg2 == NULL)
59
return hx509_env_find(context, env, word->arg1);
61
env = hx509_env_find_binding(context, env, word->arg1);
65
return eval_word(context, env, word->arg2);
72
find_variable(hx509_context context, hx509_env env, struct hx_expr *word)
74
assert(word->op == expr_VAR);
76
if (word->arg2 == NULL)
77
return hx509_env_find_binding(context, env, word->arg1);
79
env = hx509_env_find_binding(context, env, word->arg1);
82
return find_variable(context, env, word->arg2);
86
eval_comp(hx509_context context, hx509_env env, struct hx_expr *expr)
95
s1 = eval_word(context, env, expr->arg1);
96
s2 = eval_word(context, env, expr->arg2);
98
if (s1 == NULL || s2 == NULL)
101
if (expr->op == comp_TAILEQ) {
102
size_t len1 = strlen(s1);
103
size_t len2 = strlen(s2);
107
ret = strcmp(s1 + (len1 - len2), s2) == 0;
109
ret = strcmp(s1, s2) == 0;
110
if (expr->op == comp_NE)
116
struct hx_expr *subexpr;
119
w = eval_word(context, env, expr->arg1);
121
subexpr = expr->arg2;
123
if (subexpr->op == expr_WORDS) {
125
s1 = eval_word(context, env, subexpr->arg1);
126
if (strcmp(w, s1) == 0)
128
subexpr = subexpr->arg2;
130
} else if (subexpr->op == expr_VAR) {
133
subenv = find_variable(context, env, subexpr);
138
if (subenv->type != env_string)
140
if (strcmp(w, subenv->name) == 0)
142
if (strcmp(w, subenv->u.string) == 0)
144
subenv = subenv->next;
148
_hx509_abort("hx509 eval IN unknown op: %d", (int)subexpr->op);
153
_hx509_abort("hx509 eval expr with unknown op: %d", (int)expr->op);
159
_hx509_expr_eval(hx509_context context, hx509_env env, struct hx_expr *expr)
167
return ! _hx509_expr_eval(context, env, expr->arg1);
169
return _hx509_expr_eval(context, env, expr->arg1) &&
170
_hx509_expr_eval(context, env, expr->arg2);
172
return _hx509_expr_eval(context, env, expr->arg1) ||
173
_hx509_expr_eval(context, env, expr->arg2);
175
return eval_comp(context, env, expr->arg1);
177
_hx509_abort("hx509 eval expr with unknown op: %d", (int)expr->op);
182
_hx509_expr_free(struct hx_expr *expr)
194
_hx509_expr_free(expr->arg2);
198
_hx509_expr_free(expr->arg1);
200
_hx509_expr_free(expr->arg2);
207
_hx509_expr_parse(const char *buf)
209
_hx509_expr_input.buf = buf;
210
_hx509_expr_input.length = strlen(buf);
211
_hx509_expr_input.offset = 0;
212
_hx509_expr_input.expr = NULL;
214
if (_hx509_expr_input.error) {
215
free(_hx509_expr_input.error);
216
_hx509_expr_input.error = NULL;
221
return _hx509_expr_input.expr;
225
_hx509_sel_yyerror (char *s)
227
if (_hx509_expr_input.error)
228
free(_hx509_expr_input.error);
230
_hx509_expr_input.error = strdup(s);