aboutsummaryrefslogtreecommitdiff
path: root/Tools/CodeGen/CodeGen.m
diff options
context:
space:
mode:
authorianhin <ianhin>2004-07-07 17:14:39 +0000
committerianhin <ianhin>2004-07-07 17:14:39 +0000
commit39222cd52588c2159560686c13f3300ea0f232de (patch)
treed76b4dc031cd63c1f50323d63da7db0998061087 /Tools/CodeGen/CodeGen.m
parent287e11b52d0e06fab13184032d60a23e6aaf7882 (diff)
Updated for new differencing
Diffstat (limited to 'Tools/CodeGen/CodeGen.m')
-rw-r--r--Tools/CodeGen/CodeGen.m5
1 files changed, 5 insertions, 0 deletions
diff --git a/Tools/CodeGen/CodeGen.m b/Tools/CodeGen/CodeGen.m
index 93b009f..2d32ec6 100644
--- a/Tools/CodeGen/CodeGen.m
+++ b/Tools/CodeGen/CodeGen.m
@@ -88,6 +88,7 @@ InitialiseFDVariables::usage = "";
CommaNewlineSeparated::usage = ""; (* This shouldn't really be in CodeGen *)
CommaSeparated::usage = "";
ReplacePowers::usage = "";
+CFormHideStrings::usage = "";
Begin["`Private`"];
@@ -428,9 +429,13 @@ ReplacePowers[x_] :=
rhs
];
+(* Convert an expression to CForm, but remove the quotes from any
+ strings present *)
+CFormHideStrings[x_, opts___] := StringReplace[ToString[CForm[x,opts]], "\"" -> ""];
End[];
+
EndPackage[];