diff options
| author | pmarecha | 2008-06-05 08:49:05 +0000 |
|---|---|---|
| committer | pmarecha | 2008-06-05 08:49:05 +0000 |
| commit | 42659d6cdbe63972aea27baf0289db8fcc1310fa (patch) | |
| tree | 05cc1eb42b985cf657be112ae5a2e842a13c2126 /src/Scilab2C/GeneralFunctions/PrintStringInfo.sci | |
| parent | c4ca26eb9d2bbe224e41fc40658279cb865c48fc (diff) | |
| download | scilab2c-42659d6cdbe63972aea27baf0289db8fcc1310fa.tar.gz scilab2c-42659d6cdbe63972aea27baf0289db8fcc1310fa.tar.bz2 scilab2c-42659d6cdbe63972aea27baf0289db8fcc1310fa.zip | |
SVN is not FTP !
Diffstat (limited to 'src/Scilab2C/GeneralFunctions/PrintStringInfo.sci')
| -rw-r--r-- | src/Scilab2C/GeneralFunctions/PrintStringInfo.sci | 56 |
1 files changed, 56 insertions, 0 deletions
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
|