From 42659d6cdbe63972aea27baf0289db8fcc1310fa Mon Sep 17 00:00:00 2001
From: pmarecha
Date: Thu, 5 Jun 2008 08:49:05 +0000
Subject: SVN is not FTP !

---
 src/Scilab2C/GeneralFunctions/PrintStringInfo.sci | 56 +++++++++++++++++++++++
 1 file changed, 56 insertions(+)
 create mode 100644 src/Scilab2C/GeneralFunctions/PrintStringInfo.sci

(limited to 'src/Scilab2C/GeneralFunctions/PrintStringInfo.sci')

diff --git a/src/Scilab2C/GeneralFunctions/PrintStringInfo.sci b/src/Scilab2C/GeneralFunctions/PrintStringInfo.sci
new file mode 100644
index 00000000..36377bdc
--- /dev/null
+++ b/src/Scilab2C/GeneralFunctions/PrintStringInfo.sci
@@ -0,0 +1,56 @@
+function PrintStringInfo(str, filename, outputtype, ennewline);
+// function PrintStringInfo(str,filename,outputtype,ennewline);
+// -----------------------------------------------------------------
+// Prints a string into a file or on the stdout or on both.
+//
+// Input data:
+// filename: optional parameter, that specifies the output file.
+//           If filename is '' or it is not provided to the function,
+//           the string will be printed on the stdout.
+// outputtype: 'file' -> prints only on file.
+//             'stdout' -> prints only on the stdout.
+//             'both' -> prints on both file and stdout.
+//             Default is 'stdout'.
+// ennewline: optional (default = 'y'); If y adds a newline character
+//            at the end of the input string.
+// Output data:
+//
+// Status:
+// 02-Jan-2006 -- Nutricato Raffaele: Author.
+// 02-Jan-2006 -- Nutricato Raffaele: TEST OK.
+// 02-May-2006 -- Nutricato Raffaele: Added ennewline.
+// -----------------------------------------------------------------
+
+   if argn(2) < 4
+      ennewline = 'y';
+      if argn(2) < 3
+ 	       outputtype = 'stdout';
+         if argn(2) < 2
+  	         filename = '';
+            if argn(2) < 1
+               str = '';
+            end
+         end
+      end
+      else if argn(2) > 4
+         SCI2CSCI2Cerror('Incorrect number of input arguments.');
+      end
+   end
+
+   if (length(filename) == 0) then 
+      outputtype = 'stdout'; // Prints only on the stdout.
+   end
+
+   if (outputtype=='both') | (outputtype=='stdout')
+      disp(str)
+   end
+
+   if (outputtype=='both') | (outputtype=='file')
+      if (ennewline=='y')
+         filenamefprintf(filename,'y',str);
+      else
+         filenamefprintf(filename,'n',str);
+      end
+   end
+   
+endfunction
-- 
cgit