fscanf function removed. (obsolete) 09/12409/2
Cedric Delamarre [Mon, 2 Sep 2013 15:23:01 +0000 (17:23 +0200)]
Change-Id: I03f75f7f421afe123064ebd2011f8fde94fa7031

13 files changed:
scilab/CHANGES_5.5.X
scilab/modules/fileio/help/en_US/fscanf.xml [deleted file]
scilab/modules/fileio/help/en_US/scanf.xml
scilab/modules/fileio/help/ja_JP/fscanf.xml [deleted file]
scilab/modules/fileio/help/ru_RU/fscanf.xml [deleted file]
scilab/modules/fileio/help/ru_RU/scanf.xml
scilab/modules/fileio/macros/fscanf.sci [deleted file]
scilab/modules/fileio/tests/nonreg_tests/bug_3905.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_3905.tst
scilab/modules/fileio/tests/nonreg_tests/bug_7959.dia.ref [deleted file]
scilab/modules/fileio/tests/nonreg_tests/bug_7959.tst [deleted file]
scilab/modules/fileio/tests/nonreg_tests/bug_9869.dia.ref
scilab/modules/fileio/tests/nonreg_tests/bug_9869.tst

index 2e3694c..e24e436 100644 (file)
@@ -91,6 +91,8 @@ Obsolete
 
 * sscanf is obsolete, use msscanf instead.
 
+* fscanf is obsolete, use mfscanf for files opened with mopen or read for files opened with file instead.
+
 Differential_equations
 ======================
 
diff --git a/scilab/modules/fileio/help/en_US/fscanf.xml b/scilab/modules/fileio/help/en_US/fscanf.xml
deleted file mode 100644 (file)
index fd667b3..0000000
+++ /dev/null
@@ -1,118 +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" scilab:needs-examples="no" xml:id="fscanf">
-    <refnamediv>
-        <refname>fscanf</refname>
-        <refpurpose>
-            converts formatted input read on a file. <emphasis role="bold">This function is obsolete</emphasis>.
-        </refpurpose>
-    </refnamediv>
-    <refsynopsisdiv>
-        <title>Calling Sequence</title>
-        <synopsis>[v_1, ..., v_n] = fscanf(file, format)</synopsis>
-    </refsynopsisdiv>
-    <refsection>
-        <title>Arguments</title>
-        <variablelist>
-            <varlistentry>
-                <term>format</term>
-                <listitem>
-                    <para>
-                        a character string: specifies the format conversion.
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>file</term>
-                <listitem>
-                    <para>
-                        a character string giving the file name or an integer giving a logical unit returned by <function>mopen</function>.
-                    </para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-    </refsection>
-    <refsection>
-        <title>Description</title>
-        <para>
-            <warning>
-                This function is obsolete and will be removed in Scilab 5.5.0, use preferably the <link linkend="mfscanf">mfscanf</link>
-                function which is more efficient and is more compatible with the C
-                <function>fscanf</function> procedure.
-            </warning>
-        </para>
-        <para>
-            The <function>fscanf</function> function reads character data on the file specified by the
-            <varname>file</varname> argument, interprets it according
-            to a <varname>format</varname>, and returns the converted results.
-        </para>
-        <para>
-            The <varname>format</varname> parameter contains conversion specifications
-            used to interpret the input.
-        </para>
-        <para>
-            The <varname>format</varname> parameter can contain
-            white-space characters (blanks, tabs, newline, or formfeed)
-            that, except in the following two cases, read the input up to the
-            next nonwhite-space character. Unless there is a match in the control
-            string, trailing white space (including a newline character) is not
-            read.
-        </para>
-        <itemizedlist>
-            <listitem>
-                <para>
-                    Any character except <literal>%</literal> (percent sign), which must match the next character of the input stream.
-                </para>
-            </listitem>
-            <listitem>
-                <para>
-                    A conversion specification that directs the conversion of the next input field. See <link linkend="scanf_conversion">scanf_conversion</link> for details.
-                </para>
-            </listitem>
-        </itemizedlist>
-    </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="mprintf">mprintf</link>
-            </member>
-            <member>
-                <link linkend="read">read</link>
-            </member>
-            <member>
-                <link linkend="scanf">scanf</link>
-            </member>
-            <member>
-                <link linkend="msscanf">msscanf</link>
-            </member>
-            <member>
-                <link linkend="mfscanf">mfscanf</link>
-            </member>
-            <member>
-                <link linkend="scanf_conversion">scanf_conversion</link>
-            </member>
-        </simplelist>
-    </refsection>
-</refentry>
index dab6b7b..16f7f54 100644 (file)
@@ -3,11 +3,11 @@
  * 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    
+ * are also available at
  * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
  *
  -->
@@ -75,7 +75,7 @@
                 <link linkend="read">read</link>
             </member>
             <member>
-                <link linkend="fscanf">fscanf</link>
+                <link linkend="mfscanf">mfscanf</link>
             </member>
             <member>
                 <link linkend="scanf_conversion">scanf_conversion</link>
diff --git a/scilab/modules/fileio/help/ja_JP/fscanf.xml b/scilab/modules/fileio/help/ja_JP/fscanf.xml
deleted file mode 100644 (file)
index f5fb6f1..0000000
+++ /dev/null
@@ -1,96 +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="fscanf">
-    <refnamediv>
-        <refname>fscanf</refname>
-        <refpurpose>ファイルから読み込みこんだ整形済み入力を変換する</refpurpose>
-    </refnamediv>
-    <refsynopsisdiv>
-        <title>呼び出し手順</title>
-        <synopsis>[v_1,...v_n]=fscanf (file,format)</synopsis>
-    </refsynopsisdiv>
-    <refsection>
-        <title>Pパラメータ</title>
-        <variablelist>
-            <varlistentry>
-                <term>format</term>
-                <listitem>
-                    <para>フォーマット変換を指定します.</para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>file</term>
-                <listitem>
-                    <para>入力ファイル名またはファイル番号を指定します.</para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-    </refsection>
-    <refsection>
-        <title>説明</title>
-        <para>
-            fscanf関数は<literal>file</literal>引数で指定したファイルから
-            文字データを読み込み,フォーマットに基づき解釈し,
-            変換された結果を返します.
-        </para>
-        <para>
-            formatパラメータには入力を解釈する際に使用される変換指定子
-            が含まれます.
-        </para>
-        <para>
-            formatパラメータには,空白文字(空白,タブ,改行,またはフォームフィード)
-            を含めることができます.
-            この場合,以下の2つの場合を除き,
-            次の非空白文字まで入力が読み込まれます.
-            制御文字にマッチする文字がない限り,
-            末尾の空白文字(改行文字を含む)は読み込まれません.
-        </para>
-        <itemizedlist>
-            <listitem>
-                <para>%を除く任意の文字 (パーセンス記号),
-                    入力ストリームの次の文字に一致しなければなりません.
-                </para>
-            </listitem>
-            <listitem>
-                <para>
-                    変換指定子は,次の入力フィールドの変換を指示します.
-                    詳細は <link linkend="scanf_conversion">scanf_conversion</link> 参照ください.
-                </para>
-            </listitem>
-        </itemizedlist>
-    </refsection>
-    <refsection role="see also">
-        <title>参照</title>
-        <simplelist type="inline">
-            <member>
-                <link linkend="mprintf">mprintf</link>
-            </member>
-            <member>
-                <link linkend="read">read</link>
-            </member>
-            <member>
-                <link linkend="scanf">scanf</link>
-            </member>
-            <member>
-                <link linkend="msscanf">msscanf</link>
-            </member>
-            <member>
-                <link linkend="mfscanf">mfscanf</link>
-            </member>
-            <member>
-                <link linkend="scanf_conversion">scanf_conversion</link>
-            </member>
-        </simplelist>
-    </refsection>
-</refentry>
diff --git a/scilab/modules/fileio/help/ru_RU/fscanf.xml b/scilab/modules/fileio/help/ru_RU/fscanf.xml
deleted file mode 100644 (file)
index 984ee0c..0000000
+++ /dev/null
@@ -1,101 +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="fscanf">
-    <refnamediv>
-        <refname>fscanf</refname>
-        <refpurpose>
-            преобразует форматированный ввод, прочитанный в файле. <emphasis role="bold">Эта функция устарела</emphasis>.
-        </refpurpose>
-    </refnamediv>
-    <refsynopsisdiv>
-        <title>Последовательность вызова</title>
-        <synopsis>[v_1, ..., v_n] = fscanf(file, format)</synopsis>
-    </refsynopsisdiv>
-    <refsection>
-        <title>Аргументы</title>
-        <variablelist>
-            <varlistentry>
-                <term>format</term>
-                <listitem>
-                    <para>
-                        символьная строка: определяет преобразование формата.
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>file</term>
-                <listitem>
-                    <para>
-                        символьная строка, указывающая имя файла, или целое число,
-                        указывающее логическое устройство, возвращённое функцией
-                        <function>mopen</function>.
-                    </para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-    </refsection>
-    <refsection>
-        <title>Описание</title>
-        <para>
-            <warning>
-                Эта функция устарела, используйте лучше функцию <function>mfscanf</function>, которая более эффективна и более совместима с C-процедурой <function>fscanf</function>.
-            </warning>
-        </para>
-        <para>
-            Функция <function>fscanf</function> считывает символьные данные в файле, определённом аргументом <varname>file</varname>, интерпретирует их в соответствии с форматом <varname>format</varname>, и возвращает преобразованные результаты.
-        </para>
-        <para>
-            Параметр <varname>format</varname> содержит спецификации преобразования, используемые для интерпретации ввода.
-        </para>
-        <para>
-            Параметр <varname>format</varname> может содержать символы пробелов (пробелы, табуляторы, символы перевода строки и прогона страницы), которые, за исключением двух следующих случаев, считывают ввод до следующего символа-непробела. За исключением совпадения с управляющей строкой, завершающие пробелы (включая символы новой строки) не считываются.
-        </para>
-        <itemizedlist>
-            <listitem>
-                <para>
-                    Любой символ, за исключением <literal>%</literal> (знак "процент"), который должен соответствовать следующему символу входного потока.
-                </para>
-            </listitem>
-            <listitem>
-                <para>
-                    Спецификация преобразования, которая направляет преобразование следующего входного поля. См. подробности в <link linkend="scanf_conversion">scanf_conversion</link>.
-                </para>
-            </listitem>
-        </itemizedlist>
-    </refsection>
-    <refsection role="see also">
-        <title>Смотрите также</title>
-        <simplelist type="inline">
-            <member>
-                <link linkend="mprintf">mprintf</link>
-            </member>
-            <member>
-                <link linkend="read">read</link>
-            </member>
-            <member>
-                <link linkend="scanf">scanf</link>
-            </member>
-            <member>
-                <link linkend="msscanf">msscanf</link>
-            </member>
-            <member>
-                <link linkend="mfscanf">mfscanf</link>
-            </member>
-            <member>
-                <link linkend="scanf_conversion">scanf_conversion</link>
-            </member>
-        </simplelist>
-    </refsection>
-</refentry>
-
index c5d9922..ca7d90e 100644 (file)
@@ -3,11 +3,11 @@
 * 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    
+* are also available at
 * http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
 *
   -->
@@ -68,7 +68,7 @@
                 <link linkend="read">read</link>
             </member>
             <member>
-                <link linkend="fscanf">fscanf</link>
+                <link linkend="mfscanf">mfscanf</link>
             </member>
             <member>
                 <link linkend="scanf_conversion">преобразование scanf</link>
diff --git a/scilab/modules/fileio/macros/fscanf.sci b/scilab/modules/fileio/macros/fscanf.sci
deleted file mode 100644 (file)
index 3ff88bd..0000000
+++ /dev/null
@@ -1,71 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) XXXX-2008 - INRIA
-// Copyright (C) 2008-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 varargout = fscanf(fil, frmt)
-
-    // fscanf - Emulator of C language fscanf
-    //!
-    warnobsolete("mfscanf","5.5.0");
-
-    [lhs, rhs] = argn(0);
-
-    if rhs <> 2 then
-        error(999, msprintf(gettext("%s: Wrong number of input arguments: %d expected.\n"),"fscanf", 2));
-    end
-
-    MAXLHS = 50;
-    if lhs > MAXLHS then
-        error(999, msprintf(gettext("%s: Wrong number of output argument(s).\n"),"fscanf"));
-    end
-
-    if type(fil)<>10 & type(fil)<> 1 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: A file descriptor expected.\n"),"fscanf",1));
-    end
-
-    if size(fil,"*")<>1 then
-        error(999, msprintf(gettext("%s: Wrong size for input argument #%d: A file descriptor expected.\n")),"fscanf",1);
-    end
-
-    if type(frmt)<>10 then
-        error(999, msprintf(gettext("%s: Wrong type for input argument #%d: String expected.\n"),"fscanf",2));
-    end
-
-    if size(frmt,"*")<>1 then
-        error(999, msprintf(gettext("%s: Wrong size for input argument #%d: A string expected.\n")),"fscanf",2);
-    end
-
-
-    if type(fil) == 1 then
-        fids = file();
-        if ~or(fids == fil) then
-            error(999, msprintf(gettext("%s: Wrong value for input argument #%d: A valid file descriptor expected.\n"), "fscanf", 1));
-            return;
-        end
-    end
-
-    v = "v";
-    args = strcat( v(ones(lhs, 1)) + string(1:lhs)', ",");
-
-    if (type(fil) == 1) then
-        [id, typ, fn] = file(fil);
-        if typ == "F" then
-            buf = read(fil, 1, 1, "(a)");
-        else
-            buf = mgetl(fil, 1);
-        end
-    else
-        buf = mgetl(fil, 1);
-    end
-
-    execstr("[v0," + args + "] = msscanf(buf, frmt);"); // v0 is the number of data raed
-    execstr("varargout = list(" + args + ");");
-
-endfunction
index c772ad1..d54a7b7 100644 (file)
 //
 // <-- Short Description -->
 // regression fscanf
-wMode = warning("query");
-warning("off");
+// fscanf is obsolete, mfscanf is used instead.
 fln = TMPDIR + filesep() +'bug_3905.txt';
 strs = ['txt1','txt2','txt3'];
 mputl(strs, fln);
-[fi, err] = file('open', fln, 'old');
+[fi, err] = mopen(fln);
 if err <> 0 then bugmes();quit;end
-s1 = fscanf(fi,'%s');
+s1 = mfscanf(fi,'%s');
 if s1 <> 'txt1' then bugmes();quit;end
-s2 = fscanf(fi,'%s');
+s2 = mfscanf(fi,'%s');
 if s2 <> 'txt2' then bugmes();quit;end
-s3 = fscanf(fi,'%s');
+s3 = mfscanf(fi,'%s');
 if s3 <> 'txt3' then bugmes();quit;end
-file('close',fi);
-ierr = execstr("fscanf(9999,''%s'');","errcatch");
+mclose(fi);
+ierr = execstr("mfscanf(9999,''%s'');","errcatch");
 if ierr <> 999 then bugmes();quit;end
-warning(wMode);
index 331fef5..e9439b4 100644 (file)
 //
 // <-- Short Description -->
 // regression fscanf
-
-wMode = warning("query");
-warning("off");
+// fscanf is obsolete, mfscanf is used instead.
 
 fln = TMPDIR + filesep() +'bug_3905.txt';
 strs = ['txt1','txt2','txt3'];
 mputl(strs, fln);
 
-[fi, err] = file('open', fln, 'old');
+[fi, err] = mopen(fln);
 
 if err <> 0 then pause,end
 
-s1 = fscanf(fi,'%s');
+s1 = mfscanf(fi,'%s');
 if s1 <> 'txt1' then pause,end
 
-s2 = fscanf(fi,'%s');
+s2 = mfscanf(fi,'%s');
 if s2 <> 'txt2' then pause,end
 
-s3 = fscanf(fi,'%s');
+s3 = mfscanf(fi,'%s');
 if s3 <> 'txt3' then pause,end
 
-file('close',fi);
+mclose(fi);
 
-ierr = execstr("fscanf(9999,''%s'');","errcatch");
+ierr = execstr("mfscanf(9999,''%s'');","errcatch");
 if ierr <> 999 then pause,end
 
-warning(wMode);
\ No newline at end of file
diff --git a/scilab/modules/fileio/tests/nonreg_tests/bug_7959.dia.ref b/scilab/modules/fileio/tests/nonreg_tests/bug_7959.dia.ref
deleted file mode 100644 (file)
index 3892974..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2010 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 7959 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=7959
-//
-// <-- Short Description -->
-// fscanf did not manage file descriptor as input argument
-//
-wMode = warning("query");
-warning("off");
-text =["blablabla"];
-mputl(text, TMPDIR + "/test1.txt");
-s1 = fscanf(TMPDIR + "/test1.txt", "%s");
-if text <> s1 then bugmes();quit;end
-fd = mopen(TMPDIR + "/test1.txt", "rt");
-s2 = fscanf(fd, "%s");
-mclose(fd);
-if text <> s2 then bugmes();quit;end
-if s1 <> s2 then bugmes();quit;end
-warning(wMode);
diff --git a/scilab/modules/fileio/tests/nonreg_tests/bug_7959.tst b/scilab/modules/fileio/tests/nonreg_tests/bug_7959.tst
deleted file mode 100644 (file)
index 2f2101e..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-// =============================================================================
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2010 - DIGITEO - Allan CORNET
-//
-//  This file is distributed under the same license as the Scilab package.
-// =============================================================================
-//
-// <-- CLI SHELL MODE -->
-//
-// <-- Non-regression test for bug 7959 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=7959
-//
-// <-- Short Description -->
-// fscanf did not manage file descriptor as input argument
-//
-
-wMode = warning("query");
-warning("off");
-
-text =["blablabla"];
-mputl(text, TMPDIR + "/test1.txt");
-s1 = fscanf(TMPDIR + "/test1.txt", "%s");
-if text <> s1 then pause, end
-
-fd = mopen(TMPDIR + "/test1.txt", "rt");
-s2 = fscanf(fd, "%s");
-mclose(fd);
-if text <> s2 then pause, end
-
-if s1 <> s2 then pause, end
-
-warning(wMode);
\ No newline at end of file
index a8e702b..b41a68a 100644 (file)
 //
 // <-- Short Description -->
 // fscanf did not check number of input arguments
-wMode = warning("query");
-warning("off");
-msgError = gettext("%s: Wrong number of input arguments: %d expected.\n");
-assert_checkerror ("fscanf()", msgError , [] , "fscanf" , 2);
-msgError = gettext("%s: Wrong number of input arguments: %d expected.\n");
-assert_checkerror ("fscanf(TMPDIR + ""/bug_9869.dat"")", msgError , [] , "fscanf" , 2);
+// fscanf is obsolete, mfscanf is used instead.
+msgError = gettext("%s: Wrong number of input argument(s): %d to %d expected.\n");
+assert_checkerror ("mfscanf()", msgError , [] , "mfscanf" , 2, 3);
+msgError = gettext("%s: Wrong number of input argument(s): %d to %d expected.\n");
+assert_checkerror ("mfscanf(TMPDIR + ""/bug_9869.dat"")", msgError , [] , "mfscanf" , 2, 3);
 mputl(string(1:4), TMPDIR + "/bug_9869.dat");
-R = fscanf(TMPDIR + "/bug_9869.dat","%d");
+fd = mopen(TMPDIR + "/bug_9869.dat");
+R = mfscanf(fd,"%d");
 assert_checkequal(R, 1);
-warning(wMode);
index bcef5e4..3e0266d 100644 (file)
 //
 // <-- Short Description -->
 // fscanf did not check number of input arguments
+// fscanf is obsolete, mfscanf is used instead.
 
-wMode = warning("query");
-warning("off");
+msgError = gettext("%s: Wrong number of input argument(s): %d to %d expected.\n");
+assert_checkerror ("mfscanf()", msgError , [] , "mfscanf" , 2, 3);
 
-msgError = gettext("%s: Wrong number of input arguments: %d expected.\n");
-assert_checkerror ("fscanf()", msgError , [] , "fscanf" , 2);
-
-msgError = gettext("%s: Wrong number of input arguments: %d expected.\n");
-assert_checkerror ("fscanf(TMPDIR + ""/bug_9869.dat"")", msgError , [] , "fscanf" , 2);
+msgError = gettext("%s: Wrong number of input argument(s): %d to %d expected.\n");
+assert_checkerror ("mfscanf(TMPDIR + ""/bug_9869.dat"")", msgError , [] , "mfscanf" , 2, 3);
 
 mputl(string(1:4), TMPDIR + "/bug_9869.dat");
-R = fscanf(TMPDIR + "/bug_9869.dat","%d");
+fd = mopen(TMPDIR + "/bug_9869.dat");
+R = mfscanf(fd,"%d");
 assert_checkequal(R, 1);
-
-warning(wMode);
-