functionEntries::calcEntry: Extended the functionality of multi-statement/multi-line #calc

If the code string is delimited by '#{...#}' multiple lines and multiple code
statements can be used to generate the entry using 'os << ...;'.  This is
equivalent to #codeStream but with a more compact syntax, e.g.

maxAngle        30;
nAngles         7;
Us              #calc
    const vector U($<vector>testCalc2!U);
    const int nAngles = $nAngles;
    const scalar angleStep = ($<scalar>maxAngle)/(nAngles - 1);
    List<vector> Us(nAngles);
    for(int i=0; i<nAngles; i++)
    {
        const scalar angle = degToRad(i*angleStep);
        Us[i] = transform(Ry(angle), U);
    }
    os << Us;

Note the 'os << Us;' statement which writes the data to the dictionary entry in
the same manner as #codeStream, this provides flexibility on how the data is
created and written.

test/dictionary/simpleBlockMeshDict

@@ -18,7 +18,8 @@ max         (2.5 1.2 3.0);      // Maximum coordinates of the block
 nCellsByL   33.3333;            // Number of cells per unit length
 
 // Calculate the number of cells in each block direction
-nCells      #calc #{ Vector<label>($nCellsByL*($<vector>max - $<vector>min) + vector::one/2) #};
+nCells      #calc
+    "Vector<label>($nCellsByL*($<vector>max - $<vector>min) + vector::one/2)";
 
 // Generate the vertices using a boundBox
 #calcInclude "boundBox.H"

test/dictionary/testCalc

@@ -29,15 +29,8 @@ c   #calc "$a / $b";
 
 c   #calc "($a)/$b";
 
-// The code string can be delimited either by '"..."' in which newlines must be
-// escaped or '#{...#}' which directly supports multi-line strings and is more
-// convenient when evaluating string expressions by avoiding the need to
-// escape the quotes, e.g.
-
-c   #calc #{ $a*sqrt($b) #};
-
 s   "field";
-fieldName #calc #{ $<string>s + "Name" #};
+fieldName #calc "$<string>s + \"Name\" ";
 
 // Additional include files for the #calc code compilation can be specified
 // using the #calcInclude entry, e.g. if functions from transform.H are used
@@ -54,4 +47,24 @@ dragDir         #calc "transform(Ry($angle), vector(1, 0, 0))";
 magU            #calc "mag($<vector>testCalc2!U)";
 k               #calc "1.5*magSqr(0.05*$<vector>{${FOAM_CASE}/testCalc2!U})";
 
+// If the code string is delimited by '#{...#}' multiple lines and multiple
+// code statements can be used to generate the entry  using 'os << ...;'.
+// This is equivalent to #codeStream but with a more compact syntax.
+#calcInclude    "transform.H"
+maxAngle        30;
+nAngles         7;
+Us              #calc
+#{
+    const vector U($<vector>testCalc2!U);
+    const int nAngles = $nAngles;
+    const scalar angleStep = ($<scalar>maxAngle)/(nAngles - 1);
+    List<vector> Us(nAngles);
+    for(int i=0; i<nAngles; i++)
+    {
+        const scalar angle = degToRad(i*angleStep);
+        Us[i] = transform(Ry(angle), U);
+    }
+    os << Us;
+#};
+
 // ************************************************************************* //