summaryrefslogtreecommitdiffstats
path: root/scilab/modules/functions
diff options
context:
space:
mode:
authorAllan CORNET <allan.cornet@scilab.org>2010-02-08 13:25:15 +0100
committerAllan CORNET <allan.cornet@scilab.org>2010-02-08 13:25:15 +0100
commitb8c9ab2953d8834e0c6aeb8856d94cbab6937bbf (patch)
tree764a63bee64e822bf124e15ada5d5b6433cf03b4 /scilab/modules/functions
parent4a1d7ca6a30841bbadc2ae7f3eabc4a9b0ab4b83 (diff)
downloadscilab-b8c9ab2953d8834e0c6aeb8856d94cbab6937bbf.zip
scilab-b8c9ab2953d8834e0c6aeb8856d94cbab6937bbf.tar.gz
remove obsolete function getf
Diffstat (limited to 'scilab/modules/functions')
-rw-r--r--scilab/modules/functions/Makefile.am2
-rw-r--r--scilab/modules/functions/Makefile.in16
-rw-r--r--scilab/modules/functions/help/en_US/getf.xml166
-rw-r--r--scilab/modules/functions/includes/gw_functions.h1
-rw-r--r--scilab/modules/functions/sci_gateway/c/gw_functions.c14
-rw-r--r--scilab/modules/functions/sci_gateway/c/sci_getf.c36
-rw-r--r--scilab/modules/functions/sci_gateway/fortran/intgetf.f122
-rw-r--r--scilab/modules/functions/sci_gateway/functions_gateway.xml1
-rw-r--r--scilab/modules/functions/src/c/functions.vcproj4
-rw-r--r--scilab/modules/functions/src/fortran/functions_f.vfproj5
-rw-r--r--scilab/modules/functions/src/fortran/functions_f2c.vcproj8
-rw-r--r--scilab/modules/functions/tests/nonreg_tests/bug_1469.dia.ref11
-rw-r--r--scilab/modules/functions/tests/nonreg_tests/bug_1469.tst4
-rw-r--r--scilab/modules/functions/tests/unit_tests/fun2string.dia.ref1
-rw-r--r--scilab/modules/functions/tests/unit_tests/fun2string.tst2
-rw-r--r--scilab/modules/functions/tests/unit_tests/getf.dia.ref11
-rw-r--r--scilab/modules/functions/tests/unit_tests/getf.tst11
17 files changed, 23 insertions, 392 deletions
diff --git a/scilab/modules/functions/Makefile.am b/scilab/modules/functions/Makefile.am
index 0b81cda..cac5009 100644
--- a/scilab/modules/functions/Makefile.am
+++ b/scilab/modules/functions/Makefile.am
@@ -13,7 +13,6 @@ FUNCTIONS_FORTRAN_SOURCES = src/fortran/whereis.f
13GATEWAY_C_SOURCES = sci_gateway/c/gw_functions.c \ 13GATEWAY_C_SOURCES = sci_gateway/c/gw_functions.c \
14sci_gateway/c/sci_lib.c \ 14sci_gateway/c/sci_lib.c \
15sci_gateway/c/sci_deff.c \ 15sci_gateway/c/sci_deff.c \
16sci_gateway/c/sci_getf.c \
17sci_gateway/c/sci_execstr.c \ 16sci_gateway/c/sci_execstr.c \
18sci_gateway/c/sci_exec.c \ 17sci_gateway/c/sci_exec.c \
19sci_gateway/c/sci_whereis.c \ 18sci_gateway/c/sci_whereis.c \
@@ -22,7 +21,6 @@ sci_gateway/c/sci_libraryinfo.c
22 21
23GATEWAY_FORTRAN_SOURCES = sci_gateway/fortran/intlib.f \ 22GATEWAY_FORTRAN_SOURCES = sci_gateway/fortran/intlib.f \
24sci_gateway/fortran/intdeff.f \ 23sci_gateway/fortran/intdeff.f \
25sci_gateway/fortran/intgetf.f \
26sci_gateway/fortran/intexecstr.f \ 24sci_gateway/fortran/intexecstr.f \
27sci_gateway/fortran/intexec.f 25sci_gateway/fortran/intexec.f
28 26
diff --git a/scilab/modules/functions/Makefile.in b/scilab/modules/functions/Makefile.in
index c2f90e6..0cd2aa0 100644
--- a/scilab/modules/functions/Makefile.in
+++ b/scilab/modules/functions/Makefile.in
@@ -120,13 +120,12 @@ am__objects_1 = libscifunctions_la-getmacroslist.lo \
120am__objects_2 = whereis.lo 120am__objects_2 = whereis.lo
121am__objects_3 = libscifunctions_la-gw_functions.lo \ 121am__objects_3 = libscifunctions_la-gw_functions.lo \
122 libscifunctions_la-sci_lib.lo libscifunctions_la-sci_deff.lo \ 122 libscifunctions_la-sci_lib.lo libscifunctions_la-sci_deff.lo \
123 libscifunctions_la-sci_getf.lo \
124 libscifunctions_la-sci_execstr.lo \ 123 libscifunctions_la-sci_execstr.lo \
125 libscifunctions_la-sci_exec.lo \ 124 libscifunctions_la-sci_exec.lo \
126 libscifunctions_la-sci_whereis.lo \ 125 libscifunctions_la-sci_whereis.lo \
127 libscifunctions_la-sci_librarieslist.lo \ 126 libscifunctions_la-sci_librarieslist.lo \
128 libscifunctions_la-sci_libraryinfo.lo 127 libscifunctions_la-sci_libraryinfo.lo
129am__objects_4 = intlib.lo intdeff.lo intgetf.lo intexecstr.lo \ 128am__objects_4 = intlib.lo intdeff.lo intexecstr.lo \
130 intexec.lo 129 intexec.lo
131am_libscifunctions_la_OBJECTS = $(am__objects_1) $(am__objects_2) \ 130am_libscifunctions_la_OBJECTS = $(am__objects_1) $(am__objects_2) \
132 $(am__objects_3) $(am__objects_4) 131 $(am__objects_3) $(am__objects_4)
@@ -409,7 +408,6 @@ FUNCTIONS_FORTRAN_SOURCES = src/fortran/whereis.f
409GATEWAY_C_SOURCES = sci_gateway/c/gw_functions.c \ 408GATEWAY_C_SOURCES = sci_gateway/c/gw_functions.c \
410sci_gateway/c/sci_lib.c \ 409sci_gateway/c/sci_lib.c \
411sci_gateway/c/sci_deff.c \ 410sci_gateway/c/sci_deff.c \
412sci_gateway/c/sci_getf.c \
413sci_gateway/c/sci_execstr.c \ 411sci_gateway/c/sci_execstr.c \
414sci_gateway/c/sci_exec.c \ 412sci_gateway/c/sci_exec.c \
415sci_gateway/c/sci_whereis.c \ 413sci_gateway/c/sci_whereis.c \
@@ -418,7 +416,6 @@ sci_gateway/c/sci_libraryinfo.c
418 416
419GATEWAY_FORTRAN_SOURCES = sci_gateway/fortran/intlib.f \ 417GATEWAY_FORTRAN_SOURCES = sci_gateway/fortran/intlib.f \
420sci_gateway/fortran/intdeff.f \ 418sci_gateway/fortran/intdeff.f \
421sci_gateway/fortran/intgetf.f \
422sci_gateway/fortran/intexecstr.f \ 419sci_gateway/fortran/intexecstr.f \
423sci_gateway/fortran/intexec.f 420sci_gateway/fortran/intexec.f
424 421
@@ -605,7 +602,6 @@ distclean-compile:
605@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscifunctions_la-sci_deff.Plo@am__quote@ 602@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscifunctions_la-sci_deff.Plo@am__quote@
606@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscifunctions_la-sci_exec.Plo@am__quote@ 603@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscifunctions_la-sci_exec.Plo@am__quote@
607@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscifunctions_la-sci_execstr.Plo@am__quote@ 604@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscifunctions_la-sci_execstr.Plo@am__quote@
608@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscifunctions_la-sci_getf.Plo@am__quote@
609@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscifunctions_la-sci_lib.Plo@am__quote@ 605@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscifunctions_la-sci_lib.Plo@am__quote@
610@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscifunctions_la-sci_librarieslist.Plo@am__quote@ 606@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscifunctions_la-sci_librarieslist.Plo@am__quote@
611@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscifunctions_la-sci_libraryinfo.Plo@am__quote@ 607@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscifunctions_la-sci_libraryinfo.Plo@am__quote@
@@ -682,13 +678,6 @@ libscifunctions_la-sci_deff.lo: sci_gateway/c/sci_deff.c
682@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@ 678@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
683@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscifunctions_la_CFLAGS) $(CFLAGS) -c -o libscifunctions_la-sci_deff.lo `test -f 'sci_gateway/c/sci_deff.c' || echo '$(srcdir)/'`sci_gateway/c/sci_deff.c 679@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscifunctions_la_CFLAGS) $(CFLAGS) -c -o libscifunctions_la-sci_deff.lo `test -f 'sci_gateway/c/sci_deff.c' || echo '$(srcdir)/'`sci_gateway/c/sci_deff.c
684 680
685libscifunctions_la-sci_getf.lo: sci_gateway/c/sci_getf.c
686@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscifunctions_la_CFLAGS) $(CFLAGS) -MT libscifunctions_la-sci_getf.lo -MD -MP -MF $(DEPDIR)/libscifunctions_la-sci_getf.Tpo -c -o libscifunctions_la-sci_getf.lo `test -f 'sci_gateway/c/sci_getf.c' || echo '$(srcdir)/'`sci_gateway/c/sci_getf.c
687@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libscifunctions_la-sci_getf.Tpo $(DEPDIR)/libscifunctions_la-sci_getf.Plo
688@AMDEP_TRUE@@am__fastdepCC_FALSE@ source='sci_gateway/c/sci_getf.c' object='libscifunctions_la-sci_getf.lo' libtool=yes @AMDEPBACKSLASH@
689@AMDEP_TRUE@@am__fastdepCC_FALSE@ DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
690@am__fastdepCC_FALSE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscifunctions_la_CFLAGS) $(CFLAGS) -c -o libscifunctions_la-sci_getf.lo `test -f 'sci_gateway/c/sci_getf.c' || echo '$(srcdir)/'`sci_gateway/c/sci_getf.c
691
692libscifunctions_la-sci_execstr.lo: sci_gateway/c/sci_execstr.c 681libscifunctions_la-sci_execstr.lo: sci_gateway/c/sci_execstr.c
693@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscifunctions_la_CFLAGS) $(CFLAGS) -MT libscifunctions_la-sci_execstr.lo -MD -MP -MF $(DEPDIR)/libscifunctions_la-sci_execstr.Tpo -c -o libscifunctions_la-sci_execstr.lo `test -f 'sci_gateway/c/sci_execstr.c' || echo '$(srcdir)/'`sci_gateway/c/sci_execstr.c 682@am__fastdepCC_TRUE@ $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscifunctions_la_CFLAGS) $(CFLAGS) -MT libscifunctions_la-sci_execstr.lo -MD -MP -MF $(DEPDIR)/libscifunctions_la-sci_execstr.Tpo -c -o libscifunctions_la-sci_execstr.lo `test -f 'sci_gateway/c/sci_execstr.c' || echo '$(srcdir)/'`sci_gateway/c/sci_execstr.c
694@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libscifunctions_la-sci_execstr.Tpo $(DEPDIR)/libscifunctions_la-sci_execstr.Plo 683@am__fastdepCC_TRUE@ $(am__mv) $(DEPDIR)/libscifunctions_la-sci_execstr.Tpo $(DEPDIR)/libscifunctions_la-sci_execstr.Plo
@@ -742,9 +731,6 @@ intlib.lo: sci_gateway/fortran/intlib.f
742intdeff.lo: sci_gateway/fortran/intdeff.f 731intdeff.lo: sci_gateway/fortran/intdeff.f
743 $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o intdeff.lo `test -f 'sci_gateway/fortran/intdeff.f' || echo '$(srcdir)/'`sci_gateway/fortran/intdeff.f 732 $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o intdeff.lo `test -f 'sci_gateway/fortran/intdeff.f' || echo '$(srcdir)/'`sci_gateway/fortran/intdeff.f
744 733
745intgetf.lo: sci_gateway/fortran/intgetf.f
746 $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o intgetf.lo `test -f 'sci_gateway/fortran/intgetf.f' || echo '$(srcdir)/'`sci_gateway/fortran/intgetf.f
747
748intexecstr.lo: sci_gateway/fortran/intexecstr.f 734intexecstr.lo: sci_gateway/fortran/intexecstr.f
749 $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o intexecstr.lo `test -f 'sci_gateway/fortran/intexecstr.f' || echo '$(srcdir)/'`sci_gateway/fortran/intexecstr.f 735 $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o intexecstr.lo `test -f 'sci_gateway/fortran/intexecstr.f' || echo '$(srcdir)/'`sci_gateway/fortran/intexecstr.f
750 736
diff --git a/scilab/modules/functions/help/en_US/getf.xml b/scilab/modules/functions/help/en_US/getf.xml
deleted file mode 100644
index fcb8aaf..0000000
--- a/scilab/modules/functions/help/en_US/getf.xml
+++ /dev/null
@@ -1,166 +0,0 @@
1<?xml version="1.0" encoding="UTF-8"?>
2<!--
3 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
4 * Copyright (C) XXXX-2008 - INRIA
5 *
6 * This file must be used under the terms of the CeCILL.
7 * This source file is licensed as described in the file COPYING, which
8 * you should have received as part of this distribution. The terms
9 * are also available at
10 * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
11 *
12 -->
13<refentry version="5.0-subset Scilab" xml:id="getf" xml:lang="en"
14 xmlns="http://docbook.org/ns/docbook"
15 xmlns:xlink="http://www.w3.org/1999/xlink"
16 xmlns:svg="http://www.w3.org/2000/svg"
17 xmlns:ns5="http://www.w3.org/1999/xhtml"
18 xmlns:mml="http://www.w3.org/1998/Math/MathML"
19 xmlns:db="http://docbook.org/ns/docbook">
20 <info>
21 <pubdate>$LastChangedDate: 2008-03-26 08:50:39 +0000 (mer, 26 mar 2008)
22 $</pubdate>
23 </info>
24
25 <refnamediv>
26 <refname>getf</refname>
27
28 <refpurpose>defining a function from a file</refpurpose>
29 </refnamediv>
30
31 <refsynopsisdiv>
32 <title>Calling Sequence</title>
33
34 <synopsis>getf(file-name [,opt])</synopsis>
35 </refsynopsisdiv>
36
37 <refsection>
38 <title>Parameters</title>
39
40 <variablelist>
41 <varlistentry>
42 <term>filename</term>
43
44 <listitem>
45 <para>Scilab string.</para>
46 </listitem>
47 </varlistentry>
48
49 <varlistentry>
50 <term>opt</term>
51
52 <listitem>
53 <para>optional character string</para>
54
55 <variablelist>
56 <varlistentry>
57 <term>"c"</term>
58
59 <listitem>
60 <para>loaded functions are "compiled" to be more efficient
61 (default)</para>
62 </listitem>
63 </varlistentry>
64
65 <varlistentry>
66 <term>"n"</term>
67
68 <listitem>
69 <para>loaded functions are not "compiled"</para>
70 </listitem>
71 </varlistentry>
72
73 <varlistentry>
74 <term>"p"</term>
75
76 <listitem>
77 <para>loaded functions are "compiled" and prepared for
78 profiling (see profile)</para>
79 </listitem>
80 </varlistentry>
81 </variablelist>
82 </listitem>
83 </varlistentry>
84 </variablelist>
85 </refsection>
86
87 <refsection>
88 <title>Description</title>
89
90 <para> WARNING: this function has been deprecated (see exec as a replacement of getf). getf will be removed in Scilab 5.3 </para>
91
92 <para>loads one or several functions (see <literal>functions</literal>)
93 defined in the file <literal>'file-name'</literal>. The string
94 <literal>opt='n'</literal> means that the functions are not compiled
95 (pre-interpreted) when loaded. This can be useful for some debugging
96 purpose (see <literal>comp</literal>). By default, functions are compiled
97 when loaded (i.e. <literal>opt='c'</literal> is used).</para>
98
99 <para>In the file a function must begin by a "syntax definition" line as
100 follows:</para>
101
102 <programlisting><![CDATA[
103function [y1,...,yn]=foo(x1,...,xm)
104 ]]></programlisting>
105
106 <para>The following lines contain a sequence of scilab
107 instructions.</para>
108
109 <para>The "syntax definition" line gives the "full" calling syntax of this
110 function. The <literal>yi</literal> are output variables calculated as
111 functions of input variables <literal>xi</literal> and variables existing
112 in Scilab when the function is executed. Shorter input or output argument
113 list may be used.</para>
114
115 <para>Many functions may be written in the same file. A function is
116 terminated by an <literal>endfunction</literal> keyword. For compatibility
117 with previous versions a function may also be terminated by the following
118 <literal>function</literal> keyword or the <literal>EOF</literal> mark.
119 For that reason it is not possible to load function containing nested
120 function definition using the <literal>getf</literal> function.</para>
121
122 <para><literal>getf</literal> is an obsolete way for loading functions
123 into scilab from a file. It is replaced by the function <link
124 linkend="exec">exec</link>. Note that functions in a file should be
125 terminated by an <literal>endfunction</literal> keyword. The
126 <literal>exec</literal> function supposes
127 <literal>opt=='c'</literal>.</para>
128
129 <para>To prepare a function for profiling please use the <link
130 linkend="add_profiling">add_profiling</link> function.</para>
131 </refsection>
132
133 <refsection>
134 <title>Examples</title>
135
136 <programlisting role="example">
137
138getf('SCI/modules/graphics/macros/plot.sci')
139
140getf SCI/modules/graphics/macros/plot.sci
141
142 </programlisting>
143 </refsection>
144
145 <refsection>
146 <title>See Also</title>
147
148 <simplelist type="inline">
149 <member><link linkend="functions">functions</link></member>
150
151 <member><link linkend="function">function</link></member>
152
153 <member><link linkend="genlib">genlib</link></member>
154
155 <member><link linkend="getd">getd</link></member>
156
157 <member><link linkend="exec">exec</link></member>
158
159 <member><link linkend="edit">edit</link></member>
160
161 <member><link linkend="comp">comp</link></member>
162
163 <member><link linkend="add_profiling">add_profiling</link></member>
164 </simplelist>
165 </refsection>
166</refentry>
diff --git a/scilab/modules/functions/includes/gw_functions.h b/scilab/modules/functions/includes/gw_functions.h
index 557c0b7..18004f8 100644
--- a/scilab/modules/functions/includes/gw_functions.h
+++ b/scilab/modules/functions/includes/gw_functions.h
@@ -23,7 +23,6 @@ FUNCTIONS_SCILAB_IMPEXP int gw_functions(void);
23/*--------------------------------------------------------------------------*/ 23/*--------------------------------------------------------------------------*/
24FUNCTIONS_SCILAB_IMPEXP int C2F(sci_lib)(char *fname,unsigned long fname_len); 24FUNCTIONS_SCILAB_IMPEXP int C2F(sci_lib)(char *fname,unsigned long fname_len);
25FUNCTIONS_SCILAB_IMPEXP int C2F(sci_deff)(char *fname,unsigned long fname_len); 25FUNCTIONS_SCILAB_IMPEXP int C2F(sci_deff)(char *fname,unsigned long fname_len);
26FUNCTIONS_SCILAB_IMPEXP int C2F(sci_getf)(char *fname,unsigned long fname_len);
27FUNCTIONS_SCILAB_IMPEXP int C2F(sci_exec)(char *fname,unsigned long fname_len); 26FUNCTIONS_SCILAB_IMPEXP int C2F(sci_exec)(char *fname,unsigned long fname_len);
28FUNCTIONS_SCILAB_IMPEXP int C2F(sci_execstr)(char *fname,unsigned long fname_len); 27FUNCTIONS_SCILAB_IMPEXP int C2F(sci_execstr)(char *fname,unsigned long fname_len);
29FUNCTIONS_SCILAB_IMPEXP int sci_librarieslist(char *fname,unsigned long fname_len); 28FUNCTIONS_SCILAB_IMPEXP int sci_librarieslist(char *fname,unsigned long fname_len);
diff --git a/scilab/modules/functions/sci_gateway/c/gw_functions.c b/scilab/modules/functions/sci_gateway/c/gw_functions.c
index b542f64..376142f 100644
--- a/scilab/modules/functions/sci_gateway/c/gw_functions.c
+++ b/scilab/modules/functions/sci_gateway/c/gw_functions.c
@@ -17,11 +17,18 @@
17#include "callFunctionFromGateway.h" 17#include "callFunctionFromGateway.h"
18#include "recursionFunction.h" 18#include "recursionFunction.h"
19/*--------------------------------------------------------------------------*/ 19/*--------------------------------------------------------------------------*/
20static int sci_getf(char *fname,unsigned long fname_len)
21{
22 // Because we do not want change order in gateway
23 // empty function
24 return 0;
25}
26/*--------------------------------------------------------------------------*/
20static gw_generic_table Tab[] = 27static gw_generic_table Tab[] =
21{ 28{
22 {C2F(sci_lib),"lib"}, 29 {C2F(sci_lib),"lib"},
23 {C2F(sci_deff),"deff"}, 30 {C2F(sci_deff),"deff"},
24 {C2F(sci_getf),"getf"}, 31 {sci_getf,"getf"},
25 {C2F(sci_exec),"exec"}, 32 {C2F(sci_exec),"exec"},
26 {C2F(sci_execstr),"execstr"}, 33 {C2F(sci_execstr),"execstr"},
27 {sci_librarieslist,"librarieslist"}, 34 {sci_librarieslist,"librarieslist"},
@@ -42,11 +49,6 @@ int gw_functions(void)
42 C2F(sci_deff)(deff_fname,(unsigned long)strlen(deff_fname)); 49 C2F(sci_deff)(deff_fname,(unsigned long)strlen(deff_fname));
43 return 0; 50 return 0;
44 51
45 case RECURSION_CALL_GETF:
46 #define getf_fname "getf"
47 C2F(sci_getf)(deff_fname,(unsigned long)strlen(getf_fname));
48 return 0;
49
50 case RECURSION_CALL_EXEC1: case RECURSION_CALL_EXEC2: 52 case RECURSION_CALL_EXEC1: case RECURSION_CALL_EXEC2:
51 #define exec_fname "exec" 53 #define exec_fname "exec"
52 C2F(sci_exec)(exec_fname,(unsigned long)strlen(exec_fname)); 54 C2F(sci_exec)(exec_fname,(unsigned long)strlen(exec_fname));
diff --git a/scilab/modules/functions/sci_gateway/c/sci_getf.c b/scilab/modules/functions/sci_gateway/c/sci_getf.c
deleted file mode 100644
index 54a34e1..0000000
--- a/scilab/modules/functions/sci_gateway/c/sci_getf.c
+++ /dev/null
@@ -1,36 +0,0 @@
1/*
2 * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3 * Copyright (C) 2006 - INRIA - Allan CORNET
4 *
5 * This file must be used under the terms of the CeCILL.
6 * This source file is licensed as described in the file COPYING, which
7 * you should have received as part of this distribution. The terms
8 * are also available at
9 * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10 *
11 */
12#include <string.h>
13#include "gw_functions.h"
14#include "warningmode.h"
15#include "sciprint.h"
16#include "localization.h"
17/*--------------------------------------------------------------------------*/
18extern int C2F(intgetf)(); /* fortran */
19/*--------------------------------------------------------------------------*/
20int C2F(sci_getf)(char *fname,unsigned long fname_len)
21{
22 if (getWarningMode())
23 {
24 /* recursion calls of getf by deff */
25 if (strcmp(fname,"getf") == 0)
26 {
27 sciprint(_("WARNING: Function %s is obsolete.\n"), fname);
28 sciprint(_("WARNING: Please use %s instead.\n"), "exec");
29 sciprint(_("WARNING: This function will be permanently removed in Scilab %s.\n"), "5.3");
30 }
31 }
32
33 C2F(intgetf)();
34 return 0;
35}
36/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/functions/sci_gateway/fortran/intgetf.f b/scilab/modules/functions/sci_gateway/fortran/intgetf.f
deleted file mode 100644
index e7d610b..0000000
--- a/scilab/modules/functions/sci_gateway/fortran/intgetf.f
+++ /dev/null
@@ -1,122 +0,0 @@
1c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
2c Copyright (C) INRIA
3c Copyright (C) ENPC
4c
5c This file must be used under the terms of the CeCILL.
6c This source file is licensed as described in the file COPYING, which
7c you should have received as part of this distribution. The terms
8c are also available at
9c http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
10 subroutine intgetf
11c
12 INCLUDE 'stack.h'
13c
14 integer mode(2)
15 integer nocomp,profile
16 logical opened,eptover,cremat
17 integer iadr
18c
19 data nocomp/23/,profile/25/
20c
21 iadr(l)=l+l-1
22c
23 if (rstk(pt).eq.904) goto 57
24c
25 if(rhs.gt.2) then
26 call error(42)
27 return
28 endif
29 if(lhs.gt.1) then
30 call error(41)
31 return
32 endif
33c opening file
34 top = top-rhs+1
35 il=iadr(lstk(top))
36 call v2cunit(top,'rb',lunit,opened,ierr)
37c exec works with C and Fortran opened files
38 if(ierr.gt.0) return
39
40c
41 if(rhs.gt.1) then
42 ilc=iadr(lstk(top+1))
43 icomp=1
44 if(istk(ilc).eq.10) then
45 if(istk(ilc+5+istk(ilc+1)*istk(ilc+2)).eq.nocomp) then
46 icomp=0
47 else if(istk(ilc+5+istk(ilc+1)*istk(ilc+2)).eq.profile) then
48 icomp=2
49 endif
50 endif
51 else
52 icomp=1
53 endif
54c loop on all function defined in the file
55 nline=0
56 55 call getfun(lunit,nline,'getf')
57 fun=0
58 job=fin
59 if(err.gt.0.or.err1.gt.0) then
60 if(.not.opened) then
61 call clunit(-lunit,buf,mode)
62 endif
63 return
64 endif
65 if(job.lt.0) then
66c . no more function to get
67 goto 59
68 endif
69 if(icomp.eq.0) then
70c . getf without compilation, just store the variable
71 call stackp(idstk(1,top),0)
72 if(job.eq.0) goto 55
73 goto 59
74 endif
75
76 if ( eptover(1,psiz)) return
77 rstk(pt)=904
78 pstk(pt)=job
79 ids(1,pt)=lunit
80 if(opened) then
81 ids(2,pt)=1
82 else
83 ids(2,pt)=0
84 endif
85 ids(3,pt)=icomp
86 ids(4,pt)=nline
87 if(icomp.eq.2) then
88 top=top+1
89 if (.not.cremat('getf',top,0,1,1,lr1,lc1)) return
90 stk(lr1)=2
91 rhs=2
92 else
93 rhs=1
94 endif
95 lhs=1
96 fun=13
97 fin=06
98c *call* comp
99 return
100 57 continue
101 job=pstk(pt)
102 lunit=ids(1,pt)
103 opened=ids(2,pt).eq.1
104 icomp=ids(3,pt)
105 nline=ids(4,pt)
106c
107 pt=pt-1
108 if (err1.eq.0) top=top-1
109 if(job.eq.0) goto 55
110
111c
112 59 call objvide('getf',top)
113 comp(1)=0
114 fun=0
115 if(.not.opened) then
116 mode(1)=0
117 mode(2)=0
118 call clunit(-lunit,buf,mode)
119 endif
120 goto 999
121 999 return
122 end
diff --git a/scilab/modules/functions/sci_gateway/functions_gateway.xml b/scilab/modules/functions/sci_gateway/functions_gateway.xml
index 6400c6c..88b5912 100644
--- a/scilab/modules/functions/sci_gateway/functions_gateway.xml
+++ b/scilab/modules/functions/sci_gateway/functions_gateway.xml
@@ -32,7 +32,6 @@
32<GATEWAY name="functions"> 32<GATEWAY name="functions">
33<PRIMITIVE gatewayId="31" primitiveId="1" primitiveName="lib" /> 33<PRIMITIVE gatewayId="31" primitiveId="1" primitiveName="lib" />
34<PRIMITIVE gatewayId="31" primitiveId="2" primitiveName="deff" /> 34<PRIMITIVE gatewayId="31" primitiveId="2" primitiveName="deff" />
35<PRIMITIVE gatewayId="31" primitiveId="3" primitiveName="getf" />
36<PRIMITIVE gatewayId="31" primitiveId="4" primitiveName="exec" /> 35<PRIMITIVE gatewayId="31" primitiveId="4" primitiveName="exec" />
37<PRIMITIVE gatewayId="31" primitiveId="5" primitiveName="execstr" /> 36<PRIMITIVE gatewayId="31" primitiveId="5" primitiveName="execstr" />
38<PRIMITIVE gatewayId="31" primitiveId="6" primitiveName="librarieslist" /> 37<PRIMITIVE gatewayId="31" primitiveId="6" primitiveName="librarieslist" />
diff --git a/scilab/modules/functions/src/c/functions.vcproj b/scilab/modules/functions/src/c/functions.vcproj
index ed7a89e..0489dff 100644
--- a/scilab/modules/functions/src/c/functions.vcproj
+++ b/scilab/modules/functions/src/c/functions.vcproj
@@ -404,10 +404,6 @@
404 > 404 >
405 </File> 405 </File>
406 <File 406 <File
407 RelativePath="..\..\sci_gateway\c\sci_getf.c"
408 >
409 </File>
410 <File
411 RelativePath="..\..\sci_gateway\c\sci_lib.c" 407 RelativePath="..\..\sci_gateway\c\sci_lib.c"
412 > 408 >
413 </File> 409 </File>
diff --git a/scilab/modules/functions/src/fortran/functions_f.vfproj b/scilab/modules/functions/src/fortran/functions_f.vfproj
index 88487f6..777d282 100644
--- a/scilab/modules/functions/src/fortran/functions_f.vfproj
+++ b/scilab/modules/functions/src/fortran/functions_f.vfproj
@@ -5,7 +5,7 @@
5 <Platform Name="x64"/></Platforms> 5 <Platform Name="x64"/></Platforms>
6 <Configurations> 6 <Configurations>
7 <Configuration Name="Debug|Win32" OutputDirectory="$(InputDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary"> 7 <Configuration Name="Debug|Win32" OutputDirectory="$(InputDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary">
8 <Tool Name="VFFortranCompilerTool" AdditionalOptions="" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDebugDLL"/> 8 <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDebugDLL"/>
9 <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\functions_f.dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="functions_f.def" GenerateDebugInformation="true" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\functions_f.lib" LinkDLL="true" AdditionalDependencies="Libscilab.lib string.lib output_stream.lib fileio.lib io_f.lib"/> 9 <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\functions_f.dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="functions_f.def" GenerateDebugInformation="true" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\functions_f.lib" LinkDLL="true" AdditionalDependencies="Libscilab.lib string.lib output_stream.lib fileio.lib io_f.lib"/>
10 <Tool Name="VFResourceCompilerTool"/> 10 <Tool Name="VFResourceCompilerTool"/>
11 <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/> 11 <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/>
@@ -25,7 +25,7 @@ lib /DEF:&quot;$(InputDir)io_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86
25 <Tool Name="VFPostBuildEventTool"/> 25 <Tool Name="VFPostBuildEventTool"/>
26 <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration> 26 <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
27 <Configuration Name="Release|Win32" OutputDirectory="$(InputDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary"> 27 <Configuration Name="Release|Win32" OutputDirectory="$(InputDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary">
28 <Tool Name="VFFortranCompilerTool" AdditionalOptions="" SuppressStartupBanner="true" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDLL"/> 28 <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDLL"/>
29 <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\functions_f.dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="functions_f.def" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\functions_f.lib" LinkDLL="true" AdditionalDependencies="Libscilab.lib string.lib output_stream.lib fileio.lib io_f.lib"/> 29 <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\functions_f.dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="functions_f.def" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\functions_f.lib" LinkDLL="true" AdditionalDependencies="Libscilab.lib string.lib output_stream.lib fileio.lib io_f.lib"/>
30 <Tool Name="VFResourceCompilerTool"/> 30 <Tool Name="VFResourceCompilerTool"/>
31 <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/> 31 <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/>
@@ -89,7 +89,6 @@ lib /DEF:&quot;$(InputDir)io_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64
89 <File RelativePath="..\..\sci_gateway\fortran\intdeff.f"/> 89 <File RelativePath="..\..\sci_gateway\fortran\intdeff.f"/>
90 <File RelativePath="..\..\sci_gateway\fortran\intexec.f"/> 90 <File RelativePath="..\..\sci_gateway\fortran\intexec.f"/>
91 <File RelativePath="..\..\sci_gateway\fortran\intexecstr.f"/> 91 <File RelativePath="..\..\sci_gateway\fortran\intexecstr.f"/>
92 <File RelativePath="..\..\sci_gateway\fortran\intgetf.f"/>
93 <File RelativePath="..\..\sci_gateway\fortran\intlib.f"/> 92 <File RelativePath="..\..\sci_gateway\fortran\intlib.f"/>
94 <File RelativePath=".\whereis.f"/></Filter> 93 <File RelativePath=".\whereis.f"/></Filter>
95 <File RelativePath="..\..\..\..\bin\blasplus.lib"/> 94 <File RelativePath="..\..\..\..\bin\blasplus.lib"/>
diff --git a/scilab/modules/functions/src/fortran/functions_f2c.vcproj b/scilab/modules/functions/src/fortran/functions_f2c.vcproj
index 306c966..1ff62ba 100644
--- a/scilab/modules/functions/src/fortran/functions_f2c.vcproj
+++ b/scilab/modules/functions/src/fortran/functions_f2c.vcproj
@@ -413,10 +413,6 @@
413 > 413 >
414 </File> 414 </File>
415 <File 415 <File
416 RelativePath="..\..\sci_gateway\fortran\intgetf.c"
417 >
418 </File>
419 <File
420 RelativePath="..\..\sci_gateway\fortran\intlib.c" 416 RelativePath="..\..\sci_gateway\fortran\intlib.c"
421 > 417 >
422 </File> 418 </File>
@@ -453,10 +449,6 @@
453 > 449 >
454 </File> 450 </File>
455 <File 451 <File
456 RelativePath="..\..\sci_gateway\fortran\intgetf.f"
457 >
458 </File>
459 <File
460 RelativePath="..\..\sci_gateway\fortran\intlib.f" 452 RelativePath="..\..\sci_gateway\fortran\intlib.f"
461 > 453 >
462 </File> 454 </File>
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_1469.dia.ref b/scilab/modules/functions/tests/nonreg_tests/bug_1469.dia.ref
index b52c5d4..01c3c78 100644
--- a/scilab/modules/functions/tests/nonreg_tests/bug_1469.dia.ref
+++ b/scilab/modules/functions/tests/nonreg_tests/bug_1469.dia.ref
@@ -4,6 +4,9 @@
4// 4//
5// This file is distributed under the same license as the Scilab package. 5// This file is distributed under the same license as the Scilab package.
6// ============================================================================= 6// =============================================================================
7//
8// <-- ENGLISH IMPOSED -->
9//
7// <-- Non-regression test for bug 1469 --> 10// <-- Non-regression test for bug 1469 -->
8// 11//
9// <-- Bugzilla URL --> 12// <-- Bugzilla URL -->
@@ -259,10 +262,14 @@ t=['function foo,//ZZZZ'
259'endfunction']; 262'endfunction'];
260mputl(t,TMPDIR+'/foo.sci'); 263mputl(t,TMPDIR+'/foo.sci');
261warning('off'); 264warning('off');
262getf(TMPDIR+'/foo.sci') 265
266function foo,//ZZZZ
267 a=1
268endfunction
269
263warning('on'); 270warning('on');
264L=macr2lst(foo); //getf ignores declaration line comments 271L=macr2lst(foo); //getf ignores declaration line comments
265R21=L(4)(1)=='15'&L(5)(1)=='6'&size(L)==10 272R21=L(4)(1)=='31'&L(5)(1)=='15'&size(L)==11
266 R21 = 273 R21 =
267 274
268 T 275 T
diff --git a/scilab/modules/functions/tests/nonreg_tests/bug_1469.tst b/scilab/modules/functions/tests/nonreg_tests/bug_1469.tst
index 4e46a09..65222e9 100644
--- a/scilab/modules/functions/tests/nonreg_tests/bug_1469.tst
+++ b/scilab/modules/functions/tests/nonreg_tests/bug_1469.tst
@@ -241,10 +241,10 @@ t=['function foo,//ZZZZ'
241'endfunction']; 241'endfunction'];
242mputl(t,TMPDIR+'/foo.sci'); 242mputl(t,TMPDIR+'/foo.sci');
243warning('off'); 243warning('off');
244getf(TMPDIR+'/foo.sci') 244exec(TMPDIR+'/foo.sci')
245warning('on'); 245warning('on');
246L=macr2lst(foo); //getf ignores declaration line comments 246L=macr2lst(foo); //getf ignores declaration line comments
247R21=L(4)(1)=='15'&L(5)(1)=='6'&size(L)==10 247R21=L(4)(1)=='31'&L(5)(1)=='15'&size(L)==11
248if ~R21 then pause,end 248if ~R21 then pause,end
249clear foo; 249clear foo;
250 250
diff --git a/scilab/modules/functions/tests/unit_tests/fun2string.dia.ref b/scilab/modules/functions/tests/unit_tests/fun2string.dia.ref
index fb2d7ff..c433624 100644
--- a/scilab/modules/functions/tests/unit_tests/fun2string.dia.ref
+++ b/scilab/modules/functions/tests/unit_tests/fun2string.dia.ref
@@ -110,7 +110,6 @@ ref=["function []=foo()";
110 "endfunction"]; 110 "endfunction"];
111mputl(ref,TMPDIR+'/foo.sci'); 111mputl(ref,TMPDIR+'/foo.sci');
112warning('off'); 112warning('off');
113getf(TMPDIR+'/foo.sci');
114warning('on'); 113warning('on');
115if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end 114if or(fun2string(foo,'foo')<>ref) then bugmes();quit;end
116// with nested functions 115// with nested functions
diff --git a/scilab/modules/functions/tests/unit_tests/fun2string.tst b/scilab/modules/functions/tests/unit_tests/fun2string.tst
index 41d1dfc..1124b26 100644
--- a/scilab/modules/functions/tests/unit_tests/fun2string.tst
+++ b/scilab/modules/functions/tests/unit_tests/fun2string.tst
@@ -111,7 +111,7 @@ ref=["function []=foo()";
111 "endfunction"]; 111 "endfunction"];
112mputl(ref,TMPDIR+'/foo.sci'); 112mputl(ref,TMPDIR+'/foo.sci');
113warning('off'); 113warning('off');
114getf(TMPDIR+'/foo.sci'); 114exec(TMPDIR+'/foo.sci');
115warning('on'); 115warning('on');
116if or(fun2string(foo,'foo')<>ref) then pause,end 116if or(fun2string(foo,'foo')<>ref) then pause,end
117 117
diff --git a/scilab/modules/functions/tests/unit_tests/getf.dia.ref b/scilab/modules/functions/tests/unit_tests/getf.dia.ref
deleted file mode 100644
index 026f07d..0000000
--- a/scilab/modules/functions/tests/unit_tests/getf.dia.ref
+++ /dev/null
@@ -1,11 +0,0 @@
1// =============================================================================
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) 2009 - DIGITEO - Allan CORNET
4//
5// This file is distributed under the same license as the Scilab package.
6// =============================================================================
7funcprot(0);
8warning('off');
9ierr = execstr('getf(''SCI/modules/graphics/macros/plot.sci'');','errcatch');
10warning('on');
11if ierr <> 0 then bugmes();quit;end
diff --git a/scilab/modules/functions/tests/unit_tests/getf.tst b/scilab/modules/functions/tests/unit_tests/getf.tst
deleted file mode 100644
index c3a9130..0000000
--- a/scilab/modules/functions/tests/unit_tests/getf.tst
+++ /dev/null
@@ -1,11 +0,0 @@
1// =============================================================================
2// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
3// Copyright (C) 2009 - DIGITEO - Allan CORNET
4//
5// This file is distributed under the same license as the Scilab package.
6// =============================================================================
7funcprot(0);
8warning('off');
9ierr = execstr('getf(''SCI/modules/graphics/macros/plot.sci'');','errcatch');
10warning('on');
11if ierr <> 0 then pause,end \ No newline at end of file