-
Notifications
You must be signed in to change notification settings - Fork 21
/
example_expr_full.c
62 lines (57 loc) · 2.13 KB
/
example_expr_full.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
59
60
61
62
/* _
* ___ __ _ __ _ _ _(_)
* / __|/ _` |/ _` | | | | |
* \__ \ (_| | (_| | |_| | |
* |___/\__,_|\__, |\__,_|_|
* |___/
*
* Cross-platform library which helps to develop web servers or frameworks.
*
* Copyright (C) 2016-2020 Silvio Clecio <[email protected]>
*
* Sagui library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License as published by the Free Software Foundation; either
* version 2.1 of the License, or (at your option) any later version.
*
* Sagui library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with Sagui library; if not, write to the Free Software
* Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA
*/
#include <stdio.h>
#include <stdlib.h>
#include <math.h>
#include <sagui.h>
#define DUMMY_EXPR \
"$(sum, $1 + $2), x = 2.3, y = 4.5, mul(6.7, sum(x, y)) + 0.11"
/* NOTE: Error checking has been omitted to make it clear. */
static double my_mul(__SG_UNUSED void *cls, struct sg_expr_argument *args,
__SG_UNUSED const char *identifier) {
if (!args)
return NAN;
return sg_expr_arg(args, 0) * sg_expr_arg(args, 1);
}
int main(int argc, const char *argv[]) {
struct sg_expr_extension extensions[] = {
{.func = my_mul, .identifier = "mul", .cls = NULL},
{.func = NULL, .identifier = NULL, .cls = NULL},
};
struct sg_expr *expr;
const char *s = argc == 2 ? argv[1] : DUMMY_EXPR;
int ret;
expr = sg_expr_new();
ret = sg_expr_compile(expr, s, strlen(s), extensions);
if (ret == 0)
printf("Result: %f\n", sg_expr_eval(expr));
else {
printf("%s: %s", s, sg_expr_strerror(expr));
printf("%*s^--- Error near here.\n", sg_expr_near(expr), "");
}
sg_expr_free(expr);
return EXIT_SUCCESS;
}