[cleanup] stackxxx.h removed 10/16810/9
Cedric Delamarre [Tue, 7 Jul 2015 10:30:17 +0000 (12:30 +0200)]
Change-Id: Ia407f936341650657831248fd30db3f0b08104a8

249 files changed:
scilab/Makefile.in
scilab/Visual-Studio-settings/rename-vc-files/rename-vc-files.vcxproj
scilab/Visual-Studio-settings/rename-vc-files/rename-vc-files.vcxproj.filters
scilab/configure
scilab/configure.ac
scilab/modules/api_scilab/help/en_US/capi/CheckLhs.xml
scilab/modules/api_scilab/help/en_US/capi/CheckRhs.xml
scilab/modules/api_scilab/help/en_US/capi/LhsVar.xml
scilab/modules/api_scilab/help/en_US/capi/howto/CallingAScilabFunctionFromACInterface.xml
scilab/modules/api_scilab/includes/api_scilab.h
scilab/modules/api_scilab/src/cpp/api_common.cpp
scilab/modules/api_scilab/src/cpp/api_error.cpp
scilab/modules/arnoldi/Makefile.am
scilab/modules/arnoldi/Makefile.in
scilab/modules/arnoldi/arnoldi.vcxproj
scilab/modules/arnoldi/arnoldi.vcxproj.filters
scilab/modules/arnoldi/includes/eigs_dependencies.h
scilab/modules/arnoldi/src/c/eigs.c
scilab/modules/arnoldi/src/c/eigs_dependencies.c
scilab/modules/ast/src/c/operations/matrix_division.c
scilab/modules/call_scilab/examples/call_scilab/cpp/common/ccmatrix1.cpp
scilab/modules/call_scilab/help/en_US/call_scilab.xml
scilab/modules/call_scilab/help/ja_JP/call_scilab.xml
scilab/modules/commons/src/c/core_Import.def
scilab/modules/commons/src/jni/ScilabCommons_wrap.c
scilab/modules/console/sci_gateway/c/sci_clc.c [deleted file]
scilab/modules/console/sci_gateway/c/sci_prompt.c [deleted file]
scilab/modules/console/src/c/scilines.c
scilab/modules/console/src/c/windows/TermLine.c
scilab/modules/core/Makefile.am
scilab/modules/core/Makefile.in
scilab/modules/core/includes/callFunctionFromGateway.h [deleted file]
scilab/modules/core/includes/machine.h.in
scilab/modules/core/includes/machine.h.vc
scilab/modules/core/includes/setformat.h
scilab/modules/core/includes/setieee.h [deleted file]
scilab/modules/core/includes/stack-c.h [deleted file]
scilab/modules/core/includes/stack-def.h [deleted file]
scilab/modules/core/includes/stack-optional.h [deleted file]
scilab/modules/core/includes/stack.h.in [deleted file]
scilab/modules/core/includes/stack.h.vc [deleted file]
scilab/modules/core/includes/stack1.h [deleted file]
scilab/modules/core/includes/stack2.h [deleted file]
scilab/modules/core/includes/stack3.h [deleted file]
scilab/modules/core/includes/stackTypeVariable.h [deleted file]
scilab/modules/core/includes/stackinfo.h [deleted file]
scilab/modules/core/includes/texmacs.h
scilab/modules/core/sci_gateway/c/sci_errclear.c [deleted file]
scilab/modules/core/sci_gateway/c/sci_error.c [deleted file]
scilab/modules/core/sci_gateway/c/sci_getmd5.c [deleted file]
scilab/modules/core/sci_gateway/c/sci_havewindow.c [deleted file]
scilab/modules/core/sci_gateway/c/sci_warning.c [deleted file]
scilab/modules/core/sci_gateway/c/sci_what.c [deleted file]
scilab/modules/core/sci_gateway/c/sci_who.c [deleted file]
scilab/modules/core/src/c/DllmainCore.c
scilab/modules/core/src/c/InitializePreferences.c
scilab/modules/core/src/c/callFunctionFromGateway.c [deleted file]
scilab/modules/core/src/c/core.vcxproj
scilab/modules/core/src/c/core.vcxproj.filters
scilab/modules/core/src/c/core_export.def
scilab/modules/core/src/c/funcprot.h [deleted file]
scilab/modules/core/src/c/setieee.c [deleted file]
scilab/modules/core/src/c/texmacs.c
scilab/modules/core/src/cpp/namstr.cpp [deleted file]
scilab/modules/core/src/cpp/setformat.cpp [moved from scilab/modules/core/src/c/setformat.c with 69% similarity]
scilab/modules/core/src/cpp/setlines.cpp [moved from scilab/modules/core/src/c/setlines.c with 79% similarity]
scilab/modules/core/src/fortran/Output_stream_Import.def
scilab/modules/core/src/fortran/core_Import.def
scilab/modules/core/src/fortran/core_f.vfproj
scilab/modules/core/src/fortran/core_f2c.vcxproj
scilab/modules/core/src/fortran/core_f2c.vcxproj.filters
scilab/modules/core/src/fortran/putid.f [deleted file]
scilab/modules/core/src/fortran/whatln.f [deleted file]
scilab/modules/development_tools/src/perl/xml2test/includes.txt
scilab/modules/differential_equations/Makefile.am
scilab/modules/differential_equations/Makefile.in
scilab/modules/differential_equations/includes/common_structure.h
scilab/modules/differential_equations/src/c/core_Import.def
scilab/modules/differential_equations/src/c/differential_equations.vcxproj
scilab/modules/differential_equations/src/c/differential_equations.vcxproj.filters
scilab/modules/differential_equations/src/c/errmds.c [moved from scilab/modules/output_stream/src/c/errmds.c with 97% similarity]
scilab/modules/differential_equations/src/c/errmds.h [moved from scilab/modules/output_stream/includes/errmds.h with 100% similarity]
scilab/modules/differential_equations/src/c/rk4.c
scilab/modules/differential_equations/src/fortran/Core_f_Import.def
scilab/modules/differential_equations/src/fortran/Output_stream_Import.def
scilab/modules/differential_equations/src/fortran/ainvg.f
scilab/modules/differential_equations/src/fortran/colnew.f
scilab/modules/differential_equations/src/fortran/core_Import.def
scilab/modules/differential_equations/src/fortran/ddasrt.f
scilab/modules/differential_equations/src/fortran/ddassl.f
scilab/modules/differential_equations/src/fortran/differential_equations_Import.def
scilab/modules/differential_equations/src/fortran/lsdisc.f
scilab/modules/differential_equations/src/fortran/lsoda.f
scilab/modules/differential_equations/src/fortran/lsodar.f
scilab/modules/differential_equations/src/fortran/lsode.f
scilab/modules/differential_equations/src/fortran/lsodi.f
scilab/modules/differential_equations/src/fortran/lsrgk.f
scilab/modules/differential_equations/src/fortran/odeint.f
scilab/modules/differential_equations/src/fortran/prepj.f
scilab/modules/differential_equations/src/fortran/prepji.f
scilab/modules/differential_equations/src/fortran/prja.f
scilab/modules/differential_equations/src/fortran/rchek.f
scilab/modules/differential_equations/src/fortran/rchek2.f
scilab/modules/differential_equations/src/fortran/rkf45.f
scilab/modules/differential_equations/src/fortran/rkqc.f
scilab/modules/differential_equations/src/fortran/rksimp.f
scilab/modules/differential_equations/src/fortran/stoda.f
scilab/modules/differential_equations/src/fortran/stode.f
scilab/modules/differential_equations/src/fortran/xerrwv.f
scilab/modules/dynamic_link/Makefile.am
scilab/modules/dynamic_link/Makefile.in
scilab/modules/dynamic_link/src/c/dynamic_link.vcxproj
scilab/modules/dynamic_link/src/c/dynamic_link.vcxproj.filters
scilab/modules/dynamic_link/src/cpp/dynamic_link.cpp
scilab/modules/elementary_functions/Makefile.am
scilab/modules/elementary_functions/Makefile.in
scilab/modules/elementary_functions/includes/elem_common.h
scilab/modules/elementary_functions/sci_gateway/c/sci_abs.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_acos.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_asin.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_atan.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_ceil.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_conj.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_cos.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_cumprod.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_cumsum.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_diag.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_dsearch.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_exp.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_expm.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_floor.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_gsort.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_imag.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_imult.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_int.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_isreal.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_kron.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_log.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_log10.c
scilab/modules/elementary_functions/sci_gateway/c/sci_log1p.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_matrix.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_rand.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_sin.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_sum.c [deleted file]
scilab/modules/elementary_functions/sci_gateway/c/sci_tan.c [deleted file]
scilab/modules/elementary_functions/src/c/IsEqualVar.h
scilab/modules/elementary_functions/src/c/convertbase.c
scilab/modules/elementary_functions/src/fortran/elementary_functions_f.vfproj
scilab/modules/elementary_functions/src/fortran/israt.f [deleted file]
scilab/modules/elementary_functions/src/fortran/slatec/xerprn.f
scilab/modules/elementary_functions/src/fortran/slatec/xersve.f
scilab/modules/elementary_functions/src/fortran/watan.f
scilab/modules/fileio/sci_gateway/c/sci_maxfiles.c
scilab/modules/fileio/src/c/readline.c
scilab/modules/graphics/src/c/sciCall.c
scilab/modules/hdf5/sci_gateway/cpp/hdf5_gw.cpp
scilab/modules/hdf5/src/c/h5_readDataFromFile.c
scilab/modules/history_manager/sci_gateway/c/sci_addhistory.c [deleted file]
scilab/modules/history_manager/sci_gateway/c/sci_gethistory.c [deleted file]
scilab/modules/history_manager/sci_gateway/c/sci_gethistoryfile.c [deleted file]
scilab/modules/history_manager/sci_gateway/c/sci_historymanager.c [deleted file]
scilab/modules/history_manager/sci_gateway/c/sci_loadhistory.c [deleted file]
scilab/modules/history_manager/sci_gateway/c/sci_removelinehistory.c [deleted file]
scilab/modules/history_manager/sci_gateway/c/sci_resethistory.c [deleted file]
scilab/modules/history_manager/sci_gateway/c/sci_saveafterncommands.c [deleted file]
scilab/modules/history_manager/sci_gateway/c/sci_saveconsecutivecommands.c [deleted file]
scilab/modules/history_manager/sci_gateway/c/sci_savehistory.c [deleted file]
scilab/modules/history_manager/sci_gateway/c/sci_sethistoryfile.c [deleted file]
scilab/modules/interpolation/sci_gateway/c/sci_bsplin3val.c [deleted file]
scilab/modules/interpolation/sci_gateway/c/sci_cshep2d.c [deleted file]
scilab/modules/interpolation/sci_gateway/c/sci_eval_cshep2d.c [deleted file]
scilab/modules/interpolation/sci_gateway/c/sci_interp.c [deleted file]
scilab/modules/interpolation/sci_gateway/c/sci_interp2d.c [deleted file]
scilab/modules/interpolation/sci_gateway/c/sci_interp3d.c [deleted file]
scilab/modules/interpolation/sci_gateway/c/sci_linear_interpn.c [deleted file]
scilab/modules/interpolation/sci_gateway/c/sci_lsq_splin.c [deleted file]
scilab/modules/interpolation/sci_gateway/c/sci_splin.c [deleted file]
scilab/modules/interpolation/sci_gateway/c/sci_splin2d.c [deleted file]
scilab/modules/interpolation/sci_gateway/c/sci_splin3d.c [deleted file]
scilab/modules/interpolation/src/c/interpolation.c
scilab/modules/io/sci_gateway/c/sci_getio.c
scilab/modules/io/sci_gateway/c/sci_getpid.c
scilab/modules/linear_algebra/examples/intdgemm.c [deleted file]
scilab/modules/linear_algebra/examples/intdsyev.c [deleted file]
scilab/modules/linear_algebra/examples/intzgemm.c [deleted file]
scilab/modules/linear_algebra/sci_gateway/c/assembleEigenvectors.c
scilab/modules/localization/includes/localizationJava.h
scilab/modules/localization/sci_gateway/c/sci_getdefaultlanguage.c [deleted file]
scilab/modules/localization/sci_gateway/c/sci_getlanguage.c [deleted file]
scilab/modules/localization/sci_gateway/c/sci_setdefaultlanguage.c [deleted file]
scilab/modules/localization/sci_gateway/c/sci_setlanguage.c [deleted file]
scilab/modules/localization/src/c/getLcidString.c
scilab/modules/optimization/src/fortran/rdmps1.f
scilab/modules/output_stream/Makefile.am
scilab/modules/output_stream/Makefile.in
scilab/modules/output_stream/includes/msgs.h
scilab/modules/output_stream/src/c/Core_f_Import.def
scilab/modules/output_stream/src/c/msgs.c
scilab/modules/output_stream/src/c/msgstxt.c
scilab/modules/output_stream/src/c/output_stream.vcxproj
scilab/modules/output_stream/src/c/output_stream.vcxproj.filters
scilab/modules/output_stream/src/c/sciprint.c
scilab/modules/output_stream/src/fortran/Core_f_Import.def
scilab/modules/parallel/sci_gateway/cpp/sci_parallel_run.cpp
scilab/modules/polynomials/src/fortran/Core_f_Import.def
scilab/modules/randlib/src/fortran/genf.f
scilab/modules/randlib/src/fortran/gennf.f
scilab/modules/randlib/src/fortran/setgmn.f
scilab/modules/scicos/Makefile.am
scilab/modules/scicos/Makefile.in
scilab/modules/scicos/sci_gateway/c/sci_ftree2.c
scilab/modules/scicos/sci_gateway/c/sci_ftree3.c
scilab/modules/scicos/sci_gateway/c/sci_ftree4.c
scilab/modules/scicos/src/c/MlistGetFieldNumber.c
scilab/modules/scicos/src/c/cli/scicos-cli.vcxproj
scilab/modules/scicos/src/c/scicos.c
scilab/modules/scicos/src/c/scicos.vcxproj
scilab/modules/scicos/src/c/scicos_f_Import.def
scilab/modules/scicos/src/fortran/coselm.f [deleted file]
scilab/modules/scicos/src/fortran/scicos_f.vfproj
scilab/modules/scicos/src/fortran/scicos_f2c.vcxproj
scilab/modules/scicos/src/fortran/scicos_f2c.vcxproj.filters
scilab/modules/scicos/src/fortran/scierr.f [deleted file]
scilab/modules/scicos/src/fortran/skipvars.f [deleted file]
scilab/modules/scicos_blocks/src/c/core_Import.def
scilab/modules/scicos_blocks/src/c/tows_c.c
scilab/modules/scicos_blocks/src/fortran/readf.f
scilab/modules/scicos_blocks/src/fortran/writef.f
scilab/modules/signal_processing/src/fortran/ouch.f
scilab/modules/signal_processing/src/fortran/sci_ffir.f [deleted file]
scilab/modules/signal_processing/src/fortran/signal_processing_f.vfproj
scilab/modules/sparse/sci_gateway/fortran/sci_f_bfinit.f [deleted file]
scilab/modules/sparse/sci_gateway/fortran/sci_f_blkfc1i.f [deleted file]
scilab/modules/sparse/sci_gateway/fortran/sci_f_blkslvi.f [deleted file]
scilab/modules/sparse/sci_gateway/fortran/sci_f_fadj2sp.f [deleted file]
scilab/modules/sparse/sci_gateway/fortran/sci_f_inpnvi.f [deleted file]
scilab/modules/sparse/sci_gateway/fortran/sci_f_sfinit.f [deleted file]
scilab/modules/sparse/sci_gateway/fortran/sci_f_spchol.f [deleted file]
scilab/modules/sparse/sci_gateway/fortran/sci_f_symfcti.f [deleted file]
scilab/modules/sparse/sci_gateway/fortran/sci_f_ta2lpd.f [deleted file]
scilab/modules/spreadsheet/sci_gateway/c/sci_xls_open.c [deleted file]
scilab/modules/spreadsheet/sci_gateway/c/sci_xls_read.c [deleted file]
scilab/modules/statistics/src/dcdflib/dinvr.f
scilab/modules/statistics/src/dcdflib/ipmpar.f
scilab/modules/string/src/c/getfastcode.c
scilab/modules/tclsci/includes/TCL_Global.h
scilab/modules/tclsci/src/c/ScilabEval.c
scilab/modules/umfpack/src/c/sciumfpack.h
scilab/modules/windows_tools/sci_gateway/cpp/sci_winhttpdownload.cpp

index 70a55e4..9a3dc2e 100644 (file)
@@ -146,7 +146,6 @@ DIST_COMMON = $(top_srcdir)/Makefile.call_scilab.am \
        $(srcdir)/scilab-lib-doc.properties.in \
        $(top_srcdir)/modules/helptools/etc/SciDocConf.xml.in \
        $(top_srcdir)/modules/core/includes/version.h.in \
-       $(top_srcdir)/modules/core/includes/stack.h.in \
        $(top_srcdir)/modules/atoms/etc/repositories.in \
        $(top_srcdir)/modules/atoms/tests/unit_tests/repositories.orig.in \
        $(top_srcdir)/config/depcomp COPYING config/ar-lib \
@@ -196,8 +195,7 @@ CONFIG_CLEAN_FILES = scilab.pc etc/modules.xml etc/classpath.xml \
        etc/Info.plist etc/logging.properties scilab.properties \
        scilab-lib.properties scilab-lib-doc.properties \
        modules/helptools/etc/SciDocConf.xml \
-       modules/core/includes/version.h modules/core/includes/stack.h \
-       modules/atoms/etc/repositories \
+       modules/core/includes/version.h modules/atoms/etc/repositories \
        modules/atoms/tests/unit_tests/repositories.orig
 CONFIG_CLEAN_VPATH_FILES =
 am__installdirs = "$(DESTDIR)$(bindir)" "$(DESTDIR)$(bindir)" \
@@ -1051,8 +1049,6 @@ modules/helptools/etc/SciDocConf.xml: $(top_builddir)/config.status $(top_srcdir
        cd $(top_builddir) && $(SHELL) ./config.status $@
 modules/core/includes/version.h: $(top_builddir)/config.status $(top_srcdir)/modules/core/includes/version.h.in
        cd $(top_builddir) && $(SHELL) ./config.status $@
-modules/core/includes/stack.h: $(top_builddir)/config.status $(top_srcdir)/modules/core/includes/stack.h.in
-       cd $(top_builddir) && $(SHELL) ./config.status $@
 modules/atoms/etc/repositories: $(top_builddir)/config.status $(top_srcdir)/modules/atoms/etc/repositories.in
        cd $(top_builddir) && $(SHELL) ./config.status $@
 modules/atoms/tests/unit_tests/repositories.orig: $(top_builddir)/config.status $(top_srcdir)/modules/atoms/tests/unit_tests/repositories.orig.in
index 8c1add1..3157e41 100644 (file)
     <rename_vc_extension_files Include="..\..\etc\modules.xml.vc" />
     <rename_vc_extension_files Include="..\..\scilab-lib-doc.properties.vc" />
     <rename_vc_extension_files Include="..\..\scilab-lib.properties.vc" />
-    <rename_vc_extension_files Include="..\..\modules\core\includes\stack.h.vc" />
     <rename_vc_extension_files Include="..\..\scilab.properties.vc" />
   </ItemGroup>
   <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
index a329997..fabd27a 100644 (file)
@@ -27,9 +27,6 @@
     <rename_vc_extension_files Include="..\..\scilab.properties.vc">
       <Filter>Rename Header Files</Filter>
     </rename_vc_extension_files>
-    <rename_vc_extension_files Include="..\..\modules\core\includes\stack.h.vc">
-      <Filter>Rename Header Files</Filter>
-    </rename_vc_extension_files>
     <rename_vc_extension_files Include="..\..\modules\core\includes\version.h.vc">
       <Filter>Rename Header Files</Filter>
     </rename_vc_extension_files>
index 1afc1cb..6a34b3b 100755 (executable)
@@ -6578,14 +6578,10 @@ $as_echo "Mac OS X 10.7 - Lion." >&6; }
               { $as_echo "$as_me:${as_lineno-$LINENO}: result: Mac OS X 10.6 - Snow Leopard." >&5
 $as_echo "Mac OS X 10.6 - Snow Leopard." >&6; }
          ;;
-         *10.5*)
-              { $as_echo "$as_me:${as_lineno-$LINENO}: result: Mac OS X 10.5 - Leopard." >&5
-$as_echo "Mac OS X 10.5 - Leopard." >&6; }
-         ;;
          *)
-              as_fn_error $? "MacOSX 10.5 to 10.10 are needed. Found $macosx_version" "$LINENO" 5
+              as_fn_error $? "MacOSX 10.6 to 10.10 are needed. Found $macosx_version" "$LINENO" 5
          ;;
-        esac
+    esac
 
      ;;
 esac
@@ -11722,7 +11718,7 @@ $as_echo "$ac_java_classpath" >&6; }
 $as_echo_n "checking to see if the java compiler works... " >&6; }
 
     cat << \EOF > conftest.java
-// #line 11725 "configure"
+// #line 11721 "configure"
 import java.util.regex.Pattern;
 
 
@@ -11809,7 +11805,7 @@ $as_echo_n "checking type of jvm... " >&6; }
     if test "x$ac_java_jvm_name" = "x" ; then
 
     cat << \EOF > conftest.java
-// #line 11812 "configure"
+// #line 11808 "configure"
 import java.util.regex.Pattern;
 
 import gnu.java.io.EncodingManager;
@@ -11893,7 +11889,7 @@ $as_echo_n "checking java API version... " >&6; }
     # The class java.nio.charset.Charset is new to 1.4
 
     cat << \EOF > conftest.java
-// #line 11896 "configure"
+// #line 11892 "configure"
 import java.util.regex.Pattern;
 
 import java.nio.charset.Charset;
@@ -11958,7 +11954,7 @@ EOF
     # The class java.lang.StringBuilder is new to 1.5
 
     cat << \EOF > conftest.java
-// #line 11961 "configure"
+// #line 11957 "configure"
 import java.util.regex.Pattern;
 
 import java.lang.StringBuilder;
@@ -12023,7 +12019,7 @@ EOF
     # The class java.util.ArrayDeque is new to 1.6
 
     cat << \EOF > conftest.java
-// #line 12026 "configure"
+// #line 12022 "configure"
 import java.util.regex.Pattern;
 
 import java.util.ArrayDeque;
@@ -12088,7 +12084,7 @@ EOF
     # The class java.nio.file.Path is new to 1.7
 
     cat << \EOF > conftest.java
-// #line 12091 "configure"
+// #line 12087 "configure"
 import java.util.regex.Pattern;
 
 import java.nio.file.Path;
@@ -12153,7 +12149,7 @@ EOF
     # The class java.util.stream.DoubleStream is new to 1.8
 
     cat << \EOF > conftest.java
-// #line 12156 "configure"
+// #line 12152 "configure"
 import java.util.regex.Pattern;
 
 import java.util.stream.DoubleStream;
@@ -13631,7 +13627,7 @@ $as_echo_n "checking jgraphx... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 13634 "configure"
+// #line 13630 "configure"
 import java.util.regex.Pattern;
 
 import com.mxgraph.model.mxCell;
@@ -13738,7 +13734,7 @@ $as_echo_n "checking minimal version (2.0.0.1) of jgraphx... " >&6; }
    if test "x" == "x"; then
 
     cat << \EOF > conftest.java
-// #line 13741 "configure"
+// #line 13737 "configure"
 import java.util.regex.Pattern;
 
 import com.mxgraph.view.mxGraph;
@@ -13810,7 +13806,7 @@ EOF
    else
 
     cat << \EOF > conftest.java
-// #line 13813 "configure"
+// #line 13809 "configure"
 import java.util.regex.Pattern;
 
 import com.mxgraph.view.mxGraph;
@@ -13904,7 +13900,7 @@ $as_echo_n "checking scirenderer... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 13907 "configure"
+// #line 13903 "configure"
 import java.util.regex.Pattern;
 
 import org.scilab.forge.scirenderer.PackageInfo;
@@ -14011,7 +14007,7 @@ $as_echo_n "checking minimal version (1.1.0) of scirenderer... " >&6; }
    if test "x" == "x"; then
 
     cat << \EOF > conftest.java
-// #line 14014 "configure"
+// #line 14010 "configure"
 import java.util.regex.Pattern;
 
 import org.scilab.forge.scirenderer.PackageInfo;
@@ -14083,7 +14079,7 @@ EOF
    else
 
     cat << \EOF > conftest.java
-// #line 14086 "configure"
+// #line 14082 "configure"
 import java.util.regex.Pattern;
 
 import org.scilab.forge.scirenderer.PackageInfo;
@@ -14182,7 +14178,7 @@ $as_echo_n "checking flexdock... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 14185 "configure"
+// #line 14181 "configure"
 import java.util.regex.Pattern;
 
 import org.flexdock.docking.DockingManager;
@@ -14289,7 +14285,7 @@ $as_echo_n "checking minimal version (1.2.4) of flexdock... " >&6; }
    if test "x" == "x"; then
 
     cat << \EOF > conftest.java
-// #line 14292 "configure"
+// #line 14288 "configure"
 import java.util.regex.Pattern;
 
 import org.flexdock.util.Utilities;
@@ -14361,7 +14357,7 @@ EOF
    else
 
     cat << \EOF > conftest.java
-// #line 14364 "configure"
+// #line 14360 "configure"
 import java.util.regex.Pattern;
 
 import org.flexdock.util.Utilities;
@@ -14452,7 +14448,7 @@ $as_echo_n "checking looks... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 14455 "configure"
+// #line 14451 "configure"
 import java.util.regex.Pattern;
 
 import com.jgoodies.looks.common.MenuItemRenderer;
@@ -14569,7 +14565,7 @@ $as_echo_n "checking jgoodies-looks... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 14572 "configure"
+// #line 14568 "configure"
 import java.util.regex.Pattern;
 
 import com.jgoodies.looks.common.MenuItemRenderer;
@@ -14687,7 +14683,7 @@ $as_echo_n "checking skinlf... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 14690 "configure"
+// #line 14686 "configure"
 import java.util.regex.Pattern;
 
 import com.l2fprod.util.AccessUtils;
@@ -14804,7 +14800,7 @@ $as_echo_n "checking jogl2... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 14807 "configure"
+// #line 14803 "configure"
 import java.util.regex.Pattern;
 
 import javax.media.opengl.glu.GLUnurbs;
@@ -14910,7 +14906,7 @@ $as_echo_n "checking minimal version (Specification-Version 2.2) of jogl2... " >
     if test "x" == "x"; then
 
     cat << \EOF > conftest.java
-// #line 14913 "configure"
+// #line 14909 "configure"
 import java.util.regex.Pattern;
 
 import java.io.IOException;
@@ -14987,7 +14983,7 @@ EOF
     else
 
     cat << \EOF > conftest.java
-// #line 14990 "configure"
+// #line 14986 "configure"
 import java.util.regex.Pattern;
 
 import java.io.IOException;
@@ -15189,7 +15185,7 @@ $as_echo_n "checking gluegen2-rt... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 15192 "configure"
+// #line 15188 "configure"
 import java.util.regex.Pattern;
 
 import jogamp.common.os.MachineDescriptionRuntime;
@@ -15363,7 +15359,7 @@ $as_echo_n "checking jhall... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 15366 "configure"
+// #line 15362 "configure"
 import java.util.regex.Pattern;
 
 import javax.help.JHelp;
@@ -15478,7 +15474,7 @@ $as_echo_n "checking javahelp2... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 15481 "configure"
+// #line 15477 "configure"
 import java.util.regex.Pattern;
 
 import javax.help.JHelp;
@@ -15596,7 +15592,7 @@ $as_echo_n "checking jrosetta-API... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 15599 "configure"
+// #line 15595 "configure"
 import java.util.regex.Pattern;
 
 import com.artenum.rosetta.interfaces.core.ConsoleConfiguration;
@@ -15710,7 +15706,7 @@ $as_echo_n "checking jrosetta-api... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 15713 "configure"
+// #line 15709 "configure"
 import java.util.regex.Pattern;
 
 import com.artenum.rosetta.interfaces.core.ConsoleConfiguration;
@@ -15828,7 +15824,7 @@ $as_echo_n "checking jrosetta-engine... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 15831 "configure"
+// #line 15827 "configure"
 import java.util.regex.Pattern;
 
 import com.artenum.rosetta.core.action.AbstractConsoleAction;
@@ -15934,7 +15930,7 @@ $as_echo_n "checking minimal version (1.0.4) of jrosetta-engine... " >&6; }
    if test "x" == "x"; then
 
     cat << \EOF > conftest.java
-// #line 15937 "configure"
+// #line 15933 "configure"
 import java.util.regex.Pattern;
 
 import com.artenum.rosetta.util.ConfigurationBuilder;
@@ -16006,7 +16002,7 @@ EOF
    else
 
     cat << \EOF > conftest.java
-// #line 16009 "configure"
+// #line 16005 "configure"
 import java.util.regex.Pattern;
 
 import com.artenum.rosetta.util.ConfigurationBuilder;
@@ -16099,7 +16095,7 @@ $as_echo_n "checking jeuclid-core... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 16102 "configure"
+// #line 16098 "configure"
 import java.util.regex.Pattern;
 
 import net.sourceforge.jeuclid.LayoutContext;
@@ -16218,7 +16214,7 @@ $as_echo_n "checking fop... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 16221 "configure"
+// #line 16217 "configure"
 import java.util.regex.Pattern;
 
 import org.apache.fop.pdf.PDFInfo;
@@ -16342,7 +16338,7 @@ $as_echo_n "checking freehep-graphics2d... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 16345 "configure"
+// #line 16341 "configure"
 import java.util.regex.Pattern;
 
 import org.freehep.graphics2d.VectorGraphics;
@@ -16459,7 +16455,7 @@ $as_echo_n "checking freehep-graphicsio-emf... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 16462 "configure"
+// #line 16458 "configure"
 import java.util.regex.Pattern;
 
 import org.freehep.graphicsio.emf.EMFGraphics2D;
@@ -16576,7 +16572,7 @@ $as_echo_n "checking freehep-graphicsio... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 16579 "configure"
+// #line 16575 "configure"
 import java.util.regex.Pattern;
 
 import org.freehep.graphicsio.VectorGraphicsIO;
@@ -16693,7 +16689,7 @@ $as_echo_n "checking freehep-io... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 16696 "configure"
+// #line 16692 "configure"
 import java.util.regex.Pattern;
 
 import org.freehep.util.io.XMLSequence;
@@ -16810,7 +16806,7 @@ $as_echo_n "checking freehep-util... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 16813 "configure"
+// #line 16809 "configure"
 import java.util.regex.Pattern;
 
 import org.freehep.util.StringUtilities;
@@ -16928,7 +16924,7 @@ $as_echo_n "checking batik-all... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 16931 "configure"
+// #line 16927 "configure"
 import java.util.regex.Pattern;
 
 import org.apache.batik.parser.Parser;
@@ -17045,7 +17041,7 @@ $as_echo_n "checking batik... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 17048 "configure"
+// #line 17044 "configure"
 import java.util.regex.Pattern;
 
 import org.apache.batik.parser.Parser;
@@ -17152,7 +17148,7 @@ $as_echo_n "checking minimal version (1.7) of batik... " >&6; }
    if test "x" == "x"; then
 
     cat << \EOF > conftest.java
-// #line 17155 "configure"
+// #line 17151 "configure"
 import java.util.regex.Pattern;
 
 import org.apache.batik.Version;
@@ -17224,7 +17220,7 @@ EOF
    else
 
     cat << \EOF > conftest.java
-// #line 17227 "configure"
+// #line 17223 "configure"
 import java.util.regex.Pattern;
 
 import org.apache.batik.Version;
@@ -17315,7 +17311,7 @@ $as_echo_n "checking commons-io... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 17318 "configure"
+// #line 17314 "configure"
 import java.util.regex.Pattern;
 
 import org.apache.commons.io.output.CountingOutputStream;
@@ -17432,7 +17428,7 @@ $as_echo_n "checking xmlgraphics-commons... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 17435 "configure"
+// #line 17431 "configure"
 import java.util.regex.Pattern;
 
 import org.apache.xmlgraphics.util.Service;
@@ -17549,7 +17545,7 @@ $as_echo_n "checking avalon-framework... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 17552 "configure"
+// #line 17548 "configure"
 import java.util.regex.Pattern;
 
 import org.apache.avalon.framework.configuration.ConfigurationException;
@@ -17666,7 +17662,7 @@ $as_echo_n "checking xml-apis-ext... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 17669 "configure"
+// #line 17665 "configure"
 import java.util.regex.Pattern;
 
 import org.w3c.dom.svg.SVGDocument;
@@ -17783,7 +17779,7 @@ $as_echo_n "checking xml-commons-apis-ext... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 17786 "configure"
+// #line 17782 "configure"
 import java.util.regex.Pattern;
 
 import org.w3c.dom.svg.SVGDocument;
@@ -17904,7 +17900,7 @@ $as_echo_n "checking commons-logging... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 17907 "configure"
+// #line 17903 "configure"
 import java.util.regex.Pattern;
 
 import org.apache.commons.logging.LogFactory;
@@ -18021,7 +18017,7 @@ $as_echo_n "checking jlatexmath... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 18024 "configure"
+// #line 18020 "configure"
 import java.util.regex.Pattern;
 
 import org.scilab.forge.jlatexmath.TeXFormula;
@@ -18128,7 +18124,7 @@ $as_echo_n "checking minimal version (1.0.3) of jlatexmath... " >&6; }
    if test "x" == "x"; then
 
     cat << \EOF > conftest.java
-// #line 18131 "configure"
+// #line 18127 "configure"
 import java.util.regex.Pattern;
 
 import org.scilab.forge.jlatexmath.TeXFormula;
@@ -18200,7 +18196,7 @@ EOF
    else
 
     cat << \EOF > conftest.java
-// #line 18203 "configure"
+// #line 18199 "configure"
 import java.util.regex.Pattern;
 
 import org.scilab.forge.jlatexmath.TeXFormula;
@@ -18291,7 +18287,7 @@ $as_echo_n "checking jlatexmath-fop... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 18294 "configure"
+// #line 18290 "configure"
 import java.util.regex.Pattern;
 
 import org.scilab.forge.jlatexmath.fop.JLaTeXMathObj;
@@ -18414,7 +18410,7 @@ $as_echo_n "checking checkstyle... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 18417 "configure"
+// #line 18413 "configure"
 import java.util.regex.Pattern;
 
 import com.puppycrawl.tools.checkstyle.CheckStyleTask;
@@ -18531,7 +18527,7 @@ $as_echo_n "checking commons-beanutils... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 18534 "configure"
+// #line 18530 "configure"
 import java.util.regex.Pattern;
 
 import org.apache.commons.beanutils.Converter;
@@ -18648,7 +18644,7 @@ $as_echo_n "checking antlr... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 18651 "configure"
+// #line 18647 "configure"
 import java.util.regex.Pattern;
 
 import antlr.TokenStreamException;
@@ -18765,7 +18761,7 @@ $as_echo_n "checking junit4... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 18768 "configure"
+// #line 18764 "configure"
 import java.util.regex.Pattern;
 
 import org.junit.Assert;
@@ -18879,7 +18875,7 @@ $as_echo_n "checking junit... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 18882 "configure"
+// #line 18878 "configure"
 import java.util.regex.Pattern;
 
 import org.junit.Assert;
@@ -19000,7 +18996,7 @@ $as_echo_n "checking cobertura... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 19003 "configure"
+// #line 18999 "configure"
 import java.util.regex.Pattern;
 
 import net.sourceforge.cobertura.merge.Main;
@@ -19117,7 +19113,7 @@ $as_echo_n "checking asm3... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 19120 "configure"
+// #line 19116 "configure"
 import java.util.regex.Pattern;
 
 import org.objectweb.asm.Type;
@@ -19231,7 +19227,7 @@ $as_echo_n "checking asm... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 19234 "configure"
+// #line 19230 "configure"
 import java.util.regex.Pattern;
 
 import org.objectweb.asm.Type;
@@ -19348,7 +19344,7 @@ $as_echo_n "checking ecj... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 19351 "configure"
+// #line 19347 "configure"
 import java.util.regex.Pattern;
 
 import org.eclipse.jdt.core.compiler.batch.BatchCompiler;
@@ -23605,7 +23601,7 @@ CHK_EIGEN_MINOR=0
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking if Eigen is version $CHK_EIGEN_WORLD.$CHK_EIGEN_MAJOR.$CHK_EIGEN_MINOR or later" >&5
 $as_echo_n "checking if Eigen is version $CHK_EIGEN_WORLD.$CHK_EIGEN_MAJOR.$CHK_EIGEN_MINOR or later... " >&6; }
 cat > conftest.$ac_ext <<EOF
-#line 23608 "configure"
+#line 23604 "configure"
 #include "confdefs.h"
 
 #include "$PATH_TO_EIGEN/Eigen/Sparse"
@@ -28196,7 +28192,7 @@ CPPFLAGS="$CPPFLAGS -I$CHK_TCL_INCLUDE_PATH"
 { $as_echo "$as_me:${as_lineno-$LINENO}: checking if tcl is version $CHK_TCL_MAJOR.$CHK_TCL_MINOR or later" >&5
 $as_echo_n "checking if tcl is version $CHK_TCL_MAJOR.$CHK_TCL_MINOR or later... " >&6; }
 cat > conftest.$ac_ext <<EOF
-#line 28199 "configure"
+#line 28195 "configure"
 #include "confdefs.h"
 
 #include "$CHK_TCL_INCLUDE_PATH/$CHK_TCL_INC_NAME"
@@ -28507,7 +28503,7 @@ CPPFLAGS="$CPPFLAGS $TCL_INC_PATH -I$CHK_TK_INCLUDE_PATH $X_CFLAGS"
 $as_echo_n "checking if tk is version $CHK_TK_MAJOR.$CHK_TK_MINOR or later... " >&6; }
 
 cat > conftest.$ac_ext <<EOF
-#line 28510 "configure"
+#line 28506 "configure"
 #include "confdefs.h"
 
 #include "$CHK_TK_INCLUDE_PATH/$CHK_TK_INC_NAME"
@@ -29096,7 +29092,7 @@ $as_echo_n "checking saxon9he... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 29099 "configure"
+// #line 29095 "configure"
 import java.util.regex.Pattern;
 
 import net.sf.saxon.Version;
@@ -29211,7 +29207,7 @@ $as_echo_n "checking saxon... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 29214 "configure"
+// #line 29210 "configure"
 import java.util.regex.Pattern;
 
 import net.sf.saxon.Version;
@@ -29327,7 +29323,7 @@ $as_echo_n "checking saxon... " >&6; }
             export ac_java_classpath="$jar_resolved:$ac_java_classpath"
 
     cat << \EOF > conftest.java
-// #line 29330 "configure"
+// #line 29326 "configure"
 import java.util.regex.Pattern;
 
 import com.icl.saxon.Loader;
@@ -43585,7 +43581,7 @@ SCI_LDFLAGS=$(echo                      $LARGEFILE_LDFLAGS  $CODECOVERAGE_LDFLAG
 
 
 
-ac_config_files="$ac_config_files contrib/Makefile desktop/images/icons/Makefile desktop/Makefile modules/threads/Makefile modules/ast/Makefile modules/functions_manager/Makefile modules/helptools/Makefile modules/data_structures/Makefile modules/differential_equations/Makefile modules/optimization/Makefile modules/elementary_functions/Makefile modules/special_functions/Makefile modules/io/Makefile modules/completion/Makefile modules/history_manager/Makefile modules/jvm/Makefile modules/commons/Makefile modules/sound/Makefile modules/statistics/Makefile modules/mexlib/Makefile modules/sparse/Makefile modules/linear_algebra/Makefile modules/polynomials/Makefile modules/symbolic/Makefile modules/signal_processing/Makefile modules/arnoldi/Makefile modules/interpolation/Makefile modules/localization/Makefile modules/cacsd/Makefile modules/boolean/Makefile modules/integer/Makefile modules/fileio/Makefile modules/spreadsheet/Makefile modules/string/Makefile modules/time/Makefile modules/graphics/Makefile modules/graphic_export/Makefile modules/graphic_objects/Makefile modules/renderer/Makefile modules/action_binding/Makefile modules/gui/Makefile modules/mpi/Makefile modules/randlib/Makefile modules/tclsci/Makefile modules/windows_tools/Makefile modules/core/Makefile modules/prebuildjava/Makefile modules/api_scilab/Makefile modules/call_scilab/Makefile modules/types/Makefile modules/hdf5/Makefile modules/fftw/Makefile modules/umfpack/Makefile modules/scicos/Makefile modules/scicos_blocks/Makefile modules/functions/Makefile modules/dynamic_link/Makefile modules/overloading/Makefile modules/javasci/Makefile modules/m2sci/Makefile modules/compatibility_functions/Makefile modules/development_tools/Makefile modules/output_stream/Makefile modules/console/Makefile modules/demo_tools/Makefile modules/genetic_algorithms/Makefile modules/simulated_annealing/Makefile modules/parameters/Makefile modules/matio/Makefile modules/atoms/Makefile modules/xcos/Makefile modules/scinotes/Makefile modules/ui_data/Makefile modules/graph/Makefile modules/parallel/Makefile modules/modules_manager/Makefile modules/history_browser/Makefile modules/preferences/Makefile modules/xml/Makefile modules/external_objects/Makefile modules/external_objects_java/Makefile modules/Makefile Makefile scilab.pc etc/modules.xml etc/classpath.xml etc/Info.plist etc/logging.properties scilab.properties scilab-lib.properties scilab-lib-doc.properties modules/helptools/etc/SciDocConf.xml modules/core/includes/version.h modules/core/includes/stack.h modules/atoms/etc/repositories modules/atoms/tests/unit_tests/repositories.orig"
+ac_config_files="$ac_config_files contrib/Makefile desktop/images/icons/Makefile desktop/Makefile modules/threads/Makefile modules/ast/Makefile modules/functions_manager/Makefile modules/helptools/Makefile modules/data_structures/Makefile modules/differential_equations/Makefile modules/optimization/Makefile modules/elementary_functions/Makefile modules/special_functions/Makefile modules/io/Makefile modules/completion/Makefile modules/history_manager/Makefile modules/jvm/Makefile modules/commons/Makefile modules/sound/Makefile modules/statistics/Makefile modules/mexlib/Makefile modules/sparse/Makefile modules/linear_algebra/Makefile modules/polynomials/Makefile modules/symbolic/Makefile modules/signal_processing/Makefile modules/arnoldi/Makefile modules/interpolation/Makefile modules/localization/Makefile modules/cacsd/Makefile modules/boolean/Makefile modules/integer/Makefile modules/fileio/Makefile modules/spreadsheet/Makefile modules/string/Makefile modules/time/Makefile modules/graphics/Makefile modules/graphic_export/Makefile modules/graphic_objects/Makefile modules/renderer/Makefile modules/action_binding/Makefile modules/gui/Makefile modules/mpi/Makefile modules/randlib/Makefile modules/tclsci/Makefile modules/windows_tools/Makefile modules/core/Makefile modules/prebuildjava/Makefile modules/api_scilab/Makefile modules/call_scilab/Makefile modules/types/Makefile modules/hdf5/Makefile modules/fftw/Makefile modules/umfpack/Makefile modules/scicos/Makefile modules/scicos_blocks/Makefile modules/functions/Makefile modules/dynamic_link/Makefile modules/overloading/Makefile modules/javasci/Makefile modules/m2sci/Makefile modules/compatibility_functions/Makefile modules/development_tools/Makefile modules/output_stream/Makefile modules/console/Makefile modules/demo_tools/Makefile modules/genetic_algorithms/Makefile modules/simulated_annealing/Makefile modules/parameters/Makefile modules/matio/Makefile modules/atoms/Makefile modules/xcos/Makefile modules/scinotes/Makefile modules/ui_data/Makefile modules/graph/Makefile modules/parallel/Makefile modules/modules_manager/Makefile modules/history_browser/Makefile modules/preferences/Makefile modules/xml/Makefile modules/external_objects/Makefile modules/external_objects_java/Makefile modules/Makefile Makefile scilab.pc etc/modules.xml etc/classpath.xml etc/Info.plist etc/logging.properties scilab.properties scilab-lib.properties scilab-lib-doc.properties modules/helptools/etc/SciDocConf.xml modules/core/includes/version.h modules/atoms/etc/repositories modules/atoms/tests/unit_tests/repositories.orig"
 
 
 # Detection of the module for the future version of Scilab 6
@@ -45029,7 +45025,6 @@ do
     "scilab-lib-doc.properties") CONFIG_FILES="$CONFIG_FILES scilab-lib-doc.properties" ;;
     "modules/helptools/etc/SciDocConf.xml") CONFIG_FILES="$CONFIG_FILES modules/helptools/etc/SciDocConf.xml" ;;
     "modules/core/includes/version.h") CONFIG_FILES="$CONFIG_FILES modules/core/includes/version.h" ;;
-    "modules/core/includes/stack.h") CONFIG_FILES="$CONFIG_FILES modules/core/includes/stack.h" ;;
     "modules/atoms/etc/repositories") CONFIG_FILES="$CONFIG_FILES modules/atoms/etc/repositories" ;;
     "modules/atoms/tests/unit_tests/repositories.orig") CONFIG_FILES="$CONFIG_FILES modules/atoms/tests/unit_tests/repositories.orig" ;;
     "modules/development_tools/src/fake/Makefile") CONFIG_FILES="$CONFIG_FILES modules/development_tools/src/fake/Makefile" ;;
index a22362e..66f6a83 100644 (file)
@@ -2065,7 +2065,6 @@ scilab-lib.properties
 scilab-lib-doc.properties
 modules/helptools/etc/SciDocConf.xml
 modules/core/includes/version.h
-modules/core/includes/stack.h
 modules/atoms/etc/repositories
 modules/atoms/tests/unit_tests/repositories.orig
 ])
index 3537087..a465df4 100644 (file)
@@ -39,7 +39,7 @@
         <title>Description</title>
         <para>
             C macro which checks the number of output arguments present in the
-            calling Scilab function. You must include stack-c.h to benefit from this
+            calling Scilab function. You must include api_scilab.h to benefit from this
             function.
         </para>
         <para>
@@ -65,9 +65,7 @@
     <refsection>
         <title>Examples</title>
         <programlisting role="code_gateway"><![CDATA[
-#include "stack-c.h"
-
-#error This code is deprecated
+#include "api_scilab.h"
 
 int sci_my_function(char *fname, unsigned long l)
 {
index 988341e..58eb4f4 100644 (file)
@@ -39,7 +39,7 @@
         <title>Description</title>
         <para>
             C macro which checks the number of input arguments present in the
-            calling Scilab function. You must include stack-c.h to benefit from this
+            calling Scilab function. You must include api_scilab.h to benefit from this
             function.
         </para>
         <para>
@@ -65,9 +65,7 @@
     <refsection>
         <title>Examples</title>
         <programlisting role="code_gateway"><![CDATA[
-#include "stack-c.h"
-
-#error This code is deprecated
+#include "api_scilab.h"
 
 int sci_my_function(char *fname, unsigned long l)
 {
index e906f39..c9c41ed 100644 (file)
@@ -61,7 +61,7 @@
         </para>
         <para>TODO: insert an example in the Scilab language</para>
         <programlisting role="example"><![CDATA[
-#include "stack-c.h"
+
 #include "api_scilab.h"
 int sci_mysizedouble(char * fname, unsigned long fname_len)
 {
index ab8cee1..8d63fb4 100644 (file)
@@ -19,8 +19,8 @@
             examples/call_scifunction.
         </para>
         <para>How to use this example:</para>
-        <programlisting role=""><![CDATA[ 
-exec call_scifunction.sce; // launch scilab 
+        <programlisting role=""><![CDATA[
+exec call_scifunction.sce; // launch scilab
 v = call_scifunc(30,12,scilabfoo);
  ]]></programlisting>
         <para>you pass a pointer on a scilab function (scilabfoo macro) to your
@@ -47,7 +47,7 @@ v = call_scifunc(30,12,scilabfoo);
         <para>The script call_scifunction.sce used to build and load the C
             interface into Scilab is the following:
         </para>
-        <programlisting role=""><![CDATA[ 
+        <programlisting role=""><![CDATA[
 files=['sci_call_scifunc.c']; // Defines the list of file
 ilib_build('callscifunc',['call_scifunc','sci_call_scifunc'],files,[]); // Build the files and creates the loader
 
@@ -66,7 +66,7 @@ disp('result : ' + string(v));
 ulink(); // unload the dynamic library
  ]]></programlisting>
         <para>The file sci_call_scifunc.c is the following:</para>
-        <programlisting role="code_gateway"><![CDATA[  
+        <programlisting role="code_gateway"><![CDATA[
 
 #include "stack-c.h"
 #include "Scierror.h"
@@ -74,7 +74,7 @@ ulink(); // unload the dynamic library
 
 #error This code is deprecated
 
-int sci_call_scifunc(char *fname) 
+int sci_call_scifunc(char *fname)
 {
   int m1    = 0, n1    = 0, l1    = 0;
   int m2    = 0, n2    = 0, l2    = 0;
@@ -86,16 +86,16 @@ int sci_call_scifunc(char *fname)
   int numberOfRhsOnScilabFunction = 0;
   int numberOfLhsOnScilabFunction = 0;
   int pointerOnScilabFunction     = 0;
-        
+
   CheckRhs(3,3);
   CheckLhs(1,1);
-        
+
   if (GetType(1) != sci_matrix)
   {
     Scierror(999,_("%s: Wrong type for input argument #%d: A real expected.\n"),fname,1);
     return 0;
   }
-        
+
   GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
   if ( (m1 == n1) && (n1 == 1) )
   {
@@ -106,13 +106,13 @@ int sci_call_scifunc(char *fname)
     Scierror(999,_("%s: Wrong size for input argument #%d: A scalar expected.\n"),fname,1);
     return 0;
   }
-  
+
   if (GetType(2) != sci_matrix)
   {
     Scierror(999,_("%s: Wrong type for input argument #%d: A real expected.\n"),fname,2);
     return 0;
   }
-  
+
   GetRhsVar(2, MATRIX_OF_DOUBLE_DATATYPE, &m2, &n2, &l2);
   if ( (m2 == n2) && (n2 == 1) )
   {
@@ -123,49 +123,49 @@ int sci_call_scifunc(char *fname)
     Scierror(999,_("%s: Wrong size for input argument #%d: A scalar expected.\n"),fname,2);
     return 0;
   }
-  
+
   if (GetType(3) != sci_c_function)
   {
     Scierror(999,_("%s: Wrong type for input argument #%d: A scilab function expected.\n"),fname,3);
     return 0;
   }
-  
+
   // get pointer on external function (here scilabfoo)
   GetRhsVar(3, EXTERNAL_DATATYPE, &m3, &n3, &l3);
-        
-  // r = scilabfoo(x, y)  
+
+  // r = scilabfoo(x, y)
   // rhs eq. 2
   // lhs eq. 1
-        
-  // Position first element in the Scilab memory to use by Scilab Function 
+
+  // Position first element in the Scilab memory to use by Scilab Function
   // v = call_scifunc(300,120,scilabfoo);
   // On stack : 300 is on Top position (1)
   // 120 second position
   // scilabfoo third position
   // we want to pass 300 & 120 to scilab Function
   // First position is here : 1
-        
+
   positionFirstElementOnStackForScilabFunction = 1;
   numberOfRhsOnScilabFunction = 2;
   numberOfLhsOnScilabFunction = 1;
   pointerOnScilabFunction     = l3;
 
-  // r = scilabfoo(x, y)  
+  // r = scilabfoo(x, y)
   // Scifunction call a scilab function
   Scifunction(&positionFirstElementOnStackForScilabFunction,
               &pointerOnScilabFunction,
               &numberOfLhsOnScilabFunction,
-              &numberOfRhsOnScilabFunction);  
+              &numberOfRhsOnScilabFunction);
 
   // result r is now on position positionFirstElementOnStackForScilabFunction on stack
   GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &rm1, &rn1, &rl1);
   r = *stk(rl1);
-        
+
   CreateVar(Rhs+1, MATRIX_OF_DOUBLE_DATATYPE, &m_out, &n_out, &l_out);
   *stk(l_out) = r;
-  
+
   LhsVar(1) = Rhs + 1;
-  
+
   return 0;
 }
  ]]></programlisting>
index 3a99b55..5f98382 100644 (file)
 
 #define __INTERNAL_API_SCILAB__
 
-//do not include stack-c.h for external modules without __USE_DEPRECATED_STACK_FUNCTIONS__ flag
-#if !defined(__SCILAB_TOOLBOX__) || defined(__USE_DEPRECATED_STACK_FUNCTIONS__)
-//#include "stack-c.h"
-#endif
-
 #include "api_common.h"
 #include "api_double.h"
 #include "api_string.h"
index 2c5cb3d..824576f 100644 (file)
@@ -32,7 +32,6 @@ extern "C"
 #include "api_scilab.h"
 #include "api_internal_common.h"
 #include "call_scilab.h"
-#include "stackinfo.h"
 #include "Scierror.h"
 #include "sciprint.h"
 #include "localization.h"
index 9cb1ab3..7ee6aab 100644 (file)
@@ -22,7 +22,6 @@ extern "C"
 #include "Scierror.h"
 #include "os_string.h"
 #include "localization.h"
-#include "stackinfo.h"
 #include "configvariable_interface.h"
 }
 
index 8b0b1e3..c5965e3 100644 (file)
@@ -32,6 +32,7 @@ libsciarnoldi_la_CPPFLAGS = \
     -I$(top_srcdir)/modules/localization/includes/ \
     -I$(top_srcdir)/modules/output_stream/includes/ \
     -I$(top_srcdir)/modules/core/includes/ \
+    -I$(top_srcdir)/modules/elementary_functions/includes/ \
     $(AM_CPPFLAGS)
 
 pkglib_LTLIBRARIES = libsciarnoldi.la
index 5578519..aed8bde 100644 (file)
@@ -561,6 +561,7 @@ libsciarnoldi_la_CPPFLAGS = \
     -I$(top_srcdir)/modules/localization/includes/ \
     -I$(top_srcdir)/modules/output_stream/includes/ \
     -I$(top_srcdir)/modules/core/includes/ \
+    -I$(top_srcdir)/modules/elementary_functions/includes/ \
     $(AM_CPPFLAGS)
 
 pkglib_LTLIBRARIES = libsciarnoldi.la
index 23773c0..e3f9c42 100644 (file)
@@ -80,7 +80,7 @@
   <ItemDefinitionGroup Condition="'$(Configuration)|$(Platform)'=='Debug|Win32'">
     <ClCompile>
       <Optimization>Disabled</Optimization>
-      <AdditionalIncludeDirectories>includes;src;../../libs/intl;../core/includes;../output_stream/includes;../localization/includes;../api_scilab/includes;../ast/includes/types;../ast/includes/ast;../ast/includes/analysis;../ast/includes/exps;../ast/includes/operations;../ast/includes/symbol;../ast/includes/system_env;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
+      <AdditionalIncludeDirectories>includes;src;../../libs/intl;../core/includes;../output_stream/includes;../localization/includes;../api_scilab/includes;../ast/includes/types;../ast/includes/ast;../ast/includes/analysis;../ast/includes/exps;../ast/includes/operations;../ast/includes/symbol;../ast/includes/system_env;../elementary_functions/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
       <PreprocessorDefinitions>FORDLL;_DEBUG;_WINDOWS;_USRDLL;ARNOLDI_EXPORTS;_CRT_SECURE_NO_DEPRECATE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
       <RuntimeLibrary>MultiThreadedDebugDLL</RuntimeLibrary>
       <WarningLevel>Level3</WarningLevel>
     </Midl>
     <ClCompile>
       <Optimization>Disabled</Optimization>
-      <AdditionalIncludeDirectories>includes;src;../../libs/intl;../core/includes;../output_stream/includes;../localization/includes;../api_scilab/includes;../ast/includes/types;../ast/includes/ast;../ast/includes/analysis;../ast/includes/exps;../ast/includes/operations;../ast/includes/symbol;../ast/includes/system_env;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
+      <AdditionalIncludeDirectories>includes;src;../../libs/intl;../core/includes;../output_stream/includes;../localization/includes;../api_scilab/includes;../ast/includes/types;../ast/includes/ast;../ast/includes/analysis;../ast/includes/exps;../ast/includes/operations;../ast/includes/symbol;../ast/includes/system_env;../elementary_functions/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
       <PreprocessorDefinitions>FORDLL;_DEBUG;_WINDOWS;_USRDLL;ARNOLDI_EXPORTS;_CRT_SECURE_NO_DEPRECATE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
       <RuntimeLibrary>MultiThreadedDebugDLL</RuntimeLibrary>
       <WarningLevel>Level3</WarningLevel>
     <ClCompile>
       <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed>
       <WholeProgramOptimization>false</WholeProgramOptimization>
-      <AdditionalIncludeDirectories>includes;src;../../libs/intl;../core/includes;../output_stream/includes;../localization/includes;../api_scilab/includes;../ast/includes/types;../ast/includes/ast;../ast/includes/analysis;../ast/includes/exps;../ast/includes/operations;../ast/includes/symbol;../ast/includes/system_env;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
+      <AdditionalIncludeDirectories>includes;src;../../libs/intl;../core/includes;../output_stream/includes;../localization/includes;../api_scilab/includes;../ast/includes/types;../ast/includes/ast;../ast/includes/analysis;../ast/includes/exps;../ast/includes/operations;../ast/includes/symbol;../ast/includes/system_env;../elementary_functions/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
       <PreprocessorDefinitions>FORDLL;NDEBUG;_WINDOWS;_USRDLL;ARNOLDI_EXPORTS;_CRT_SECURE_NO_DEPRECATE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
       <StringPooling>true</StringPooling>
       <RuntimeLibrary>MultiThreadedDLL</RuntimeLibrary>
     <ClCompile>
       <FavorSizeOrSpeed>Speed</FavorSizeOrSpeed>
       <WholeProgramOptimization>false</WholeProgramOptimization>
-      <AdditionalIncludeDirectories>includes;src;../../libs/intl;../core/includes;../output_stream/includes;../localization/includes;../api_scilab/includes;../ast/includes/types;../ast/includes/ast;../ast/includes/analysis;../ast/includes/exps;../ast/includes/operations;../ast/includes/symbol;../ast/includes/system_env;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
+      <AdditionalIncludeDirectories>includes;src;../../libs/intl;../core/includes;../output_stream/includes;../localization/includes;../api_scilab/includes;../ast/includes/types;../ast/includes/ast;../ast/includes/analysis;../ast/includes/exps;../ast/includes/operations;../ast/includes/symbol;../ast/includes/system_env;../elementary_functions/includes;%(AdditionalIncludeDirectories)</AdditionalIncludeDirectories>
       <PreprocessorDefinitions>FORDLL;NDEBUG;_WINDOWS;_USRDLL;ARNOLDI_EXPORTS;_CRT_SECURE_NO_DEPRECATE;%(PreprocessorDefinitions)</PreprocessorDefinitions>
       <StringPooling>true</StringPooling>
       <RuntimeLibrary>MultiThreadedDLL</RuntimeLibrary>
     <ProjectReference Include="..\api_scilab\api_scilab.vcxproj">
       <Project>{43c5bab1-1dca-4743-a183-77e0d42fe7d0}</Project>
     </ProjectReference>
+    <ProjectReference Include="..\elementary_functions\src\c\elementary_functions.vcxproj">
+      <Project>{5b110267-7c18-437c-b87d-dba2b50729e9}</Project>
+    </ProjectReference>
     <ProjectReference Include="..\output_stream\src\c\output_stream.vcxproj">
       <Project>{a5911cd7-f8e8-440c-a23e-4843a0636f3a}</Project>
       <ReferenceOutputAssembly>false</ReferenceOutputAssembly>
index 14d3411..5ed751d 100644 (file)
@@ -87,5 +87,6 @@
     <None Include="locales\arnoldi.pot" />
     <None Include="locales\arnoldi.pot" />
     <None Include="locales\arnoldi.pot" />
+    <None Include="locales\arnoldi.pot" />
   </ItemGroup>
 </Project>
\ No newline at end of file
index b291b5c..061424f 100644 (file)
 /*--------------------------------------------------------------------------*/
 #ifndef __PROCESS_DNEUPD_H__
 #define __PROCESS_DNEUPD_H__
-#include "doublecomplex.h"
-#include <string.h>
-#include <math.h>
-#include <stdio.h>
-#include <stdlib.h>
-#include "stack-c.h"
-#include "sci_malloc.h"
-#include "sciprint.h"
+#include "elem_common.h"
 
 /**
  * @TODO add comment
index e05597d..4d5502d 100644 (file)
 #include <stdio.h>
 #include <stdlib.h>
 #include "eigs.h"
-#include "stack-c.h"
 #include "sci_malloc.h"
 #include "sciprint.h"
 #include "eigs_dependencies.h"
-/*--------------------------------------------------------------------------*/
-
-/*--------------------------------------------------------------------------*/
-// dgemv performs matrix-vector operations
-extern int C2F(dgemv) (char* trans, int* m, int* n, double* alpha, double* A, int* lda,
-                       double* x, int* incx, double* beta, double* y, int* incy);
-extern int C2F(zgemv) (char* trans, int* m, int* n, doublecomplex* alpha, doublecomplex* A,
-                       int* lda, doublecomplex* x, int* incx, doublecomplex* beta, doublecomplex* y, int* incy);
-
-// dgetrf computes an LU factorization of a general M by N matrix A (double) using partial pivoting with row interchanges
-extern int C2F(dgetrf)(int* m, int* n, double* A, int* lda, int* ipiv, int* info);
-
-// zgetrf computes an LU factorization of a general M by N matrix A (complex*16) using partial pivoting with row interchanges
-extern int C2F(zgetrf)(int* m, int* n, doublecomplex* A, int* lda, int* ipiv, int* info);
-// dgetrs solves a linear system using the factors computed by dgetrf
-extern int C2F(dgetrs) (char* trans, int* n, int* nrhs, double* A, int *lda, int* ipiv, double* B, int* ldb, int* info);
-// zgetrs solves a linear system using the factors computed by zgetrf
-extern int C2F(zgetrs) (char* trans, int* n, int* nrhs, doublecomplex* AC, int* lda, int* ipiv, doublecomplex* B, int* ldb, int* info);
-
-// dpotrf computes the cholesky factorization of a real symmetric positive definite matrix A
-extern int C2F(dpotrf)(char* uplo, int* n, double* A, int* lda, int* info);
-
-// zpotrf computes the cholesky factorization of a real hermitian positive definite matrix A
-extern int C2F(zpotrf)(char* uplo, int* n, doublecomplex* A, int* lda, int* info);
-
-// dtrsm solves a triangular linear system
-extern int C2F(dtrsm) (char* side, char* uplo, char* trans, char* diag, int* m, int* n, double* alpha, double* A, int* lda, double* B, int* ldb);
-// ztrsm solve a triangular linear system
-extern int C2F(ztrsm) (char* side, char* uplo, char* trans, char* diag, int* m, int* n, doublecomplex* alpha, doublecomplex* A, int* lda, doublecomplex* B, int* ldb);
-// dsyrk does a rank k symmetric update
-extern int C2F(dsyrk) (char* uplo, char* trans, int* n, int* k, double* alpha,
-                       double* A, int* lda, double* beta, double* B, int* ldb);
-// ztrmm multiply by a triangular matrix
-extern int C2F(ztrmm) (char* side, char* uplo, char* trans, char* diag, int* m, int* n, doublecomplex* alphac,
-                       doublecomplex* A, int* lda, doublecomplex* B, int* ldb);
-// ztrmv multiply a vector by a triangular matrix
-extern int C2F(ztrmv) (char* uplo, char* trans, char* diag, int* n, doublecomplex* A, int* lda, doublecomplex* x, int* incx);
-// dtrmv multiply a vector by a triangular matrix
-extern int C2F(dtrmv) (char* uplo, char* trans, char* diag, int* n, double* A, int* lda, double* x, int* incx);
-/*--------------------------------------------------------------------------*/
 
 /*--------------------------------------------------------------------------*/
 extern int C2F(dsaupd)(int *ido, char *bmat, int *n, char *which, int *nev,
@@ -112,18 +71,6 @@ extern int C2F(zneupd)(int * rvec, char * howmny, int * select,
                        int * lworkl, double * rwork, int * info);
 /*--------------------------------------------------------------------------*/
 
-/*--------------------------------------------------------------------------*/
-extern int C2F(dsymv)(char* UPLO, int* N, double* ALPHA, double* A, int* LDA, double* X, int* INCX, double* BETA, double* Y, int* INCY);
-/*--------------------------------------------------------------------------*/
-
-/*--------------------------------------------------------------------------*/
-extern int C2F(daxpy)(int* N, double* DA, double* DX, int* INCX, double* DY, int* INCY);
-/*--------------------------------------------------------------------------*/
-
-/*--------------------------------------------------------------------------*/
-extern int C2F(zaxpy)(int* N, doublecomplex* ZA, doublecomplex* ZX, int* INCX, doublecomplex* ZY, int* INCY);
-/*--------------------------------------------------------------------------*/
-
 static double alpha = 1.;
 static double beta = 0.;
 
@@ -649,7 +596,7 @@ int eigs(double *AR, doublecomplex *AC, int N, int Acomplex, int Asym,
             {
                 free(IPVT);
                 free(AMSBC);
-                return(-7);
+                return (-7);
             }
         }
         LWORKL = 3 * ncv * ncv + 5 * ncv;
index a725b8f..f7fb895 100644 (file)
 
 #include "eigs_dependencies.h"
 
-extern int C2F(dgemv) (char* trans, int* m, int* n, double* alpha, double* A,
-                       int* lda, double* x, int* incx, double* beta, double* y, int* incy);
-extern double C2F(ddot) (int *n, double* x, int* incx, double* y, int* incy);
-
 void process_dneupd_data(double* DR, double* DI, double* Z, int N, int nev, double* AR,
                          doublecomplex* eigenvalue, doublecomplex* eigenvector,
                          int sigma_imaginary)
index 29f3256..1a25944 100644 (file)
@@ -473,7 +473,7 @@ int iRightDivisionOfComplexMatrix(
     {
         cNorm = 'F';
         C2F(zlacpy)(&cNorm, &_iCols2, &_iCols2, (double*)poAt, &_iCols2, (double*)poAf, &_iCols2);
-        C2F(zgetrf)(&_iCols2, &_iCols2, (double*)poAf, &_iCols2, pIpiv, &iInfo);
+        C2F(zgetrf)(&_iCols2, &_iCols2, poAf, &_iCols2, pIpiv, &iInfo);
         if (iInfo == 0)
         {
             cNorm = '1';
@@ -481,7 +481,7 @@ int iRightDivisionOfComplexMatrix(
             if (dblRcond > RCONDthresh)
             {
                 cNorm = 'N';
-                C2F(zgetrs)(&cNorm, &_iCols2, &_iRows1, (double*)poAf, &_iCols2, pIpiv, (double*)poBt, &_iCols2, &iInfo);
+                C2F(zgetrs)(&cNorm, &_iCols2, &_iRows1, poAf, &_iCols2, pIpiv, poBt, &_iCols2, &iInfo);
                 vTransposeDoubleComplexMatrix(poBt, _iCols2, _iRows1, poOut, 1);
                 vGetPointerFromDoubleComplex(poOut, _iRowsOut * _iColsOut, _pdblRealOut, _pdblImgOut);
                 iExit = 1;
@@ -728,14 +728,14 @@ int iLeftDivisionOfComplexMatrix(
 
     if (_iRows1 == _iCols1)
     {
-        C2F(zgetrf)(&_iCols1, &_iCols1, (double*)poVar1, &_iCols1, pIpiv, &iInfo);
+        C2F(zgetrf)(&_iCols1, &_iCols1, poVar1, &_iCols1, pIpiv, &iInfo);
         if (iInfo == 0)
         {
             C2F(zgecon)(&cNorm, &_iCols1, poVar1, &_iCols1, &dblAnorm, &dblRcond, pDwork, pRwork, &iInfo);
             if (dblRcond > RCONDthresh)
             {
                 cNorm    = 'N';
-                C2F(zgetrs)(&cNorm, &_iCols1, &_iCols2, (double*)poVar1, &_iCols1, pIpiv, (double*)poVar2, &_iCols1, &iInfo);
+                C2F(zgetrs)(&cNorm, &_iCols1, &_iCols2, poVar1, &_iCols1, pIpiv, poVar2, &_iCols1, &iInfo);
                 vGetPointerFromDoubleComplex(poVar2, _iRowsOut * _iColsOut, _pdblRealOut, _pdblImgOut);
                 iExit = 1;
             }
index 6286fc1..2d6f269 100644 (file)
@@ -9,7 +9,6 @@ class SciError {};
 extern "C" {
 #include <stdio.h>
 #undef _PARAMS
-#include "stack-c.h"
     int send_scilab_job(char *, long int);
     void cc_test();
 
index 4e043f8..dbb1829 100644 (file)
@@ -2,11 +2,11 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2009  - DIGITEO - Sylvestre LEDRU
- * 
+ *
  * 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
  *
  -->
     </refsection>
     <refsection>
         <title>Examples</title>
-        <programlisting role="c"><![CDATA[ 
-// A simple call_scilab example 
+        <programlisting role="c"><![CDATA[
+// A simple call_scilab example
 
 #include <stdio.h> /* stderr */
 
-#include "stack-c.h" /* Provide functions to access to the memory of Scilab */
+#include "api_scilab.h" /* Provide functions to access to the memory of Scilab */
 #include "call_scilab.h" /* Provide functions to call Scilab engine */
 
 // Filename: simple_call_scilab.c
@@ -65,7 +65,7 @@ int main(void)
 
  SendScilabJob("myMatrix=['sample','for the help']");
  SendScilabJob("disp(myMatrix);"); // Will display !sample  for the help  !
- SendScilabJob("disp([2,3]+[-44,39]);"); // Will display   - 42.    42.  
+ SendScilabJob("disp([2,3]+[-44,39]);"); // Will display   - 42.    42.
 
 /****** TERMINATION **********/
  if ( TerminateScilab(NULL) == FALSE ) {
index 480d388..92953d8 100644 (file)
@@ -2,11 +2,11 @@
 <!--
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2009  - DIGITEO - Sylvestre LEDRU
- * 
+ *
  * 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
  *
  -->
@@ -26,7 +26,7 @@
             可能性を提供します.
         </para>
         <para>
-            このモジュールにより, 
+            このモジュールにより,
             他のコード/アプリケーションからScilabの機能をインターフェイスする
             ために,
             または,他の言語からScilabの機能をインターフェイスできるようにする
             注意: <link linkend="javasci">javasci</link> モジュールは
             call_scilabに基づいています.
         </para>
-        <para>注意: 
+        <para>注意:
             古いAPI (stackX.h) はScilab 6.0以降では利用できません.
         </para>
     </refsection>
     <refsection>
         <title>例</title>
-        <programlisting role="c"><![CDATA[ 
+        <programlisting role="c"><![CDATA[
 // 簡単な call_scilab の例
 #include <stdio.h> /* stderr */
-#include "stack-c.h" /* Scilabメモリにアクセスする関数を提供 */
+#include "api_scilab.h" /* Scilabメモリにアクセスする関数を提供 */
 #include "call_scilab.h" /* Scilabエンジンをコールする関数を提供 */
 // Filename: simple_call_scilab.c
 int main(void)
@@ -72,8 +72,8 @@ int main(void)
   }
 /****** 実際のScilabタスク *******/
  SendScilabJob("myMatrix=['sample','for the help']");
- SendScilabJob("disp(myMatrix);"); // !sample  for the help  !を表示します 
- SendScilabJob("disp([2,3]+[-44,39]);"); // - 42.    42.  を表示します   
+ SendScilabJob("disp(myMatrix);"); // !sample  for the help  !を表示します
+ SendScilabJob("disp([2,3]+[-44,39]);"); // - 42.    42.  を表示します
 /****** 終了 **********/
  if ( TerminateScilab(NULL) == FALSE ) {
   fprintf(stderr,"Error while calling TerminateScilab\n");
index fc04397..907075a 100644 (file)
@@ -5,9 +5,7 @@ EXPORTS
 ;
 ;core
 ;
-setieee
 setformat
-getieee
 getformat
 getformatwidth
 getScilabVersionMajor
index 12b40f0..a7c0ea8 100644 (file)
@@ -192,7 +192,7 @@ static void SWIGUNUSED SWIG_JavaThrowException(JNIEnv *jenv, SWIG_JavaExceptionC
 #include "createtempfilename.h"
 #include "setgetlanguage.h"
 #include "getversion.h"
-#include "setieee.h"
+#include "configvariable_interface.h"
 #include "setformat.h"
 
 
diff --git a/scilab/modules/console/sci_gateway/c/sci_clc.c b/scilab/modules/console/sci_gateway/c/sci_clc.c
deleted file mode 100644 (file)
index f4cde77..0000000
+++ /dev/null
@@ -1,67 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2007 - INRIA - 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
- *
- */
-/*--------------------------------------------------------------------------*/
-/* desc : interface for clc primitive                                       */
-/*--------------------------------------------------------------------------*/
-#include "gw_console.h"
-#include "stack-c.h"
-#include "clc.h"
-#include "Scierror.h"
-#include "localization.h"
-#include "sciprint.h"
-/*--------------------------------------------------------------------------*/
-int sci_clc(char *fname, unsigned long fname_len)
-{
-    BOOL res = FALSE;
-    int nblines = -1;
-
-    Rhs = Max(Rhs, 0);
-    CheckRhs(0, 1);
-    CheckLhs(0, 1);
-
-    if (Rhs == 1)
-    {
-        if ( GetType(1) == sci_matrix )
-        {
-            int l1, m1 = 1, n1 = 1;
-            GetRhsVar(1, MATRIX_OF_INTEGER_DATATYPE, &m1, &n1, &l1);
-            nblines = *istk(l1);
-
-            if (nblines < 0)
-            {
-                Scierror(999, _("%s: Wrong value for input argument #%d.\n"), fname, 1);
-                return 0;
-            }
-        }
-        else
-        {
-            Scierror(999, _("%s: This feature has not been implemented.\n"), fname);
-            return 0;
-        }
-    }
-    else
-    {
-        /* Clear console full */
-        nblines = -1;
-    }
-
-    res = clc(nblines);
-    if (!res)
-    {
-        sciprint(_("%s: This feature has not been implemented in this mode.\n"), fname);
-    }
-
-    LhsVar(1) = 0;
-    PutLhsVar();
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/console/sci_gateway/c/sci_prompt.c b/scilab/modules/console/sci_gateway/c/sci_prompt.c
deleted file mode 100644 (file)
index 7f3cfad..0000000
+++ /dev/null
@@ -1,85 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2007 - INRIA - Allan CORNET
- * Copyright (C) 2009 - 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
- *
- */
-/*--------------------------------------------------------------------------*/
-#include "gw_console.h"
-#include "stack-c.h"
-#include "prompt.h"
-#include "Scierror.h"
-#include "localization.h"
-/*--------------------------------------------------------------------------*/
-int sci_prompt(char *fname, unsigned long fname_len)
-{
-    char currentPrompt[PROMPT_SIZE_MAX];
-    static int n1 = 0, m1 = 0, l1 = 0;
-    int outIndex = 0 ;
-
-    CheckRhs(0, 1);
-    CheckLhs(0, 2);
-
-    if (Rhs == 0) /* Get current Scilab prompt */
-    {
-        GetCurrentPrompt(currentPrompt);
-
-        m1 = (int)strlen(currentPrompt);
-        n1 = 1;
-        CreateVar( Rhs + 1, STRING_DATATYPE, &m1, &n1, &outIndex);
-        strcpy(cstk(outIndex), currentPrompt);
-
-        if (Lhs == 2)
-        {
-            m1 = 1;
-            n1 = 1;
-            l1 = 0;
-
-            CreateVar( Rhs + 2, MATRIX_OF_INTEGER_DATATYPE, &m1, &n1, &l1 );
-            *istk(l1) = (int)C2F(recu).paus ;
-        }
-
-        LhsVar(1) = Rhs + 1;
-        if (Lhs == 2)
-        {
-            LhsVar(2) = Rhs + 2;
-        }
-        PutLhsVar();
-    }
-    else /* Tempory change of Scilab prompt */
-    {
-        if (Lhs <= 1)
-        {
-            if (VarType(1) != sci_strings)
-            {
-                Scierror(999, _("%s: Wrong type for input argument #%d: A string expected.\n"), fname, 1);
-                return FALSE;
-            }
-
-            GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1);
-
-            if (n1 != 1)
-            {
-                Scierror(999, _("%s: Wrong size for input argument #%d: A string expected.\n"), fname, 1);
-                return FALSE;
-            }
-
-            SetTemporaryPrompt(cstk(l1));
-
-            LhsVar(1) = 0;
-            PutLhsVar();
-        }
-        else
-        {
-            Scierror(999, _("%s: Wrong number of output argument(s).\n"), fname);
-        }
-    }
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
index d758d9a..dda9a6f 100644 (file)
@@ -42,7 +42,6 @@
 
 #include "scilines.h"
 #include "core_math.h"
-#include "stack-def.h"
 #ifdef _MSC_VER
 #include "../../../windows_tools/src/c/scilab_windows/console.h"
 #endif
index 052d2a7..4bc4400 100644 (file)
@@ -15,7 +15,6 @@
 #include <wincon.h>
 #include <stdio.h>
 #include <string.h>
-#include "stack-def.h"
 #include "TermLine.h"
 #include "HistoryManager.h"
 #include "TermConsole.h"
index fbb6ca2..a528fdb 100644 (file)
@@ -21,7 +21,6 @@ CORE_C_SOURCES = \
     src/c/GetXmlFileEncoding.c \
     src/c/islittleendian.c \
     src/c/getcommandlineargs.c \
-    src/c/callFunctionFromGateway.c \
     src/c/commandwords.c \
     src/c/freeArrayOfString.c \
     src/c/getstaticdebuginfo.c \
@@ -36,9 +35,6 @@ CORE_C_SOURCES = \
     src/c/backtrace.c \
     src/c/signal_mgmt.c \
     src/c/suspendProcess.c \
-    src/c/setlines.c \
-    src/c/setformat.c \
-    src/c/InitializePreferences.c \
     src/c/saveCWDInPreferences.c \
     src/c/getmaxMALLOC.c \
     src/c/sci_mem_alloc.c \
@@ -46,7 +42,6 @@ CORE_C_SOURCES = \
     src/c/hashtable/hashtable_utility.c
 
 CORE_CPP_SOURCES = \
-    src/cpp/namstr.cpp \
     src/cpp/demangle.cpp \
     src/cpp/backtrace_print.cpp \
     src/cpp/storeCommand.cpp \
@@ -57,15 +52,14 @@ CORE_CPP_SOURCES = \
     src/cpp/getvariablesname.cpp \
     src/cpp/getmacrosname.cpp \
     src/cpp/getfunctionsname.cpp \
-    src/cpp/InitScilab.cpp
+    src/cpp/InitScilab.cpp \
+    src/cpp/setformat.cpp
 
 CORE_FORTRAN_SOURCES = \
     src/fortran/clunit.f \
     src/fortran/folhp.f \
     src/fortran/xerbla.f \
-    src/fortran/whatln.f \
     src/fortran/expsum.f \
-    src/fortran/putid.f \
     src/fortran/readinter.f \
     src/fortran/rewindinter.f \
     src/fortran/backspaceinter.f \
@@ -220,16 +214,7 @@ includes/sci_malloc.h \
 includes/PATH_MAX.h \
 includes/scilabDefaults.h \
 includes/scisparse.h \
-includes/stack-c.h \
 includes/sci_types.h \
-includes/stack-def.h \
-includes/stack.h \
-includes/stack1.h \
-includes/stack2.h \
-includes/stack3.h \
-includes/stack-optional.h \
-includes/stackinfo.h \
-includes/stackTypeVariable.h \
 includes/version.h \
 includes/getversion.h \
 includes/backtrace_print.h \
index 51bb4a3..3f1bfaf 100644 (file)
@@ -188,7 +188,6 @@ am__objects_1 = src/c/libscicore_algo_la-csignal.lo \
        src/c/libscicore_algo_la-GetXmlFileEncoding.lo \
        src/c/libscicore_algo_la-islittleendian.lo \
        src/c/libscicore_algo_la-getcommandlineargs.lo \
-       src/c/libscicore_algo_la-callFunctionFromGateway.lo \
        src/c/libscicore_algo_la-commandwords.lo \
        src/c/libscicore_algo_la-freeArrayOfString.lo \
        src/c/libscicore_algo_la-getstaticdebuginfo.lo \
@@ -203,16 +202,12 @@ am__objects_1 = src/c/libscicore_algo_la-csignal.lo \
        src/c/libscicore_algo_la-backtrace.lo \
        src/c/libscicore_algo_la-signal_mgmt.lo \
        src/c/libscicore_algo_la-suspendProcess.lo \
-       src/c/libscicore_algo_la-setlines.lo \
-       src/c/libscicore_algo_la-setformat.lo \
-       src/c/libscicore_algo_la-InitializePreferences.lo \
        src/c/libscicore_algo_la-saveCWDInPreferences.lo \
        src/c/libscicore_algo_la-getmaxMALLOC.lo \
        src/c/libscicore_algo_la-sci_mem_alloc.lo \
        src/c/hashtable/libscicore_algo_la-hashtable.lo \
        src/c/hashtable/libscicore_algo_la-hashtable_utility.lo
-am__objects_2 = src/cpp/libscicore_algo_la-namstr.lo \
-       src/cpp/libscicore_algo_la-demangle.lo \
+am__objects_2 = src/cpp/libscicore_algo_la-demangle.lo \
        src/cpp/libscicore_algo_la-backtrace_print.lo \
        src/cpp/libscicore_algo_la-storeCommand.lo \
        src/cpp/libscicore_algo_la-banner.lo \
@@ -222,10 +217,10 @@ am__objects_2 = src/cpp/libscicore_algo_la-namstr.lo \
        src/cpp/libscicore_algo_la-getvariablesname.lo \
        src/cpp/libscicore_algo_la-getmacrosname.lo \
        src/cpp/libscicore_algo_la-getfunctionsname.lo \
-       src/cpp/libscicore_algo_la-InitScilab.lo
+       src/cpp/libscicore_algo_la-InitScilab.lo \
+       src/cpp/libscicore_algo_la-setformat.lo
 am__objects_3 = src/fortran/clunit.lo src/fortran/folhp.lo \
-       src/fortran/xerbla.lo src/fortran/whatln.lo \
-       src/fortran/expsum.lo src/fortran/putid.lo \
+       src/fortran/xerbla.lo src/fortran/expsum.lo \
        src/fortran/readinter.lo src/fortran/rewindinter.lo \
        src/fortran/backspaceinter.lo src/fortran/write_inter.lo \
        src/fortran/read_inter.lo
@@ -682,7 +677,6 @@ CORE_C_SOURCES = \
     src/c/GetXmlFileEncoding.c \
     src/c/islittleendian.c \
     src/c/getcommandlineargs.c \
-    src/c/callFunctionFromGateway.c \
     src/c/commandwords.c \
     src/c/freeArrayOfString.c \
     src/c/getstaticdebuginfo.c \
@@ -697,9 +691,6 @@ CORE_C_SOURCES = \
     src/c/backtrace.c \
     src/c/signal_mgmt.c \
     src/c/suspendProcess.c \
-    src/c/setlines.c \
-    src/c/setformat.c \
-    src/c/InitializePreferences.c \
     src/c/saveCWDInPreferences.c \
     src/c/getmaxMALLOC.c \
     src/c/sci_mem_alloc.c \
@@ -707,7 +698,6 @@ CORE_C_SOURCES = \
     src/c/hashtable/hashtable_utility.c
 
 CORE_CPP_SOURCES = \
-    src/cpp/namstr.cpp \
     src/cpp/demangle.cpp \
     src/cpp/backtrace_print.cpp \
     src/cpp/storeCommand.cpp \
@@ -718,15 +708,14 @@ CORE_CPP_SOURCES = \
     src/cpp/getvariablesname.cpp \
     src/cpp/getmacrosname.cpp \
     src/cpp/getfunctionsname.cpp \
-    src/cpp/InitScilab.cpp
+    src/cpp/InitScilab.cpp \
+    src/cpp/setformat.cpp
 
 CORE_FORTRAN_SOURCES = \
     src/fortran/clunit.f \
     src/fortran/folhp.f \
     src/fortran/xerbla.f \
-    src/fortran/whatln.f \
     src/fortran/expsum.f \
-    src/fortran/putid.f \
     src/fortran/readinter.f \
     src/fortran/rewindinter.f \
     src/fortran/backspaceinter.f \
@@ -863,16 +852,7 @@ includes/sci_malloc.h \
 includes/PATH_MAX.h \
 includes/scilabDefaults.h \
 includes/scisparse.h \
-includes/stack-c.h \
 includes/sci_types.h \
-includes/stack-def.h \
-includes/stack.h \
-includes/stack1.h \
-includes/stack2.h \
-includes/stack3.h \
-includes/stack-optional.h \
-includes/stackinfo.h \
-includes/stackTypeVariable.h \
 includes/version.h \
 includes/getversion.h \
 includes/backtrace_print.h \
@@ -1067,8 +1047,6 @@ src/c/libscicore_algo_la-islittleendian.lo: src/c/$(am__dirstamp) \
        src/c/$(DEPDIR)/$(am__dirstamp)
 src/c/libscicore_algo_la-getcommandlineargs.lo: src/c/$(am__dirstamp) \
        src/c/$(DEPDIR)/$(am__dirstamp)
-src/c/libscicore_algo_la-callFunctionFromGateway.lo:  \
-       src/c/$(am__dirstamp) src/c/$(DEPDIR)/$(am__dirstamp)
 src/c/libscicore_algo_la-commandwords.lo: src/c/$(am__dirstamp) \
        src/c/$(DEPDIR)/$(am__dirstamp)
 src/c/libscicore_algo_la-freeArrayOfString.lo: src/c/$(am__dirstamp) \
@@ -1097,12 +1075,6 @@ src/c/libscicore_algo_la-signal_mgmt.lo: src/c/$(am__dirstamp) \
        src/c/$(DEPDIR)/$(am__dirstamp)
 src/c/libscicore_algo_la-suspendProcess.lo: src/c/$(am__dirstamp) \
        src/c/$(DEPDIR)/$(am__dirstamp)
-src/c/libscicore_algo_la-setlines.lo: src/c/$(am__dirstamp) \
-       src/c/$(DEPDIR)/$(am__dirstamp)
-src/c/libscicore_algo_la-setformat.lo: src/c/$(am__dirstamp) \
-       src/c/$(DEPDIR)/$(am__dirstamp)
-src/c/libscicore_algo_la-InitializePreferences.lo:  \
-       src/c/$(am__dirstamp) src/c/$(DEPDIR)/$(am__dirstamp)
 src/c/libscicore_algo_la-saveCWDInPreferences.lo:  \
        src/c/$(am__dirstamp) src/c/$(DEPDIR)/$(am__dirstamp)
 src/c/libscicore_algo_la-getmaxMALLOC.lo: src/c/$(am__dirstamp) \
@@ -1127,8 +1099,6 @@ src/cpp/$(am__dirstamp):
 src/cpp/$(DEPDIR)/$(am__dirstamp):
        @$(MKDIR_P) src/cpp/$(DEPDIR)
        @: > src/cpp/$(DEPDIR)/$(am__dirstamp)
-src/cpp/libscicore_algo_la-namstr.lo: src/cpp/$(am__dirstamp) \
-       src/cpp/$(DEPDIR)/$(am__dirstamp)
 src/cpp/libscicore_algo_la-demangle.lo: src/cpp/$(am__dirstamp) \
        src/cpp/$(DEPDIR)/$(am__dirstamp)
 src/cpp/libscicore_algo_la-backtrace_print.lo:  \
@@ -1151,6 +1121,8 @@ src/cpp/libscicore_algo_la-getfunctionsname.lo:  \
        src/cpp/$(am__dirstamp) src/cpp/$(DEPDIR)/$(am__dirstamp)
 src/cpp/libscicore_algo_la-InitScilab.lo: src/cpp/$(am__dirstamp) \
        src/cpp/$(DEPDIR)/$(am__dirstamp)
+src/cpp/libscicore_algo_la-setformat.lo: src/cpp/$(am__dirstamp) \
+       src/cpp/$(DEPDIR)/$(am__dirstamp)
 src/fortran/$(am__dirstamp):
        @$(MKDIR_P) src/fortran
        @: > src/fortran/$(am__dirstamp)
@@ -1163,12 +1135,8 @@ src/fortran/folhp.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/xerbla.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/whatln.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/expsum.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/putid.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/readinter.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/rewindinter.lo: src/fortran/$(am__dirstamp) \
@@ -1377,9 +1345,7 @@ distclean-compile:
 @AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_who.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_with_module.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-GetXmlFileEncoding.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-InitializePreferences.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-backtrace.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-callFunctionFromGateway.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-commandwords.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-csignal.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-dynamic_gateways.Plo@am__quote@
@@ -1402,8 +1368,6 @@ distclean-compile:
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-saveCWDInPreferences.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-sci_mem_alloc.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-setPrecisionFPU.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-setformat.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-setlines.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-signal_mgmt.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-suspendProcess.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-texmacs.Plo@am__quote@
@@ -1418,8 +1382,8 @@ distclean-compile:
 @AMDEP_TRUE@@am__include@ @am__quote@src/cpp/$(DEPDIR)/libscicore_algo_la-getfunctionsname.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/cpp/$(DEPDIR)/libscicore_algo_la-getmacrosname.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/cpp/$(DEPDIR)/libscicore_algo_la-getvariablesname.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@src/cpp/$(DEPDIR)/libscicore_algo_la-namstr.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/cpp/$(DEPDIR)/libscicore_algo_la-runner.Plo@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@src/cpp/$(DEPDIR)/libscicore_algo_la-setformat.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/cpp/$(DEPDIR)/libscicore_algo_la-storeCommand.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/cpp/$(DEPDIR)/libscicore_algo_la-tasks.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/cpp/$(DEPDIR)/libscicore_algo_la-with_module.Plo@am__quote@
@@ -1532,13 +1496,6 @@ src/c/libscicore_algo_la-getcommandlineargs.lo: src/c/getcommandlineargs.c
 @AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
 @am__fastdepCC_FALSE@  $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src/c/libscicore_algo_la-getcommandlineargs.lo `test -f 'src/c/getcommandlineargs.c' || echo '$(srcdir)/'`src/c/getcommandlineargs.c
 
-src/c/libscicore_algo_la-callFunctionFromGateway.lo: src/c/callFunctionFromGateway.c
-@am__fastdepCC_TRUE@   $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src/c/libscicore_algo_la-callFunctionFromGateway.lo -MD -MP -MF src/c/$(DEPDIR)/libscicore_algo_la-callFunctionFromGateway.Tpo -c -o src/c/libscicore_algo_la-callFunctionFromGateway.lo `test -f 'src/c/callFunctionFromGateway.c' || echo '$(srcdir)/'`src/c/callFunctionFromGateway.c
-@am__fastdepCC_TRUE@   $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscicore_algo_la-callFunctionFromGateway.Tpo src/c/$(DEPDIR)/libscicore_algo_la-callFunctionFromGateway.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      $(AM_V_CC)source='src/c/callFunctionFromGateway.c' object='src/c/libscicore_algo_la-callFunctionFromGateway.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src/c/libscicore_algo_la-callFunctionFromGateway.lo `test -f 'src/c/callFunctionFromGateway.c' || echo '$(srcdir)/'`src/c/callFunctionFromGateway.c
-
 src/c/libscicore_algo_la-commandwords.lo: src/c/commandwords.c
 @am__fastdepCC_TRUE@   $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src/c/libscicore_algo_la-commandwords.lo -MD -MP -MF src/c/$(DEPDIR)/libscicore_algo_la-commandwords.Tpo -c -o src/c/libscicore_algo_la-commandwords.lo `test -f 'src/c/commandwords.c' || echo '$(srcdir)/'`src/c/commandwords.c
 @am__fastdepCC_TRUE@   $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscicore_algo_la-commandwords.Tpo src/c/$(DEPDIR)/libscicore_algo_la-commandwords.Plo
@@ -1637,27 +1594,6 @@ src/c/libscicore_algo_la-suspendProcess.lo: src/c/suspendProcess.c
 @AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
 @am__fastdepCC_FALSE@  $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src/c/libscicore_algo_la-suspendProcess.lo `test -f 'src/c/suspendProcess.c' || echo '$(srcdir)/'`src/c/suspendProcess.c
 
-src/c/libscicore_algo_la-setlines.lo: src/c/setlines.c
-@am__fastdepCC_TRUE@   $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src/c/libscicore_algo_la-setlines.lo -MD -MP -MF src/c/$(DEPDIR)/libscicore_algo_la-setlines.Tpo -c -o src/c/libscicore_algo_la-setlines.lo `test -f 'src/c/setlines.c' || echo '$(srcdir)/'`src/c/setlines.c
-@am__fastdepCC_TRUE@   $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscicore_algo_la-setlines.Tpo src/c/$(DEPDIR)/libscicore_algo_la-setlines.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      $(AM_V_CC)source='src/c/setlines.c' object='src/c/libscicore_algo_la-setlines.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src/c/libscicore_algo_la-setlines.lo `test -f 'src/c/setlines.c' || echo '$(srcdir)/'`src/c/setlines.c
-
-src/c/libscicore_algo_la-setformat.lo: src/c/setformat.c
-@am__fastdepCC_TRUE@   $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src/c/libscicore_algo_la-setformat.lo -MD -MP -MF src/c/$(DEPDIR)/libscicore_algo_la-setformat.Tpo -c -o src/c/libscicore_algo_la-setformat.lo `test -f 'src/c/setformat.c' || echo '$(srcdir)/'`src/c/setformat.c
-@am__fastdepCC_TRUE@   $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscicore_algo_la-setformat.Tpo src/c/$(DEPDIR)/libscicore_algo_la-setformat.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      $(AM_V_CC)source='src/c/setformat.c' object='src/c/libscicore_algo_la-setformat.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src/c/libscicore_algo_la-setformat.lo `test -f 'src/c/setformat.c' || echo '$(srcdir)/'`src/c/setformat.c
-
-src/c/libscicore_algo_la-InitializePreferences.lo: src/c/InitializePreferences.c
-@am__fastdepCC_TRUE@   $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src/c/libscicore_algo_la-InitializePreferences.lo -MD -MP -MF src/c/$(DEPDIR)/libscicore_algo_la-InitializePreferences.Tpo -c -o src/c/libscicore_algo_la-InitializePreferences.lo `test -f 'src/c/InitializePreferences.c' || echo '$(srcdir)/'`src/c/InitializePreferences.c
-@am__fastdepCC_TRUE@   $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscicore_algo_la-InitializePreferences.Tpo src/c/$(DEPDIR)/libscicore_algo_la-InitializePreferences.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      $(AM_V_CC)source='src/c/InitializePreferences.c' object='src/c/libscicore_algo_la-InitializePreferences.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src/c/libscicore_algo_la-InitializePreferences.lo `test -f 'src/c/InitializePreferences.c' || echo '$(srcdir)/'`src/c/InitializePreferences.c
-
 src/c/libscicore_algo_la-saveCWDInPreferences.lo: src/c/saveCWDInPreferences.c
 @am__fastdepCC_TRUE@   $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src/c/libscicore_algo_la-saveCWDInPreferences.lo -MD -MP -MF src/c/$(DEPDIR)/libscicore_algo_la-saveCWDInPreferences.Tpo -c -o src/c/libscicore_algo_la-saveCWDInPreferences.lo `test -f 'src/c/saveCWDInPreferences.c' || echo '$(srcdir)/'`src/c/saveCWDInPreferences.c
 @am__fastdepCC_TRUE@   $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscicore_algo_la-saveCWDInPreferences.Tpo src/c/$(DEPDIR)/libscicore_algo_la-saveCWDInPreferences.Plo
@@ -1731,13 +1667,6 @@ sci_gateway/c/libscicore_la-sci_getdebuginfo.lo: sci_gateway/c/sci_getdebuginfo.
 @AMDEP_TRUE@@am__fastdepCXX_FALSE@     DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
 @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LTCXXCOMPILE) -c -o $@ $<
 
-src/cpp/libscicore_algo_la-namstr.lo: src/cpp/namstr.cpp
-@am__fastdepCXX_TRUE@  $(AM_V_CXX)$(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT src/cpp/libscicore_algo_la-namstr.lo -MD -MP -MF src/cpp/$(DEPDIR)/libscicore_algo_la-namstr.Tpo -c -o src/cpp/libscicore_algo_la-namstr.lo `test -f 'src/cpp/namstr.cpp' || echo '$(srcdir)/'`src/cpp/namstr.cpp
-@am__fastdepCXX_TRUE@  $(AM_V_at)$(am__mv) src/cpp/$(DEPDIR)/libscicore_algo_la-namstr.Tpo src/cpp/$(DEPDIR)/libscicore_algo_la-namstr.Plo
-@AMDEP_TRUE@@am__fastdepCXX_FALSE@     $(AM_V_CXX)source='src/cpp/namstr.cpp' object='src/cpp/libscicore_algo_la-namstr.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCXX_FALSE@     DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o src/cpp/libscicore_algo_la-namstr.lo `test -f 'src/cpp/namstr.cpp' || echo '$(srcdir)/'`src/cpp/namstr.cpp
-
 src/cpp/libscicore_algo_la-demangle.lo: src/cpp/demangle.cpp
 @am__fastdepCXX_TRUE@  $(AM_V_CXX)$(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT src/cpp/libscicore_algo_la-demangle.lo -MD -MP -MF src/cpp/$(DEPDIR)/libscicore_algo_la-demangle.Tpo -c -o src/cpp/libscicore_algo_la-demangle.lo `test -f 'src/cpp/demangle.cpp' || echo '$(srcdir)/'`src/cpp/demangle.cpp
 @am__fastdepCXX_TRUE@  $(AM_V_at)$(am__mv) src/cpp/$(DEPDIR)/libscicore_algo_la-demangle.Tpo src/cpp/$(DEPDIR)/libscicore_algo_la-demangle.Plo
@@ -1815,6 +1744,13 @@ src/cpp/libscicore_algo_la-InitScilab.lo: src/cpp/InitScilab.cpp
 @AMDEP_TRUE@@am__fastdepCXX_FALSE@     DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
 @am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o src/cpp/libscicore_algo_la-InitScilab.lo `test -f 'src/cpp/InitScilab.cpp' || echo '$(srcdir)/'`src/cpp/InitScilab.cpp
 
+src/cpp/libscicore_algo_la-setformat.lo: src/cpp/setformat.cpp
+@am__fastdepCXX_TRUE@  $(AM_V_CXX)$(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT src/cpp/libscicore_algo_la-setformat.lo -MD -MP -MF src/cpp/$(DEPDIR)/libscicore_algo_la-setformat.Tpo -c -o src/cpp/libscicore_algo_la-setformat.lo `test -f 'src/cpp/setformat.cpp' || echo '$(srcdir)/'`src/cpp/setformat.cpp
+@am__fastdepCXX_TRUE@  $(AM_V_at)$(am__mv) src/cpp/$(DEPDIR)/libscicore_algo_la-setformat.Tpo src/cpp/$(DEPDIR)/libscicore_algo_la-setformat.Plo
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@     $(AM_V_CXX)source='src/cpp/setformat.cpp' object='src/cpp/libscicore_algo_la-setformat.lo' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCXX_FALSE@     DEPDIR=$(DEPDIR) $(CXXDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCXX_FALSE@ $(AM_V_CXX@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o src/cpp/libscicore_algo_la-setformat.lo `test -f 'src/cpp/setformat.cpp' || echo '$(srcdir)/'`src/cpp/setformat.cpp
+
 sci_gateway/cpp/libscicore_la-core_gw.lo: sci_gateway/cpp/core_gw.cpp
 @am__fastdepCXX_TRUE@  $(AM_V_CXX)$(LIBTOOL) $(AM_V_lt) --tag=CXX $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CXX) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -MT sci_gateway/cpp/libscicore_la-core_gw.lo -MD -MP -MF sci_gateway/cpp/$(DEPDIR)/libscicore_la-core_gw.Tpo -c -o sci_gateway/cpp/libscicore_la-core_gw.lo `test -f 'sci_gateway/cpp/core_gw.cpp' || echo '$(srcdir)/'`sci_gateway/cpp/core_gw.cpp
 @am__fastdepCXX_TRUE@  $(AM_V_at)$(am__mv) sci_gateway/cpp/$(DEPDIR)/libscicore_la-core_gw.Tpo sci_gateway/cpp/$(DEPDIR)/libscicore_la-core_gw.Plo
diff --git a/scilab/modules/core/includes/callFunctionFromGateway.h b/scilab/modules/core/includes/callFunctionFromGateway.h
deleted file mode 100644 (file)
index e8ff046..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2007 - INRIA - 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
- *
- */
-
-#ifndef __CALLFUNCTIONFROMGATEWAY_H__
-#define __CALLFUNCTIONFROMGATEWAY_H__
-
-#define SIZE_CURRENT_GENERIC_TABLE(tab) (sizeof(tab) / sizeof(gw_generic_table))
-
-typedef int (*function_Interf)(char *fname, unsigned long l);
-
-/**
- * See SCI/modules/<module_name>/sci_gateway/c/gw_<module_name>.c for example
-*/
-
-typedef struct functions_table_struct
-{
-    function_Interf f; /** the function itself **/
-    char const * const name;      /** its name in Scilab **/
-    /* char const * const , to remove some warnings -Wall (linux) */
-} gw_generic_table;
-
-/**
-* call a function associated to a number "Fin-1"
-* in Tab
-* @param Tab gw_generic_table
-* @param sizeTab size of Tab
-*/
-void callFunctionFromGateway(gw_generic_table *Tab, int sizeTab);
-
-#endif /* __CALLFUNCTIONFROMGATEWAY_H__ */
-/*--------------------------------------------------------------------------*/
index 72c053e..a6ec6f3 100644 (file)
 #endif
 #define DIR_SEPARATORW L"/"
 
+#define bsiz 4096
+
 #endif /* MACHINE_H  */
 
index f8566b9..e2faad9 100644 (file)
@@ -89,4 +89,6 @@
 #define SIZEOF_INT 4
 #define SIZEOF_LONG 4
 
+#define bsiz 4096
+
 #endif /* MACHINE_H  */
index cc26719..cffc34b 100644 (file)
@@ -14,7 +14,7 @@
 #define __SETFORMAT_H__
 
 void setformat(const char * format, int width);
-char * getformat();
+const char * getformat();
 int getformatwidth();
 
 #endif // __SETFORMAT_H__
diff --git a/scilab/modules/core/includes/setieee.h b/scilab/modules/core/includes/setieee.h
deleted file mode 100644 (file)
index b396390..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2012 - Scilab Enterprises - Calixte DENIZET
- *
- * 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
- *
- */
-
-#ifndef __SETIEEE_H__
-#define __SETIEEE_H__
-
-void setieee(int ieee);
-int getieee();
-
-#endif // __SETIEEE_H__
diff --git a/scilab/modules/core/includes/stack-c.h b/scilab/modules/core/includes/stack-c.h
deleted file mode 100644 (file)
index 5841fed..0000000
+++ /dev/null
@@ -1,310 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) INRIA
- * Copyright (C) ENPC
- *
- * 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
- *
- */
-/* Common Block Declarations */
-
-#ifndef STACK_SCI
-#define STACK_SCI
-
-#if defined(__SCILAB_TOOLBOX__) && !defined(__INTERNAL_API_SCILAB__) && !defined(__USE_DEPRECATED_STACK_FUNCTIONS__) && !defined(__MEX_INCLUDE__)
-#error Using stack-c.h is deprecated. Please use api_scilab instead (try 'help api_scilab'). Note the stack-c.h API will be removed after Scilab 6.0. You can define __USE_DEPRECATED_STACK_FUNCTIONS__ to bypass this error.
-#endif
-
-#include <string.h>
-
-#ifdef __cplusplus
-extern "C" {
-#endif
-
-#if  ( !(defined __MATH__)  || (defined __APPLE__) || (defined aix) )
-#include "core_math.h"
-#else
-#include "machine.h"
-#endif
-
-#include "stack-def.h"
-#include "stackTypeVariable.h"
-
-#include "BOOL.h"
-#include "stack1.h"
-#include "stack2.h"
-#include "stack3.h"
-#include "stack-optional.h"
-#include "sci_types.h"
-
-/*-------------------------------------------------
- * structure used for int matrix
- * -------------------------------------------------*/
-
-/* a set of define to decode it argument */
-
-#define I_CHAR 1
-#define I_INT16 2
-#define I_INT32 4
-#define I_UCHAR 11
-#define I_UINT16 12
-#define I_UINT32 14
-
-/* a set of define for the associated casts */
-
-#define IC_CHAR(x) ((char *) (x))
-#define IC_INT16(x) ((short int *) (x))
-#define IC_INT32(x)   ((int *) (x))
-#define IC_UCHAR(x)   ((unsigned char *) (x))
-#define IC_UINT16(x)   ((unsigned short int *) (x))
-#define IC_UINT32(x)  ((unsigned int *) (x))
-
-/**
- * sciintmat
- */
-typedef struct sciintmat
-{
-    int m, n;
-    int it ; /**< it : 1,2,4,11,12,14  */
-    int l;   /**< if l != -1 then istk(l) == D */
-    void *D;     /**< data : should be casted according to it */
-} SciIntMat ;
-
-
-
-/*-------------------------------------------------
- * set of defines for interface simplication
- * -------------------------------------------------*/
-
-static int c1_local = 0;
-static int c_local = 0;
-
-static void initial_c1_local(void);
-static void initial_c_local(void);
-
-/* Correction Warning variable "c_local" was declared but never referenced */
-/* initial_c_local not used */
-static void initial_c_local(void)
-{
-    initial_c1_local();
-    c_local = 0;
-}
-/* Correction Warning variable "c1_local" was declared but never referenced */
-/* initial_c1_local not used */
-static void initial_c1_local(void)
-{
-    initial_c_local();
-    c1_local = 0;
-}
-
-
-
-#define iadr(l) ((l)+(l)-1)
-#define sadr(l) (((l)/2)+1)
-#define cadr(l) ((l)+(l)+(l)+(l)-3)
-
-/* Top is a variable used in Windows.h */
-#ifdef Top
-#undef Top
-#endif
-#define Fin C2F(com).fin
-#define Rhs C2F(com).rhs
-#define Lhs C2F(com).lhs
-#define Err C2F(iop).err
-
-#define Maxvol(n,ct)  C2F(maxvol)((c_local=n,&c_local),ct,1L)
-
-#define CreateVarFromPtr(n,ct,mx,nx,lx) if ( ! C2F(createvarfromptr)((c_local=n,&c_local),ct,mx,nx,(void *)lx,1L)) \
-                                            { return 0;}
-
-#define CreateCVarFromPtr(n,ct,it,mx,nx,lrx,lcx) if ( ! C2F(createcvarfromptr)((c_local=n,&c_local),ct,it,mx,nx,(double *)lrx,(double *) lcx,1L)) \
-                                            { return 0;}
-#define CreateRefFromName(n,nx) if(! C2F(createreffromname)(n,nx)){return 0;}
-
-#define CreateRef(num, point) if(! C2F(createreference)(num,point)){return 0;}
-
-#define ChangeToRef(num, point) C2F(changetoref)(num,point)
-
-#define FreePtr(lx) C2F(freeptr)((double **) lx)
-
-#define GetType(n)   C2F(gettype)((c_local = n +Top - Rhs, &c_local))
-
-#define VarType(n)   C2F(vartype)((c_local=n,&c_local))
-#define ElementType(n,m)   C2F(elementtype)((c_local=n,&c_local),(c1_local=m,&c1_local))
-
-#define OverLoad(n) C2F(overload)((c_local = (n == 0) ? n : n + Top - Rhs, &c_local),fname,(unsigned long)strlen(fname))
-
-/**
- * <long-description>
- *
- * @param n
- * @param ct
- * @param mx
- * @param nx
- * @param lx
- * @return <ReturnValue>
- */
-#define GetRhsVar(n,ct,mx,nx,lx) if (! C2F(getrhsvar)((c_local=n,&c_local),ct,mx,nx,(int *) lx,1L))\
-        { return 0;  }
-
-#define CreateVar(n,ct,mx,nx,lx) if(! C2F(createvar)((c_local=n,&c_local),ct,mx,nx,(int *)lx, 1L))\
-        { return 0;  }
-
-#define CreateWork(n,mx,lx) if(! C2F(creatework)((c_local=n,&c_local),mx,(int *)lx))\
-        { return 0;  }
-
-#define SetWorkSize(n,mx) if(! C2F(setworksize)((c_local=n,&c_local),mx))\
-        { return 0;  }
-
-#define CreateData(n,nx) if(! C2F(createdata)((c_local=n,&c_local),nx))\
-        { return 0;  }
-
-#define GetRhsCVar(n,ct,it,mx,nx,lrx,lcx) if (! C2F(getrhscvar)((c_local=n,&c_local),ct,it,mx,nx,lrx,lcx,1L))\
-        { return 0;  }
-
-#define CreateCVar(n,ct,it,mx,nx,lrx,lcx) if(! C2F(createcvar)((c_local=n,&c_local),ct,it,mx,nx,lrx,lcx, 1L))\
-        { return 0;  }
-
-#define Errorinfo(routinename,info) C2F(errorinfo)(routinename,(c_local=info, &c_local), strlen(routinename));
-
-#define PutLhsVar()  if (! C2F(putlhsvar)()) { return 0; }
-
-#define ReadMatrix(ct,mx,nx,w)  if (! C2F(creadmat)(ct,mx,nx,w,(unsigned long)strlen(ct) )) {  return 0; }
-
-#define WriteMatrix(ct,mx,nx,w)  if (! C2F(cwritemat)(ct,mx,nx,w,(unsigned long)strlen(ct) )) {        return 0; }
-
-#define PutVar(num, nam)  if (! C2F(putvar)( (c_local=num, &c_local), nam, (unsigned long)strlen(nam) )) {     return 0; }
-
-#define ReadString(ct,mx,w)  if (! C2F(creadchain)(ct,mx,w,strlen(ct),strlen(w) )) {   return 0; }
-
-#define WriteString(ct,mx,w)  if (! C2F(cwritechain)(ct,mx,w,strlen(ct),strlen(w) )) { return 0; }
-
-#define GetMatrixptr(ct,mx,nx,lx)  if (! C2F(cmatptr)(ct,mx,nx,lx,(unsigned long)strlen(ct) )) {       return 0; }
-
-#define GetMatrixdims(n,mx,nx)  if (! C2F(getmatdims)((c_local=n,&c_local),mx,nx)) {   return 0; }
-
-#define CreateVarFrom(n,ct,mx,nx,lx,lx1) if (!C2F(createvarfrom)((c_local=n,&c_local),ct,mx,nx,lx,lx1,1L))  { return 0;}
-#define CreateCVarFrom(n,ct,it,mx,nx,lx,lc,lx1,lc1) if (!C2F(createcvarfrom)((c_local=n,&c_local),ct,it,mx,nx,lx,lc,lx1,lc1,1L))  { return 0;}
-
-#define Createlist(m,n) C2F(createlist)((c_local=m,&c_local),(c1_local=n,&c1_local))
-
-#define CreateListVarFrom(n,m,ct,mx,nx,lx,lx1) if (!C2F(createlistvarfrom)((c_local=n,&c_local),(c1_local=m,&c1_local),ct,mx,nx,(int *)lx,(int *) lx1,1L))  { return 0;}
-
-#define CreateListCVarFrom(n,m,ct,it,mx,nx,lx,lc,lx1,lc1) if (!C2F(createlistcvarfrom)((c_local=n,&c_local),(c1_local=m,&c1_local),ct,it,mx,nx,(int *)lx,(int *) lc,(int *) lx1,(int *)lc1,1L))  { return 0;}
-
-#define CreateListVarFromPtr(n,m,ct,mx,nx,lx1) if (!C2F(createlistvarfromptr)((c_local=n,&c_local),(c1_local=m,&c1_local),ct,mx,nx,(void *) lx1,1L))  { return 0;}
-
-#define CreateListCVarFromPtr(n,m,ct,it,mx,nx,lx1,lc1) if (!C2F(createlistcvarfromptr)((c_local=n,&c_local),(c1_local=m,&c1_local),ct,it,mx,nx,(void *) lx1,(void *) lc1,1L))  { return 0;}
-
-
-
-#define  GetListRhsVar(n,m,ct,m1e1,n1e1,l1e1)  if(!C2F(getlistrhsvar)((c_local=n,&c_local),(c1_local=m,&c1_local),ct,m1e1,n1e1,(int *) l1e1,1L)) {return 0;}
-
-#define  GetListRhsCVar(n,m,ct,it,m1e1,n1e1,l1e1,l1e2)  if(!C2F(getlistrhscvar)((c_local=n,&c_local),(c1_local=m,&c1_local),ct,it,m1e1,n1e1,(int *) l1e1,(int *) l1e2,1L)) {return 0;}
-
-#ifdef _MSC_VER
-#define CheckRhs(minrhs,maxrhs)  \
-  if (! C2F(checkrhs)(fname,(c_local = minrhs,&c_local),(c1_local=maxrhs,&c1_local),\
-                     (unsigned long)strlen(fname))) { \
-      return 0;\
-  }
-
-#define CheckLhs(minlhs,maxlhs)  \
-  if (! C2F(checklhs)(fname,(c_local = minlhs,&c_local),(c1_local=maxlhs,&c1_local),\
-                     (unsigned long)strlen(fname))) { \
-      return 0;\
-  }
-#else
-#define CheckRhs(minrhs,maxrhs)  \
-  if (! C2F(checkrhs)(fname,(c_local = minrhs,&c_local),(c1_local=maxrhs,&c1_local),\
-                     strlen(fname))) { \
-      return 0;\
-  }
-
-#define CheckLhs(minlhs,maxlhs)  \
-  if (! C2F(checklhs)(fname,(c_local = minlhs,&c_local),(c1_local=maxlhs,&c1_local),\
-                     strlen(fname))) { \
-      return 0;\
-  }
-
-#endif
-
-/** used for conversion to Scilab internal format **/
-
-#define Convert2Sci(x)  C2F(convert2sci)((c_local=x,&c_local))
-
-
-/** Used for calling a scilab function by its name  **/
-
-#define SciString(ibegin,name,mlhs,mrhs) \
-    if( ! C2F(scistring)(ibegin,name,mlhs,mrhs,(unsigned long)strlen(name))) return 0;
-
-/** Used for calling a scilab function given as argument **/
-
-#define SciFunction(ibegin,lf,mlhs,mrhs) \
-    if( ! C2F(scifunction)(ibegin,lf,mlhs,mrhs)) return 0;
-
-/** used for protecting a call to a Scilab function **/
-
-#define PExecSciFunction(n,mx,nx,lx,name,fsqpenv) \
-  if(! C2F(scifunction)((c_local=n,&c_local),mx,nx,lx))\
-{ sciprint(_(" results may be inaccurate. rcond = %s1\n"),name);  longjmp(fsqpenv,-1); }
-
-
-typedef int (*interfun)(char *fname, unsigned long l);
-
-typedef struct tagTabF
-{
-    interfun f;
-    char *name;
-} TabF;
-
-
-/*-------------------------------------------------
- * checks properties
- * -------------------------------------------------*/
-
-#define CheckSquare(pos,m,n) if (! check_square(pos,m,n)) return 0;
-#define CheckVector(pos,m,n) if (! check_vector(pos,m,n)) return 0;
-#define CheckRow(pos,m,n) if (! check_row(pos,m,n)) return 0;
-#define CheckColumn(pos,m,n) if (! check_col(pos,m,n)) return 0;
-#define CheckScalar(pos,m,n) if (! check_scalar(pos,m,n)) return 0;
-#define CheckDims(pos,m,n,m1,n1) if (! check_dims(pos,m,n,m1,n1)) return 0;
-#define CheckLength(pos,m,m1) if (! check_length(pos,m,m1)) return 0;
-#define CheckSameDims(pos,pos1,m,n,m1,n1) if (!  check_same_dims(pos,pos1,m,n,m1,n1)) return 0;
-#define CheckDimProp(pos,pos1,m) if (!  check_dim_prop(pos,pos1,m)) return 0;
-#define CheckOneDim(pos,dim,val,valref) if (! check_one_dim(pos,dim,val,valref)) return 0;
-
-#define CheckListSquare(lpos,pos,m,n) if (! check_list_square(lpos,pos,m,n)) return 0;
-#define CheckListVector(lpos,pos,m,n) if (! check_list_vector(lpos,pos,m,n)) return 0;
-#define CheckListRow(lpos,pos,m,n) if (! check_list_row(lpos,pos,m,n)) return 0;
-#define CheckListColumn(lpos,pos,m,n) if (! check_list_column(lpos,pos,m,n)) return 0;
-#define CheckListScalar(lpos,pos,m,n) if (! check_list_scalar(lpos,pos,m,n)) return 0;
-#define CheckListOneDim(lpos,pos,dim,val,valref) if (! check_list_one_dim(lpos,pos,dim,val,valref)) return 0;
-
-
-int get_optionals(char *name, rhs_opts opts[]);
-
-/*------------------------------
- * prototypes
- *-----------------------------*/
-
-/* functions defined in stack-2.c */
-
-extern int C2F(firstopt)(void);
-extern int C2F(findopt)(char *, rhs_opts *);
-extern int C2F(isopt)(int *, char *, unsigned long);
-extern int C2F(checkrhs)(char *fname, int *imin, int *imax, unsigned long fname_len);
-extern int C2F(checklhs)(char *fname, int *imin, int *imax, unsigned long fname_len);
-extern void C2F(freeptr)(double *ip[]);
-
-#ifdef __cplusplus
-}
-#endif
-#endif /*  STACK_SCI  */
-
-
diff --git a/scilab/modules/core/includes/stack-def.h b/scilab/modules/core/includes/stack-def.h
deleted file mode 100644 (file)
index 6f89d87..0000000
+++ /dev/null
@@ -1,335 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 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
- *
- */
-
-#ifndef STACK_DEF
-#define STACK_DEF
-
-#include "machine.h"
-
-#if defined(__SCILAB_TOOLBOX__) && !defined(__INTERNAL_API_SCILAB__) && !defined(__USE_DEPRECATED_STACK_FUNCTIONS__) && !defined(__MEX_INCLUDE__)
-#error Using stack-def.h is deprecated. Please use api_scilab instead (try 'help api_scilab'). Note the stack-def.h API will be removed after Scilab 6.0. You can define __USE_DEPRECATED_STACK_FUNCTIONS__ to bypass this error.
-#endif
-
-#if _LCC_ & FORDLL
-#define IMPORT __declspec (dllimport)
-#else
-#ifdef FORDLL
-#define IMPORT extern  __declspec (dllimport)
-#else
-#define IMPORT extern
-#endif
-#endif
-
-/* C version of stack.h (fortran) */
-
-/* csiz used for character coding */
-#define csiz 63
-
-/* bsiz size of internal chain buf */
-#define bsiz 4096
-
-/* isizt  maximum number of scilab variables global and local */
-#define isizt 10000
-
-/* psiz  defines recursion size */
-#define psiz 4096
-
-#define nsiz 6
-
-/* lsiz  dim. of vector containing the command line */
-#define lsiz 65536
-
-/* nlgh  length of variable names */
-#define nlgh nsiz*4
-
-/* vsiz  size of internal scilab stack */
-#define vsiz 2
-
-/* intersiz used in interfaces */
-#define intersiz 1024
-
-#define maxdb 100
-#define maxbpt 1000
-
-/**
- * @TODO : add comment
- */
-typedef struct
-{
-    int ddt; /**< @TODO : add comment */
-    int err; /**< @TODO : add comment */
-    int lct[8]; /**< @TODO : add comment */
-    int lin[lsiz]; /**< @TODO : add comment */
-    int lpt[6]; /**< @TODO : add comment */
-    int rio; /* Id input (fortran) file descriptor */
-    int rte; /* Id input (fortran) terminal descriptor (stdin)  */
-    int wte; /* Id output (fortran) terminal descriptor (stdout) */
-} IOP_struct;
-
-IMPORT IOP_struct C2F(iop);
-
-/**
- * @TODO : add comment
- */
-typedef struct
-{
-    int err1; /**< @TODO : add comment */
-    int err2; /**< @TODO : add comment */
-    int errct; /**< @TODO : add comment */
-    int toperr; /**< @TODO : add comment */
-    int errpt; /**< @TODO : add comment */
-    int ieee; /**< @TODO : add comment */
-    int errcatch; /**< @TODO : add comment */
-} ERRGST_struct;
-
-IMPORT ERRGST_struct C2F(errgst);
-
-/**
- * @TODO : add comment
- */
-typedef struct
-{
-    int sym; /**< @TODO : add comment */
-    int syn[nsiz]; /**< @TODO : add comment */
-    int char1; /**< @TODO : add comment */
-    int fin; /**< @TODO : add comment */
-    int fun; /**< @TODO : add comment */
-    int lhs; /**< @TODO : add comment */
-    int rhs; /**< @TODO : add comment */
-    int ran[2]; /**< @TODO : add comment */
-    int comp[3]; /**< @TODO : add comment */
-} COM_struct;
-
-IMPORT COM_struct C2F(com);
-
-/**
- * @TODO : add comment
- */
-typedef struct
-{
-    int lbot; /**< @TODO : add comment */
-    int ie; /**< @TODO : add comment */
-    int is; /**< @TODO : add comment */
-    int ipal; /**< @TODO : add comment */
-    int nbarg; /**< @TODO : add comment */
-    int ladr[intersiz]; /**< @TODO : add comment */
-} ADRE_struct;
-
-IMPORT ADRE_struct C2F(adre);
-
-/**
- * @TODO : add comment
- */
-typedef struct
-{
-    int wmac; /**< @TODO : add comment */
-    int lcntr; /**< @TODO : add comment */
-    int nmacs; /**< @TODO : add comment */
-    int macnms[nsiz * maxdb]; /**< @TODO : add comment */
-    int lgptrs[maxdb + 1]; /**< @TODO : add comment */
-    int bptlg[maxbpt]; /**< @TODO : add comment */
-} DBG_struct;
-
-IMPORT DBG_struct C2F(dbg);
-
-/**
- * @TODO : add comment
- */
-typedef struct
-{
-    int mmode; /**< @TODO : add comment */
-} MTLBC_struct;
-
-IMPORT MTLBC_struct C2F(mtlbc);
-
-/**
- * @TODO : add comment
- */
-typedef struct
-{
-    int iero; /**< @TODO : add comment */
-} IERODE_struct;
-
-IMPORT IERODE_struct C2F(ierode);
-
-/**
- * @TODO : add comment
- */
-typedef struct
-{
-    double rownr3[2]; /**< @TODO : add comment */
-    double t0; /**< @TODO : add comment */
-    double tlast; /**< @TODO : add comment */
-    double toutc; /**< @TODO : add comment */
-    int lg0; /**< @TODO : add comment */
-    int lg1; /**< @TODO : add comment */
-    int lgx; /**< @TODO : add comment */
-    int iownr3[2]; /**< @TODO : add comment */
-    int irfnd; /**< @TODO : add comment */
-    int itaskc; /**< @TODO : add comment */
-    int ngc; /**< @TODO : add comment */
-    int nge; /**< @TODO : add comment */
-} LSR001_struct;
-
-//IMPORT LSR001_struct C2F(lsr001);
-
-/**
- * @TODO : add comment
- */
-typedef struct
-{
-    double tret; /**< @TODO : add comment */
-    double rowns[209]; /**< @TODO : add comment */
-    double ccmax; /**< @TODO : add comment */
-    double el0; /**< @TODO : add comment */
-    double h__; /**< @TODO : add comment */
-    double hmin; /**< @TODO : add comment */
-    double hmxi; /**< @TODO : add comment */
-    double hu; /**< @TODO : add comment */
-    double rc; /**< @TODO : add comment */
-    double tn; /**< @TODO : add comment */
-    double uround; /**< @TODO : add comment */
-    int illin; /**< @TODO : add comment */
-    int init; /**< @TODO : add comment */
-    int lyh; /**< @TODO : add comment */
-    int lewt; /**< @TODO : add comment */
-    int lacor; /**< @TODO : add comment */
-    int lsavf; /**< @TODO : add comment */
-    int lwm; /**< @TODO : add comment */
-    int liwm; /**< @TODO : add comment */
-    int mxstep; /**< @TODO : add comment */
-    int mxhnil; /**< @TODO : add comment */
-
-    int nhnil; /**< @TODO : add comment */
-    int ntrep; /**< @TODO : add comment */
-    int nslast; /**< @TODO : add comment */
-    int nyh; /**< @TODO : add comment */
-    int iowns[6]; /**< @TODO : add comment */
-    int icf; /**< @TODO : add comment */
-    int ierpj; /**< @TODO : add comment */
-    int iersl; /**< @TODO : add comment */
-    int jcur; /**< @TODO : add comment */
-
-    int jstart; /**< @TODO : add comment */
-    int kflag; /**< @TODO : add comment */
-    int l; /**< @TODO : add comment */
-    int meth; /**< @TODO : add comment */
-    int miter; /**< @TODO : add comment */
-    int maxord; /**< @TODO : add comment */
-    int maxcor; /**< @TODO : add comment */
-    int msbp; /**< @TODO : add comment */
-    int mxncf; /**< @TODO : add comment */
-    int n; /**< @TODO : add comment */
-    int nq; /**< @TODO : add comment */
-    int nst; /**< @TODO : add comment */
-    int nfe; /**< @TODO : add comment */
-    int nje; /**< @TODO : add comment */
-    int nqu; /**< @TODO : add comment */
-} LS0001_struct;
-
-//IMPORT LS0001_struct C2F(ls0001);
-
-
-/**
- * @TODO : add comment
- */
-typedef struct
-{
-    double tsw; /**< @TODO : add comment */
-    double rowns2[20]; /**< @TODO : add comment */
-    double pdnorm; /**< @TODO : add comment */
-    int insufr; /**< @TODO : add comment */
-    int insufi; /**< @TODO : add comment */
-    int ixpr; /**< @TODO : add comment */
-    int iowns2[2]; /**< @TODO : add comment */
-    int jtyp; /**< @TODO : add comment */
-    int mused; /**< @TODO : add comment */
-    int mxordn; /**< @TODO : add comment */
-    int mxords; /**< @TODO : add comment */
-} LSA001_struct;
-
-//IMPORT LSA001_struct C2F(lsa001);
-
-typedef struct
-{
-    int mesflg, lunit;
-} EH0001_struct;
-
-//IMPORT EH0001_struct C2F(eh0001);
-
-/**
- * @TODO : add comment
- */
-typedef struct
-{
-    int lf; /**< @TODO : add comment */
-    int nfree; /**< @TODO : add comment */
-    int nf; /**< @TODO : add comment */
-} SCIGSCH_struct;
-
-IMPORT SCIGSCH_struct C2F(scigsch);
-
-/**
- * @TODO : add comment
- */
-typedef struct
-{
-    int lf; /**< @TODO : add comment */
-    int nx; /**< @TODO : add comment */
-    int nf; /**< @TODO : add comment */
-} SCISCH_struct;
-
-IMPORT SCISCH_struct C2F(scisch);
-
-/**
- * @TODO : add comment
- */
-typedef union
-{
-    struct
-    {
-        int lf; /**< @TODO : add comment */
-        int nfree; /**< @TODO : add comment */
-        int nf; /**< @TODO : add comment */
-    } _1; /**< @TODO : add comment */
-    struct
-    {
-        int lf; /**< @TODO : add comment */
-        int nx; /**< @TODO : add comment */
-        int nf; /**< @TODO : add comment */
-    } _2; /**< @TODO : add comment */
-} SCIZGSCH_union;
-
-IMPORT SCIZGSCH_union C2F(scizgsch);
-
-typedef struct
-{
-    int iflag; /* interruption flag CTRL-C */
-    int interruptible; /* */
-} BASBRK_struct;
-
-IMPORT BASBRK_struct C2F(basbrk);
-
-/**
-* simpmd : rational fraction simplification mode
-* used in polynomials and inisci.f (core)
-*/
-typedef struct
-{
-    int simpmd;
-} CSIMP_struct;
-
-IMPORT CSIMP_struct C2F(csimp);
-
-
-#endif /** STACK_DEF  **/
-
diff --git a/scilab/modules/core/includes/stack-optional.h b/scilab/modules/core/includes/stack-optional.h
deleted file mode 100644 (file)
index 9efec62..0000000
+++ /dev/null
@@ -1,38 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2014 - Scilab Enterprises
- *
- * 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
- */
-
-#ifndef __STACK_OPTIONAL__
-#define __STACK_OPTIONAL__
-
-#define CheckOpt(first) if ( C2F(checkopt)(first) ) {return 0;}
-
-#define FirstOpt() C2F(firstopt)()
-
-#define FindOpt(str,opts) C2F(findopt)(str,opts)
-
-#define NumOpt() C2F(numopt)()
-
-#define IsOpt(k,name) C2F(isopt)((c_local=k,&c_local),name,nlgh)
-
-/*-------------------------------------------------
- * structure used for optional arguments in interfaces
- * -------------------------------------------------*/
-typedef struct rhs_opts__
-{
-    int iPos ; /** stack position : -1 if not present */
-    char* pstName;
-    int iType;// -1 not yet defined
-    int iRows;
-    int iCols;
-    int* piAddr;
-} rhs_opts;
-
-#endif /* __STACK_OPTIONAL__ */
diff --git a/scilab/modules/core/includes/stack.h.in b/scilab/modules/core/includes/stack.h.in
deleted file mode 100644 (file)
index 9159548..0000000
+++ /dev/null
@@ -1,75 +0,0 @@
-c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-c Copyright (C) INRIA
-c
-c This file must be used under the terms of the CeCILL.
-c This source file is licensed as described in the file COPYING, which
-c you should have received as part of this distribution.  The terms
-c are also available at
-c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
-
-c*------------------------------------------------------------------
-c vsiz  size of internal scilab stack
-c
-c bsiz  size of internal chain buf
-c
-c isizt  maximum number of scilab variables global and local
-c isiz maximum number of scilab local variables
-c psiz  defines recursion size
-c lsiz  dim. of vector containing the command line
-c nlgh  length of variable names
-c csiz  used for character coding
-c intersiz used in interfaces
-c*-------------------------------------------------------------------
-Cc (DLL Digital Visual Fortran)
-cDEC$ IF DEFINED (FORDLL)
-cDEC$ ATTRIBUTES DLLIMPORT:: /recu/, /iop/
-cDEC$ ATTRIBUTES DLLIMPORT:: /errgst/, /com/, /adre/
-cDEC$ ATTRIBUTES DLLIMPORT:: /cha1/, /dbg/
-cDEC$ ENDIF
-C     ---------------------------------------------------------------
-      integer   csiz,bsiz,isizt,psiz,nsiz,lsiz
-      parameter (csiz=63,bsiz=4096,isizt=10000,psiz=4096,nsiz=6)
-      parameter (lsiz=65536)
-      integer   nlgh,vsiz
-      parameter (nlgh=nsiz*4,vsiz=2)
-      integer   maxdb,maxbpt
-      parameter (maxdb=100,maxbpt=1000)
-      integer intersiz
-      parameter (intersiz=1024)
-c
-      double precision, pointer, dimension(:) ::  stk
-      integer,          pointer, dimension(:) :: istk
-      real,             pointer, dimension(:) :: sstk
-      character,        pointer               :: cstk*(4*vsiz)
-      complex*16,       pointer, dimension(:) :: zstk
-
-      integer ids(nsiz,psiz),pstk(psiz),rstk(psiz),pt,niv,macr,paus
-      integer icall,krec
-      common /recu/ ids,pstk,rstk,pt,niv,macr,paus,icall,krec
-
-      integer ddt,err,lct(8),lin(lsiz),lpt(6),rio,rte,wte
-      common /iop/ ddt,err,lct,lin,lpt,rio,rte,wte
-
-      integer err1,err2,errct,toperr,errpt,ieee,catch
-      common /errgst/ err1,err2,errct,toperr,errpt,ieee,catch
-
-      integer sym,syn(nsiz),char1,fin,fun,lhs,rhs,ran(2),comp(3)
-      common /com/ sym,syn,char1,fin,fun,lhs,rhs,ran,comp
-
-      character alfa(csiz)*1,alfb(csiz)*1,buf*(bsiz)
-      common /cha1/ alfa,alfb,buf
-
-      integer wmac,lcntr,nmacs,macnms(nsiz,maxdb),lgptrs(maxdb+1)
-      integer bptlg(maxbpt)
-      common /dbg/ wmac,lcntr,nmacs,macnms,lgptrs,bptlg
-
-      integer lbot,ie,is,ipal,nbarg,ladr(intersiz)
-      common/adre/lbot,ie,is,ipal,nbarg,ladr
-      integer nbvars,iwhere(intersiz),
-     $ nbrows(intersiz),nbcols(intersiz),
-     $  itflag(intersiz),ntypes(intersiz),lad(intersiz),
-     $  ladc(intersiz),lhsvar(intersiz)
-      integer ierror
-      common/ierode/ierror
-c*------------------------------------------------------------------
-
diff --git a/scilab/modules/core/includes/stack.h.vc b/scilab/modules/core/includes/stack.h.vc
deleted file mode 100644 (file)
index b605d60..0000000
+++ /dev/null
@@ -1,82 +0,0 @@
-c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-c Copyright (C) INRIA
-c 
-c This file must be used under the terms of the CeCILL.
-c This source file is licensed as described in the file COPYING, which
-c you should have received as part of this distribution.  The terms
-c are also available at    
-c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
-
-c*------------------------------------------------------------------
-c vsiz  size of internal scilab stack 
-c
-c bsiz  size of internal chain buf 
-c
-c isizt  maximum number of scilab variables global and local 
-c isiz maximum number of scilab local variables
-c psiz  defines recursion size
-c lsiz  dim. of vector containing the command line
-c nlgh  length of variable names
-c csiz  used for character coding
-c intersiz used in interfaces
-c*-------------------------------------------------------------------
-Cc (DLL Digital Visual Fortran)     
-cDEC$ IF DEFINED (FORDLL)
-cDEC$ ATTRIBUTES DLLIMPORT:: /recu/, /iop/
-cDEC$ ATTRIBUTES DLLIMPORT:: /errgst/, /com/, /adre/
-cDEC$ ATTRIBUTES DLLIMPORT:: /cha1/, /dbg/
-cDEC$ ATTRIBUTES DLLIMPORT:: /ierode/
-cDEC$ ENDIF
-C     ---------------------------------------------------------------
-      integer   csiz,bsiz,isizt,psiz,nsiz,lsiz
-      parameter (csiz=63,bsiz=4096,isizt=10000,psiz=4096,nsiz=6)
-      parameter (lsiz=65536)
-      integer   nlgh,vsiz
-      parameter (nlgh=nsiz*4,vsiz=2)
-      integer   maxdb,maxbpt
-      parameter (maxdb=100,maxbpt=1000)
-      integer intersiz
-      parameter (intersiz=1024)
-c
-      double precision stk(vsiz)
-      integer istk(2*vsiz)
-      equivalence (istk(1),stk(1))
-
-      real sstk(2*vsiz)
-      equivalence (sstk(1),stk(1))
-       
-      character cstk*(4*vsiz)
-      equivalence (cstk,stk(1))
-
-      complex*16 zstk(vsiz/2)
-      equivalence (zstk(1),stk(1))
-
-      integer ids(nsiz,psiz),pstk(psiz),rstk(psiz),pt,niv,macr,paus
-      integer icall,krec
-      common /recu/ ids,pstk,rstk,pt,niv,macr,paus,icall,krec
-
-      integer ddt,err,lct(8),lin(lsiz),lpt(6),rio,rte,wte
-      common /iop/ ddt,err,lct,lin,lpt,rio,rte,wte
-
-      integer err1,err2,errct,toperr,errpt,ieee,catch
-      common /errgst/ err1,err2,errct,toperr,errpt,ieee,catch
-
-      integer sym,syn(nsiz),char1,fin,fun,lhs,rhs,ran(2),comp(3)
-      common /com/ sym,syn,char1,fin,fun,lhs,rhs,ran,comp
-
-      character alfa(csiz)*1,alfb(csiz)*1,buf*(bsiz)
-      common /cha1/ alfa,alfb,buf
-
-      integer wmac,lcntr,nmacs,macnms(nsiz,maxdb),lgptrs(maxdb+1)
-      integer bptlg(maxbpt)
-      common /dbg/ wmac,lcntr,nmacs,macnms,lgptrs,bptlg
-
-      integer lbot,ie,is,ipal,nbarg,ladr(intersiz)
-      common/adre/lbot,ie,is,ipal,nbarg,ladr
-      integer nbvars,iwhere(intersiz),
-     $ nbrows(intersiz),nbcols(intersiz),
-     $ itflag(intersiz),ntypes(intersiz),lad(intersiz),
-     $ ladc(intersiz),lhsvar(intersiz)
-      integer ierror
-      common/ierode/ierror
-c*------------------------------------------------------------------
diff --git a/scilab/modules/core/includes/stack1.h b/scilab/modules/core/includes/stack1.h
deleted file mode 100644 (file)
index 766ac96..0000000
+++ /dev/null
@@ -1,176 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 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
- *
- */
-#ifndef STACK1_H
-#define STACK1_H
-
-#if defined(__SCILAB_TOOLBOX__) && !defined(__INTERNAL_API_SCILAB__) && !defined(__USE_DEPRECATED_STACK_FUNCTIONS__) && !defined(__MEX_INCLUDE__)
-#error Using stack1.h is deprecated. Please use api_scilab instead (try 'help api_scilab'). Note the stack1.h API will be removed after Scilab 6.0. You can define __USE_DEPRECATED_STACK_FUNCTIONS__ to bypass this error.
-#endif
-
-#include "machine.h"
-#include "scisparse.h" /* SciSparse */
-
-typedef  void (*S_fp)(char *, int *);
-
-extern int C2F(ogettype)(int *lw);
-
-
-/** used in stack1.c : defined elsewhere */
-
-extern int C2F(icopy)(int *, int *, int *, int *, int *);
-extern int C2F(dset)(int *array_length, double *init_value, double *array, int *array_stride);
-extern int C2F(dcopy)(int *array_length, double *array_in, int *array_in_stride, double *array_out, int *array_out_stride);
-extern int C2F(scidcopy)(int *, double *, int *, double *, int *);
-extern int C2F(unsfdcopy)(int *, double *, int *, double *, int *);
-extern int C2F(rcopy)(int *, float *, int *, float *, int *);
-extern int C2F(stackg)(int *);
-
-/* calelm */
-
-extern int C2F(entier)(int *n, double *d__, int *s);
-extern int C2F(simple)(int *n, double *d__, float *s);
-extern int C2F(iset)(int *n, int *dx, int *dy, int *incy);
-
-/* stack1.c */
-
-int C2F(getwsmat)(char *fname, int *topk, int *lw, int *m, int *n, int *ilr, int *ilrd, unsigned long fname_len);
-int C2F(getlistwsmat)(char *fname, int *topk, int *spos, int*lnum, int *m, int *n, int *ilr, int *ilrd, unsigned long fname_len);
-
-char * get_fname ( char *fname,   unsigned long fname_len);
-int cre_smat_from_str (char *fname,  int *lw, int * m, int * n, char **Str,    unsigned long fname_len);
-
-int C2F(getlistmat)(char *fname, int *topk, int *spos, int *lnum, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
-int C2F(getmat)(char *fname, int *topk, int *lw, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
-
-int C2F(listcremat)(char *fname, int *lw, int *numi, int *stlw, int *it, int *m, int *n, int *lrs, int *lcs, unsigned long fname_len);
-int C2F(cremat)(char *fname, int *lw, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
-int C2F(crematvar)(int *id, int *lw, int *it, int *m, int *n, double *rtab, double *itab);
-int C2F(crebmatvar) (int *id, int *lw, int *m, int *n, int *val);
-int C2F(cresmatvar) (int *id, int *lw, char *str, int *lstr, unsigned long str_len);
-int C2F(fakecremat)(int *lw, int *it, int *m, int *n, int *lr, int *lc);
-int C2F(getlistbmat)(char *fname, int *topk, int *spos, int *lnum, int *m, int *n, int *lr, unsigned long fname_len);
-int C2F(getbmat)(char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
-
-int C2F(listcrebmat)(char *fname, int *lw, int *numi, int *stlw, int *m, int *n, int *lrs, unsigned long fname_len);
-int C2F(crebmat)(char *fname, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
-int C2F(fakecrebmat)( int *lw, int *m, int *n, int *lr);
-
-int C2F(getsparse)(char *fname, int *topk, int *lw, int *it, int *m, int *n, int *nel, int *mnel, int *icol, int *lr, int *lc, unsigned long fname_len);
-int C2F(getlistsparse)(char *fname, int *topk, int *spos, int *lnum, int *it, int *m, int *n, int *nel, int *mnel, int *icol, int *lr, int *lc, unsigned long fname_len);
-int C2F(listcresparse)(char *fname, int *lw, int *numi, int *stlw, int *it, int *m, int *n, int *nel, int *mnel, int *icol, int *lrs, int *lcs, unsigned long fname_len);
-int C2F(cresparse)(char *fname, int *lw, int *it, int *m, int *n, int *nel, int *mnel, int *icol, int *lr, int *lc, unsigned long fname_len);
-
-int C2F(getlistvect)(char *fname, int *topk, int *spos, int *lnum, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
-int C2F(getvect)(char *fname, int *topk, int *lw, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
-int C2F(getrmat)(char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
-int C2F(getcmat)(char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
-int C2F(getrvect)(char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
-int C2F(getscalar)(char *fname, int *topk, int *lw, int *lr, unsigned long fname_len);
-int C2F(matsize)(char *fname, int *topk, int *lw, int *m, int *n, unsigned long fname_len);
-int C2F(vectsize)(char *fname, int *topk, int *lw, int *n, unsigned long fname_len);
-int C2F(matbsize)(char *fname, int *topk, int *lw, int *m, int *n, unsigned long fname_len);
-int C2F(getsmat)(char *fname, int *topk, int *lw, int *m, int *n, int *i__, int *j, int *lr, int *nlr, unsigned long fname_len);
-int C2F(getsimat)(char *fname, int *topk, int *lw, int *m, int *n, int *i__, int *j, int *lr, int *nlr, unsigned long fname_len);
-int C2F(listcresmat)(char *fname, int *lw, int *numi, int *stlw, int *m, int *n, int *nchar, int *job, int *ilrs, unsigned long fname_len);
-int C2F(cresmat)(char *fname, int *lw, int *m, int *n, int *nchar, unsigned long fname_len);
-int C2F(cresmati)(char *fname, int *stlw, int *m, int *n, int *nchar, int *job, int *lr, int *sz, unsigned long fname_len);
-int C2F(cresmat1)(char *fname, int *lw, int *m, int *nchar, unsigned long fname_len);
-int C2F(cresmat3)(char *fname, int *lw, int *m, int *n, int *nchar, char *buffer, unsigned long fname_len, unsigned long buffer_len);
-int C2F(cresmat2)(char *fname, int *lw, int *nchar, int *lr, unsigned long fname_len);
-int C2F(smatj)(char *fname, int *lw, int *j, unsigned long fname_len);
-int C2F(lmatj)(char *fname, int *lw, int *j, unsigned long fname_len);
-int C2F(pmatj)(char *fname, int *lw, int *j, unsigned long fname_len);
-int C2F(copysmat)(char *fname, int *flw, int *tlw, unsigned long fname_len);
-int C2F(setsimat)(char *fname, int *lw, int *i__, int *j, int *nlr, unsigned long fname_len);
-int C2F(realmat)(void);
-int C2F(crewmat)(char *fname, int *lw, int *m, int *lr, unsigned long fname_len);
-int C2F(copyobj)(char *fname, int *lw, int *lwd, unsigned long fname_len);
-int C2F(vcopyobj)(char *fname, int *lw, int *lwd, unsigned long fname_len);
-int C2F(swapmat)(char *fname, int *topk, int *lw, int *it1, int *m1, int *n1, int *mn1, int *it2, int *m2, int *n2, int *mn2, unsigned long fname_len);
-int C2F(insmat)(int *topk, int *lw, int *it, int *m, int *n, int *lr, int *lc, int *lr1, int *lc1);
-int C2F(stackinfo)(int *lw, int *typ);
-int C2F(allmat)(char *fname, int *topk, int *lw, int *m, int *n, unsigned long fname_len);
-int C2F(allmatset)(char *fname, int *lw, int *m, int *n, unsigned long fname_len);
-int C2F(getilist)(char *fname, int *topk, int *lw, int *n, int *i__, int *ili, unsigned long fname_len);
-int C2F(objvide)(char *fname, int *lw, unsigned long fname_len);
-int C2F(getexternal)(char *fname, int *topk, int *lw, char *name__, int *type__, S_fp setfun, unsigned long fname_len, unsigned long name_len);
-int C2F(getpoly)(char *fname, int *topk, int *lw, int *it, int *m, int *n, char *name__, int *namel, int *ilp, int *lr, int *lc, unsigned long fname_len, unsigned long name_len);
-int C2F(crewimat)(char *fname, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
-int C2F(getwimat)(char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
-int C2F(checkval)(char *fname, int *ival1, int *ival2, unsigned long fname_len);
-int C2F(optvarget)(char *fname, int *topk, int *iel, char *name__, unsigned long fname_len, unsigned long name_len);
-int C2F(bufstore)(char *fname, int *lbuf, int *lbufi, int *lbuff, int *lr, int *nlr, unsigned long fname_len);
-int C2F(crestringv)(char *fname, int *spos, int *ilorig, int *lw, unsigned long fname_len);
-
-int C2F(crepointer)(char *fname, int *spos, int *lw, unsigned long fname_len);
-int C2F(listcrepointer)(char *fname, int *lw, int *numi, int *stlw,  int *lrs,  unsigned long fname_len);
-
-int C2F(lcrestringmatfromc)(char *fname, int *spos, int *numi, int *stlw, int *lorig, int *m, int *n, unsigned long fname_len);
-int C2F(crestringmatfromc)(char *fname, int *spos, int *lorig, int *m, int *n, unsigned long fname_len);
-int C2F(crelist)(int *slw, int *ilen, int *lw);
-int C2F(cretlist)(int *slw, int *ilen, int *lw);
-int C2F(cremlist)(int *slw, int *ilen, int *lw);
-int C2F(getlistvectrow)(char *fname, int *topk, int *spos, int *lnum, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
-int C2F(getvectrow)(char *fname, int *topk, int *spos, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
-int C2F(getlistvectcol)(char *fname, int *topk, int *spos, int *lnum, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
-int C2F(getvectcol)(char *fname, int *topk, int *spos, int *it, int *m, int *n, int *lr, int *lc, unsigned long fname_len);
-int C2F(getlistscalar)(char *fname, int *topk, int *spos, int *lnum, int *lr, unsigned long fname_len);
-int C2F(listcrestring)(char *fname, int *lw, int *numi, int *stlw, int *nch, int *ilrs, unsigned long fname_len);
-int C2F(crestring)(char *fname, int *spos, int *nchar, int *ilrs, unsigned long fname_len);
-int C2F(crestringi)(char *fname, int *stlw, int *nchar, int *ilrs, unsigned long fname_len);
-int C2F(getlistsimat)(char *fname, int *topk, int *spos, int *lnum, int *m, int *n, int *i__, int *j, int *lr, int *nlr, unsigned long fname_len);
-
-
-int C2F(getsimati)(char *fname, int *topk, int *spos, int *lw, int *m, int *n, int *i, int *j, int *lr, int *nlr, int *inlist, int *nel, unsigned long fname_len);
-int C2F(getonepoly)(char *fname, int *topk, int *lw, int *it, int *md, char *name__, int *namel, int *lr, int *lc, unsigned long fname_len, unsigned long name_len);
-
-int C2F(getlistpointer)(char *fname, int *topk, int *spos, int *lnum, int *lr, unsigned long fname_len);
-int C2F(getpointer)(char *fname, int *topk, int *lw, int *lr, unsigned long fname_len);
-
-
-
-
-int C2F(mspcreate)(int *lw, int *m, int *n, int *nzmax, int *it);
-int C2F(cresmat4)(char *fname, int *lw, int *m, int *nchar, int *lr, unsigned long fname_len);
-int C2F(credata) (char *fname, int *lw, int m, unsigned long fname_len);
-
-int cre_listsmat_from_str(char *fname, int *lw, int *numi, int *stlw, int *m, int *n, char **Str, long unsigned int fname_len);
-
-int cre_sparse_from_ptr (char *fname, int * lw, int *m, int *n, SciSparse *Str, unsigned long fname_len );
-
-int cre_listsparse_from_ptr(char *fname, int * lw, int * numi, int * stlw, int *  m, int * n, SciSparse *M, unsigned long fname_len );
-
-
-
-/**********************************************************************
- * INT MATRICES
- **********************************************************************/
-int C2F(getlistimat) (char *fname, int *topk, int *spos, int *lnum, int *it, int *m, int *n, int *lr, long unsigned int fname_len);
-
-int C2F(getimat) (char *fname, int *topk, int *lw, int *it, int *m, int *n, int *lr, long unsigned int fname_len);
-
-int C2F(listcreimat) (char *fname, int *lw, int *numi, int *stlw, int *it, int *m, int *n, int *lrs, long unsigned int fname_len);
-
-int C2F(creimat) (char *fname, int *lw, int *it, int *m, int *n, int *lr, long unsigned int fname_len);
-int C2F(creimati)(char *fname, int *stlw, int *it, int *m, int *n, int *lr, int *flagx, unsigned long fname_len);
-
-/**********************************************************************
- * HANDLE MATRICES
- **********************************************************************/
-int C2F(getlisthmat)(char *fname, int *topk, int *spos, int *lnum, int *m, int *n, int *lr, unsigned long fname_len);
-int C2F(gethmat)(char *fname, int *topk, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
-
-
-int C2F(listcrehmat)(char *fname, int *lw, int *numi, int *stlw, int *m, int *n, int *lrs, unsigned long fname_len);
-int C2F(crehmat)(char *fname, int *lw, int *m, int *n, int *lr, unsigned long fname_len);
-
-#endif
diff --git a/scilab/modules/core/includes/stack2.h b/scilab/modules/core/includes/stack2.h
deleted file mode 100644 (file)
index f935806..0000000
+++ /dev/null
@@ -1,247 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 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
- *
- */
-#ifndef STACK2_H
-#define  STACK2_H
-
-
-#if defined(__SCILAB_TOOLBOX__) && !defined(__INTERNAL_API_SCILAB__) && !defined(__USE_DEPRECATED_STACK_FUNCTIONS__) && !defined(__MEX_INCLUDE__)
-#error Using stack2.h is deprecated. Please use api_scilab instead (try 'help api_scilab'). Note the stack2.h API will be removed after Scilab 6.0. You can define __USE_DEPRECATED_STACK_FUNCTIONS__ to bypass this error.
-#endif
-
-#include "machine.h"
-
-/* from int */
-
-extern  int C2F(tpconv)(int *, int *, int *, void *, int *, void *, int *);
-
-/* from system */
-
-extern int C2F(mklistt)(int *, int *);
-extern int C2F(funs)(int *);
-extern int C2F(putid)(int *, int *);
-extern int C2F(allops)(void);
-extern int C2F(putfunnam)(char *fname, int *lw, unsigned long);
-
-/* from somewhere (maybe stack1.h) */
-
-extern void C2F(setfeval)(char *, int *);
-extern int C2F(fakecresmat2)(int *lw, int *nchar, int *lr);
-/* from stack2.h */
-int C2F(isoptlw)(int *topk, int  *lw, char *namex, unsigned long name_len);
-int C2F(numopt)(void);
-
-int C2F(convert2sci)(int *);
-
-/*
- * returns the type of object at position lw in the stack
- * @param lw position
- * @return the type of object at position lw in the stack
- */
-int C2F(gettype)(int *lw);
-
-
-/**
- * int C2F(putlhsvar)()
- *     This function put on the Scilab stack the lhs
- *     variables which are at the position lhsvar(i)
- *     on the calling stack
- *     Warning : this function supposes that the last
- *     variable on the stack is at position top-rhs+nbvars
- * @return
- */
-int C2F(putlhsvar)(void);
-
-int C2F(isref)(int *lw);
-int C2F(vartype)(int *number);
-int C2F(elementtype)(int *lnumber, int *number);
-
-/**
- * Create a variable into the Scilab stack
- * You will probably need to do after a istk(xxxx) = yourvalue;
- * TODO : add a @see to the type of data
- * @param lw Position in the stack
- * @param type__ Type of data ('c','d','r','i','l','b')
- * @param m number of line of the matrix
- * @param n number of columns of the matrix
- * @param[out] lr the address of the data in Scilab Stack
- * @param type_len length of the char *type__
- */
-int C2F(createvar)(int *lw, char *type__, int *m, int *n, int *lr, unsigned long type_len);
-
-int C2F(creatework) (int *number, int *m, int  *lr);
-
-int C2F(setworksize) (int *number, int *size);
-
-
-/**
- * Create a complex variable into the Scilab stack
- * You will probably need to do after a istk(xxxx) = yourvalue;
- * TODO : add a @see to the type of data
- * @example
- * Add the content of comm_size into the stack of Scilab
- * @code
-       int n1=1,m1=1,l1=0;
-       int comm_size=42;
-       CreateVar(1, "i", &m1, &n1 ,&l1);
-       *istk(l1)=comm_size;
- * @endcode
- * @param lw Position in the stack
- * @param type__ Type of data ('c','d','r','i','l','b')
- * @param it if it is complex or not (not sure)
- * @param m number of line of the matrix
- * @param n number of columns of the matrix
- * @param[out] lr the address of the real data in Scilab Stack
- * @param[out] lc the address of the complex data in Scilab Stack
- * @param type_len length of the char *type__
- * @return the result of the operation
- */
-int C2F(createcvar)(int *lw, char *type__, int *it, int *m, int *n, int *lr, int *lc, unsigned long type_len);
-
-
-int C2F(createlist)(int *lw, int *nel);
-int C2F(createvarfrom)(int *lw, char *type__, int *m, int *n, int *lr, int *lar, unsigned long type_len);
-int C2F(createcvarfrom)(int *lw, char *type__, int *it, int *m, int *n, int *lr, int *lc, int *lar, int *lac, unsigned long type_len);
-int C2F(createlistvarfrom)(int *lnumber, int *number, char *type__, int *m, int *n, int *lr, int *lar, unsigned long type_len);
-
-int C2F(getmatdims) (int *number, int *m, int *n);
-
-
-/**
- * getrhsvar :
- *     get the argument number <<number>>
- *     the argument must be of type type ('c','d','r','i','f','l','b')
- *     return values m,n,lr
- *     c : string  (m-> number of characters and n->1)
- *     d,r,i : matrix of double,float or integer
- *     f : external (function)
- *     b : boolean matrix
- *     l : a list  (m-> number of elements and n->1)
- *         for each element of the list an other function
- *         must be used to <<get>> them
- *     side effects : arguments in the common intersci are modified
- *     see examples in addinter-examples
- * @param number the number of the argument in the function
- * @param type__ the type of the variable
- * @param m number of line of the matrix
- * @param n number of columns of the matrix
- * @param lr the address of the data in Scilab Stack
- * @param type_len length of the char *type__
- * @return the result of the operation
- */
-int C2F(getrhsvar)(int *number, char *type__, int *m, int *n, int *lr, unsigned long type_len);
-
-
-/**
- * getrhsvar :
- *     get the argument number <<number>>  which is a complex matrices
- *     the argument must be of type type ('d','r','i')
- *     return values m,n,lr
- *     d,r,i : matrix of double,float or integer
- *     side effects : arguments in the common intersci are modified
- *     see examples in addinter-examples
- * @param number the number of the argument in the function
- * @param type__ the type of the variable
- * @param m number of line of the matrix
- * @param n number of columns of the matrix
- * @param lr the address of the real data in Scilab Stack
- * @param lc the address of the complex data in Scilab Stack
- * @param type_len length of the char *type__
- * @return the result of the operation
- */
-int C2F(getrhscvar)(int *number, char *type__, int *it, int *m, int *n, int *lr, int *lc, unsigned long type_len);
-
-
-int C2F(getlistrhsvar)(int *lnumber, int *number, char *type__, int *m, int *n, int *lr,  unsigned long type_len);
-int C2F(getlistrhscvar)(int *lnumber, int *number, char *type__, int *it, int *m, int *n, int *lr, int *lc, unsigned long type_len);
-
-
-
-/**
- * Create a variable into the Scilab stack from a pointer
- * @param lw Position in the stack
- * @param type__ Type of data (i for integer, c for char, b for boolean ...)
- * @param m number of line of the matrix
- * @param n number of columns of the matrix
- * @param iptr the data we want to add into the stack
- * @param type_len length of the char *type__
- */
-int C2F(createvarfromptr)(int *number, char *type__, int *m, int *n, void *iptr, unsigned long type_len);
-
-
-/**
- * Create a complex variable into the Scilab stack from a pointer
- * @param lw Position in the stack
- * @param type__ Type of data (i for integer, c for char, b for boolean ...)
- * @param m number of line of the matrix
- * @param n number of columns of the matrix
- * @param iptr the data we want to add into the stack
- * @param iptc the complex data we want to add into the stack
- * @param type_len length of the char *type__
- */
-int C2F(createcvarfromptr)(int *number, char *type__, int *it, int *m, int *n, double *iptr, double *iptc, unsigned long type_len);
-
-int C2F(mklistfromvars)(int *pos, int *n);
-int C2F(mktlistfromvars)(int *pos, int *n);
-int C2F(mkmlistfromvars)(int *pos, int *n);
-int C2F(in2str)(int *n, int *line, char *str, unsigned long str_len);
-int C2F(callscifun)(char *string, unsigned long string_len);
-int C2F(scifunction)(int *number, int *ptr, int *mlhs, int *mrhs);
-int C2F(scistring)(int *ifirst, char *thestring, int *mlhs, int *mrhs, unsigned long thestring_len);
-int C2F(scibuiltin)(int *number, int *ifun, int *ifin, int *mlhs, int *mrhs);
-int C2F(sciops)(int *number, int *op, int *mlhs, int *mrhs);
-int C2F(getrhssys)(int *lw, int *n, int *m, int *p, int *ptra, int *ptrb, int *ptrc, int *ptrd, int *ptrx0, double *h__);
-int C2F(errorinfo)(char *fname, int *info, unsigned long fname_len);
-int C2F(maxvol)(int *lw, char *type__, unsigned long type_len);
-
-int  C2F(createlistvarfromptr) (int *lnumber, int *number, char *typex, int *m, int *n, void *iptr, long unsigned int type_len);
-
-int C2F(createlistcvarfromptr) (int * lnumber, int * number, char * typex, int *it, int * m, int * n, void *iptr, void * iptc, unsigned long ttype_len);
-int C2F(createlistcvarfrom)(int *lnumber, int *number, char *typex, int *it, int *m, int *n, int *lr, int *lc, int *lar, int *lac, unsigned long type_len);
-
-int C2F(createdata)(int *lw, int n);
-
-char * ArgPosition(int i);
-char * ArgsPosition(int i, int j);
-
-int IsRef(int lw);
-int Ref2val(int from , int to ) ;
-
-void *GetVarPtr(int n);
-void *GetData(int lw);
-void *GetRawData(int lw);
-int GetDataSize(int lw);
-void *GetDataFromName( char *name );
-int C2F(createreffromname)(int number, char *name );
-int C2F(createreference)( int number, int pointed );
-int C2F(changetoref)( int number, int pointed );
-
-int check_square(int pos, int m, int n);
-int check_vector(int pos, int m, int n);
-int check_row(int pos, int m, int n);
-int check_col(int pos, int m, int n);
-int check_scalar(int pos, int m, int n);
-int check_dims(int pos, int m, int n, int m1, int n1);
-int check_length(int pos, int m, int n);
-int check_same_dims  (int pos1, int pos2, int m1, int n1, int m2, int n2);
-int check_dim_prop (int pos1, int pos2, int n);
-int check_one_dim  (int pos1, int dim, int val, int valref);
-
-int check_list_square(int lpos, int pos, int m, int n);
-int check_list_vector(int lpos, int pos, int m, int n);
-int check_list_row(int lpos, int pos, int m, int n);
-int check_list_col(int lpos, int pos, int m, int n);
-int check_list_scalar(int lpos, int pos, int m, int n);
-int check_list_one_dim(int lpos, int pos, int dim, int val, int valref);
-
-int C2F(overload)(int *lw, char *fname, unsigned long l);
-
-#endif
diff --git a/scilab/modules/core/includes/stack3.h b/scilab/modules/core/includes/stack3.h
deleted file mode 100644 (file)
index c0b42a2..0000000
+++ /dev/null
@@ -1,210 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 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
- */
-/*
- * @file stack3.h
- * What is stack3 ?
- * This file contains most of the function to interface Scilab from
- * thirdparty application but almost primitive to access Scilab data
- * from the gateway
- * In theory, stack2.h & stack1.h should not be called directly
- */
-
-
-#ifndef STACK3_H
-#define STACK3_H
-
-#if defined(__SCILAB_TOOLBOX__) && !defined(__INTERNAL_API_SCILAB__) && !defined(__USE_DEPRECATED_STACK_FUNCTIONS__) && !defined(__MEX_INCLUDE__)
-#error Using stack3.h is deprecated. Please use api_scilab instead (try 'help api_scilab'). Note the stack3.h API will be removed after Scilab 6.0. You can define __USE_DEPRECATED_STACK_FUNCTIONS__ to bypass this error.
-#endif
-
-#include "machine.h"
-//#include "doublecomplex.h"
-
-/*Constants*/
-#define ROW_LETTER             'r'
-#define COL_LETTER             'c'
-#define STAR_LETTER            '*'
-#define MTLB_LETTER            'm'
-
-#define BY_ROWS                        1
-#define BY_COLS                        2
-#define BY_ALL                 0
-#define        BY_MTLB                 -1
-
-int C2F(putvar) (int *number, char *namex, unsigned long name_len );
-
-/**
- * Returns if a variable is complex or not
- *
- * @param _iVar the matrix
- * @return 1 if is complex 0 otherwise
- */
-int iIsComplex(int _iVar);
-void GetRhsPolyVar(int _iVarNum, int** _piVarName, int* _piRows, int* _piCols, int* _piPow, int* _piReal);
-void GetRhsCPolyVar(int _iVarNum, int** _piVarName, int* _piRows, int* _piCols, int* _piPow, int* _piReal, int *_piImg);
-void GetRhsSparseVar(int _iVarNum, int* _piRows, int* _piCols, int* _piTotalElem, int* _piElemByRow, int* _piColByRow, int* _piReal);
-void GetRhsCSparseVar(int _iVarNum, int* _piRows, int* _piCols, int* _piTotalElem, int* _piElemByRow, int* _piColByRow, int* _piReal, int* _piImg);
-void GetRhsBooleanSparseVar(int _iVarNum, int* _piRows, int* _piCols, int* _piTotalElem, int* _piElemByRow, int* _piColByRow);
-void GetRhsStringVar(int _iVarNum, int* _piRows, int* _piCols, int* _piLen, char* _pstData);
-
-void CreatePolyVarFromPtr(int _iNewVal, int** _piVarName, int _iRows, int _iCols, int *_piPow, double* _pdblRealData);
-void CreateCPolyVarFromPtr(int _iNewVal, int** _piVarName, int _iRows, int _iCols, int *_piPow, double* _pdblRealData, double* _pdblImgData);
-void CreateSparseVarFromPtr(int _iNewVal, int _iRows, int _iCols, int _iTotalElem, int* _piElemByRow, int* _piColByRow, double* _pdblRealData);
-void CreateCSparseVarFromPtr(int _iNewVal, int _iRows, int _iCols, int _iTotalElem, int* _piElemByRow, int* _piColByRow, double* _pdblRealData, double* _pdblImgData);
-void CreateBooleanVarFromPtr(int _iNewVal, int _iRows, int _iCols, int* _piBoolData);
-void CreateCBooleanSparseVarFromPtr(int _iNewVal, int _iRows, int _iCols, int _iTotalElem, int* _piElemByRow, int* _piColByRow);
-
-
-
-int iArraySum(int *_piArray, int _iStart, int _iEnd);
-int GetDimFromVar(int _iVarNum, int _iNum/*Oo*/, int* _piVal);
-void CheckVarUsed(int _iVarNum);
-void CheckAllVarUsed(int _iStart, int _iEnd);
-void GetVarDimension(int _iVarNum, int* _piRows, int* _piCols);
-int iGetOrient(int _iVal);
-
-/* Reserve space in stack for a matrix of double. */
-int iAllocMatrixOfDouble(int _iNewVal, int _iRows, int _iCols, double **_pdblRealData);
-/* Reserve space in stack for a matrix of complex. */
-int iAllocComplexMatrixOfDouble(int _iNewVal, int _iRows, int _iCols, double **_pdblRealData, double **_pdblImgData);
-
-int iAllocComplexMatrixOfDoubleToAddress(int* _piAddr, int _iComplex, int _iRows, int _iCols, double **_pdblRealData, double **_pdblImgData);
-
-int iAllocMatrixOfPoly(int _iNewVal, int** _piVarName, int _iRows, int _iCols, int *_piPow, double** _pdblRealData);
-int iAllocComplexMatrixOfPoly(int _iNewVal, int _iComplex, int** _piVarName, int _iRows, int _iCols, int *_piPow, double** _pdblRealData, double** _pdblImgData);
-int iAllocComplexMatrixOfPolyToAddress(int _iAddr, int _iComplex, int** _piVarName, int _iRows, int _iCols, int *_piPow, double** _pdblRealData, double** _pdblImgData);
-
-int iAllocSparseMatrix(int _iNewVal, int _iRows, int _iCols, int _iTotalElem, int** _piElemByRow, int** _piColByRow, double** _pdblRealData);
-int iAllocComplexSparseMatrix(int _iNewVal, int _iComplex, int _iRows, int _iCols, int _iTotalElem, int** _piElemByRow, int** _piColByRow, double** _pdblRealData, double** _pdblImgData);
-
-int iAllocMatrixOfBoolean(int _iNewVal, int _iRows, int _iCols, int** _piBoolData);
-int iAllocBooleanSparseMatrix(int _iNewVal, int _iRows, int _iCols, int _iTotalElem, int** _piElemByRow, int** _piColByRow);
-
-int iAllocMatrixOfString(int _iNewVal, int _iRows, int _iCols, int *_piLen, char** _piStringData);
-int iAllocMatrixOfStringToAddress(int _iAddr, int _iRows, int _iCols, int *_piLen, char **_piStringData);
-
-/*Get List Information*/
-/* Get Item Count and type of each item */
-int iGetListItemType(int _iVar, int* _piParentList, int *_piItemNumber, int *_pElemType);
-/* Get SubList reference */
-int* iGetListItemList(int _iVar, int* _piParentList, int iItemPos);
-/* Get Sparse Item */
-int iGetListItemSparse(int _iVar, int _iItemNumber, int *_piRows, int *_piCols, int* _piTotalElem, int* _piElemByRow, double **_pdblReal, double **_pdblImg);
-/* Get SinglePoly Item */
-int iGetListItemPoly(int _iVar, int _iItemNumber, int **_pVarName, int *_piRows, int *_piCols, int *_piPow, double **_pdblReal, double **_pdblImg);
-/* Get Double Item */
-int iGetListItemDouble(int _iVar, int _iItemNumber, int *_piRows, int *_piCols, double **_pdblReal, double **_pdblImg);
-/* Does Item Complex */
-int iIsComplexItemElem(int _iVar, int _iItemNumber);
-/* Get Item String */
-int iGetListItemString(int _iVar, int _iItemNumber, int *_piRows, int *_piCols, int *_piLen, char* _pszData);
-
-/* Get SubItem String */
-int iGetListSubItemString(int _iVar, int* _piParentList, int _iItemNumber, int *_piRows, int *_piCols, int *_piLen, char* _pszData);
-
-/*Create List*/
-/* Reserved VarNum for List */
-int* iAllocList(int _iVar, int _iItemNumber);
-
-/* Reserved VarNum for TList */
-int* iAllocTList(int _iVar, int _iItemNumber);
-
-/* Reserved VarNum for MList */
-int* iAllocMList(int _iVar, int _iItemNumber);
-
-/* Reserved VarNum for HyperMatrix */
-int* iAllocHyperMatrix(int _iVar, int _iItemNumber);
-
-/* Reserved VarNum for list */
-int* iAllocListCommon(int _iVar, int _iItemNumber, int _iListType);
-
-/* Child */
-/* Add Common List to ParentList ( internal use only ) */
-int* iListAllocListCommon(int _iVar, int* _piParentList, int _iItemPos, int _iItemNumber, int _iListType);
-
-/* Add HyperMatrix to ParentList */
-int* iListAllocHyperMatrix(int _iVar, int* _piParentList, int _iItemPos, int _iDims);
-
-/* Add MList to ParentList */
-int* iListAllocMList(int _iVar, int* _piParentList, int _iItemPos, int _iItemNumber);
-
-/* Add TList to ParentList */
-int* iListAllocTList(int _iVar, int* _piParentList, int _iItemPos, int _iItemNumber);
-
-/* Add List to ParentList */
-int* iListAllocList(int _iVar, int* _piParentList, int _iItemPos, int _iItemNumber);
-
-/* Add real matrix in _iVar list */
-int iListAllocMatrixOfDouble(int _iVar, int* _piParent, int _iItemPos, int _iRows, int _iCols, double **_pdblRealData);
-
-/* Add complex matrix in _iVar list */
-int iListAllocComplexMatrixOfDouble(int _iVar, int* _piParent, int _iItemPos, int _iComplex, int _iRows, int _iCols, double **_pdblRealData, double **_pdblImgData);
-
-/* Add real polynomial in _iVar list */
-int iListAllocMatrixOfPoly(int _iVar, int* _piParent, int _iItemPos, int** _piVarName, int _iRows, int _iCols, int *_piPow, double** _pdblRealData);
-
-/* Add complex polynomial in _iVar list */
-int iListAllocComplexMatrixOfPoly(int _iVar, int* _piParent, int _iItemPos, int _iComplex, int** _piVarName, int _iRows, int _iCols, int *_piPow, double** _pdblRealData, double** _pdblImgData);
-
-/* Add string matrix in _iVar list */
-int iListAllocString(int _iVar, int* _piParent, int _iItemPos, int _iRows, int _iCols, int *_piLen, char** _pszData);
-
-/* Internal function automaticly call after the last insertion of data */
-void vListClose(int _iVar);
-int* piGetParentNode(int* _piStart, int* _piToFind, int *_piPos);
-int IsKindOfList(int* _piNode);
-void vCloseNode(int _iVar, int *_piCurrentNode, int _iItemPos, int *_piEnd);
-
-
-/* Functions to retrieve variables information from pointer ( real memory address ) */
-int iGetStringFromPointer(int* _piAddr, int *_piRows, int *_piCols, int *_piLen, int** _piString);
-
-int* iGetAddressFromItemPos(int *_piParent, int _iItemPos);
-
-
-/* Internal functions to retrieve varaibles information from Address ( old "il" ) */
-int iGetDoubleFromAddress(int _iAddr, int *_piRows, int *_piCols, int *_piReal, int *_piImg);
-int iGetPolyFromAddress(int _iAddr, int** _piVarName, int* _piRows, int* _piCols, int* _piPow, int* _piReal, int *_piImg);
-int iGetSparseFromAddress(int _iAddr, int* _piRows, int* _piCols, int* _piTotalElem, int* _piElemByRow, int* _piColByRow, int* _piReal, int* _piImg);
-int iGetBooleanSparseFromAddress(int _iAddr, int* _piRows, int* _piCols, int* _piTotalElem, int* _piElemByRow, int* _piColByRow);
-int iGetBooleanFromAddress(int _iAddr, int *_piRows, int *_piCols, int* _piBool);
-int iGetStringFromAddress(int _iAddr, int *_piRows, int *_piCols, int *_piLen, int* _piString);
-
-/**
-* Returns a pointer on the data of a matrix of double
-*  @param number index of the Scilab variable
-*  @param _iRows number of rows in the matrix
-*  @param _iCols number of columns in the matrix
-*  @param _pdblRealData pointer to the block of data for real values
-*  @return a pointer on the data of a matrix of double
-*/
-int GetRhsVarMatrixDouble(int number, int *_iRows, int *_iCols, double **_pdblRealData);
-
-/**
-*  Returns a pointer on the data of a matrix of double.
-*  @param number index of the Scilab variable
-*  @param _iRows number of rows in the matrix
-*  @param _iCols number of columns in the matrix
-*  @param _pdblRealData pointer to the block of data for real values
-*  @param _pdblImgData pointer to the block of data for complex values
-*  @return a pointer on the data of a matrix of double.
-*/
-int GetRhsVarMatrixComplex(int number, int *_iRows, int *_iCols, double **_pdblRealData, double **_pdblImgData);
-
-/* functions ONLY for compatibility and/or internal use */
-int C2F(str2name)  (const char *name__, int *id, unsigned long name_len);
-int C2F(objptr)(char *namex, int *lp, int *fin, unsigned long name_len);
-int C2F(creadmat)(char *namex, int *m, int *n, double *scimat, unsigned long name_len);
-int C2F(creadchain)(char *namex,  int *itslen,  char *chai,  unsigned long name_len,  unsigned long chai_len);
-int C2F(cmatptr)(char *namex, int *m, int *n, int *lp, unsigned long name_len);
-
-
-#endif
diff --git a/scilab/modules/core/includes/stackTypeVariable.h b/scilab/modules/core/includes/stackTypeVariable.h
deleted file mode 100644 (file)
index 09e261b..0000000
+++ /dev/null
@@ -1,118 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2007 - INRIA - Sylvestre LEDRU
- *
- * 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
- *
- */
-#ifndef __STACKTYPEVARIABLE_H__
-#define __STACKTYPEVARIABLE_H__
-
-/** @def STRING_DATATYPE
- * The string/char * datatype in the Scilab stack
- */
-#define STRING_DATATYPE "c"
-
-/** @def MATRIX_OF_STRING_DATATYPE
- * The string/char ** datatype in the Scilab stack
- */
-#define MATRIX_OF_STRING_DATATYPE "S"
-
-
-/** @def MATRIX_OF_DOUBLE_DATATYPE
- * A matrix of double
- * if the size of the matrix is 1,1, it is a single value
- */
-#define MATRIX_OF_DOUBLE_DATATYPE "d"
-
-
-/** @def MATRIX_OF_RATIONAL_DATATYPE
- * A matrix of rational
- * if the size of the matrix is 1,1, it is a single value
- */
-#define MATRIX_OF_RATIONAL_DATATYPE "r"
-
-
-/** @def MATRIX_OF_VARIABLE_SIZE_INTEGER_DATATYPE
- * A matrix of integer
- * if the size of the matrix is 1,1, it is a single value
- */
-#define MATRIX_OF_VARIABLE_SIZE_INTEGER_DATATYPE "I"
-
-/** @def MATRIX_OF_INTEGER_DATATYPE
- * A matrix of 'little' integer
- * 'little' because in reality, this int is a complex with the imaginary
- * part set to 0
- * if the size of the matrix is 1,1, it is a single value
- */
-#define MATRIX_OF_INTEGER_DATATYPE "i"
-
-/** @def MATRIX_OF_BOOLEAN_DATATYPE
- * A matrix of boolean
- * if the size of the matrix is 1,1, it is a single value
- */
-#define MATRIX_OF_BOOLEAN_DATATYPE "b"
-
-/** @def MATRIX_OF_COMPLEX_DATATYPE
- * A matrix of complex
- * if the size of the matrix is 1,1, it is a single value
- */
-#define MATRIX_OF_COMPLEX_DATATYPE "z"
-
-
-/** @def SPARSE_MATRIX_DATATYPE
- * An sparse matrix
- * if the size of the matrix is 1,1, it is a single value
- */
-#define SPARSE_MATRIX_DATATYPE "s"
-
-
-/** @def LIST_DATATYPE
- * A list
- */
-#define LIST_DATATYPE "l"
-
-
-/** @def TYPED_LIST_DATATYPE
- * A typed list
- */
-#define TYPED_LIST_DATATYPE "t"
-
-/** @def MATRIX_ORIENTED_TYPED_LIST_DATATYPE
- * A Matrix oriented typed list
- * mlist object are very similar to tlist objects. But
- * if M is an mlist, for any index i which is not a field name,
- * M(i) is not the i th field of the list but is interpreted as
- * the i th entry of M seen as a vector.
- * This is the only difference between mlist and tlist .
- * @see Scilab documentation at mlist for more information
- */
-#define MATRIX_ORIENTED_TYPED_LIST_DATATYPE "m"
-
-/** @def SCILAB_POINTER_DATATYPE
- * The scilab pointer datatype in the Scilab stack
- */
-#define SCILAB_POINTER_DATATYPE "p"
-
-/** @def GRAPHICAL_HANDLE_DATATYPE
- * The scilab graphic handle datatype in the Scilab stack
- */
-#define GRAPHICAL_HANDLE_DATATYPE "h"
-
-/** @def EXTERNAL_DATATYPE
- * An "external" is a function or routine which is used as an argument
- * of some high-level primitives (such as ode, optim, schur...).
- */
-#define EXTERNAL_DATATYPE "f"
-
-/** @def MATRIX_OF_POLYNOMIAL_DATATYPE
- * A matrix of polynomial coeff
- * if the size of the matrix is 1,1, it is a single value
- */
-#define MATRIX_OF_POLYNOMIAL_DATATYPE "x"
-
-#endif /*__STACKTYPEVARIABLE_H__ */
diff --git a/scilab/modules/core/includes/stackinfo.h b/scilab/modules/core/includes/stackinfo.h
deleted file mode 100644 (file)
index 25c19c3..0000000
+++ /dev/null
@@ -1,119 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2006 - INRIA - 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
- *
- */
-#ifndef __STACKINFO_H__
-#define __STACKINFO_H__
-/*--------------------------------------------------------------------------*/
-#include "machine.h"
-#include "BOOL.h"
-/*--------------------------------------------------------------------------*/
-/**
-* returns some infos about stack (local)
-* @param[out] total
-* @param[out] used
-* @return 0
-*/
-int C2F(getstackinfo)(int *total, int *used);
-
-/**
-* returns some infos about stack (global)
-* @param[out] total
-* @param[out] used
-* @return 0
-*/
-int C2F(getgstackinfo)(int *total, int *used);
-
-/* elements on stacks */
-
-/**
-* returns some infos about variables on stack (local)
-* @param[out] total
-* @param[out] used
-* @return 0
-*/
-int C2F(getvariablesinfo)(int *total, int *used);
-
-/**
-* returns some infos about variables on stack (global)
-* @param[out] total
-* @param[out] used
-* @return 0
-*/
-int C2F(getgvariablesinfo)(int *total, int *used);
-
-/**
-* returns Intermediate Memory size needed (stack) used by "error(17)"
-* @return Intermediate Memory size needed
-*/
-int getIntermediateMemoryNeeded(void);
-
-/**
-* check if sizestack is a valid size for scilab's stack
-* @param sizestack
-* @return TRUE or FALSE
-*/
-BOOL is_a_valid_size_for_scilab_stack(int sizestack);
-
-/**
-* returns max memory usable by scilab's stack
-* @return max size
-*/
-unsigned long get_max_memory_for_scilab_stack(void);
-
-/**
-* get name of "n"th variable on local stack
-* @return string variable name
-*/
-char *getLocalNamefromId(int n);
-
-/**
-* get name of "n"th variable on global stack
-* @return string variable name
-*/
-char *getGlobalNamefromId(int n);
-
-/**
-* get size of "n"th variable on local stack
-* @return int : size of variable
-*/
-int getLocalSizefromId(int n);
-
-/**
-* get size of "n"th variable on global stack
-* @return int : size of variable
-*/
-int getGlobalSizefromId(int n);
-
-/**
-* check if a variable named exists on scilab stack (local & global)
-* @param[in] variable name
-* @return BOOL : TRUE if variable exists
-*/
-BOOL existVariableNamedOnStack(char *varname);
-
-/**
-* check if a variable named exists on scilab stack (local)
-* @param[in] variable name
-* @return BOOL : TRUE if variable exists
-*/
-BOOL existLocalVariableNamedOnStack(char *varname);
-
-/**
-* check if a variable named exists on scilab stack (global)
-* @param[in] variable name
-* @return BOOL : TRUE if variable exists
-*/
-BOOL existGlobalVariableNamedOnStack(char *varname);
-
-
-#endif /*__STACKINFO_H__*/
-/*--------------------------------------------------------------------------*/
-
index 8694a0a..e731ba2 100644 (file)
@@ -13,6 +13,7 @@
 #ifndef __TEXMACS_H__
 #define __TEXMACS_H__
 
+#include "machine.h" /* C2F */
 
 void settexmacs(void);
 int  C2F(intexmacs)(void);
diff --git a/scilab/modules/core/sci_gateway/c/sci_errclear.c b/scilab/modules/core/sci_gateway/c/sci_errclear.c
deleted file mode 100644 (file)
index 11401ec..0000000
+++ /dev/null
@@ -1,88 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2006 - INRIA - Allan CORNET
- * Copyright (C) 2010 - 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
- *
- */
-/*--------------------------------------------------------------------------*/
-#include "gw_core.h"
-#include "api_scilab.h"
-#include "lasterror.h"
-#include "localization.h"
-#include "Scierror.h"
-/*--------------------------------------------------------------------------*/
-int sci_errclear(char *fname, void* pvApiCtx)
-{
-    //Rhs = Max(0,Rhs);
-    CheckRhs(0, 2);
-    CheckLhs(1, 1);
-
-    if (Rhs == 1)
-    {
-        SciErr sciErr;
-        int *piAddressVarOne = NULL;
-
-        sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne);
-        if (sciErr.iErr)
-        {
-            printError(&sciErr, 0);
-            Scierror(999, _("%s: Can not read input argument #%d.\n"), fname, 1);
-            return 0;
-        }
-
-        if (isDoubleType(pvApiCtx, piAddressVarOne))
-        {
-            double dValue = 0.;
-            int iValue = 0;
-            int iLastErrorValue = 0;
-            //int iLastErrorValue = getLastErrorValue();
-
-            if (!isScalar(pvApiCtx, piAddressVarOne))
-            {
-                Scierror(999, _("%s: Wrong size for input argument #%d: A scalar expected.\n"), fname, 1);
-                return 0;
-            }
-
-            getScalarDouble(pvApiCtx, piAddressVarOne, &dValue);
-            iValue = (int)dValue;
-
-            if ((double)iValue != dValue)
-            {
-                Scierror(999, _("%s: Wrong value for input argument #%d: An integer value expected.\n"), fname, 1);
-                return 0;
-            }
-
-            if ((iValue == iLastErrorValue) || (iValue <= 0))
-            {
-                /* clear fortran common error */
-                //C2F(errgst).err2 = 0;
-
-                /* clear last error buffer (C) */
-                //clearLastError();
-            }
-        }
-        else
-        {
-            Scierror(999, _("%s: Wrong type for input argument #%d: An integer value expected.\n"), fname, 1);
-            return 0;
-        }
-    }
-    else
-    {
-        /* clear fortran common error */
-        //C2F(errgst).err2 = 0;
-
-        /* clear last error buffer (C) */
-        //clearLastError();
-    }
-    LhsVar(1) = 0;
-    PutLhsVar();
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/core/sci_gateway/c/sci_error.c b/scilab/modules/core/sci_gateway/c/sci_error.c
deleted file mode 100644 (file)
index 7c6cd04..0000000
+++ /dev/null
@@ -1,451 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2006-2008 - INRIA - Allan CORNET
- * Copyright (C) 2010-2012 - 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
- *
- */
-#include <stdlib.h>
-#include "gw_core.h"
-#include "api_scilab.h"
-#include "localization.h"
-#include "Scierror.h"
-#include "do_error_number.h"
-#include "freeArrayOfString.h"
-#include "strsubst.h"
-#include "MALLOC.h"
-
-//#undef CheckRhs
-//#undef CheckLhs
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-#define defaultErrorCode 10000
-#define defaultErrorPosition 0
-#define defaultErrorMessage " "
-#define bufferErrorMessage C2F(cha1).buf
-/*--------------------------------------------------------------------------*/
-static int error_one_rhs(const char *fname);
-static int error_two_rhs(const char *fname);
-static int error_one_rhs_string(void *_pvCtx,
-                                int* _piAddressOne,
-                                const char *fname);
-static int error_one_rhs_number(void *_pvCtx,
-                                int* _piAddressOne,
-                                const char *fname);
-static int error_two_rhs_number_string(void *_pvCtx,
-                                       int* _piAddressString, int iVarString,
-                                       int* _piAddressNumber, int iVarNumber,
-                                       const char *fname);
-static int error_two_rhs_number_number(void *_pvCtx,
-                                       int* _piAddressOne,
-                                       int* _piAddressTwo,
-                                       const char *fname);
-static char *concatenateStrings(const char **pStrs, int nbElements);
-static void setErrorMessage(const char *fname,
-                            int iErrorCode,
-                            int iErrorPosition,
-                            const char **pMessages,
-                            int nbElements);
-
-/*--------------------------------------------------------------------------*/
-int C2F(sci_error)(char *fname, unsigned long fname_len)
-{
-    int in1 = 1, in2 = 2;
-
-    //C2F(checkrhs)(fname, &in1, &in2, 5);
-    CheckRhs(1, 2);
-    CheckLhs(1, 1);
-
-    if (Rhs == 1)
-    {
-        return error_one_rhs(fname);
-    }
-    else /* Rhs == 2 */
-    {
-        return error_two_rhs(fname);
-    }
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
-static int error_one_rhs(const char *fname)
-{
-    SciErr sciErr;
-    int *piAddressVarOne = NULL;
-    int iComplex = 0;
-
-    sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne);
-    if (sciErr.iErr)
-    {
-        printError(&sciErr, 0);
-        Scierror(999, _("%s: Can not read input argument #%d.\n"), fname, 1);
-    }
-    else
-    {
-        if (isDoubleType(pvApiCtx, piAddressVarOne))
-        {
-            iComplex = isVarComplex(pvApiCtx, piAddressVarOne);
-            if (iComplex)
-            {
-                Scierror(999, _("%s: Wrong type for input argument #%d.\n"), fname, 1);
-            }
-            else
-            {
-                return error_one_rhs_number(pvApiCtx, piAddressVarOne,  fname);
-            }
-        }
-        else if (isStringType(pvApiCtx, piAddressVarOne))
-        {
-            return error_one_rhs_string(pvApiCtx, piAddressVarOne,  fname);
-        }
-        else
-        {
-            Scierror(999, _("%s: Wrong type for input argument #%d.\n"), fname, 1);
-        }
-    }
-
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
-static int error_two_rhs(const char *fname)
-{
-    SciErr sciErr;
-    int *piAddressVarOne = NULL;
-    int *piAddressVarTwo = NULL;
-    int iComplexVarOne = 0;
-    int iComplexVarTwo = 0;
-
-    sciErr = getVarAddressFromPosition(pvApiCtx, 1, &piAddressVarOne);
-    if (sciErr.iErr)
-    {
-        printError(&sciErr, 0);
-        Scierror(999, _("%s: Can not read input argument #%d.\n"), fname, 1);
-        return 0;
-    }
-
-    sciErr = getVarAddressFromPosition(pvApiCtx, 2, &piAddressVarTwo);
-    if (sciErr.iErr)
-    {
-        printError(&sciErr, 0);
-        Scierror(999, _("%s: Can not read input argument #%d.\n"), fname, 2);
-        return 0;
-    }
-
-    if (isDoubleType(pvApiCtx, piAddressVarOne) && isStringType(pvApiCtx, piAddressVarTwo))
-    {
-        iComplexVarOne = isVarComplex(pvApiCtx, piAddressVarOne);
-        if (iComplexVarOne)
-        {
-            Scierror(999, _("%s: Wrong type for input argument #%d.\n"), fname, 1);
-        }
-        else
-        {
-            return error_two_rhs_number_string(pvApiCtx, piAddressVarTwo, 2, piAddressVarOne, 1, fname);
-        }
-    }
-    else if (isDoubleType(pvApiCtx, piAddressVarTwo) && isStringType(pvApiCtx, piAddressVarOne))
-    {
-        iComplexVarTwo = isVarComplex(pvApiCtx, piAddressVarTwo);
-        if (iComplexVarTwo)
-        {
-            Scierror(999, _("%s: Wrong type for input argument #%d.\n"), fname, 2);
-        }
-        else
-        {
-            return error_two_rhs_number_string(pvApiCtx, piAddressVarOne, 1, piAddressVarTwo, 2, fname);
-        }
-    }
-    else if (isDoubleType(pvApiCtx, piAddressVarTwo) && isDoubleType(pvApiCtx, piAddressVarOne))
-    {
-        iComplexVarOne = isVarComplex(pvApiCtx, piAddressVarOne);
-        iComplexVarTwo = isVarComplex(pvApiCtx, piAddressVarTwo);
-        if (iComplexVarOne)
-        {
-            Scierror(999, _("%s: Wrong type for input argument #%d.\n"), fname, 1);
-        }
-        else if (iComplexVarTwo)
-        {
-            Scierror(999, _("%s: Wrong type for input argument #%d.\n"), fname, 2);
-        }
-        else
-        {
-            return error_two_rhs_number_number(pvApiCtx, piAddressVarOne, piAddressVarTwo, fname);
-        }
-    }
-    else
-    {
-        Scierror(999, _("%s: Wrong type for input argument.\n"), fname);
-    }
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
-static int error_one_rhs_string(void *_pvCtx,
-                                int* _piAddressOne,
-                                const char *fname)
-{
-    if (isRowVector(_pvCtx, _piAddressOne) || isColumnVector(_pvCtx, _piAddressOne) || isScalar(_pvCtx, _piAddressOne))
-    {
-        int m = 0;
-        int n = 0;
-        char **pStrs = NULL;
-
-        if (getAllocatedMatrixOfString(_pvCtx, _piAddressOne, &m, &n, &pStrs) != 0)
-        {
-            Scierror(999, _("%s: No more memory.\n"), fname);
-            return 0;
-        }
-
-        setErrorMessage(fname, defaultErrorCode, defaultErrorPosition, (const char **)pStrs, m * n);
-
-        freeAllocatedMatrixOfString(m, n, pStrs);
-        pStrs = NULL;
-    }
-    else
-    {
-        Scierror(999, _("%s: Wrong size for input argument #%d.\n"), fname, 1);
-    }
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
-static int error_one_rhs_number(void *_pvCtx,
-                                int* _piAddressOne,
-                                const char *fname)
-{
-    double dValue = 0.;
-    int iErrorCode = 0;
-
-    if (!isScalar(_pvCtx, _piAddressOne))
-    {
-        Scierror(999, _("%s: Wrong size for input argument #%d: A scalar expected.\n"), fname, 1);
-        return 0;
-    }
-
-    if (getScalarDouble(_pvCtx, _piAddressOne, &dValue) != 0)
-    {
-        Scierror(999, _("%s: No more memory.\n"), fname);
-        return 0;
-    }
-
-    iErrorCode = (int)dValue;
-    if (dValue != (double)iErrorCode)
-    {
-        Scierror(999, _("%s: Wrong value for input argument #%d: An integer value expected.\n"), fname, 1);
-        return 0;
-    }
-
-    if (iErrorCode <= 0)
-    {
-        Scierror(999 , _("%s: Wrong value for input argument #%d: Value greater than 0 expected.\n"), fname, 1);
-        return 0;
-    }
-
-    setErrorMessage(fname, iErrorCode, defaultErrorPosition, NULL, 0);
-
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
-static int error_two_rhs_number_number(void *_pvCtx,
-                                       int* _piAddressOne,
-                                       int* _piAddressTwo,
-                                       const char *fname)
-{
-    double dValue1 = 0.;
-    double dValue2 = 0.;
-    int iErrorCode = 0;
-    int iErrorPosition = 0;
-
-    if (!isScalar(_pvCtx, _piAddressOne))
-    {
-        Scierror(999, _("%s: Wrong size for input argument #%d: A scalar expected.\n"), fname, 1);
-        return 0;
-    }
-
-    if (!isScalar(_pvCtx, _piAddressTwo))
-    {
-        Scierror(999, _("%s: Wrong size for input argument #%d: A scalar expected.\n"), fname, 2);
-        return 0;
-    }
-
-    if (getScalarDouble(_pvCtx, _piAddressOne, &dValue1) != 0)
-    {
-        Scierror(999, _("%s: No more memory.\n"), fname);
-        return 0;
-    }
-
-    iErrorCode = (int)dValue1;
-    if (dValue1 != (double)iErrorCode)
-    {
-        Scierror(999, _("%s: Wrong value for input argument #%d: An integer value expected.\n"), fname, 1);
-        return 0;
-    }
-
-    if (getScalarDouble(_pvCtx, _piAddressTwo, &dValue2) != 0)
-    {
-        Scierror(999, _("%s: No more memory.\n"), fname);
-        return 0;
-    }
-
-    iErrorPosition = (int)dValue2;
-    if (dValue2 != (double)iErrorPosition)
-    {
-        Scierror(999, _("%s: Wrong value for input argument #%d: An integer value expected.\n"), fname, 2);
-        return 0;
-    }
-
-    if (iErrorCode <= 0)
-    {
-        Scierror(999 , _("%s: Wrong value for input argument #%d: Value greater than 0 expected.\n"), fname, 1);
-        return 0;
-    }
-
-    if (iErrorPosition <= 0)
-    {
-        Scierror(999 , _("%s: Wrong value for input argument #%d: Value greater than 0 expected.\n"), fname, 2);
-        return 0;
-    }
-
-    setErrorMessage(fname, iErrorCode, iErrorPosition, NULL, 0);
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
-static int error_two_rhs_number_string(void *_pvCtx,
-                                       int* _piAddressString, int iVarString,
-                                       int* _piAddressNumber, int iVarNumber,
-                                       const char *fname)
-{
-    double dValue = 0.;
-    int iErrorCode = 0;
-
-    if (!isScalar(_pvCtx, _piAddressNumber))
-    {
-        Scierror(999, _("%s: Wrong size for input argument #%d: A scalar expected.\n"), fname, iVarNumber);
-        return 0;
-    }
-
-    if (getScalarDouble(_pvCtx, _piAddressNumber, &dValue) != 0)
-    {
-        Scierror(999, _("%s: No more memory.\n"), fname);
-        return 0;
-    }
-
-    iErrorCode = (int)dValue;
-    if (dValue != (double)iErrorCode)
-    {
-        Scierror(999, _("%s: Wrong value for input argument #%d: An integer value expected.\n"), fname, iVarNumber);
-        return 0;
-    }
-
-    if (iErrorCode <= 0)
-    {
-        Scierror(999 , _("%s: Wrong value for input argument #%d: Value greater than 0 expected.\n"), fname, iVarNumber);
-        return 0;
-    }
-
-    if (isRowVector(_pvCtx, _piAddressString)  || isColumnVector(_pvCtx, _piAddressString) || isScalar(_pvCtx, _piAddressString))
-    {
-        int m = 0;
-        int n = 0;
-        char **pStrs = NULL;
-
-        if (getAllocatedMatrixOfString(_pvCtx, _piAddressString, &m, &n, &pStrs) != 0)
-        {
-            Scierror(999, _("%s: No more memory.\n"), fname);
-            return 0;
-        }
-
-        setErrorMessage(fname, iErrorCode, defaultErrorPosition, (const char**)pStrs, m * n);
-
-        freeAllocatedMatrixOfString(m, n, pStrs);
-        pStrs = NULL;
-    }
-    else
-    {
-        Scierror(999, _("%s: Wrong size for input argument #%d.\n"), fname, iVarString);
-    }
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
-static void setErrorMessage(const char *fname,
-                            int iErrorCode,
-                            int iErrorPosition,
-                            const char **pMessages,
-                            int nbElements)
-{
-    /* empty Fortran buffer */
-    memset(bufferErrorMessage, 0, sizeof(char) * bsiz);
-
-    if (pMessages && nbElements > 0)
-    {
-        char *concatenatedString = concatenateStrings(pMessages, nbElements);
-        char *msg = strsub(concatenatedString, "%", "%%");
-        C2F(iop).err = defaultErrorPosition;
-        if (msg)
-        {
-            Scierror(iErrorCode, "%s\n", msg);
-            FREE(msg);
-            msg = NULL;
-        }
-        else
-        {
-            Scierror(999, _("%s: No more memory.\n"), fname);
-        }
-
-        if (concatenatedString)
-        {
-            FREE(concatenatedString);
-            concatenatedString = NULL;
-        }
-    }
-    else
-    {
-        strcpy(bufferErrorMessage, defaultErrorMessage);
-        C2F(iop).err = iErrorPosition;
-        SciError(iErrorCode);
-    }
-}
-/*--------------------------------------------------------------------------*/
-static char *concatenateStrings(const char **pStrs, int nbElements)
-{
-    char *concatenatedString = NULL;
-    size_t szLength = 0;
-    int i = 0;
-    if (pStrs == NULL)
-    {
-        return concatenatedString;
-    }
-
-    for (i = 0; i < nbElements; i++)
-    {
-        szLength = szLength + strlen(pStrs[i]) + strlen("\n") + 1;
-    }
-
-    concatenatedString = (char *)MALLOC(sizeof(char) * szLength);
-    if (concatenatedString == NULL)
-    {
-        return concatenatedString;
-    }
-
-    memset(concatenatedString, 0, sizeof(char) * szLength);
-    for (i = 0; i < nbElements; i++)
-    {
-        if (i == 0)
-        {
-            strcpy(concatenatedString, pStrs[i]);
-        }
-        else
-        {
-            strcat(concatenatedString, pStrs[i]);
-        }
-        if (i < nbElements - 1)
-        {
-            strcat(concatenatedString, "\n");
-        }
-    }
-    return concatenatedString;
-}
-/*--------------------------------------------------------------------------*/
-
diff --git a/scilab/modules/core/sci_gateway/c/sci_getmd5.c b/scilab/modules/core/sci_gateway/c/sci_getmd5.c
deleted file mode 100644 (file)
index 3f9faaa..0000000
+++ /dev/null
@@ -1,180 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2006/2007 - INRIA - Allan CORNET
- * Copyright (C) 2008 - INRIA - Pierre MARECHAL
- * Copyright (C) 2010 - 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
- *
- */
-#include <string.h>
-#include "gw_core.h"
-#include "stack-c.h"
-#include "MALLOC.h"
-#include "md5.h"
-#include "localization.h"
-#include "Scierror.h"
-#include "stricmp.h"
-#include "freeArrayOfString.h"
-#include "expandPathVariable.h"
-#include "PATH_MAX.h"
-#include "charEncoding.h"
-#include "isdir.h"
-#include "os_strdup.h"
-/*--------------------------------------------------------------------------*/
-int C2F(sci_getmd5) (char *fname, unsigned long fname_len)
-{
-    int m1 = 0, n1 = 0;
-
-    int mn = 0;
-    int i  = 0;
-
-    char **Input_Matrix  = NULL;
-    char **Output_Matrix = NULL;
-
-    Rhs = Max(Rhs, 0);
-    CheckRhs(1, 2) ;
-    CheckLhs(1, 1) ;
-
-    if (Rhs == 1)
-    {
-        if (GetType(1) == sci_strings)
-        {
-            GetRhsVar(1, MATRIX_OF_STRING_DATATYPE, &m1, &n1, &Input_Matrix);
-            mn = m1 * n1;
-
-            Output_Matrix = (char**)MALLOC(sizeof(char*) * (mn));
-            if (Output_Matrix)
-            {
-                for (i = 0; i < mn; i++)
-                {
-                    FILE *fp = NULL;
-                    char *MD5 = NULL;
-                    char *real_path = NULL;
-
-                    /* Replaces SCI, ~, HOME, TMPDIR by the real path */
-                    real_path = expandPathVariable(Input_Matrix[i]);
-
-                    /* bug 4469 */
-                    if (isdir(real_path))
-                    {
-                        Scierror(999, _("%s: The file %s does not exist.\n"), fname, Input_Matrix[i]);
-                        freeArrayOfString(Output_Matrix, i);
-                        freeArrayOfString(Input_Matrix, mn);
-                        FREE(real_path);
-                        real_path = NULL;
-                        return 0;
-                    }
-
-                    wcfopen(fp, real_path, "rb");
-
-                    if (real_path)
-                    {
-                        FREE(real_path);
-                        real_path = NULL;
-                    }
-
-                    if (fp)
-                    {
-                        MD5 = md5_file(fp);
-                        fclose(fp);
-                        Output_Matrix[i] = os_strdup(MD5);
-                        if (MD5)
-                        {
-                            FREE(MD5);
-                            MD5 = NULL;
-                        }
-                    }
-                    else
-                    {
-                        Scierror(999, _("%s: The file %s does not exist.\n"), fname, Input_Matrix[i]);
-                        freeArrayOfString(Output_Matrix, i);
-                        freeArrayOfString(Input_Matrix, mn);
-                        return 0;
-                    }
-                }
-
-                CreateVarFromPtr( Rhs + 1, MATRIX_OF_STRING_DATATYPE, &m1, &n1, Output_Matrix );
-                LhsVar(1) = Rhs + 1 ;
-                PutLhsVar();
-            }
-            else
-            {
-                Scierror(999, _("%s: Memory allocation error.\n"), fname);
-            }
-        }
-        else
-        {
-            Scierror(999, _("%s: Wrong type of input argument #%d: String expected.\n"), fname, 1);
-        }
-    }
-    else /* Rhs == 2 */
-    {
-        if ( (GetType(1) == sci_strings) && (GetType(2) == sci_strings) )
-        {
-            int m2 = 0, n2 = 0, l2 = 0;
-            char *Param2 = NULL;
-
-            GetRhsVar(1, MATRIX_OF_STRING_DATATYPE, &m1, &n1, &Input_Matrix);
-            mn = m1 * n1;
-
-            GetRhsVar(2, STRING_DATATYPE, &m2, &n2, &l2);
-            Param2 = cstk(l2);
-
-            if ( stricmp(Param2, "string") == 0 )
-            {
-                Output_Matrix = (char**)MALLOC(sizeof(char*) * (mn));
-
-                if (Output_Matrix)
-                {
-                    for (i = 0; i < mn; i++)
-                    {
-                        char *MD5 = NULL;
-
-                        MD5 = md5_str(Input_Matrix[i]);
-                        Output_Matrix[i] = os_strdup(MD5);
-                        if (MD5)
-                        {
-                            FREE(MD5);
-                            MD5 = NULL;
-                        }
-
-                        if (Output_Matrix[i] == NULL)
-                        {
-                            freeArrayOfString(Input_Matrix, m1 * n1);
-                            freeArrayOfString(Output_Matrix, i);
-                            Scierror(999, ("%s: No more memory.\n"), fname);
-                            return 0;
-                        }
-                    }
-
-                    CreateVarFromPtr(Rhs + 1, MATRIX_OF_STRING_DATATYPE, &m1, &n1, Output_Matrix );
-                    LhsVar(1) = Rhs + 1 ;
-                    PutLhsVar();
-                }
-                else
-                {
-                    Scierror(999, _("%s: Memory allocation error.\n"), fname);
-                }
-            }
-            else
-            {
-                Scierror(999, _("%s: Wrong value for input argument #%d: \"%s\" expected.\n"), fname, 2, "string");
-            }
-        }
-        else
-        {
-            Scierror(999, _("%s: Wrong type for input arguments #%d or #%d: Strings expected.\n"), fname, 1, 2);
-        }
-    }
-
-    freeArrayOfString(Input_Matrix, mn);
-    freeArrayOfString(Output_Matrix, mn);
-
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/core/sci_gateway/c/sci_havewindow.c b/scilab/modules/core/sci_gateway/c/sci_havewindow.c
deleted file mode 100644 (file)
index 9479b44..0000000
+++ /dev/null
@@ -1,43 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2006 - INRIA - 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
- *
- */
-#include "gw_core.h"
-#include "stack-c.h"
-#include "MALLOC.h"
-#include "configvariable_interface.h"
-/*--------------------------------------------------------------------------*/
-int C2F(sci_havewindow)(char *fname, unsigned long fname_len)
-{
-    static int n1, m1;
-    int *Status = NULL;
-
-    CheckRhs(0, 1);
-    CheckLhs(1, 1);
-
-    Status = (int*)MALLOC(sizeof(int));
-    *Status = (int) ( getScilabMode() == SCILAB_STD );
-
-    m1 = 1;
-    n1 = 1;
-    CreateVarFromPtr(Rhs + 1, MATRIX_OF_BOOLEAN_DATATYPE, &n1, &n1, &Status);
-    LhsVar(1) = Rhs + 1;
-
-    if (Status)
-    {
-        FREE(Status);
-        Status = NULL;
-    }
-
-    PutLhsVar();
-
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/core/sci_gateway/c/sci_warning.c b/scilab/modules/core/sci_gateway/c/sci_warning.c
deleted file mode 100644 (file)
index 5f857b2..0000000
+++ /dev/null
@@ -1,163 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2006 - INRIA - Allan CORNET
- * Copyright (C) 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
- *
- */
-#include <string.h>
-#include "gw_core.h"
-#include "stack-c.h"
-#include "sciprint.h"
-#include "Scierror.h"
-#include "sci_warning.h"
-#include "MALLOC.h"
-#include "Scierror.h"
-#include "localization.h"
-#include "freeArrayOfString.h"
-#include "os_strdup.h"
-/*--------------------------------------------------------------------------*/
-int C2F(sci_warning)(char *fname, unsigned long fname_len)
-{
-    static int n1 = 0, m1 = 0;
-
-    CheckRhs(1, 1);
-    CheckLhs(1, 1);
-
-    if ( GetType(1) == sci_strings )
-    {
-        char **Input_Strings = NULL;
-
-        GetRhsVar(1, MATRIX_OF_STRING_DATATYPE, &m1, &n1, &Input_Strings);
-
-        if ( (m1 * n1) == 1 )
-        {
-            if ( (strcmp(Input_Strings[0], "off") == 0) || (strcmp(Input_Strings[0], "on") == 0) )
-            {
-                if (strcmp(Input_Strings[0], "off") == 0)
-                {
-                    setWarningMode(FALSE);
-                }
-                else  /* on */
-                {
-                    setWarningMode(TRUE);
-                }
-                freeArrayOfString(Input_Strings, 1);
-            }
-            else
-            {
-                if (strcmp(Input_Strings[0], "query") == 0)
-                {
-                    char *Output = NULL;
-
-                    if (getWarningMode())
-                    {
-                        Output = os_strdup("on");
-                    }
-                    else
-                    {
-                        Output = os_strdup("off");
-                    }
-
-                    n1 = 1;
-                    CreateVarFromPtr(Rhs + 1, STRING_DATATYPE, (m1 = (int)strlen(Output), &m1), &n1, &Output);
-                    LhsVar(1) = Rhs + 1;
-
-                    if (Output)
-                    {
-                        FREE(Output);
-                        Output = NULL;
-                    }
-                    freeArrayOfString(Input_Strings, n1);
-
-                    PutLhsVar();
-                    return 0;
-                }
-                else if ( getWarningMode() )
-                {
-                    if (strlen(Input_Strings[0]) > 0)
-                    {
-                        if (Input_Strings[0][strlen(Input_Strings[0]) - 1] == '\n')
-                        {
-                            sciprint(_("WARNING: %s"), Input_Strings[0]);
-                        }
-                        else
-                        {
-                            sciprint(_("WARNING: %s\n"), Input_Strings[0]);
-                        }
-                    }
-                    else
-                    {
-                        sciprint(_("WARNING: %s\n"), "");
-                    }
-                    freeArrayOfString(Input_Strings, n1);
-                }
-            }
-        }
-        else
-        {
-            int i = 0;
-            if ( getWarningMode() && m1 * n1 > 1)
-            {
-                int len = strlen(_("WARNING: %s\n")) - strlen("%s\n");
-                char * whites = (char *)MALLOC(sizeof(char) * (len + 1));
-
-                if (strlen(Input_Strings[0]) > 0)
-                {
-                    if (Input_Strings[i][strlen(Input_Strings[0]) - 1] == '\n')
-                    {
-                        sciprint(_("WARNING: %s"), Input_Strings[0]);
-                    }
-                    else
-                    {
-                        sciprint(_("WARNING: %s\n"), Input_Strings[0]);
-                    }
-                }
-                else
-                {
-                    sciprint(_("WARNING: %s\n"), "");
-                }
-
-                memset(whites, ' ', len);
-                whites[len] = '\0';
-
-                for (i = 1; i < m1 * n1; i++)
-                {
-                    if (strlen(Input_Strings[i]) > 0)
-                    {
-                        if (Input_Strings[i][strlen(Input_Strings[i]) - 1] == '\n')
-                        {
-                            sciprint(_("%s%s"), whites, Input_Strings[i]);
-                        }
-                        else
-                        {
-                            sciprint(_("%s%s\n"), whites, Input_Strings[i]);
-                        }
-                    }
-                    else
-                    {
-                        sciprint(_("%s%s\n"), whites, "");
-                    }
-                }
-                FREE(whites);
-                sciprint("\n");
-            }
-            freeArrayOfString(Input_Strings, m1 * n1);
-        }
-    }
-    else
-    {
-        Scierror(999, _("%s: Wrong type for input argument #%d: String expected.\n"), fname, 1);
-        return 0;
-    }
-    LhsVar(1) = 0;
-    PutLhsVar();
-
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/core/sci_gateway/c/sci_what.c b/scilab/modules/core/sci_gateway/c/sci_what.c
deleted file mode 100644 (file)
index 9de6f51..0000000
+++ /dev/null
@@ -1,189 +0,0 @@
-/*
-* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-* Copyright (C) 2006 - INRIA - 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
-*
-*/
-#include <string.h>
-#include <stdlib.h>
-#include <stdio.h> /* sprintf */
-#include "gw_core.h"
-#include "stack-c.h"
-#include "MALLOC.h"
-#include "sciprint.h"
-#include "Scierror.h"
-#include "commandwords.h"
-#include "localization.h"
-#include "os_strdup.h"
-#include "freeArrayOfString.h"
-#include "getfunctionslist.h"
-/*--------------------------------------------------------------------------*/
-static char **LocalFunctionsTab = NULL;
-static int SizeLocalFunctionsTab = 0;
-/*--------------------------------------------------------------------------*/
-static int CreateLocalFunctionsTab(void);
-static int IsACommand(char *primitive);
-static void DispInternalFunctions(void);
-static void DispCommands(void);
-static int cmpfunctionnames( const void *a , const void *b);
-/*--------------------------------------------------------------------------*/
-int C2F(sci_what)(char *fname, unsigned long fname_len)
-{
-    Rhs = Max(0, Rhs);
-    CheckRhs(0, 0);
-    CheckLhs(1, 2);
-
-    CreateLocalFunctionsTab();
-    qsort( LocalFunctionsTab , SizeLocalFunctionsTab ,  sizeof (char *)  , cmpfunctionnames);
-
-    if (Lhs == 1)
-    {
-        DispInternalFunctions();
-        DispCommands();
-        LhsVar(1) = 0;
-    }
-    else /* Lhs == 2 */
-    {
-        int sizecommandwords = 0;
-        char **commandwords = getcommandkeywords(&sizecommandwords);
-        int ncol = 1;
-        int nrowFunctions = SizeLocalFunctionsTab;
-        int nrowCommands = sizecommandwords;
-
-        CreateVarFromPtr(Rhs + 1, MATRIX_OF_STRING_DATATYPE, &nrowFunctions, &ncol, LocalFunctionsTab);
-        LhsVar(1) = Rhs + 1;
-
-        CreateVarFromPtr(Rhs + 2, MATRIX_OF_STRING_DATATYPE, &nrowCommands, &ncol, commandwords);
-        LhsVar(2) = Rhs + 2;
-
-        freeArrayOfString(LocalFunctionsTab, nrowFunctions);
-        freeArrayOfString(commandwords, nrowCommands);
-
-    }
-
-    PutLhsVar();
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
-static void DispInternalFunctions(void)
-{
-    int i = 0;
-
-    sciprint("\n");
-    sciprint(_("Internal Functions:\n"));
-    sciprint("\n");
-    for (i = 0; i < SizeLocalFunctionsTab; i++)
-    {
-        sciprint("%+24s ", LocalFunctionsTab[i]);
-        if ((i + 1) % 4 == 0)
-        {
-            sciprint("\n");
-        }
-    }
-    sciprint("\n");
-}
-/*--------------------------------------------------------------------------*/
-static void DispCommands(void)
-{
-    int i = 0;
-    int sizecommandwords = 0;
-    char **commandwords = getcommandkeywords(&sizecommandwords);
-
-    sciprint("\n");
-    sciprint(_("Commands:\n"));
-    sciprint("\n");
-    for (i = 0; i < sizecommandwords; i++)
-    {
-        sciprint("%+24s ", commandwords[i]);
-        if ((i + 1) % 4 == 0)
-        {
-            sciprint("\n");
-        }
-    }
-    sciprint("\n");
-
-    freeArrayOfString(commandwords, sizecommandwords);
-}
-/*--------------------------------------------------------------------------*/
-static int IsACommand(char *primitive)
-{
-    int sizecommandwords = 0;
-    char **commandwords = getcommandkeywords(&sizecommandwords);
-    int bOK = FALSE;
-    int i = 0;
-
-    for (i = 0; i < sizecommandwords ; i++)
-    {
-        if (strcmp(commandwords[i], primitive) == 0)
-        {
-            freeArrayOfString(commandwords, sizecommandwords);
-            return TRUE;
-        }
-    }
-
-    freeArrayOfString(commandwords, sizecommandwords);
-
-    return bOK;
-}
-/*--------------------------------------------------------------------------*/
-static int CreateLocalFunctionsTab(void)
-{
-    char **LocalFunctionsTabTmp = NULL;
-    int i = 0;
-    int j = 0;
-    int SizeTab = 0;
-    int MaxSizeWithoutCommands = 0;
-
-    LocalFunctionsTabTmp = GetFunctionsList(&SizeTab);
-
-    if (LocalFunctionsTabTmp)
-    {
-        for (i = 0; i < SizeTab; i++)
-        {
-            if ( !IsACommand(LocalFunctionsTabTmp[i]) )
-            {
-                MaxSizeWithoutCommands++;
-            }
-        }
-
-        LocalFunctionsTab = (char **)MALLOC(sizeof(char**) * MaxSizeWithoutCommands);
-
-        if (LocalFunctionsTab == NULL)
-        {
-            SizeLocalFunctionsTab = 0;
-            return FALSE;
-        }
-
-        j = 0;
-        for (i = 0; i < SizeTab; i++)
-        {
-            if ( !IsACommand(LocalFunctionsTabTmp[i]) )
-            {
-                LocalFunctionsTab[j] = os_strdup(LocalFunctionsTabTmp[i]);
-                j++;
-            }
-        }
-
-        freeArrayOfString(LocalFunctionsTabTmp, SizeTab);
-    }
-    else
-    {
-        SizeLocalFunctionsTab = 0;
-        return FALSE;
-    }
-
-    SizeLocalFunctionsTab = MaxSizeWithoutCommands;
-
-    return TRUE;
-}
-/*--------------------------------------------------------------------------*/
-static int cmpfunctionnames( const void *a , const void *b)
-{
-    return strcmp(*(const char **)a, *(const char **)b );
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/core/sci_gateway/c/sci_who.c b/scilab/modules/core/sci_gateway/c/sci_who.c
deleted file mode 100644 (file)
index 8aeca19..0000000
+++ /dev/null
@@ -1,419 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2007 - INRIA - 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
- *
- */
-#include <string.h>
-#include "gw_core.h"
-#include "stack-c.h"
-#include "MALLOC.h"
-#include "stackinfo.h"
-#include "sciprint.h"
-#include "localization.h"
-#include "Scierror.h"
-#include "os_strdup.h"
-#include "freeArrayOfString.h"
-/*--------------------------------------------------------------------------*/
-struct VariableStruct
-{
-    char *NameVariable;
-    int SizeVariable;
-};
-/*--------------------------------------------------------------------------*/
-static BOOL SetVariablesStructs(struct VariableStruct **GVstruct, int *GlenStructArray, struct VariableStruct **LVstruct, int *LlenStructArray);
-static void DispVariables(struct VariableStruct* Vstruct, char *Message, int lenStructArray, int memused, int memtotal, int varused, int vartotal);
-static void SortVarsStructByStrings(struct VariableStruct *Vstruct, int SizeStruct);
-static BOOL FreeVariableStructArray(struct VariableStruct* Vstruct, int lenStructArray);
-/*--------------------------------------------------------------------------*/
-static int NoRhs(struct VariableStruct* GVstruct, int GlenStructArray, struct VariableStruct* LVstruct, int LlenStructArray, BOOL Sorted);
-static int OneLhs(struct VariableStruct* Vstruct, int lenStructArray, BOOL Sorted);
-static int TwoLhs(struct VariableStruct* Vstruct, int lenStructArray, BOOL Sorted);
-/*--------------------------------------------------------------------------*/
-int C2F(sci_who)(char *fname, unsigned long fname_len)
-{
-    static int l1, n1, m1;
-
-    struct VariableStruct *GlobalVariables = NULL;
-    struct VariableStruct *LocalVariables = NULL;
-
-    int NbrVarsGlobal = 0;
-    int NbrVarsLocal = 0;
-
-    Rhs = Max(0, Rhs);
-    CheckRhs(0, 2);
-    CheckLhs(0, 2);
-
-    SetVariablesStructs(&GlobalVariables, &NbrVarsGlobal, &LocalVariables, &NbrVarsLocal);
-
-    if (Rhs == 0) /* who() */
-    {
-        NoRhs(GlobalVariables, NbrVarsGlobal, LocalVariables, NbrVarsLocal, FALSE);
-    }
-    else if (Rhs == 1) /* who('get') or who('global') or who('sorted')*/
-    {
-        if (GetType(1) == sci_strings)
-        {
-            char *Param1String = NULL;
-            GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1);
-            Param1String = cstk(l1);
-
-            if ( (strcmp(Param1String, "get") == 0) ||
-                    (strcmp(Param1String, "local") == 0) ||
-                    (strcmp(Param1String, "global") == 0) ||
-                    (strcmp(Param1String, "sorted") == 0) )
-            {
-                if (strcmp(Param1String, "sorted") == 0)
-                {
-                    NoRhs(GlobalVariables, NbrVarsGlobal, LocalVariables, NbrVarsLocal, TRUE);
-                }
-                else if (strcmp(Param1String, "global") == 0)
-                {
-                    if (Lhs == 1)
-                    {
-                        OneLhs(GlobalVariables, NbrVarsGlobal, FALSE);
-                    }
-                    else /* Lhs == 2 */
-                    {
-                        TwoLhs(GlobalVariables, NbrVarsGlobal, FALSE);
-                    }
-                }
-                else /* get or local */
-                {
-                    if (Lhs == 1)
-                    {
-                        OneLhs(LocalVariables, NbrVarsLocal, FALSE);
-                    }
-                    else /* Lhs == 2 */
-                    {
-                        TwoLhs(LocalVariables, NbrVarsLocal, FALSE);
-                    }
-                }
-            }
-            else
-            {
-                FreeVariableStructArray(GlobalVariables, NbrVarsGlobal);
-                FreeVariableStructArray(LocalVariables, NbrVarsLocal);
-
-                Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s' expected.\n"), fname, 1, "local" , "get" , "global", "sorted");
-                return 0;
-            }
-        }
-        else
-        {
-            FreeVariableStructArray(GlobalVariables, NbrVarsGlobal);
-            FreeVariableStructArray(LocalVariables, NbrVarsLocal);
-
-            Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s', '%s' or '%s'.\n"), fname, 1, "local", "get", "global", "sorted");
-            return 0;
-        }
-    }
-    else if (Rhs == 2) /* who('get','sorted') or who('global','sorted') */
-    {
-        if ( (GetType(1) == sci_strings) && (GetType(2) == sci_strings) )
-        {
-            char *Param1String = NULL;
-            char *Param2String = NULL;
-
-            GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1);
-            Param1String = cstk(l1);
-
-            GetRhsVar(2, STRING_DATATYPE, &m1, &n1, &l1);
-            Param2String = cstk(l1);
-
-            if (strcmp(Param2String, "sorted"))
-            {
-                FreeVariableStructArray(GlobalVariables, NbrVarsGlobal);
-                FreeVariableStructArray(LocalVariables, NbrVarsLocal);
-
-                Scierror(999, _("%s: Wrong value for input argument #%d: '%s' expected.\n"), fname, 2, "sorted");
-                return 0;
-            }
-            else
-            {
-                if ( (strcmp(Param1String, "get") == 0) ||
-                        (strcmp(Param1String, "local") == 0) ||
-                        (strcmp(Param1String, "global") == 0) )
-                {
-                    if (strcmp(Param1String, "global") == 0)
-                    {
-                        if (Lhs == 1)
-                        {
-                            OneLhs(GlobalVariables, NbrVarsGlobal, TRUE);
-                        }
-                        else /* Lhs == 2 */
-                        {
-                            TwoLhs(GlobalVariables, NbrVarsGlobal, TRUE);
-                        }
-                    }
-                    else /* get or local */
-                    {
-                        if (Lhs == 1)
-                        {
-                            OneLhs(LocalVariables, NbrVarsLocal, TRUE);
-                        }
-                        else /* Lhs == 2 */
-                        {
-                            TwoLhs(LocalVariables, NbrVarsLocal, TRUE);
-                        }
-                    }
-                }
-                else
-                {
-                    FreeVariableStructArray(GlobalVariables, NbrVarsGlobal);
-                    FreeVariableStructArray(LocalVariables, NbrVarsLocal);
-
-                    Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s' or '%s'.\n"), fname, 1, "local", "get", "global");
-                    return 0;
-                }
-            }
-        }
-        else
-        {
-            FreeVariableStructArray(GlobalVariables, NbrVarsGlobal);
-            FreeVariableStructArray(LocalVariables, NbrVarsLocal);
-
-            Scierror(999, _("%s: Wrong value for input argument #%d: '%s', '%s', '%s' expected. Input argument #%d must be '%s'.\n"), fname, 1, "local", "get", "global", "sorted");
-            return 0;
-        }
-    }
-
-    FreeVariableStructArray(GlobalVariables, NbrVarsGlobal);
-    FreeVariableStructArray(LocalVariables, NbrVarsLocal);
-
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
-static void SortVarsStructByStrings(struct VariableStruct *Vstruct, int SizeStruct)
-{
-    int fin, i;
-    for (fin = SizeStruct - 1; fin > 0; fin--)
-    {
-        int Sorted = FALSE;
-        for (i = 0; i < fin; i++)
-        {
-            if (strcmp(Vstruct[i].NameVariable, Vstruct[i + 1].NameVariable) > 0)
-            {
-                struct VariableStruct StructTmp;
-
-                StructTmp.NameVariable = Vstruct[i].NameVariable;
-                StructTmp.SizeVariable = Vstruct[i].SizeVariable;
-
-                Vstruct[i].NameVariable = Vstruct[i + 1].NameVariable;
-                Vstruct[i].SizeVariable = Vstruct[i + 1].SizeVariable;
-
-                Vstruct[i + 1].NameVariable = StructTmp.NameVariable;
-                Vstruct[i + 1].SizeVariable = StructTmp.SizeVariable;
-
-                Sorted = TRUE;
-            }
-        }
-        if (!Sorted)
-        {
-            break;
-        }
-    }
-}
-/*--------------------------------------------------------------------------*/
-static void DispVariables(struct VariableStruct* Vstruct, char *Message, int lenStructArray, int memused, int memtotal, int varused, int vartotal)
-{
-    int i = 0;
-
-    sciprint("\n%s\n\n", Message);
-    for (i = 1; i < lenStructArray + 1; i++)
-    {
-        sciprint("%+24s ", Vstruct[i - 1].NameVariable);
-        if (i % 4 == 0)
-        {
-            sciprint("\n");
-        }
-    }
-
-    sciprint("\n\n");
-    sciprint(_(" using %10d elements out of  %10d.\n"), memused, memtotal);
-    sciprint(_(" and   %10d variables out of %10d.\n"), varused, vartotal);
-
-}
-/*--------------------------------------------------------------------------*/
-static BOOL FreeVariableStructArray(struct VariableStruct* Vstruct, int lenStructArray)
-{
-    BOOL bOK = FALSE;
-    if (Vstruct)
-    {
-        int i = 0;
-        for (i = 0; i < lenStructArray; i++)
-        {
-            if (Vstruct[i].NameVariable)
-            {
-                FREE(Vstruct[i].NameVariable);
-                Vstruct[i].NameVariable = NULL;
-            }
-            Vstruct[i].SizeVariable = -1;
-        }
-        FREE(Vstruct);
-        Vstruct = NULL;
-        bOK = TRUE;
-    }
-    return bOK;
-}
-/*--------------------------------------------------------------------------*/
-static BOOL SetVariablesStructs(struct VariableStruct **GVstruct, int *GlenStructArray, struct VariableStruct **LVstruct, int *LlenStructArray)
-{
-    BOOL bOK = FALSE;
-    int j = 0;
-
-    int Gused = 0;
-    int Gtotal = 0;
-    int Lused = 0;
-    int Ltotal = 0;
-
-    C2F(getvariablesinfo)(&Ltotal, &Lused);
-    C2F(getgvariablesinfo)(&Gtotal, &Gused);
-
-    *LlenStructArray = Lused;
-    *GlenStructArray = Gused;
-
-    if (*GlenStructArray)
-    {
-        *GVstruct = (struct VariableStruct *)MALLOC(sizeof(struct VariableStruct) * (*GlenStructArray + 1));
-    }
-    if (*LlenStructArray)
-    {
-        *LVstruct = (struct VariableStruct *)MALLOC(sizeof(struct VariableStruct) * (*LlenStructArray + 1));
-    }
-
-    if ( (GVstruct) && (LVstruct) )
-    {
-        for (j = 1; j < *LlenStructArray + 1; ++j)
-        {
-            (*LVstruct)[j - 1].NameVariable = getLocalNamefromId(j);
-            (*LVstruct)[j - 1].SizeVariable = getLocalSizefromId(j - 1);
-        }
-
-        for (j = 0; j < *GlenStructArray; j++)
-        {
-            (*GVstruct)[j].NameVariable = getGlobalNamefromId(j);
-            (*GVstruct)[j].SizeVariable = getGlobalSizefromId(j);
-        }
-        bOK = TRUE;
-    }
-    return bOK;
-}
-/*--------------------------------------------------------------------------*/
-static int NoRhs(struct VariableStruct* GVstruct, int GlenStructArray, struct VariableStruct* LVstruct, int LlenStructArray, BOOL Sorted)
-{
-    int memtotal = 0;
-    int memused = 0;
-    int vartotal = 0;
-    int varused = 0;
-
-    int gmemtotal = 0;
-    int gmemused = 0;
-    int gvartotal = 0;
-    int gvarused = 0;
-
-    C2F(getstackinfo)(&memtotal, &memused);
-    C2F(getvariablesinfo)(&vartotal, &varused);
-
-    if (Sorted)
-    {
-        SortVarsStructByStrings(LVstruct, LlenStructArray);
-    }
-
-    DispVariables(LVstruct, _("Your variables are:"), LlenStructArray, memused, memtotal, varused, vartotal);
-
-    C2F(getgstackinfo)(&gmemtotal, &gmemused);
-    C2F(getgvariablesinfo)(&gvartotal, &gvarused);
-
-    if (Sorted)
-    {
-        SortVarsStructByStrings(GVstruct, GlenStructArray);
-    }
-
-    DispVariables(GVstruct, _("Your global variables are:"), GlenStructArray, gmemused, gmemtotal, gvarused, gvartotal);
-
-    LhsVar(1) = 0;
-    PutLhsVar();
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
-static int TwoLhs(struct VariableStruct* Vstruct, int lenStructArray, BOOL Sorted)
-{
-    char **Tab = NULL;
-    int *Size = NULL;
-    int i = 0;
-    int m = 0;
-    int n = 0;
-
-    if (Sorted)
-    {
-        SortVarsStructByStrings(Vstruct, lenStructArray);
-    }
-
-    Tab = (char **)MALLOC(sizeof(char*) * lenStructArray);
-    Size = (int *)MALLOC(sizeof(int) * lenStructArray);
-
-    for (i = 0; i < lenStructArray; i++)
-    {
-        Tab[i] = os_strdup(Vstruct[i].NameVariable);
-        Size[i] = Vstruct[i].SizeVariable;
-    }
-
-    m = lenStructArray;
-    n = 1;
-
-    CreateVarFromPtr(Rhs + 1, MATRIX_OF_STRING_DATATYPE, &m, &n, Tab);
-    LhsVar(1) = Rhs + 1;
-
-    CreateVarFromPtr(Rhs + 2, MATRIX_OF_INTEGER_DATATYPE, &m, &n, &Size);
-    LhsVar(2) = Rhs + 2;
-
-    freeArrayOfString(Tab, lenStructArray);
-    if (Size)
-    {
-        FREE(Size);
-        Size = NULL;
-    }
-
-    PutLhsVar();
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
-static int OneLhs(struct VariableStruct* Vstruct, int lenStructArray, BOOL Sorted)
-{
-    int i = 0;
-    int m = 0;
-    int n = 0;
-
-    char **LocalTab = NULL;
-
-    if (Sorted)
-    {
-        SortVarsStructByStrings(Vstruct, lenStructArray);
-    }
-
-    LocalTab = (char **)MALLOC(sizeof(char*) * (lenStructArray));
-
-    for (i = 0; i < lenStructArray; i++)
-    {
-        if (strlen(Vstruct[i].NameVariable) > 0)
-        {
-            LocalTab[i] = os_strdup(Vstruct[i].NameVariable);
-        }
-    }
-
-    m = lenStructArray;
-    n = 1;
-    CreateVarFromPtr(Rhs + 1, MATRIX_OF_STRING_DATATYPE, &m, &n, LocalTab);
-    LhsVar(1) = Rhs + 1;
-
-    freeArrayOfString(LocalTab, lenStructArray);
-    PutLhsVar();
-    return 0;
-}
-/*--------------------------------------------------------------------------*/
index 169015b..599f6f5 100644 (file)
@@ -17,8 +17,6 @@
 /*--------------------------------------------------------------------------*/
 #include <windows.h>
 #include "machine.h"
-#include "stack-def.h"
-#include "funcprot.h"
 /*-----------------------------------------------------------------------------------*/
 #pragma comment(lib, "../../../../bin/libxml2.lib")
 #pragma comment(lib, "../../../../bin/libintl.lib")
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(withf2c)(int *bOK);
 /*-----------------------------------------------------------------------------------*/
-/* Force some definitions "globals" (commons fortran) */
-
-/* used by linear_algebra */
-
-SCIGSCH_struct C2F(scigsch);
-SCISCH_struct C2F(scisch);
-SCIZGSCH_union C2F(scizgsch);
-
-IERODE_struct C2F(ierode);
-
-/* manages CTRL-C event */
-BASBRK_struct C2F(basbrk);
-
-/**
-* simpmd : rational fraction simplification mode
-* used in polynomials and inisci.f (core)
-*/
-CSIMP_struct C2F(csimp);
-
-/* Previously on Windows commons were defined at first use
-*  it was a hazardous way ...
-*  We force definitions in core
-*/
-
-ADRE_struct C2F(adre);
-COM_struct C2F(com);
-ERRGST_struct C2F(errgst);
-IOP_struct C2F(iop);
-MTLBC_struct C2F(mtlbc);
-DBG_struct C2F(dbg);
-MPROT_struct C2F(mprot);
-
-struct
-{
-    int byptr[40], nbyptr;
-} C2F(ippty);
-
-struct
-{
-    int bkflag;
-    char bckbuf[4096];
-} C2F(keepme);
-
-struct
-{
-    int lwk;
-} C2F(ptkeep);
-/*-----------------------------------------------------------------------------------*/
 int WINAPI DllMain (HINSTANCE hInstance , DWORD reason, PVOID pvReserved)
 {
     switch (reason)
index 26f4c22..34e6d32 100644 (file)
@@ -14,7 +14,7 @@
 
 #include "getScilabPreference.h"
 #include "api_scilab.h"
-#include "setieee.h"
+#include "configvariable_interface.h"
 #include "setlines.h"
 #include "setformat.h"
 #include "os_string.h"
diff --git a/scilab/modules/core/src/c/callFunctionFromGateway.c b/scilab/modules/core/src/c/callFunctionFromGateway.c
deleted file mode 100644 (file)
index 22b5941..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2007 - INRIA - 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
- *
- */
-#include <string.h>
-#ifdef _MSC_VER
-#include <Windows.h>
-#include "ExceptionMessage.h"
-#endif
-#include "callFunctionFromGateway.h"
-#include "stack-c.h"
-#include "Scierror.h"
-#include "localization.h"
-/*--------------------------------------------------------------------------*/
-void callFunctionFromGateway(gw_generic_table *Tab, int sizeTab)
-{
-    if ( (Fin > sizeTab) || (Fin < 1) )
-    {
-        Scierror(999, _("Error: Not a valid primitive ID %d.\n"), Fin);
-    }
-    else
-    {
-#ifdef _MSC_VER
-#ifndef _DEBUG
-        _try
-        {
-            if (*(Tab[Fin - 1].f) != NULL)
-            {
-                (*(Tab[Fin - 1].f)) ((char*)Tab[Fin - 1].name, (unsigned long)strlen(Tab[Fin - 1].name));
-            }
-        }
-        _except (EXCEPTION_EXECUTE_HANDLER)
-        {
-            ExceptionMessage(GetExceptionCode(), (char*)Tab[Fin - 1].name);
-        }
-#else
-        if (*(Tab[Fin - 1].f) != NULL)
-        {
-            (*(Tab[Fin - 1].f)) ((char*)Tab[Fin - 1].name, (unsigned long)strlen(Tab[Fin - 1].name));
-        }
-#endif
-#else
-        if (*(Tab[Fin - 1].f) != NULL)
-        {
-            (*(Tab[Fin - 1].f)) (Tab[Fin - 1].name, (unsigned long)strlen(Tab[Fin - 1].name));
-        }
-#endif
-    }
-}
-/*--------------------------------------------------------------------------*/
index 4aca97b..d7bc617 100644 (file)
@@ -248,12 +248,13 @@ cd ..
     <ClCompile Include="..\cpp\getvariablesname.cpp" />
     <ClCompile Include="..\cpp\InitScilab.cpp" />
     <ClCompile Include="..\cpp\runner.cpp" />
+    <ClCompile Include="..\cpp\setformat.cpp" />
+    <ClCompile Include="..\cpp\setlines.cpp" />
     <ClCompile Include="..\cpp\storeCommand.cpp" />
     <ClCompile Include="..\cpp\tasks.cpp" />
     <ClCompile Include="..\cpp\with_module.cpp" />
     <ClCompile Include="..\cpp\backtrace_print.cpp" />
     <ClCompile Include="backtrace.c" />
-    <ClCompile Include="callFunctionFromGateway.c" />
     <ClCompile Include="commandwords.c" />
     <ClCompile Include="DllmainCore.c" />
     <ClCompile Include="dynamic_gateways.c" />
@@ -280,12 +281,8 @@ cd ..
     <ClCompile Include="islittleendian.c" />
     <ClCompile Include="loadversion.c" />
     <ClCompile Include="md5.c" />
-    <ClCompile Include="..\cpp\namstr.cpp" />
     <ClCompile Include="returnanan.c" />
     <ClCompile Include="saveCWDInPreferences.c" />
-    <ClCompile Include="setformat.c" />
-    <ClCompile Include="setieee.c" />
-    <ClCompile Include="setlines.c" />
     <ClCompile Include="setPrecisionFPU.c" />
     <ClCompile Include="texmacs.c" />
     <ClCompile Include="transposeMatrix.c" />
@@ -312,7 +309,6 @@ cd ..
     <ClInclude Include="..\..\includes\backtrace_print.h" />
     <ClInclude Include="..\..\includes\banner.hxx" />
     <ClInclude Include="..\..\includes\BOOL.h" />
-    <ClInclude Include="..\..\includes\callFunctionFromGateway.h" />
     <ClInclude Include="..\..\includes\commandwords.h" />
     <ClInclude Include="..\..\includes\core_gw.hxx" />
     <ClInclude Include="..\..\includes\core_math.h" />
@@ -358,17 +354,10 @@ cd ..
     <ClInclude Include="..\..\includes\sci_tools.h" />
     <ClInclude Include="..\..\includes\sci_types.h" />
     <ClInclude Include="..\..\includes\setformat.h" />
-    <ClInclude Include="..\..\includes\setieee.h" />
     <ClInclude Include="..\..\includes\setlines.h" />
     <ClInclude Include="..\..\includes\setPrecisionFPU.h" />
     <ClInclude Include="..\..\includes\sigbas.h" />
     <ClInclude Include="..\..\includes\signal_mgmt.h" />
-    <ClInclude Include="..\..\includes\stack-def.h" />
-    <ClInclude Include="..\..\includes\stack1.h" />
-    <ClInclude Include="..\..\includes\stack2.h" />
-    <ClInclude Include="..\..\includes\stack3.h" />
-    <ClInclude Include="..\..\includes\stackinfo.h" />
-    <ClInclude Include="..\..\includes\stackTypeVariable.h" />
     <ClInclude Include="..\..\includes\storeCommand.h" />
     <ClInclude Include="..\..\includes\suspendProcess.h" />
     <ClInclude Include="..\..\includes\syncexec.h" />
@@ -385,7 +374,6 @@ cd ..
     <ClInclude Include="dynamic_gateways.h" />
     <ClInclude Include="dynamic_parallel.h" />
     <ClInclude Include="dynamic_tclsci.h" />
-    <ClInclude Include="funcprot.h" />
     <ClInclude Include="getdebuginfo.h" />
     <ClInclude Include="getdynamicdebuginfo.h" />
     <ClInclude Include="getdynamicDebugInfo_Windows.h" />
index 75fb0d1..9e609ac 100644 (file)
@@ -17,9 +17,6 @@
     </Filter>
   </ItemGroup>
   <ItemGroup>
-    <ClCompile Include="callFunctionFromGateway.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="commandwords.c">
       <Filter>Source Files</Filter>
     </ClCompile>
@@ -80,9 +77,6 @@
     <ClCompile Include="md5.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="..\cpp\namstr.cpp">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="returnanan.c">
       <Filter>Source Files</Filter>
     </ClCompile>
     <ClCompile Include="DllmainCore.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="InitializePreferences.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
-    <ClCompile Include="setformat.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
-    <ClCompile Include="setieee.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="..\cpp\with_module.cpp">
       <Filter>Source Files</Filter>
     </ClCompile>
     <ClCompile Include="backtrace.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="setlines.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="getmaxMALLOC.c">
       <Filter>Source Files</Filter>
     </ClCompile>
     <ClCompile Include="saveCWDInPreferences.c">
       <Filter>Source Files</Filter>
     </ClCompile>
+    <ClCompile Include="..\cpp\setformat.cpp">
+      <Filter>Source Files</Filter>
+    </ClCompile>
+    <ClCompile Include="InitializePreferences.c">
+      <Filter>Source Files</Filter>
+    </ClCompile>
+    <ClCompile Include="..\cpp\setlines.cpp">
+      <Filter>Source Files</Filter>
+    </ClCompile>
   </ItemGroup>
   <ItemGroup>
     <None Include="..\..\core.iss" />
     <ClInclude Include="..\..\includes\BOOL.h">
       <Filter>Header Files</Filter>
     </ClInclude>
-    <ClInclude Include="..\..\includes\callFunctionFromGateway.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
     <ClInclude Include="..\..\includes\commandwords.h">
       <Filter>Header Files</Filter>
     </ClInclude>
     <ClInclude Include="..\..\includes\inffic.h">
       <Filter>Header Files</Filter>
     </ClInclude>
-    <ClInclude Include="..\..\includes\InitializePreferences.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
     <ClInclude Include="..\..\includes\initMacOSXEnv.h">
       <Filter>Header Files</Filter>
     </ClInclude>
     <ClInclude Include="..\..\includes\setformat.h">
       <Filter>Header Files</Filter>
     </ClInclude>
-    <ClInclude Include="..\..\includes\setieee.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
     <ClInclude Include="..\..\includes\setPrecisionFPU.h">
       <Filter>Header Files</Filter>
     </ClInclude>
     <ClInclude Include="..\..\includes\signal_mgmt.h">
       <Filter>Header Files</Filter>
     </ClInclude>
-    <ClInclude Include="..\..\includes\stack1.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
-    <ClInclude Include="..\..\includes\stack2.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
-    <ClInclude Include="..\..\includes\stack3.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
-    <ClInclude Include="..\..\includes\stack-def.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
-    <ClInclude Include="..\..\includes\stackinfo.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
-    <ClInclude Include="..\..\includes\stackTypeVariable.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
     <ClInclude Include="..\..\includes\storeCommand.h">
       <Filter>Header Files</Filter>
     </ClInclude>
     <ClInclude Include="..\..\includes\setlines.h">
       <Filter>Header Files</Filter>
     </ClInclude>
-    <ClInclude Include="..\..\includes\stackTypeVariable.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
     <ClInclude Include="..\..\includes\getmaxMALLOC.h">
       <Filter>Header Files</Filter>
     </ClInclude>
     <ClInclude Include="saveCWDInPreferences.h">
       <Filter>Header Files</Filter>
     </ClInclude>
-    <ClInclude Include="funcprot.h">
+    <ClInclude Include="..\..\includes\InitializePreferences.h">
       <Filter>Header Files</Filter>
     </ClInclude>
   </ItemGroup>
index aded0a4..bb5cd0e 100644 (file)
@@ -1,27 +1,3 @@
 ;
 ; forced exports (Commons fortran) in core
 ;
-;used by core
-    iop_
-    errgst_
-    com_
-    adre_
-    mtlbc_
-    csimp_
-    ippty_
-    keepme_
-    mprot_
-    ptkeep_
-    dbg_
-;
-;used by linear_algebra
-scigsch_
-scisch_
-scizgsch_
-;
-ierode_
-;
-; Interruption CTRL-C
-;
-basbrk_
-;
diff --git a/scilab/modules/core/src/c/funcprot.h b/scilab/modules/core/src/c/funcprot.h
deleted file mode 100644 (file)
index 00731d8..0000000
+++ /dev/null
@@ -1,44 +0,0 @@
-/*
-* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-* Copyright (C) 2009 - 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
-*
-*/
-/*--------------------------------------------------------------------------*/
-#ifndef __FUNCPROT_H__
-#define __FUNCPROT_H__
-/*--------------------------------------------------------------------------*/
-#include "machine.h" /* C2F */
-#include "BOOL.h"
-/*--------------------------------------------------------------------------*/
-typedef struct
-{
-    int macprt;
-} MPROT_struct;
-/*--------------------------------------------------------------------------*/
-/**
-* initialize funcprot value
-* see inisci.f
-* @return 0
-*/
-int C2F(initfuncprot)();
-
-/**
-* get funcprot value
-* return current value of funcprot
-*/
-int getfuncprot(void);
-
-/**
-* set funcprot value
-* @param[in] level 0 1 2
-* @return TRUE if value set
-*/
-BOOL setfuncprot(int level);
-/*--------------------------------------------------------------------------*/
-#endif /* __FUNCPROT_H__ */
diff --git a/scilab/modules/core/src/c/setieee.c b/scilab/modules/core/src/c/setieee.c
deleted file mode 100644 (file)
index 1323d90..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2012 - Scilab Enterprises - Calixte DENIZET
- *
- * 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
- *
- */
-
-#include "setieee.h"
-#include "stack-c.h"
-
-/*--------------------------------------------------------------------------*/
-void setieee(int ieee)
-{
-    C2F(errgst).ieee = ieee;
-}
-/*--------------------------------------------------------------------------*/
-int getieee()
-{
-    return C2F(errgst).ieee;
-}
-/*--------------------------------------------------------------------------*/
index 2ada701..d1c95d7 100644 (file)
@@ -12,7 +12,6 @@
  */
 /*--------------------------------------------------------------------------*/
 #include <stdio.h>
-#include "stack-def.h" /* for paus */
 #include "texmacs.h"
 #include "prompt.h"
 #include "readline.h"
diff --git a/scilab/modules/core/src/cpp/namstr.cpp b/scilab/modules/core/src/cpp/namstr.cpp
deleted file mode 100644 (file)
index bcdca43..0000000
+++ /dev/null
@@ -1,124 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2010 - DIGITEO - Bernard HUGUENEY
- *
- * 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
- *
- */
-#ifdef _MSC_VER
-#include <Windows.h>
-#endif
-#include <algorithm>
-#include "machine.h" /* C2F */
-#include "stack-def.h" /* nsiz, nlgh */
-
-extern "C"
-{
-    void C2F(namstr)(int* id, int* str, int* n, int* job);
-}
-
-namespace
-{
-int const blank = 40; /* a scilab encoded blank character: used for padding id when name has < nsiz*6 characters*/
-/*  constant below are used for fast padding 1->4 blanks at once */
-int const one_blank = (blank << 24);
-int const two_blanks = one_blank + (blank << 16);
-int const three_blanks = two_blanks + (blank << 8);
-int const four_blanks = three_blanks + blank;
-}
-
-/*
- * convert id (array of nsiz ints) <-> str (array of n <= nlgh=4*nsiz ints)
- * each element of str is stored in 8 bits of an id. The reming bytes (after n)
- * are filled with blanks.
- *
- *
- * @param  id contains the id of nsiz ints
- * @param  str contains the string of nlgh ints
- * @param  n contains the address of the (int) length of the string input for str->id, output for id->str
- * @param job 0 => str->id, id-> str otherwise
- *
- * TODO: now that function search has been ported to C++, should expose a saner API that would not require strlen call nor a job arg.
- */
-void C2F(namstr)(int* id, int* str, int* n, int* job)
-{
-    if (*job)  /* id -> str */
-    {
-
-        unsigned int i1(0); /* starting character from constructed str when processing an int from id */
-
-        for (unsigned int j = 0; j != nsiz; ++j, i1 += 4) /* processing id[j] into str[i1...ii+4] */
-        {
-            int id_j(id[j]);/* caching id[j] because we could not tell the compiler that id and str do not alias */
-            for (unsigned int i(i1); i != i1 + 4; ++i, id_j >>= 8) /* processing each byte from id[j] into an int in str*/
-            {
-                /* extracting the *signed* lower byte: & 0x80 tests the 7th bit (sign bit of the byte)
-                 * |0xffffff00 : lower <0, byte & 0xff : lower >0 byte */
-                int ch((id_j & 0x80) ? (id_j | 0xffffff00) :  (id_j & 0xff));
-                if (ch == blank)/* we encounter a blank -> end of string. */
-                {
-                    *n = i;
-                    return;
-                }
-                id_j += 128;/* propagate sign bit to upper bits */
-                str[i] = ch;
-            }
-        }
-
-        *n = nlgh; /* no blank encountered str length is nlgh= nsiz*8 */
-
-    }
-    else
-    {
-        /* str -> id */
-        /* n (<= nsiz*4 = nlgh) int in str packed into id */
-        unsigned int j;
-        /* a full id contains 4 ints from str, so we have *n/4 full ids the remaing are padded with blanks
-         we can get *n > nlgh (we  truncate @ nsiz ids) */
-#ifndef _MSC_VER
-        unsigned const int full_ids(std::min(*n / 4, nsiz));
-#else
-        unsigned const int full_ids(min(*n / 4, nsiz));
-#endif
-
-        for (j = 0; j != full_ids; ++j)
-        {
-            /* str int are signed bytes in fact, we pack them using shifts */
-            id[j] = str[4 * j + 0] + (str[4 * j + 1] << 8) + (str[4 * j + 2] << 16) + (str[4 * j + 3] << 24);
-        }
-        if (j != nsiz) /* we had < nsiz int in str : padd with blank chars */
-        {
-            switch ((*n ) & 0x3)  /* pad partial id int according modulo 4= nb of remaining ints in str */
-            {
-                case 3: /* three remaining ints and one blank */
-                {
-                    id[j] = one_blank + (str[4 * j + 2] << 16) + (str[4 * j + 1] << 8) + str[4 * j + 0];
-                    ++j;
-                    break;
-                }
-                case 2: /* two remaining ints and two blanks */
-                {
-                    id[j] = two_blanks + (str[4 * j + 1] << 8) + str[4 * j + 0];
-                    ++j;
-                    break;
-                }
-                case 1:/* one remaining int and three blanks*/
-                {
-                    id[j] = three_blanks + str[4 * j + 0];
-                    ++j;
-                    break;
-                }
-            }
-
-            for (; j != nsiz; ++j) /* pad empty ints in id with four blanks at once */
-            {
-                id[j] = four_blanks;
-            }
-        }
-    }
-    return;
-}
similarity index 69%
rename from scilab/modules/core/src/c/setformat.c
rename to scilab/modules/core/src/cpp/setformat.cpp
index 23e76ae..c823f55 100644 (file)
@@ -1,6 +1,7 @@
 /*
  * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
  * Copyright (C) 2012 - Scilab Enterprises - Calixte DENIZET
+ * Copyright (C) 2015 - Scilab Enterprises - Cedric Delamarre
  *
  * This file must be used under the terms of the CeCILL.
  * This source file is licensed as described in the file COPYING, which
  *
  */
 
+#include "configvariable.hxx"
+
+extern "C"
+{
 #include "setformat.h"
-#include "stack-c.h"
+}
 
 /*--------------------------------------------------------------------------*/
 void setformat(const char * format, int width)
 {
-    C2F(iop).lct[5] = *format == 'e' ? 0 : 1;
-    C2F(iop).lct[6] = width;
+    ConfigVariable::setFormatMode(*format == 'e' ? 0 : 1);
+    ConfigVariable::setFormatSize(width);
 }
 /*--------------------------------------------------------------------------*/
-char * getformat()
+const char* getformat()
 {
-    return C2F(iop).lct[5] ? "v" : "e";
+    return ConfigVariable::getFormatMode() ? "v" : "e";
 }
 /*--------------------------------------------------------------------------*/
 int getformatwidth()
 {
-    return C2F(iop).lct[6];
+    return ConfigVariable::getFormatSize();
 }
similarity index 79%
rename from scilab/modules/core/src/c/setlines.c
rename to scilab/modules/core/src/cpp/setlines.cpp
index 1568805..098aaa3 100644 (file)
  *
  */
 
+#include "configvariable.hxx"
+
+extern "C"
+{
 #include "setlines.h"
-#include "stack-c.h"
+}
 
 /*--------------------------------------------------------------------------*/
 void setlines(int lines, int columns)
 {
-    C2F(iop).lct[4] = Max(25, columns);
-    C2F(iop).lct[1] = Max(0, lines);
+    ConfigVariable::setConsoleLines((std::max)(0, lines));
+    ConfigVariable::setConsoleWidth((std::max)(25, columns));
 }
 /*--------------------------------------------------------------------------*/
index f9ff1bb..b0c89ca 100644 (file)
@@ -5,18 +5,8 @@ EXPORTS
 ; ---------------------------------------
 ; core
 ; ---------------------------------------
-iop_
-com_
-errgst_
-adre_
-dbg_
-ippty_
 mtlbc_
-basbrk_
-keepme_
-mprot_
 typnams_
-csimp_
 ptkeep_
 checkval_
 eqid_
index 14de373..4340fcc 100644 (file)
                <File RelativePath="clunit.f"/>
                <File RelativePath="expsum.f"/>
                <File RelativePath="folhp.f"/>
-               <File RelativePath="putid.f"/>
                <File RelativePath=".\read_inter.f"/>
                <File RelativePath=".\readinter.f"/>
                <File RelativePath=".\rewindinter.f"/>
-               <File RelativePath="whatln.f"/>
                <File RelativePath=".\withf2c.f"/>
                <File RelativePath=".\write_inter.f"/>
                <File RelativePath="xerbla.f"/></Filter>
index f5d2ca2..5a7e8b0 100644 (file)
@@ -317,27 +317,20 @@ cd ..
     <ClCompile Include="clunit.c" />
     <ClCompile Include="expsum.c" />
     <ClCompile Include="folhp.c" />
-    <ClCompile Include="putid.c" />
     <ClCompile Include="readinter.c" />
     <ClCompile Include="read_inter.c" />
     <ClCompile Include="rewindinter.c" />
-    <ClCompile Include="whatln.c" />
     <ClCompile Include="write_inter.c" />
     <ClCompile Include="xerbla.c" />
   </ItemGroup>
   <ItemGroup>
-    <ClInclude Include="..\..\includes\stack.h" />
-  </ItemGroup>
-  <ItemGroup>
     <f2c_rule Include="backspaceinter.f" />
     <f2c_rule Include="clunit.f" />
     <f2c_rule Include="expsum.f" />
     <f2c_rule Include="folhp.f" />
-    <f2c_rule Include="putid.f" />
     <f2c_rule Include="readinter.f" />
     <f2c_rule Include="read_inter.f" />
     <f2c_rule Include="rewindinter.f" />
-    <f2c_rule Include="whatln.f" />
     <f2c_rule Include="write_inter.f" />
     <f2c_rule Include="xerbla.f" />
   </ItemGroup>
@@ -372,4 +365,4 @@ cd ..
   <ImportGroup Label="ExtensionTargets">
     <Import Project="..\..\..\..\Visual-Studio-settings\f2c.targets" />
   </ImportGroup>
-</Project>
+</Project>
\ No newline at end of file
index 073f2b2..b75e58b 100644 (file)
     <ClCompile Include="folhp.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="putid.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
-    <ClCompile Include="whatln.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="xerbla.c">
       <Filter>Source Files</Filter>
     </ClCompile>
     </ClCompile>
   </ItemGroup>
   <ItemGroup>
-    <ClInclude Include="..\..\includes\stack.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
-  </ItemGroup>
-  <ItemGroup>
     <f2c_rule Include="clunit.f">
       <Filter>Fortran Files</Filter>
     </f2c_rule>
     <f2c_rule Include="folhp.f">
       <Filter>Fortran Files</Filter>
     </f2c_rule>
-    <f2c_rule Include="putid.f">
-      <Filter>Fortran Files</Filter>
-    </f2c_rule>
-    <f2c_rule Include="whatln.f">
-      <Filter>Fortran Files</Filter>
-    </f2c_rule>
     <f2c_rule Include="xerbla.f">
       <Filter>Fortran Files</Filter>
     </f2c_rule>
       <Filter>Libraries Dependencies</Filter>
     </None>
   </ItemGroup>
-</Project>
+</Project>
\ No newline at end of file
diff --git a/scilab/modules/core/src/fortran/putid.f b/scilab/modules/core/src/fortran/putid.f
deleted file mode 100644 (file)
index 5a7e25d..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-c Copyright (C) INRIA
-c 
-c This file must be used under the terms of the CeCILL.
-c This source file is licensed as described in the file COPYING, which
-c you should have received as part of this distribution.  The terms
-c are also available at    
-c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
-
-      subroutine putid(x,y)
-c
-c     store a name
-c
-      include 'stack.h'
-c
-      integer x(nsiz),y(nsiz)
-      do 10 i = 1, nsiz
-   10 x(i) = y(i)
-      return
-      end
diff --git a/scilab/modules/core/src/fortran/whatln.f b/scilab/modules/core/src/fortran/whatln.f
deleted file mode 100644 (file)
index 4216f36..0000000
+++ /dev/null
@@ -1,49 +0,0 @@
-c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-c Copyright (C) INRIA
-c 
-c This file must be used under the terms of the CeCILL.
-c This source file is licensed as described in the file COPYING, which
-c you should have received as part of this distribution.  The terms
-c are also available at    
-c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
-
-      subroutine whatln(lpt1,lpt2,lpt6,nct,idebut,ifin)
-c!but
-c     whatln permet de retrouver dans quelle ligne d'instruction 
-c     se trouve le caractere designe par le pointeur lpt2 sachant 
-c     que les lignes d'instructions considerees se situent entre 
-c     lpt1 et lpt6 dans le tableau lin.
-c
-c     en retour:
-c     nct : nombre de lignes qui suivent la ligne "contenant" le 
-c           caractere designe par lpt2
-c     idebut : pointeur sur le debut de la ligne
-c     ifin   : pointeur sur la fin de la ligne
-c!
-c
-      include 'stack.h'
-      integer eol
-      data eol/99/
-c
-      nct=0
-      l2=lpt2
-      if(lin(l2).eq.eol) l2=l2-1
-      ifin=lpt6-1
-      ii=lpt6
- 10   ii=ii-1
-      if(ii.le.l2) goto 20
-      if(lin(ii).eq.eol) then
-         nct=nct+1
-         ifin=ii-1
-      endif
-      goto 10
-c
- 20   continue
-      idebut=lpt1
- 21   ii=ii-1
-      if(ii.le.lpt1) return
-      if(lin(ii).ne.eol) goto 21
-      idebut=ii+1
-      return
-c
-      end
index c94e9bb..f349674 100644 (file)
@@ -17,7 +17,8 @@ DIFFERENTIAL_EQUATIONS_C_SOURCES = \
     src/c/rk4.c \
     src/c/Ex-odedc.c \
     src/c/Ex-ode.c \
-    src/c/Ex-daskr.c
+    src/c/Ex-daskr.c \
+    src/c/errmds.c
 
 DIFFERENTIAL_EQUATIONS_FORTRAN_SOURCES = \
     src/fortran/rscar1.f \
index 79d7304..9760ba4 100644 (file)
@@ -172,7 +172,8 @@ am__objects_1 =  \
        src/c/libscidifferential_equations_algo_la-rk4.lo \
        src/c/libscidifferential_equations_algo_la-Ex-odedc.lo \
        src/c/libscidifferential_equations_algo_la-Ex-ode.lo \
-       src/c/libscidifferential_equations_algo_la-Ex-daskr.lo
+       src/c/libscidifferential_equations_algo_la-Ex-daskr.lo \
+       src/c/libscidifferential_equations_algo_la-errmds.lo
 am__objects_2 = src/fortran/rscar1.lo src/fortran/bcomp.lo \
        src/fortran/lcomp.lo src/fortran/loren.lo src/fortran/prja.lo \
        src/fortran/vnorm.lo src/fortran/lsoda.lo \
@@ -637,7 +638,8 @@ DIFFERENTIAL_EQUATIONS_C_SOURCES = \
     src/c/rk4.c \
     src/c/Ex-odedc.c \
     src/c/Ex-ode.c \
-    src/c/Ex-daskr.c
+    src/c/Ex-daskr.c \
+    src/c/errmds.c
 
 DIFFERENTIAL_EQUATIONS_FORTRAN_SOURCES = \
     src/fortran/rscar1.f \
@@ -947,6 +949,8 @@ src/c/libscidifferential_equations_algo_la-Ex-ode.lo:  \
        src/c/$(am__dirstamp) src/c/$(DEPDIR)/$(am__dirstamp)
 src/c/libscidifferential_equations_algo_la-Ex-daskr.lo:  \
        src/c/$(am__dirstamp) src/c/$(DEPDIR)/$(am__dirstamp)
+src/c/libscidifferential_equations_algo_la-errmds.lo:  \
+       src/c/$(am__dirstamp) src/c/$(DEPDIR)/$(am__dirstamp)
 src/fortran/$(am__dirstamp):
        @$(MKDIR_P) src/fortran
        @: > src/fortran/$(am__dirstamp)
@@ -1184,6 +1188,7 @@ distclean-compile:
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscidifferential_equations_algo_la-arnol.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscidifferential_equations_algo_la-colnewmsgs.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscidifferential_equations_algo_la-dassl.Plo@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscidifferential_equations_algo_la-errmds.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscidifferential_equations_algo_la-feval.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscidifferential_equations_algo_la-rk4.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/cpp/$(DEPDIR)/libscidifferential_equations_algo_la-checkodeerror.Plo@am__quote@
@@ -1270,6 +1275,13 @@ src/c/libscidifferential_equations_algo_la-Ex-daskr.lo: src/c/Ex-daskr.c
 @AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
 @am__fastdepCC_FALSE@  $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscidifferential_equations_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src/c/libscidifferential_equations_algo_la-Ex-daskr.lo `test -f 'src/c/Ex-daskr.c' || echo '$(srcdir)/'`src/c/Ex-daskr.c
 
+src/c/libscidifferential_equations_algo_la-errmds.lo: src/c/errmds.c
+@am__fastdepCC_TRUE@   $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscidifferential_equations_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT src/c/libscidifferential_equations_algo_la-errmds.lo -MD -MP -MF src/c/$(DEPDIR)/libscidifferential_equations_algo_la-errmds.Tpo -c -o src/c/libscidifferential_equations_algo_la-errmds.lo `test -f 'src/c/errmds.c' || echo '$(srcdir)/'`src/c/errmds.c
+@am__fastdepCC_TRUE@   $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscidifferential_equations_algo_la-errmds.Tpo src/c/$(DEPDIR)/libscidifferential_equations_algo_la-errmds.Plo
+@AMDEP_TRUE@@am__fastdepCC_FALSE@      $(AM_V_CC)source='src/c/errmds.c' object='src/c/libscidifferential_equations_algo_la-errmds.lo' libtool=yes @AMDEPBACKSLASH@
+@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
+@am__fastdepCC_FALSE@  $(AM_V_CC@am__nodep@)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscidifferential_equations_algo_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -c -o src/c/libscidifferential_equations_algo_la-errmds.lo `test -f 'src/c/errmds.c' || echo '$(srcdir)/'`src/c/errmds.c
+
 .cpp.o:
 @am__fastdepCXX_TRUE@  $(AM_V_CXX)depbase=`echo $@ | sed 's|[^/]*$$|$(DEPDIR)/&|;s|\.o$$||'`;\
 @am__fastdepCXX_TRUE@  $(CXXCOMPILE) -MT $@ -MD -MP -MF $$depbase.Tpo -c -o $@ $< &&\
index 90c4d0c..79587bf 100644 (file)
 
 typedef struct
 {
+    int err1;
+    int err2;
+    int errct;
+    int toperr;
+    int errpt;
+    int ieee;
+    int errcatch;
+} STR_ERRGST;
+
+typedef struct
+{
+    int iero;
+} STR_IERODE;
+
+typedef struct
+{
     int mesflg, lunit;
 } STR_EH0001;
 
 typedef struct
 {
-    double tsw; /**< @TODO : add comment */
-    double rowns2[20]; /**< @TODO : add comment */
-    double pdnorm; /**< @TODO : add comment */
-    int insufr; /**< @TODO : add comment */
-    int insufi; /**< @TODO : add comment */
-    int ixpr; /**< @TODO : add comment */
-    int iowns2[2]; /**< @TODO : add comment */
-    int jtyp; /**< @TODO : add comment */
-    int mused; /**< @TODO : add comment */
-    int mxordn; /**< @TODO : add comment */
-    int mxords; /**< @TODO : add comment */
+    double tsw;
+    double rowns2[20];
+    double pdnorm;
+    int insufr;
+    int insufi;
+    int ixpr;
+    int iowns2[2];
+    int jtyp;
+    int mused;
+    int mxordn;
+    int mxords;
 } STR_LSA001;
 
 typedef struct
@@ -103,17 +119,23 @@ typedef struct
 } STR_LS0001;
 
 #ifdef _MSC_VER
+DIFFERENTIAL_EQUATIONS_IMPEXP STR_ERRGST C2F(errgst);
+DIFFERENTIAL_EQUATIONS_IMPEXP STR_IERODE C2F(ierode);
 DIFFERENTIAL_EQUATIONS_IMPEXP STR_EH0001 C2F(eh0001);
 DIFFERENTIAL_EQUATIONS_IMPEXP STR_LSA001 C2F(lsa001);
 DIFFERENTIAL_EQUATIONS_IMPEXP STR_LSR001 C2F(lsr001);
 DIFFERENTIAL_EQUATIONS_IMPEXP STR_LS0001 C2F(ls0001);
 #else
 #ifdef __DIFFERENTIAL_EQUATIONS_GW_HXX__
+extern STR_ERRGST C2F(errgst);
+extern STR_IERODE C2F(ierode);
 extern STR_EH0001 C2F(eh0001);
 extern STR_LSA001 C2F(lsa001);
 extern STR_LSR001 C2F(lsr001);
 extern STR_LS0001 C2F(ls0001);
 #else
+STR_ERRGST C2F(errgst);
+STR_IERODE C2F(ierode);
 STR_EH0001 C2F(eh0001);
 STR_LSA001 C2F(lsa001);
 STR_LSR001 C2F(lsr001);
index 3e6d337..9db83b6 100644 (file)
@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project DefaultTargets="Build" ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <ItemGroup Label="ProjectConfigurations">
     <ProjectConfiguration Include="Debug|Win32">
@@ -201,6 +201,7 @@ lib /DEF:"$(ProjectDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MA
     <ClCompile Include="colnewmsgs.c" />
     <ClCompile Include="dassl.c" />
     <ClCompile Include="DllmainDifferential_equations.c" />
+    <ClCompile Include="errmds.c" />
     <ClCompile Include="Ex-daskr.c" />
     <ClCompile Include="Ex-ode.c" />
     <ClCompile Include="Ex-odedc.c" />
@@ -214,6 +215,7 @@ lib /DEF:"$(ProjectDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MA
     <ClInclude Include="..\..\includes\scifunctions.h" />
     <ClInclude Include="arnol.h" />
     <ClInclude Include="..\..\includes\dynlib_differential_equations.h" />
+    <ClInclude Include="errmds.h" />
     <ClInclude Include="Ex-daskr.h" />
     <ClInclude Include="Ex-ode.h" />
     <ClInclude Include="Ex-odedc.h" />
@@ -271,4 +273,4 @@ lib /DEF:"$(ProjectDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MA
   <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
   <ImportGroup Label="ExtensionTargets">
   </ImportGroup>
-</Project>
+</Project>
\ No newline at end of file
index e4860de..57e0290 100644 (file)
@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project ToolsVersion="4.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <ItemGroup>
     <Filter Include="Source Files">
@@ -59,6 +59,9 @@
     <ClCompile Include="Ex-ode.c">
       <Filter>Source Files</Filter>
     </ClCompile>
+    <ClCompile Include="errmds.c">
+      <Filter>Source Files</Filter>
+    </ClCompile>
   </ItemGroup>
   <ItemGroup>
     <ClInclude Include="arnol.h">
@@ -94,6 +97,9 @@
     <ClInclude Include="..\..\includes\checkodeerror.hxx">
       <Filter>Header Files</Filter>
     </ClInclude>
+    <ClInclude Include="errmds.h">
+      <Filter>Header Files</Filter>
+    </ClInclude>
   </ItemGroup>
   <ItemGroup>
     <None Include="differential_equations_f_Import.def">
     <Library Include="..\..\..\..\bin\blasplus.lib" />
     <Library Include="..\..\..\..\bin\lapack.lib" />
   </ItemGroup>
-</Project>
+</Project>
\ No newline at end of file
@@ -11,7 +11,7 @@
  */
 
 #include "errmds.h"
-#include "stack-def.h"
+#include "common_structure.h"
 /*--------------------------------------------------------------------------*/
 int C2F(errmds)(int *num, int *imess, int *imode)
 {
index 21cd7a3..ddc3714 100644 (file)
@@ -12,7 +12,7 @@
  */
 /*--------------------------------------------------------------------------*/
 #include "rk4.h"
-#include "stack-c.h"
+#include "common_structure.h"
 /*--------------------------------------------------------------------------*/
 /* Runge-Kutta (RK4) method */
 /* http://media4.obspm.fr/public/DEA/cours/chapitre3/souschapitre2/section4/page5/section3_2_4_5.html */
index 0baea1e..027433d 100644 (file)
@@ -2,8 +2,7 @@ C/MEMBR ADD NAME=AINVG,SSI=0
       subroutine ainvg (res, adda, neq, t, y, ydot, miter,
      1                   ml, mu, pw, ipvt, ier )
 clll. optimize
-      
-      include 'stack.h'
+
       external res, adda
       integer neq, miter, ml, mu, ipvt, ier
       integer i, lenpw, mlp1, nrowpw
index 5120ecf..1247c36 100644 (file)
@@ -463,7 +463,6 @@ C      IMPLICIT REAL*8 (A-H,O-Z)
       DIMENSION M(*), ZETA(*), IPAR(*), LTOL(*), TOL(*), DUMMY(1),
      1          FIXPNT(*), ISPACE(*), FSPACE(*)
 C
-      include 'stack.h'
       COMMON /COLOUT/ PRECIS, IOUT, IPRINT
       COMMON /COLLOC/ RHO(7), COEF(49)
       COMMON /COLORD/ K, NC, MSTAR, KD, MMAX, MT(20)
@@ -1244,7 +1243,7 @@ c            Create and display buffer row by row
 c            Format 620 write one space following by at most 8 double
 c            that's why the increment of iter is multiply by 8
              DO 405 iter = J, NZ, MSTAR*8
-  405            WRITE(TMPBUF,620) (Z(LJ), LJ = iter, iter+MSTAR*7, 
+  405            WRITE(TMPBUF,620) (Z(LJ), LJ = iter, iter+MSTAR*7,
      1              MSTAR)
              CALL COLNEWMSGS(TMPBUF)
   410        continue
index 88ef75a..f1883d2 100644 (file)
@@ -849,7 +849,7 @@ C
 C  ---------------------------------------------------------------------
 C
 C***REFERENCE
-C      K. E. Brenan, S. L. Campbell, and L. R. Petzold, Numerical 
+C      K. E. Brenan, S. L. Campbell, and L. R. Petzold, Numerical
 C      Solution of Initial-Value Problems in Differential-Algebraic
 C      Equations, Elsevier, New York, 1989.
 C
@@ -859,12 +859,10 @@ C***END PROLOGUE  DDASRT
 C
 C**End
 C
-      
-      
+
+
       IMPLICIT DOUBLE PRECISION(A-H,O-Z)
 
-      include 'stack.h'
-      
       LOGICAL DONE
       EXTERNAL RES, JAC, G
       DIMENSION Y(*),YPRIME(*)
@@ -891,7 +889,7 @@ C     SET POINTERS INTO RWORK
      *  LDELTA=51)
 C
 C***FIRST EXECUTABLE STATEMENT  DDASRT
-     
+
       IF(INFO(1).NE.0)GO TO 100
 C
 C-----------------------------------------------------------------------
@@ -1295,7 +1293,7 @@ C     TEST H VS. HMAX
       IF (INFO(7) .EQ. 0) GO TO 526
          RH = ABS(H)/RWORK(LHMAX)
          IF (RH .GT. 1.0D0) H = H/RH
-526   CONTINUE     
+526   CONTINUE
 C
       CALL DDASTP(TN,Y,YPRIME,NEQ,
      *   RES,JAC,H,RWORK(LWT),INFO(1),IDID,RPAR,IPAR,
@@ -1586,10 +1584,8 @@ C***DATE WRITTEN   821001   (YYMMDD)
 C***REVISION DATE  900926   (YYMMDD)
 C***END PROLOGUE  DRCHEK
 C
-      
-      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
 
-      include 'stack.h'
+      IMPLICIT DOUBLE PRECISION(A-H,O-Z)
 
       PARAMETER (LNGE=16, LIRFND=18, LLAST=19, LIMAX=20,
      *           LT0=41, LTLAST=42, LALPHR=43, LX2=44)
@@ -1641,7 +1637,7 @@ C          IRFND = 1 IF IT DID, = 0 IF NOT.
 C          STORED IN THE GLOBAL ARRAY IWORK.
 C INFO3  = COPY OF INFO(3) (INPUT ONLY).
 C-----------------------------------------------------------------------
-C     
+C
       H = PSI(1)
       IRT = 0
       DO 10 I = 1,NG
@@ -1777,8 +1773,6 @@ C***END PROLOGUE  DROOTS
 C
       IMPLICIT DOUBLE PRECISION(A-H,O-Z)
 
-      include 'stack.h'
-      
       INTEGER NG, JFLAG, JROOT, IMAX, LAST
       DOUBLE PRECISION HMIN, X0, X1, G0, G1, GX, X, ALPHA, X2
       DIMENSION G0(NG), G1(NG), GX(NG), JROOT(NG)
index 1d8395d..a7a266b 100644 (file)
@@ -1,7 +1,6 @@
       SUBROUTINE DDAINI (X, Y, YPRIME, NEQ, RES, JAC, H, WT, IDID, RPAR,
      +   IPAR, PHI, DELTA, E, WM, IWM, HMIN, UROUND, NONNEG, NTEMP)
 
-      include 'stack.h'
 C***BEGIN PROLOGUE  DDAINI
 C***SUBSIDIARY
 C***PURPOSE  Initialization routine for DDASSL.
@@ -268,7 +267,6 @@ C-------------END OF SUBROUTINE DDAINI----------------------
       SUBROUTINE DDAJAC (NEQ, X, Y, YPRIME, DELTA, CJ, H,
      +   IER, WT, E, WM, IWM, RES, IRES, UROUND, JAC, RPAR,
      +   IPAR, NTEMP)
-      include 'stack.h'
 
 C***BEGIN PROLOGUE  DDAJAC
 C***SUBSIDIARY
@@ -555,7 +553,6 @@ C------END OF SUBROUTINE DDASLV------
       END
       SUBROUTINE DDASSL (RES, NEQ, T, Y, YPRIME, TOUT, INFO, RTOL, ATOL,
      +   IDID, RWORK, LRW, IWORK, LIW, RPAR, IPAR, JAC)
-      include 'stack.h'
 C***BEGIN PROLOGUE  DDASSL
 C***PURPOSE  This code solves a system of differential/algebraic
 C            equations of the form G(T,Y,YPRIME) = 0.
@@ -2168,8 +2165,6 @@ C-----------END OF SUBROUTINE DDASSL------------------------------------
      +   PSI, SIGMA, CJ, CJOLD, HOLD, S, HMIN, UROUND, IPHASE, JCALC,
      +   K, KOLD, NS, NONNEG, NTEMP)
 
-      include 'stack.h'
-
 C***BEGIN PROLOGUE  DDASTP
 C***SUBSIDIARY
 C***PURPOSE  Perform one step of the DDASSL integration.
index 08b04ba..57cd3e5 100644 (file)
@@ -1,11 +1,11 @@
 c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 c Copyright (C) INRIA
 c ...
-c 
+c
 c This file must be used under the terms of the CeCILL.
 c This source file is licensed as described in the file COPYING, which
 c you should have received as part of this distribution.  The terms
-c are also available at    
+c are also available at
 c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
       subroutine lsdisc (f, neq, y, t, tout, rwork,lrw,istate )
       external f
@@ -13,7 +13,7 @@ c http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
       double precision y(neq), t, tout,  rwork(lrw)
 c!purpose
 c
-c  Simulation of non linear recurrence equations of type 
+c  Simulation of non linear recurrence equations of type
 c  x[k+1]=f(k,xk)
 c
 c!summary of usage.
@@ -27,26 +27,25 @@ c          this name must be declared external in calling program.
 c neq    = number of first order ode-s.
 c y      = array of initial values, of length neq.
 c t      = the initial value of the independent variable.
-c tout   = first point where output is desired 
+c tout   = first point where output is desired
 c istate = 2  if lsdisc was successful, negative otherwise.
 C
-C # cases according to the difference between t and tout 
-C 
+C # cases according to the difference between t and tout
+C
 c-----------------------------------------------------------------------
       integer  it,itout
       double precision tt
-      include 'stack.h'
 c
       it=int(t)
       itout=int(tout)
-      ierror=0 
-      if ( itout.lt.it) then 
+      ierror=0
+      if ( itout.lt.it) then
          istate=-3
          return
-      else if ( itout.eq.it) then 
+      else if ( itout.eq.it) then
          istate=2
          return
-      else 
+      else
          do 10 j=it,itout-1
             tt=dble(j)
             call f (neq,tt, y, rwork)
index 94670fe..990bfac 100644 (file)
@@ -976,7 +976,6 @@ c the following card is for optimized compilation on lll compilers.
 clll. optimize
 c-----------------------------------------------------------------------
 
-      include 'stack.h'
       external prja, solsy
       integer illin, init, lyh, lewt, lacor, lsavf, lwm, liwm,
      1   mxstep, mxhnil, nhnil, ntrep, nslast, nyh, iowns
index 45680b0..2aaadfe 100644 (file)
@@ -1093,8 +1093,6 @@ c the following card is for optimized compilation on lll compilers.
 clll. optimize
 c-----------------------------------------------------------------------
 
-      include 'stack.h'
-
       external prja, solsy
       integer illin, init, lyh, lewt, lacor, lsavf, lwm, liwm,
      1   mxstep, mxhnil, nhnil, ntrep, nslast, nyh, iowns
index ef9956d..9143b61 100644 (file)
@@ -1,8 +1,6 @@
       subroutine lsode (f, neq, y, t, tout, itol, rtol, atol, itask,
      1            istate, iopt, rwork, lrw, iwork, liw, jac, mf)
 
-      include 'stack.h'
-
       external f, jac
       integer neq, itol, itask, istate, iopt, lrw, iwork, liw, mf
       double precision y, t, tout, rtol, atol, rwork
index 298e025..38e8393 100644 (file)
@@ -1136,8 +1136,6 @@ c-----------------------------------------------------------------------
 c the following card is for optimized compilation on llnl compilers.
 clll. optimize
 c-----------------------------------------------------------------------
-      include 'stack.h'
-
       external prepji, solsy
       integer illin, init, lyh, lewt, lacor, lsavr, lwm, liwm,
      1   mxstep, mxhnil, nhnil, ntrep, nslast, nyh, iowns
index 478d8da..c338ae7 100644 (file)
@@ -1,5 +1,5 @@
 c     ====================================
-c     ode Gateway for Adaptative fourth order Runge Kutta 
+c     ode Gateway for Adaptative fourth order Runge Kutta
 C
 c     The original version has been modified to pass the  rwork
 c     argument to odeint
@@ -8,7 +8,6 @@ c     array + blas use. Serge Steer INRIA- feb 2012
 c     ====================================
       subroutine lsrgk (f, neq, y, t, tout, itol, rtol, atol, itask,
      1            istate, iopt, rwork, lrw, iwork, liw, jac, mf)
-      include 'stack.h'
       external f, jac,rkqc
       integer neq, itol, itask, istate, iopt, lrw, iwork, liw, mf
       double precision y, t, tout, rtol, atol, rwork
index 98f96bc..e620a7f 100644 (file)
@@ -1,15 +1,15 @@
 c     ====================================
 c .   Runge-Kutta driver with adaptive stepsize control.  Integrate
-c .   the starting values&n