* Bug #15063 fixed - effectively remove fort 87/19187/6
Paul Bignier [Tue, 14 Mar 2017 15:21:52 +0000 (16:21 +0100)]
Change-Id: I5b30b0bc71253f5af76486fba016463b27d89467

33 files changed:
scilab/CHANGES.md
scilab/modules/core/help/en_US/error_handling/error_table.xml
scilab/modules/core/help/ja_JP/error_handling/error_table.xml
scilab/modules/core/help/pt_BR/error_handling/error_table.xml
scilab/modules/core/help/ru_RU/error_handling/error_table.xml
scilab/modules/development_tools/help/en_US/user.xml
scilab/modules/development_tools/help/fr_FR/user.xml
scilab/modules/development_tools/help/ja_JP/user.xml
scilab/modules/development_tools/help/pt_BR/user.xml
scilab/modules/development_tools/help/ru_RU/user.xml
scilab/modules/differential_equations/demos/n_pendulum/macros.sci
scilab/modules/differential_equations/help/en_US/dae.xml
scilab/modules/differential_equations/help/en_US/daskr.xml
scilab/modules/differential_equations/help/en_US/dasrt.xml
scilab/modules/differential_equations/help/en_US/dassl.xml
scilab/modules/differential_equations/help/fr_FR/dae.xml
scilab/modules/differential_equations/help/fr_FR/daskr.xml
scilab/modules/differential_equations/help/ja_JP/dae.xml
scilab/modules/differential_equations/help/ja_JP/daskr.xml
scilab/modules/differential_equations/help/ja_JP/dasrt.xml
scilab/modules/differential_equations/help/ja_JP/dassl.xml
scilab/modules/differential_equations/help/pt_BR/dae.xml
scilab/modules/differential_equations/help/pt_BR/dasrt.xml
scilab/modules/differential_equations/help/pt_BR/dassl.xml
scilab/modules/differential_equations/help/ru_RU/dae.xml
scilab/modules/differential_equations/help/ru_RU/dasrt.xml
scilab/modules/differential_equations/help/ru_RU/dassl.xml
scilab/modules/dynamic_link/examples/dynamic_link_c_and_fortran/ext13f.f
scilab/modules/dynamic_link/examples/dynamic_link_c_and_fortran/ext14c.c
scilab/modules/dynamic_link/help/en_US/c_link.xml
scilab/modules/dynamic_link/help/en_US/fort.xml [deleted file]
scilab/modules/dynamic_link/sci_gateway/dynamic_link_gateway.xml
scilab/modules/slint/src/cpp/DeprecatedChecker.cpp

index a56e234..fd1a49c 100644 (file)
@@ -331,6 +331,7 @@ Removed Functions
 * Former profiling functions have been removed: `add_profiling`, `reset_profiling`, `remove_profiling`, `profile`, `showprofile`, and `plotprofile`.
 * `comp` and its associated type `11` have been removed. All functions will have type `13`.
 * `readgateway` has been removed.
+* `fort` has been removed. Please use `call` instead.
 
 
 Known issues
@@ -350,6 +351,7 @@ the [development mailing list](dev@lists.scilab.org) for a particular toolbox.
 * [#14376](http://bugzilla.scilab.org/show_bug.cgi?id=14376): input() is broken: \n introduced before prompting, multiple prompts, missing assignment, "%" "\n" "\t" no longer supported in messages...
 * [#14399](http://bugzilla.scilab.org/show_bug.cgi?id=14399): Whereami : wrong information (line numbers).
 * [#14424](http://bugzilla.scilab.org/show_bug.cgi?id=14424): New problem with the input function.
+* [#14598](http://bugzilla.scilab.org/show_bug.cgi?id=14598): `fort` wasn't properly removed.
 * [#14636](http://bugzilla.scilab.org/show_bug.cgi?id=14636): Xcos model with modelica electrical blocks (created in 5.5.2) crashed Scilab 6.
 * [#14637](http://bugzilla.scilab.org/show_bug.cgi?id=14367): Some Scilab 5.5.2 diagrams didn't simulate properly in Xcos.
 * [#14886](http://bugzilla.scilab.org/show_bug.cgi?id=14886): Matplot save/load failed.
@@ -368,6 +370,7 @@ the [development mailing list](dev@lists.scilab.org) for a particular toolbox.
 * [#15054](http://bugzilla.scilab.org/show_bug.cgi?id=15054): The callbacks of `wfir_gui()` were not prioritary.
 * [#15057](http://bugzilla.scilab.org/show_bug.cgi?id=15057): Matplot .data assignation did not take care of >2 dimension
 * [#15060](http://bugzilla.scilab.org/show_bug.cgi?id=15060): `fplot3d` did not draw because of an addition with an empty matrix which now returns an empty matrix.
+* [#15063](http://bugzilla.scilab.org/show_bug.cgi?id=15063): `fort` wasn't properly removed.
 * [#15072](http://bugzilla.scilab.org/show_bug.cgi?id=15072): The context was stored as a root diagram attribute instead of being stored on each Superblock layer.
 * [#15079](http://bugzilla.scilab.org/show_bug.cgi?id=15079): When all children of a graphic handle have not the same number of sub-children, any vectorized extraction or insertion in subchildren failed.
 * [#15117](http://bugzilla.scilab.org/show_bug.cgi?id=15117): Imbricated optim/leastsq/lsqrsolve/fsolve calls either crashed or returned errors
@@ -717,3 +720,4 @@ the [development mailing list](dev@lists.scilab.org) for a particular toolbox.
 * [#14685](http://bugzilla.scilab.org/show_bug.cgi?id=14685): datavec produced an invalid index error.
 * [#14980] (http://bugzilla.scilab.org/show_bug.cgi?id=14980): The datatip display of the root locus arcs is broken.
 * [#14992] (http://bugzilla.scilab.org/show_bug.cgi?id=14992): `readgateway` has been removed, use `whereis` instead.
+
index c5f3b81..503285c 100644 (file)
@@ -86,8 +86,6 @@
             %s"
         </para>
         <para>69 "Floating point exception."</para>
-        <para>70 "Too many arguments in fort (max 30)."</para>
-        <para>71 "This variable is not valid in fort."</para>
         <para>72 "%s is not valid in this context."</para>
         <para>73 "Error while linking."</para>
         <para>74 "Leading coefficient is zero."</para>
index 923d78b..21ac620 100644 (file)
@@ -89,8 +89,6 @@
             %s"
         </para>
         <para>69 "Floating point exception."</para>
-        <para>70 "Too many arguments in fort (max 30)."</para>
-        <para>71 "This variable is not valid in fort."</para>
         <para>72 "%s is not valid in this context."</para>
         <para>73 "Error while linking."</para>
         <para>74 "Leading coefficient is zero."</para>
index 6ebd41a..f623937 100644 (file)
             %s"
         </para>
         <para>69 "Floating point exception" (exceção de ponto flutuante)</para>
-        <para>70 "Too many arguments in fort (max 30)" (muitos argumentos em fort
-            (máximo de 30))
-        </para>
-        <para>71 "This variable is not valid in fort" (esta variável não é válida
-            em fort)
-        </para>
         <para>72 "%s is not valid in this context" (%s não é válido neste
             contexto)
         </para>
index 090ed81..4c2f493 100644 (file)
             В противном случае отправьте отчёт об ошибке:http://bugzilla.scilab.org/"
         </para>
         <para>69 "Исключение операции с плавающей точкой."</para>
-        <para>70 "Слишком много параметров в fort (максимум 30)."</para>
-        <para>71 "Эта переменная некорректна в fort."</para>
         <para>72 "%s некорректна в этом контексте."</para>
         <para>73 "Ошибка связывания (linking)."</para>
         <para>74 "Старший коэффициент равен нулю."</para>
index ad2070b..48a13ee 100644 (file)
@@ -23,7 +23,7 @@
         <title>See also</title>
         <simplelist type="inline">
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index b187426..dbe1f92 100644 (file)
@@ -21,7 +21,7 @@
         <title>Voir aussi</title>
         <simplelist type="inline">
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index 0483197..76151aa 100644 (file)
@@ -23,7 +23,7 @@
         <title>参照</title>
         <simplelist type="inline">
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index 53e6a90..bfdc4bc 100644 (file)
@@ -22,7 +22,7 @@
         <title> Ver Também </title>
         <simplelist type="inline">
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index e84c42c..b1765e0 100644 (file)
@@ -22,7 +22,7 @@
         <title>Смотрите также</title>
         <simplelist type="inline">
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index f009a87..f6089b1 100644 (file)
@@ -8,7 +8,7 @@
 function [n]=np()
     // Return the size  of the Fortran pendulum
     n=1;
-    n=fort("np",n,1,"i","sort",1);
+    n=call("np",n,1,"i","sort",1);
 endfunction
 
 
@@ -18,13 +18,13 @@ function [ydot]=npend ( t, th)
     //      data m  / 1.0, 1.0, 1.0, 1.0 /
     //      data j  / 0.3, 0.3, 0.3, 0.3 /
     ydot=ones(6,1)
-    ydot=fort("npend",3,1,"i",t,2,"d",th,3,"d",ydot,4,"d","sort",4);
+    ydot=call("npend",3,1,"i",t,2,"d",th,3,"d",ydot,4,"d","sort",4);
 endfunction
 
 
 function [E]=ener( th)
     E=0.0;
-    E=fort("ener",th,1,"d",E,2,"d","sort",2);
+    E=call("ener",th,1,"d",E,2,"d","sort",2);
 endfunction
 
 
index 3fe93a7..326a6ac 100644 (file)
@@ -734,7 +734,7 @@ cd(previous_dir);
                 <link linkend="impl">impl</link>
             </member>
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index d4f4d0a..fa5f12f 100644 (file)
@@ -638,7 +638,7 @@ nn
                 <link linkend="impl">impl</link>
             </member>
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index d5abdc6..612ffcc 100644 (file)
@@ -415,7 +415,7 @@ deff('[rts]=gr1(t,y)','rts=[((2*log(y)+8)/t-5)*y;log(y)-2.2491]')
                 <link linkend="impl">impl</link>
             </member>
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index 7464257..3d90536 100644 (file)
@@ -417,7 +417,7 @@ y4=dassl([y0,yd0],0,t,'chemres','chemjac');
                 <link linkend="impl">impl</link>
             </member>
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index e30388a..10e79da 100644 (file)
@@ -730,7 +730,7 @@ cd(previous_dir);
                 <link linkend="impl">impl</link>
             </member>
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index 58f3345..a21b223 100644 (file)
@@ -641,7 +641,7 @@ nn
                 <link linkend="impl">impl</link>
             </member>
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index 84addf0..7b7f742 100644 (file)
@@ -710,7 +710,7 @@ cd(previous_dir);
                 <link linkend="impl">impl</link>
             </member>
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index 286e854..eb37dc0 100644 (file)
@@ -1204,9 +1204,7 @@ nn
             </member>
 
             <member>
-
-                <link linkend="fort">fort</link>
-
+                <link linkend="call">call</link>
             </member>
 
             <member>
index 2266727..5fc5850 100644 (file)
@@ -768,9 +768,7 @@ deff('[rts]=gr1(t,y)','rts=[((2*log(y)+8)/t-5)*y;log(y)-2.2491]')
             </member>
 
             <member>
-
-                <link linkend="fort">fort</link>
-
+                <link linkend="call">call</link>
             </member>
 
             <member>
index 7db8382..773675b 100644 (file)
@@ -714,9 +714,7 @@ y4=dassl([y0,yd0],0,t,'chemres','chemjac');
             </member>
 
             <member>
-
-                <link linkend="fort">fort</link>
-
+                <link linkend="call">call</link>
             </member>
 
             <member>
index 39be265..5c51f9e 100644 (file)
@@ -533,7 +533,7 @@ xstring(yy(1,1)+0.1,yy(2,1),string(nn(1)))
                 <link linkend="impl">impl</link>
             </member>
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index 610c640..79c2cca 100644 (file)
@@ -411,7 +411,7 @@ deff('[rts]=gr1(t,y)','rts=[((2*log(y)+8)/t-5)*y;log(y)-2.2491]')
                 <link linkend="impl">impl</link>
             </member>
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index 792cd1f..b0bddac 100644 (file)
@@ -405,7 +405,7 @@ y4=dassl([y0,yd0],0,t,'chemres','chemjac');
                 <link linkend="impl">impl</link>
             </member>
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index 26ddf9f..014ed71 100644 (file)
@@ -613,7 +613,7 @@ cd(previous_dir);
                 <link linkend="impl">impl</link>
             </member>
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index d468350..2bef60a 100644 (file)
@@ -409,7 +409,7 @@ deff('[rts]=gr1(t,y)','rts=[((2*log(y)+8)/t-5)*y;log(y)-2.2491]')
                 <link linkend="impl">impl</link>
             </member>
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index aa7df63..4e87114 100644 (file)
@@ -414,7 +414,7 @@ y4=dassl([y0,yd0],0,t,'chemres','chemjac');
                 <link linkend="impl">impl</link>
             </member>
             <member>
-                <link linkend="fort">fort</link>
+                <link linkend="call">call</link>
             </member>
             <member>
                 <link linkend="link">link</link>
index f8d4c3a..b09a99f 100644 (file)
@@ -1,6 +1,6 @@
 c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 c Copyright (C) INRIA
-c 
+c
 c This file is released under the 3-clause BSD license. See COPYING-BSD.
 
 
@@ -24,12 +24,12 @@ c
          call erro('wrong number of lhs arguments')
          return
       endif
-c     
-c     when using fort the first parameter is the function name 
+c
+c     when using call the first parameter is the function name
       if(.not.getrhsvar(1,'c',m1,n1,l1)) return
       if(.not.getrhsvar(2,'d',m2,n2,l2)) return
       if(.not.getrhsvar(3,'d',m3,n3,l3)) return
-      if(m2*n2.ne.m3*n3) then 
+      if(m2*n2.ne.m3*n3) then
          call erro('incompatible arguments ')
          return
       endif
@@ -46,7 +46,7 @@ c
 c     (very) simple example 1
 c     -->link('ext1f.o','ext1f');
 c     -->a=[1,2,3];b=[4,5,6];n=3;
-c     -->c=fort('ext1f',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d')
+c     -->c=call('ext1f',n,1,'i',a,2,'d',b,3,'d','out',[1,3],4,'d')
 c     c=a+b
       double precision a(*),b(*),c(*)
       do 1 k=1,n
index bbb3859..c151029 100644 (file)
@@ -11,7 +11,7 @@
  *     with a C wrapper
  *     -->link('ext1c.o','ext1cI','C');
  *     -->a=[1,2,3];b=[4,5,6];n=3;
- *     -->c=fort('ext1cI',n,a,b)
+ *     -->c=call('ext1cI',n,a,b)
  *     c=a+b
  ************************************/
 
index 058864e..5583fd1 100644 (file)
             <member>
                 <link linkend="link">link</link>
             </member>
-            <member>
-                <link linkend="fort">fort</link>
-            </member>
         </simplelist>
     </refsection>
 </refentry>
diff --git a/scilab/modules/dynamic_link/help/en_US/fort.xml b/scilab/modules/dynamic_link/help/en_US/fort.xml
deleted file mode 100644 (file)
index 6f203ff..0000000
+++ /dev/null
@@ -1,227 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA -
- *
- * Copyright (C) 2012 - 2016 - Scilab Enterprises
- *
- * This file is hereby licensed under the terms of the GNU GPL v2.0,
- * pursuant to article 5.3.4 of the CeCILL v.2.1.
- * This file was originally licensed under the terms of the CeCILL v2.1,
- * and continues to be available under such terms.
- * For more information, see the COPYING file which you should have received
- * along with this program.
- *
- -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns3="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="fort" xml:lang="en">
-    <refnamediv>
-        <refname>fort</refname>
-        <refpurpose>Fortran or C user routines call</refpurpose>
-    </refnamediv>
-    <refsynopsisdiv>
-        <title>Syntax</title>
-        <synopsis>// long form 'out' is present
-            [y1,...,yk] = fort("ident",x1,px1,"tx1",...,xn,pxn,"txn","out",[ny1,my1],py1,"ty1",...,[nyl,myl],pyl,"tyl")
-            // short form : no 'out' parameter
-            [y1,....,yk] = fort("ident",x1,...,xn)
-        </synopsis>
-    </refsynopsisdiv>
-    <refsection>
-        <title>Arguments</title>
-        <variablelist>
-            <varlistentry>
-                <term>"ident"</term>
-                <listitem>
-                    <para>string.</para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>xi</term>
-                <listitem>
-                    <para>real matrix or string</para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>pxi, pyi</term>
-                <listitem>
-                    <para>integers</para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>txi, tyi</term>
-                <listitem>
-                    <para>
-                        character string <literal>"d"</literal>,
-                        <literal>"r"</literal>, <literal>"i"</literal> or
-                        <literal>"c"</literal>.
-                    </para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-    </refsection>
-    <refsection>
-        <title>Description</title>
-        <para>Interactive call of Fortran (or C) user program from Scilab. The
-            routine must be previously linked with Scilab. This link may be
-            done:
-        </para>
-        <itemizedlist>
-            <listitem>
-                <para>
-                    with Scilab "<literal>link</literal>" command (dynamic link)
-                    during the Scilab session.(see <literal>link</literal>)
-                </para>
-            </listitem>
-        </itemizedlist>
-        <para>There are two forms of calling syntax, a short one and a long one.
-            The short one will give faster code and an easier calling syntax but one
-            has to write a small (C or Fortran) interface in order to make the short
-            form possible. The long one make it possible to call a Fortran routine (or
-            a C one) without modification of the code but the syntax is more complex
-            and the interpreted code slower.
-        </para>
-        <para>The meaning of each parameter is described now:</para>
-        <variablelist>
-            <varlistentry>
-                <term>"ident"</term>
-                <listitem>
-                    <para>is the name of the called subroutine.</para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>x1,...,xn</term>
-                <listitem>
-                    <para>are input variables (real matrices or strings) sent to the
-                        routine,
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>px1,...,pxn</term>
-                <listitem>
-                    <para>are the respective positions of these variables in the calling
-                        sequence of the routine <literal>"ident"</literal> and
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>tx1,...,txn</term>
-                <listitem>
-                    <para>
-                        are their types (<literal>"r"</literal>,
-                        <literal>"i"</literal>, <literal>"d"</literal> and
-                        <literal>"c"</literal> for real (float) , integer, double precision
-                        and strings)
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>"out"</term>
-                <listitem>
-                    <para>is a keyword used to separate input variables from output
-                        variables. when this key word is present it is assumed that the long
-                        form will be used and when it is not present, the short form is
-                        used.
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>[ny1, my1]</term>
-                <listitem>
-                    <para>are the size (number of rows and columns. For 'c'
-                        arguments,<literal>m1*n1</literal> is the number of characters ) of
-                        output variables and
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>py1, ...</term>
-                <listitem>
-                    <para>are the positions of output variables (possibly equal to
-                        <literal>pxi</literal> ) in the syntax of the routine. The
-                        <literal>pyi</literal>'s integers must be in increasing
-                        order.
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>"ty1", ...</term>
-                <listitem>
-                    <para>are the Fortran types of output variables. The
-                        <literal>k</literal> first output variables are put in
-                        <literal>y1,..., yk</literal>.
-                    </para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-        <para>If an output variable coincides with an input variable (i.e.
-            <literal>pyi=pxj</literal> ) one can pass only its position
-            <literal>pyi</literal> . The size and type of <literal>yi</literal> are
-            then the same as those of <literal>xi</literal>. If an output variable
-            coincides with an input variable and one specify the dimensions of the
-            output variable <literal>[myl,nyl]</literal> must follow the compatibility
-            condition <literal>mxk*nxk &gt;= myl*nyl</literal>.
-        </para>
-        <para>For example the following program:</para>
-        <programlisting role=""><![CDATA[
-subroutine foof(c,a,b,n,m)
-  integer n,m
-  double precision a(*),b,c(*)
-  do 10 i=1,m*n
-    c(i) = sin(a(i))+b
-  10 continue
-end
- ]]></programlisting>
-        <programlisting role=""><![CDATA[
-link("foof"+getdynlibext(),"foof")
-a=[1,2,3;4,5,6];b= %pi;
-[m,n]=size(a);
-// Inputs:
-// a is in position 2 and double
-// b                3     double
-// n                4     integer
-// m                5     integer
-// Outputs:
-// c is in position 1 and double with size [m,n]
-c=fort("foof",a,2,"d",b,3,"d",n,4,"i",m,5,"i","out",[m,n],1,"d");
- ]]></programlisting>
-        <para>
-            returns the matrix <literal>c=2*a+b</literal>.
-        </para>
-        <para>The same example coded in C:</para>
-        <programlisting role=""><![CDATA[
-void fooc(c,a,b,m,n)
-double a[],*b,c[];
-int *m,*n;
-{
-   double sin();
-   int i;
-   for ( i =0 ; i < (*m)*(*n) ; i++)
-       c[i] = sin(a[i]) + *b;
-}
-]]></programlisting>
-        <programlisting role=""><![CDATA[
-link("fooc"+getdynlibext(),"fooc","C") // note the third argument
-a=[1,2,3;4,5,6];b= %pi;
-[m,n]=size(a);
-c=fort("fooc",a,2,"d",b,3,"d",m,4,"i",n,5,"i","out",[m,n],1,"d");
- ]]></programlisting>
-    </refsection>
-    <refsection role="see also">
-        <title>See also</title>
-        <simplelist type="inline">
-            <member>
-                <link linkend="call">call</link>
-            </member>
-            <member>
-                <link linkend="link">link</link>
-            </member>
-            <member>
-                <link linkend="c_link">c_link</link>
-            </member>
-            <member>
-                <link linkend="addinter">addinter</link>
-            </member>
-        </simplelist>
-    </refsection>
-</refentry>
index 1928cb4..2e79418 100644 (file)
@@ -38,7 +38,7 @@
     <!-- =================== -->
     <PRIMITIVE gatewayId="46" primitiveId="1" primitiveName="getdynlibext" />
     <PRIMITIVE gatewayId="46" primitiveId="2" primitiveName="addinter" />
-    <PRIMITIVE gatewayId="46" primitiveId="3" primitiveName="fort" />
+    <!-- <PRIMITIVE gatewayId="46" primitiveId="3" primitiveName="fort" /> -->
     <PRIMITIVE gatewayId="46" primitiveId="4" primitiveName="call" />
     <PRIMITIVE gatewayId="46" primitiveId="5" primitiveName="link" />
     <PRIMITIVE gatewayId="46" primitiveId="6" primitiveName="ulink" />
index a13789e..26f647b 100644 (file)
@@ -93,6 +93,7 @@ std::unordered_map<std::wstring, std::wstring> DeprecatedChecker::initDep()
     // TODO: get this list from a conf file
     std::unordered_map<std::wstring, std::wstring> map;
     // Scilab 5.5.2 => 6.0.0
+    map.emplace(L"fort", L"call");
     map.emplace(L"znaupd", L"eigs");
     map.emplace(L"zneupd", L"eigs");
     map.emplace(L"dseupd", L"eigs");