fprintf function removed. (obsolete) 10/12410/3
Cedric Delamarre [Mon, 2 Sep 2013 15:48:51 +0000 (17:48 +0200)]
Change-Id: If7410024ae568f8db4855f4fd7210deddda59d49

scilab/CHANGES_5.5.X
scilab/modules/core/tests/nonreg_tests/bug_8086.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_8086.tst
scilab/modules/fileio/help/en_US/fprintf.xml [deleted file]
scilab/modules/fileio/help/ja_JP/fprintf.xml [deleted file]
scilab/modules/fileio/help/ru_RU/fprintf.xml [deleted file]
scilab/modules/fileio/macros/fprintf.sci [deleted file]
scilab/modules/fileio/tests/unit_tests/non-iso-filename.dia.ref
scilab/modules/fileio/tests/unit_tests/non-iso-filename.tst

index e24e436..8cfb130 100644 (file)
@@ -93,6 +93,8 @@ Obsolete
 
 * fscanf is obsolete, use mfscanf for files opened with mopen or read for files opened with file instead.
 
+* fprintf is obsolete, use mfprintf for files opened with mopen or write for files opened with file instead.
+
 Differential_equations
 ======================
 
index d8a0930..30854cf 100644 (file)
@@ -8,7 +8,7 @@
 // <-- Non-regression test for bug 8086 -->
 //
 // <-- CLI SHELL MODE -->
-// 
+//
 // <-- Bugzilla URL -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=8086
 //
@@ -69,7 +69,7 @@ macros_error_type_1 = ["isscalar"; ..
 ];
 msg_error_ref_1 = _("%s: Wrong number of input argument(s): %d expected.\n");
 for i=1:size(macros_error_type_1, "*")
-  assert_checkerror (macros_error_type_1(i) + "()" , msg_error_ref_1 , [] , macros_error_type_1(i) , 1);
+    assert_checkerror (macros_error_type_1(i) + "()" , msg_error_ref_1 , [] , macros_error_type_1(i) , 1);
 end
 // =============================================================================
 macros_error_type_2 = ["base2dec"; ..
@@ -87,13 +87,13 @@ macros_error_type_2 = ["base2dec"; ..
 ];
 msg_error_ref_2 = _("%s: Wrong number of input argument(s): %d expected.\n");
 for i=1:size(macros_error_type_2, "*")
-  assert_checkerror (macros_error_type_2(i) + "()" , msg_error_ref_2 , [] , macros_error_type_2(i) , 2);
+    assert_checkerror (macros_error_type_2(i) + "()" , msg_error_ref_2 , [] , macros_error_type_2(i) , 2);
 end
 // =============================================================================
 macros_error_type_3 = ["complex"];
 msg_error_ref_3 = _("%s: Wrong number of input arguments: %d to %d expected.\n");
 for i=1:size(macros_error_type_3, "*")
-  assert_checkerror (macros_error_type_3(i) + "()" , msg_error_ref_3 , [] , macros_error_type_3(i) , 1, 2);
+    assert_checkerror (macros_error_type_3(i) + "()" , msg_error_ref_3 , [] , macros_error_type_3(i) , 1, 2);
 end
 // =============================================================================
 macros_error_type_4 = ["max"; ..
@@ -101,16 +101,13 @@ macros_error_type_4 = ["max"; ..
 "system"];
 msg_error_ref_4 = _("%s: Wrong number of input argument(s).\n");
 for i=1:size(macros_error_type_4, "*")
-  assert_checkerror (macros_error_type_4(i) + "()" , msg_error_ref_4 , [] , macros_error_type_4(i));
+    assert_checkerror (macros_error_type_4(i) + "()" , msg_error_ref_4 , [] , macros_error_type_4(i));
 end
-wMode = warning("query");
-warning("off")
-assert_checkerror ("fprintf()" , msg_error_ref_4 , [] , "fprintf");
 // =============================================================================
 macros_error_type_5 = ["resize_matrix"];
 msg_error_ref_5 = _("%s: Wrong number of input argument(s): %d to %d expected.\n");
 for i=1:size(macros_error_type_5, "*")
-  assert_checkerror (macros_error_type_5(i) + "()" , msg_error_ref_5 , [] , macros_error_type_5(i) , 3, 4);
+    assert_checkerror (macros_error_type_5(i) + "()" , msg_error_ref_5 , [] , macros_error_type_5(i) , 3, 4);
 end
+assert_checkerror ("mfprintf()" , msg_error_ref_5 , [] , "mfprintf", 1, 1000);
 // =============================================================================
-warning(wMode);
index d8a0930..30854cf 100644 (file)
@@ -8,7 +8,7 @@
 // <-- Non-regression test for bug 8086 -->
 //
 // <-- CLI SHELL MODE -->
-// 
+//
 // <-- Bugzilla URL -->
 // http://bugzilla.scilab.org/show_bug.cgi?id=8086
 //
@@ -69,7 +69,7 @@ macros_error_type_1 = ["isscalar"; ..
 ];
 msg_error_ref_1 = _("%s: Wrong number of input argument(s): %d expected.\n");
 for i=1:size(macros_error_type_1, "*")
-  assert_checkerror (macros_error_type_1(i) + "()" , msg_error_ref_1 , [] , macros_error_type_1(i) , 1);
+    assert_checkerror (macros_error_type_1(i) + "()" , msg_error_ref_1 , [] , macros_error_type_1(i) , 1);
 end
 // =============================================================================
 macros_error_type_2 = ["base2dec"; ..
@@ -87,13 +87,13 @@ macros_error_type_2 = ["base2dec"; ..
 ];
 msg_error_ref_2 = _("%s: Wrong number of input argument(s): %d expected.\n");
 for i=1:size(macros_error_type_2, "*")
-  assert_checkerror (macros_error_type_2(i) + "()" , msg_error_ref_2 , [] , macros_error_type_2(i) , 2);
+    assert_checkerror (macros_error_type_2(i) + "()" , msg_error_ref_2 , [] , macros_error_type_2(i) , 2);
 end
 // =============================================================================
 macros_error_type_3 = ["complex"];
 msg_error_ref_3 = _("%s: Wrong number of input arguments: %d to %d expected.\n");
 for i=1:size(macros_error_type_3, "*")
-  assert_checkerror (macros_error_type_3(i) + "()" , msg_error_ref_3 , [] , macros_error_type_3(i) , 1, 2);
+    assert_checkerror (macros_error_type_3(i) + "()" , msg_error_ref_3 , [] , macros_error_type_3(i) , 1, 2);
 end
 // =============================================================================
 macros_error_type_4 = ["max"; ..
@@ -101,16 +101,13 @@ macros_error_type_4 = ["max"; ..
 "system"];
 msg_error_ref_4 = _("%s: Wrong number of input argument(s).\n");
 for i=1:size(macros_error_type_4, "*")
-  assert_checkerror (macros_error_type_4(i) + "()" , msg_error_ref_4 , [] , macros_error_type_4(i));
+    assert_checkerror (macros_error_type_4(i) + "()" , msg_error_ref_4 , [] , macros_error_type_4(i));
 end
-wMode = warning("query");
-warning("off")
-assert_checkerror ("fprintf()" , msg_error_ref_4 , [] , "fprintf");
 // =============================================================================
 macros_error_type_5 = ["resize_matrix"];
 msg_error_ref_5 = _("%s: Wrong number of input argument(s): %d to %d expected.\n");
 for i=1:size(macros_error_type_5, "*")
-  assert_checkerror (macros_error_type_5(i) + "()" , msg_error_ref_5 , [] , macros_error_type_5(i) , 3, 4);
+    assert_checkerror (macros_error_type_5(i) + "()" , msg_error_ref_5 , [] , macros_error_type_5(i) , 3, 4);
 end
+assert_checkerror ("mfprintf()" , msg_error_ref_5 , [] , "mfprintf", 1, 1000);
 // =============================================================================
-warning(wMode);
diff --git a/scilab/modules/fileio/help/en_US/fprintf.xml b/scilab/modules/fileio/help/en_US/fprintf.xml
deleted file mode 100644 (file)
index ef61e2c..0000000
+++ /dev/null
@@ -1,151 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2008 - INRIA
- * ...
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
- *
- -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="fprintf">
-    <refnamediv>
-        <refname>fprintf</refname>
-        <refpurpose>
-            Emulator of C language fprintf function. <emphasis role="bold">This function is obsolete.</emphasis>
-        </refpurpose>
-    </refnamediv>
-    <refsynopsisdiv>
-        <title>Calling Sequence</title>
-        <synopsis>fprintf(file, format, value_1, ..., value_n)</synopsis>
-    </refsynopsisdiv>
-    <refsection>
-        <title>Arguments</title>
-        <variablelist>
-            <varlistentry>
-                <term>format</term>
-                <listitem>
-                    <para>a Scilab string. It specifies a character string combining literal characters with conversion specifications.</para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>value_i</term>
-                <listitem>
-                    <para>
-                        specifies the data to be converted according to the <varname>format</varname> parameter.
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>file</term>
-                <listitem>
-                    <para>
-                        a Scilab string specifying a file name or a logical unit number (see <link linkend="file">file</link>)
-                    </para>
-                    <para>
-                        Note that if <varname>file</varname>=0, the message will be display on standard error stream (stderr).
-                    </para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-    </refsection>
-    <refsection>
-        <title>Description</title>
-        <para>
-            <caution>
-                This function is obsolete and will be removed in Scilab 5.5.0, use preferabily the <link
-        linkend="mfprintf">mfprintf</link> function which is much more
-                compatible with the C <function>fprintf</function> functionalities.
-            </caution>
-        </para>
-        <para>
-            The <function>fprintf</function> function converts, formats, and writes
-            its <varname>value</varname> parameters, under control of the <varname>format</varname>
-            parameter, to the file specified by its <varname>file</varname> parameter.
-        </para>
-        <para>
-            The <varname>format</varname> parameter is a character string that contains two
-            types of objects:
-        </para>
-        <variablelist>
-            <varlistentry>
-                <term>Literal characters</term>
-                <listitem>
-                    <para>which are copied to the output stream.</para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>Conversion specifications</term>
-                <listitem>
-                    <para>
-                        each of which causes zero or more items to be fetched from the <varname>value</varname> parameter list. See <link linkend="printf_conversion">printf_conversion</link> for details.
-                    </para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-        <para>
-            If any <varname>value</varname>s remain after the entire <varname>format</varname> has been
-            processed, they are ignored.
-        </para>
-    </refsection>
-    <refsection>
-        <title>Examples</title>
-        <programlisting role="example"><![CDATA[ 
-u=file('open',fullfile(TMPDIR,'results'),'unknown') //open the result file
-t=0:0.1:2*%pi;
-for tk=t
-  fprintf(u,'time = %6.3f value = %6.3f',tk,sin(tk)) // write a line
-end
-file('close',u) //close the result file
-
-fprintf(0,'My error which is going to be displayed on the stderr') 
- ]]></programlisting>
-    </refsection>
-    <refsection>
-        <title>History</title>
-        <revhistory>
-            <revision>
-                <revnumber>5.4.1</revnumber>
-                <revremark>Function tagged as obsolete. Will be removed in 5.5.0.</revremark>
-            </revision>
-        </revhistory>
-    </refsection>
-    <refsection role="see also">
-        <title>See Also</title>
-        <simplelist type="inline">
-            <member>
-                <link linkend="mfprintf">mfprintf</link>
-            </member>
-            <member>
-                <link linkend="string">string</link>
-            </member>
-            <member>
-                <link linkend="print">print</link>
-            </member>
-            <member>
-                <link linkend="write">write</link>
-            </member>
-            <member>
-                <link linkend="format">format</link>
-            </member>
-            <member>
-                <link linkend="disp">disp</link>
-            </member>
-            <member>
-                <link linkend="file">file</link>
-            </member>
-            <member>
-                <link linkend="mprintf">mprintf</link>
-            </member>
-            <member>
-                <link linkend="msprintf">msprintf</link>
-            </member>
-            <member>
-                <link linkend="printf_conversion">printf_conversion</link>
-            </member>
-        </simplelist>
-    </refsection>
-</refentry>
diff --git a/scilab/modules/fileio/help/ja_JP/fprintf.xml b/scilab/modules/fileio/help/ja_JP/fprintf.xml
deleted file mode 100644 (file)
index f3b60a0..0000000
+++ /dev/null
@@ -1,157 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2008 - INRIA
- * ...
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
- *
- -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="fprintf">
-    <refnamediv>
-        <refname>fprintf</refname>
-        <refpurpose>C言語のfprintf関数のエミュレーション</refpurpose>
-    </refnamediv>
-    <refsynopsisdiv>
-        <title>呼び出し手順</title>
-        <synopsis>fprintf(file,format,value_1,..,value_n)</synopsis>
-    </refsynopsisdiv>
-    <refsection>
-        <title>パラメータ</title>
-        <variablelist>
-            <varlistentry>
-                <term>format</term>
-                <listitem>
-                    <para>Scilab 文字列. 
-                        リテラル文字と変換指定子を組み合わせた文字列を指定.
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>value_i</term>
-                <listitem>
-                    <para>
-                        フォーマットパラメータに基づき変換されるデータを指定.
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>str</term>
-                <listitem>
-                    <para>文字列の列ベクトル</para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>file</term>
-                <listitem>
-                    <para>
-                        ファイル名または論理ユニット番号を指定する
-                        Scilab文字列 (<literal>file</literal>参照)
-                    </para>
-                    <para>
-                        file=0の場合, 
-                        メッセージは標準エラーストリーム(stderr)に出力されます.
-                    </para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-    </refsection>
-    <refsection>
-        <title>説明</title>
-        <para> 
-            古い関数であり,
-            C言語の<literal>fprintf</literal>の機能との互換性がはるかに高い
-            <link linkend="mfprintf">mfprintf</link>関数の使用を推奨します.
-        </para>
-        <para>
-            <literal>fprintf</literal> 関数は,
-            <literal>format</literal>パラメータの制御の下で
-            
-            <literal>value</literal>パラメータを変換,整形し,
-            <literal>file</literal>パラメータで指定されたファイルに
-            書き込みます.
-        </para>
-        <para>
-            <literal>format</literal> パラメータは
-            以下の2つの型のオブジェクトを有します:
-        </para>
-        <variablelist>
-            <varlistentry>
-                <term>リテラル文字</term>
-                <listitem>
-                    <para>
-                        出力ストリームにコピーする文字.
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>変換指定子</term>
-                <listitem>
-                    <para>
-                        各々は,1個以上のアイテムを
-                        <literal>value</literal>パラメータのリストから取得します.
-                        詳細は <link linkend="printf_conversion">printf_conversion</link> を
-                        参照ください.
-                    </para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-        <para>
-            <literal>format</literal>を全て処理した後,
-            <literal>value</literal>がまだ残っている場合,
-            それらは無視されます.
-        </para>
-    </refsection>
-    <refsection>
-        <title>例</title>
-        <programlisting role="example"><![CDATA[ 
-u=file('open','results','unknown') //結果ファイルを開く
-t=0:0.1:2*%pi;
-for tk=t
-  fprintf(u,'time = %6.3f value = %6.3f',tk,sin(tk)) // 1行書き込む
-end
-file('close',u) //結果ファイルを閉じる
-
-fprintf(0,'My error which is going to be displayed on the stderr') 
- ]]></programlisting>
-    </refsection>
-    <refsection role="see also">
-        <title>参照</title>
-        <simplelist type="inline">
-            <member>
-                <link linkend="mfprintf">mfprintf</link>
-            </member>
-            <member>
-                <link linkend="string">string</link>
-            </member>
-            <member>
-                <link linkend="print">print</link>
-            </member>
-            <member>
-                <link linkend="write">write</link>
-            </member>
-            <member>
-                <link linkend="format">format</link>
-            </member>
-            <member>
-                <link linkend="disp">disp</link>
-            </member>
-            <member>
-                <link linkend="file">file</link>
-            </member>
-            <member>
-                <link linkend="mprintf">mprintf</link>
-            </member>
-            <member>
-                <link linkend="msprintf">msprintf</link>
-            </member>
-            <member>
-                <link linkend="printf_conversion">printf_conversion</link>
-            </member>
-        </simplelist>
-    </refsection>
-</refentry>
diff --git a/scilab/modules/fileio/help/ru_RU/fprintf.xml b/scilab/modules/fileio/help/ru_RU/fprintf.xml
deleted file mode 100644 (file)
index 269ad9f..0000000
+++ /dev/null
@@ -1,155 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2008 - INRIA
- * ...
- * 
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at    
- * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
- *
- -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ru" xml:id="fprintf">
-    <refnamediv>
-        <refname>fprintf</refname>
-        <refpurpose>
-            Эмулятор функции fprintf, написанной на языке C. <emphasis>Это
-                устаревшая функция.
-            </emphasis>
-        </refpurpose>
-    </refnamediv>
-    <refsynopsisdiv>
-        <title>Последовательность вызова</title>
-        <synopsis>fprintf(file, format, value_1,..., value_n)</synopsis>
-    </refsynopsisdiv>
-    <refsection>
-        <title>Аргументы</title>
-        <variablelist>
-            <varlistentry>
-                <term>format</term>
-                <listitem>
-                    <para>
-                        Строка Scilab'а. Она определяет символьную строку,
-                        сочетающую символы со спецификациями преобразования.
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>value_i</term>
-                <listitem>
-                    <para>
-                        определяет данные, которые должны быть преобразованы в
-                        соответствии с параметром формата <varname>format</varname>.
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>file</term>
-                <listitem>
-                    <para>
-                        строка Scilab'а, определяющая имя файла или номер
-                        логического блока (см. <link linkend="file">file</link>).
-                    </para>
-                    <para>
-                        Заметьте, что, если <varname>file</varname>=0, то сообщение будет
-                        отображено в стандартном потоке вывода сообщений об ошибках (stderr).
-                    </para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-    </refsection>
-    <refsection>
-        <title>Описание</title>
-        <para>
-            <caution>
-                Эта функция устарела, лучше использовать функцию <link
-        linkend="mfprintf">mfprintf</link>, которая гораздо более
-                совместима с возможностями C-функции <function>fprintf</function>.
-            </caution>
-        </para>
-        <para>
-            Функция <function>fprintf</function> преобразует, форматирует и
-            записывает свои параметры <varname>value</varname> под
-            управлением параметра <varname>format</varname> в файл,
-            определённый своим параметром <varname>file</varname>.
-        </para>
-        <para>
-            Параметр <varname>format</varname> является символьной строкой,
-            которая содержит два типа объектов:
-        </para>
-        <variablelist>
-            <varlistentry>
-                <term>Литералы</term>
-                <listitem>
-                    <para>которые копируются в выходной поток.</para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>Определения преобразования</term>
-                <listitem>
-                    <para>
-                        каждый из которых заставляет получать ноль или более
-                        пунктов из списка параметров
-                        <varname>value</varname>. См. <link
-            linkend="printf_conversion">printf_conversion</link>. 
-                    </para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-        <para>
-            Если остались какие-либо <varname>value</varname> после того как
-            весь <varname>format</varname> был обработан, они игнорируются.
-        </para>
-    </refsection>
-    <refsection>
-        <title>Примеры</title>
-        <programlisting role="example"><![CDATA[ 
-u=file('open',fullfile(TMPDIR,'results'),'unknown') //открываем файл с именем result 
-t=0:0.1:2*%pi;
-for tk=t
-  fprintf(u,'время = %6.3f значение = %6.3f',tk,sin(tk)) // записываем строчку
-end
-file('close',u) // закрываем файл result
-fprintf(0,'Моя ошибка, которая будет отображена в stderr') 
- ]]></programlisting>
-    </refsection>
-    <refsection role="see also">
-        <title>Смотрите также</title>
-        <simplelist type="inline">
-            <member>
-                <link linkend="mfprintf">mfprintf</link>
-            </member>
-            <member>
-                <link linkend="string">string</link>
-            </member>
-            <member>
-                <link linkend="print">print</link>
-            </member>
-            <member>
-                <link linkend="write">write</link>
-            </member>
-            <member>
-                <link linkend="format">format</link>
-            </member>
-            <member>
-                <link linkend="disp">disp</link>
-            </member>
-            <member>
-                <link linkend="file">file</link>
-            </member>
-            <member>
-                <link linkend="mprintf">mprintf</link>
-            </member>
-            <member>
-                <link linkend="msprintf">msprintf</link>
-            </member>
-            <member>
-                <link linkend="printf_conversion">printf_conversion</link>
-            </member>
-        </simplelist>
-    </refsection>
-</refentry>
-
diff --git a/scilab/modules/fileio/macros/fprintf.sci b/scilab/modules/fileio/macros/fprintf.sci
deleted file mode 100644 (file)
index 2920333..0000000
+++ /dev/null
@@ -1,76 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) XXXX-2008 - INRIA
-// Copyright (C) 2009-2011 - DIGITEO - Allan CORNET
-//
-// This file must be used under the terms of the CeCILL.
-// This source file is licensed as described in the file COPYING, which
-// you should have received as part of this distribution.  The terms
-// are also available at
-// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
-
-
-function fprintf(fil, frmt, varargin)
-    // fprintf - Emulator of C language fprintf
-    //
-
-    warnobsolete("mfprintf","5.5.0");
-
-    [lhs, rhs] = argn(0);
-    if rhs < 2 then
-        error(999, msprintf(gettext("%s: Wrong number of input argument(s).\n"), "fprintf"));
-    end
-
-    if (type(frmt) <> 10) then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: A String expected.\n"),"fprintf",2));
-    end
-
-    if size(frmt,"*")<>1 then
-        error(999, msprintf(gettext("%s: Wrong size for input argument #%d: A String expected.\n"),"fprintf",2));
-    end
-
-    if (type(fil) == 1) then
-
-        if size(fil,"*")<>1 then
-            error(999, msprintf(gettext("%s: Wrong size for input argument #%d: A file descriptor expected.\n"),"fprintf",1));
-        end
-
-        [units,typ] = file();
-        k = find( units == fil );
-        if ((k == []) & (fil <> 0)) then
-            error(999, msprintf(gettext("%s: Wrong value for input argument #%d: A valid file descriptor expected.\n"),"fprintf",1));
-        else
-            if ( typ(k) == "F" ) then
-                write(fil,sprintf(frmt,varargin(:)),"(a)")
-            else // C Format
-                mfprintf(fil,frmt,varargin(:))
-            end
-        end
-
-    else
-
-        if (type(fil) == 10) then
-
-            if size(fil,"*")<>1 then
-                error(999, msprintf(gettext("%s: Wrong size for input argument #%d: A filename expected.\n")),"fprintf",1);
-            end
-
-            [units, typ, filnams] = file();
-            k = find( filnams == fil );
-            if (k == []) then
-                fd = mopen(fil,"at");
-                mfprintf(fd,frmt,varargin(:))
-            else
-                if ( typ(k) == "F" ) then
-                    write(units(k),sprintf(frmt,varargin(:)),"(a)")
-                else
-                    mfprintf(units(k),frmt,varargin(:))
-                end
-
-            end
-        else
-            error(999, msprintf(gettext("%s: Wrong type for input argument #%d: A filename or file descriptor expected.\n"),"fprintf",1));
-        end
-
-    end
-
-endfunction
index 9f02fab..69a9215 100644 (file)
@@ -34,7 +34,7 @@ olddir=pwd();
     // =========================================================================
     fd=mopen(fileName,'w');
     if (fileinfo(fileName)==[]) then bugmes();quit;end
-    mclose(fd);// ok 
+    mclose(fd);// ok
     // 4. copyfile (host,unix)
     // =========================================================================
     copyfile(fileName,fileWithExt);
@@ -48,24 +48,21 @@ olddir=pwd();
     mputl([specialName+'1';specialName+'2'],fileName+'_mputl');
     if (fileinfo(fileName+'_mputl')==[]) then bugmes();quit;end
     fd=mopen(fileName+"_"+specialName,'w');
-    mfprintf(fd,'%s %f',specialName+'3',%pi); 
+    mfprintf(fd,'%s %f',specialName+'3',%pi);
     filestuff=fileinfo(fileName+"_"+specialName);
     if (filestuff==[] & filestuff(1)>0) then bugmes();quit;end
     mclose(fd);
-    // 6. Fortran style open/close 
+    // 6. Fortran style open/close
     // filename fixed, but string in fortran file still in UTF encoding
     // =========================================================================
     fd = mopen(fileName+'_open','w');
     if (fileinfo(fileName+'_open')==[]) then bugmes();quit;end
-    wMode = warning("query");
-    warning("off");
-    fprintf(fd,'%s %f',specialName+'3',%pi);
-    warning(wMode);
+    mfprintf(fd,'%s %f',specialName+'3',%pi);
     filestuff=fileinfo(fileName+'_open');
     if (filestuff==[] & filestuff(1)>0) then bugmes();quit;end
     mclose(fd);
     fd = mopen(fileName+'_fprintf','wt');
-    mfprintf(fd,'%s %s',specialName+'3',string(%pi)); 
+    mfprintf(fd,'%s %s',specialName+'3',string(%pi));
     mclose(fd);
     filestuff=fileinfo(fileName+'_fprintf');
     if (filestuff==[] & filestuff(1)>0) then bugmes();quit;end
@@ -130,7 +127,7 @@ olddir=pwd();
     // =========================================================================
     fd=mopen(fileName,'w');
     if (fileinfo(fileName)==[]) then bugmes();quit;end
-    mclose(fd);// ok 
+    mclose(fd);// ok
     // 4. copyfile (host,unix)
     // =========================================================================
     copyfile(fileName,fileWithExt);
@@ -144,11 +141,11 @@ olddir=pwd();
     mputl([specialName+'1';specialName+'2'],fileName+'_mputl');
     if (fileinfo(fileName+'_mputl')==[]) then bugmes();quit;end
     fd=mopen(fileName+"_"+specialName,'w');
-    mfprintf(fd,'%s %f',specialName+'3',%pi); 
+    mfprintf(fd,'%s %f',specialName+'3',%pi);
     filestuff=fileinfo(fileName+"_"+specialName);
     if (filestuff==[] & filestuff(1)>0) then bugmes();quit;end
     mclose(fd);
-    // 6. Fortran style open/close 
+    // 6. Fortran style open/close
     // filename fixed, but string in fortran file still in UTF encoding
     // =========================================================================
     fd = mopen(fileName+'_open','w');
@@ -158,7 +155,7 @@ olddir=pwd();
     if (filestuff==[] & filestuff(1)>0) then bugmes();quit;end
     mclose(fd);
     fd = mopen(fileName+'_fprintf','wt');
-    mfprintf(fd,'%s %s',specialName+'3',string(%pi)); 
+    mfprintf(fd,'%s %s',specialName+'3',string(%pi));
     mclose(fd);
     filestuff=fileinfo(fileName+'_fprintf');
     if (filestuff==[] & filestuff(1)>0) then bugmes();quit;end
index fe44ae8..5e4e398 100644 (file)
@@ -20,199 +20,196 @@ olddir=pwd();
 
     specialName = '中文';
     cd TMPDIR;
-    
+
     // for CP950, BIG5with character code > 127
     // and western charset
-    
+
     dirName     = 'dir_'+specialName;
     fileName    = 'file_'+specialName;
     fileWithExt = 'file_'+specialName+'.ext';
-    
+
     // 1. test mkdir, createdir,cd
     // =========================================================================
-    
+
     mkdir(dirName);
     if isdir(dirName) == %f then pause, end
     createdir(dirName+'_other');
     if isdir(dirName+'_other') == %f then pause, end
     cd(dirName);
-    
-    
+
+
     // 2. Fix bug in  sci_pwd, for pwd
     // =========================================================================
-    
+
     if ~(length(pwd()) > 0) then pause, end
-    
-    
+
+
     // 3. test mopen
     // =========================================================================
-    
+
     fd=mopen(fileName,'w');
     if (fileinfo(fileName)==[]) then pause, end
-    mclose(fd);// ok 
-    
-    
+    mclose(fd);// ok
+
+
     // 4. copyfile (host,unix)
     // =========================================================================
-    
+
     copyfile(fileName,fileWithExt);
     if (fileinfo(fileWithExt)==[]) then pause, end
     deletefile(fileWithExt);
     copyfile(fileName,'../'+dirName+'_other');
     if (fileinfo('../'+dirName+'_other/'+fileName)==[]) then pause, end
     deletefile('../'+dirName+'_other/'+fileName);
-    
-    
+
+
     // 5. mputl, mfprintf
     // =========================================================================
-    
+
     mputl([specialName+'1';specialName+'2'],fileName+'_mputl');
     if (fileinfo(fileName+'_mputl')==[]) then pause, end
     fd=mopen(fileName+"_"+specialName,'w');
-    mfprintf(fd,'%s %f',specialName+'3',%pi); 
+    mfprintf(fd,'%s %f',specialName+'3',%pi);
     filestuff=fileinfo(fileName+"_"+specialName);
     if (filestuff==[] & filestuff(1)>0) then pause, end
     mclose(fd);
-    
-    
-    // 6. Fortran style open/close 
+
+
+    // 6. Fortran style open/close
     // filename fixed, but string in fortran file still in UTF encoding
     // =========================================================================
     fd = mopen(fileName+'_open','w');
     if (fileinfo(fileName+'_open')==[]) then pause, end
-    wMode = warning("query");
-    warning("off");
-    fprintf(fd,'%s %f',specialName+'3',%pi);
-    warning(wMode);
+    mfprintf(fd,'%s %f',specialName+'3',%pi);
     filestuff=fileinfo(fileName+'_open');
     if (filestuff==[] & filestuff(1)>0) then pause, end
     mclose(fd);
-    
+
     fd = mopen(fileName+'_fprintf','wt');
-    mfprintf(fd,'%s %s',specialName+'3',string(%pi)); 
+    mfprintf(fd,'%s %s',specialName+'3',string(%pi));
     mclose(fd);
     filestuff=fileinfo(fileName+'_fprintf');
     if (filestuff==[] & filestuff(1)>0) then pause, end
-    
+
     fprintfMat(fileName+"_Mat_"+specialName,[11,12;21,22],'%5.2f',specialName+'_fprintfMat Test');
     filestuff=fileinfo(fileName+"_Mat_"+specialName);
     if (filestuff==[] & filestuff(1)>0) then pause, end
-    
-    
+
+
     // 7. findfiles.c
     // =========================================================================
-    
+
     A = [ 'file_中文_fprintf'; ..
           'file_中文_mputl'; ..
           'file_中文_open'; ..
           'file_中文_Mat_中文'; ..
           'file_中文_中文'; ..
           'file_中文'];
-          
+
     B = ls();
     if(or(gsort(A) <> gsort(B))) then pause,end;
-    
+
     B = listfiles();
     if(or(gsort(A) <> gsort(B))) then pause,end;
-    
+
     B = dir();
     if(or(gsort(A) <> gsort(B(2)))) then pause,end;
-    
+
     B = findfiles('.','*');
     if(or(gsort(A) <> gsort(B))) then pause,end;
-    
+
     B = ls('../'+dirName);
     if(or(gsort(A) <> gsort(B))) then pause,end;
-    
+
     B = listfiles('../'+dirName);
     if(or(gsort(A) <> gsort(B))) then pause,end;
-    
+
     B = dir('../'+dirName);
     if(or(gsort(A) <> gsort(B(2)))) then pause,end;
-    
+
     B = findfiles('.','*'+specialName+'*');
     if(or(gsort(A) <> gsort(B))) then pause,end;
-    
-    
+
+
     // 8. test getshortpathname,getlongpathname
     // =========================================================================
-    
+
     sname=getshortpathname(fileName);
     if ~(length(sname) > 0) then pause, end
     lname=getlongpathname(sname);
     if ~(length(lname) > 0) then pause, end
-    
-    
+
+
     // 9. test deletefile, removedir
     // =========================================================================
-    
+
     removedir('../'+dirName+'_other');
     chdir("..");
     removedir(dirName);
-    
-    
-    
+
+
+
 // æøå
 // =============================================================================
 
     specialName = 'æøå';
     cd TMPDIR;
-    
+
     // for CP950, BIG5with character code > 127
     // and western charset
-    
+
     dirName     = 'dir_'+specialName;
     fileName    = 'file_'+specialName;
     fileWithExt = 'file_'+specialName+'.ext';
-    
+
     // 1. test mkdir, createdir,cd
     // =========================================================================
-    
+
     mkdir(dirName);
     if isdir(dirName) == %f then pause, end
     createdir(dirName+'_other');
     if isdir(dirName+'_other') == %f then pause, end
     cd(dirName);
-    
-    
+
+
     // 2. Fix bug in  sci_pwd, for pwd
     // =========================================================================
-    
+
     if ~(length(pwd()) > 0) then pause, end
-    
-    
+
+
     // 3. test mopen
     // =========================================================================
-    
+
     fd=mopen(fileName,'w');
     if (fileinfo(fileName)==[]) then pause, end
-    mclose(fd);// ok 
-    
-    
+    mclose(fd);// ok
+
+
     // 4. copyfile (host,unix)
     // =========================================================================
-    
+
     copyfile(fileName,fileWithExt);
     if (fileinfo(fileWithExt)==[]) then pause, end
     deletefile(fileWithExt);
     copyfile(fileName,'../'+dirName+'_other');
     if (fileinfo('../'+dirName+'_other/'+fileName)==[]) then pause, end
     deletefile('../'+dirName+'_other/'+fileName);
-    
-    
+
+
     // 5. mputl, mfprintf
     // =========================================================================
-    
+
     mputl([specialName+'1';specialName+'2'],fileName+'_mputl');
     if (fileinfo(fileName+'_mputl')==[]) then pause, end
     fd=mopen(fileName+"_"+specialName,'w');
-    mfprintf(fd,'%s %f',specialName+'3',%pi); 
+    mfprintf(fd,'%s %f',specialName+'3',%pi);
     filestuff=fileinfo(fileName+"_"+specialName);
     if (filestuff==[] & filestuff(1)>0) then pause, end
     mclose(fd);
-    
-    
-    // 6. Fortran style open/close 
+
+
+    // 6. Fortran style open/close
     // filename fixed, but string in fortran file still in UTF encoding
     // =========================================================================
 
@@ -222,66 +219,66 @@ olddir=pwd();
     filestuff=fileinfo(fileName+'_open');
     if (filestuff==[] & filestuff(1)>0) then pause, end
     mclose(fd);
-    
+
     fd = mopen(fileName+'_fprintf','wt');
-    mfprintf(fd,'%s %s',specialName+'3',string(%pi)); 
+    mfprintf(fd,'%s %s',specialName+'3',string(%pi));
     mclose(fd);
     filestuff=fileinfo(fileName+'_fprintf');
     if (filestuff==[] & filestuff(1)>0) then pause, end
-    
+
     fprintfMat(fileName+"_Mat_"+specialName,[11,12;21,22],'%5.2f',specialName+'_fprintfMat Test');
     filestuff=fileinfo(fileName+"_Mat_"+specialName);
     if (filestuff==[] & filestuff(1)>0) then pause, end
-    
-    
+
+
     // 7. findfiles.c
     // =========================================================================
-    
+
     A = [ 'file_æøå_fprintf'; ..
           'file_æøå_mputl'; ..
           'file_æøå_open'; ..
           'file_æøå_Mat_æøå'; ..
           'file_æøå_æøå'; ..
           'file_æøå'];
-          
+
     B = ls();
     if(or(gsort(A) <> gsort(B))) then pause,end;
-    
+
     B = listfiles();
     if(or(gsort(A) <> gsort(B))) then pause,end;
-    
+
     B = dir();
     if(or(gsort(A) <> gsort(B(2)))) then pause,end;
-    
+
     B = findfiles('.','*');
     if(or(gsort(A) <> gsort(B))) then pause,end;
-    
+
     B = ls('../'+dirName);
     if(or(gsort(A) <> gsort(B))) then pause,end;
-    
+
     B = listfiles('../'+dirName);
     if(or(gsort(A) <> gsort(B))) then pause,end;
-    
+
     B = dir('../'+dirName);
     if(or(gsort(A) <> gsort(B(2)))) then pause,end;
-    
+
     B = findfiles('.','*'+specialName+'*');
     if(or(gsort(A) <> gsort(B))) then pause,end;
-    
-    
+
+
     // 8. test getshortpathname,getlongpathname
     // =========================================================================
-    
+
     sname=getshortpathname(fileName);
     if ~(length(sname) > 0) then pause, end
     lname=getlongpathname(sname);
     if ~(length(lname) > 0) then pause, end
-    
-    
+
+
     // 9. test deletefile, removedir
     // =========================================================================
-    
+
     removedir('../'+dirName+'_other');
     chdir("..");
     removedir(dirName);
-    
+