From: Laurent Mazet <mazet@softndesign.org>
Date: Tue, 24 Jan 2023 22:05:26 +0000 (+0100)
Subject: full while feature
X-Git-Tag: v0.8~23
X-Git-Url: https://secure.softndesign.org/git/?a=commitdiff_plain;h=09d87caeb9df4b9e5213374d0fb0459cfcebec44;p=calc.git

full while feature
---

diff --git a/calc.c b/calc.c
index 41429cb..7013673 100644
--- a/calc.c
+++ b/calc.c
@@ -291,6 +291,8 @@ int main (int argc, char *argv[])
 // test: echo -e 'sto (1, 4)\ninc (1)\ninc (1)\ndec (1)\ninc (1)\nrcl (1) == 6' | calc.exe -v 3 | grep -q '=> 1'
 // test: echo -e 'inc\ninc (\ndec\ndec (' | calc.exe 2>&1 | grep -c error | xargs test 4 =
 // test: echo -e 'inc (11)\ndec (0)' | calc.exe 2>&1 | grep -c invalid | xargs test 2 =
-// test: echo -e 'whl (inc (1) < 3, sto (rcl (2) + 3))' | calc.exe | xargs test 16 =
+// test: echo -e 'whl (inc (1) < 100, sto (2, rcl (1) + rcl (2)))' | calc.exe | grep -q '=> 5050'
+// test: echo -e 'whl\nwhl (inc (1) < 3,\nwhl (inc (1) < 100, sto (2, rcl (1) + rcl (2))' 2>&1 | calc.exe | grep -c error | xargs test 3 =
+// test: echo -e 'whl (0, 1)' | calc.exe -v 3 | grep -q While
 
 /* vim: set ts=4 sw=4 et: */
diff --git a/parser.c b/parser.c
index 8654fa8..20f507d 100644
--- a/parser.c
+++ b/parser.c
@@ -677,7 +677,12 @@ double evaluate_element (element_t *root, char mask)
     case Ans:
     case Pi:
     case E:
+        break;
     case While:
+        if (root->ops[0] == NULL) {
+            VERBOSE (WARNING, fprintf (stdout, "error while evaluating (op[0])\n"));
+            return 0;
+        }
         break;
     }