added method for unparsing an expression in Fortran or C

dvm/fdvm/trunk/Sage/lib/newsrc/low_level.c

@@ -1051,6 +1051,29 @@ char *UnparseBif_Char(bif,lang)
    return(s);
 }
 
+/* podd 08.04.24 */
+char *UnparseLLnode_Char(llnd,lang)  
+     PTR_LLND llnd;
+     int lang; /* ForSrc=0 - Fortran language, CSrc=1 - C language */
+{
+    char *s;
+/*  PTR_BLOB b, bl;
+*/ /* podd 15.03.99*/
+  if (Check_Lang_Fortran(cur_proj) && lang != CSrc)  /*podd 16.12.11*/
+    {  
+      Init_Unparser();
+      s = filter(Tool_Unparse2_LLnode(llnd));
+    } else
+      { if(lang == CSrc)
+          Set_Function_Language(CSrc);
+	Init_Unparser();
+	s = Tool_Unparse2_LLnode(llnd);
+        if(lang == CSrc)
+          Unset_Function_Language();
+      }
+   return(s);
+}
+
 /* Kataev N.A. 03.09.2013 base on UnparseBif_Char with change podd 16.12.11
    Kataev N.A. 19.10.2013 fix
 */