From 22e16e347de8426620019f6ff2866562cb23252b Mon Sep 17 00:00:00 2001 From: Ian Hinder Date: Fri, 27 Jan 2012 19:39:59 -0600 Subject: [PATCH] KrancScript.m: Add support for variables and temporaries --- Tools/CodeGen/KrancScript.m | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/Tools/CodeGen/KrancScript.m b/Tools/CodeGen/KrancScript.m index d5f1730a..cc8cf4c9 100644 --- a/Tools/CodeGen/KrancScript.m +++ b/Tools/CodeGen/KrancScript.m @@ -95,15 +95,17 @@ process[thorn:"thorn"[content___]] := Module[ - {calcs = {}, name, options}, + {calcs = {}, name, options, variables = {}, temporaries = {}}, Do[Switch[el, "calculation"[___], AppendTo[calcs,process[el]], "name"[_], name = el[[1]], + "variables"[__], variables = Join[variables,List@@Map[process,el]], + "temporaries"[__], temporaries = Join[temporaries,List@@Map[process,el]], _, ThrowError["Unrecognised element '"<>Head[el]<>"' in thorn"]], {el, {content}}]; - options = {Calculations -> calcs}; + options = {Calculations -> calcs, Variables -> variables, Shorthands -> temporaries}; CreateThornTTExpression[groups,parentDirectory,name,Sequence@@options]]; process[calc:"calculation"[content___]] :=