* stacksize removed. 91/16791/3
Vincent COUVERT [Mon, 6 Jul 2015 10:23:11 +0000 (12:23 +0200)]
Change-Id: I6ff5ff935ea07967fb4c6c8a42055956baa80485

77 files changed:
scilab/CHANGES_6.0.X
scilab/modules/api_scilab/includes/api_error.h
scilab/modules/api_scilab/src/cpp/api_error.cpp
scilab/modules/core/Makefile.am
scilab/modules/core/Makefile.in
scilab/modules/core/help/en_US/configuration/stacksize.xml [deleted file]
scilab/modules/core/help/en_US/error_handling/error_table.xml
scilab/modules/core/help/fr_FR/configuration/stacksize.xml [deleted file]
scilab/modules/core/help/ja_JP/configuration/stacksize.xml [deleted file]
scilab/modules/core/help/ja_JP/error_handling/error_table.xml
scilab/modules/core/help/pt_BR/configuration/stacksize.xml [deleted file]
scilab/modules/core/help/pt_BR/error_handling/error_table.xml
scilab/modules/core/help/ru_RU/configuration/stacksize.xml [deleted file]
scilab/modules/core/help/ru_RU/error_handling/error_table.xml
scilab/modules/core/includes/core_gw.hxx
scilab/modules/core/includes/gw_core.h
scilab/modules/core/locales/core.pot
scilab/modules/core/locales/zh_TW.po
scilab/modules/core/macros/who_user.sci
scilab/modules/core/sci_gateway/c/sci_stacksize.c [deleted file]
scilab/modules/core/sci_gateway/cpp/core_gw.cpp
scilab/modules/core/sci_gateway/cpp/core_gw.vcxproj
scilab/modules/core/sci_gateway/cpp/core_gw.vcxproj.filters
scilab/modules/core/sci_gateway/cpp/sci_stacksize.cpp [deleted file]
scilab/modules/core/src/fortran/core_Import.def
scilab/modules/data_structures/tests/benchmarks/arguments.tst
scilab/modules/data_structures/tests/benchmarks/arguments_resize.tst
scilab/modules/data_structures/tests/benchmarks/arguments_tlist.tst
scilab/modules/data_structures/tests/benchmarks/arguments_tlist_resize.tst
scilab/modules/development_tools/help/en_US/bench_run.xml
scilab/modules/development_tools/help/ja_JP/bench_run.xml
scilab/modules/elementary_functions/help/en_US/setoperations/members.xml
scilab/modules/elementary_functions/help/fr_FR/setoperations/members.xml
scilab/modules/elementary_functions/help/ja_JP/setoperations/members.xml
scilab/modules/elementary_functions/macros/members.sci
scilab/modules/elementary_functions/tests/benchmarks/bench_ceil.tst
scilab/modules/elementary_functions/tests/benchmarks/bench_gsort.tst
scilab/modules/elementary_functions/tests/benchmarks/bench_ones.tst
scilab/modules/elementary_functions/tests/benchmarks/bench_sqrt.tst
scilab/modules/fftw/tests/benchmarks/bench_fft.tst
scilab/modules/functions/scripts/buildmacros/buildmacros.sce
scilab/modules/functions/tests/nonreg_tests/bug_525.dia.ref
scilab/modules/functions/tests/nonreg_tests/bug_525.tst
scilab/modules/graphics/tests/nonreg_tests/bug_2190.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2190.tst
scilab/modules/graphics/tests/nonreg_tests/bug_2222.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_2222.tst
scilab/modules/graphics/tests/nonreg_tests/bug_3572.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_3572.tst
scilab/modules/graphics/tests/nonreg_tests/bug_4176.tst
scilab/modules/graphics/tests/nonreg_tests/bug_954.dia.ref
scilab/modules/graphics/tests/nonreg_tests/bug_954.tst
scilab/modules/helptools/data/configuration/scilab_primitives.txt
scilab/modules/integer/macros/%i_Matplot.sci
scilab/modules/javasci/Makefile.in
scilab/modules/linear_algebra/examples/intdsyev.c
scilab/modules/linear_algebra/tests/benchmarks/bench_chol.tst
scilab/modules/linear_algebra/tests/benchmarks/bench_det.tst
scilab/modules/linear_algebra/tests/benchmarks/bench_escoufier.tst
scilab/modules/linear_algebra/tests/benchmarks/bench_inv.tst
scilab/modules/linear_algebra/tests/benchmarks/bench_matrix_1.tst
scilab/modules/linear_algebra/tests/benchmarks/bench_matrix_2.tst
scilab/modules/linear_algebra/tests/benchmarks/bench_matrix_3.tst
scilab/modules/linear_algebra/tests/benchmarks/bench_matrix_4.tst
scilab/modules/linear_algebra/tests/benchmarks/bench_spec.tst
scilab/modules/linear_algebra/tests/benchmarks/bench_svd_1.tst
scilab/modules/linear_algebra/tests/benchmarks/bench_svd_2.tst
scilab/modules/overloading/macros/%st_p.sci
scilab/modules/parallel/help/en_US/parallel_run.xml
scilab/modules/parallel/tests/unit_tests/parallel_run.dia.ref
scilab/modules/parallel/tests/unit_tests/parallel_run.tst
scilab/modules/scicos/macros/scicos_scicos/mfrequ_clk.sci
scilab/modules/statistics/tests/benchmarks/bench_pca.tst
scilab/modules/time/tests/nonreg_tests/bug_1628.tst
scilab/modules/umfpack/help/en_US/taucs_chfact.xml
scilab/modules/umfpack/help/en_US/taucs_chget.xml
scilab/modules/umfpack/macros/scisptdemo.sci

index 4b751b3..a9770f0 100644 (file)
@@ -45,6 +45,8 @@ Removed functions (based on old Scilab stack)
 
 * gstacksize removed.
 
+* stacksize removed.
+
 * code2str removed.
 
 * str2code removed.
index 40db021..8cc6d11 100644 (file)
@@ -235,7 +235,6 @@ extern "C" {
 #define API_ERROR_READ_POINTER                              12806
 
 /* error functions*/
-int addStackSizeError(SciErr* _psciErr, char* _pstCaller, int iNeeded);
 int addErrorMessage(SciErr* _psciErr, int _iErr, const char* _pstMsg, ...);
 int printError(SciErr* _psciErr, int _iLastMsg);
 char* getErrorMessage(SciErr _sciErr);
index 35d1794..9cb1ab3 100644 (file)
@@ -26,41 +26,6 @@ extern "C"
 #include "configvariable_interface.h"
 }
 
-int addStackSizeError(SciErr* _psciErr, char* _pstCaller, int _iNeeded)
-{
-    char pstMsg1[bsiz];
-    char pstMsg2[bsiz];
-    char pstMsg3[bsiz];
-    char pstMsg4[bsiz];
-    char pstMsg5[bsiz];
-
-    int Memory_used_for_variables = 0;
-    int Total_Memory_available = 0;
-
-    //C2F(getstackinfo)(&Total_Memory_available,&Memory_used_for_variables);
-
-#ifdef _MSC_VER
-    sprintf_s(pstMsg1, bsiz, "%s\n%s", _pstCaller, _("stack size exceeded!\n"));
-    sprintf_s(pstMsg2, bsiz, _("Use stacksize function to increase it.\n"));
-    sprintf_s(pstMsg3, bsiz, _("Memory used for variables: %d\n"), Memory_used_for_variables);
-    sprintf_s(pstMsg4, bsiz, _("Intermediate memory needed: %d\n"), _iNeeded);
-    sprintf_s(pstMsg5, bsiz, _("Total memory available: %d\n"), Total_Memory_available);
-#else
-    sprintf(pstMsg1, "%s\n%s", _pstCaller, _("stack size exceeded!\n"));
-    sprintf(pstMsg2, _("Use stacksize function to increase it.\n"));
-    sprintf(pstMsg3, _("Memory used for variables: %d\n"), Memory_used_for_variables);
-    sprintf(pstMsg4, _("Intermediate memory needed: %d\n"), _iNeeded);
-    sprintf(pstMsg5, _("Total memory available: %d\n"), Total_Memory_available);
-#endif
-
-    strcat(pstMsg1, pstMsg2);
-    strcat(pstMsg1, pstMsg3);
-    strcat(pstMsg1, pstMsg4);
-    strcat(pstMsg1, pstMsg5);
-
-    return addErrorMessage(_psciErr, API_ERROR_NO_MORE_MEMORY, pstMsg1);
-}
-
 int addErrorMessage(SciErr* _psciErr, int _iErr, const char* _pstMsg, ...)
 {
     int iRet = 0;
index 568c02d..aecc4fa 100644 (file)
@@ -106,7 +106,6 @@ GATEWAY_CPP_SOURCES = \
        sci_gateway/cpp/sci_pause.cpp \
        sci_gateway/cpp/sci_abort.cpp \
        sci_gateway/cpp/sci_who.cpp \
-       sci_gateway/cpp/sci_stacksize.cpp \
        sci_gateway/cpp/sci_format.cpp \
        sci_gateway/cpp/sci_sciargs.cpp \
        sci_gateway/cpp/sci_ieee.cpp \
index e5535e2..e54f7b0 100644 (file)
@@ -271,7 +271,6 @@ am__objects_5 = sci_gateway/cpp/libscicore_la-core_gw.lo \
        sci_gateway/cpp/libscicore_la-sci_pause.lo \
        sci_gateway/cpp/libscicore_la-sci_abort.lo \
        sci_gateway/cpp/libscicore_la-sci_who.lo \
-       sci_gateway/cpp/libscicore_la-sci_stacksize.lo \
        sci_gateway/cpp/libscicore_la-sci_format.lo \
        sci_gateway/cpp/libscicore_la-sci_sciargs.lo \
        sci_gateway/cpp/libscicore_la-sci_ieee.lo \
@@ -772,7 +771,6 @@ GATEWAY_CPP_SOURCES = \
        sci_gateway/cpp/sci_pause.cpp \
        sci_gateway/cpp/sci_abort.cpp \
        sci_gateway/cpp/sci_who.cpp \
-       sci_gateway/cpp/sci_stacksize.cpp \
        sci_gateway/cpp/sci_format.cpp \
        sci_gateway/cpp/sci_sciargs.cpp \
        sci_gateway/cpp/sci_ieee.cpp \
@@ -1294,9 +1292,6 @@ sci_gateway/cpp/libscicore_la-sci_abort.lo:  \
 sci_gateway/cpp/libscicore_la-sci_who.lo:  \
        sci_gateway/cpp/$(am__dirstamp) \
        sci_gateway/cpp/$(DEPDIR)/$(am__dirstamp)
-sci_gateway/cpp/libscicore_la-sci_stacksize.lo:  \
-       sci_gateway/cpp/$(am__dirstamp) \
-       sci_gateway/cpp/$(DEPDIR)/$(am__dirstamp)
 sci_gateway/cpp/libscicore_la-sci_format.lo:  \
        sci_gateway/cpp/$(am__dirstamp) \
        sci_gateway/cpp/$(DEPDIR)/$(am__dirstamp)
@@ -1396,7 +1391,6 @@ distclean-compile:
 @AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_predef.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_quit.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_sciargs.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_stacksize.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_typename.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_warning.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_where.Plo@am__quote@
@@ -2045,13 +2039,6 @@ sci_gateway/cpp/libscicore_la-sci_who.lo: sci_gateway/cpp/sci_who.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_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o sci_gateway/cpp/libscicore_la-sci_who.lo `test -f 'sci_gateway/cpp/sci_who.cpp' || echo '$(srcdir)/'`sci_gateway/cpp/sci_who.cpp
 
-sci_gateway/cpp/libscicore_la-sci_stacksize.lo: sci_gateway/cpp/sci_stacksize.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-sci_stacksize.lo -MD -MP -MF sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_stacksize.Tpo -c -o sci_gateway/cpp/libscicore_la-sci_stacksize.lo `test -f 'sci_gateway/cpp/sci_stacksize.cpp' || echo '$(srcdir)/'`sci_gateway/cpp/sci_stacksize.cpp
-@am__fastdepCXX_TRUE@  $(AM_V_at)$(am__mv) sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_stacksize.Tpo sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_stacksize.Plo
-@AMDEP_TRUE@@am__fastdepCXX_FALSE@     $(AM_V_CXX)source='sci_gateway/cpp/sci_stacksize.cpp' object='sci_gateway/cpp/libscicore_la-sci_stacksize.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_la_CPPFLAGS) $(CPPFLAGS) $(AM_CXXFLAGS) $(CXXFLAGS) -c -o sci_gateway/cpp/libscicore_la-sci_stacksize.lo `test -f 'sci_gateway/cpp/sci_stacksize.cpp' || echo '$(srcdir)/'`sci_gateway/cpp/sci_stacksize.cpp
-
 sci_gateway/cpp/libscicore_la-sci_format.lo: sci_gateway/cpp/sci_format.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-sci_format.lo -MD -MP -MF sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_format.Tpo -c -o sci_gateway/cpp/libscicore_la-sci_format.lo `test -f 'sci_gateway/cpp/sci_format.cpp' || echo '$(srcdir)/'`sci_gateway/cpp/sci_format.cpp
 @am__fastdepCXX_TRUE@  $(AM_V_at)$(am__mv) sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_format.Tpo sci_gateway/cpp/$(DEPDIR)/libscicore_la-sci_format.Plo
diff --git a/scilab/modules/core/help/en_US/configuration/stacksize.xml b/scilab/modules/core/help/en_US/configuration/stacksize.xml
deleted file mode 100644 (file)
index 6e7cc79..0000000
+++ /dev/null
@@ -1,77 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="en" xml:id="stacksize">
-    <refnamediv>
-        <refname>stacksize</refname>
-        <refpurpose>set scilab stack size</refpurpose>
-    </refnamediv>
-    <refsynopsisdiv>
-        <title>Calling Sequence</title>
-        <synopsis>stacksize(n)
-            stacksize('max')
-            stacksize('min')
-            sz = stacksize()
-        </synopsis>
-    </refsynopsisdiv>
-    <refsection>
-        <title>Arguments</title>
-        <variablelist>
-            <varlistentry>
-                <term>n</term>
-                <listitem>
-                    <para>an integer, the required stack size given in number of double precision words (8 bytes each)</para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>sz</term>
-                <listitem>
-                    <para>a 2-vector [total used]</para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-    </refsection>
-    <refsection>
-        <title>Description</title>
-        <para>
-            Scilab stores "usual" variables in a stack <literal>stk</literal>.
-        </para>
-        <para>
-            <code>stacksize(n)</code> allows the user to increase or decrease the size of
-            this stack. The maximum allowed size depends on the amount of
-            free memory and swap space available at the time.
-        </para>
-        <para>
-            <code>stacksize('max')</code> allows the user to increase the size of
-            this stack to the maximum.
-        </para>
-        <para>
-            <code>stacksize('min')</code> allows the user to decrease the size of
-            this stack to the minimum.
-        </para>
-        <para>
-            This function with the <code>n</code> argument can now be used everywhere.
-        </para>
-        <para>
-            <code>sz = stacksize()</code> returns a 2-vector which contains  the current
-            total and used stack size.
-        </para>
-        <para>By default, the size of the stack is 10 000 000 (~76 Mb).</para>
-        <para>On 64 bit platforms, maximum size of the stack is limited to 268 435 454.</para>
-    </refsection>
-    <refsection>
-        <title>Examples</title>
-        <programlisting role="example"><![CDATA[
-currentStackSize = stacksize();
-disp("Maximum stacksize: " + string(currentStackSize(1)))
-disp("Current usage: "+ string(currentStackSize(2)))
-
- ]]></programlisting>
-    </refsection>
-    <refsection role="see also">
-        <title>See Also</title>
-        <simplelist type="inline">
-            <member>
-                <link linkend="who">who</link>
-            </member>
-        </simplelist>
-    </refsection>
-</refentry>
index f90f2ea..d71cdfb 100644 (file)
@@ -29,9 +29,6 @@
         <para>14 "Eye variable undefined in this context."</para>
         <para>15 "Submatrix incorrectly defined."</para>
         <para>16 "Incorrect command!"</para>
-        <para>17 "stack size exceeded! Use stacksize function to increase
-            it."
-        </para>
         <para>18 "Too many variables."</para>
         <para>19 "Problem is singular."</para>
         <para>* 20 "Wrong type for argument #%d: Square matrix expected."</para>
diff --git a/scilab/modules/core/help/fr_FR/configuration/stacksize.xml b/scilab/modules/core/help/fr_FR/configuration/stacksize.xml
deleted file mode 100644 (file)
index 6d5ad72..0000000
+++ /dev/null
@@ -1,70 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="fr" xml:id="stacksize">
-    <refnamediv>
-        <refname>stacksize</refname>
-        <refpurpose>change la taille de la pile
-            Scilab
-        </refpurpose>
-    </refnamediv>
-    <refsynopsisdiv>
-        <title>Séquence d'appel</title>
-        <synopsis>stacksize(n)
-            sz=stacksize()
-            stacksize('min')
-            stacksize('max')
-        </synopsis>
-    </refsynopsisdiv>
-    <refsection>
-        <title>Paramètres</title>
-        <variablelist>
-            <varlistentry>
-                <term>n</term>
-                <listitem>
-                    <para>entier, la taille de pile désirée, en nombre de mots
-                        double-précision (8 octets chacun)
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>sz</term>
-                <listitem>
-                    <para>vecteur à  deux composantes [taille_totale taille_utilisée]</para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-    </refsection>
-    <refsection>
-        <title>Description</title>
-        <para>
-            Scilab stocke les variables usuelles dans une pile <literal>stk</literal>.
-        </para>
-        <para>
-            <literal>stacksize(n)</literal> permet d'augmenter ou de diminuer la taille
-            de cette pile. La taille maximum dépend de la mémoire (physique ou
-            virtuelle) restante.
-        </para>
-        <para>
-            <literal>stacksize('max')</literal> permet d'augmenter la taille au maximum de
-            la pile scilab.
-        </para>
-        <para>
-            <literal>stacksize('min')</literal> permet de diminuer la taille au minimum de
-            la pile scilab.
-        </para>
-        <para>
-            <literal>sz=stacksize()</literal> renvoie un vecteur à  deux composantes
-            contenant la taille totale de la pile et la taille actuellement
-            utilisée.
-        </para>
-        <para>Par défault, la taille de la pile est de 10 000 000 (~76 Mo).</para>
-        <para>Pour les plateformes 64 bit, la taille maximale de la pile est limitée à 268 435 454.</para>
-    </refsection>
-    <refsection role="see also">
-        <title>Voir aussi</title>
-        <simplelist type="inline">
-            <member>
-                <link linkend="who">who</link>
-            </member>
-        </simplelist>
-    </refsection>
-</refentry>
diff --git a/scilab/modules/core/help/ja_JP/configuration/stacksize.xml b/scilab/modules/core/help/ja_JP/configuration/stacksize.xml
deleted file mode 100644 (file)
index cf22ef8..0000000
+++ /dev/null
@@ -1,81 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="stacksize">
-    <refnamediv>
-        <refname>stacksize</refname>
-        <refpurpose>scilab スタックの大きさを設定</refpurpose>
-    </refnamediv>
-    <refsynopsisdiv>
-        <title>呼出し手順</title>
-        <synopsis>stacksize(n)
-            stacksize('max')
-            stacksize('min')
-            sz=stacksize()
-        </synopsis>
-    </refsynopsisdiv>
-    <refsection>
-        <title>引数</title>
-        <variablelist>
-            <varlistentry>
-                <term>n</term>
-                <listitem>
-                    <para>整数, 倍精度ワード単位で指定したスタックの大きさ</para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>sz</term>
-                <listitem>
-                    <para>要素数2のベクトル [total used]</para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-    </refsection>
-    <refsection>
-        <title>説明</title>
-        <para>
-            Scilab は, "通常の"変数をスタック <literal>stk</literal> に保存します.
-        </para>
-        <para>
-            <code>stacksize(n)</code>により
-            ユーザはこのスタックの大きさを増減させることができます.
-            その最大値は,
-            その時点で利用可能な空きメモリおよびスワップ空間大きさに依存します.
-        </para>
-        <para>
-            <code>stacksize('max')</code> により,ユーザは
-            このスタックの大きさを最大値に増加させることができます.
-        </para>
-        <para>
-            <code>stacksize('min')</code>により,ユーザは
-            このスタックの大きさを最小値に減少させることができます.
-        </para>
-        <para>
-            引数<code>n</code>を指定したこの関数は,
-            任意の場所で使用可能です.
-        </para>
-        <para>
-            <code>sz = stacksize()</code>は, カレントの全スタックの大きさと
-            使用中のスタックの大きさを含む要素数2のベクトルを返します.
-        </para>
-        <para>デフォルトで, スタックの大きさは 10 000 000 (~76 Mb)です.</para>
-        <para>64ビットプラットフォームの場合,
-            スタックの最大値は 268 435 454に制限されます.
-        </para>
-    </refsection>
-    <refsection>
-        <title>例</title>
-        <programlisting role="example"><![CDATA[
-currentStackSize = stacksize();
-disp("Maximum stacksize: " + string(currentStackSize(1)))
-disp("Current usage: "+ string(currentStackSize(2)))
-
- ]]></programlisting>
-    </refsection>
-    <refsection role="see also">
-        <title>参照</title>
-        <simplelist type="inline">
-            <member>
-                <link linkend="who">who</link>
-            </member>
-        </simplelist>
-    </refsection>
-</refentry>
index 494d1d8..693f567 100644 (file)
@@ -32,9 +32,6 @@
         <para>14 "Eye variable undefined in this context."</para>
         <para>15 "Submatrix incorrectly defined."</para>
         <para>16 "Incorrect command!"</para>
-        <para>17 "stack size exceeded! Use stacksize function to increase
-            it."
-        </para>
         <para>18 "Too many variables."</para>
         <para>19 "Problem is singular."</para>
         <para>* 20 "Wrong type for argument #%d: Square matrix expected."</para>
diff --git a/scilab/modules/core/help/pt_BR/configuration/stacksize.xml b/scilab/modules/core/help/pt_BR/configuration/stacksize.xml
deleted file mode 100644 (file)
index bbf95a9..0000000
+++ /dev/null
@@ -1,69 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1"?>
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:ns5="http://www.w3.org/1999/xhtml" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:id="stacksize" xml:lang="en">
-    <refnamediv>
-        <refname>stacksize</refname>
-        <refpurpose>ajusta tamanho da pilha do Scilab</refpurpose>
-    </refnamediv>
-    <refsynopsisdiv>
-        <title>Seqüência de Chamamento</title>
-        <synopsis>stacksize(n)
-            stacksize('max')
-            stacksize('min')
-            sz=stacksize()
-        </synopsis>
-    </refsynopsisdiv>
-    <refsection>
-        <title>Parâmetros</title>
-        <variablelist>
-            <varlistentry>
-                <term>n</term>
-                <listitem>
-                    <para>inteiro, o tamanho da pilha requerido dado em número de
-                        palavras de dupla precisão 
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>sz</term>
-                <listitem>
-                    <para>vetor de duas entradas [total used]</para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-    </refsection>
-    <refsection>
-        <title>Descrição</title>
-        <para>O Scilab armazena variáveis "usuais" em uma pilha
-            <literal>stk</literal>.
-        </para>
-        <para>
-            <literal>stacksize(n)</literal> permite aumentar ou diminuir o
-            tamanho desta pilha. O máximo permitido depende da quantidade de memória
-            livre e do espaço de troca ("swap space") disponível no momento.
-        </para>
-        <para>
-            <literal>stacksize('max')</literal> permite ao usuário aumentar o
-            tamanho dessa pilha ao máximo.
-        </para>
-        <para>
-            <literal>stacksize('min')</literal> permite ao usuário diminuir o
-            tamanho dessa pilha ao mínimo.
-        </para>
-        <para>
-            Esta função com o argumento <literal>n</literal> pode ser usada em
-            qualquer lugar.
-        </para>
-        <para>
-            <literal>sz=stacksize()</literal> retorna um vetor de duas entradas
-            que contém os tamanhos correntes de pilha total e usado.
-        </para>
-    </refsection>
-    <refsection role="see also">
-        <title>Ver Também</title>
-        <simplelist type="inline">
-            <member>
-                <link linkend="who">who</link>
-            </member>
-        </simplelist>
-    </refsection>
-</refentry>
index 1713142..f44f0e4 100644 (file)
             incorretamente)
         </para>
         <para>16 "Incorrect command!" (comando incorreto)</para>
-        <para>17 "Stack size exceeded! (Use stacksize function to increase it)"
-            (tamanho de pilha excedido! (Use a função stacksize para
-            aumentá-lo))
-        </para>
         <para>18 "Too many variables." (muitas variáveis!)</para>
         <para>19 "Problem is singular" (o problema é singular)</para>
         <para>* 20 "Wrong type for argument #%d: Square matrix expected." (tipo
diff --git a/scilab/modules/core/help/ru_RU/configuration/stacksize.xml b/scilab/modules/core/help/ru_RU/configuration/stacksize.xml
deleted file mode 100644 (file)
index 4100188..0000000
+++ /dev/null
@@ -1,83 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ru" xml:id="stacksize">
-    <refnamediv>
-        <refname>stacksize</refname>
-        <refpurpose>установка размера стека Scilab'а</refpurpose>
-    </refnamediv>
-    <refsynopsisdiv>
-        <title>Последовательность вызова</title>
-        <synopsis>
-            stacksize(n)
-            stacksize('max')
-            stacksize('min')
-            sz = stacksize()
-        </synopsis>
-    </refsynopsisdiv>
-    <refsection>
-        <title>Аргументы</title>
-        <variablelist>
-            <varlistentry>
-                <term>n</term>
-                <listitem>
-                    <para>
-                        целое число, требуемый размер стека, число двойной точности (double)
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
-                <term>sz</term>
-                <listitem>
-                    <para>
-                        двухэлементный вектор [общий используемый]
-                    </para>
-                </listitem>
-            </varlistentry>
-        </variablelist>
-    </refsection>
-    <refsection>
-        <title>Описание</title>
-        <para>
-            Scilab хранит "обычные" переменные в стеке <literal>stk</literal>.
-        </para>
-        <para>
-            <code>stacksize(n)</code> позволяет пользователю увеличить или уменьшить размер стека.
-            Максимально допустимый размер зависит от количества свободной памяти и пространства подкачки,
-            доступных в данный момент.
-        </para>
-        <para>
-            <code>stacksize('max')</code> позволяет пользователю увеличить размер стека до
-            максимума.
-        </para>
-        <para>
-            <code>stacksize('min')</code> позволяет пользователю уменьшить размер стека до минимума
-        </para>
-        <para>
-            Эта функция с аргументом <code>n</code> может теперь использоваться где угодно.
-        </para>
-        <para>
-            <code>sz = stacksize()</code> возвращает двухэлементный вектор, который содержит текущие общий размер и использованный размер стека.
-        </para>
-        <para>
-            По умолчанию размер стека равен 10 000 000 (~76 мегабайт).
-        </para>
-        <para>
-            На 64-битных платформах максимальный размер стека имеет предел в 268 435 454.
-        </para>
-    </refsection>
-    <refsection>
-        <title>Примеры</title>
-        <programlisting role="example"><![CDATA[
-currentStackSize = stacksize();
-disp("Максимальный размер стека: " + string(currentStackSize(1)))
-disp("В настоящий момент используется: "+ string(currentStackSize(2)))
- ]]></programlisting>
-    </refsection>
-    <refsection role="see also">
-        <title>Смотрите также</title>
-        <simplelist type="inline">
-            <member>
-                <link linkend="who">who</link>
-            </member>
-        </simplelist>
-    </refsection>
-</refentry>
index c3b12f6..ff1015a 100644 (file)
@@ -41,8 +41,6 @@
         <para>14 "Переменная единичной матрицы в данном контексте не определена."</para>
         <para>15 "Подматрица задана некорректно."</para>
         <para>16 "Некорректная команда!"</para>
-        <para>17 "достигнут предел размера стека! Используйте функцию stacksize для его увеличения."
-        </para>
         <para>18 "Слишком много переменных!"</para>
         <para>19 "Задача вырождена."</para>
         <para>(*) 20 "Неверный тип первого аргумента %d: ожидалась квадратная матрица."</para>
index 56ae7c2..6be5485 100644 (file)
@@ -52,7 +52,6 @@ CPP_GATEWAY_PROTOTYPE(sci_error);
 CPP_GATEWAY_PROTOTYPE(sci_pause);
 CPP_GATEWAY_PROTOTYPE(sci_abort);
 CPP_GATEWAY_PROTOTYPE(sci_who);
-CPP_GATEWAY_PROTOTYPE(sci_stacksize);
 CPP_GATEWAY_PROTOTYPE(sci_sciargs);
 CPP_GATEWAY_PROTOTYPE(sci_format);
 CPP_GATEWAY_PROTOTYPE(sci_ieee);
index 774c06b..b9f898d 100644 (file)
@@ -36,7 +36,7 @@ int C2F(sci_dispbpt)(char *fname, unsigned long fname_len);
 int C2F(sci_whereis)(char *fname, unsigned long fname_len);
 int C2F(sci_where)(char *fname, void* pvApiCtx);
 int C2F(sci_havewindow)(char *fname, unsigned long fname_len);
-int C2F(sci_stacksize)(char *fname, unsigned long fname_len);
+//int C2F(sci_stacksize)(char *fname, unsigned long fname_len);
 int C2F(sci_mtlb_mode)(char *fname, unsigned long fname_len);
 int C2F(sci_what)(char *fname, unsigned long fname_len);
 int C2F(sci_ieee)(char *fname, unsigned long fname_len);
index 80af1ce..e7294ed 100644 (file)
@@ -430,34 +430,6 @@ msgid "%s: Wrong type for input arguments #%d and #%d: Strings expected.\n"
 msgstr ""
 
 #
-# File: sci_gateway/c/sci_stacksize.c, line: 205
-# File: sci_gateway/c/sci_stacksize.c, line: 220
-# File: sci_gateway/c/sci_stacksize.c, line: 282
-#, c-format
-msgid "%s: Cannot allocate memory.\n"
-msgstr ""
-
-#
-# File: sci_gateway/c/sci_stacksize.c, line: 156
-# File: sci_gateway/c/sci_stacksize.c, line: 161
-#, c-format
-msgid "%s: Out of bounds value. Not in [%lu,%lu].\n"
-msgstr ""
-
-#
-# File: sci_gateway/c/sci_stacksize.c, line: 166
-#, c-format
-msgid "%s: Wrong size for input argument #%d: Scalar expected.\n"
-msgstr ""
-
-#
-# File: sci_gateway/c/sci_stacksize.c, line: 185
-# File: sci_gateway/c/sci_stacksize.c, line: 190
-#, c-format
-msgid "%s: Wrong type for input argument #%d: Scalar, '%s' or '%s'.\n"
-msgstr ""
-
-#
 # File: sci_gateway/c/sci_lasterror.c, line: 53
 #, c-format
 msgid "%s: Wrong size for input argument #%d: A boolean expected.\n"
@@ -522,40 +494,6 @@ msgid "%s: Invalid module name : %s.\n"
 msgstr ""
 
 #
-# File: sci_gateway/c/sci_stacksize.c, line: 143
-# File: sci_gateway/c/sci_stacksize.c, line: 150
-# File: sci_gateway/c/sci_stacksize.c, line: 273
-#, c-format
-msgid ""
-"%s: Cannot allocate memory.\n"
-"%s\n"
-msgstr ""
-
-#
-# File: sci_gateway/c/sci_stacksize.c, line: 359
-#, c-format
-msgid "%s: Cannot allocate this quantity of memory.\n"
-msgstr ""
-
-#
-# File: sci_gateway/c/sci_stacksize.c, line: 362
-#, c-format
-msgid "%s: The requested size is smaller than the minimal one.\n"
-msgstr ""
-
-#
-# File: sci_gateway/c/sci_stacksize.c, line: 365
-#, c-format
-msgid "%s: Unable to create (or resize) the stack (probably a malloc error).\n"
-msgstr ""
-
-#
-# File: sci_gateway/c/sci_stacksize.c, line: 368
-#, c-format
-msgid "%s: Unknown error.\n"
-msgstr ""
-
-#
 # File: sci_gateway/c/sci_typename.c, line: 37
 #, c-format
 msgid "%s: Wrong number of input arguments: %d or %d expected.\n"
index 0e40fa1..0326771 100644 (file)
@@ -217,13 +217,6 @@ msgstr "%s: 第 %d 及  %d 輸入參數型態錯誤: 應為字串.\n"
 msgid "%s: Cannot allocate memory.\n"
 msgstr "%s: 無法分配記憶體.\n"
 
-#
-# File: sci_gateway/c/sci_stacksize.c, line: 105
-# File: sci_gateway/c/sci_stacksize.c, line: 111
-#, c-format
-msgid "%s: Out of bounds value. Not in [%lu,%lu].\n"
-msgstr "%s: 超出數值限制. 未在 [%lu,%lu] 之內.\n"
-
 #, c-format
 msgid "%s: Wrong size for input argument #%d: Scalar expected.\n"
 msgstr "%s: 第 %d 個輸入參數長度錯誤: 應為純量.\n"
index 133a50c..3e42042 100644 (file)
@@ -14,7 +14,6 @@ function ret = who_user(%__bPrint__)
     //get user variables
     [nams,mem]=who("get"); //get all variables
     p=predef(); //number of system variable
-    st=stacksize()
     nams=nams(1:$-p+1);mem=mem(1:$-p+1);
     //modifiable system variables
     excluded=["demolist","%helps","%helps_modules","home","who_user", "%__bPrint__"];
@@ -63,6 +62,6 @@ function ret = who_user(%__bPrint__)
     "";
     txt;
     "";
-    msprintf(gettext("Using %s elements out of %s"),string(sum(mem)), string(st(1)-(st(2)-sum(mem))))]
+    msprintf(gettext("Using %s elements"),string(sum(mem)))]
     write(%io(2),txt,"(1x,a)")
 endfunction
diff --git a/scilab/modules/core/sci_gateway/c/sci_stacksize.c b/scilab/modules/core/sci_gateway/c/sci_stacksize.c
deleted file mode 100644 (file)
index abc9461..0000000
+++ /dev/null
@@ -1,371 +0,0 @@
-/*
-* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-* Copyright (C) 2006 - INRIA - Allan CORNET
-* Copyright (C) 2009-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
-*
-*/
-#ifdef _MSC_VER
-#include <Windows.h>
-#else
-#include <unistd.h>
-#endif
-#include <stdio.h>
-
-#include "gw_core.h"
-#include "stack-c.h"
-#include "MALLOC.h"
-#include "getmaxMALLOC.h"
-#include "scimem.h"
-#include "localization.h"
-#include "stackinfo.h"
-#include "Scierror.h"
-#include "sciprint.h"
-#include "dynamic_parallel.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(adjuststacksize) ();
-
-/*--------------------------------------------------------------------------*/
-#define MIN_STACKSIZE 180000
-#define PARAM_MAX_STR "max"
-#define PARAM_MIN_STR "min"
-/*--------------------------------------------------------------------------*/
-static int sci_stacksizeNoRhs(char *fname);
-static int sci_stacksizeOneRhs(char *fname);
-static int sci_stacksizeMax(char *fname);
-static int sci_stacksizeMin(char *fname);
-static int setStacksizeMin(char *fname);
-static int setStacksizeMax(char *fname);
-static int setStacksize(unsigned long newsize);
-static unsigned long getCurrentStacksize(void);
-static unsigned long getUsedStacksize(void);
-static char *getStackCreationErrorMessage(int errCode);
-
-/*--------------------------------------------------------------------------*/
-/**
-* stacksize - set scilab stack size
-* Calling Sequence
-* stacksize(n)
-* stacksize('max')
-* stacksize('min')
-* sz=stacksize()
-* Parameters
-* n : integer, the required stack size given in number of double precision words
-* 'max' : try to allocate the maximum of memory
-* 'max' : allocate the minimum of memory
-* sz : 2-vector [total used]
-*/
-/*--------------------------------------------------------------------------*/
-int C2F(sci_stacksize) (char *fname, unsigned long fname_len)
-{
-
-    Rhs = Max(0, Rhs);
-    CheckRhs(0, 1);
-    CheckLhs(0, 1);
-
-    if (Rhs == 0)
-    {
-        return sci_stacksizeNoRhs(fname);
-    }
-    return dynParallelConcurrency() ? dynParallelForbidden(fname) : sci_stacksizeOneRhs(fname);
-}
-
-/*--------------------------------------------------------------------------*/
-static int sci_stacksizeNoRhs(char *fname)
-{
-    int n1 = 0, m1 = 0;
-    int *paramoutINT = NULL;
-    int total = 0;
-    int used = 0;
-
-    paramoutINT = (int *)MALLOC(sizeof(int) * 2);
-
-    C2F(getstackinfo) (&total, &used);
-    paramoutINT[0] = total;
-    paramoutINT[1] = used;
-
-    n1 = 1;
-    m1 = 2;
-    CreateVarFromPtr(Rhs + 1, MATRIX_OF_INTEGER_DATATYPE, &n1, &m1, (int *)&paramoutINT);
-
-    LhsVar(1) = Rhs + 1;
-
-    if (paramoutINT)
-    {
-        FREE(paramoutINT);
-        paramoutINT = NULL;
-    }
-
-    PutLhsVar();
-    return 0;
-}
-
-/*--------------------------------------------------------------------------*/
-static int sci_stacksizeOneRhs(char *fname)
-{
-    int l1 = 0, n1 = 0, m1 = 0;
-    int errCode = 0;
-
-    if (GetType(1) == sci_matrix)
-    {
-        GetRhsVar(1, MATRIX_OF_DOUBLE_DATATYPE, &m1, &n1, &l1);
-        if ((m1 == 1) && (n1 == 1))
-        {
-            unsigned long NEWMEMSTACKSIZE = (unsigned long) * stk(l1);
-
-            /* add 1 for alignment problems */
-            if (is_a_valid_size_for_scilab_stack(NEWMEMSTACKSIZE + 1))
-            {
-                if ((NEWMEMSTACKSIZE >= MIN_STACKSIZE) && (NEWMEMSTACKSIZE <= get_max_memory_for_scilab_stack()))
-                {
-                    /* we backup previous size */
-                    unsigned long backupSize = getCurrentStacksize();
-
-                    errCode = setStacksizeMin(fname);
-                    if (errCode == 0)
-                    {
-                        errCode = setStacksize(NEWMEMSTACKSIZE);
-                        if (errCode == 0)
-                        {
-                            LhsVar(1) = 0;
-                            PutLhsVar();
-                            return 0;
-                        }
-                        else
-                        {
-                            /* restore previous size */
-                            setStacksize(backupSize);
-                            Scierror(10001, _("%s: Cannot allocate memory.\n%s\n"), fname, getStackCreationErrorMessage(errCode));
-                        }
-                    }
-                    else
-                    {
-                        /* restore previous size */
-                        setStacksize(backupSize);
-                        Scierror(10001, _("%s: Cannot allocate memory.\n%s\n"), fname, getStackCreationErrorMessage(errCode));
-                    }
-
-                }
-                else
-                {
-                    Scierror(1504, _("%s: Out of bounds value. Not in [%lu,%lu].\n"), fname, MIN_STACKSIZE, get_max_memory_for_scilab_stack() - 1);
-                }
-            }
-            else
-            {
-                Scierror(1504, _("%s: Out of bounds value. Not in [%lu,%lu].\n"), fname, MIN_STACKSIZE, get_max_memory_for_scilab_stack() - 1);
-            }
-        }
-        else
-        {
-            Scierror(204, _("%s: Wrong size for input argument #%d: Scalar expected.\n"), fname, 1);
-        }
-    }
-    else if (GetType(1) == sci_strings)
-    {
-        char *param = NULL;
-
-        GetRhsVar(1, STRING_DATATYPE, &m1, &n1, &l1);
-        param = cstk(l1);
-        if (strcmp(PARAM_MAX_STR, param) == 0)
-        {
-            return sci_stacksizeMax(fname);
-        }
-        else if (strcmp(PARAM_MIN_STR, param) == 0)
-        {
-            return sci_stacksizeMin(fname);
-        }
-        else
-        {
-            Scierror(204, _("%s: Wrong type for input argument #%d: Scalar, '%s' or '%s'.\n"), fname, 1, "min", "max");
-        }
-    }
-    else
-    {
-        Scierror(204, _("%s: Wrong type for input argument #%d: Scalar, '%s' or '%s'.\n"), fname, 1, "min", "max");
-    }
-    return 0;
-}
-
-/*--------------------------------------------------------------------------*/
-static int sci_stacksizeMax(char *fname)
-{
-    if (setStacksizeMax(fname) == 0)
-    {
-        LhsVar(1) = 0;
-        PutLhsVar();
-    }
-    else
-    {
-        Scierror(10001, _("%s: Cannot allocate memory.\n"), fname);
-    }
-    return 0;
-}
-
-/*--------------------------------------------------------------------------*/
-static int sci_stacksizeMin(char *fname)
-{
-    if (setStacksizeMin(fname) == 0)
-    {
-        LhsVar(1) = 0;
-        PutLhsVar();
-    }
-    else
-    {
-        Scierror(10001, _("%s: Cannot allocate memory.\n"), fname);
-    }
-    return 0;
-}
-
-/*--------------------------------------------------------------------------*/
-static int setStacksizeMin(char *fname)
-{
-    unsigned long memstackused = getUsedStacksize();
-
-    if (memstackused < MIN_STACKSIZE)
-    {
-        return setStacksize(MIN_STACKSIZE);
-    }
-    else
-    {
-        /* Add 3000 security for the stack */
-        return setStacksize(memstackused + 3000);
-    }
-}
-
-/*--------------------------------------------------------------------------*/
-static int setStacksizeMax(char *fname)
-{
-    /* we backup previous size */
-    unsigned long backupSize = getCurrentStacksize();
-
-    /* Bug 5495 on Windows 2000 -- WONT FIX GetLargestFreeMemoryRegion */
-    /* it works on XP, Vista, S7ven */
-    /* GetLargestFreeMemoryRegion() returns a superior size to real value */
-    unsigned long maxmemfree = (GetLargestFreeMemoryRegion()) / sizeof(double);
-
-    /* We have already max */
-    if (maxmemfree <= backupSize)
-    {
-        LhsVar(1) = 0;
-        PutLhsVar();
-        return 0;
-    }
-
-    /* we do a stacksize('min') */
-    if (setStacksizeMin(fname) == 0)
-    {
-        int errCode = 0;
-        if (maxmemfree < MIN_STACKSIZE)
-        {
-            maxmemfree = MIN_STACKSIZE;
-        }
-
-        errCode = setStacksize(maxmemfree);
-        if (errCode != 0)
-        {
-            setStacksize(backupSize);
-            Scierror(10001, _("%s: Cannot allocate memory.\n%s\n"), fname, getStackCreationErrorMessage(errCode));
-        }
-        return 0;
-    }
-    else
-    {
-        /* stacksize('min') fails */
-        /* restore previous size */
-        setStacksize(backupSize);
-        Scierror(10001, _("%s: Cannot allocate memory.\n"), fname);
-    }
-    return 0;
-}
-
-/*--------------------------------------------------------------------------*/
-/*
- *
- * @return 0 if success
- *         -1 if cannot allocate this quantity of memory
- *         -2 if the requested size is smaller than the minimal one
- *         -3 unable to create (or resize) the stack (probably a malloc error
- */
-static int setStacksize(unsigned long newsize)
-{
-    if (newsize != getCurrentStacksize())
-    {
-        if ((newsize >= MIN_STACKSIZE))
-        {
-            if ((newsize <= get_max_memory_for_scilab_stack()))
-            {
-                unsigned long ptr = 0;
-
-                C2F(scimem) (&newsize, &ptr);
-                if (ptr)
-                {
-                    LhsVar(1) = 0;
-                    C2F(putlhsvar) ();
-
-                    C2F(adjuststacksize) (&newsize, &ptr);
-                    return 0;
-                }
-                //sciprint("  malloc error\n");
-                return -3;      /* We haven't been able to create (or resize) the stack (probably a malloc error */
-            }
-            /* Not possible to assign that amount of memory */
-            //sciprint("  Not Enough Minerals !\n");
-            return -1;
-        }
-        /* Trying to create a too small stack */
-        //sciprint("  < MIN_STACKSIZE\n");
-        return -2;
-    }
-    /* Set the stacksize to the same size... No need to do anything */
-    //sciprint("  same size\n");
-    return 0;
-}
-
-/*--------------------------------------------------------------------------*/
-static unsigned long getCurrentStacksize(void)
-{
-    unsigned long memstacktotal = 0;
-    unsigned long memstackused = 0;
-
-    C2F(getstackinfo) (&memstacktotal, &memstackused);
-
-    return memstacktotal;
-}
-
-/*--------------------------------------------------------------------------*/
-static unsigned long getUsedStacksize(void)
-{
-    unsigned long memstacktotal = 0;
-    unsigned long memstackused = 0;
-
-    C2F(getstackinfo) (&memstacktotal, &memstackused);
-
-    return memstackused;
-}
-
-/*--------------------------------------------------------------------------*/
-
-static char *getStackCreationErrorMessage(int errCode)
-{
-    switch (errCode)
-    {
-        case -1:
-            return _("%s: Cannot allocate this quantity of memory.\n");
-            break;
-        case -2:
-            return _("%s: The requested size is smaller than the minimal one.\n");
-            break;
-        case -3:
-            return _("%s: Unable to create (or resize) the stack (probably a malloc error).\n");
-            break;
-    }
-    return _("%s: Unknown error.\n");
-}
-
-/*--------------------------------------------------------------------------*/
index 4a623e3..591b48e 100644 (file)
@@ -47,7 +47,6 @@ int CoreModule::Load()
     symbol::Context::getInstance()->addFunction(Function::createFunction(L"pause", &sci_pause, MODULE_NAME));
     symbol::Context::getInstance()->addFunction(Function::createFunction(L"abort", &sci_abort, MODULE_NAME));
     symbol::Context::getInstance()->addFunction(Function::createFunction(L"who", &sci_who, MODULE_NAME));
-    symbol::Context::getInstance()->addFunction(Function::createFunction(L"stacksize", &sci_stacksize, MODULE_NAME));
     symbol::Context::getInstance()->addFunction(Function::createFunction(L"sciargs", &sci_sciargs, MODULE_NAME));
     symbol::Context::getInstance()->addFunction(Function::createFunction(L"format", &sci_format, MODULE_NAME));
     symbol::Context::getInstance()->addFunction(Function::createFunction(L"ieee", &sci_ieee, MODULE_NAME));
index 556667b..8212f93 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">
     <ClCompile Include="sci_lasterror.cpp" />
     <ClCompile Include="sci_pause.cpp" />
     <ClCompile Include="sci_quit.cpp" />
-    <ClCompile Include="sci_stacksize.cpp" />
     <ClCompile Include="sci_typename.cpp" />
     <ClCompile Include="sci_warning.cpp" />
     <ClCompile Include="sci_where.cpp" />
   <Import Project="$(VCTargetsPath)\Microsoft.Cpp.targets" />
   <ImportGroup Label="ExtensionTargets">
   </ImportGroup>
-</Project>
\ No newline at end of file
+</Project>
index c780b46..29d87ca 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">
@@ -84,9 +84,6 @@
     <ClCompile Include="sci_quit.cpp">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="sci_stacksize.cpp">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="sci_warning.cpp">
       <Filter>Source Files</Filter>
     </ClCompile>
     <Library Include="..\..\..\..\bin\libintl.lib" />
     <Library Include="..\..\..\..\bin\libxml2.lib" />
   </ItemGroup>
-</Project>
\ No newline at end of file
+</Project>
diff --git a/scilab/modules/core/sci_gateway/cpp/sci_stacksize.cpp b/scilab/modules/core/sci_gateway/cpp/sci_stacksize.cpp
deleted file mode 100644 (file)
index 30026e2..0000000
+++ /dev/null
@@ -1,53 +0,0 @@
-/*
- *  Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- *  Copyright (C) 2011-2011 - DIGITEO - Bruno JOFRET
- *
- *  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-en.txt
- *
- */
-
-#include "core_gw.hxx"
-#include "function.hxx"
-#include "double.hxx"
-#include "scilabWrite.hxx"
-
-extern "C"
-{
-#include "localization.h"
-#include "Scierror.h"
-}
-
-using namespace types;
-
-Function::ReturnValue sci_stacksize(types::typed_list &in, int _iRetCount, types::typed_list &out)
-{
-    if (in.size() > 1)
-    {
-        Scierror(77, _("%s: Wrong number of input argument(s): %d to %d expected.\n"), "stacksize", 0, 1);
-        return types::Function::Error;
-    }
-
-    if (_iRetCount > 1)
-    {
-        Scierror(78, _("%s: Wrong number of output argument(s): %d to %d expected.\n"), "stacksize", 0, 1);
-        return types::Function::Error;
-    }
-
-    scilabWriteW(_W("[WARNING]: stacksize: No more need to change Scilab stack size. Function will be removed in version 6.1.\n").c_str());
-
-    if (in.size() == 0)
-    {
-        Double *pDbl = new Double(1, 2);
-        double dbl1 = 1.0;
-        double dbl0 = dbl1 - dbl1;
-        pDbl->set(0, dbl1 / dbl0);
-        pDbl->set(1, dbl1 / dbl0);
-        out.push_back(pDbl);
-    }
-
-    return Function::OK;
-}
index b5f4924..f9ff1bb 100644 (file)
@@ -34,7 +34,6 @@ getsci_
 scigmem_
 scigmem_
 scimem_
-getdefaultstacksize_
 initfuncprot_
 initscilab_
 lmatj_
index 9b51c70..b63fa29 100644 (file)
@@ -11,8 +11,6 @@
 
 // <-- BENCH NB RUN : 10 -->
 
-stacksize("max");
-
 foo1 = zeros(4096,4096);
 foo2 = zeros(4096,4096);
 foo3 = zeros(4096,4096);
index 87cc82b..c4c3a5e 100644 (file)
@@ -11,8 +11,6 @@
 
 // <-- BENCH NB RUN : 10 -->
 
-stacksize("max");
-
 data = tlist(["mydata" "foo1" "foo2" "foo3"], [], [], []);
 
 data.foo1 = zeros(4096,4096);
index b0c9304..fd4d0a9 100644 (file)
@@ -11,8 +11,6 @@
 
 // <-- BENCH NB RUN : 10 -->
 
-stacksize("max");
-
 data = tlist(["mydata" "foo1" "foo2" "foo3"], [], [], []);
 
 data.foo1 = zeros(4096,4096);
index 98135c6..0246038 100644 (file)
@@ -126,8 +126,6 @@ bench_run([],[],'nb_run=2000');
 
 // <-- BENCH NB RUN : 10 -->
 
-stacksize(30000000);
-
 a = 0;
 b = 0;
 a = rand(900, 900, 'n');
index c84e10b..34e4f3d 100644 (file)
@@ -117,7 +117,6 @@ bench_run([],[],'nb_run=2000');
 // Benchmark for chol function
 //==============================================================================
 // <-- BENCH NB RUN : 10 -->
-stacksize(30000000);
 a = 0;
 b = 0;
 a = rand(900, 900, 'n');
index 2c5c210..dd10b14 100644 (file)
             In normal mode, <literal>%nan</literal> are supported in <literal>N</literal> but not in <literal>H</literal>. In <literal>"rows"</literal> or <literal>"cols"</literal> modes, <literal>%nan</literal> are supported everywhere.
         </para>
         <para>
-            In normal element-wise mode, members(..) uses <link linkend="dsearch">dsearch(..)</link> to fastly proceed with booleans, integer-encoded numbers (any length 8-16-32 bits signed or not), and real numbers. For complex numbers, texts, and polynomials, a slower and more memory-consuming algorithm is used. For better performances with these types of data, for big <literal>N</literal> or/and <literal>H</literal>, the user may priorly increase the <link linkend="stacksize">stacksize(..)</link>. For long calculations, a progression bar is displayed.
+            In normal element-wise mode, members(..) uses <link linkend="dsearch">dsearch(..)</link> to fastly proceed with booleans, integer-encoded numbers (any length 8-16-32 bits signed or not), and real numbers. For complex numbers, texts, and polynomials, a slower and more memory-consuming algorithm is used. For long calculations, a progression bar is displayed.
         </para>
     </refsection>
     <refsection>
index 15b2f42..999d65d 100644 (file)
             <literal>%nan</literal> est toujours admis dans <literal>N</literal>, mais pas dans <literal>H</literal> en mode normal.
         </para>
         <para>
-            En mode normal (élément par élément), members(..) utilise la fonction <link linkend="dsearch">dsearch(..)</link> afin de traiter efficacement les tableaux de booléens, d'entiers encodés (de tous formats : 8-16-32 bits signés ou non), ou de nombres réels. Le traitement des tableaux de nombres complexes, de polynômes ou de textes est réalisé par un algorithme plus lent et gourmand en mémoire vive. Pour de meilleures performances avec ces types de données, en particulier si <literal>N</literal> ou/et <literal>H</literal> sont de grandes tailles, l'utilisateur peut préalablement augmenter la taille de la pile dévolue aux variables en utilisant <link linkend="stacksize">stacksize(..)</link>. Lorsque le traitement est long, une jauge de progression est affichée.
+            En mode normal (élément par élément), members(..) utilise la fonction <link linkend="dsearch">dsearch(..)</link> afin de traiter efficacement les tableaux de booléens, d'entiers encodés (de tous formats : 8-16-32 bits signés ou non), ou de nombres réels. Le traitement des tableaux de nombres complexes, de polynômes ou de textes est réalisé par un algorithme plus lent et gourmand en mémoire vive. Lorsque le traitement est long, une jauge de progression est affichée.
         </para>
     </refsection>
     <refsection>
index ecc5f85..adac7a4 100644 (file)
             
             <link linkend="dsearch">dsearch(..)</link> を使用します.
             
-            複素数, テキスト, 多項式の場合,
-            
-            より低速でよりメモリ消費が多いアルゴリズムが使用されます.
-            
-            これらのデータ型についてより高い性能を得たい場合,
-            
-            より大きな<literal>N</literal>または<literal>H</literal>の場合, 
-            
-            ユーザは
-            
-            <link linkend="stacksize">stacksize(..)</link>を増加させることになります. 
-            
             計算時間が長い場合, 進行状況の棒グラフが表示されます.
             
         </para>
index 90d2b9f..bf735f2 100644 (file)
@@ -277,26 +277,9 @@ function [nb, loc] = members(A, S, varargin)
             //    available and needed memory
             function j = set_j(i, LS, memS, rA)
                 // rA : remaining unprocessed part of A
-                [memA2, memS2, memtmp] = varspace("A2", "S2", "tmp");
-                // Available memory [bytes]:
-                m = stacksize();
-                avail = (m(1) - m(2))*8 + memA2 + memS2 + memtmp - 16*(i-1); // [bytes]
-                avail = 0.15*avail;  // A lot of memory is used as Intermediate memory
-                // Diadic loop on e = j-i+1 (slice's thickness):
-                // Init
                 e = size(rA, "*");
                 Vtest = rA(1:e);
                 memrA = varspace("Vtest");   // [bytes]
-                // Loop fitting the slice's thickness e for the available memory
-                while e*(memS+8*LS+16)+LS*memrA > avail & e > 1
-                    e = ceil(e/2);   // Remaining thickness => divided by 2
-                    Vtest = rA(1:e);
-                    memrA = varspace("Vtest");
-                end
-                if (e*(memS+8*LS+16)+LS*memrA > avail) then
-                    msg = _("%s: not enough memory to proceed\n");
-                    error(sprintf(msg, "members"));
-                end
                 j = i+e-1;
             endfunction
 
index a824831..1a2c182 100644 (file)
@@ -11,8 +11,6 @@
 
 // <-- BENCH NB RUN : 10000 -->
 
-stacksize(30000000);
-
 // <-- BENCH START -->
-a = ceil(1000 * rand(700,1,'u'));
+a = ceil(1000 * rand(700,1,"u"));
 // <-- BENCH END -->
index 099b91e..575f318 100644 (file)
 
 // <-- BENCH NB RUN : 10 -->
 
-stacksize(30000000);
-
 a = 0;
 b = 0;
-a = rand(2000000, 1, 'n');
+a = rand(2000000, 1, "n");
 
 // <-- BENCH START -->
 b = -gsort(-a);
index 2bbb7d0..b99cbdf 100644 (file)
 
 // <-- BENCH NB RUN : 1000 -->
 
-stacksize(30000000);
-
 a   = 0;
 b   = 0;
 phi = 1.6180339887498949;
 
-a = floor(1000 * rand(7500, 1, 'u'));
+a = floor(1000 * rand(7500, 1, "u"));
 
 // <-- BENCH START -->
 b = (phi.^a - (-phi).^(-a)) / sqrt(5);
index 4bc0048..63a2168 100644 (file)
 //==============================================================================
 
 a = 0; b = 0;
-stacksize(30000000);
-a = rand(800000, 1, 'n');
+a = rand(800000, 1, "n");
 
 // <-- BENCH START -->
-    b = fft(a, -1);
+b = fft(a, -1);
 // <-- BENCH END -->
 
index de716be..31445a8 100644 (file)
 Directories=[];
 CurrentDirectory=pwd();
 
-// set stacksize
 // because scilab.start not called when we build macros
 // Previously (wrong place), it was defined in buildmacros.sce of metanet module
 
-//stacksize(5000000);
-
 modules=getmodules();
 index=size(modules);
 
index 8c698b3..80a3f78 100644 (file)
@@ -25,7 +25,6 @@
 //
 //    -->execstr("function foo")
 // ...
-stacksize(2e6);
 execstr("function foo","errcatch");
 str = lasterror();
 if str<>msprintf(gettext("endfunction is missing.\n")) then bugmes();quit;end
index 076fe94..4dcddfd 100644 (file)
 //
 // <-- Short Description -->
 //    Bug Report Id: 126632003824121343
-//     error messages are strange to say least, scilab gets stymied after the second attempt. 
+//     error messages are strange to say least, scilab gets stymied after the second attempt.
 //
 //    ps: I realize that execstr() is most likely responsible for all what I posted earlier today about ScilabEval on the newsgroup
 //
 //    On Scilab CVS with " execstr() " function
 //    The Error Messages are:
-//      -->execstr("function foo")             
-//     !--error    17 
+//      -->execstr("function foo")
+//     !--error    17
 //    stack size exceeded! (Use stacksize function to increase it)
 //    Memory used for variables :     17086
 //    Intermediate memory needed:    982925
 //    Total  memory available   :   1000001
-//    in  execstr instruction    called by :  
+//    in  execstr instruction    called by :
 //    execstr("function foo")
 //
 //
@@ -35,7 +35,6 @@
 //    -->execstr("function foo")
 // ...
 
-stacksize(2e6);
 execstr("function foo","errcatch");
 str = lasterror();
 if str<>msprintf(gettext("endfunction is missing.\n")) then pause,end
index c6145e1..9fcec29 100644 (file)
@@ -13,8 +13,6 @@
 //
 // <-- Short Description -->
 // Scilab crashes when trying to plot2d huge amounts of data.
-stacksize(1e8)
-[WARNING]: stacksize: No more need to change Scilab stack size. Function will be removed in version 6.1.
 p=1:9000000;
 q=9000000:-1:1;
 plot2d(p,q)
index df3aa9e..db9f614 100644 (file)
 // <-- Short Description -->
 // Scilab crashes when trying to plot2d huge amounts of data.
 
-stacksize(1e8)
 p=1:9000000;
 q=9000000:-1:1;
-plot2d(p,q)   
+plot2d(p,q)
 
 // scilab should display an error message, but not crash.
 
index 74beb1b..b10b3a2 100644 (file)
@@ -12,8 +12,6 @@
 //
 // <-- Short Description -->
 // Graphic is slow when lack drawlater/drawnow
-stacksize(20000000);
-[WARNING]: stacksize: No more need to change Scilab stack size. Function will be removed in version 6.1.
 data=ones(30000,100);
 subplot(231)
 plot(data)
index 0fda6b1..82b8c66 100644 (file)
 // <-- Short Description -->
 // Graphic is slow when lack drawlater/drawnow
 
-stacksize(20000000);
 data=ones(30000,100);
 subplot(231)
 plot(data)
 xgrid
-//now 
+//now
 subplot(232)
 plot(data)
 xgrid
-//and then until 
+//and then until
 subplot(236)
 xgrid
-plot(data) 
+plot(data)
 
 // check that is not too slow and that the graphic window don't flicker
 
index c82b742..b9ffc5d 100644 (file)
@@ -14,8 +14,6 @@
 // <-- Short Description -->
 // When using grayplot, you cannot have different dimensions in entry.
 // 
-stacksize(1e8);
-[WARNING]: stacksize: No more need to change Scilab stack size. Function will be removed in version 6.1.
 x=1:2000; y=1:1000; m=rand(1000,2000);
 grayplot(x,y,m');
 // used to crash violently
index d4bad7b..978a00f 100644 (file)
@@ -14,9 +14,7 @@
 //
 // <-- Short Description -->
 // When using grayplot, you cannot have different dimensions in entry.
-// 
-
-stacksize(1e8);
+//
 
 x=1:2000; y=1:1000; m=rand(1000,2000);
 grayplot(x,y,m');
index 7e50142..d4bd78f 100644 (file)
 // http://bugzilla.scilab.org/show_bug.cgi?id=4176
 //
 // <-- Short Description -->
-// Plotting huge amount of data nothing is displayed and no errors are displayed. 
-// 
+// Plotting huge amount of data nothing is displayed and no errors are displayed.
+//
 
-stacksize('max')
 Maximum=3e6
 dt=1/Maximum;
 t=0:dt:1;
index 16f5503..8b023eb 100644 (file)
@@ -25,7 +25,6 @@ function Xd=f(t,X)
     sigd=z^2;
     Xd=[pd;pid;xhd;zd;sigd];
 endfunction
-stacksize(80000000);
 lam=.8;
 p0=1;
 pi0=inv(p0);
@@ -51,7 +50,6 @@ delete(gcf());
 clear
 scf();
 N=5d6;
-stacksize(6*N);
 TT=linspace(0,1,N);
 plot2d(TT,sin(TT));
 delete(gcf());
index 81683d3..27a93e1 100644 (file)
@@ -28,7 +28,6 @@ function Xd=f(t,X)
     Xd=[pd;pid;xhd;zd;sigd];
 endfunction
 
-stacksize(80000000);
 lam=.8;
 
 p0=1;
@@ -56,7 +55,6 @@ delete(gcf());
 clear
 scf();
 N=5d6;
-stacksize(6*N);
 TT=linspace(0,1,N);
 plot2d(TT,sin(TT));
 delete(gcf());
index c6a19a4..9b48e32 100644 (file)
@@ -43,10 +43,6 @@ function %i_Matplot(z,strf,rect,nax,frameflag,axesflag)
         error(msprintf(gettext("%s: Wrong value for input argument: ''%s'', ''%s'', ''%s'', ''%s'' or ''%s'' expected.\n"),"%%i_Matplot","strf","rect","nax","frameflag","axesflag"));
     end
 
-
-
-    Max=stacksize();Max=int((Max(1)-Max(2))/3)
-    if Max<M*N+100 then stacksize(Max+M*N*1.5),end
     execstr("Matplot(double(z),"+strcat(opts,",")+")")
 
 endfunction
index 49b29d7..3772022 100644 (file)
@@ -998,10 +998,10 @@ maintainer-clean-generic:
        @echo "This command is intended for maintainers to use"
        @echo "it deletes files that may require special tools to rebuild."
        -test -z "$(BUILT_SOURCES)" || rm -f $(BUILT_SOURCES)
-@JAVASCI_FALSE@install-data-local:
-@JAVASCI_FALSE@clean-local:
 @JAVASCI_FALSE@distclean-local:
+@JAVASCI_FALSE@install-data-local:
 @JAVASCI_FALSE@install-html-local:
+@JAVASCI_FALSE@clean-local:
 clean: clean-am
 
 clean-am: clean-generic clean-libtool clean-local \
index 8a56ee9..4ef7a9c 100644 (file)
@@ -50,7 +50,7 @@ int intdsyev(char* fname)
             /* LWORK=C2F(maxvol)(&WORK, "d", 1L);   max memory currently available */
             if (LWORK < LWORKMIN)
             {
-                sciprint("not enough memory (use stacksize)");
+                sciprint("not enough memory");
                 SciError(9999);
             };
             CreateVar(3, MATRIX_OF_DOUBLE_DATATYPE, &LWORK, &un, &lWORK);
@@ -73,7 +73,7 @@ int intdsyev(char* fname)
             LWORK = C2F(maxvol)(&WORK, "d", 1L); /* max memory currently available */
             if (LWORK < LWORKMIN)
             {
-                sciprint("not enough memory (use stacksize)");
+                sciprint("not enough memory");
                 SciError(9999);
             };
             CreateVar(3, MATRIX_OF_DOUBLE_DATATYPE, &LWORK, &un, &lWORK);
@@ -90,6 +90,6 @@ int intdsyev(char* fname)
         default:
             return 0;
     }
-    return(0);
+    return (0);
 }
 /* -------------------------------------------------------------------------- */
index d03eea0..e0df1c9 100644 (file)
 
 // <-- BENCH NB RUN : 10 -->
 
-stacksize(30000000);
-
 a = 0;
 b = 0;
-a = rand(900, 900, 'n');
+a = rand(900, 900, "n");
 a = a'*a;
 
 // <-- BENCH START -->
index 042d2bd..47ca8ad 100644 (file)
 
 // <-- BENCH NB RUN : 10 -->
 
-stacksize(30000000);
 a = 0;
 b = 0;
-a = rand(650, 650,'n');
+a = rand(650, 650,"n");
 
 // <-- BENCH START -->
 b = det(a);
index 06e7635..b9ba7f1 100644 (file)
@@ -11,8 +11,6 @@
 
 // <-- BENCH NB RUN : 10 -->
 
-stacksize(30000000);
-
 p     = 0;
 q     = 0;
 vt    = 0;
@@ -34,7 +32,7 @@ Rvmax = 0;
 f     = 0;
 c     = 0;
 d     = 0;
-x     = abs(rand(37,37,'n'));
+x     = abs(rand(37,37,"n"));
 
 // <-- BENCH START -->
 // Calculation of Escoufier's equivalent vectors
@@ -44,29 +42,29 @@ vr = [];                                       // Result: ordered variables
 RV = [1:p];                                    // Result: correlations
 
 for j = 1:p                                    // loop on the variable number
-       Rvmax = 0;
-       for k = 1:(p-j+1)                          // loop on the variables
-               x2 = [x, x(:, vr), x(:, vt(k))];       // New table to test
-               // R = corrcoef(x2);                   // Correlations table
-               // Not in scilab, so the 5 following lines do it
-               q   = size(x2, 1);
-               x2  = x2 - ones (q, 1) * sum (x2, 'r') / q;
-               c   = conj(x2' * x2 / (q - 1));
-               d   = diag(c);
-               R   = c ./ sqrt(d * d');
-               Ryy = R(1:p, 1:p);
-               Rxx = R(p+1:p+j, p+1:p+j);
-               Rxy = R(p+1:p+j, 1:p);
-               Ryx = Rxy';
-               rvt = trace(Ryx*Rxy)/((trace(Ryy^2)*trace(Rxx^2))^0.5); // RV calculation
-               if rvt > Rvmax
-                       Rvmax = rvt;                        // test of RV
-                       vrt(j) = vt(k);                     // temporary held variable
-               end
-       end
-       vr(j) = vrt(j);                             // Result: variable
-       RV(j) = Rvmax;                              // Result: correlation
-       f     = find(vt~=vr(j));                    // identify the held variable
-       vt    = vt(f);                              // reidentify variables to test
+    Rvmax = 0;
+    for k = 1:(p-j+1)                          // loop on the variables
+        x2 = [x, x(:, vr), x(:, vt(k))];       // New table to test
+        // R = corrcoef(x2);                   // Correlations table
+        // Not in scilab, so the 5 following lines do it
+        q   = size(x2, 1);
+        x2  = x2 - ones (q, 1) * sum (x2, "r") / q;
+        c   = conj(x2' * x2 / (q - 1));
+        d   = diag(c);
+        R   = c ./ sqrt(d * d');
+        Ryy = R(1:p, 1:p);
+        Rxx = R(p+1:p+j, p+1:p+j);
+        Rxy = R(p+1:p+j, 1:p);
+        Ryx = Rxy';
+        rvt = trace(Ryx*Rxy)/((trace(Ryy^2)*trace(Rxx^2))^0.5); // RV calculation
+        if rvt > Rvmax
+            Rvmax = rvt;                        // test of RV
+            vrt(j) = vt(k);                     // temporary held variable
+        end
+    end
+    vr(j) = vrt(j);                             // Result: variable
+    RV(j) = Rvmax;                              // Result: correlation
+    f     = find(vt~=vr(j));                    // identify the held variable
+    vt    = vt(f);                              // reidentify variables to test
 end
 // <-- BENCH END -->
index 28b577c..46285a5 100644 (file)
 
 // <-- BENCH NB RUN : 100 -->
 
-stacksize(30000000);
-
 a = 0;
 b = 0;
 
-a = rand(400, 400,'n');
+a = rand(400, 400,"n");
 
 // <-- BENCH START -->
 b = inv(a);
index 9b3c96e..527cde7 100644 (file)
 
 // <-- BENCH NB RUN : 10 -->
 
-stacksize(30000000);
-
 a = 0;
 b = 0;
 
-a = abs(rand(1500,1500,'n')/10);
+a = abs(rand(1500,1500,"n")/10);
 
 // <-- BENCH START -->
 b = a';
index e9835bb..80f8856 100644 (file)
 
 // <-- BENCH NB RUN : 10 -->
 
-stacksize(30000000);
-
 a = 0;
 b = 0;
-a = abs(rand(800, 800, 'n')/2);
+a = abs(rand(800, 800, "n")/2);
 
 // <-- BENCH START -->
 b = a.^1000;
index ba99533..17cbe29 100644 (file)
 
 // <-- BENCH NB RUN : 10 -->
 
-stacksize(30000000);
-
 a = 0;
 b = 0;
-a = rand(700,700,'n');
+a = rand(700,700,"n");
 
 // <-- BENCH START -->
 b = a'*a;
index 588e827..fb88114 100644 (file)
 
 // <-- BENCH NB RUN : 10 -->
 
-stacksize(30000000);
-
 a = 0;
 b = 0;
 
-a = rand(600,600,'n');
+a = rand(600,600,"n");
 b = 1:600;
 b = b';
 
index d6bf9d9..4175ec8 100644 (file)
 
 // <-- BENCH NB RUN : 10 -->
 
-stacksize(30000000);
-
 a = 0;
 b = 0;
 
-a = rand(320,320,'n');
+a = rand(320,320,"n");
 
 // <-- BENCH START -->
 b = spec(a);
index 7a62600..b32b224 100644 (file)
@@ -54,7 +54,7 @@ function %st_p(s)
             // then we do not call sci2exp
             // because the returned value will be ignored at line 64: size(str,"*")==1
             // Note that ll(1)/2 elements could be the max because of colon, semi-colon and brackets added between elements by sci2exp
-            if sz(1)==1 & type(value) <> 9 & prod(sz) < ll(1) then // This line can avoid some stacksize error when field contains a big matrix
+            if sz(1)==1 & type(value) <> 9 & prod(sz) < ll(1) then // This line can avoid some memory issues when field contains a big matrix
                 str=sci2exp(value,ll(1))
             else
                 str="["+strcat(string(size(value)),"x")+" "+tp+"]"
index 98b0ac5..68bd3e0 100644 (file)
@@ -118,9 +118,6 @@ end; ]]></programlisting>
         <para>
             As it is not possible to synchronize the access to Java Virtual Machine accross separate memory spaces, Scilab macros called by parallel_run are not allowed to use the JVM. This unfortunately encompass all the graphics functions as the Scilab GUI is based on Java. The spawned Scilab process are run in "nwni" mode their calls to <link linkend="disp">disp()</link> are redirected to the standard output.
         </para>
-        <para>
-            A last limitation imposed by the aim to minimize data shuffling info memory is that no stack resizing (via <link linkend="stacksize">stacksize()</link>) should take place during a call to <literal>parallel_run</literal> (neither by the function f nor by the prologue or epilogue cf. infra.). Attempts to do do will result in a warning and leave the stack untouched.
-        </para>
     </refsection>
     <refsection>
         <title>Advanced usage</title>
index 25c6a51..41304fa 100644 (file)
@@ -7,7 +7,6 @@
 // are also available at
 // http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
 // <-- CLI SHELL MODE -->
-stacksize("max");
 ilib_verbose(0);
 funcprot(0);
 function make_compiled_function(name, ext, code)
index 96fd0d3..ac1cd5e 100644 (file)
 
 // <-- CLI SHELL MODE -->
 
-stacksize("max");
 ilib_verbose(0);
 funcprot(0);
 function make_compiled_function(name, ext, code)
-filename=name+ext;
-mputl(code, filename);
-ilib_for_link(name,filename,[],"c");
-exec loader.sce;
-mdelete(filename);
+    filename=name+ext;
+    mputl(code, filename);
+    ilib_for_link(name,filename,[],"c");
+    exec loader.sce;
+    mdelete(filename);
 endfunction
 
-g_fun_name='test_fun';
-c_prog=['#include  <math.h>'
-'void '+g_fun_name+'(void const* const* args, void *const* res) {'
-'*((double*)*res)= 2.*(((double*)args[0])[0]);'
-'}'];
+g_fun_name="test_fun";
+c_prog=["#include  <math.h>"
+"void "+g_fun_name+"(void const* const* args, void *const* res) {"
+"*((double*)*res)= 2.*(((double*)args[0])[0]);"
+"}"];
 
-make_compiled_function(g_fun_name, '.c',c_prog);
+make_compiled_function(g_fun_name, ".c",c_prog);
 
 args=[1,2];
 res=parallel_run(args,g_fun_name,1);
@@ -38,12 +37,12 @@ function a= g(arg1); a=2*arg1; endfunction;
 res=parallel_run(args, g);
 if res<>[2, 4] then pause,end
 
-fun_name='test_fun_2_1';
-c_prog=['#include  <math.h>'
-'void '+fun_name+'(double const* const* args, double ** res) {'
-'res[0][0]= .5*args[0][0]; res[0][1]= .25*args[0][1];res[1][0]= 2*args[1][0];'
-'}'];
-make_compiled_function(fun_name, '.c',c_prog);
+fun_name="test_fun_2_1";
+c_prog=["#include  <math.h>"
+"void "+fun_name+"(double const* const* args, double ** res) {"
+"res[0][0]= .5*args[0][0]; res[0][1]= .25*args[0][1];res[1][0]= 2*args[1][0];"
+"}"];
+make_compiled_function(fun_name, ".c",c_prog);
 
 arg1=[1,2;4,5]; arg2=[2,3];
 [res1, res2] =parallel_run(arg1, arg2,fun_name,"constant", [2;1]);
@@ -67,7 +66,7 @@ if res2 <>[4,4]  then pause,end
 
 
 function [r_min, r_med, r_max]= min_med_max(a, b, c)
-  r_min=min(a,b,c); r_med=median([a,b,c]); r_max=max(a,b,c);
+    r_min=min(a,b,c); r_med=median([a,b,c]); r_max=max(a,b,c);
 endfunction
 
 N=10;
@@ -75,7 +74,7 @@ N=10;
 A=rand(1:N);B=rand(1:N);C=rand(1:N);
 Min=zeros(N); Med=Min; Max=Min;
 for i =1:N
-  [Min(i), Med(i), Max(i)]= min_med_max(A(i), B(i), C(i));
+    [Min(i), Med(i), Max(i)]= min_med_max(A(i), B(i), C(i));
 end;
 
 [Min_mc,Med_mc,Max_mc]=parallel_run(A,B,C,"min_med_max");
@@ -83,55 +82,55 @@ end;
 if max(max(Min-Min_mc', Med-Med_mc',Max-Max_mc')) > %eps  then pause,end
 
 
-fun_name='min_med_max_cxx';
-c_prog=['#include <algorithm>'
-'extern ""C""{'
-'void '+fun_name+'(void const*const* args, void*const* res) {'
-'    double a(((double const*const*)args)[0][0]),b(((double const*const*)args)[1][0]),c(((double const*const*)args)[2][0]);'
-'    if(b<a){ std::swap(a,b);}'
-'    if(c<a){ std::swap(a,c);}'
-'    if(c<b){ std::swap(b,c);}'
-'    ((double*const*)res)[0][0]=a; ((double*const*)res)[1][0]=b; ((double*const*)res)[2][0]= c;'
-'    return;'
-'  }'
-'}'];
-make_compiled_function(fun_name, '.cxx',c_prog);
+fun_name="min_med_max_cxx";
+c_prog=["#include <algorithm>"
+"extern ""C""{"
+"void "+fun_name+"(void const*const* args, void*const* res) {"
+"    double a(((double const*const*)args)[0][0]),b(((double const*const*)args)[1][0]),c(((double const*const*)args)[2][0]);"
+"    if(b<a){ std::swap(a,b);}"
+"    if(c<a){ std::swap(a,c);}"
+"    if(c<b){ std::swap(b,c);}"
+"    ((double*const*)res)[0][0]=a; ((double*const*)res)[1][0]=b; ((double*const*)res)[2][0]= c;"
+"    return;"
+"  }"
+"}"];
+make_compiled_function(fun_name, ".cxx",c_prog);
 [Min_mc,Med_mc,Max_mc]=parallel_run(A,B,C, fun_name);
 
 if max(max(Min-Min_mc', Med-Med_mc',Max-Max_mc')) > %eps  then pause,end
 
 function r= quantiles(data, ranks)
-  tmp=gsort(data,'g','i');
-  r=tmp(ranks);
+    tmp=gsort(data,"g","i");
+    r=tmp(ranks);
 endfunction
 
 data=matrix(rand(1:N*N),N,N);
 
 R4_6_7=matrix(zeros(1:3*N),N,3);
 for i =1:N
-  R4_6_7(i,:)= quantiles(data(i,:),[4,6,7]);
+    R4_6_7(i,:)= quantiles(data(i,:),[4,6,7]);
 end;
 
 R4_6_7_mc=parallel_run(data',[4,6,7]',"quantiles", 3)';
 
 if max(R4_6_7-R4_6_7_mc)  > %eps  then pause,end
 
-fun_name='quantiles_cxx';
-
-c_prog=['#include<algorithm>'
-'extern ""C""{'
-' void '+fun_name+ '(void const*const* args, void*const* res){'
-'   double * data(((double *const*)args)[0]);'
-'   int data_size(static_cast<int>(((double const*const*)args)[1][0]));'
-'   double const* ranks(((double *const*)args)[2]);'
-'   int ranks_size(static_cast<int>(((double *const*)args)[3][0]));'
-'   std::sort(data,data+data_size);'
-'   for(int i(0); i != ranks_size; ++i)'
-'     { ((double*const*)res)[0][i]= data[static_cast<int>(ranks[i])-1]; }'
-'   return;'
-' }'
-'}'];
-make_compiled_function(fun_name, '.cxx',c_prog);
+fun_name="quantiles_cxx";
+
+c_prog=["#include<algorithm>"
+"extern ""C""{"
+" void "+fun_name+ "(void const*const* args, void*const* res){"
+"   double * data(((double *const*)args)[0]);"
+"   int data_size(static_cast<int>(((double const*const*)args)[1][0]));"
+"   double const* ranks(((double *const*)args)[2]);"
+"   int ranks_size(static_cast<int>(((double *const*)args)[3][0]));"
+"   std::sort(data,data+data_size);"
+"   for(int i(0); i != ranks_size; ++i)"
+"     { ((double*const*)res)[0][i]= data[static_cast<int>(ranks[i])-1]; }"
+"   return;"
+" }"
+"}"];
+make_compiled_function(fun_name, ".cxx",c_prog);
 
 R4_6_7_mc=parallel_run(data',N,[4,6,7]',3,fun_name, 3)';
 
@@ -144,19 +143,19 @@ L=10; // number of blocks
 
 data=spzeros(N*L,N*L);
 for k=1:L
-  kk=(k-1)*N+1:k*N;
-  data(kk,kk)=matrix(rand(1:N*N),N,N);
+    kk=(k-1)*N+1:k*N;
+    data(kk,kk)=matrix(rand(1:N*N),N,N);
 end
 
 function r= quantiles_sparse(indices_i, indices_j, ranks)
-  tmp=gsort(full(data(indices_i, indices_j)),'g','i');
-  r=tmp(ranks);
+    tmp=gsort(full(data(indices_i, indices_j)),"g","i");
+    r=tmp(ranks);
 endfunction
 
 R3_6_9=matrix(zeros(1:3*L),L,3);
 for k=1:L
-  kk=(k-1)*N+1:k*N;
-  R3_6_9(k,:)=quantiles_sparse(kk,kk, [3,6,9])';
+    kk=(k-1)*N+1:k*N;
+    R3_6_9(k,:)=quantiles_sparse(kk,kk, [3,6,9])';
 end;
 
 idx=matrix(1:(L*N), N,L);
@@ -165,32 +164,32 @@ R3_6_9_mc=parallel_run(idx,idx,[3,6,9]',"quantiles_sparse",3)';
 if max(R3_6_9-R3_6_9_mc) > %eps  then pause,end
 
 function r=block_invert(indices_i, indices_j)
-  r=inv(full(data(indices_i, indices_j)));
+    r=inv(full(data(indices_i, indices_j)));
 endfunction
 
 sp_inv=spones(data);
 
 for k=1:L
-  kk=(k-1)*N+1:k*N;
-  sp_inv(kk,kk)=block_invert(kk,kk);
+    kk=(k-1)*N+1:k*N;
+    sp_inv(kk,kk)=block_invert(kk,kk);
 end;
 
 
 sp_inv_1=sp_inv;
 
 function r= invert_one_block(block_size,k)
-  kk=(k-1)*block_size+1:k*block_size;
-  r=full(inv(data(kk,kk)));// A from global scope
+    kk=(k-1)*block_size+1:k*block_size;
+    r=full(inv(data(kk,kk)));// A from global scope
 endfunction;
 
 function blocks_to_sparse(blocks)
-  s=size(blocks);
-  block_size=sqrt(s(1));
-  nb_blocks=s(2);
-  for k=1:nb_blocks
-    kk=(k-1)*block_size+1:k*block_size;
-    sp_inv(kk,kk)= matrix(data(1:s(1),k),block_size,block_size);
-  end
+    s=size(blocks);
+    block_size=sqrt(s(1));
+    nb_blocks=s(2);
+    for k=1:nb_blocks
+        kk=(k-1)*block_size+1:k*block_size;
+        sp_inv(kk,kk)= matrix(data(1:s(1),k),block_size,block_size);
+    end
 endfunction
 
 blocks_to_sparse(parallel_run(N,1:L,"invert_one_block",[N,N]));
@@ -201,60 +200,60 @@ if max(full(sp_inv-sp_inv_1)) > %eps then pause,end
 
 // testing configuration
 // nb_workers only effective on Linux for now :(
-if(getos() <> 'Windows')
-
-args=[1,2,3,4,5];
-function a= g(arg1); a=2*arg1; endfunction;
-conf= init_param('nb_workers',2);
-parallel_run(args, "g", conf);
-parallel_run(args, g_fun_name, conf);
-
-conf=add_param(conf,'shared_memory',1);
-parallel_run(args, g_fun_name, conf);
-
-function init_rand(n)
-  rand('seed',n);
-endfunction;
-
-function res= rand_macro(nb)
-  res= rand(1, nb);
-endfunction
-nb= 5;
-conf= init_param('nb_workers', 2);
-// We use conf to force nb_workers = 2 even on monocore
-res= parallel_run([nb,nb],'rand_macro',nb,conf);
-// without seeding the 2 workers have the same rng.
-if max(abs(res(:,1)-res(:,2))) > %eps then pause,end
-
-conf=add_param(conf, 'prologue','init_rand');
-res= parallel_run([nb,nb],'rand_macro',nb,conf);
-// when setting the seed, they should have different random numbers
-if max(abs(res(:,1)-res(:,2))) < %eps then pause,end
-
-many_args= 1:10e3;
-many_workers= 80;
-for sched=0:1
-  res= parallel_run(many_args, "g", init_param('dynamic_scheduling', sched,'nb_workers', many_workers ));
-  if res<>g(many_args) then pause,end;
-end;
-
-// test scheduling: sleeping is embarassingly parallel even on uniprocessors ! :)
-function r=do_sleep(t);sleep(t*1000);r=1;endfunction
-many_workers= 80;
-sleep_time=2;
-args=ones(1,many_workers)*sleep_time;
-for sched=0:1
-  tic();
-  res= parallel_run(args, "do_sleep", init_param("dynamic_scheduling", sched, 'nb_workers', many_workers ));
-  if toc()>sleep_time+2 then pause,end;
-end;
-// test dynamic versus static scheduling : dynamic scheduling should be better on tasks of varying length.
-args=(1:20).^2/100;
-for sched=0:1
-  tic();
-  res= parallel_run(args, "do_sleep", init_param("dynamic_scheduling", sched, 'nb_workers', 5 ));
-  elapsed(sched+1)= toc();
-end;
-if elapsed(2)>elapsed(1) then pause,end;
+if(getos() <> "Windows")
+
+    args=[1,2,3,4,5];
+    function a= g(arg1); a=2*arg1; endfunction;
+    conf= init_param("nb_workers",2);
+    parallel_run(args, "g", conf);
+    parallel_run(args, g_fun_name, conf);
+
+    conf=add_param(conf,"shared_memory",1);
+    parallel_run(args, g_fun_name, conf);
+
+    function init_rand(n)
+        rand("seed",n);
+    endfunction;
+
+    function res= rand_macro(nb)
+        res= rand(1, nb);
+    endfunction
+    nb= 5;
+    conf= init_param("nb_workers", 2);
+    // We use conf to force nb_workers = 2 even on monocore
+    res= parallel_run([nb,nb],"rand_macro",nb,conf);
+    // without seeding the 2 workers have the same rng.
+    if max(abs(res(:,1)-res(:,2))) > %eps then pause,end
+
+    conf=add_param(conf, "prologue","init_rand");
+    res= parallel_run([nb,nb],"rand_macro",nb,conf);
+    // when setting the seed, they should have different random numbers
+    if max(abs(res(:,1)-res(:,2))) < %eps then pause,end
+
+    many_args= 1:10e3;
+    many_workers= 80;
+    for sched=0:1
+        res= parallel_run(many_args, "g", init_param("dynamic_scheduling", sched,"nb_workers", many_workers ));
+        if res<>g(many_args) then pause,end;
+    end;
+
+    // test scheduling: sleeping is embarassingly parallel even on uniprocessors ! :)
+    function r=do_sleep(t);sleep(t*1000);r=1;endfunction
+    many_workers= 80;
+    sleep_time=2;
+    args=ones(1,many_workers)*sleep_time;
+    for sched=0:1
+        tic();
+        res= parallel_run(args, "do_sleep", init_param("dynamic_scheduling", sched, "nb_workers", many_workers ));
+        if toc()>sleep_time+2 then pause,end;
+    end;
+    // test dynamic versus static scheduling : dynamic scheduling should be better on tasks of varying length.
+    args=(1:20).^2/100;
+    for sched=0:1
+        tic();
+        res= parallel_run(args, "do_sleep", init_param("dynamic_scheduling", sched, "nb_workers", 5 ));
+        elapsed(sched+1)= toc();
+    end;
+    if elapsed(2)>elapsed(1) then pause,end;
 
 end
\ No newline at end of file
index ee372f9..55bf41a 100644 (file)
@@ -55,9 +55,8 @@ function [m,den,off,count,m1,fir,frequ,offset,ok]=mfrequ_clk(frequ,offset)
         // if two outputs are called at the same time they are replaced by an other output; the intersection of the two.
         if size(mat,1)>10000 then
             num=messagebox(["Warning: Your system is too hard to synchronize it will take some time";
-            "And the stacksize has to be increase";
-            " A scilab crash may occur";
-            "Do You want me to continue?"],"modal",["No","Yes"])
+            " A Scilab crash may occur";
+            "Do you want me to continue?"],"modal",["No","Yes"])
             if num==1 then
                 ok=%f;
                 return
index bf6556a..aba1d26 100644 (file)
@@ -10,8 +10,7 @@
 //==============================================================================
 
 // <-- BENCH NB RUN : 100 -->
-stacksize(80000000);
-A = rand(1000,100,'n');
+A = rand(1000,100,"n");
 
 // <-- BENCH START -->
 [lambda,facpr,comprinc] = pca(A);
index c400858..84b0624 100644 (file)
 // long programs (several hours) I get a negative value for timer()
 
 // compares result with another tools ;)
-// t= cputime; pause(9.9);e=cputime-t 
+// t= cputime; pause(9.9);e=cputime-t
 
 timer();sleep(9900);timer()
 
 // another test
-stacksize('max');
 runs = 50;
 cumulate = 0; a = 0; b = 0;
 for i = 1:runs
-  timer();
-    a = abs(rand(1500, 1500, 'n')/10);
+    timer();
+    a = abs(rand(1500, 1500, "n")/10);
     b = a';
     a = matrix(b, 750, 3000);
     b = a';
-  timing = timer();
-  cumulate = cumulate + timing;
+    timing = timer();
+    cumulate = cumulate + timing;
 end;
 timing = cumulate/runs;
 times(1, 1) = timing;
-disp('Creation, transp., deformation of a 1500x1500 matrix (sec): ' + string(timing));
-clear('a'); clear('b');
+disp("Creation, transp., deformation of a 1500x1500 matrix (sec): " + string(timing));
+clear("a"); clear("b");
 
 
index cd2aed1..b26179d 100644 (file)
         </para>
         <para>If your matrix is s.p.d. this function must be used in place of
             <link linkend="umf_lufact">umf_lufact</link> or in place of the scilab
-            function <link linkend="chfact">chfact</link> for a gain in speed (also as
-            chfact uses the scilab memory for the factors the user must set the
-            stacksize with a large value because of the fill-in occuring in computing
-            the factor C which then may take more memory than the initial matrix
-            A).
+            function <link linkend="chfact">chfact</link> for a gain in speed.
         </para>
         <para>When such a factorization have been computed, a linear system must
             be solved with <link linkend="taucs_chsolve">taucs_chsolve</link>. <emphasis role="bold">To free the memory used by the Cholesky factors, use 
index 4ddf914..5c6f58c 100644 (file)
@@ -67,7 +67,6 @@ taucs_chdel(Cp)
         
         <programlisting role="example"><![CDATA[
 // Example #2 a real example
-stacksize(3000000)  // the last PlotSparse need memory
 // first load a sparse matrix
 [A] = ReadHBSparse(SCI+"/modules/umfpack/examples/bcsstk24.rsa");
 // compute the factorization
index 463bc25..befb71a 100644 (file)
 function [] = scisptdemo()
     // demo pour l'interface umf
     mode(-1)
-    st = stacksize();
-    if st(1) < 3000000 then
-        messagebox([gettext(" For this demo the current stack size is not enough ");
-        gettext(" enter the following at the scilab prompt :          ");
-        gettext("                                                     ");
-        gettext("              stacksize(3000000);                    ");
-        gettext("                                                     ");
-        gettext("           then re enter scisptdemo()                ");
-        gettext("                                                     ");
-        gettext("               CLICK TO  CONTINUE                    ")]);
-        return
-    end
 
     oldln = lines();
     lines(0)