From 26b77d7593b5ee0792b6b556f5569ea4227c2b02 Mon Sep 17 00:00:00 2001
From: Sunil Shetye
Date: Thu, 16 May 2019 12:18:48 +0530
Subject: convert to unix format

---
 macros/GeneralFunctions/PrintStringInfo.sci | 136 ++++++++++++++--------------
 1 file changed, 68 insertions(+), 68 deletions(-)

(limited to 'macros/GeneralFunctions/PrintStringInfo.sci')

diff --git a/macros/GeneralFunctions/PrintStringInfo.sci b/macros/GeneralFunctions/PrintStringInfo.sci
index a554d122..72b4e320 100644
--- a/macros/GeneralFunctions/PrintStringInfo.sci
+++ b/macros/GeneralFunctions/PrintStringInfo.sci
@@ -1,69 +1,69 @@
-function PrintStringInfo(str, filename, outputtype, ennewline,formattedstring)
-// function PrintStringInfo(str,filename,outputtype,ennewline,formattedstring)
-// -----------------------------------------------------------------
-// #RNU_RES_B
-// 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.
-// formattedstring: if 'n' (default) it means that str is considered as a simple string (mputstr).
-//                  if 'y' then str is considered formatted according to mfprint syntax
-//
-// Output data:
-// ---
-// #RNU_RES_E
-//
-// Status:
-// 02-Jan-2006 -- Nutricato Raffaele: Author.
-// 02-Jan-2006 -- Nutricato Raffaele: TEST OK.
-// 02-May-2006 -- Nutricato Raffaele: Added ennewline.
-//
-// Copyright 2007 Raffaele Nutricato.
-// Contact: raffaele.nutricato@tiscali.it
-// -----------------------------------------------------------------
+function PrintStringInfo(str, filename, outputtype, ennewline,formattedstring)
+// function PrintStringInfo(str,filename,outputtype,ennewline,formattedstring)
+// -----------------------------------------------------------------
+// #RNU_RES_B
+// 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.
+// formattedstring: if 'n' (default) it means that str is considered as a simple string (mputstr).
+//                  if 'y' then str is considered formatted according to mfprint syntax
+//
+// Output data:
+// ---
+// #RNU_RES_E
+//
+// Status:
+// 02-Jan-2006 -- Nutricato Raffaele: Author.
+// 02-Jan-2006 -- Nutricato Raffaele: TEST OK.
+// 02-May-2006 -- Nutricato Raffaele: Added ennewline.
+//
+// Copyright 2007 Raffaele Nutricato.
+// Contact: raffaele.nutricato@tiscali.it
+// -----------------------------------------------------------------
 
-// ------------------------------
-// --- Check input arguments. ---
-// ------------------------------
-SCI2CNInArgCheck(argn(2),0,5);
-
-if argn(2) < 5
-   formattedstring = 'n';
-   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
-   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,formattedstring);
-   else
-      filenamefprintf(filename,'n',str,formattedstring);
-   end
-end
-   
-endfunction
+// ------------------------------
+// --- Check input arguments. ---
+// ------------------------------
+SCI2CNInArgCheck(argn(2),0,5);
+
+if argn(2) < 5
+   formattedstring = 'n';
+   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
+   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,formattedstring);
+   else
+      filenamefprintf(filename,'n',str,formattedstring);
+   end
+end
+   
+endfunction
-- 
cgit