diff options
author | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-04-27 16:46:57 +0200 |
---|---|---|
committer | Ian Hinder <ian.hinder@aei.mpg.de> | 2012-04-27 16:46:57 +0200 |
commit | 013239a5a8d8921a43f44818f1dc4bd6a5c0235f (patch) | |
tree | 1d498d3431e5edd20be80e304f207eb48865546d /Tools | |
parent | 0a49d13d8e90ad7912955553fc7f6692b4a75709 (diff) |
ScriptOutput.m: Add comments for unsupported Calculation options
Diffstat (limited to 'Tools')
-rw-r--r-- | Tools/CodeGen/ScriptOutput.m | 13 |
1 files changed, 10 insertions, 3 deletions
diff --git a/Tools/CodeGen/ScriptOutput.m b/Tools/CodeGen/ScriptOutput.m index f1fdeba..462e8d6 100644 --- a/Tools/CodeGen/ScriptOutput.m +++ b/Tools/CodeGen/ScriptOutput.m @@ -108,9 +108,16 @@ DefFn[writeFlags[options_List] := DefFn[ writeCalculation[calc_List] := - beginEndBlock["calculation", lookup[calc, Name], - writeExpression[lookup[calc, Equations]], - Indent -> True]]; + Module[ + {opts,except}, + except = {Equations, Name, Shorthands}; + opts = Select[calc,(!MemberQ[except,#[[1]]]) &]; + beginEndBlock["calculation", lookup[calc, Name], + {"\n", + Riffle[Map["# " <> ToString[#,InputForm] &, opts],"\n\n"], + "\n\n", + writeExpression[lookup[calc, Equations]]}, + Indent -> True]]]; DefFn[ writeDerivatives[pdefs_] := |