Remove line splitting using standard functions

1 files changed, 5 insertions, 2 deletions

diff --git a/scilab2c/src/Scilab2C/Scilab2C/ASTManagement/SciFile2ASTFile.sci b/scilab2c/src/Scilab2C/Scilab2C/ASTManagement/SciFile2ASTFile.sci
index 943b8e58..40bf7605 100644
--- a/scilab2c/src/Scilab2C/Scilab2C/ASTManagement/SciFile2ASTFile.sci
+++ b/scilab2c/src/Scilab2C/Scilab2C/ASTManagement/SciFile2ASTFile.sci
@@ -2,7 +2,7 @@ function SciFile2ASTFile(SciFile,ASTFile);
 // function SciFile2ASTFile(SciFile,ASTFile);
 // -----------------------------------------------------------------
 // This function makes use of the macr2tree function to generate
-// the ASTFile containing the AST (Abstract Syntactic Tree) of the 
+// the ASTFile containing the AST (Abstract Syntactic Tree) of the
 // input Scilab function (SciFile).
 //
 // Input data:
@@ -28,6 +28,9 @@ AST=eval('macr2tree('+ScilabFunName+')');
 if ASTierr == 0
    mdelete(ASTFile);
 end
-write(ASTFile,string(AST));
+
+fd = mopen(ASTFile, "wt");
+mputl(string(AST), fd);
+mclose(fd);
 
 endfunction