From d1cd335c163124e6eada5e0d5ef3219e190bf017 Mon Sep 17 00:00:00 2001
From: jofret
Date: Fri, 27 Feb 2009 09:08:58 +0000
Subject: Remove line splitting using standard functions

---
 src/Scilab2C/Scilab2C/ASTManagement/SciFile2ASTFile.sci | 7 +++++--
 1 file changed, 5 insertions(+), 2 deletions(-)

(limited to 'src')

diff --git a/src/Scilab2C/Scilab2C/ASTManagement/SciFile2ASTFile.sci b/src/Scilab2C/Scilab2C/ASTManagement/SciFile2ASTFile.sci
index 943b8e58..40bf7605 100644
--- a/src/Scilab2C/Scilab2C/ASTManagement/SciFile2ASTFile.sci
+++ b/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
-- 
cgit