about summary refs log tree commit diff
path: root/src/locale/pleval.c
diff options
context:
space:
mode:
Diffstat (limited to 'src/locale/pleval.c')
-rw-r--r--src/locale/pleval.c234
1 files changed, 106 insertions, 128 deletions
diff --git a/src/locale/pleval.c b/src/locale/pleval.c
index 03370bcf..961dabc0 100644
--- a/src/locale/pleval.c
+++ b/src/locale/pleval.c
@@ -11,177 +11,155 @@ And   = Eq | And '&&' Eq
 Eq    = Rel | Eq '==' Rel | Eq '!=' Rel
 Rel   = Add | Rel '<=' Add | Rel '>=' Add | Rel '<' Add | Rel '>' Add
 Add   = Mul | Add '+' Mul | Add '-' Mul
-Mul   = Term | Mul '*' Term | Mul '/' Term | Mul '%' Term
-Term  = '(' Expr ')' | '!' Term | decimal | 'n'
+Mul   = Prim | Mul '*' Prim | Mul '/' Prim | Mul '%' Prim
+Prim  = '(' Expr ')' | '!' Prim | decimal | 'n'
 
 internals:
 
 recursive descent expression evaluator with stack depth limit.
-eval* functions return the value of the subexpression and set
-the current string pointer to the next non-space char.
+for binary operators an operator-precedence parser is used.
+eval* functions store the result of the parsed subexpression
+and return a pointer to the next non-space character.
 */
 
 struct st {
-	const char *s;
+	unsigned long r;
 	unsigned long n;
-	int err;
+	int op;
 };
 
-static const char *skipspace(const char *s)
+/* TODO: this should go into ctypes.h */
+#undef isspace
+#define isspace(a) __isspace(a)
+static __inline int __isspace(int _c)
 {
-	while (isspace(*s)) s++;
-	return s;
+	return _c == ' ' || (unsigned)_c-'\t' < 5;
 }
 
-static unsigned long fail(struct st *st)
+static const char *skipspace(const char *s)
 {
-	st->err = 1;
-	return 0;
+	while (isspace(*s)) s++;
+	return s;
 }
 
-static unsigned long evalexpr(struct st *st, int d);
+static const char *evalexpr(struct st *st, const char *s, int d);
 
-static unsigned long evalterm(struct st *st, int d)
+static const char *evalprim(struct st *st, const char *s, int d)
 {
-	unsigned long a;
 	char *e;
-	if (--d < 0) return fail(st);
-	st->s = skipspace(st->s);
-	if (isdigit(*st->s)) {
-		a = strtoul(st->s, &e, 10);
-		if (e == st->s || a == -1) return fail(st);
-		st->s = skipspace(e);
-		return a;
-	}
-	if (*st->s == 'n') {
-		st->s = skipspace(st->s + 1);
-		return st->n;
+	if (--d < 0) return "";
+	s = skipspace(s);
+	if (isdigit(*s)) {
+		st->r = strtoul(s, &e, 10);
+		if (e == s || st->r == -1) return "";
+		return skipspace(e);
 	}
-	if (*st->s == '(') {
-		st->s++;
-		a = evalexpr(st, d);
-		if (*st->s != ')') return fail(st);
-		st->s = skipspace(st->s + 1);
-		return a;
+	if (*s == 'n') {
+		st->r = st->n;
+		return skipspace(s+1);
 	}
-	if (*st->s == '!') {
-		st->s++;
-		return !evalterm(st, d);
+	if (*s == '(') {
+		s = evalexpr(st, s+1, d);
+		if (*s != ')') return "";
+		return skipspace(s+1);
 	}
-	return fail(st);
-}
-
-static unsigned long evalmul(struct st *st, int d)
-{
-	unsigned long b, a = evalterm(st, d);
-	int op;
-	for (;;) {
-		op = *st->s;
-		if (op != '*' && op != '/' && op != '%')
-			return a;
-		st->s++;
-		b = evalterm(st, d);
-		if (op == '*') {
-			a *= b;
-		} else if (!b) {
-			return fail(st);
-		} else if (op == '%') {
-			a %= b;
-		} else {
-			a /= b;
-		}
+	if (*s == '!') {
+		s = evalprim(st, s+1, d);
+		st->r = !st->r;
+		return s;
 	}
+	return "";
 }
 
-static unsigned long evaladd(struct st *st, int d)
+static int binop(struct st *st, int op, unsigned long left)
 {
-	unsigned long a = 0;
-	int sub = 0;
-	for (;;) {
-		a += (sub ? -1 : 1) * evalmul(st, d);
-		if (*st->s != '+' && *st->s != '-')
-			return a;
-		sub = *st->s == '-';
-		st->s++;
+	unsigned long a = left, b = st->r;
+	switch (op) {
+	case 0: st->r = a||b; return 0;
+	case 1: st->r = a&&b; return 0;
+	case 2: st->r = a==b; return 0;
+	case 3: st->r = a!=b; return 0;
+	case 4: st->r = a>=b; return 0;
+	case 5: st->r = a<=b; return 0;
+	case 6: st->r = a>b; return 0;
+	case 7: st->r = a<b; return 0;
+	case 8: st->r = a+b; return 0;
+	case 9: st->r = a-b; return 0;
+	case 10: st->r = a*b; return 0;
+	case 11: if (b) {st->r = a%b; return 0;} return 1;
+	case 12: if (b) {st->r = a/b; return 0;} return 1;
 	}
+	return 1;
 }
 
-static unsigned long evalrel(struct st *st, int d)
+static const char *parseop(struct st *st, const char *s)
 {
-	unsigned long b, a = evaladd(st, d);
-	int less, eq;
-	for (;;) {
-		if (*st->s != '<' && *st->s != '>')
-			return a;
-		less = st->s[0] == '<';
-		eq = st->s[1] == '=';
-		st->s += 1 + eq;
-		b = evaladd(st, d);
-		a = (less ? a < b : a > b) || (eq && a == b);
-	}
-}
-
-static unsigned long evaleq(struct st *st, int d)
-{
-	unsigned long a = evalrel(st, d);
-	int c;
-	for (;;) {
-		c = st->s[0];
-		if ((c != '=' && c != '!') || st->s[1] != '=')
-			return a;
-		st->s += 2;
-		a = (evalrel(st, d) == a) ^ (c == '!');
-	}
-}
-
-static unsigned long evaland(struct st *st, int d)
-{
-	unsigned long a = evaleq(st, d);
-	for (;;) {
-		if (st->s[0] != '&' || st->s[1] != '&')
-			return a;
-		st->s += 2;
-		a = evaleq(st, d) && a;
-	}
+	static const char opch[11] = "|&=!><+-*%/";
+	static const char opch2[6] = "|&====";
+	int i;
+	for (i=0; i<11; i++)
+		if (*s == opch[i]) {
+			/* note: >,< are accepted with or without = */
+			if (i<6 && s[1] == opch2[i]) {
+				st->op = i;
+				return s+2;
+			}
+			if (i>=4) {
+				st->op = i+2;
+				return s+1;
+			}
+			break;
+		}
+	st->op = 13;
+	return s;
 }
 
-static unsigned long evalor(struct st *st, int d)
+static const char *evalbinop(struct st *st, const char *s, int minprec, int d)
 {
-	unsigned long a = evaland(st, d);
+	static const char prec[14] = {1,2,3,3,4,4,4,4,5,5,6,6,6,0};
+	unsigned long left;
+	int op;
+	d--;
+	s = evalprim(st, s, d);
+	s = parseop(st, s);
 	for (;;) {
-		if (st->s[0] != '|' || st->s[1] != '|')
-			return a;
-		st->s += 2;
-		a = evaland(st, d) || a;
+		/*
+		st->r (left hand side value) and st->op are now set,
+		get the right hand side or back out if op has low prec,
+		if op was missing then prec[op]==0
+		*/
+		op = st->op;
+		if (prec[op] <= minprec)
+			return s;
+		left = st->r;
+		s = evalbinop(st, s, prec[op], d);
+		if (binop(st, op, left))
+			return "";
 	}
 }
 
-static unsigned long evalexpr(struct st *st, int d)
+static const char *evalexpr(struct st *st, const char *s, int d)
 {
-	unsigned long a1, a2, a3;
+	unsigned long a, b;
 	if (--d < 0)
-		return fail(st);
-	a1 = evalor(st, d-6);
-	if (*st->s != '?')
-		return a1;
-	st->s++;
-	a2 = evalexpr(st, d);
-	if (*st->s != ':')
-		return fail(st);
-	st->s++;
-	a3 = evalexpr(st, d);
-	return a1 ? a2 : a3;
+		return "";
+	s = evalbinop(st, s, 0, d);
+	if (*s != '?')
+		return s;
+	a = st->r;
+	s = evalexpr(st, s+1, d);
+	if (*s != ':')
+		return "";
+	b = st->r;
+	s = evalexpr(st, s+1, d);
+	st->r = a ? b : st->r;
+	return s;
 }
 
 unsigned long __pleval(const char *s, unsigned long n)
 {
-	unsigned long a;
 	struct st st;
-	st.s = s;
 	st.n = n;
-	st.err = 0;
-	a = evalexpr(&st, 100);
-	if (st.err || *st.s != ';')
-		return -1;
-	return a;
+	s = evalexpr(&st, s, 100);
+	return *s == ';' ? st.r : -1;
 }