KrancScript.m: Raise an error if an unexpected item is found in a thorn

ianhinder · Jan 28, 2012 · e2d1be2 · e2d1be2
1 parent 6bc7001
commit e2d1be2
Showing 1 changed file with 8 additions and 3 deletions.
diff --git a/Tools/CodeGen/KrancScript.m b/Tools/CodeGen/KrancScript.m
@@ -95,9 +95,14 @@
 
 process[thorn:"thorn"[content___]] :=
   Module[
-    {calcs, name,options},
-    calcs = Cases[thorn, c:"calculation"[___]:>process[c]];
-    name = Cases[thorn, "name"[n_]:>n][[1]];
+    {calcs = {}, name, options},
+
+    Do[Switch[el,
+              "calculation"[___], AppendTo[calcs,process[el]],
+              "name"[_], name = el[[1]],
+              _, ThrowError["Unrecognised element '"<>Head[el]<>"' in thorn"]],
+       {el, {content}}];
+
     options = {Calculations -> calcs};
     CreateThornTTExpression[groups,parentDirectory,name,Sequence@@options]];