diff options
author | Eelco Dolstra <e.dolstra@tudelft.nl> | 2003-11-02T17·36+0000 |
---|---|---|
committer | Eelco Dolstra <e.dolstra@tudelft.nl> | 2003-11-02T17·36+0000 |
commit | 40986312bb00f0101a6634db42080daee03f887b (patch) | |
tree | fab15bbbd1debf7ab48c88b73e45943594718903 /src/fix-ng/eval.cc | |
parent | adf9a45469f55258446d383333aa2ca79cfb0536 (diff) |
* Boolean constants.
Diffstat (limited to 'src/fix-ng/eval.cc')
-rw-r--r-- | src/fix-ng/eval.cc | 7 |
1 files changed, 4 insertions, 3 deletions
diff --git a/src/fix-ng/eval.cc b/src/fix-ng/eval.cc index 38a1d81fcfe4..726bc5daeb44 100644 --- a/src/fix-ng/eval.cc +++ b/src/fix-ng/eval.cc @@ -109,8 +109,8 @@ Path evalPath(EvalState & state, Expr e) bool evalBool(EvalState & state, Expr e) { e = evalExpr(state, e); - if (ATmatch(e, "True")) return true; - else if (ATmatch(e, "False")) return false; + if (ATmatch(e, "Bool(True)")) return true; + else if (ATmatch(e, "Bool(False)")) return false; else throw badTerm("expecting a boolean", e); } @@ -124,6 +124,7 @@ Expr evalExpr2(EvalState & state, Expr e) if (ATmatch(e, "Str(<str>)", &s1) || ATmatch(e, "Path(<str>)", &s1) || ATmatch(e, "Uri(<str>)", &s1) || + ATmatch(e, "Bool(<term>)", &e1) || ATmatch(e, "Function([<list>], <term>)", &e1, &e2) || ATmatch(e, "Attrs([<list>])", &e1) || ATmatch(e, "List([<list>])", &e1)) @@ -188,7 +189,7 @@ Expr evalExpr2(EvalState & state, Expr e) if (ATmatch(e, "OpEq(<term>, <term>)", &e1, &e2)) { string s1 = evalString(state, e1); string s2 = evalString(state, e2); - return s1 == s2 ? ATmake("True") : ATmake("False"); + return s1 == s2 ? ATmake("Bool(True)") : ATmake("Bool(False)"); } /* Barf. */ |