bin/expr/expr.y

35 struct val {
45 struct val	*result;
47 void		assert_to_integer(struct val *);
52 int		compare_vals(struct val *, struct val *);
53 void		free_value(struct val *);
55 int		is_string(struct val *);
56 int		is_zero_or_null(struct val *);
57 struct val	*make_integer(intmax_t);
58 struct val	*make_str(const char *);
59 struct val	*op_and(struct val *, struct val *);
60 struct val	*op_colon(struct val *, struct val *);
61 struct val	*op_div(struct val *, struct val *);
62 struct val	*op_eq(struct val *, struct val *);
63 struct val	*op_ge(struct val *, struct val *);
64 struct val	*op_gt(struct val *, struct val *);
65 struct val	*op_le(struct val *, struct val *);
66 struct val	*op_lt(struct val *, struct val *);
67 struct val	*op_minus(struct val *, struct val *);
68 struct val	*op_ne(struct val *, struct val *);
69 struct val	*op_or(struct val *, struct val *);
70 struct val	*op_plus(struct val *, struct val *);
71 struct val	*op_rem(struct val *, struct val *);
72 struct val	*op_times(struct val *, struct val *);
73 int		to_integer(struct val *);
74 void		to_string(struct val *);
82 	struct val *val;
85 %left <val> '|'
86 %left <val> '&'
87 %left <val> '=' '>' '<' GE LE NE
88 %left <val> '+' '-'
89 %left <val> '*' '/' '%'
90 %left <val> ':'
92 %token <val> TOKEN
93 %type <val> start expr
119 struct val *
122 	struct val *vp;
124 	vp = (struct val *)malloc(sizeof(*vp));
133 struct val *
136 	struct val *vp;
138 	vp = (struct val *)malloc(sizeof(*vp));
151 free_value(struct val *vp)
158 to_integer(struct val *vp)
177 assert_to_integer(struct val *vp)
186 to_string(struct val *vp)
227 is_string(struct val *vp)
254 	yylval.val = make_str(p);
259 is_zero_or_null(struct val *vp)
307 struct val *
308 op_or(struct val *a, struct val *b)
321 struct val *
322 op_and(struct val *a, struct val *b)
335 compare_vals(struct val *a, struct val *b)
359 struct val *
360 op_eq(struct val *a, struct val *b)
365 struct val *
366 op_gt(struct val *a, struct val *b)
371 struct val *
372 op_lt(struct val *a, struct val *b)
377 struct val *
378 op_ge(struct val *a, struct val *b)
383 struct val *
384 op_le(struct val *a, struct val *b)
389 struct val *
390 op_ne(struct val *a, struct val *b)
407 struct val *
408 op_plus(struct val *a, struct val *b)
410 	struct val *r;
432 struct val *
433 op_minus(struct val *a, struct val *b)
435 	struct val *r;
470 struct val *
471 op_times(struct val *a, struct val *b)
473 	struct val *r;
495 struct val *
496 op_div(struct val *a, struct val *b)
498 	struct val *r;
511 struct val *
512 op_rem(struct val *a, struct val *b)
514 	struct val *r;
527 struct val *
528 op_colon(struct val *a, struct val *b)
534 	struct val *v;