Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: Splice fails (Mathematica 9; Windows)

• To: mathgroup at smc.vnet.net
• Subject: [mg130327] Re: Splice fails (Mathematica 9; Windows)
• From: a.a.almasy at gmail.com
• Date: Wed, 3 Apr 2013 04:09:02 -0400 (EDT)
• Delivered-to: l-mathgroup@mail-archive0.wolfram.com
• Delivered-to: l-mathgroup@wolfram.com
• Delivered-to: mathgroup-newout@smc.vnet.net
• Delivered-to: mathgroup-newsend@smc.vnet.net
• References: <kgutm5$nsl$1@smc.vnet.net>

I have a similar problem. I am trying to Splice a file but all Mathematica would do is delete the two delimiters <* and *>. The code is:

MyFortranForm[exp_, name_] := Module[{rules, file, out, frm, form},
   rules = {};
   file = name <> ".mf";
   out = OpenWrite[file];
   WriteString[out, name <> " = <* form *> "];
   Close[out];
   form = 
    StringJoin @@ 
     Riffle[With[{splits = 
         StringSplit[ToString@FortranForm[exp //. rules], " "]}, 
       Fold[If[StringLength[Last@#1] + StringLength[#2] > 60, 
          Join[#1, {#2}], 
          Join[Most[#1], {StringJoin[Last[#1], #2]}]] &, {First@
          splits}, Rest[splits]]], "  &\n"] ;
   On[frm];
   Splice[name <> ".mf", PageWidth -> 120];
   FilePrint[name <> ".f"];
   Return[]
   ];

Now when I am using this on an expression:

MyFortranForm[A+B+C, "test"]

it returns:

test = form 

Does anyone has any ideas? I cannot find the problem. Internally form has the right form but it won't get sliced into the file.

Thanks,
Andrea