Remove deprecated Fortran code (and related stuff) from core module 94/16194/4
Vincent COUVERT [Thu, 19 Mar 2015 16:13:11 +0000 (17:13 +0100)]
Change-Id: I5212382591b1012abcd3eefc827031378ba5c99a

71 files changed:
scilab/modules/boolean/src/fortran/core_f_Import.def
scilab/modules/boolean/src/fortran/logic.f
scilab/modules/core/Makefile.am
scilab/modules/core/Makefile.in
scilab/modules/core/includes/stack1.h
scilab/modules/core/src/c/core.vcxproj
scilab/modules/core/src/c/core.vcxproj.filters
scilab/modules/core/src/c/getval.c [deleted file]
scilab/modules/core/src/c/getval.h [deleted file]
scilab/modules/core/src/c/scimem.c [deleted file]
scilab/modules/core/src/c/scimem64.c [deleted file]
scilab/modules/core/src/fortran/basnms.f [deleted file]
scilab/modules/core/src/fortran/bexec.f [deleted file]
scilab/modules/core/src/fortran/btof.f [deleted file]
scilab/modules/core/src/fortran/btofm.f [deleted file]
scilab/modules/core/src/fortran/cmplxt.f [deleted file]
scilab/modules/core/src/fortran/copyvar.f [deleted file]
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/createref.f [deleted file]
scilab/modules/core/src/fortran/cvdm.f [deleted file]
scilab/modules/core/src/fortran/elementary_functions_f.vfproj [deleted file]
scilab/modules/core/src/fortran/errmgr.f [deleted file]
scilab/modules/core/src/fortran/error.f [deleted file]
scilab/modules/core/src/fortran/extlarg.f [deleted file]
scilab/modules/core/src/fortran/ftob.f [deleted file]
scilab/modules/core/src/fortran/getch.f [deleted file]
scilab/modules/core/src/fortran/getlin.f [deleted file]
scilab/modules/core/src/fortran/isbrk.f [deleted file]
scilab/modules/core/src/fortran/isinstring.f [deleted file]
scilab/modules/core/src/fortran/istrue.f [deleted file]
scilab/modules/core/src/fortran/lst2vars.f [deleted file]
scilab/modules/core/src/fortran/mkindx.f [deleted file]
scilab/modules/core/src/fortran/namstr.f [deleted file]
scilab/modules/core/src/fortran/prompt.f [deleted file]
scilab/modules/core/src/fortran/ptrback.f [deleted file]
scilab/modules/core/src/fortran/relocstack.f [deleted file]
scilab/modules/core/src/fortran/setgetmode.f [deleted file]
scilab/modules/core/src/fortran/setippty.f [deleted file]
scilab/modules/core/src/fortran/sigbas.f [deleted file]
scilab/modules/core/src/fortran/stackc2i.f [deleted file]
scilab/modules/core/src/fortran/stacki2d.f [deleted file]
scilab/modules/core/src/fortran/stackr2d.f [deleted file]
scilab/modules/data_structures/includes/gw_data_structures1.h
scilab/modules/data_structures/src/fortran/Core_f_Import.def
scilab/modules/data_structures/src/fortran/core_Import.def
scilab/modules/differential_equations/src/fortran/Core_f_Import.def
scilab/modules/differential_equations/src/fortran/Output_stream_Import.def
scilab/modules/elementary_functions/src/fortran/Core_f_Import.def
scilab/modules/fileio/includes/readline.h
scilab/modules/integer/src/fortran/Output_stream_Import.def [deleted file]
scilab/modules/javasci/Makefile.in
scilab/modules/optimization/src/fortran/Core_f_Import.def
scilab/modules/optimization/src/fortran/Output_stream_Import.def
scilab/modules/output_stream/src/c/Core_f_Import.def
scilab/modules/output_stream/src/fortran/Core_f_Import.def
scilab/modules/output_stream/src/fortran/core_Import.def
scilab/modules/output_stream/src/fortran/output_stream_Import.def
scilab/modules/polynomials/src/fortran/output_stream_Import.def
scilab/modules/scicos/src/c/Output_stream_Import.def
scilab/modules/scicos/src/c/core_Import.def
scilab/modules/scicos_blocks/src/c/core_Import.def
scilab/modules/signal_processing/src/fortran/core_f_Import.def
scilab/modules/signal_processing/src/fortran/output_stream_Import.def
scilab/modules/sparse/src/fortran/Output_stream_Import.def
scilab/modules/special_functions/src/fortran/output_stream_Import.def [deleted file]
scilab/modules/special_functions/src/fortran/special_functions_f.vfproj
scilab/modules/special_functions/src/fortran/special_functions_f2c.vcxproj
scilab/modules/special_functions/src/fortran/special_functions_f2c.vcxproj.filters

index 46e3906..eec915d 100644 (file)
@@ -710,7 +710,7 @@ c
 c     la matrice a ete modifie sur place 
          k=istk(iadr(lstk(top0))+2)
          top=top-1
-         call setref(k)
+c         call setref(k)
       endif
       goto 999
 
@@ -1000,7 +1000,7 @@ c
 c     la matrice a ete modifie sur place 
          k=istk(iadr(lstk(top0))+2)
          top=top-1
-         call setref(k)
+c         call setref(k)
       endif
       goto 999
 
index 146eaf9..13a98a8 100644 (file)
 CORE_C_SOURCES = \
     src/c/csignal.c \
     src/c/cs2st.c \
-    src/c/getval.c \
     src/c/md5.c \
     src/c/texmacs.c \
     src/c/str2sci.c \
     src/c/getmodules.c \
     src/c/getmemory.c \
-    src/c/scimem.c \
     src/c/isanan.c \
     src/c/xscion.c \
     src/c/returnanan.c \
@@ -58,8 +56,7 @@ CORE_C_SOURCES = \
     src/c/getmaxMALLOC.c \
     src/c/sci_mem_alloc.c \
     src/c/hashtable/hashtable.c \
-    src/c/hashtable/hashtable_utility.c \
-    src/c/scimem64.c
+    src/c/hashtable/hashtable_utility.c
 
 CORE_CPP_SOURCES = \
     src/cpp/namstr.cpp \
@@ -77,53 +74,26 @@ CORE_CPP_SOURCES = \
 
 CORE_FORTRAN_SOURCES = \
     src/fortran/clunit.f \
-    src/fortran/getlin.f \
     src/fortran/allowptr.f \
     src/fortran/isany.f \
-    src/fortran/setgetmode.f \
     src/fortran/showstack.f \
-    src/fortran/setippty.f \
-    src/fortran/cmplxt.f \
     src/fortran/folhp.f \
     src/fortran/cvname.f \
-    src/fortran/prompt.f \
     src/fortran/intstr.f \
-    src/fortran/createref.f \
-    src/fortran/btof.f \
-    src/fortran/btofm.f \
     src/fortran/find.f \
     src/fortran/ref2val.f \
-    src/fortran/isbrk.f \
     src/fortran/xerbla.f \
     src/fortran/dtosci.f \
-    src/fortran/bexec.f \
     src/fortran/savlod.f \
-    src/fortran/error.f \
-    src/fortran/cvdm.f \
-    src/fortran/mkindx.f \
     src/fortran/whatln.f \
-    src/fortran/errmgr.f \
     src/fortran/mklist.f \
     src/fortran/indxg.f \
-    src/fortran/istrue.f \
-    src/fortran/extlarg.f \
-    src/fortran/lst2vars.f \
-    src/fortran/basnms.f \
-    src/fortran/ptrback.f \
-    src/fortran/getch.f \
-    src/fortran/ftob.f \
     src/fortran/expsum.f \
-    src/fortran/copyvar.f \
     src/fortran/putid.f \
     src/fortran/itosci.f \
-    src/fortran/stackr2d.f \
-    src/fortran/stacki2d.f \
-    src/fortran/stackc2i.f \
-    src/fortran/isinstring.f \
     src/fortran/readinter.f \
     src/fortran/rewindinter.f \
     src/fortran/backspaceinter.f \
-    src/fortran/relocstack.f \
        src/fortran/write_inter.f \
        src/fortran/read_inter.f
 
index d17a3f0..4de70be 100644 (file)
@@ -178,13 +178,11 @@ libscicore_algo_la_LIBADD =
 am__dirstamp = $(am__leading_dot)dirstamp
 am__objects_1 = src/c/libscicore_algo_la-csignal.lo \
        src/c/libscicore_algo_la-cs2st.lo \
-       src/c/libscicore_algo_la-getval.lo \
        src/c/libscicore_algo_la-md5.lo \
        src/c/libscicore_algo_la-texmacs.lo \
        src/c/libscicore_algo_la-str2sci.lo \
        src/c/libscicore_algo_la-getmodules.lo \
        src/c/libscicore_algo_la-getmemory.lo \
-       src/c/libscicore_algo_la-scimem.lo \
        src/c/libscicore_algo_la-isanan.lo \
        src/c/libscicore_algo_la-xscion.lo \
        src/c/libscicore_algo_la-returnanan.lo \
@@ -225,8 +223,7 @@ am__objects_1 = src/c/libscicore_algo_la-csignal.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 \
-       src/c/libscicore_algo_la-scimem64.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 \
        src/cpp/libscicore_algo_la-backtrace_print.lo \
@@ -239,30 +236,17 @@ am__objects_2 = src/cpp/libscicore_algo_la-namstr.lo \
        src/cpp/libscicore_algo_la-getmacrosname.lo \
        src/cpp/libscicore_algo_la-getfunctionsname.lo \
        src/cpp/libscicore_algo_la-InitScilab.lo
-am__objects_3 = src/fortran/clunit.lo src/fortran/getlin.lo \
-       src/fortran/allowptr.lo src/fortran/isany.lo \
-       src/fortran/setgetmode.lo src/fortran/showstack.lo \
-       src/fortran/setippty.lo src/fortran/cmplxt.lo \
+am__objects_3 = src/fortran/clunit.lo src/fortran/allowptr.lo \
+       src/fortran/isany.lo src/fortran/showstack.lo \
        src/fortran/folhp.lo src/fortran/cvname.lo \
-       src/fortran/prompt.lo src/fortran/intstr.lo \
-       src/fortran/createref.lo src/fortran/btof.lo \
-       src/fortran/btofm.lo src/fortran/find.lo \
-       src/fortran/ref2val.lo src/fortran/isbrk.lo \
-       src/fortran/xerbla.lo src/fortran/dtosci.lo \
-       src/fortran/bexec.lo src/fortran/savlod.lo \
-       src/fortran/error.lo src/fortran/cvdm.lo src/fortran/mkindx.lo \
-       src/fortran/whatln.lo src/fortran/errmgr.lo \
-       src/fortran/mklist.lo src/fortran/indxg.lo \
-       src/fortran/istrue.lo src/fortran/extlarg.lo \
-       src/fortran/lst2vars.lo src/fortran/basnms.lo \
-       src/fortran/ptrback.lo src/fortran/getch.lo \
-       src/fortran/ftob.lo src/fortran/expsum.lo \
-       src/fortran/copyvar.lo src/fortran/putid.lo \
-       src/fortran/itosci.lo src/fortran/stackr2d.lo \
-       src/fortran/stacki2d.lo src/fortran/stackc2i.lo \
-       src/fortran/isinstring.lo src/fortran/readinter.lo \
-       src/fortran/rewindinter.lo src/fortran/backspaceinter.lo \
-       src/fortran/relocstack.lo src/fortran/write_inter.lo \
+       src/fortran/intstr.lo src/fortran/find.lo \
+       src/fortran/ref2val.lo src/fortran/xerbla.lo \
+       src/fortran/dtosci.lo src/fortran/savlod.lo \
+       src/fortran/whatln.lo src/fortran/mklist.lo \
+       src/fortran/indxg.lo src/fortran/expsum.lo \
+       src/fortran/putid.lo src/fortran/itosci.lo \
+       src/fortran/readinter.lo src/fortran/rewindinter.lo \
+       src/fortran/backspaceinter.lo src/fortran/write_inter.lo \
        src/fortran/read_inter.lo
 am_libscicore_algo_la_OBJECTS = $(am__objects_1) $(am__objects_2) \
        $(am__objects_3)
@@ -710,13 +694,11 @@ yacc_present = @yacc_present@
 CORE_C_SOURCES = \
     src/c/csignal.c \
     src/c/cs2st.c \
-    src/c/getval.c \
     src/c/md5.c \
     src/c/texmacs.c \
     src/c/str2sci.c \
     src/c/getmodules.c \
     src/c/getmemory.c \
-    src/c/scimem.c \
     src/c/isanan.c \
     src/c/xscion.c \
     src/c/returnanan.c \
@@ -757,8 +739,7 @@ CORE_C_SOURCES = \
     src/c/getmaxMALLOC.c \
     src/c/sci_mem_alloc.c \
     src/c/hashtable/hashtable.c \
-    src/c/hashtable/hashtable_utility.c \
-    src/c/scimem64.c
+    src/c/hashtable/hashtable_utility.c
 
 CORE_CPP_SOURCES = \
     src/cpp/namstr.cpp \
@@ -776,53 +757,26 @@ CORE_CPP_SOURCES = \
 
 CORE_FORTRAN_SOURCES = \
     src/fortran/clunit.f \
-    src/fortran/getlin.f \
     src/fortran/allowptr.f \
     src/fortran/isany.f \
-    src/fortran/setgetmode.f \
     src/fortran/showstack.f \
-    src/fortran/setippty.f \
-    src/fortran/cmplxt.f \
     src/fortran/folhp.f \
     src/fortran/cvname.f \
-    src/fortran/prompt.f \
     src/fortran/intstr.f \
-    src/fortran/createref.f \
-    src/fortran/btof.f \
-    src/fortran/btofm.f \
     src/fortran/find.f \
     src/fortran/ref2val.f \
-    src/fortran/isbrk.f \
     src/fortran/xerbla.f \
     src/fortran/dtosci.f \
-    src/fortran/bexec.f \
     src/fortran/savlod.f \
-    src/fortran/error.f \
-    src/fortran/cvdm.f \
-    src/fortran/mkindx.f \
     src/fortran/whatln.f \
-    src/fortran/errmgr.f \
     src/fortran/mklist.f \
     src/fortran/indxg.f \
-    src/fortran/istrue.f \
-    src/fortran/extlarg.f \
-    src/fortran/lst2vars.f \
-    src/fortran/basnms.f \
-    src/fortran/ptrback.f \
-    src/fortran/getch.f \
-    src/fortran/ftob.f \
     src/fortran/expsum.f \
-    src/fortran/copyvar.f \
     src/fortran/putid.f \
     src/fortran/itosci.f \
-    src/fortran/stackr2d.f \
-    src/fortran/stacki2d.f \
-    src/fortran/stackc2i.f \
-    src/fortran/isinstring.f \
     src/fortran/readinter.f \
     src/fortran/rewindinter.f \
     src/fortran/backspaceinter.f \
-    src/fortran/relocstack.f \
        src/fortran/write_inter.f \
        src/fortran/read_inter.f
 
@@ -1143,8 +1097,6 @@ src/c/libscicore_algo_la-csignal.lo: src/c/$(am__dirstamp) \
        src/c/$(DEPDIR)/$(am__dirstamp)
 src/c/libscicore_algo_la-cs2st.lo: src/c/$(am__dirstamp) \
        src/c/$(DEPDIR)/$(am__dirstamp)
-src/c/libscicore_algo_la-getval.lo: src/c/$(am__dirstamp) \
-       src/c/$(DEPDIR)/$(am__dirstamp)
 src/c/libscicore_algo_la-md5.lo: src/c/$(am__dirstamp) \
        src/c/$(DEPDIR)/$(am__dirstamp)
 src/c/libscicore_algo_la-texmacs.lo: src/c/$(am__dirstamp) \
@@ -1155,8 +1107,6 @@ src/c/libscicore_algo_la-getmodules.lo: src/c/$(am__dirstamp) \
        src/c/$(DEPDIR)/$(am__dirstamp)
 src/c/libscicore_algo_la-getmemory.lo: src/c/$(am__dirstamp) \
        src/c/$(DEPDIR)/$(am__dirstamp)
-src/c/libscicore_algo_la-scimem.lo: src/c/$(am__dirstamp) \
-       src/c/$(DEPDIR)/$(am__dirstamp)
 src/c/libscicore_algo_la-isanan.lo: src/c/$(am__dirstamp) \
        src/c/$(DEPDIR)/$(am__dirstamp)
 src/c/libscicore_algo_la-xscion.lo: src/c/$(am__dirstamp) \
@@ -1247,8 +1197,6 @@ src/c/hashtable/libscicore_algo_la-hashtable.lo:  \
 src/c/hashtable/libscicore_algo_la-hashtable_utility.lo:  \
        src/c/hashtable/$(am__dirstamp) \
        src/c/hashtable/$(DEPDIR)/$(am__dirstamp)
-src/c/libscicore_algo_la-scimem64.lo: src/c/$(am__dirstamp) \
-       src/c/$(DEPDIR)/$(am__dirstamp)
 src/cpp/$(am__dirstamp):
        @$(MKDIR_P) src/cpp
        @: > src/cpp/$(am__dirstamp)
@@ -1287,100 +1235,46 @@ src/fortran/$(DEPDIR)/$(am__dirstamp):
        @: > src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/clunit.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/getlin.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/allowptr.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/isany.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/setgetmode.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/showstack.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/setippty.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/cmplxt.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/folhp.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/cvname.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/prompt.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/intstr.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/createref.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/btof.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/btofm.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/find.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/ref2val.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/isbrk.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/dtosci.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/bexec.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/savlod.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/error.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/cvdm.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/mkindx.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/errmgr.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/mklist.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/indxg.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/istrue.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/extlarg.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/lst2vars.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/basnms.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/ptrback.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/getch.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/ftob.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/copyvar.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/itosci.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/stackr2d.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/stacki2d.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/stackc2i.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/isinstring.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) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/backspaceinter.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
-src/fortran/relocstack.lo: src/fortran/$(am__dirstamp) \
-       src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/write_inter.lo: src/fortran/$(am__dirstamp) \
        src/fortran/$(DEPDIR)/$(am__dirstamp)
 src/fortran/read_inter.lo: src/fortran/$(am__dirstamp) \
@@ -1615,7 +1509,6 @@ distclean-compile:
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-getmodules.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-getos.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-getstaticdebuginfo.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-getval.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-getversion.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-gw_dynamic_generic.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-ifexpr.Plo@am__quote@
@@ -1629,8 +1522,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-sci_tools.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-scimem.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@src/c/$(DEPDIR)/libscicore_algo_la-scimem64.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@
@@ -1694,13 +1585,6 @@ src/c/libscicore_algo_la-cs2st.lo: src/c/cs2st.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-cs2st.lo `test -f 'src/c/cs2st.c' || echo '$(srcdir)/'`src/c/cs2st.c
 
-src/c/libscicore_algo_la-getval.lo: src/c/getval.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-getval.lo -MD -MP -MF src/c/$(DEPDIR)/libscicore_algo_la-getval.Tpo -c -o src/c/libscicore_algo_la-getval.lo `test -f 'src/c/getval.c' || echo '$(srcdir)/'`src/c/getval.c
-@am__fastdepCC_TRUE@   $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscicore_algo_la-getval.Tpo src/c/$(DEPDIR)/libscicore_algo_la-getval.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      $(AM_V_CC)source='src/c/getval.c' object='src/c/libscicore_algo_la-getval.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-getval.lo `test -f 'src/c/getval.c' || echo '$(srcdir)/'`src/c/getval.c
-
 src/c/libscicore_algo_la-md5.lo: src/c/md5.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-md5.lo -MD -MP -MF src/c/$(DEPDIR)/libscicore_algo_la-md5.Tpo -c -o src/c/libscicore_algo_la-md5.lo `test -f 'src/c/md5.c' || echo '$(srcdir)/'`src/c/md5.c
 @am__fastdepCC_TRUE@   $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscicore_algo_la-md5.Tpo src/c/$(DEPDIR)/libscicore_algo_la-md5.Plo
@@ -1736,13 +1620,6 @@ src/c/libscicore_algo_la-getmemory.lo: src/c/getmemory.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-getmemory.lo `test -f 'src/c/getmemory.c' || echo '$(srcdir)/'`src/c/getmemory.c
 
-src/c/libscicore_algo_la-scimem.lo: src/c/scimem.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-scimem.lo -MD -MP -MF src/c/$(DEPDIR)/libscicore_algo_la-scimem.Tpo -c -o src/c/libscicore_algo_la-scimem.lo `test -f 'src/c/scimem.c' || echo '$(srcdir)/'`src/c/scimem.c
-@am__fastdepCC_TRUE@   $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscicore_algo_la-scimem.Tpo src/c/$(DEPDIR)/libscicore_algo_la-scimem.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      $(AM_V_CC)source='src/c/scimem.c' object='src/c/libscicore_algo_la-scimem.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-scimem.lo `test -f 'src/c/scimem.c' || echo '$(srcdir)/'`src/c/scimem.c
-
 src/c/libscicore_algo_la-isanan.lo: src/c/isanan.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-isanan.lo -MD -MP -MF src/c/$(DEPDIR)/libscicore_algo_la-isanan.Tpo -c -o src/c/libscicore_algo_la-isanan.lo `test -f 'src/c/isanan.c' || echo '$(srcdir)/'`src/c/isanan.c
 @am__fastdepCC_TRUE@   $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscicore_algo_la-isanan.Tpo src/c/$(DEPDIR)/libscicore_algo_la-isanan.Plo
@@ -2030,13 +1907,6 @@ src/c/hashtable/libscicore_algo_la-hashtable_utility.lo: src/c/hashtable/hashtab
 @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/hashtable/libscicore_algo_la-hashtable_utility.lo `test -f 'src/c/hashtable/hashtable_utility.c' || echo '$(srcdir)/'`src/c/hashtable/hashtable_utility.c
 
-src/c/libscicore_algo_la-scimem64.lo: src/c/scimem64.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-scimem64.lo -MD -MP -MF src/c/$(DEPDIR)/libscicore_algo_la-scimem64.Tpo -c -o src/c/libscicore_algo_la-scimem64.lo `test -f 'src/c/scimem64.c' || echo '$(srcdir)/'`src/c/scimem64.c
-@am__fastdepCC_TRUE@   $(AM_V_at)$(am__mv) src/c/$(DEPDIR)/libscicore_algo_la-scimem64.Tpo src/c/$(DEPDIR)/libscicore_algo_la-scimem64.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      $(AM_V_CC)source='src/c/scimem64.c' object='src/c/libscicore_algo_la-scimem64.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-scimem64.lo `test -f 'src/c/scimem64.c' || echo '$(srcdir)/'`src/c/scimem64.c
-
 sci_gateway/c/libscicore_la-gw_core.lo: sci_gateway/c/gw_core.c
 @am__fastdepCC_TRUE@   $(AM_V_CC)$(LIBTOOL) $(AM_V_lt) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(libscicore_la_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS) -MT sci_gateway/c/libscicore_la-gw_core.lo -MD -MP -MF sci_gateway/c/$(DEPDIR)/libscicore_la-gw_core.Tpo -c -o sci_gateway/c/libscicore_la-gw_core.lo `test -f 'sci_gateway/c/gw_core.c' || echo '$(srcdir)/'`sci_gateway/c/gw_core.c
 @am__fastdepCC_TRUE@   $(AM_V_at)$(am__mv) sci_gateway/c/$(DEPDIR)/libscicore_la-gw_core.Tpo sci_gateway/c/$(DEPDIR)/libscicore_la-gw_core.Plo
index 21526cf..9f36461 100644 (file)
@@ -41,12 +41,6 @@ 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);
 
-/* stack0.c */
-
-extern int C2F(stacki2d)(int *n, int *il1, int *dl1);
-extern int C2F(stackr2d)(int *n, int *sl1, int *dl1);
-extern int C2F(stackc2i)(int *n, int *sl1, int *il1);
-
 /* stack1.c */
 
 int C2F(getwsmat)(char *fname, int *topk, int *lw, int *m, int *n, int *ilr, int *ilrd, unsigned long fname_len);
index a6c25ab..6959acf 100644 (file)
@@ -277,7 +277,6 @@ cd ..
     <ClCompile Include="getos.c" />
     <ClCompile Include="getstaticdebuginfo.c" />
     <ClCompile Include="getstaticDebugInfo_Windows.c" />
-    <ClCompile Include="getval.c" />
     <ClCompile Include="getversion.c" />
     <ClCompile Include="GetXmlFileEncoding.c" />
     <ClCompile Include="..\..\sci_gateway\c\gw_core.c" />
@@ -299,7 +298,6 @@ cd ..
     <ClCompile Include="recursionFunction.c" />
     <ClCompile Include="returnanan.c" />
     <ClCompile Include="saveCWDInPreferences.c" />
-    <ClCompile Include="scimem.c" />
     <ClCompile Include="scirun.c" />
     <ClCompile Include="sci_tools.c" />
     <ClCompile Include="setformat.c" />
@@ -422,7 +420,6 @@ cd ..
     <ClInclude Include="getdynamicDebugInfo_Windows.h" />
     <ClInclude Include="getstaticdebuginfo.h" />
     <ClInclude Include="getstaticDebugInfo_Windows.h" />
-    <ClInclude Include="getval.h" />
     <ClInclude Include="gw_dynamic_generic.h" />
     <ClInclude Include="ifexpr.h" />
     <ClInclude Include="inittypenames.h" />
index b024df9..789eac1 100644 (file)
@@ -80,9 +80,6 @@
     <ClCompile Include="getstaticDebugInfo_Windows.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="getval.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="getversion.c">
       <Filter>Source Files</Filter>
     </ClCompile>
     <ClCompile Include="returnanan.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="scimem.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="str2sci.c">
       <Filter>Source Files</Filter>
     </ClCompile>
     <ClInclude Include="getstaticDebugInfo_Windows.h">
       <Filter>Header Files</Filter>
     </ClInclude>
-    <ClInclude Include="getval.h">
-      <Filter>Header Files</Filter>
-    </ClInclude>
     <ClInclude Include="gw_dynamic_generic.h">
       <Filter>Header Files</Filter>
     </ClInclude>
diff --git a/scilab/modules/core/src/c/getval.c b/scilab/modules/core/src/c/getval.c
deleted file mode 100644 (file)
index 7458a21..0000000
+++ /dev/null
@@ -1,432 +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
- *
- */
-/*     PURPOSE */
-/*        get a number : on output s must be a double float */
-/*                       which must be very close from the decimal */
-/*                       number represented by the pattern of char */
-
-/*        this subroutine is called by getsym when this last one */
-/*        have detected the beginning of a lexical token which corresponds */
-/*        to a positive number (an int or a float). There are two */
-/*        cases (whom this routine is informed by the logical */
-/*        dotdet (as "dot detected")) : */
-
-/*          1/ the token begins with a digit d (in [0-9]) : in this case */
-/*             dotdet = .false. */
-
-/*          2/ the token begins with a point following by a digit .d : in */
-/*             this case  dotdet = .true. */
-
-/*        On entry, the global var char1 contains the first digit of the number */
-/*        Getting the next "char" is done by a call to getch (which put the */
-/*        next char is the global var char1). */
-
-/*     MOTIVATION */
-/*        Written by Bruno Pincon <Bruno.Pincon@iecn.u-nancy.fr> so as */
-/*        to replace the old string -> number method used by Scilab */
-/*        which was not accurate enough (even in some easy cases we can got */
-/*        the near float s (and the float gotten may be 3 or 4 floats after */
-/*        or before the optimal one) : in fact contrarily to the old method */
-/*        this subroutine computes actually the float s only when the string */
-/*        pattern is such that only one (hoped correctly) rounded float */
-/*        operation will be done in computing s, all others operations being */
-/*        exact (and so we are sure to get the nearer floating point number). */
-/*        In the others cases we call an "intrinsic" function of Fortran */
-/*        (as strtod in C) to do the job (what fortran called an internal file). */
-/*        The overhead comes from the fact that at this level the "scilab characters" */
-/*        are actually integers (a first convertion string -> int is already */
-/*        done) so a "reconversion" to a string is necessary. */
-
-/*     A BRIEF EXPLANATION */
-/*        On an example, suppose that the "string" pattern is 1234.56789012345e+23  : */
-
-/*        1/ the mantissa is red and the digits are recorded inside the array */
-/*           digit = [1 2 3 4 5 6 7 8 9 0 1 2 3 4 5]  (only the first ndgmax */
-/*           digits of the mantissa are red) */
-/*           -> the dot is detected and a correction of -11 will be */
-/*              bring in the exponent */
-/*        2/ the exponent is computed directly in int arithmetic, then the */
-/*           correction is brought to got the final exponent : 23-11 = 12 */
-
-/*        All that to say that the string number to convert is equal to */
-/*           123456789012345 * 10^12 and in general  x = int 10^expo */
-
-/*        So if int <= 2^53 (all int n such that |n| <= 2^53 belong */
-/*        in the ieee754 double float number) then we must compute this int */
-/*        (from the digit array) exactly in double precision (if all intermediary */
-/*        computed quantities are integers <= 2^53 which is the case). */
-/*        A simple way to impose this condition is the following : */
-/*            2^53 = 9007199254740992 > 8 10^15 > 10^15 */
-/*        So that if our int has 15 digits (or 16 digits with d1 <= 8) then */
-/*        it is OK. */
-
-/*        For the exponent : 10^0, 10^1, 10^2, ...., 10^22 are all exactly representable */
-/*        in double ieee 754 (10^22 = 5^22 * 2^22  and 5^22=2384185791015625 < 2^53 */
-/*        but 5^23 > 2^53 so that 10^23 is not a float point number) */
-
-/*        Conclusion : */
-/*          (i) if our int have less than 15 digits and if |expo|<= 22 */
-/*              then only one non exact operation (a multiplication or a division */
-/*              depending the sign of expo) will be done (eventually) and we */
-/*              got the near float ; */
-/*         (ii) one other trivial case are also considered (see explanation at */
-/*              the end of this file). */
-/*        (iii) If not we form a string as  123456789012345.d+12 and we call */
-/*              a fortran intrinsic routine to do the job (via internal file) */
-
-/*     A LAST REMARK : this routine doesn't change the syntax of tokens considered */
-/*        as numbers in Scilab, in particular 1.d- or 1.d+ are still valid (the exponent */
-/*        is taken as 0) */
-/*     PARAMETER */
-/*     LOCAL VAR */
-/*     detdot : a var to put the value of the argument dotdet */
-/*              (this is because at the call, dotdet is a constant */
-/*              (.true. or .false.) and in this subroutine detdot */
-/*              may change of value */
-
-/*     ndgmax : maximun number of recorded digits (=> when */
-/*              the mantissa have more than ndgmax digit, */
-/*              it may result a relative error of 10^(1-ndgmax) */
-/*              between the initial number and the number that */
-/*              this routine converts as a machine number */
-/*              (this last one may suffer of a relative error */
-/*              of epsm = (approx) 1.11 10^(-16))) */
-/*     digit  : array of length ndgmax to record the mantissa 's digits */
-/*     ndgrec : number of recorded digits (<= ndgmax) */
-/*     ndg    : to count the number of digits of the int part of */
-/*              the mantissa (which may be superior to ndgmax => in */
-/*              this case a correction must be bring in the exponent) */
-/*     sgnexp : sign of the exponent part (see SYMBOL AFTER) */
-/*     expcor : correction to bring in the exponent (because all */
-/*              the mantissa begin an integer, p.e. 123.456 => 123456 */
-/*              in this case the correction is -3) */
-/*     ndgexp : number of digits of the exponent (to control spurious */
-/*              int overflow if the exponent is something like */
-/*              e+2147483648  (=2^31  (= -2^31 with the usual 32 bits */
-/*              int arithmetic ))) */
-/*     expo   : the exponent (directly computed with int arithmetic */
-/*              but ndgexp may control int "overflow") */
-/*     code0  : int code of the character "0" */
-/*     string : string to hold the "number" to be converted in double */
-/*              when the "number" is such that a direct straitforward */
-/*              conversion will be not enough accurate */
-/*     toto   : a var to got an inf with 1/(toto-toto) */
-/*     CONSTANTS  (to adapt eventualy ...) */
-/*     EXPMAX may be such that 10^EXPMAX > max positive float num */
-/*     EXPMIN may be such that 10^EXPMIN < min positive float num */
-/*     NDEMAX may be such that 10^5 <= 10^NDEMAX < MAX_INTEGER : */
-/*            when we compute (with int arithmetic) the exponent */
-/*            the number of digits of the exponent is recorded in */
-/*            ndgexp and the test  ndgexp <= NDEMAX validate this */
-/*            calculus. */
-/*     DGLIM  all integers with a number of digits <= DGLIM must be */
-/*            exactly representable as double float (DGLIM = 15 for */
-/*            ieee 754) */
-/*     EXPLIM all power of 10 up to EXPLIM (included) must be exactly */
-/*            representable as double float (EXPLIM = 22 for ieee 754) */
-/*     SOME CHAR SYMBOLS (scilab char are integers) */
-
-#include <string.h>
-#include <stdio.h>
-#include <math.h>
-#include <stdlib.h>
-#include "api_scilab.h"
-#include "getval.h"
-#include "parserConstant.h"
-#include "sciprint.h"
-#include "localization.h"
-#include "configvariable_interface.h"
-#include "sciprint.h"
-/* Table of constant values */
-#define EXPMAX 309
-#define EXPMIN -324
-#define NDEMAX 7
-#define DGLIM 15
-#define EXPLIM 22
-
-/* Scilab character encoding*/
-#define D 13
-#define E 14
-
-extern int C2F(fortrangetch)();
-
-
-int C2F(getval)(double *s, int *dotdet, int *opt)
-{
-    ///* Initialized constants */
-    //static double toto = 0.;
-    //static double c10 = 10.;
-
-    ///* Local variables */
-    //static int expo;
-    //static int code0;
-    //static int i, k;
-    //static int digit[25], ndgrec;
-    //static int detdot;
-    //static int ndgexp, expcor, sgnexp;
-    //static char string[31];
-    //static int ndg;
-
-    ///* System generated locals */
-    //static double d1;
-    //int i1;
-
-    //Fin = 0;
-    ///*     beginning of the code */
-    //detdot = *dotdet;
-    //ndg = 0;
-    //ndgrec = 0;
-    //if (! detdot)
-    //{
-    //    /*  1) got the int part of the mantissa of the pattern
-    //      1-a) may be there is some 0 at the beginning */
-    //    while (C2F(com).char1 == 0)
-    //    {
-    //        C2F(fortrangetch)();
-    //    }
-    //    /* 1-b) now record the digits (inside the digit array)
-    //       (but we record a maximum of ndgmax digits)*/
-    //    while (abs(C2F(com).char1) <= 9)
-    //    {
-    //        ++ndg;
-    //        if (ndgrec < 25)
-    //        {
-    //            ++ndgrec;
-    //            digit[ndgrec - 1] = C2F(com).char1;
-    //        }
-    //        C2F(fortrangetch)();
-    //    }
-    //    /*1-c) at this point we have detected something which is not a digit
-    //           may be a point, may be a d,D,e,E, or something else
-    //           here we only test for the dot and let the others cases
-    //       to be treated after ... */
-    //    if (abs(C2F(com).char1) == dot)
-    //    {
-    //        detdot = TRUE;
-    //        C2F(fortrangetch)();
-    //        if (getWarningMode())
-    //        {
-    //            if ((abs(C2F(com).char1) == slash) || (abs(C2F(com).char1) == bchar_slash))
-    //            {
-    //                int v = 0;
-    //                for (i = 0; i < ndgrec; ++i)
-    //                {
-    //                    v = v * 10 + digit[i];
-    //                }
-    //                if (abs(C2F(com).char1) == slash)
-    //                    sciprint(_("%s: \"%d.%s ...\" is interpreted as \"%d.0%s ...\". Use \"%d .%s ...\" for element wise operation \n") ,
-    //                             "Warning", v, "/", v, "/", v, "/");
-    //                else
-    //                    sciprint(_("%s: \"%d.%s ...\" is interpreted as \"%d.0%s ...\". Use \"%d .%s ...\" for element wise operation \n") ,
-    //                             "Warning", v, "\\", v, "\\", v, "\\");
-    //            }
-    //        }
-    //    }
-    //}
-    ///*first correction for the (future) exponent : if the first part
-    //  of the string have more then ndgmax digits we have to add
-    //  ndg - ndgrec (else we have expcor=0) */
-    //expcor = ndg - ndgrec;
-    //if (detdot)
-    //{
-    //    /*2) got the "fractionnal" part of the "mantissa" */
-    //    if (ndgrec == 0)
-    //    {
-    //        /*we have not passed throw the part 1) or only zeros have been met
-    //        and may be the number start with .000xxx : so clean up those 0 */
-    //        while (C2F(com).char1 == 0)
-    //        {
-    //            --expcor;
-    //            C2F(fortrangetch)();
-    //        }
-    //    }
-    //    /*now we begin to record the digits */
-    //    while (abs(C2F(com).char1) <= 9)
-    //    {
-    //        if (ndgrec < 25)
-    //        {
-    //            ++ndgrec;
-    //            --expcor;
-    //            digit[ndgrec - 1] = C2F(com).char1;
-    //        }
-    //        C2F(fortrangetch)();
-    //    }
-    //}
-    ///*3) at this point the "mantissa" of the string decimal number
-    //  must be recorded, now detect the exponent */
-    //expo = 0;
-    //ndgexp = 0;
-    //sgnexp = plus;
-    //if (abs(C2F(com).char1) == D || abs(C2F(com).char1) == E)
-    //{
-    //    /*the string have an exponent part (which, in Scilab, may be empty or
-    //      may had only a sign ! => expo = 0) */
-    //    C2F(fortrangetch)();
-    //    if (C2F(com).char1 == minus || C2F(com).char1 == plus)
-    //    {
-    //        sgnexp = C2F(com).char1;
-    //        C2F(fortrangetch)();
-    //    }
-    //    else
-    //    {
-    //        sgnexp = plus;
-    //    }
-    //    /*may be the exponent start by some 0 */
-    //    while (C2F(com).char1 == 0)
-    //    {
-    //        C2F(fortrangetch)();
-    //    }
-    //    /*now form the exponent : the var ndgexp is here
-    //      to treat spurious int overflow ... */
-    //    while (abs(C2F(com).char1) <= 9)
-    //    {
-    //        expo = expo * 10 + C2F(com).char1;
-    //        ++ndgexp;
-    //        C2F(fortrangetch)();
-    //    }
-    //}
-    ///*4) Now we can form the double float number s
-    //  4-1/ only zeros in the mantissa */
-    //if (ndgrec == 0)
-    //{
-    //    /*no digits have been recorded : this is the case
-    //      when the mantissa part is of the form [000][.][000]
-    //      the number is 0 */
-    //    *s = 0.;
-    //    return 0;
-    //}
-    ///*4-2/ ndgexp is to large => the exponent expo is perhaps badly
-    //  computed (int "overflow") or in all cases the
-    //  exponent is too large (positive or negative) such that it result
-    //  (for s) in an overflow or underflow depending the exponent sign */
-    //if (ndgexp >= NDEMAX)
-    //{
-    //    if (sgnexp == minus)  /*underflow */
-    //    {
-    //        *s = 0.;
-    //    }
-    //    else    /*overflow : got an inf ... */
-    //    {
-    //        *s = 1. / (toto - toto);
-    //    }
-    //    return 0;
-    //}
-    ///*4-3/ now build the final exponent */
-    //if (sgnexp == plus)
-    //{
-    //    expo += expcor;
-    //}
-    //else
-    //{
-    //    expo = -expo + expcor;
-    //}
-    ///*4-4/ here some tests to avoid unnecessary call to  "strtod"
-    //  Now we have a number s of the form  d_1 d_2 ... d_ndgrec 10^expo
-    //  which is equal to d_1 . d_2 ... d_ndgrec 10^(expo + ndgrec - 1)
-    //  with d_1 .ne. 0
-    //  so it comes :  s >= 10^(expo + ndgrec - 1)
-    //  s <= 10^(expo + ndgrec)
-
-    //  Suppose given EXPMAX such that  10^EXPMAX > max positive float number
-    //  and EXPMIN such that  10^EXPMIN < min positive float number
-
-    //  then if  expo + ndgrec - 1 >= EXPMAX then overflow occurs necessarily
-    //  and  if  expo + ndgrec <= EXPMIN then underflow occurs
-
-    //  On IEEE 754 we have : max positive float num = (approx) 1.8E+308
-    //  min positive float num = (approx) 4.9EEXPMIN
-    //  (if denormalised number are used)
-
-    //  So that EXPMAX = 309
-    //  and  EXPMIN = -324  are OK (but larger limits are possible to take
-    //  into account others f.p. arithmetics)
-    //  Note that after the test (with these values) the exponent have a
-    //  maximum of 3 (decimals) digits */
-    //if (expo + ndgrec - 1 >= EXPMAX)  /*overflow : got an inf ... */
-    //{
-    //    *s = 1. / (toto - toto);
-    //    return 0;
-    //}
-    //if (expo + ndgrec <= EXPMIN)   /*underflow : got an 0 */
-    //{
-    //    *s = 0.;
-    //    return 0;
-    //}
-    ///*4-5/ Now the usual case where we can get the near floating point
-    //  without any problem */
-    //if (ndgrec <= DGLIM && abs(expo) <= EXPLIM)
-    //{
-    //    *s = 0.;
-    //    i1 = ndgrec;
-    //    for (i = 1; i <= i1; ++i)
-    //    {
-    //        *s = *s * 10. + digit[i - 1];
-    //    }
-    //    if (expo < 0)
-    //    {
-    //        d1 = -expo;
-    //        *s /= pow(c10, d1);
-    //    }
-    //    else
-    //    {
-    //        d1 = expo;
-    //        *s *= pow(c10, d1);
-    //    }
-    //    return 0;
-    //}
-    ///*4-6/ The other easy case where we can compute s :
-    //  if expo = EXPLIM + k  but [int part]*10^k < max_int_coded_in_double
-    //  then it is OK (retrieve k in the exponent and multiply the int
-    //  part by 10^k and do the same job as previus) */
-    //if (expo > EXPLIM && expo - EXPLIM + ndgrec <= DGLIM)
-    //{
-    //    *s = 0.;
-    //    i1 = ndgrec;
-    //    for (i = 1; i <= i1; ++i)
-    //    {
-    //        *s = *s * 10. + digit[i - 1];
-    //    }
-    //    /*peut etre dangereux avec des options d'optimisation ?
-    //      (le compilo peut etre tente d'ecrire directement s = s*10**expo
-    //      ce qui detruit le truc ...) */
-    //    /*         s = s*10.d0**(expo-EXPLIM)
-    //           s = s*10.d0**EXPLIM*/
-
-    //    d1 = (double)(expo - EXPLIM);
-    //    *s *= pow(c10, d1);
-    //    d1 = (double) EXPLIM;
-    //    *s *= pow(c10, d1);
-
-    //    return 0;
-    //}
-    ///*4-7/ else use langage routines to do the job
-    //  the overhead is a retranslation into a string... */
-    //code0 = '0';
-    //i1 = ndgrec;
-    //for (i = 1; i <= i1; ++i)
-    //{
-    //    *(unsigned char *)&string[i - 1] = (char) (digit[i - 1] + code0);
-    //}
-    //i1 = ndgrec;
-    //if (expo < 0)
-    //{
-    //    sprintf(string + i1, ".e-%d", abs(expo));
-    //}
-    //else
-    //{
-    //    sprintf(string + i1, ".e+%d", abs(expo));
-    //}
-    //k = ndgrec + 4;
-    //*s = strtod(string, NULL);
-    return 0;
-}
-
diff --git a/scilab/modules/core/src/c/getval.h b/scilab/modules/core/src/c/getval.h
deleted file mode 100644 (file)
index a81cc76..0000000
+++ /dev/null
@@ -1,27 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2006 - 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 __GETVAL_H__
-#define __GETVAL_H__
-
-#include "machine.h"
-
-/**
- * @TODO add comment
- *
- * @param s
- * @param dotdet
- * @return <ReturnValue>
- */
-int C2F(getval)(double *s, int *dotdet, int *opt);
-
-#endif /* __GETVAL_H__ */
diff --git a/scilab/modules/core/src/c/scimem.c b/scilab/modules/core/src/c/scimem.c
deleted file mode 100644 (file)
index 190e6dc..0000000
+++ /dev/null
@@ -1,165 +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
- *
- */
-#include <stdlib.h>
-#include "sci_malloc.h"
-#include "stack-def.h"
-#include "scimem.h"
-#include "sciprint.h"
-#include "localization.h"
-#include "BOOL.h"
-/*--------------------------------------------------------------------------*/
-#ifndef _MSC_VER
-extern int scimem64(int *n, int newsize, BOOL isglobal);
-extern void freemem64(BOOL isglobal);
-#else
-static char *the_p = NULL;
-static char *the_ps = NULL;
-static char *the_gp = NULL;
-static char *the_gps = NULL;
-#endif
-/*--------------------------------------------------------------------------*/
-int C2F(scimem) (int *newsize, int *ptr)
-{
-#ifndef _MSC_VER
-    return scimem64(ptr, *newsize, FALSE);
-#else
-    register char *p1 = NULL;
-    double coef = 1.0;
-
-    if (*newsize > 0)
-    {
-        /* add 1 for alignment problems */
-        /* the last +2 is to overcome a problem with adjuststack. */
-        /* Which appears on OpenSolaris and on mandriva + EEEPC. */
-        /* To be corrected. Thanks Jonathan */
-        while (coef > 0)
-        {
-            int size = (int)(*newsize * coef);
-            p1 = (char *)SCISTACKMALLOC((size + 1 + 2) * sizeof(double));
-            if (p1 != NULL)
-            {
-                the_ps = the_p;
-                the_p = p1;
-                /* add 1 for alignment problems */
-                *ptr = ((int)(the_p - (char *)C2F(stack).Stk)) / sizeof(double) + 1;
-                *newsize = size;
-                //sciprint("SUCCEED to alloc %0.0f MB ( %0.0f%% )\n", (double)(size + 1 + 2) * sizeof(double) / (1024*1024), coef * 100);
-                break;
-            }
-            else
-            {
-                //sciprint("FAILED to alloc %0.0f MB\n", (double)(size + 1 + 2) * sizeof(double) / (1024*1024));
-                coef -= 0.01; //remove 1%
-            }
-        }
-
-        if (p1 == NULL)
-        {
-            /* We could not create a new stack, so, we are using the previous one */
-            if (the_p == NULL)
-            {
-                /* The stack never been created */
-                sciprint(_("No space to allocate Scilab stack.\n"));
-                exit(1);
-            }
-
-            *ptr = 0;
-        }
-
-    }
-    return (0);
-#endif
-}
-/*--------------------------------------------------------------------------*/
-int C2F(scigmem) (int *n, int *ptr)
-{
-#ifndef _MSC_VER
-    return scimem64(ptr, *n, TRUE);
-#else
-    register char *p1 = NULL;
-
-    if (*n > 0)
-    {
-        /* add 1 for alignment problems */
-        /* YC: Same comment as above */
-        p1 = (char *)SCISTACKMALLOC((unsigned)sizeof(double) * (*n + 1 + 2));
-        if (p1 != NULL)
-        {
-            the_gps = the_gp;
-            the_gp = p1;
-            /* add 1 for alignment problems */
-            *ptr = ((int)(the_gp - (char *)C2F(stack).Stk)) / sizeof(double) + 1;
-        }
-        else
-        {
-            if (the_gp == NULL)
-            {
-                sciprint(_("No space to allocate Scilab stack.\n"));
-                exit(1);
-            }
-            *ptr = 0;
-        }
-    }
-    return (0);
-#endif
-}
-
-/*--------------------------------------------------------------------------*/
-void C2F(freeglobalstacklastmemory) (void)
-{
-#ifdef _MSC_VER
-    if (the_gps != NULL)
-    {
-        SCISTACKFREE(the_gps);
-    }
-    the_gps = NULL;
-#endif
-}
-
-/*--------------------------------------------------------------------------*/
-void C2F(freestacklastmemory) (void)
-{
-#ifdef _MSC_VER
-    if (the_ps != NULL)
-    {
-        SCISTACKFREE(the_ps);
-    }
-    the_ps = NULL;
-#endif
-}
-
-/*--------------------------------------------------------------------------*/
-void freeGlobalStackCurrentMemory()
-{
-#ifndef _MSC_VER
-    freemem64(TRUE);
-#else
-    if (the_gp != NULL)
-    {
-        SCISTACKFREE(the_gp);
-    }
-    the_gp = NULL;
-#endif
-}
-
-void freeStackCurrentMemory()
-{
-#ifndef _MSC_VER
-    freemem64(FALSE);
-#else
-    if (the_p != NULL)
-    {
-        SCISTACKFREE(the_p);
-    }
-    the_p = NULL;
-#endif
-}
diff --git a/scilab/modules/core/src/c/scimem64.c b/scilab/modules/core/src/c/scimem64.c
deleted file mode 100644 (file)
index f541533..0000000
+++ /dev/null
@@ -1,168 +0,0 @@
-/*
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2008-2008 - INRIA - Simon LIPP
- *
- * 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 "sci_malloc.h"
-#include "BOOL.h"
-#include "stack-c.h"
-#include "sciprint.h"
-#include "localization.h"
-#include "doublecomplex.h"
-
-#include <assert.h>
-
-/*--------------------------------------------------------------------------*/
-/* We can't have the_p - ref ~ 0, because this can lead to some bugs. For
- * example, see sci_comp.f:70 and getlin.f:84. The first one sets lin to offset
- * and excepts it to be != 2 (2 has a special meaning in the getlin function).
- * With a low offset, lin can be 2, thus leading the wrong branch being choosed
- * in getlin.
- * Why 1024 ? Well, it works and I like this number. And, for the superstitious
- * being, it's the size of a memory page... (well, kinda geeky superstition)
- */
-#define SKIPSIZE 1024
-/*--------------------------------------------------------------------------*/
-static double *ref = NULL;
-static int ssize = 0, gssize = 0, nextsize = 0;
-/*--------------------------------------------------------------------------*/
-extern void C2F(relocstack)(void *p, void *pi, void *ps, void *pc, void *pz,
-                            int *n, int *ni, int *ns, int *nc, int *nz);
-/*--------------------------------------------------------------------------*/
-static void setref(double *p1, int allocsz)
-{
-    int ni = (allocsz * sizeof(double)) / sizeof(int);
-    int ns = (allocsz * sizeof(double)) / sizeof(float);
-    int nc = (allocsz * sizeof(double)) / sizeof(char);
-    int nz = (allocsz * sizeof(double)) / sizeof(doublecomplex);
-
-    C2F(stack).Stk = ref = p1;
-    C2F(relocstack)(ref, ref, ref, ref, ref, &allocsz, &ni, &ns, &nc, &nz);
-}
-
-static void movegstack()
-{
-    int l, gptr;
-
-    if (gssize)
-    {
-        /* Stack is like this:
-         * (internal) (reserved) (top) (unused) (bot) (gtop) (unused) (gbot)
-         * Since we have moved bot, we have to move gtop & gbot (global stack)
-         */
-        gptr = ssize + 2 + SKIPSIZE;
-        l = C2F(vstk).lstk[C2F(vstk).gtop] - C2F(vstk).lstk[C2F(vstk).isiz + 1];
-        //C2F(adjustgstacksize)(&gssize, &gptr, &l);
-    }
-}
-
-int scimem64(int *ptr, int newsize, BOOL isglobal)
-{
-    double *p1;
-    int othersize, oldsize, allocsz;
-
-    if (newsize++ < 0) /* Add 1 for alignment problems */
-    {
-        return 0;
-    }
-
-    if (isglobal == TRUE)
-    {
-        othersize = ssize;
-        oldsize = gssize;
-    }
-    else
-    {
-        othersize = gssize;
-        oldsize = ssize;
-    }
-
-    /* The real work for reducing stack size is done after the relocation,
-     * when freemem/freegmem is called. Right now, just return
-     */
-    if (newsize < oldsize)
-    {
-        nextsize = newsize;
-        if (isglobal == TRUE)
-        {
-            *ptr = ssize + 2 + SKIPSIZE;
-        }
-        else
-        {
-            *ptr = 2 + SKIPSIZE;
-        }
-        return 0;
-    }
-
-    /* Add 2 for internal stack */
-    allocsz = newsize + othersize + 2 + SKIPSIZE;
-    p1 = (double*)REALLOC(ref, sizeof(double) * allocsz);
-
-    if (p1 != NULL)
-    {
-        setref(p1, allocsz);
-
-        if (isglobal == TRUE)
-        {
-            *ptr = ssize + 2 + SKIPSIZE;
-            gssize = newsize;
-        }
-        else
-        {
-            *ptr = 2 + SKIPSIZE;
-            ssize = newsize;
-            movegstack();
-        }
-    }
-    else
-    {
-        if (ref == NULL)
-        {
-            sciprint(_("No space to allocate Scilab stack.\n"));
-            exit(1);
-        }
-        *ptr = 0;
-    }
-
-    return 0;
-}
-
-void freemem64(BOOL isglobal)
-{
-    double *p1;
-    int allocsz;
-
-    if (nextsize == 0)
-    {
-        return;
-    }
-
-    /* We have to reduce stack size */
-    if (isglobal == TRUE)
-    {
-        gssize = nextsize;
-    }
-    else
-    {
-        ssize = nextsize;
-        movegstack();
-    }
-
-    /* Add 2 for internal stack */
-    allocsz = ssize + gssize + 2 + SKIPSIZE;
-    p1 = (double*)REALLOC(ref, sizeof(double) * allocsz);
-
-    if (p1 != NULL)
-    {
-        setref(p1, allocsz);
-    }
-
-    nextsize = 0;
-}
diff --git a/scilab/modules/core/src/fortran/basnms.f b/scilab/modules/core/src/fortran/basnms.f
deleted file mode 100644 (file)
index 3841bc0..0000000
+++ /dev/null
@@ -1,43 +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 basnms(ids,nc,istk,ni)
-c!but
-c     traduit un nom de variable codee scilab en une variable scilab de
-c     type chaine 
-c!    
-      integer nsiz
-      parameter (nsiz=6)
-      integer ids(nsiz,nc),istk(*),nc,ni
-c
-      il=1
-      l=il+5+nc
-c     header d'une variable de type chaine
-
-      if(nc.eq.0) then 
-         istk(il)=1
-         istk(il+1)=0
-         istk(il+2)=0
-         istk(il+3)=0
-         ni=4
-         return
-      endif
-      istk(il)=10
-      istk(il+1)=1
-      istk(il+2)=nc
-      istk(il+3)=0
-c
-      istk(il+4)=1
-      do 10 i=1,nc
-         call namstr(ids(1,i),istk(l),nstr,1)
-         l=l+nstr
-         istk(il+4+i)=istk(il+3+i)+nstr
- 10   continue
-      ni=l-1
-      end
diff --git a/scilab/modules/core/src/fortran/bexec.f b/scilab/modules/core/src/fortran/bexec.f
deleted file mode 100644 (file)
index b586e10..0000000
+++ /dev/null
@@ -1,79 +0,0 @@
-c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-c Copyright (C) INRIA
-c     Bug 1054 corrected by Francois VOGEL, October 2004
-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 bexec(str,ns,ierr)
-c     ==========================================================
-c     This routine prepare execution of a scilab  instruction (given 
-c     in a character string str) within a C 
-c     or fortran procedure
-c     ==========================================================
-
-      include 'stack.h'
-      integer sadr,iadr
-      character*(*) str
-      character*5 tmp
-      integer retu(6),comma,eol
-c
-      data retu/27,14,29,30,27,23/,comma/52/,eol/99/
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-      ierr=0
-      if (ddt .eq. 4) then
-         write(tmp,'(i4)') top
-         call basout(io,wte,' bexec2  top:'//tmp(1:4))
-      endif
-c
-      mrhs=0
-      fin=0
-c
-c     create a scilab variable of type string in the top of the stack
-c     this variable will contain the input string concatenate with 
-c     the string of length 11 :   '<eol>,return,<eol><eol>'
-      top=top+1
-      il=iadr(lstk(top))
-      l=il+6
-      err=sadr(l+ns+11)-lstk(bot)
-      if(err.gt.0) then 
-         call error(17)
-         return
-      endif
-c     create the header
-      istk(il)=10
-      istk(il+1)=1
-      istk(il+2)=1
-      istk(il+3)=0
-      istk(il+4)=1
-      istk(il+5)=1+ns+11
-c     copy the input string
-      call cvstr(ns,istk(l),str,0)
-c     concatenate '<eol>,return,<eol><eol>'
-      l1=l+ns
-      istk(l1)=eol
-      l1=l1+1
-      istk(l1)=comma
-      l1=l1+1
-      call icopy(6,retu,1,istk(l1),1)
-      l1=l1+6
-      istk(l1)=comma
-      l1=l1+1
-      istk(l1)=eol
-      l1=l1+1
-      istk(l1)=eol
-c     set the end of the variable
-      lstk(top+1)=sadr(l1)+1
-c     inform scilab of the position of the variable containing
-c     instructions 
-      fin=lstk(top)
-      return
-      end
-
-
diff --git a/scilab/modules/core/src/fortran/btof.f b/scilab/modules/core/src/fortran/btof.f
deleted file mode 100644 (file)
index 8f1d2ff..0000000
+++ /dev/null
@@ -1,42 +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 btof(x,nx)
-c    scilab to fortran
-c
-      include 'stack.h'
-      integer iadr,sadr
-      integer hsize
-      double precision x
-      dimension x(*)
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-      il=iadr(lstk(top))
-      if(istk(il).ne.1) goto 10
-      hsize=4
-      n=istk(il+1)*istk(il+2)*(istk(il+3)+1)
-   40 if(n.ne.nx) then
-         call error(98)
-         return
-      endif
-      lx=sadr(il+hsize)
-      call unsfdcopy(nx,stk(lx),1,x,1)
-      top=top-1
-      return
-   10 if(istk(il).ne.2) then
-         call error(98)
-         return
-      endif
-      mn=istk(il+1)*istk(il+2)
-      hsize=9+mn
-      n=(istk(il+8+mn)-1)*(istk(il+3)+1)
-      goto 40
-      end
diff --git a/scilab/modules/core/src/fortran/btofm.f b/scilab/modules/core/src/fortran/btofm.f
deleted file mode 100644 (file)
index 1b7d7aa..0000000
+++ /dev/null
@@ -1,41 +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 btofm(x,ldx,nx,mx)
-c    scilab to fortran matrix transfer
-c
-      include 'stack.h'
-      integer iadr,sadr
-      double precision x
-      dimension x(*)
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-      il=iadr(lstk(top))
-      if(istk(il).ne.1) then
-         err=1
-         call error(53)
-         return
-      endif
-      if(istk(il+3).eq.1) then
-         err=1
-         call error(82)
-         return
-      endif
-      if(istk(il+1).ne.nx.or.istk(il+2).ne.mx) then
-         err=1
-         call error(98)
-         return
-      endif
-      lx=sadr(il+4)
-      call dmcopy(stk(lx),istk(il+1),x,ldx,nx,mx)
-      top=top-1
-      return
-      end
diff --git a/scilab/modules/core/src/fortran/cmplxt.f b/scilab/modules/core/src/fortran/cmplxt.f
deleted file mode 100644 (file)
index f4a710b..0000000
+++ /dev/null
@@ -1,186 +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
-
-      function cmplxt(istk,ni)
-c!but
-c     etant donne le code (ou une portion de code correspondant 
-c     a un ensemble d'"operations") d'une macro compilee de scilab 
-c     cette  fonction en retourne le nombre d'"operations" au 
-c     niveau 1.
-c!
-      integer istk(ni),cmplxt
-      character buf*(4096)
-c     
-
-      parameter (nsiz=6)
-      integer op
-c     
-      if(ni.eq.0) then
-         cmplxt=0
-         return
-      endif
-c
-      icount=0
-      lc=1
- 10   continue
-      if(lc.le.ni)  then
-         op=istk(lc)
-         icount=icount+1
-c     
-         if(op.eq.0) then
-c     nop
-            icount=icount-1
-            lc=lc+istk(lc+1)
-            goto 10
-         elseif(op.eq.1) then
-c     stackp
-            lc=lc+1+nsiz
-            goto 10
-         elseif(op.eq.2) then
-c     stackg
-            lc=lc+nsiz+3
-            goto 10
-         elseif(op.eq.3) then
-c     string
-            lc=lc+2+istk(lc+1)
-            goto 10
-         elseif(op.eq.4) then
-c     defmat
-            lc=lc+1
-            goto 10
-         elseif(op.eq.5) then
-c     allops
-            lc=lc+4
-            goto 10
-         elseif(op.eq.6) then
-c     num
-            lc=lc+3
-            goto 10
-         elseif(op.eq.7) then
-c     for
-            nc=istk(lc+1)
-            lc=lc+nc+2
-            nc=istk(lc)
-            lc=lc+1+nsiz+nc
-            goto 10
-         elseif(op.eq.8.or.op.eq.9) then
-c     if - while
-            if(istk(lc+1).gt.0) then
-c     ancienne version
-               lc=lc+2
-               nc=istk(lc)+istk(lc+1)+istk(lc+2)
-               lc=lc+3+nc
-            else
-c     nouvelle version               
-               nc=-istk(lc+1)
-               lc=lc+nc
-            endif
-            goto 10
-         elseif(op.eq.10) then
-c     select
-            nc=istk(lc+1)
-            lc=lc+nc
-            goto 10
-         elseif(op.eq.11) then
-c     try/catch
-            nc=istk(lc+1)+istk(lc+2)
-            lc=lc+3+nc
-            goto 10
-         elseif((op.ge.12.and.op.le.15).or.op.eq.28.or.op.eq.17) then
-c     pause,break,abort,eol,continue;quit
-            lc=lc+1
-            goto 10
-         elseif(op.eq.16) then 
-c     set line number (ignored)
-            lc=lc+2
-            icount=icount-1
-            goto 10
-         elseif(op.eq.18) then 
-c     mark named argument
-            lc=lc+1+nsiz
-            goto 10
-         elseif(op.eq.19) then 
-c     form recursive extraction list
-            lc=lc+3
-            goto 10
-         elseif(op.eq.20) then 
-c     exit
-            lc=lc+1
-            goto 10
-
-         elseif(op.eq.21) then 
-c     begrhs (ignored)
-            lc=lc+1
-            icount=icount-1
-            goto 10
-         elseif(op.eq.22) then 
-c     printmode (ignored)
-            lc=lc+2
-            icount=icount-1
-            goto 10
-         elseif(op.eq.23) then 
-c     name2var
-            lc=lc+1+nsiz
-            goto 10
-         elseif(op.eq.24) then
-c     defnull
-            lc=lc+1
-            goto 10
-         elseif(op.eq.25) then
-c     profile
-            lc=lc+3
-            goto 10
-         elseif(op.eq.26) then
-c     vector of strings
-            n=istk(lc+1)*istk(lc+2)
-            nc=istk(lc+4+n)-1
-            lc=lc+5+n+nc
-            goto 10
-         elseif(op.eq.27) then
-c     varfun
-            lc=lc+3+nsiz
-            goto 10
-         elseif(op.eq.29) then
-c     affectation
-            n=istk(lc+1)
-            lc=lc+3+n*(nsiz+1)
-            goto 10
-        elseif(op.eq.30) then
-c     skip logical ops (not reported by tradsl)
-            lc=lc+3
-            icount=icount-1
-            goto 10
-        elseif(op.eq.31) then
-c     comment
-            lc=lc+2+istk(lc+1)
-            goto 10
-
-         elseif(op.ge.100) then
-c     matfns
-            lc=lc+4
-            goto 10
-         elseif(op.ge.99) then
-c     matfns
-            lc=lc+1
-            goto 10
-         else
-c     code errone
-            cmplxt=-1
-            out = 6
-c                                              replaces write(6 ...) by basout bug 2598            
-c           write(6,'(''cmplxt : code erronne :'',i10)') op
-            write(buf,'(''cmplxt : code erronne :'',i10)') op
-            call basout(io,out,buf)
-            
-            return
-         endif
-      endif
-      
-      cmplxt=icount
-      end
diff --git a/scilab/modules/core/src/fortran/copyvar.f b/scilab/modules/core/src/fortran/copyvar.f
deleted file mode 100644 (file)
index cf68122..0000000
+++ /dev/null
@@ -1,40 +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 copyvar(il,sz)
-c =============================================================
-c     copy a variable  at the top of the stack
-c =============================================================
-c
-      include 'stack.h'
-c
-c     il : pointer on the beginning of the variable
-c     sz : memory size used by the variable (in stk words)
-c     on return top is incremented
-      integer il,sz
-c
-      integer sadr
-c
-c
-      sadr(l)=(l/2)+1
-c
-      top=top+1
-      err=lstk(top)+sz-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-      if(top.ge.bot) then
-         call error(18)
-         return
-      endif
-      call unsfdcopy(sz,stk(sadr(il)),1,stk(lstk(top)),1)
-      lstk(top+1)=lstk(top)+sz
-      return
-      end
index 2da1a41..c9c0156 100644 (file)
                <Filter Name="Source Files" Filter="f90;for;f;fpp;ftn;def;odl;idl">
                <File RelativePath="allowptr.f"/>
                <File RelativePath=".\backspaceinter.f"/>
-               <File RelativePath="basnms.f"/>
-               <File RelativePath="bexec.f"/>
-               <File RelativePath="btof.f"/>
-               <File RelativePath="btofm.f"/>
                <File RelativePath="clunit.f"/>
-               <File RelativePath="cmplxt.f"/>
-               <File RelativePath="copyvar.f"/>
-               <File RelativePath="createref.f"/>
-               <File RelativePath="cvdm.f"/>
                <File RelativePath="cvname.f"/>
                <File RelativePath="dtosci.f"/>
-               <File RelativePath="errmgr.f"/>
-               <File RelativePath="error.f"/>
                <File RelativePath="expsum.f"/>
-               <File RelativePath="extlarg.f"/>
                <File RelativePath="find.f"/>
                <File RelativePath="folhp.f"/>
-               <File RelativePath="ftob.f"/>
-               <File RelativePath="getch.f"/>
-               <File RelativePath="getlin.f"/>
                <File RelativePath="indxg.f"/>
                <File RelativePath="intstr.f"/>
                <File RelativePath="isany.f"/>
-               <File RelativePath="isbrk.f"/>
-               <File RelativePath=".\isinstring.f"/>
-               <File RelativePath="istrue.f"/>
                <File RelativePath="itosci.f"/>
-               <File RelativePath="lst2vars.f"/>
-               <File RelativePath="mkindx.f"/>
                <File RelativePath="mklist.f"/>
-               <File RelativePath="prompt.f"/>
-               <File RelativePath="ptrback.f"/>
                <File RelativePath="putid.f"/>
                <File RelativePath=".\read_inter.f"/>
                <File RelativePath=".\readinter.f"/>
-               <File RelativePath="ref2val.f"/>
+               <File RelativePath="ref2val.f"/> //
                <File RelativePath=".\rewindinter.f"/>
                <File RelativePath="savlod.f"/>
-               <File RelativePath="setgetmode.f"/>
-               <File RelativePath="setippty.f"/>
                <File RelativePath="showstack.f"/>
-               <File RelativePath=".\stackc2i.f"/>
-               <File RelativePath=".\stacki2d.f"/>
-               <File RelativePath=".\stackr2d.f"/>
-               <File RelativePath="whatln.f"/>
+               <File RelativePath="whatln.f"/> //
                <File RelativePath=".\withf2c.f"/>
                <File RelativePath=".\write_inter.f"/>
                <File RelativePath="xerbla.f"/></Filter>
index f638737..6f796ed 100644 (file)
@@ -1,4 +1,4 @@
-<?xml version="1.0" encoding="utf-8"?>
+<?xml version="1.0" encoding="utf-8"?>
 <Project DefaultTargets="Build" ToolsVersion="12.0" xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
   <ItemGroup Label="ProjectConfigurations">
     <ProjectConfiguration Include="Debug|Win32">
@@ -323,28 +323,17 @@ cd ..
     <ClCompile Include="..\c\withf2c.c" />
     <ClCompile Include="allowptr.c" />
     <ClCompile Include="backspaceinter.c" />
-    <ClCompile Include="basnms.c" />
     <ClCompile Include="clunit.c" />
-    <ClCompile Include="cmplxt.c" />
-    <ClCompile Include="cvdm.c" />
     <ClCompile Include="cvname.c" />
     <ClCompile Include="expsum.c" />
     <ClCompile Include="find.c" />
     <ClCompile Include="folhp.c" />
-    <ClCompile Include="getch.c" />
     <ClCompile Include="indxg.c" />
     <ClCompile Include="intstr.c" />
-    <ClCompile Include="isbrk.c" />
-    <ClCompile Include="isinstring.c" />
-    <ClCompile Include="mkindx.c" />
-    <ClCompile Include="prompt.c" />
-    <ClCompile Include="ptrback.c" />
     <ClCompile Include="putid.c" />
     <ClCompile Include="readinter.c" />
     <ClCompile Include="read_inter.c" />
     <ClCompile Include="rewindinter.c" />
-    <ClCompile Include="setgetmode.c" />
-    <ClCompile Include="setippty.c" />
     <ClCompile Include="showstack.c" />
     <ClCompile Include="whatln.c" />
     <ClCompile Include="write_inter.c" />
@@ -357,28 +346,17 @@ cd ..
   <ItemGroup>
     <f2c_rule Include="allowptr.f" />
     <f2c_rule Include="backspaceinter.f" />
-    <f2c_rule Include="basnms.f" />
     <f2c_rule Include="clunit.f" />
-    <f2c_rule Include="cmplxt.f" />
-    <f2c_rule Include="cvdm.f" />
     <f2c_rule Include="cvname.f" />
     <f2c_rule Include="expsum.f" />
     <f2c_rule Include="find.f" />
     <f2c_rule Include="folhp.f" />
-    <f2c_rule Include="getch.f" />
     <f2c_rule Include="indxg.f" />
     <f2c_rule Include="intstr.f" />
-    <f2c_rule Include="isbrk.f" />
-    <f2c_rule Include="isinstring.f" />
-    <f2c_rule Include="mkindx.f" />
-    <f2c_rule Include="prompt.f" />
-    <f2c_rule Include="ptrback.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="setgetmode.f" />
-    <f2c_rule Include="setippty.f" />
     <f2c_rule Include="showstack.f" />
     <f2c_rule Include="whatln.f" />
     <f2c_rule Include="write_inter.f" />
@@ -417,4 +395,4 @@ cd ..
   <ImportGroup Label="ExtensionTargets">
     <Import Project="..\..\..\..\Visual-Studio-settings\f2c.targets" />
   </ImportGroup>
-</Project>
\ No newline at end of file
+</Project>
index d3f9e5a..67b5946 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">
     <ClCompile Include="allowptr.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="basnms.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="clunit.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="cmplxt.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
-    <ClCompile Include="cvdm.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="cvname.c">
       <Filter>Source Files</Filter>
     </ClCompile>
     <ClCompile Include="folhp.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="getch.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="intstr.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="isbrk.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
-    <ClCompile Include="isinstring.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
-    <ClCompile Include="mkindx.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
-    <ClCompile Include="prompt.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
-    <ClCompile Include="ptrback.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="putid.c">
       <Filter>Source Files</Filter>
     </ClCompile>
-    <ClCompile Include="setgetmode.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
-    <ClCompile Include="setippty.c">
-      <Filter>Source Files</Filter>
-    </ClCompile>
     <ClCompile Include="whatln.c">
       <Filter>Source Files</Filter>
     </ClCompile>
     <f2c_rule Include="allowptr.f">
       <Filter>Fortran Files</Filter>
     </f2c_rule>
-    <f2c_rule Include="basnms.f">
-      <Filter>Fortran Files</Filter>
-    </f2c_rule>
     <f2c_rule Include="clunit.f">
       <Filter>Fortran Files</Filter>
     </f2c_rule>
-    <f2c_rule Include="cmplxt.f">
-      <Filter>Fortran Files</Filter>
-    </f2c_rule>
-    <f2c_rule Include="cvdm.f">
-      <Filter>Fortran Files</Filter>
-    </f2c_rule>
     <f2c_rule Include="cvname.f">
       <Filter>Fortran Files</Filter>
     </f2c_rule>
     <f2c_rule Include="folhp.f">
       <Filter>Fortran Files</Filter>
     </f2c_rule>
-    <f2c_rule Include="getch.f">
-      <Filter>Fortran Files</Filter>
-    </f2c_rule>
     <f2c_rule Include="intstr.f">
       <Filter>Fortran Files</Filter>
     </f2c_rule>
-    <f2c_rule Include="isbrk.f">
-      <Filter>Fortran Files</Filter>
-    </f2c_rule>
-    <f2c_rule Include="isinstring.f">
-      <Filter>Fortran Files</Filter>
-    </f2c_rule>
-    <f2c_rule Include="mkindx.f">
-      <Filter>Fortran Files</Filter>
-    </f2c_rule>
-    <f2c_rule Include="prompt.f">
-      <Filter>Fortran Files</Filter>
-    </f2c_rule>
-    <f2c_rule Include="ptrback.f">
-      <Filter>Fortran Files</Filter>
-    </f2c_rule>
     <f2c_rule Include="putid.f">
       <Filter>Fortran Files</Filter>
     </f2c_rule>
-    <f2c_rule Include="setgetmode.f">
-      <Filter>Fortran Files</Filter>
-    </f2c_rule>
-    <f2c_rule Include="setippty.f">
-      <Filter>Fortran Files</Filter>
-    </f2c_rule>
     <f2c_rule Include="whatln.f">
       <Filter>Fortran Files</Filter>
     </f2c_rule>
       <Filter>Libraries Dependencies</Filter>
     </None>
   </ItemGroup>
-</Project>
\ No newline at end of file
+</Project>
diff --git a/scilab/modules/core/src/fortran/createref.f b/scilab/modules/core/src/fortran/createref.f
deleted file mode 100644 (file)
index 76cc3e4..0000000
+++ /dev/null
@@ -1,105 +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 createref1(topk)
-      include 'stack.h'
-      integer topk
-      integer iadr
-c
-      iadr(l)=l+l-1
-c
-      call createref(iadr(lstk(topk)),topk,lstk(topk+1)-lstk(topk))
-      end
-      subroutine createref(il,topk,sz)
-c =============================================================
-c     create a reference to a variable at the top of the stack
-c =============================================================
-c
-      include 'stack.h'
-c
-c     il   : pointer on the beginning of the variable
-c     topk : index of the variable in lstk if any
-c     sz   : mem size of the variable
-c
-      integer topk,sz
-      integer iadr,sadr
-c
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-      top=top+1
-      if(top.ge.bot) then
-         call error(18)
-         return
-      endif
-c
-      ilv=iadr(lstk(top))
-      err=sadr(ilv+4)-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-
-      if(istk(il).lt.0) then
-         call icopy(4,istk(il),1,istk(ilv),1)
-      else
-         istk(ilv)=-istk(il)
-         istk(ilv+1)=sadr(il)
-         istk(ilv+2)=topk
-         istk(ilv+3)=sz
-      endif
-      lstk(top+1)=sadr(ilv+4)
-      return
-      end
-
-      subroutine setref(topk)
-c =============================================================
-c     creates a variable on the top of stack to inform stackp that 
-c     corresponding variable as already been stored
-c =============================================================
-c
-c     Copyright INRIA
-      include 'stack.h'
-c
-c     topk : index of the stored variable in lstk 
-c
-      integer topk
-      integer iadr,sadr
-c
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-      top=top+1
-      if(top.ge.bot) then
-         call error(18)
-         return
-      endif
-c
-      ilv=iadr(lstk(top))
-      err=sadr(ilv+4)-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-
-      istk(ilv)=-1
-      istk(ilv+1)=-1
-      istk(ilv+2)=topk
-      if(topk.gt.0) then
-         istk(ilv+3)=lstk(topk+1)-lstk(topk)
-      else
-         istk(ilv+3)=0
-      endif
-      lstk(top+1)=sadr(ilv+4)
-      return
-      end
-
-
diff --git a/scilab/modules/core/src/fortran/cvdm.f b/scilab/modules/core/src/fortran/cvdm.f
deleted file mode 100644 (file)
index 5038cfc..0000000
+++ /dev/null
@@ -1,89 +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 cvdm(x,nx,m,n,maxc,mode,str,istr)
-c
-c ====================================================================
-c scilab . librairie system
-c ====================================================================
-c
-c     cvdm transcrit une matrice reelle en une matrice de chaines
-c           de caracteres scilab
-c
-c ====================================================================
-c
-c     subroutine cvdm(x,nx,m,n,maxc,mode,str,istr)
-c
-c     double precision x(*)
-c     integer nx,m,n,maxc,mode,str(*),istr(m*n+1)
-c
-c     x : tableau contenant les coefficients de la matrice x
-c     nx : entier definissant le rangement dans x
-c     m : nombre de ligne de la matrice
-c     n : nombre de colonnes de la matrice
-c     maxc : nombre de caracteres maximum autorise pour
-c            representer un nombre
-c     mode : si mode=1 representation variable
-c            si mode=0 representation d(maxc).(maxc-7)
-c     str : tableau contenant apres execution la suite des codes scilab
-c           des caracteres.taille >= m*n*maxc
-c     istr : tableau donnant la structure de str
-c
-      double precision x(*),a,eps,dlamch
-      integer maxc,mode,fl,typ
-      integer str(*),istr(*),ipt
-      character*256 cw
-      character*1 ii
-      data ipt /46/
-
-c
-      eps=dlamch('p')
-c     
-      lstr=1
-      istr(1)=1
-      lp=-nx
-      do 60 k=1,n
-         lp=lp+nx
-         do 50 l=1,m
-c     
-c     traitement du coeff (l,k)
-            a=x(lp+l)
-
-            if(m*n.gt.1.and.abs(a).lt.eps.and.mode.ne.0) a=0.0d+0
-c     determination du format devant representer a
-            typ=1
-            if(mode.eq.1) call fmt(abs(a),maxc,typ,n1,n2)
-c           
-            if(typ.eq.2) then
-               ifmt=n2+32*n1
-            elseif(typ.lt.0) then
-               ifmt=typ
-            else
-               ifmt=1
-            endif
-            l1=1
-            l0=1
-c
-            call formatnumber(abs(a),ifmt,maxc,cw(l1:),fl)
-            if (a.lt.0.0d0)  cw(l1:l1)='-'
-
-            l1=l1+fl
-            if(cw(l0:l0).eq.'+'.or.cw(l0:l0).eq.' ') l0=2
-            l1=l1+1
- 42         l1=l1-1
-            ii=cw(l1-1:l1-1)
-            if(ichar(ii).eq.ichar(' ')) goto 42
-            if(ichar(ii).eq.ipt) goto 42
-            call cvstr(l1-l0,str(lstr),cw(l0:l1-1),0)
-            lstr=lstr+l1-l0
-            istr((k-1)*m+l+1)=lstr
- 50      continue
- 60   continue
-      return
-      end
diff --git a/scilab/modules/core/src/fortran/elementary_functions_f.vfproj b/scilab/modules/core/src/fortran/elementary_functions_f.vfproj
deleted file mode 100644 (file)
index 81212f2..0000000
+++ /dev/null
@@ -1,235 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<VisualStudioProject ProjectType="typeStaticLibrary" ProjectCreator="Intel Fortran" Keyword="Static Library" Version="11.0" ProjectIdGuid="{C352587B-F5E4-457C-80EE-A1AEAB176C8E}">
-       <Platforms>
-               <Platform Name="Win32"/>
-               <Platform Name="x64"/></Platforms>
-       <Configurations>
-               <Configuration Name="Debug|Win32" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary">
-                               <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDebugDLL"/>
-                               <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="core_f.def" GenerateDebugInformation="true" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="cacsd_f.lib eispack_f.lib elementary_functions.lib integer.lib core.lib linpack_f.lib output_stream.lib polynomials_f.lib slatec_f.lib sparse_f.lib string.lib ../../../../bin/blasplus.lib ../../../../bin/lapack.lib"/>
-                               <Tool Name="VFResourceCompilerTool"/>
-                               <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/>
-                               <Tool Name="VFCustomBuildTool"/>
-                               <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion
-cd $(ConfigurationName)
-set LIST_OBJ=
-for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f
-$(SolutionDir)bin\dumpexts -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ%
-copy $(ProjectName).def ..\$(ProjectName).def &gt;nul
-del *.def &gt;nul
-cd .." Description="Build $(ProjectName).def"/>
-                               <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:&quot;$(InputDir)core_import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)core.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)elementary_functions_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)elementary_functions.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)string_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)string.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)output_stream_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)output_stream.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)integer_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)integer.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)cacsd_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)cacsd_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)polynomials_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)polynomials_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)sparse_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)sparse_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)eispack_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)eispack_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)linpack_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)linpack_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)slatec_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)slatec_f.lib&quot; 1&gt;NUL 2&gt;NUL" Description="Build Dependencies"/>
-                               <Tool Name="VFPostBuildEventTool"/>
-                               <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
-               <Configuration Name="Release|Win32" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary">
-                               <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" Parallelization="true" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDLL"/>
-                               <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="core_f.def" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="cacsd_f.lib eispack_f.lib elementary_functions.lib integer.lib core.lib linpack_f.lib output_stream.lib polynomials_f.lib slatec_f.lib sparse_f.lib string.lib ../../../../bin/blasplus.lib ../../../../bin/lapack.lib"/>
-                               <Tool Name="VFResourceCompilerTool"/>
-                               <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/>
-                               <Tool Name="VFCustomBuildTool"/>
-                               <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion
-cd $(ConfigurationName)
-set LIST_OBJ=
-for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f
-$(SolutionDir)bin\dumpexts -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ%
-copy $(ProjectName).def ..\$(ProjectName).def &gt;nul
-del *.def &gt;nul
-cd .." Description="Build $(ProjectName).def"/>
-                               <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:&quot;$(InputDir)core_import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)core.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)elementary_functions_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)elementary_functions.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)string_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)string.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)output_stream_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)output_stream.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)integer_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)integer.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)cacsd_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)cacsd_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)polynomials_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)polynomials_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)sparse_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)sparse_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)eispack_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)eispack_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)linpack_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)linpack_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)slatec_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)slatec_f.lib&quot; 1&gt;NUL 2&gt;NUL" Description="Build Dependencies"/>
-                               <Tool Name="VFPostBuildEventTool"/>
-                               <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
-               <Configuration Name="Debug|x64" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary">
-                               <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDebugDLL"/>
-                               <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="core_f.def" GenerateDebugInformation="true" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="cacsd_f.lib eispack_f.lib elementary_functions.lib integer.lib core.lib linpack_f.lib output_stream.lib polynomials_f.lib slatec_f.lib sparse_f.lib string.lib ../../../../bin/blasplus.lib ../../../../bin/lapack.lib"/>
-                               <Tool Name="VFResourceCompilerTool"/>
-                               <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/>
-                               <Tool Name="VFCustomBuildTool"/>
-                               <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion
-cd $(ConfigurationName)
-set LIST_OBJ=
-for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f
-$(SolutionDir)bin\dumpexts -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ%
-copy $(ProjectName).def ..\$(ProjectName).def &gt;nul
-del *.def &gt;nul
-cd .." Description="Build $(ProjectName).def"/>
-                               <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:&quot;$(InputDir)core_import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)core.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)elementary_functions_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)elementary_functions.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)string_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)string.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)output_stream_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)output_stream.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)integer_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)integer.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)cacsd_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)cacsd_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)polynomials_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)polynomials_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)sparse_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)sparse_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)eispack_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)eispack_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)linpack_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)linpack_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)slatec_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)slatec_f.lib&quot; 1&gt;NUL 2&gt;NUL" Description="Build Dependencies"/>
-                               <Tool Name="VFPostBuildEventTool"/>
-                               <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
-               <Configuration Name="Release|x64" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary">
-                               <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" Parallelization="true" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDLL"/>
-                               <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="core_f.def" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="cacsd_f.lib eispack_f.lib elementary_functions.lib integer.lib core.lib linpack_f.lib output_stream.lib polynomials_f.lib slatec_f.lib sparse_f.lib string.lib ../../../../bin/blasplus.lib ../../../../bin/lapack.lib"/>
-                               <Tool Name="VFResourceCompilerTool"/>
-                               <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/>
-                               <Tool Name="VFCustomBuildTool"/>
-                               <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion
-cd $(ConfigurationName)
-set LIST_OBJ=
-for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f
-$(SolutionDir)bin\dumpexts -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ%
-copy $(ProjectName).def ..\$(ProjectName).def &gt;nul
-del *.def &gt;nul
-cd .." Description="Build $(ProjectName).def"/>
-                               <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:&quot;$(InputDir)core_import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)core.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)elementary_functions_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)elementary_functions.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)string_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)string.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)output_stream_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)output_stream.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)integer_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)integer.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)cacsd_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)cacsd_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)polynomials_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)polynomials_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)sparse_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)sparse_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)eispack_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)eispack_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)linpack_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)linpack_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)slatec_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)slatec_f.lib&quot; 1&gt;NUL 2&gt;NUL" Description="Build Dependencies"/>
-                               <Tool Name="VFPostBuildEventTool"/>
-                               <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration></Configurations>
-       <Files>
-               <Filter Name="Header Files" Filter="fi;fd">
-               <File RelativePath="..\..\includes\callinter.h.f"/>
-               <File RelativePath="..\..\includes\stack.h"/></Filter>
-               <Filter Name="Library Dependencies"/>
-               <Filter Name="Resource Files" Filter="rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe"/>
-               <Filter Name="Source Files" Filter="f90;for;f;fpp;ftn;def;odl;idl">
-               <File RelativePath="allops.f"/>
-               <File RelativePath="allowptr.f"/>
-               <File RelativePath="atome.f"/>
-               <File RelativePath="basin.f"/>
-               <File RelativePath="basnms.f"/>
-               <File RelativePath="bexec.f"/>
-               <File RelativePath="btof.f"/>
-               <File RelativePath="btofm.f"/>
-               <File RelativePath="clause.f"/>
-               <File RelativePath="clunit.f"/>
-               <File RelativePath="cmdstr.f"/>
-               <File RelativePath="cmplxt.f"/>
-               <File RelativePath="command.f"/>
-               <File RelativePath="compcl.f"/>
-               <File RelativePath="compil.f"/>
-               <File RelativePath="copyvar.f"/>
-               <File RelativePath="createref.f"/>
-               <File RelativePath="cvdm.f"/>
-               <File RelativePath="cvname.f"/>
-               <File RelativePath="cvwm.f"/>
-               <File RelativePath="dbasin.f"/>
-               <File RelativePath="defmat.f"/>
-               <File RelativePath="dtosci.f"/>
-               <File RelativePath="errmgr.f"/>
-               <File RelativePath="error.f"/>
-               <File RelativePath="expsum.f"/>
-               <File RelativePath="extlarg.f"/>
-               <File RelativePath="fact.f"/>
-               <File RelativePath="find.f"/>
-               <File RelativePath="findequal.f"/>
-               <File RelativePath="folhp.f"/>
-               <File RelativePath="ftob.f"/>
-               <File RelativePath="funnam.f"/>
-               <File RelativePath="funs.f"/>
-               <File RelativePath="getch.f"/>
-               <File RelativePath="getfun.f"/>
-               <File RelativePath="getfunction.f"/>
-               <File RelativePath="getlin.f"/>
-               <File RelativePath="getnum.f"/>
-               <File RelativePath="getstr.f"/>
-               <File RelativePath="getsym.f"/>
-               <File RelativePath="hmcreate.f"/>
-               <File RelativePath="hndlops.f"/>
-               <File RelativePath="indxg.f"/>
-               <File RelativePath="inisci.f"/>
-               <File RelativePath="intstr.f"/>
-               <File RelativePath="isany.f"/>
-               <File RelativePath="isbrk.f"/>
-               <File RelativePath="iseye.f"/>
-               <File RelativePath=".\isinstring.f"/>
-               <File RelativePath="isnum.f"/>
-               <File RelativePath="istrue.f"/>
-               <File RelativePath="itosci.f"/>
-               <File RelativePath="logops.f"/>
-               <File RelativePath="lst2vars.f"/>
-               <File RelativePath="macro.f"/>
-               <File RelativePath="majmin.f"/>
-               <File RelativePath="matc.f"/>
-               <File RelativePath="matz.f"/>
-               <File RelativePath="matzs.f"/>
-               <File RelativePath="misops.f"/>
-               <File RelativePath="mkindx.f"/>
-               <File RelativePath="mklist.f"/>
-               <File RelativePath="mname.f"/>
-               <File RelativePath="mrknmd.f"/>
-               <File RelativePath="nextj.f"/>
-               <File RelativePath="prompt.f"/>
-               <File RelativePath="ptover.f"/>
-               <File RelativePath="ptrback.f"/>
-               <File RelativePath="putid.f"/>
-               <File RelativePath="ref2val.f"/>
-               <File RelativePath="savlod.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_argn.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_clear.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_clearglobal.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_comp.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_delbpt.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_dispbpt.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_errcatch.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_exists.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_global.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_ieee.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_intppty.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_iserror.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_isglobal.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_macrovar.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_mtlb_mode.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_resume.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\sci_f_setbpt.f"/>
-               <File RelativePath="seteol.f"/>
-               <File RelativePath="setgetmode.f"/>
-               <File RelativePath="setippty.f"/>
-               <File RelativePath="setlnb.f"/>
-               <File RelativePath="showstack.f"/>
-               <File RelativePath="sigbas.f"/>
-               <File RelativePath="skpins.f"/>
-               <File RelativePath="stack.f"/>
-               <File RelativePath=".\stackc2i.f"/>
-               <File RelativePath="stackg.f"/>
-               <File RelativePath="stackgl.f"/>
-               <File RelativePath=".\stacki2d.f"/>
-               <File RelativePath="stackp.f"/>
-               <File RelativePath=".\stackr2d.f"/>
-               <File RelativePath="storeglobal.f"/>
-               <File RelativePath="termf.f"/>
-               <File RelativePath="tradsl.f"/>
-               <File RelativePath="typ2cod.f"/>
-               <File RelativePath="varfunptr.f"/>
-               <File RelativePath="whatln.f"/>
-               <File RelativePath="..\..\sci_gateway\fortran\where.f"/>
-               <File RelativePath="xerbla.f"/></Filter>
-               <File RelativePath="..\..\sci_gateway\core_gateway.xml"/>
-               <File RelativePath="..\..\Makefile.am"/></Files>
-       <Globals/></VisualStudioProject>
diff --git a/scilab/modules/core/src/fortran/errmgr.f b/scilab/modules/core/src/fortran/errmgr.f
deleted file mode 100644 (file)
index 2978429..0000000
+++ /dev/null
@@ -1,143 +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                      
-c
-      subroutine errmgr(n,errtyp)
-c     -------------------------
-c     this routines handle errors: recursion stack cleaning, error
-c     recovery, display of calling tree
-c     n      : the error number
-c     errtyp : error type (recoverable:0 or not:1)
-c!
-      include 'stack.h'
-      integer errtyp,n
-c
-      integer num,imess,imode,lunit
-      integer ll,r,p,mode(2),pt0
-      logical first,trace,pflag,erecmode
-c
-      ll=lct(5)
-      first=.true.
-      lunit=wte
-c
-      call errmds(num,imess,imode)
-      trace=.not.((num.lt.0.or.num.eq.n).and.imess.ne.0)
-c
-      erecmode=(num.eq.n.or.num.lt.0).and.imode.ne.0.and.imode.ne.3
-c     
-      pt0=0
-      if(pt.le.pt0) goto 50
-      if(erecmode) then
-c     error recovery mode
-         p=pt+1
-c        . looking if error has occurred in execstr deff getf or comp
- 20      p=p-1
-         if(p.le.errpt) then
-            pt0=pt
-            goto 50
-         endif
-         if(rstk(p).eq.1001.or.rstk(p).eq.1002) then
-c     .     error has occurred in an external
-            errtyp=0
-            pt0=p
-         elseif(rstk(p).eq.808.or.rstk(p).eq.618) then
-c     .     error has occurred in a try instructions
-            errtyp=0
-            pt0=p
-         elseif(rstk(p).eq.501.and.catch.eq.0) then
-            if (rstk(p-1).eq.909) then
-c     .        exec of a function
-               goto 20
-            endif
-c     .     error has occurred in a compiled macro
-            errtyp=0
-            pt0=p
-         elseif(rstk(p).eq.502) then 
-            if(rstk(p-1).eq.903.and.catch.eq.0) then
-c     .     error has occurred in execstr
-               errtyp=0
-               pt0=p
-            elseif(rstk(p-1).eq.904.or.rstk(p-1).eq.901) then
-c     .     error has occurred in comp
-               errtyp=0
-               pt0=p
-            else
-               goto 20
-            endif
-         elseif(rstk(p).eq.612) then
-c     .      error has occurred in a for called by a compiled macro
-            if (catch.ne.0) then
-c     .        under errcatch('continue') or errcatch('pause') mode: let the loop continue
-               pt0=p
-               errtyp=0
-            else
-c     .        under try or execstr(...,'errcatch'): terminates the loop
-c     .        take into account the for loop variable (in a compiled macro)
-               toperr=ids(4,p)
-               goto 20
-            endif
-         else
-            goto 20
-         endif
-      endif
-
-c
-c depilement de l'environnement
-      lct(4)=2
-      pt=pt+1
- 35   pt=pt-1
-      if(pt.eq.pt0) goto 50
-      r=rstk(pt)
-      goto(36,36,37) r-500
-      if(r.eq.904) then
-         if (ids(2,pt).ne.0) then
-c     .     getf(  'c') case, close the file
-            mode(1)=0
-            call clunit(-ids(2,pt),buf,mode)
-         endif
-      endif
-      goto 35
-c     
-c     on depile une fonction
- 36   call depfun(lunit,trace,first)
-      goto 35
-c     
-c     on depile un exec ou une pause
- 37   call depexec(lunit,trace,first,pflag)
-      if(.not.pflag) goto 35
-c     
- 50   continue
-c     if(pt.gt.0.and.rstk(pt).eq.1001) pt=pt+1
-      if(erecmode) then
-         if(errtyp.eq.0) then
-c     .     recoverable error
-            top=toperr
-            if(err2.eq.0) then
-               err1=n
-            else
-               err1=err2
-            endif
-            err=0
-         else
-            comp(1)=0
-            comp(3)=0
-            err=n
-         endif
-      else
-         comp(1)=0
-         comp(3)=0
-         err=n
-      endif
-      if(trace) call basout(io,lunit,' ')
-c     
-      return
-      end
-c     -------------------------
diff --git a/scilab/modules/core/src/fortran/error.f b/scilab/modules/core/src/fortran/error.f
deleted file mode 100644 (file)
index 67e9359..0000000
+++ /dev/null
@@ -1,254 +0,0 @@
-c Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-c Copyright (C) INRIA
-c Copyright (C) Bug 1091 corrected - Francois VOGEL November 2004
-c Copyright (C) Bug 1417 corrected - Francois VOGEL May 2005
-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 depfun(lunit,trace,first)
-c     depile une macro ou un execstr
-      include 'stack.h'
-      integer lunit
-      logical trace,first,callback
-      integer sadr,ll,leng,ival(2)
-      double precision val
-      equivalence (ival(1),val)
-c
-      sadr(l)=(l/2)+1
-c
-      ll=lct(5)
-      k=lpt(1)-(13+nsiz)
-      lpt(1)=lin(k+1)
-      lpt(2)=lin(k+2)
-      lpt(3)=lin(k+3)
-      lpt(4)=lin(k+4)
-      lpt(6)=k
-      ival(1)=lin(k+8)
-      ival(2)=lin(k+9)
-      stk(lstk(isiz))=val
-c     recherche du nom de la function correspondant a ce niveau
-      lk=sadr(lin(k+6))
-      if(lk.le.lstk(top+1)) then
-         km=0
-      else
-         km=lin(k+5)-1
-      endif
- 1503 km=km+1
-      if(km.gt.isiz)goto 1513
-      if(lstk(km).ne.lk) goto 1503
-c
- 1513 continue
-      ilk=lin(k+6)
-      if(trace) then
-         m=0
-         if(istk(ilk).ne.10) then
-            if(first) then
-               buf='at line '
-               m=11
-               if (istk(ilk).eq.13) then 
-c     .           compiled macro
-                  nlc=0
-               else
-c     .           uncompiled macro
-                  nlc=1
-               endif
-            else
-               buf='line '
-               m=6
-               call whatln(lpt(1),lpt(2),lpt(6),nlc,l1,ifin)
-            endif
-            write(buf(m+1:m+5),'(i4)') lct(8)-nlc
-            m=m+4
-            buf(m+1:m+18)=' of function     '
-            m=m+13
-            if (km.le.isiz) then
-               call cvnamel(idstk(1,km),buf(m+1:m+nlgh),1,leng)
-               m=m+leng
-            endif
-         else
-            buf='in  execstr instruction'
-            m=26
-         endif
-         callback=rstk(pt-1).eq.706.or.rstk(pt-1).eq.606
-         if(callback) then
-            buf(1:26)='while executing a callback'
-            m=26
-         else
-            buf(m+1:m+14)=' called by :'
-            m=m+14
-         endif
-         call basout(io,lunit,buf(1:m))
-         lct(8)=lin(k+12+nsiz)
-c     
-         if (.not.callback) then
-            call whatln(lpt(1),lpt(2),lpt(6),nlc,l1,ifin)
-            m=ifin-l1+1
-            if(m.gt.ll) then
-               l1=max(l1,lpt(2)-ll/2)
-               m=min(ifin-l1,ll)
-            endif
-
-            if(l1.gt.0.and.m.gt.0.and.m+l1-1.le.lsiz) then
-               call cvstr(m,lin(l1),buf(1:m),1)
-               call basout(io,lunit,buf(1:m))
-            endif
-         endif
-
-      endif
-c
-      macr=macr-1
-      if(istk(ilk).ne.10.and.rstk(pt-1).ne.909) bot=lin(k+5)
-      return
-      end
-
-      subroutine depexec(lunit,trace,first,pflag)
-c     pflag ,indique si c'est une pause qui a ete depilee
-c Bug 1091 corrected - Francois VOGEL November 2004
-c Bug 1417 corrected - Francois VOGEL May 2005
-      include 'stack.h'
-      logical trace,first,pflag
-      integer mode(2),lunit,ll
-
-      ll=lct(5)
-      call whatln(lpt(1),lpt(2),lpt(6),nlc,l1,ifin)
-      if(rio.ne.rte) then
-c     exec
-         k=lpt(1)-(13+nsiz)
-         lpt(1)=lin(k+1)
-         lpt(2)=lin(k+4)
-         lpt(6)=k
-c
-         if (trace) then
-            if(first) then
-               buf='at line '
-               m=11
-               nlc=0
-            else
-               buf='line '
-               m=6
-            endif
-            write(buf(m+1:m+5),'(i4)') lct(8)-nlc
-            m=m+4
-            buf(m+1:m+29)=' of exec file called by :'
-            m=m+29
-            call basout(io,lunit,buf(1:m))
-            lct(8)=lin(k+12+nsiz)
-c     
-            call whatln(lpt(1),lpt(2),lpt(6),nlc,l1,ifin)
-            m=ifin-l1+1
-            if(m.gt.ll) then
-               l1=max(l1,lpt(2)-ll/2)
-               m=min(ifin-l1,ll)
-            endif
-            call cvstr(m,lin(l1),buf,1)
-            call basout(io,lunit,buf(1:m))
-            
-         endif
-         mode(1)=0
-         call clunit(-rio,buf,mode)
- 1505    pt=pt-1
-         if(rstk(pt).ne.902) goto 1505
-         rio=pstk(pt)
-         pflag=.false.
-      else
-c     pause
-         top=ids(2,pt-1)
-         pflag=.true.
-      endif
-      return
-      end
-
-
-      subroutine errloc(n)
-c     this routines shows the approximate location of the error in the
-c     current statement
-c!
-      include 'stack.h'
-
-c      integer sadr
-
-      character mg*9,bel*1,line*340,fmt*7
-      integer n,ll,m,m1,lp,nd
-      data mg /' !--error'/,bel/' '/
-c
-c      sadr(l)=(l/2)+1
-c
-      ll=lct(5)
-
-      lunit = wte
-      m1=lpt(2)-lpt(1)
-      if(m1.lt.1) m1=1
-c
-      if(macr.eq.0.and.rio.eq.rte) goto 1000
-      call whatln(lpt(1),lpt(2),lpt(6),nlc,l1,ifin)
-      m=ifin-l1+1
-      lct(8)=lct(8)-nlc
-      if(m.gt.ll) then
-         l1=max(l1,lpt(2)-ll/2)
-         m=min(ifin-l1,ll)
-      endif
-      m1=max(0,lpt(2)-l1)
-
-      if(m.gt.0) then
-         call cvstr(m,lin(l1),line,1)
-         call basout(io,lunit,line(1:max(m,1)))
-      endif
- 1000 line=' '
-      if(m1+15.gt.ll) m1=ll-16
-      line(m1+1:m1+9)=mg
-      lp=m1+11
-      nd=int(log10(float(n)))+1
-      write(fmt,'(''(i'',i2,'')'')') nd
-      write(line(lp:lp+nd-1),fmt) n
-      lp=lp+nd
-      line(lp:lp)=bel
-      call basout(io,lunit,line(1:lp))
-      return
-      end
-
-      subroutine errcontext()
-c     this routines stores the line number  of the instruction that
-c     produces  the error as well as the calling macro name if any
-      include 'stack.h'
-
-      integer sadr
-      sadr(l)=(l/2)+1
-      if (macr.le.0) return
-      k=lpt(1)-(13+nsiz)
-
-
-c     recherche du nom de la function correspondant a ce niveau
-      lk=sadr(lin(k+6))
-      if(lk.le.lstk(top+1)) then
-         km=0
-      else
-         km=lin(k+5)-1
-      endif
- 10   km=km+1
-      if(km.gt.isiz)goto 11
-      if(lstk(km).ne.lk) goto 10
-
- 11   continue
-      ilk=lin(k+6)
-      if(istk(ilk).ne.10) then
-         if (istk(ilk).eq.13) then 
-c     .     compiled macro
-            call linestore(lct(8))
-         else
-c     .     uncompiled macro
-            call linestore(lct(8)-1)
-         endif
-         if (km.le.isiz) then
-            call cvnamel(idstk(1,km),buf(1:nlgh),1,leng)
-            call funnamestore(buf(1:nlgh),leng)
-         endif
-      else
-         call linestore(lct(8)-1)
-c         if(m.gt.24) m=24
-c         call funnamestore(buf(1:m),m) 
-      endif
-      end
diff --git a/scilab/modules/core/src/fortran/extlarg.f b/scilab/modules/core/src/fortran/extlarg.f
deleted file mode 100644 (file)
index ed1b167..0000000
+++ /dev/null
@@ -1,40 +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 extlarg(l,ils,nelt,mrhs)
-C     Used in dealing with externals when 
-C     extra arguments are given by a list list(external,arg1,...,argn)
-C      implicit undefined (a-z) 
-      INCLUDE 'stack.h'
-      integer l,ils,nelt,vol,mrhs,i
-      nelt=nelt-1
-      if(nelt.ne.0) then
-         l=l+istk(ils+1)-istk(ils)
-         vol=istk(ils+nelt+1)-istk(ils+1)
-         if(top+1+nelt.ge.bot) then
-            call error(18)
-            if(err.gt.0) return 
-         endif
-         err=lstk(top+1)+vol-lstk(bot)
-         if(err.gt.0) then
-            call error(17)
-            if(err.gt.0) return 
-         endif
-         call unsfdcopy(vol,stk(l),1,stk(lstk(top+1)),1)
-         do 11 i=1,nelt
-            top=top+1
-            lstk(top+1)=lstk(top)+istk(ils+i+1)-istk(ils+i)
- 11      continue
-         mrhs=mrhs+nelt
-      endif
-      return 
-      end
-
-
-
diff --git a/scilab/modules/core/src/fortran/ftob.f b/scilab/modules/core/src/fortran/ftob.f
deleted file mode 100644 (file)
index 41aff19..0000000
+++ /dev/null
@@ -1,41 +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 ftob(x,nx,topx)
-      include 'stack.h'
-      integer iadr,sadr
-c
-c     fortran to scilab
-      integer topx,hsize
-      double precision x
-      dimension x(*)
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-      ilx=iadr(lstk(topx))
-      hsize=4
-      if(istk(ilx).eq.2) hsize=9+istk(ilx+1)*istk(ilx+2)
-      if(top.ge.bot) then
-         call error(18)
-         return
-      endif
-      top=top+1
-      il=iadr(lstk(top))
-      err=lstk(top)+sadr(hsize)+nx-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-      call icopy(hsize,istk(ilx),1,istk(il),1)
-      l=sadr(il+hsize)
-      call unsfdcopy(nx,x,1,stk(l),1)
-      lstk(top+1)=l+nx
-      return
-      end
diff --git a/scilab/modules/core/src/fortran/getch.f b/scilab/modules/core/src/fortran/getch.f
deleted file mode 100644 (file)
index 5b77d9d..0000000
+++ /dev/null
@@ -1,23 +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 fortrangetch
-c
-c     get next character
-
-      include 'stack.h'
-c
-      integer eol
-      data eol/99/
-c
-      l = lpt(4)
-      char1 = lin(l)
-      if (char1 .ne. eol) lpt(4) = l + 1
-      return
-      end
diff --git a/scilab/modules/core/src/fortran/getlin.f b/scilab/modules/core/src/fortran/getlin.f
deleted file mode 100644 (file)
index 3340474..0000000
+++ /dev/null
@@ -1,297 +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 getlin(job,menusflag)
-c ====================================================================
-c     get a new line from the terminal (rio==rte) or from a file, the
-c     characters read are stored in the lin array
-c
-c     job=1 : append read characters after the current end of lin lpt(6)
-c     job=0 : store read characters after the current position (lpt(1))
-c     job=2 : same as job=0 but if EOF occurs getlin returns with
-c     .       fin=-2  instead of fin=0
-c     job=-1: ???
-c     job=3 : used to reenter getlin when it was interrupted while
-C     .       getting a continuation line
-c     menuflag is used to determine what to do if a dynamical menu is
-C     activated while reading a line on the Scilab console
-c     menuflag = 1 : line acquisition is interrupted, callback is
-C                    executed and line acquisition is restarted
-c     menuflag = 0 : callback execution is delayed
-C                    menus used when the parser is not in a state allowing
-C                    to execute the callback
-c ====================================================================
-c
-      include 'stack.h'
-c
-      integer job, menusflag
-      integer lrecl,eol,slash,dot,blank,tab
-      integer retu(6)
-      integer r,quit(4),lnblnk, ncont
-      logical isinstring,eof,continued,incomment
-      character*20 tmp
-      external isinstring,lnblnk, getfastcode
-      integer getfastcode
-
-      data eol/99/,dot/51/,blank/40/,tab/-40/
-      data retu/27,14,29,30,27,23/
-      data slash/48/,lrecl/4096/
-      data quit/26,30,18,29/
-c
-      if(ddt.eq.4) then
-         write(tmp(1:10),'(2i5)') rio,job
-         call basout(io,wte,' getlin rio:'//tmp(1:5)//' job: '
-     &              //tmp(6:10))
-      endif
-c
-      n=1
-c     continued is set to true when continuation mark found at the end of a line
-      continued=.false.
-      ncont=0
-      l1=lpt(1)
-      lct(8)=lct(8)+1
-c     next line to preserve end-of-line marks (eol)
-      if(job.eq.1) then
-         l1=lpt(6)+1
-         l=l1
-      elseif(job.eq.-1) then
-         if (lpt(6).lt.0) then
-            l=-lpt(6)
-         else
-            l=l1
-         endif
-      elseif(job.eq.3) then
-         l=lpt(6)+1
-         l1=lpt(1)
-      else
-         l=l1
-      endif
-      r=0
-      if(pt.gt.0) r=rstk(pt)
-      l0=0
-      if(job.lt.0) then
-         n=lnblnk(buf(1:lrecl))
-         goto 12
-      endif
-      if(r.eq.503) goto 11
-      if(macr.gt.0.and.fin.ne.2) then
-         k=lpt(1)-(13+nsiz)
-         il=lin(k+7)
-c        check if getlin is call in a macro or an exec
-         if(il.gt.0) goto 80
-      endif
-      info=1
-
- 11   continue
-      call getfiletype(rio,ltype,info)
-      if(info.ne.0) goto 50
-      if(ltype.eq.1) then
-c         call basin(ierr,rio,buf(1:lrecl),'*',menusflag)
-         if(ierr.lt.0) then
-c     .     interrupted line acquisition (callback)
-            goto 90
-         endif
-         if(ierr.ne.0) then
-c     .     end of file encountered
-            goto 50
-         endif
-         n=lnblnk(buf(1:lrecl))
-      else
-         call readnextline(rio,buf,bsiz,n,nr,info)
-         if(info.eq.-1) goto 50
-         if(info.eq.2) then
-            call error(113)
-c     .     stop reading file
-            fin=-2
-            return
-         endif
-         n=n-1
-         n=lnblnk(buf(1:n))
-      endif
-
-      eof=.false.
- 12   l0=l
-      if(n.le.0) goto 45
-      if (mod(lct(4),2) .eq. 1.and.rio.ne.rte) then
-         call promptecho(wte,buf(1:n),n)
-      endif
-      if (rio.eq.rte) then
-c     -2 equals INPUT for diary (see basout)
-        call promptecho(-2,buf(1:n),n)
-        lct(1)=1
-      endif
-c
-c     loop on read characters
-      incomment=.false.
-      j=0
- 17   j=j+1
-      if(j.gt.n) goto 45
-
-*     modif bruno : appel a getfastcode au lieu de la boucle
-      k = getfastcode(buf(j:j))
-      if (k .eq. eol) go to 45
-      if (k.eq.tab) k=blank
-
-
-c     special cases        //    ..
-      if(buf(j+1:j+1).ne.buf(j:j)) goto 31
-
-      if(k.eq.slash) then
-c     .  check if // occurs in a string
-         if(.not.isinstring(lin(l0),l-l0+1)) incomment=.true.
-      endif
-c
-      if(k.ne.dot.or.incomment) goto 31
-      if(j.eq.1) goto 70
-c     . .. find
-c     check if .. is followed by more dots or //
-      jj=j
- 28   continue
-      if(jj.eq.n)goto 29
-      jj=jj+1
-      if(buf(jj:jj).eq.buf(j:j)) goto 28
-      if(buf(jj:jj).eq.' '.or.buf(jj:jj).eq.char(9)) goto 28
-      if(buf(jj:jj).ne.'/') goto 31
-      if(jj.eq.n) goto 31
-      if(buf(jj+1:jj+1).eq.'/') goto 29
-      goto 31
-c
- 29   continue
-c     next line is a continuation line
-      continued=.true.
-      ncont=ncont+1
-      if(job.ne.-1) goto 11
-c     handle continuation lines when scilab is call as a procedure
-      fin=-1
-      lpt(6)=-l
-      return
-c     There is no continuation line or syntax error
- 31   continue
-      continued=.false.
-c     increase the line counter to take the contuation lines into acount
-      lct(8)=lct(8)+ncont
-      ncont=0
-      lin(l) = k
-      if (l.lt.lsiz) l = l+1
-      if (l.ge.lsiz) then
-         call error(108)
-         return
-      endif
-      goto 17
-c
- 45   continue
-      if(l.eq.l0) then
-         lin(l)=blank
-         l=l+1
-      endif
-      lin(l) = eol
-      lin(l+1)=blank
-      lpt(6) = l
-      lpt(4) = l1
-      lpt(3) = l1
-      lpt(2) = l1
-cc_ex      lct(1) = 0
-      fin=0
-      if(job.eq.2.and.eof) fin=-2
-      call fortrangetch
-      return
-c
-   50 eof=.true.
-      if (rio .eq. rte) go to 52
-      call icopy(6,retu,1,lin(l),1)
-      if(job.eq.1) then
-         call error(47)
-         return
-      endif
-c     rio=rte
-      l = l + 6
-      go to 45
-   52 continue
-      call icopy(4,quit,1,lin(l),1)
-      l = l + 4
-      go to 45
-c
-c
-   70 continue
-      if (n.gt.2) then
-         call xscion(iflagx)
-         if(iflagx.eq.1) then
-            call cvstr(n-2+10,lin(l),'unix_x('''//buf(3:n)//''');',job)
-         else
-            call cvstr(n-2+10,lin(l),'unix_w('''//buf(3:n)//''');',job)
-         endif
-         l=l+n-2+10
-         call basout(io,wte,' ')
-      endif
-      goto 45
-c
-   80 eof=.false.
-      k=lpt(1)-(13+nsiz)
-      ilk=lin(k+6)
-      if(istk(ilk).eq.10) then
-         mn=istk(ilk+1)*istk(ilk+2)
-         lf=ilk+4+mn+istk(ilk+4+mn)-1
-      else
-         mlhs=istk(ilk+1)
-         mrhs=istk(ilk+1+nsiz*mlhs+1)
-         ll=ilk+4+nsiz*(mlhs+mrhs)
-         lf= ll+istk(ll-1)-1
-      endif
-      il=lin(k+7)
-
-      if(il.gt.lf) then
-         eof=.true.
-         goto 45
-      endif
-
-   81 if(istk(il).eq.eol) goto 82
-      lin(l)=istk(il)
-      l=l+1
-      if(l.gt.lsiz) then
-         call error(26)
-         return
-      endif
-      il=il+1
-      goto 81
-   82 if(istk(il+1).ne.eol) goto 83
-
-      lin(l)=eol
-      l=l+1
-      il=il+1
-   83 lin(k+7)=il+1
-c%%
-      if((ddt .lt. 1 .or. ddt.gt.4).and.mod(lct(4),2) .ne. 1) goto 45
-      l2=l1
-   84 n=l-l2
-      n1=n
-      if(n.le.lct(5)) then
-         call cvstr(n,lin(l2),buf,1)
-      else
-         n=lct(5)
-         n1=n-3
-         call cvstr(n1,lin(l2),buf,1)
-         buf(n1+1:n1+3)='...'
-         n1=n1-1
-      endif
-      call basout(io,wte,buf(1:n))
-      l2=l2+n1+1
-      if(l2.lt.l) goto 84
-      goto 45
- 90   continue
-c     interrupted line acquisition (callbacks)
-c     l should be memorized for correct continuation line handling
-      if (continued) then
-          lpt(6) = l-1
-       else
-          lpt(6) = lpt(1)
-       endif
-      fin=-3
-      return
-      end
diff --git a/scilab/modules/core/src/fortran/isbrk.f b/scilab/modules/core/src/fortran/isbrk.f
deleted file mode 100644 (file)
index 3971d43..0000000
+++ /dev/null
@@ -1,24 +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 isbrk(l)
-c ====================================================================
-c
-c       retourne la valeur de l'indicateur d'interruption
-c
-      logical iflag,interruptible
-cDEC$ IF DEFINED (FORDLL)
-cDEC$ ATTRIBUTES DLLIMPORT:: /basbrk/
-cDEC$ ENDIF            
-      common /basbrk/ iflag,interruptible
-      l=0
-      if(iflag) l=1
-      return
-      end
diff --git a/scilab/modules/core/src/fortran/isinstring.f b/scilab/modules/core/src/fortran/isinstring.f
deleted file mode 100644 (file)
index 24e85f0..0000000
+++ /dev/null
@@ -1,58 +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
-
-      logical function isinstring(lin,l)
-c     this function returns true if character l in lin belongs to a
-c     string syntax
-      integer lin(*)
-c     lin is a vector of scilab codes
-c
-      integer dot,blank,quote,right,rparen
-      integer qcount,pchar
-
-      data dot/51/,blank/40/,quote/53/,right/55/,rparen/42/
-c
-      il=0
-      qcount=0
-      pchar=blank
- 27   il=il+1
-      if(il.ge.l) then
-         if(qcount.eq.0) then
-c     .  Not in string
-            isinstring=.false.
-            return
-         else
-            qcount=0
-c     .     is part of a string
-            isinstring=.true.
-            return
-         endif
-      elseif(abs(lin(il)).eq.quote) then
-         if(qcount.eq.0) then
-            if(pchar.lt.blank.or.pchar.eq.right.or.
-     $           pchar.eq.rparen.or.pchar.eq.dot) then
-c     .          quote marks a tranposition
-            else
-               qcount=qcount+1
-            endif
-         else
-c     .     a quote in a string
-            if(abs(lin(il+1)).eq.quote) then
-               il=il+1
-            else
-c     .        end of string
-               qcount=0
-            endif
-         endif
-      endif
-      pchar=lin(il)
-      if(pchar.eq.-blank) pchar=blank
-      goto 27
-      end
-
diff --git a/scilab/modules/core/src/fortran/istrue.f b/scilab/modules/core/src/fortran/istrue.f
deleted file mode 100644 (file)
index 51ed430..0000000
+++ /dev/null
@@ -1,52 +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
-
-      function istrue(mod)
-      logical istrue
-c
-      include 'stack.h'
-      integer iadr,sadr
-
-c      
-      sadr(l)=(l/2)+1
-      iadr(l)=l+l-1
-c
-      if(err1.gt.0) goto 20
-      istrue=.true.
-c
-      il=iadr(lstk(top))
-      if(mod.ne.0) top=top-1
-      if(istk(il).eq.4) then
-         m=istk(il+1)*istk(il+2)
-         if(m.eq.0) goto 20
-         do 10 i=1,m
-            if(istk(il+2+i).eq.0) goto 20
- 10      continue
-      elseif(istk(il).eq.6) then
-         m=istk(il+1)*istk(il+2)
-         nel=istk(il+4)
-         if(m.eq.0.or.nel.ne.m) goto 20
-      elseif(istk(il).eq.1.and.istk(il+3).eq.0) then
-         m=istk(il+1)*istk(il+2)
-         if(m.eq.0) goto 20
-         l=sadr(il+4)
-         do 11 i=0,m-1
-            if(stk(l+i).eq.0.0d+0) goto 20
- 11      continue
-      else
-         err=1
-         call error(44)
-      endif
-      return
-
- 20   istrue=.false.
-      return
-      end
-
-      
diff --git a/scilab/modules/core/src/fortran/lst2vars.f b/scilab/modules/core/src/fortran/lst2vars.f
deleted file mode 100644 (file)
index 26d2def..0000000
+++ /dev/null
@@ -1,47 +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 lst2vars(il,m)
-c =============================================================
-c     extract all variables contained in a list and store them
-c     at the top of the stack
-c =============================================================
-
-      include 'stack.h'
-c
-c     il : pointer on the beginning of the list
-c     on return
-c     m  : number of variable created. top is incremented
-      integer iadr,sadr
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-      if(istk(il).lt.0) il=iadr(istk(il+1))
-      m=istk(il+1)
-
-      ll=sadr(il+m+3)
-      top=top+1
-      err=lstk(top)+istk(il+m+2)-1-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-      if(top+m.ge.bot) then
-         call error(18)
-         return
-      endif
-      call unsfdcopy(istk(il+m+2)-1,stk(ll),1,stk(lstk(top)),1)
-      do 41 k1=1,m
-         lstk(top+1)=lstk(top)+istk(il+2+k1)-istk(il+1+k1)
-         top=top+1
- 41   continue
-      top=top-1
-      return
-      end
diff --git a/scilab/modules/core/src/fortran/mkindx.f b/scilab/modules/core/src/fortran/mkindx.f
deleted file mode 100644 (file)
index 52eb336..0000000
+++ /dev/null
@@ -1,36 +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 mkindx(n,m)
-c     form the list which represents recursive index 
-c     (i1)(i2)...(in)(k1,...,km)
-c     i1,..in,k1,..km are supposed to be stored recursively in the stack
-c!
-      include 'stack.h'
-      integer n,m
-      
-      if(err1.gt.0) return
-      lhss=lhs
-      if(m.gt.1) then
-c     .  last is (i,j)
-         rhs=m
-         fin=1
-         lhs=1
-         call gwdatastructures1
-      endif
-      if(n.eq.0) goto 10
-      rhs=n
-      fin=1
-      lhs=1
-      call gwdatastructures1
-      rhs=1
- 10   continue
-      lhs=lhss
-      return
-      end
diff --git a/scilab/modules/core/src/fortran/namstr.f b/scilab/modules/core/src/fortran/namstr.f
deleted file mode 100644 (file)
index af453fc..0000000
+++ /dev/null
@@ -1,56 +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 namstr(id,str,n,job)
-c     
-c     convertit un nom code scilab en une chaine scilab
-c     
-c
-      include 'stack.h'
-      integer blank
-      parameter (blank=40)
-      integer id(nsiz),ch
-      integer str(nlgh)
-c     
-      if(job.eq.0) goto 20
-      i1=1
-      do 15 l=1,nsiz
-         idl=id(l)
-         do 10 i=i1,i1+3
-            k=(idl+128)/256
-            if(k.lt.0) k=k-1
-            ch=idl-256*k
-            if(ch.eq.blank) then
-               n=i-1
-               return
-            endif
-            idl=k
-            str(i)=ch
- 10      continue
-         i1=i1+4
- 15   continue
-      n=nlgh
-      return
-c     
- 20   continue
-      i1=1
-      do 30 l=1,nsiz
-         id(l)=0
-         do 22 i=1,4
-            ii=i1+4-i
-            if(ii.le.n) then
-               id(l)=256*id(l)+str(ii)
-            else
-               id(l)=256*id(l)+blank
-            endif
- 22      continue
-         i1=i1+4
- 30   continue
-      return
-      end
diff --git a/scilab/modules/core/src/fortran/prompt.f b/scilab/modules/core/src/fortran/prompt.f
deleted file mode 100644 (file)
index b4fb645..0000000
+++ /dev/null
@@ -1,40 +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 prompt(pause,escape)
-c ====================================================================
-c     issue prompt with optional pause
-
-      include 'stack.h'
-      integer pause,escape,menusflag
-
-      logical iflag,interruptible
-cDEC$ IF DEFINED (FORDLL)
-cDEC$ ATTRIBUTES DLLIMPORT:: /basbrk/
-cDEC$ ENDIF
-      common /basbrk/ iflag,interruptible
-
-      escape=0
-      if (pause .ne. 1) then
-         call basout(io,wte,' ')
-         call setprlev(paus)
-      else
-C     version with pause ( mode(7) )
-         call setprlev(-1)
-c     .  accept immediate dynamic callback execution
-         menusflag=1
-c 10      call basin(ierr,rte,buf,'*',menusflag)
-         if(buf(1:1).eq.'p') iflag=.true.
-         if(ierr.eq.-1) then
-c     .     a callback requires to be executed
-            escape=1
-         endif
-      endif
-      return
-      end
diff --git a/scilab/modules/core/src/fortran/ptrback.f b/scilab/modules/core/src/fortran/ptrback.f
deleted file mode 100644 (file)
index 20b6def..0000000
+++ /dev/null
@@ -1,32 +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 mvptr(topk,il)
-C     just for dealing with lists 
-      include 'stack.h'
-      integer topk ,il
-cDEC$ IF DEFINED (FORDLL)
-cDEC$ ATTRIBUTES DLLIMPORT:: /ptkeep/
-cDEC$ ENDIF            
-      common / ptkeep / lwk
-      lwk= lstk(topk)
-      lstk(topk) = il 
-      return 
-      end 
-
-      subroutine ptrback(topk)
-      integer topk 
-      include 'stack.h'
-cDEC$ IF DEFINED (FORDLL)
-cDEC$ ATTRIBUTES DLLIMPORT:: /ptkeep/
-cDEC$ ENDIF            
-      common / ptkeep / lwk
-      lstk(topk)=lwk
-      return 
-      end 
diff --git a/scilab/modules/core/src/fortran/relocstack.f b/scilab/modules/core/src/fortran/relocstack.f
deleted file mode 100644 (file)
index 7b2402d..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-c     
-c     Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-c     Copyright (C) 2008-2008 - INRIA - Simon LIPP
-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     
-      subroutine relocstack(new_stk, new_istk, new_sstk, new_cstk,
-     $ new_zstk, nstk, nistk, nsstk, ncstk, nzstk)
-      include 'stack.h'
-      
-      double precision, target, dimension(nstk)  ::  new_stk
-      integer,          target, dimension(nistk) :: new_istk
-      real,             target, dimension(nsstk) :: new_sstk
-      character,        target                   :: new_cstk*(4*vsiz)
-      complex*16,       target, dimension(nzstk) :: new_zstk
-
-      stk  => new_stk
-      istk => new_istk
-      sstk => new_sstk
-      cstk => new_cstk
-      zstk => new_zstk
-
-      return
-      end
diff --git a/scilab/modules/core/src/fortran/setgetmode.f b/scilab/modules/core/src/fortran/setgetmode.f
deleted file mode 100644 (file)
index d190475..0000000
+++ /dev/null
@@ -1,57 +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
-
-      integer function setgetmode(id)
-c     Determine if stackg may get the variable id by reference (-4) or
-c      by value (0)
-c     
-      include 'stack.h'
-c
-      integer plus,minus,comma,rparen
-      character tmpbuf * (bsiz)
-      external allowptr
-      logical allowptr
-      data plus/45/,minus/46/,comma/52/,rparen/42/
-
-
-
-      imode=0
-      if(sym.eq.plus.or.sym.eq.minus) then
-c         imode=-2
-         call cvname(id,buf,1)
-c         call basout(io,wte,' setgetmode '//buf(1:nlgh)//'+- ')
-         goto 33
-      endif
-
-      if(rstk(pt).ne.201.or.
-     $     rstk(pt-1).ne.101.or.pstk(pt-1).ne.301.or.
-     $     rstk(pt-2).ne.307) goto 33
-c     pstk(pt-1).ne.301 checks if name is not preceeded by a minus sign
-c     name is a first factor of an argument or subscript 
-      ip=pt-2
-
- 31   if (sym.ne.comma.and.sym.ne.rparen) goto 33
-c     name is followed by a , or a )
-      
-c     variable is an argument of a function
- 32   continue
-      ifun=ids(1,ip)
-      if (allowptr(ifun).or.ifun.lt.0) then
-         if(ddt.ge.4) then
-            call cvname(id,buf,1)
-            write(tmpbuf(nlgh+1:nlgh+16),'(2i8)') ifun,rstk(ip)
-            call basout(io,wte,' setgetmode '//tmpbuf(1:nlgh)//' '//
-     $           tmpbuf(nlgh+1:nlgh+16))
-         endif
-         imode=-4
-      endif
- 33   setgetmode=imode
-      return
-      end
-
diff --git a/scilab/modules/core/src/fortran/setippty.f b/scilab/modules/core/src/fortran/setippty.f
deleted file mode 100644 (file)
index 944372f..0000000
+++ /dev/null
@@ -1,56 +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 setippty(n)
-c     ippty: interfaces properties
-      parameter (mxbyptr=40)
-      integer byptr(mxbyptr),nbyptr
-cDEC$ IF DEFINED (FORDLL)
-cDEC$ ATTRIBUTES DLLIMPORT:: /ippty/
-cDEC$ ENDIF            
-      common /ippty/ byptr,nbyptr
-
-      if(n.eq.0) then 
-c     .  initialization
-         byptr(1)=6
-         byptr(2)=13
-         byptr(3)=16
-         byptr(4)=19
-         byptr(5)=21
-         byptr(6)=23
-         byptr(7)=41
-         byptr(8)=42
-         nbyptr=8
-      elseif(n.gt.0) then 
-c     .  add a  interface n in the list
-         do 01 i=1,nbyptr
-            if(byptr(i).eq.n) return
- 01      continue
-         if(nbyptr.ge.mxbyptr) then
-            call error(261)
-            return
-         endif
-         nbyptr=nbyptr+1
-         byptr(nbyptr)=n
-      else 
-c     .  suppress interface abs(n)
-         ifun=abs(n)
-         do 10 i=1,nbyptr
-            if(byptr(i).eq.ifun) then
-               ifun=i
-               goto 20
-            endif
- 10      continue
-         return
- 20      if(ifun.lt.nbyptr) then
-            call icopy(nbyptr-ifun,byptr(ifun+1),1,byptr(ifun),1)
-         endif
-         nbyptr=nbyptr-1
-      endif
-      end
diff --git a/scilab/modules/core/src/fortran/sigbas.f b/scilab/modules/core/src/fortran/sigbas.f
deleted file mode 100644 (file)
index 5712d33..0000000
+++ /dev/null
@@ -1,91 +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 sigbas(n)
-c ====================================================================
-c     dealing with signals inside Scilab 
-c ====================================================================
-c
-c traitement de l'erreur fortran ou du break
-c
-      integer  n
-      include 'stack.h'
-      logical iflag,interruptible
-cDEC$ IF DEFINED (FORDLL)
-cDEC$ ATTRIBUTES DLLIMPORT:: /basbrk/
-cDEC$ ENDIF            
-      common /basbrk/ iflag,interruptible
-      integer  ilk,k,l,lunit,nc,mode(2)
-      character tmpbuf * (bsiz)
-c     
-      iadr(l)=l+l-1
-c      sadr(l)=(l/2)+1
-c
-      if(ddt.eq.4) then
-         write(tmpbuf(1:5),'(i5)') n
-         call basout(io,wte,'signal :'//tmpbuf(1:5))
-      endif
-c
-      mode(2)=0
-      if ( n.eq.2 ) then
-         iflag=.true.
-      elseif (n.eq.11 ) then
-         call error(68)
-         goto 10
-      elseif (n.eq.8 ) then
-         call msgstxt('Floating point exception !')
-      else
-         iflag=.false.
-      endif
-      goto 99
-c
-c     erreur fatale : sauvegarde de la pile avant le stop
-c     -------------
-c
- 10   continue
-c
-c     ouverture du fichier
-c
-      err  =0
-      lunit=0
-c     QUIT_ERRCATCH_ID 3 (see inffic.h)  
-      call inffic( 3, buf, nc)
-      nc = max ( 1 , nc )
-      mode(1)=103
-      call clunit( lunit, buf(1:nc), mode)
-      if ( err.gt.0 ) call error(err)
-      if ( err.gt.0 ) goto 90
-c
-      call error(68)
-      err=0
-c
-c sauvegarde
-c
- 30   k = isiz-6
-      if (k .lt. bot) k = isiz
-      call savlod(lunit,0,-1,0)
-      if(err.gt.0) goto 33
- 32   continue
-      l=k
-      ilk=iadr(lstk(k))
-      if(istk(ilk).lt.0) l=istk(ilk+1)
-      call savlod(lunit,idstk(1,k),0,l)
-      k = k-1
-      if(k.ge.bot) goto 32
-c 
- 33   mode(1)=103
-      call clunit( -lunit, buf, mode)
- 90   stop
-c
-c     fin
-c     ---
-c
- 99   continue
-      end
-
diff --git a/scilab/modules/core/src/fortran/stackc2i.f b/scilab/modules/core/src/fortran/stackc2i.f
deleted file mode 100644 (file)
index 6b78ffc..0000000
+++ /dev/null
@@ -1,33 +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 stackc2i(n,sl1,il1) 
-c     =============================
-c     same as stacki2d but for characters
-c     to integer and overlapping region 
-c     ===============================
-      include 'stack.h'
-      integer n,sl1,il1
-      integer cadr
-      cadr(l)=l+l+l+l-3      
-      if((sl1+n-1).ge.cadr(il1+n-1)) then
-         call cvstr(n,istk(il1),cstk(sl1:sl1+n),0)
-      elseif( sl1.le.cadr(il1)) then
-         call cvstr1(n,istk(il1),cstk(sl1:sl1+n),0)
-      else
-         kh=(sl1-cadr(il1))/3
-         kb=n-kh
-         call cvstr(kh,istk(il1),cstk(sl1:sl1+kh),0)
-         lsuite=sl1+kh
-         call cvstr1(kb,istk(il1+kh),cstk(lsuite:lsuite+kb),0)
-      endif
-      return
-      end
-c     ===============================
-
diff --git a/scilab/modules/core/src/fortran/stacki2d.f b/scilab/modules/core/src/fortran/stacki2d.f
deleted file mode 100644 (file)
index 29dce2b..0000000
+++ /dev/null
@@ -1,47 +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 stacki2d(n,il1,dl1) 
-c     =============================
-c     performs stk(dl1+j) = istk(il1+j)
-c     but checks for overlapping areas
-c     there's an equivalence between stk and istk 
-c     to perform stk(dl1+j)=istk(il1+j) j=0,N-1 
-c     we have three possible cases considering 
-c     the 2 curves iadr(dl1+j) and il1+j 
-c     -if ( iadr(dl1+j) < il1+j ) with 
-c     possible equality for the last term 
-c     the we copy from 0 to n-1
-c     -if ( iadr(dl1+j) > il1+j ) with 
-c     possible equality for the first term 
-c     then we copy from n-1 to 0 (step= -1)
-c     -if the two curves intersect 
-c     ==> 2(dl1+p)-1 = il1+p 
-c     p= il1- iadr(dl1) 
-c     we copy from 0 to p-1 ( then istk(il1+k) k>=p
-c     are not scratched and then from n-1 to p 
-c     ===============================
-      include 'stack.h'
-      integer n,il1,dl1 
-      integer iadr
-      iadr(l)=l+l-1
-      if((il1+n-1).ge.iadr(dl1+n-1)) then
-         call int2db(n,istk(il1),1,stk(dl1),1)
-      elseif(il1.le.iadr(dl1)) then
-         call int2db(n,istk(il1),-1,stk(dl1),-1)
-      else
-         imont=il1-iadr(dl1)
-         ides=n-imont
-         call int2db(imont,istk(il1),1,stk(dl1),1)
-         call int2db(ides,istk(il1+imont),-1,stk(dl1+imont),-1)
-      endif
-      return
-      end
-c     ===============================
diff --git a/scilab/modules/core/src/fortran/stackr2d.f b/scilab/modules/core/src/fortran/stackr2d.f
deleted file mode 100644 (file)
index 841b37b..0000000
+++ /dev/null
@@ -1,33 +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 stackr2d(n,sl1,dl1) 
-c     =============================
-c     same as stacki2d but for reals 
-c     to double 
-c     ===============================
-      include 'stack.h'
-      integer n,sl1,dl1 
-      integer iadr
-      iadr(l)=l+l-1
-      if((sl1+n-1).ge.iadr(dl1+n-1)) then
-         call rea2db(n,istk(sl1),1,stk(dl1),1)
-      elseif(sl1.le.iadr(dl1)) then
-         call rea2db(n,istk(sl1),-1,stk(dl1),-1)
-      else
-         imont=sl1-iadr(dl1)
-         ides=n-imont
-         call rea2db(imont,istk(sl1),1,stk(dl1),1)
-         call rea2db(ides,istk(sl1+imont),-1,stk(dl1+imont),-1)
-      endif
-      return
-      end
-c     ===============================
-
index e47104d..b2bcd18 100644 (file)
@@ -17,7 +17,7 @@
 #include "machine.h"
 #include "dynlib_data_structures.h"
 /*--------------------------------------------------------------------------*/
-/* it can be called by fortran mklist.f & mkindx.f */
+/* it can be called by fortran mklist.f */
 DATA_STRUCTURES_IMPEXP int C2F(gwdatastructures1)(void);
 DATA_STRUCTURES_IMPEXP int gw_data_structures1(void);
 /*--------------------------------------------------------------------------*/
index ee810cb..72e051d 100644 (file)
@@ -8,12 +8,8 @@ EXPORTS
 indxg_
 putid_
 eptover_
-createref_
 ptover_
 createref1_
 mklist_
-copyvar_
 stackp_
 defmat_
-lst2vars_
-setref_
index 8b7bf3a..eb88473 100644 (file)
@@ -47,7 +47,7 @@ FILEIO_IMPEXP int LineRead(int fd, char buf[], int n, int *cnt, int *nr);
 
 /**
 * read a line from a text file
-* used by exec to read a .sce file (see getlin.f)
+* used by exec to read a .sce file
 * @param[in] fd : a int file descriptor to open
 * @param[in/out] buf : string buffer returned
 * @param[in] *n : bsiz (4096)
diff --git a/scilab/modules/integer/src/fortran/Output_stream_Import.def b/scilab/modules/integer/src/fortran/Output_stream_Import.def
deleted file mode 100644 (file)
index 4e3a0c5..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-       LIBRARY    output_stream.dll
-
-
-EXPORTS
-;
-;output_stream
-error_
index f7f2404..3adb217 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@distclean-local:
 @JAVASCI_FALSE@install-html-local:
-@JAVASCI_FALSE@clean-local:
 @JAVASCI_FALSE@install-data-local:
+@JAVASCI_FALSE@clean-local:
+@JAVASCI_FALSE@distclean-local:
 clean: clean-am
 
 clean-am: clean-generic clean-libtool clean-local \
index 299f954..d7c702e 100644 (file)
@@ -24,7 +24,6 @@ getpoly_
 getmat_
 getwimat_
 getilist_
-namstr_
 getsmat_
 ;
 ; explicit imports (COMMON) to fix warning LNK4049: locally defined symbol 
index 7ef76e2..e8b96cc 100644 (file)
@@ -4,7 +4,6 @@ LIBRARY    output_stream.dll
 EXPORTS
 ;
 ; output_stream
-error_
 Scierror
 msgs_
 sciprint
index a70e6df..765802b 100644 (file)
@@ -3,8 +3,8 @@ LIBRARY    core.dll
 
 EXPORTS
 ; core
-namstr_
 freeArrayOfString
 MyHeapAlloc
 MyHeapFree
 MyHeapRealloc
+namstr_
\ No newline at end of file
diff --git a/scilab/modules/special_functions/src/fortran/output_stream_Import.def b/scilab/modules/special_functions/src/fortran/output_stream_Import.def
deleted file mode 100644 (file)
index 4e3a0c5..0000000
+++ /dev/null
@@ -1,7 +0,0 @@
-       LIBRARY    output_stream.dll
-
-
-EXPORTS
-;
-;output_stream
-error_
index f25fadf..98f1b5d 100644 (file)
@@ -6,82 +6,42 @@
        <Configurations>
                <Configuration Name="Debug|Win32" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary">
                                <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDebugDLL"/>
-                               <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="special_functions_f.def" GenerateDebugInformation="true" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="../../../../bin/blasplus.lib ../../../../bin/lapack.lib core.lib output_stream.lib elementary_functions_f.lib slatec_f.lib"/>
+                               <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="special_functions_f.def" GenerateDebugInformation="true" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="../../../../bin/blasplus.lib ../../../../bin/lapack.lib core.lib elementary_functions_f.lib slatec_f.lib"/>
                                <Tool Name="VFResourceCompilerTool"/>
                                <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/>
                                <Tool Name="VFCustomBuildTool"/>
-                               <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion
-cd $(ConfigurationName)
-set LIST_OBJ=
-for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f
-&quot;$(SolutionDir)bin\dumpexts&quot; -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ%
-copy $(ProjectName).def ..\$(ProjectName).def &gt;nul
-del *.def &gt;nul
-cd .." Description="Build $(ProjectName).def"/>
-                               <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:&quot;$(InputDir)elementary_functions_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)elementary_functions_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)core_import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)core.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)output_stream_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)output_stream.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)slatec_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)slatec_f.lib&quot; 1&gt;NUL 2&gt;NUL" Description="Build Dependencies"/>
+                               <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion&#xA;cd $(ConfigurationName)&#xA;set LIST_OBJ=&#xA;for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f&#xA;&quot;$(SolutionDir)bin\dumpexts&quot; -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ%&#xA;copy $(ProjectName).def ..\$(ProjectName).def &gt;nul&#xA;del *.def &gt;nul&#xA;cd .." Description="Build $(ProjectName).def"/>
+                               <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:&quot;$(InputDir)elementary_functions_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)elementary_functions_f.lib&quot; 1&gt;NUL 2&gt;NUL&#xA;lib /DEF:&quot;$(InputDir)core_import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)core.lib&quot; 1&gt;NUL 2&gt;NUL&#xA;lib /DEF:&quot;$(InputDir)slatec_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)slatec_f.lib&quot; 1&gt;NUL 2&gt;NUL" Description="Build Dependencies"/>
                                <Tool Name="VFPostBuildEventTool"/>
                                <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
                <Configuration Name="Release|Win32" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary">
                                <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDLL"/>
-                               <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="special_functions_f.def" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="../../../../bin/blasplus.lib ../../../../bin/lapack.lib core.lib output_stream.lib elementary_functions_f.lib slatec_f.lib"/>
+                               <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="special_functions_f.def" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="../../../../bin/blasplus.lib ../../../../bin/lapack.lib core.lib elementary_functions_f.lib slatec_f.lib"/>
                                <Tool Name="VFResourceCompilerTool"/>
                                <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/>
                                <Tool Name="VFCustomBuildTool"/>
-                               <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion
-cd $(ConfigurationName)
-set LIST_OBJ=
-for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f
-&quot;$(SolutionDir)bin\dumpexts&quot; -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ%
-copy $(ProjectName).def ..\$(ProjectName).def &gt;nul
-del *.def &gt;nul
-cd .." Description="Build $(ProjectName).def"/>
-                               <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:&quot;$(InputDir)elementary_functions_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)elementary_functions_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)core_import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)core.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)output_stream_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)output_stream.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)slatec_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)slatec_f.lib&quot; 1&gt;NUL 2&gt;NUL" Description="Build Dependencies"/>
+                               <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion&#xA;cd $(ConfigurationName)&#xA;set LIST_OBJ=&#xA;for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f&#xA;&quot;$(SolutionDir)bin\dumpexts&quot; -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ%&#xA;copy $(ProjectName).def ..\$(ProjectName).def &gt;nul&#xA;del *.def &gt;nul&#xA;cd .." Description="Build $(ProjectName).def"/>
+                               <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:&quot;$(InputDir)elementary_functions_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)elementary_functions_f.lib&quot; 1&gt;NUL 2&gt;NUL&#xA;lib /DEF:&quot;$(InputDir)core_import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)core.lib&quot; 1&gt;NUL 2&gt;NUL&#xA;lib /DEF:&quot;$(InputDir)slatec_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X86 /OUT:&quot;$(InputDir)slatec_f.lib&quot; 1&gt;NUL 2&gt;NUL" Description="Build Dependencies"/>
                                <Tool Name="VFPostBuildEventTool"/>
                                <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
                <Configuration Name="Debug|x64" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary">
                                <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" DebugInformationFormat="debugEnabled" Optimization="optimizeDisabled" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDebugDLL"/>
-                               <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="special_functions_f.def" GenerateDebugInformation="true" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="../../../../bin/blasplus.lib ../../../../bin/lapack.lib core.lib output_stream.lib elementary_functions_f.lib slatec_f.lib"/>
+                               <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="special_functions_f.def" GenerateDebugInformation="true" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="../../../../bin/blasplus.lib ../../../../bin/lapack.lib core.lib elementary_functions_f.lib slatec_f.lib"/>
                                <Tool Name="VFResourceCompilerTool"/>
                                <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/>
                                <Tool Name="VFCustomBuildTool"/>
-                               <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion
-cd $(ConfigurationName)
-set LIST_OBJ=
-for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f
-&quot;$(SolutionDir)bin\dumpexts&quot; -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ%
-copy $(ProjectName).def ..\$(ProjectName).def &gt;nul
-del *.def &gt;nul
-cd .." Description="Build $(ProjectName).def"/>
-                               <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:&quot;$(InputDir)elementary_functions_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)elementary_functions_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)core_import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)core.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)output_stream_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)output_stream.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)slatec_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)slatec_f.lib&quot; 1&gt;NUL 2&gt;NUL" Description="Build Dependencies"/>
+                               <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion&#xA;cd $(ConfigurationName)&#xA;set LIST_OBJ=&#xA;for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f&#xA;&quot;$(SolutionDir)bin\dumpexts&quot; -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ%&#xA;copy $(ProjectName).def ..\$(ProjectName).def &gt;nul&#xA;del *.def &gt;nul&#xA;cd .." Description="Build $(ProjectName).def"/>
+                               <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:&quot;$(InputDir)elementary_functions_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)elementary_functions_f.lib&quot; 1&gt;NUL 2&gt;NUL&#xA;lib /DEF:&quot;$(InputDir)core_import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)core.lib&quot; 1&gt;NUL 2&gt;NUL&#xA;lib /DEF:&quot;$(InputDir)slatec_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)slatec_f.lib&quot; 1&gt;NUL 2&gt;NUL" Description="Build Dependencies"/>
                                <Tool Name="VFPostBuildEventTool"/>
                                <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration>
                <Configuration Name="Release|x64" OutputDirectory="$(SolutionDir)bin\" IntermediateDirectory="$(ProjectDir)$(ConfigurationName)" DeleteExtensionsOnClean="*.obj;*.mod;*.pdb;*.asm;*.map;*.dyn;*.dpi;*.tmp;*.log;*.ilk;*.dll;$(TargetPath)" ConfigurationType="typeDynamicLibrary">
                                <Tool Name="VFFortranCompilerTool" SuppressStartupBanner="true" AdditionalIncludeDirectories="../../../core/includes" PreprocessorDefinitions="WIN32;FORDLL" AlternateParameterSyntax="false" F77RuntimeCompatibility="true" FPS4Libs="false" CallingConvention="callConventionCRef" ExternalNameUnderscore="true" ModulePath="$(INTDIR)/" ObjectFile="$(INTDIR)/" RuntimeLibrary="rtMultiThreadedDLL"/>
-                               <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="special_functions_f.def" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="../../../../bin/blasplus.lib ../../../../bin/lapack.lib core.lib output_stream.lib elementary_functions_f.lib slatec_f.lib"/>
+                               <Tool Name="VFLinkerTool" OutputFile="$(SolutionDir)bin\$(ProjectName).dll" LinkIncremental="linkIncrementalNo" SuppressStartupBanner="true" ModuleDefinitionFile="special_functions_f.def" SubSystem="subSystemWindows" ImportLibrary="$(SolutionDir)bin\$(ProjectName).lib" LinkDLL="true" AdditionalDependencies="../../../../bin/blasplus.lib ../../../../bin/lapack.lib core.lib elementary_functions_f.lib slatec_f.lib"/>
                                <Tool Name="VFResourceCompilerTool"/>
                                <Tool Name="VFMidlTool" SuppressStartupBanner="true" HeaderFileName="$(InputName).h" TypeLibraryName="$(IntDir)/$(InputName).tlb"/>
                                <Tool Name="VFCustomBuildTool"/>
-                               <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion
-cd $(ConfigurationName)
-set LIST_OBJ=
-for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f
-&quot;$(SolutionDir)bin\dumpexts&quot; -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ%
-copy $(ProjectName).def ..\$(ProjectName).def &gt;nul
-del *.def &gt;nul
-cd .." Description="Build $(ProjectName).def"/>
-                               <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:&quot;$(InputDir)elementary_functions_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)elementary_functions_f.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)core_import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)core.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)output_stream_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)output_stream.lib&quot; 1&gt;NUL 2&gt;NUL
-lib /DEF:&quot;$(InputDir)slatec_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)slatec_f.lib&quot; 1&gt;NUL 2&gt;NUL" Description="Build Dependencies"/>
+                               <Tool Name="VFPreLinkEventTool" CommandLine="setlocal EnableDelayedExpansion&#xA;cd $(ConfigurationName)&#xA;set LIST_OBJ=&#xA;for %%f in (*.obj) do set LIST_OBJ=!LIST_OBJ! %%f&#xA;&quot;$(SolutionDir)bin\dumpexts&quot; -o $(ProjectName).def $(ProjectName).dll %LIST_OBJ%&#xA;copy $(ProjectName).def ..\$(ProjectName).def &gt;nul&#xA;del *.def &gt;nul&#xA;cd .." Description="Build $(ProjectName).def"/>
+                               <Tool Name="VFPreBuildEventTool" CommandLine="lib /DEF:&quot;$(InputDir)elementary_functions_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)elementary_functions_f.lib&quot; 1&gt;NUL 2&gt;NUL&#xA;lib /DEF:&quot;$(InputDir)core_import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)core.lib&quot; 1&gt;NUL 2&gt;NUL&#xA;lib /DEF:&quot;$(InputDir)slatec_f_Import.def&quot; /SUBSYSTEM:WINDOWS /MACHINE:X64 /OUT:&quot;$(InputDir)slatec_f.lib&quot; 1&gt;NUL 2&gt;NUL" Description="Build Dependencies"/>
                                <Tool Name="VFPostBuildEventTool"/>
                                <Tool Name="VFManifestTool" SuppressStartupBanner="true"/></Configuration></Configurations>
        <Files>
index 004d55a..d011d1e 100644 (file)
@@ -83,7 +83,6 @@
     <PreBuildEvent>
       <Message>Build Dependencies</Message>
       <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1&gt;NUL 2&gt;NUL
-lib /DEF:"$(ProjectDir)output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)output_stream.lib" 1&gt;NUL 2&gt;NUL
 lib /DEF:"$(ProjectDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions_f.lib" 1&gt;NUL 2&gt;NUL
 lib /DEF:"$(ProjectDir)slatec_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)slatec_f.lib" 1&gt;NUL 2&gt;NUL</Command>
     </PreBuildEvent>
@@ -108,7 +107,7 @@ cd ..
     </PreLinkEvent>
     <Link>
       <AdditionalOptions>/ignore:4049 %(AdditionalOptions)</AdditionalOptions>
-      <AdditionalDependencies>core.lib;output_stream.lib;slatec_f.lib;elementary_functions_f.lib;../../../../bin/blasplus.lib;../../../../bin/lapack.lib;../../../../bin/libf2c.lib;%(AdditionalDependencies)</AdditionalDependencies>
+      <AdditionalDependencies>core.lib;slatec_f.lib;elementary_functions_f.lib;../../../../bin/blasplus.lib;../../../../bin/lapack.lib;../../../../bin/libf2c.lib;%(AdditionalDependencies)</AdditionalDependencies>
       <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile>
       <ModuleDefinitionFile>special_functions_f.def</ModuleDefinitionFile>
       <GenerateDebugInformation>true</GenerateDebugInformation>
@@ -124,7 +123,6 @@ cd ..
     <PreBuildEvent>
       <Message>Build Dependencies</Message>
       <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1&gt;NUL 2&gt;NUL
-lib /DEF:"$(ProjectDir)output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)output_stream.lib" 1&gt;NUL 2&gt;NUL
 lib /DEF:"$(ProjectDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions_f.lib" 1&gt;NUL 2&gt;NUL
 lib /DEF:"$(ProjectDir)slatec_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)slatec_f.lib" 1&gt;NUL 2&gt;NUL</Command>
     </PreBuildEvent>
@@ -152,7 +150,7 @@ cd ..
     </PreLinkEvent>
     <Link>
       <AdditionalOptions>/ignore:4049 %(AdditionalOptions)</AdditionalOptions>
-      <AdditionalDependencies>core.lib;output_stream.lib;slatec_f.lib;elementary_functions_f.lib;../../../../bin/blasplus.lib;../../../../bin/lapack.lib;../../../../bin/libf2c.lib;%(AdditionalDependencies)</AdditionalDependencies>
+      <AdditionalDependencies>core.lib;slatec_f.lib;elementary_functions_f.lib;../../../../bin/blasplus.lib;../../../../bin/lapack.lib;../../../../bin/libf2c.lib;%(AdditionalDependencies)</AdditionalDependencies>
       <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile>
       <ModuleDefinitionFile>special_functions_f.def</ModuleDefinitionFile>
       <GenerateDebugInformation>true</GenerateDebugInformation>
@@ -168,7 +166,6 @@ cd ..
     <PreBuildEvent>
       <Message>Build Dependencies</Message>
       <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1&gt;NUL 2&gt;NUL
-lib /DEF:"$(ProjectDir)output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)output_stream.lib" 1&gt;NUL 2&gt;NUL
 lib /DEF:"$(ProjectDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions_f.lib" 1&gt;NUL 2&gt;NUL
 lib /DEF:"$(ProjectDir)slatec_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)slatec_f.lib" 1&gt;NUL 2&gt;NUL</Command>
     </PreBuildEvent>
@@ -194,7 +191,7 @@ cd ..
     </PreLinkEvent>
     <Link>
       <AdditionalOptions>/ignore:4049 %(AdditionalOptions)</AdditionalOptions>
-      <AdditionalDependencies>core.lib;output_stream.lib;slatec_f.lib;elementary_functions_f.lib;../../../../bin/blasplus.lib;../../../../bin/lapack.lib;../../../../bin/libf2c.lib;%(AdditionalDependencies)</AdditionalDependencies>
+      <AdditionalDependencies>core.lib;slatec_f.lib;elementary_functions_f.lib;../../../../bin/blasplus.lib;../../../../bin/lapack.lib;../../../../bin/libf2c.lib;%(AdditionalDependencies)</AdditionalDependencies>
       <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile>
       <ModuleDefinitionFile>special_functions_f.def</ModuleDefinitionFile>
       <GenerateDebugInformation>true</GenerateDebugInformation>
@@ -212,7 +209,6 @@ cd ..
     <PreBuildEvent>
       <Message>Build Dependencies</Message>
       <Command>lib /DEF:"$(ProjectDir)core_import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)core.lib" 1&gt;NUL 2&gt;NUL
-lib /DEF:"$(ProjectDir)output_stream_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)output_stream.lib" 1&gt;NUL 2&gt;NUL
 lib /DEF:"$(ProjectDir)elementary_functions_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)elementary_functions_f.lib" 1&gt;NUL 2&gt;NUL
 lib /DEF:"$(ProjectDir)slatec_f_Import.def" /SUBSYSTEM:WINDOWS /MACHINE:$(Platform) /OUT:"$(ProjectDir)slatec_f.lib" 1&gt;NUL 2&gt;NUL</Command>
     </PreBuildEvent>
@@ -241,7 +237,7 @@ cd ..
     </PreLinkEvent>
     <Link>
       <AdditionalOptions>/ignore:4049 %(AdditionalOptions)</AdditionalOptions>
-      <AdditionalDependencies>core.lib;output_stream.lib;slatec_f.lib;elementary_functions_f.lib;../../../../bin/blasplus.lib;../../../../bin/lapack.lib;../../../../bin/libf2c.lib;%(AdditionalDependencies)</AdditionalDependencies>
+      <AdditionalDependencies>core.lib;slatec_f.lib;elementary_functions_f.lib;../../../../bin/blasplus.lib;../../../../bin/lapack.lib;../../../../bin/libf2c.lib;%(AdditionalDependencies)</AdditionalDependencies>
       <OutputFile>$(SolutionDir)bin\$(ProjectName).dll</OutputFile>
       <ModuleDefinitionFile>special_functions_f.def</ModuleDefinitionFile>
       <GenerateDebugInformation>true</GenerateDebugInformation>
@@ -280,7 +276,6 @@ cd ..
   <ItemGroup>
     <None Include="elementary_functions_f_Import.def" />
     <None Include="core_import.def" />
-    <None Include="output_stream_Import.def" />
     <None Include="slatec_f_Import.def" />
     <None Include="..\..\Makefile.am" />
     <None Include="..\..\sci_gateway\special_functions_gateway.xml" />
index 4f0ebff..cd36f1d 100644 (file)
@@ -84,9 +84,6 @@
     </None>
     <None Include="..\..\Makefile.am" />
     <None Include="..\..\sci_gateway\special_functions_gateway.xml" />
-    <None Include="output_stream_Import.def">
-      <Filter>Libraries Dependencies</Filter>
-    </None>
     <None Include="slatec_f_Import.def">
       <Filter>Libraries Dependencies</Filter>
     </None>