Skip to content

Commit

Permalink
typo
Browse files Browse the repository at this point in the history
  • Loading branch information
Alexander Voigt authored and Alexander Voigt committed Sep 2, 2016
1 parent c3dc206 commit e2a1098
Showing 1 changed file with 8 additions and 8 deletions.
16 changes: 8 additions & 8 deletions meta/FSMathLink.m
Expand Up @@ -136,13 +136,13 @@
ToUTF8String[s_] :=
StringJoin[("\\u0" <> IntegerString[#,16])& /@ ToCharacterCode[ToString[s]]];

ToVaildWolframSymbolString[par_?CConversion`GreekQ] := ToUTF8String[par];
ToVaildWolframSymbolString[par_] := ToString[par];
ToValidWolframSymbolString[par_?CConversion`GreekQ] := ToUTF8String[par];
ToValidWolframSymbolString[par_] := ToString[par];

ToVaildOutputParStr[FlexibleSUSY`Pole[par_]] := ToVaildOutputParStr[par]; (* Pole[x] is not a valid parameter name *)
ToVaildOutputParStr[p:FlexibleSUSY`M[_]] := CConversion`ToValidCSymbolString[p];
ToVaildOutputParStr[FlexibleSUSY`SCALE] := "scale";
ToVaildOutputParStr[par_] := CConversion`ToValidCSymbolString[par];
ToValidOutputParStr[FlexibleSUSY`Pole[par_]] := ToValidOutputParStr[par]; (* Pole[x] is not a valid parameter name *)
ToValidOutputParStr[p:FlexibleSUSY`M[_]] := CConversion`ToValidCSymbolString[p];
ToValidOutputParStr[FlexibleSUSY`SCALE] := "scale";
ToValidOutputParStr[par_] := CConversion`ToValidCSymbolString[par];

WithoutHeads[_[par_]] := WithoutHeads[par];
WithoutHeads[par_] := par;
Expand All @@ -151,8 +151,8 @@
GetMacroFor[par_] := "MODELPARAMETER";

PutParameter[par_, _, link_String] :=
Module[{parStr = ToVaildOutputParStr[par],
parWithoutHeads = ToVaildWolframSymbolString[WithoutHeads[par]]},
Module[{parStr = ToValidOutputParStr[par],
parWithoutHeads = ToValidWolframSymbolString[WithoutHeads[par]]},
"MLPutRuleTo(" <> link <> ", " <> GetMacroFor[par] <> "(" <> parStr <>
"), \"" <> parWithoutHeads <> "\"" <> HeadStr[par] <> ");\n"
];
Expand Down

0 comments on commit e2a1098

Please sign in to comment.