bye bye scilab2fortran
Allan CORNET [Tue, 7 Jul 2009 17:32:27 +0000 (19:32 +0200)]
99 files changed:
scilab/configure
scilab/configure.ac
scilab/modules/Makefile.am
scilab/modules/Makefile.in
scilab/modules/scilab2fortran/Makefile.am [deleted file]
scilab/modules/scilab2fortran/Makefile.in [deleted file]
scilab/modules/scilab2fortran/changelog.txt [deleted file]
scilab/modules/scilab2fortran/demos/dem1.sce [deleted file]
scilab/modules/scilab2fortran/demos/dem2.sce [deleted file]
scilab/modules/scilab2fortran/demos/dem3.sce [deleted file]
scilab/modules/scilab2fortran/demos/dem4.sce [deleted file]
scilab/modules/scilab2fortran/demos/dem5.sce [deleted file]
scilab/modules/scilab2fortran/demos/dem6.sce [deleted file]
scilab/modules/scilab2fortran/demos/demotrad.dem [deleted file]
scilab/modules/scilab2fortran/demos/printspecs.sci [deleted file]
scilab/modules/scilab2fortran/etc/scilab2fortran.quit [deleted file]
scilab/modules/scilab2fortran/etc/scilab2fortran.start [deleted file]
scilab/modules/scilab2fortran/help/en_US/addchapter.sce [deleted file]
scilab/modules/scilab2fortran/help/en_US/sci2for.xml [deleted file]
scilab/modules/scilab2fortran/help/fr_FR/addchapter.sce [deleted file]
scilab/modules/scilab2fortran/help/pt_BR/addchapter.sce [deleted file]
scilab/modules/scilab2fortran/license.txt [deleted file]
scilab/modules/scilab2fortran/locales/en_US/scilab2fortran.pot [deleted file]
scilab/modules/scilab2fortran/locales/fr_FR/scilab2fortran.po [deleted file]
scilab/modules/scilab2fortran/macros/%a2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/%c2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/%cc2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/%e2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/%h2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/%i2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/%imp2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/%log2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/%m2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/%p2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/%r2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/%rc2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/%s2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/%t2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/adderr.sci [deleted file]
scilab/modules/scilab2fortran/macros/basparam.sci [deleted file]
scilab/modules/scilab2fortran/macros/buildmacros.bat [deleted file]
scilab/modules/scilab2fortran/macros/buildmacros.sce [deleted file]
scilab/modules/scilab2fortran/macros/callfun.sci [deleted file]
scilab/modules/scilab2fortran/macros/cla2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/cleanmacros.bat [deleted file]
scilab/modules/scilab2fortran/macros/cod2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/dclfun.sci [deleted file]
scilab/modules/scilab2fortran/macros/exp2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_abs.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_argn.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_cond.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_cos.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_ent.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_error.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_exp.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_expm.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_eye.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_gener.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_log.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_max.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_maxi.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_min.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_mini.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_norm.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_ones.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_rank.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_sin.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_size.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_sqrt.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_svd.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_tan.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_type.sci [deleted file]
scilab/modules/scilab2fortran/macros/f_zeros.sci [deleted file]
scilab/modules/scilab2fortran/macros/forparam.sci [deleted file]
scilab/modules/scilab2fortran/macros/freewrk.sci [deleted file]
scilab/modules/scilab2fortran/macros/func2f.sci [deleted file]
scilab/modules/scilab2fortran/macros/gencall.sci [deleted file]
scilab/modules/scilab2fortran/macros/genif.sci [deleted file]
scilab/modules/scilab2fortran/macros/get2f.sci [deleted file]
scilab/modules/scilab2fortran/macros/getlocal.sci [deleted file]
scilab/modules/scilab2fortran/macros/getwrk.sci [deleted file]
scilab/modules/scilab2fortran/macros/indent.sci [deleted file]
scilab/modules/scilab2fortran/macros/indentfor.sci [deleted file]
scilab/modules/scilab2fortran/macros/ins2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/lin2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/makeargs.sci [deleted file]
scilab/modules/scilab2fortran/macros/mltopsfor.sci [deleted file]
scilab/modules/scilab2fortran/macros/modlst.sci [deleted file]
scilab/modules/scilab2fortran/macros/newlab.sci [deleted file]
scilab/modules/scilab2fortran/macros/num2f.sci [deleted file]
scilab/modules/scilab2fortran/macros/op2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/outname.sci [deleted file]
scilab/modules/scilab2fortran/macros/sci2for.sci [deleted file]
scilab/modules/scilab2fortran/macros/setparam.sci [deleted file]
scilab/modules/scilab2fortran/macros/str2f.sci [deleted file]
scilab/modules/scilab2fortran/macros/typconv.sci [deleted file]
scilab/modules/scilab2fortran/readme.txt [deleted file]
scilab/modules/scilab2fortran/scilab2fortran.iss [deleted file]
scilab/modules/scilab2fortran/version.xml [deleted file]

index 18f7a70..04ff406 100755 (executable)
@@ -46220,7 +46220,7 @@ if test "$enable_stop_on_warning" = yes; then
    CXXFLAGS="$CXXFLAGS -Werror -O0"
 fi
 
-ac_config_files="$ac_config_files libs/MALLOC/Makefile libs/dynamiclibrary/Makefile libs/doublylinkedlist/Makefile libs/hashtable/Makefile libs/libst/Makefile contrib/Makefile modules/helptools/Makefile modules/helptools/macros/xmlfiletohtml.sci modules/data_structures/Makefile modules/differential_equations/Makefile modules/optimization/Makefile modules/elementary_functions/Makefile modules/special_functions/Makefile modules/io/Makefile modules/shell/Makefile modules/completion/Makefile modules/history_manager/Makefile modules/jvm/Makefile modules/sound/Makefile modules/statistics/Makefile modules/mexlib/Makefile modules/sparse/Makefile modules/linear_algebra/Makefile modules/polynomials/Makefile modules/symbolic/Makefile modules/signal_processing/Makefile modules/arnoldi/Makefile modules/interpolation/Makefile modules/intersci/Makefile modules/localization/Makefile modules/metanet/Makefile modules/cacsd/Makefile modules/boolean/Makefile modules/integer/Makefile modules/double/Makefile modules/fileio/Makefile modules/spreadsheet/Makefile modules/string/Makefile modules/time/Makefile modules/graphics/Makefile modules/graphic_export/Makefile modules/renderer/Makefile modules/action_binding/Makefile modules/gui/Makefile modules/pvm/Makefile modules/randlib/Makefile modules/tclsci/Makefile modules/windows_tools/Makefile modules/core/Makefile modules/api_scilab/Makefile modules/call_scilab/Makefile modules/fftw/Makefile modules/umfpack/Makefile modules/scicos/Makefile modules/scicos_blocks/Makefile modules/functions/Makefile modules/dynamic_link/Makefile modules/overloading/Makefile modules/javasci/Makefile modules/maple2scilab/Makefile modules/m2sci/Makefile modules/compatibility_functions/Makefile modules/texmacs/Makefile modules/scipad/Makefile modules/scilab2fortran/Makefile modules/development_tools/Makefile modules/output_stream/Makefile modules/console/Makefile modules/demo_tools/Makefile modules/genetic_algorithms/Makefile modules/simulated_annealing/Makefile modules/parameters/Makefile modules/matio/Makefile modules/Makefile libs/Makefile Makefile scilab.pc etc/modules.xml etc/classpath.xml modules/jvm/etc/jvm_options.xml scilab-lib.properties scilab-lib-doc.properties"
+ac_config_files="$ac_config_files libs/MALLOC/Makefile libs/dynamiclibrary/Makefile libs/doublylinkedlist/Makefile libs/hashtable/Makefile libs/libst/Makefile contrib/Makefile modules/helptools/Makefile modules/helptools/macros/xmlfiletohtml.sci modules/data_structures/Makefile modules/differential_equations/Makefile modules/optimization/Makefile modules/elementary_functions/Makefile modules/special_functions/Makefile modules/io/Makefile modules/shell/Makefile modules/completion/Makefile modules/history_manager/Makefile modules/jvm/Makefile modules/sound/Makefile modules/statistics/Makefile modules/mexlib/Makefile modules/sparse/Makefile modules/linear_algebra/Makefile modules/polynomials/Makefile modules/symbolic/Makefile modules/signal_processing/Makefile modules/arnoldi/Makefile modules/interpolation/Makefile modules/intersci/Makefile modules/localization/Makefile modules/metanet/Makefile modules/cacsd/Makefile modules/boolean/Makefile modules/integer/Makefile modules/double/Makefile modules/fileio/Makefile modules/spreadsheet/Makefile modules/string/Makefile modules/time/Makefile modules/graphics/Makefile modules/graphic_export/Makefile modules/renderer/Makefile modules/action_binding/Makefile modules/gui/Makefile modules/pvm/Makefile modules/randlib/Makefile modules/tclsci/Makefile modules/windows_tools/Makefile modules/core/Makefile modules/api_scilab/Makefile modules/call_scilab/Makefile modules/fftw/Makefile modules/umfpack/Makefile modules/scicos/Makefile modules/scicos_blocks/Makefile modules/functions/Makefile modules/dynamic_link/Makefile modules/overloading/Makefile modules/javasci/Makefile modules/maple2scilab/Makefile modules/m2sci/Makefile modules/compatibility_functions/Makefile modules/texmacs/Makefile modules/scipad/Makefile modules/development_tools/Makefile modules/output_stream/Makefile modules/console/Makefile modules/demo_tools/Makefile modules/genetic_algorithms/Makefile modules/simulated_annealing/Makefile modules/parameters/Makefile modules/matio/Makefile modules/Makefile libs/Makefile Makefile scilab.pc etc/modules.xml etc/classpath.xml modules/jvm/etc/jvm_options.xml scilab-lib.properties scilab-lib-doc.properties"
 
 
 # Detection of the module for the future version of Scilab 6
@@ -47142,7 +47142,6 @@ do
     "modules/compatibility_functions/Makefile") CONFIG_FILES="$CONFIG_FILES modules/compatibility_functions/Makefile" ;;
     "modules/texmacs/Makefile") CONFIG_FILES="$CONFIG_FILES modules/texmacs/Makefile" ;;
     "modules/scipad/Makefile") CONFIG_FILES="$CONFIG_FILES modules/scipad/Makefile" ;;
-    "modules/scilab2fortran/Makefile") CONFIG_FILES="$CONFIG_FILES modules/scilab2fortran/Makefile" ;;
     "modules/development_tools/Makefile") CONFIG_FILES="$CONFIG_FILES modules/development_tools/Makefile" ;;
     "modules/output_stream/Makefile") CONFIG_FILES="$CONFIG_FILES modules/output_stream/Makefile" ;;
     "modules/console/Makefile") CONFIG_FILES="$CONFIG_FILES modules/console/Makefile" ;;
index dede47b..b5dead2 100644 (file)
@@ -1444,7 +1444,6 @@ modules/m2sci/Makefile
 modules/compatibility_functions/Makefile
 modules/texmacs/Makefile
 modules/scipad/Makefile
-modules/scilab2fortran/Makefile
 modules/development_tools/Makefile
 modules/output_stream/Makefile
 modules/console/Makefile
index 4531569..9babc2a 100644 (file)
@@ -71,7 +71,6 @@ maple2scilab \
 m2sci \
 texmacs \
 scipad \
-scilab2fortran \
 development_tools \
 compatibility_functions \
 helptools \
index 80f199b..221a253 100644 (file)
@@ -135,10 +135,10 @@ DIST_SUBDIRS = core output_stream action_binding arnoldi \
        differential_equations cacsd polynomials boolean double pvm io \
        intersci metanet signal_processing call_scilab sound time \
        sparse windows_tools functions overloading maple2scilab m2sci \
-       texmacs scipad scilab2fortran development_tools \
-       compatibility_functions helptools fftw umfpack demo_tools \
-       genetic_algorithms simulated_annealing parameters matio \
-       scicos_blocks scicos . javasci
+       texmacs scipad development_tools compatibility_functions \
+       helptools fftw umfpack demo_tools genetic_algorithms \
+       simulated_annealing parameters matio scicos_blocks scicos . \
+       javasci
 DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
 ACLOCAL = @ACLOCAL@
 ALL_LINGUAS = @ALL_LINGUAS@
@@ -373,10 +373,9 @@ SUBDIRS = core output_stream action_binding arnoldi \
        intersci metanet signal_processing core call_scilab \
        interpolation sound time randlib sparse windows_tools \
        functions overloading maple2scilab m2sci texmacs scipad \
-       scilab2fortran development_tools compatibility_functions \
-       helptools fftw umfpack demo_tools genetic_algorithms \
-       simulated_annealing parameters matio $(am__append_1) scicos . \
-       $(am__append_2)
+       development_tools compatibility_functions helptools fftw \
+       umfpack demo_tools genetic_algorithms simulated_annealing \
+       parameters matio $(am__append_1) scicos . $(am__append_2)
 
 #### Basic files ####
 libscilab_la_rootdir = $(mydatadir)
diff --git a/scilab/modules/scilab2fortran/Makefile.am b/scilab/modules/scilab2fortran/Makefile.am
deleted file mode 100644 (file)
index e270e4d..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-##########
-### Sylvestre Ledru <sylvestre.ledru@inria.fr>
-### INRIA - Scilab 2006 
-##########
-
-
-#### Target ######
-modulename=scilab2fortran
-
-
-#### scilab2fortran : Conf files ####
-libscilab2fortran_la_rootdir = $(mydatadir)
-libscilab2fortran_la_root_DATA = changelog.txt license.txt readme.txt version.xml
-
-
-#### scilab2fortran : init scripts #### 
-libscilab2fortran_la_etcdir = $(mydatadir)/etc
-libscilab2fortran_la_etc_DATA = etc/scilab2fortran.quit etc/scilab2fortran.start
-
-include $(top_srcdir)/Makefile.incl.am
diff --git a/scilab/modules/scilab2fortran/Makefile.in b/scilab/modules/scilab2fortran/Makefile.in
deleted file mode 100644 (file)
index 57c004d..0000000
+++ /dev/null
@@ -1,784 +0,0 @@
-# Makefile.in generated by automake 1.10.2 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006, 2007, 2008  Free Software Foundation, Inc.
-# This Makefile.in is free software; the Free Software Foundation
-# gives unlimited permission to copy and/or distribute it,
-# with or without modifications, as long as this notice is preserved.
-
-# This program is distributed in the hope that it will be useful,
-# but WITHOUT ANY WARRANTY, to the extent permitted by law; without
-# even the implied warranty of MERCHANTABILITY or FITNESS FOR A
-# PARTICULAR PURPOSE.
-
-@SET_MAKE@
-
-##########
-### Sylvestre Ledru <sylvestre.ledru@inria.fr>
-### INRIA - Scilab 2006 
-##########
-
-# Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-# Copyright (C) 2006-2008 - INRIA - Sylvestre LEDRU <sylvestre.ledru@inria.fr>
-# Copyright (C) 2008      - INRIA - Pierre MARECHAL <pierre.marechal@inria.fr>
-#
-# This file must be used under the terms of the CeCILL.
-# This source file is licensed as described in the file COPYING, which
-# you should have received as part of this distribution.  The terms
-# are also available at
-# http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
-#
-
-##########
-### Makefile included stuff
-### Target, variable, suffixes which are supposed to be usefull in every makefile.am
-##########
-
-VPATH = @srcdir@
-pkgdatadir = $(datadir)/@PACKAGE@
-pkglibdir = $(libdir)/@PACKAGE@
-pkgincludedir = $(includedir)/@PACKAGE@
-am__cd = CDPATH="$${ZSH_VERSION+.}$(PATH_SEPARATOR)" && cd
-install_sh_DATA = $(install_sh) -c -m 644
-install_sh_PROGRAM = $(install_sh) -c
-install_sh_SCRIPT = $(install_sh) -c
-INSTALL_HEADER = $(INSTALL_DATA)
-transform = $(program_transform_name)
-NORMAL_INSTALL = :
-PRE_INSTALL = :
-POST_INSTALL = :
-NORMAL_UNINSTALL = :
-PRE_UNINSTALL = :
-POST_UNINSTALL = :
-build_triplet = @build@
-host_triplet = @host@
-DIST_COMMON = $(srcdir)/Makefile.am $(srcdir)/Makefile.in \
-       $(top_srcdir)/Makefile.incl.am
-@NEED_JAVA_TRUE@am__append_1 = java
-subdir = modules/scilab2fortran
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/docbook.m4 \
-       $(top_srcdir)/m4/fftw.m4 $(top_srcdir)/m4/fortran.m4 \
-       $(top_srcdir)/m4/giws.m4 $(top_srcdir)/m4/hdf5.m4 \
-       $(top_srcdir)/m4/intel_compiler.m4 $(top_srcdir)/m4/java.m4 \
-       $(top_srcdir)/m4/lib-ld.m4 $(top_srcdir)/m4/libs_by_debian.m4 \
-       $(top_srcdir)/m4/libsmath.m4 $(top_srcdir)/m4/libtool.m4 \
-       $(top_srcdir)/m4/libxml2.m4 $(top_srcdir)/m4/ocaml.m4 \
-       $(top_srcdir)/m4/pcre.m4 $(top_srcdir)/m4/pkg.m4 \
-       $(top_srcdir)/m4/pvm.m4 $(top_srcdir)/m4/relocatable.m4 \
-       $(top_srcdir)/m4/swig.m4 $(top_srcdir)/m4/symlinks.m4 \
-       $(top_srcdir)/m4/tcltk.m4 $(top_srcdir)/m4/umfpack.m4 \
-       $(top_srcdir)/configure.ac
-am__configure_deps = $(am__aclocal_m4_deps) $(CONFIGURE_DEPENDENCIES) \
-       $(ACLOCAL_M4)
-mkinstalldirs = $(install_sh) -d
-CONFIG_HEADER = $(top_builddir)/modules/core/includes/machine.h
-CONFIG_CLEAN_FILES =
-SOURCES =
-DIST_SOURCES =
-am__vpath_adj_setup = srcdirstrip=`echo "$(srcdir)" | sed 's|.|.|g'`;
-am__vpath_adj = case $$p in \
-    $(srcdir)/*) f=`echo "$$p" | sed "s|^$$srcdirstrip/||"`;; \
-    *) f=$$p;; \
-  esac;
-am__strip_dir = `echo $$p | sed -e 's|^.*/||'`;
-am__installdirs = "$(DESTDIR)$(libscilab2fortran_la_etcdir)" \
-       "$(DESTDIR)$(libscilab2fortran_la_rootdir)"
-libscilab2fortran_la_etcDATA_INSTALL = $(INSTALL_DATA)
-libscilab2fortran_la_rootDATA_INSTALL = $(INSTALL_DATA)
-DATA = $(libscilab2fortran_la_etc_DATA) \
-       $(libscilab2fortran_la_root_DATA)
-DISTFILES = $(DIST_COMMON) $(DIST_SOURCES) $(TEXINFOS) $(EXTRA_DIST)
-ACLOCAL = @ACLOCAL@
-ALL_LINGUAS = @ALL_LINGUAS@
-AMTAR = @AMTAR@
-ANT = @ANT@
-AR = @AR@
-AUTOCONF = @AUTOCONF@
-AUTOHEADER = @AUTOHEADER@
-AUTOMAKE = @AUTOMAKE@
-AVALON_FRAMEWORK = @AVALON_FRAMEWORK@
-AWK = @AWK@
-BATIK = @BATIK@
-BLAS_LIBS = @BLAS_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-COMMONS_IO = @COMMONS_IO@
-COMMONS_LOGGING = @COMMONS_LOGGING@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CXX = @CXX@
-CXXCPP = @CXXCPP@
-CXXDEPMODE = @CXXDEPMODE@
-CXXFLAGS = @CXXFLAGS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEMOTOOLS_ENABLE = @DEMOTOOLS_ENABLE@
-DEPDIR = @DEPDIR@
-DOCBOOK_ROOT = @DOCBOOK_ROOT@
-DSYMUTIL = @DSYMUTIL@
-ECHO = @ECHO@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-F77 = @F77@
-FFLAGS = @FFLAGS@
-FFTW3_LIB = @FFTW3_LIB@
-FFTW_ENABLE = @FFTW_ENABLE@
-FLEXDOCK = @FLEXDOCK@
-FLIBS = @FLIBS@
-FOP = @FOP@
-GETTEXT_MACRO_VERSION = @GETTEXT_MACRO_VERSION@
-GIWS_BIN = @GIWS_BIN@
-GLUEGEN_RT = @GLUEGEN_RT@
-GMSGFMT = @GMSGFMT@
-GMSGFMT_015 = @GMSGFMT_015@
-GRAPHICS_ENABLE = @GRAPHICS_ENABLE@
-GREP = @GREP@
-GUI_ENABLE = @GUI_ENABLE@
-HDF5_CFLAGS = @HDF5_CFLAGS@
-HDF5_ENABLE = @HDF5_ENABLE@
-HDF5_LIBS = @HDF5_LIBS@
-HELP_ENABLE = @HELP_ENABLE@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-INTLLIBS = @INTLLIBS@
-INTL_MACOSX_LIBS = @INTL_MACOSX_LIBS@
-JAR = @JAR@
-JAVA = @JAVA@
-JAVAC = @JAVAC@
-JAVAH = @JAVAH@
-JAVASCI_ENABLE = @JAVASCI_ENABLE@
-JAVA_DEBUG_OPTIONS = @JAVA_DEBUG_OPTIONS@
-JAVA_ENABLE = @JAVA_ENABLE@
-JAVA_G = @JAVA_G@
-JAVA_HOME = @JAVA_HOME@
-JAVA_JNI_INCLUDE = @JAVA_JNI_INCLUDE@
-JAVA_JNI_LIBS = @JAVA_JNI_LIBS@
-JDB = @JDB@
-JEUCLID_CORE = @JEUCLID_CORE@
-JHALL = @JHALL@
-JOGL = @JOGL@
-JROSETTA_API = @JROSETTA_API@
-JROSETTA_ENGINE = @JROSETTA_ENGINE@
-LAPACK_LIBS = @LAPACK_LIBS@
-LDFLAGS = @LDFLAGS@
-LIBICONV = @LIBICONV@
-LIBINTL = @LIBINTL@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LN_S = @LN_S@
-LOOKS = @LOOKS@
-LTLIBICONV = @LTLIBICONV@
-LTLIBINTL = @LTLIBINTL@
-LTLIBOBJS = @LTLIBOBJS@
-MAINT = @MAINT@
-MAKEINFO = @MAKEINFO@
-MATIO_CFLAGS = @MATIO_CFLAGS@
-MATIO_ENABLE = @MATIO_ENABLE@
-MATIO_LIBS = @MATIO_LIBS@
-MKDIR_P = @MKDIR_P@
-MSGCAT = @MSGCAT@
-MSGFMT = @MSGFMT@
-MSGFMT_015 = @MSGFMT_015@
-MSGMERGE = @MSGMERGE@
-NM = @NM@
-NMEDIT = @NMEDIT@
-OBJEXT = @OBJEXT@
-OCAMLC = @OCAMLC@
-OCAMLDEP = @OCAMLDEP@
-OCAMLLEX = @OCAMLLEX@
-OCAMLOPT = @OCAMLOPT@
-OCAMLYACC = @OCAMLYACC@
-PACKAGE = @PACKAGE@
-PACKAGE_BUGREPORT = @PACKAGE_BUGREPORT@
-PACKAGE_NAME = @PACKAGE_NAME@
-PACKAGE_STRING = @PACKAGE_STRING@
-PACKAGE_TARNAME = @PACKAGE_TARNAME@
-PACKAGE_VERSION = @PACKAGE_VERSION@
-PATH_SEPARATOR = @PATH_SEPARATOR@
-PCRE_CFLAGS = @PCRE_CFLAGS@
-PCRE_CONFIG = @PCRE_CONFIG@
-PCRE_LIBS = @PCRE_LIBS@
-PCRE_VERSION = @PCRE_VERSION@
-PKG_CONFIG = @PKG_CONFIG@
-POSUB = @POSUB@
-POW_LIB = @POW_LIB@
-PVMGETARCH = @PVMGETARCH@
-PVM_ARCH = @PVM_ARCH@
-PVM_ENABLE = @PVM_ENABLE@
-PVM_INCLUDE = @PVM_INCLUDE@
-PVM_LIB = @PVM_LIB@
-PYTHON = @PYTHON@
-RANLIB = @RANLIB@
-RELOCATABLE = @RELOCATABLE@
-RT_LIB = @RT_LIB@
-SAXON = @SAXON@
-SCICOS_ENABLE = @SCICOS_ENABLE@
-SCILAB_LIBRARY_VERSION = @SCILAB_LIBRARY_VERSION@
-SCIPAD_ENABLE = @SCIPAD_ENABLE@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SET_RELOCATABLE = @SET_RELOCATABLE@
-SHELL = @SHELL@
-SKINLF = @SKINLF@
-STRIP = @STRIP@
-SWIG_BIN = @SWIG_BIN@
-SWIG_JAVA = @SWIG_JAVA@
-SWIG_RUNTIME_LIBS_DIR = @SWIG_RUNTIME_LIBS_DIR@
-TCLTK_LIBS = @TCLTK_LIBS@
-TCL_INC_PATH = @TCL_INC_PATH@
-TK_INC_PATH = @TK_INC_PATH@
-UMFPACK_ENABLE = @UMFPACK_ENABLE@
-UMFPACK_LIB = @UMFPACK_LIB@
-USE_NLS = @USE_NLS@
-VERSION = @VERSION@
-WITH_OCAML = @WITH_OCAML@
-WITH_TKSCI = @WITH_TKSCI@
-XGETTEXT = @XGETTEXT@
-XGETTEXT_015 = @XGETTEXT_015@
-XGETTEXT_EXTRA_OPTIONS = @XGETTEXT_EXTRA_OPTIONS@
-XMKMF = @XMKMF@
-XMLGRAPHICS_COMMONS = @XMLGRAPHICS_COMMONS@
-XML_APIS_EXT = @XML_APIS_EXT@
-XML_CONFIG = @XML_CONFIG@
-XML_FLAGS = @XML_FLAGS@
-XML_LIBS = @XML_LIBS@
-XML_VERSION = @XML_VERSION@
-X_CFLAGS = @X_CFLAGS@
-X_EXTRA_LIBS = @X_EXTRA_LIBS@
-X_LIBS = @X_LIBS@
-X_PRE_LIBS = @X_PRE_LIBS@
-abs_builddir = @abs_builddir@
-abs_srcdir = @abs_srcdir@
-abs_top_builddir = @abs_top_builddir@
-abs_top_srcdir = @abs_top_srcdir@
-ac_ct_CC = @ac_ct_CC@
-ac_ct_CXX = @ac_ct_CXX@
-ac_ct_F77 = @ac_ct_F77@
-am__include = @am__include@
-am__leading_dot = @am__leading_dot@
-am__quote = @am__quote@
-am__tar = @am__tar@
-am__untar = @am__untar@
-bindir = @bindir@
-build = @build@
-build_alias = @build_alias@
-build_cpu = @build_cpu@
-build_os = @build_os@
-build_vendor = @build_vendor@
-builddir = @builddir@
-cxx_present = @cxx_present@
-datadir = @datadir@
-datarootdir = @datarootdir@
-docdir = @docdir@
-dvidir = @dvidir@
-exec_prefix = @exec_prefix@
-host = @host@
-host_alias = @host_alias@
-host_cpu = @host_cpu@
-host_os = @host_os@
-host_vendor = @host_vendor@
-htmldir = @htmldir@
-includedir = @includedir@
-infodir = @infodir@
-install_sh = @install_sh@
-libdir = @libdir@
-libexecdir = @libexecdir@
-localedir = @localedir@
-localstatedir = @localstatedir@
-mandir = @mandir@
-mkdir_p = @mkdir_p@
-oldincludedir = @oldincludedir@
-pdfdir = @pdfdir@
-prefix = @prefix@
-program_transform_name = @program_transform_name@
-psdir = @psdir@
-sbindir = @sbindir@
-sharedstatedir = @sharedstatedir@
-srcdir = @srcdir@
-sysconfdir = @sysconfdir@
-target_alias = @target_alias@
-top_build_prefix = @top_build_prefix@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-
-#### Target ######
-modulename = scilab2fortran
-
-#### scilab2fortran : Conf files ####
-libscilab2fortran_la_rootdir = $(mydatadir)
-libscilab2fortran_la_root_DATA = changelog.txt license.txt readme.txt version.xml
-
-#### scilab2fortran : init scripts #### 
-libscilab2fortran_la_etcdir = $(mydatadir)/etc
-libscilab2fortran_la_etc_DATA = etc/scilab2fortran.quit etc/scilab2fortran.start
-
-# Where all the Scilab stuff is installed (macros, help, ...)
-mydatadir = $(pkgdatadir)/modules/$(modulename)
-
-# splint options
-SPLINT_OPTIONS = -weak -booltype BOOL
-
-########################### JAVA ######################################
-#### We are delegating java compilation to ant... Thanks to that
-#### the procedure will be the same with Microsoft Windows (C)
-#### and Linux/Unix
-#######################################################################
-TARGETS_ALL = $(am__append_1)
-
-################ MACROS ######################
-# Rule to build a macro
-# NOT USED  AT THE MOMENT
-SUFFIXES = .sci 
-
-########### INSTALL DOCUMENTATION ###################
-
-# Install documentation files into the right target
-# We do not use the automake mechanism (libxxxx_la_help_fr_DATA) because
-# automake needs the html files to be present which is not the case when
-# we are building Scilab
-
-# Where it should be installed
-pkgdocdir = $(mydatadir)
-
-# What is the mask of the help source
-DOCMASKXML = *.xml
-
-# What is the mask of the MathML sources
-DOCMASKMML = *.mml
-
-########### INSTALL DATA ###################
-# Install macros, help & demos
-# Where it should be installed
-pkgmacrosdir = $(mydatadir)
-# Which directory we process
-MACRODIRS = macros/
-# Mask of the Scilab sources macros
-MACROMASK = *.sci
-# Mask of the Scilab executable sources macros
-MACROBUILDMASK = *.sce
-# Mask of the Scilab compiled macros
-MACROBINMASK = *.bin
-# List of the standard directory for tests
-TESTS_DIR = tests/benchmarks tests/nonreg_tests tests/unit_tests
-# Where the demos should be installed
-pkgdemosdir = $(mydatadir)
-# List of the standard directory for demos
-DEMOS_DIR = demos
-# List of the standard directory for examples
-EXAMPLES_DIR = examples
-# Where to export JAVA archives (.jar)
-JARDIR = jar/
-# JAR files mask
-JARMASK = *.jar
-# Chapter file 
-HELP_CHAPTERDIR = help/
-HELP_CHAPTERFILE = addchapter.sce
-HELP_CHAPTERLANG = en_US fr_FR pt_BR
-all: all-am
-
-.SUFFIXES:
-.SUFFIXES: .sci .bin
-$(srcdir)/Makefile.in: @MAINTAINER_MODE_TRUE@ $(srcdir)/Makefile.am $(top_srcdir)/Makefile.incl.am $(am__configure_deps)
-       @for dep in $?; do \
-         case '$(am__configure_deps)' in \
-           *$$dep*) \
-             ( cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh ) \
-               && { if test -f $@; then exit 0; else break; fi; }; \
-             exit 1;; \
-         esac; \
-       done; \
-       echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign  modules/scilab2fortran/Makefile'; \
-       cd $(top_srcdir) && \
-         $(AUTOMAKE) --foreign  modules/scilab2fortran/Makefile
-.PRECIOUS: Makefile
-Makefile: $(srcdir)/Makefile.in $(top_builddir)/config.status
-       @case '$?' in \
-         *config.status*) \
-           cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh;; \
-         *) \
-           echo ' cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe)'; \
-           cd $(top_builddir) && $(SHELL) ./config.status $(subdir)/$@ $(am__depfiles_maybe);; \
-       esac;
-
-$(top_builddir)/config.status: $(top_srcdir)/configure $(CONFIG_STATUS_DEPENDENCIES)
-       cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-$(top_srcdir)/configure: @MAINTAINER_MODE_TRUE@ $(am__configure_deps)
-       cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-$(ACLOCAL_M4): @MAINTAINER_MODE_TRUE@ $(am__aclocal_m4_deps)
-       cd $(top_builddir) && $(MAKE) $(AM_MAKEFLAGS) am--refresh
-
-mostlyclean-libtool:
-       -rm -f *.lo
-
-clean-libtool:
-       -rm -rf .libs _libs
-install-libscilab2fortran_la_etcDATA: $(libscilab2fortran_la_etc_DATA)
-       @$(NORMAL_INSTALL)
-       test -z "$(libscilab2fortran_la_etcdir)" || $(MKDIR_P) "$(DESTDIR)$(libscilab2fortran_la_etcdir)"
-       @list='$(libscilab2fortran_la_etc_DATA)'; for p in $$list; do \
-         if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
-         f=$(am__strip_dir) \
-         echo " $(libscilab2fortran_la_etcDATA_INSTALL) '$$d$$p' '$(DESTDIR)$(libscilab2fortran_la_etcdir)/$$f'"; \
-         $(libscilab2fortran_la_etcDATA_INSTALL) "$$d$$p" "$(DESTDIR)$(libscilab2fortran_la_etcdir)/$$f"; \
-       done
-
-uninstall-libscilab2fortran_la_etcDATA:
-       @$(NORMAL_UNINSTALL)
-       @list='$(libscilab2fortran_la_etc_DATA)'; for p in $$list; do \
-         f=$(am__strip_dir) \
-         echo " rm -f '$(DESTDIR)$(libscilab2fortran_la_etcdir)/$$f'"; \
-         rm -f "$(DESTDIR)$(libscilab2fortran_la_etcdir)/$$f"; \
-       done
-install-libscilab2fortran_la_rootDATA: $(libscilab2fortran_la_root_DATA)
-       @$(NORMAL_INSTALL)
-       test -z "$(libscilab2fortran_la_rootdir)" || $(MKDIR_P) "$(DESTDIR)$(libscilab2fortran_la_rootdir)"
-       @list='$(libscilab2fortran_la_root_DATA)'; for p in $$list; do \
-         if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
-         f=$(am__strip_dir) \
-         echo " $(libscilab2fortran_la_rootDATA_INSTALL) '$$d$$p' '$(DESTDIR)$(libscilab2fortran_la_rootdir)/$$f'"; \
-         $(libscilab2fortran_la_rootDATA_INSTALL) "$$d$$p" "$(DESTDIR)$(libscilab2fortran_la_rootdir)/$$f"; \
-       done
-
-uninstall-libscilab2fortran_la_rootDATA:
-       @$(NORMAL_UNINSTALL)
-       @list='$(libscilab2fortran_la_root_DATA)'; for p in $$list; do \
-         f=$(am__strip_dir) \
-         echo " rm -f '$(DESTDIR)$(libscilab2fortran_la_rootdir)/$$f'"; \
-         rm -f "$(DESTDIR)$(libscilab2fortran_la_rootdir)/$$f"; \
-       done
-tags: TAGS
-TAGS:
-
-ctags: CTAGS
-CTAGS:
-
-
-distdir: $(DISTFILES)
-       @srcdirstrip=`echo "$(srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
-       topsrcdirstrip=`echo "$(top_srcdir)" | sed 's/[].[^$$\\*]/\\\\&/g'`; \
-       list='$(DISTFILES)'; \
-         dist_files=`for file in $$list; do echo $$file; done | \
-         sed -e "s|^$$srcdirstrip/||;t" \
-             -e "s|^$$topsrcdirstrip/|$(top_builddir)/|;t"`; \
-       case $$dist_files in \
-         */*) $(MKDIR_P) `echo "$$dist_files" | \
-                          sed '/\//!d;s|^|$(distdir)/|;s,/[^/]*$$,,' | \
-                          sort -u` ;; \
-       esac; \
-       for file in $$dist_files; do \
-         if test -f $$file || test -d $$file; then d=.; else d=$(srcdir); fi; \
-         if test -d $$d/$$file; then \
-           dir=`echo "/$$file" | sed -e 's,/[^/]*$$,,'`; \
-           if test -d $(srcdir)/$$file && test $$d != $(srcdir); then \
-             cp -pR $(srcdir)/$$file $(distdir)$$dir || exit 1; \
-           fi; \
-           cp -pR $$d/$$file $(distdir)$$dir || exit 1; \
-         else \
-           test -f $(distdir)/$$file \
-           || cp -p $$d/$$file $(distdir)/$$file \
-           || exit 1; \
-         fi; \
-       done
-check-am: all-am
-       $(MAKE) $(AM_MAKEFLAGS) check-local
-check: check-am
-all-am: Makefile $(DATA) all-local
-installdirs:
-       for dir in "$(DESTDIR)$(libscilab2fortran_la_etcdir)" "$(DESTDIR)$(libscilab2fortran_la_rootdir)"; do \
-         test -z "$$dir" || $(MKDIR_P) "$$dir"; \
-       done
-install: install-am
-install-exec: install-exec-am
-install-data: install-data-am
-uninstall: uninstall-am
-
-install-am: all-am
-       @$(MAKE) $(AM_MAKEFLAGS) install-exec-am install-data-am
-
-installcheck: installcheck-am
-install-strip:
-       $(MAKE) $(AM_MAKEFLAGS) INSTALL_PROGRAM="$(INSTALL_STRIP_PROGRAM)" \
-         install_sh_PROGRAM="$(INSTALL_STRIP_PROGRAM)" INSTALL_STRIP_FLAG=-s \
-         `test -z '$(STRIP)' || \
-           echo "INSTALL_PROGRAM_ENV=STRIPPROG='$(STRIP)'"` install
-mostlyclean-generic:
-
-clean-generic:
-
-distclean-generic:
-       -test -z "$(CONFIG_CLEAN_FILES)" || rm -f $(CONFIG_CLEAN_FILES)
-
-maintainer-clean-generic:
-       @echo "This command is intended for maintainers to use"
-       @echo "it deletes files that may require special tools to rebuild."
-clean: clean-am
-
-clean-am: clean-generic clean-libtool clean-local mostlyclean-am
-
-distclean: distclean-am
-       -rm -f Makefile
-distclean-am: clean-am distclean-generic distclean-local
-
-dvi: dvi-am
-
-dvi-am:
-
-html: html-am
-
-info: info-am
-
-info-am:
-
-install-data-am: install-data-local \
-       install-libscilab2fortran_la_etcDATA \
-       install-libscilab2fortran_la_rootDATA
-
-install-dvi: install-dvi-am
-
-install-exec-am:
-
-install-html: install-html-am
-
-install-html-am: install-html-local
-
-install-info: install-info-am
-
-install-man:
-
-install-pdf: install-pdf-am
-
-install-ps: install-ps-am
-
-installcheck-am:
-
-maintainer-clean: maintainer-clean-am
-       -rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-am
-
-mostlyclean-am: mostlyclean-generic mostlyclean-libtool
-
-pdf: pdf-am
-
-pdf-am:
-
-ps: ps-am
-
-ps-am:
-
-uninstall-am: uninstall-libscilab2fortran_la_etcDATA \
-       uninstall-libscilab2fortran_la_rootDATA
-
-.MAKE: install-am install-strip
-
-.PHONY: all all-am all-local check check-am check-local clean \
-       clean-generic clean-libtool clean-local distclean \
-       distclean-generic distclean-libtool distclean-local distdir \
-       dvi dvi-am html html-am info info-am install install-am \
-       install-data install-data-am install-data-local install-dvi \
-       install-dvi-am install-exec install-exec-am install-html \
-       install-html-am install-html-local install-info \
-       install-info-am install-libscilab2fortran_la_etcDATA \
-       install-libscilab2fortran_la_rootDATA install-man install-pdf \
-       install-pdf-am install-ps install-ps-am install-strip \
-       installcheck installcheck-am installdirs maintainer-clean \
-       maintainer-clean-generic mostlyclean mostlyclean-generic \
-       mostlyclean-libtool pdf pdf-am ps ps-am uninstall uninstall-am \
-       uninstall-libscilab2fortran_la_etcDATA \
-       uninstall-libscilab2fortran_la_rootDATA
-
-
-# This target enables tests for Scilab
-check-local: $(top_builddir)/scilab-bin
-       @COMMAND="test_run('$(modulename)');quit";\
-       export LANG=C;\
-       $(top_builddir)/bin/scilab -nwni -nb -e "$$COMMAND"
-check-code:
-       @if test -f build.xml; then \
-               $(ANT) checkstyle; \
-       fi;\
-       splint $(SPLINT_OPTIONS) -I$(top_srcdir)/modules/core/includes/ -I$(top_srcdir)/libs/MALLOC/includes/ -I$(top_srcdir)/modules/localization/includes/ $(INCLUDE_FLAGS) $(CHECK_SRC)
-@NEED_JAVA_TRUE@java:
-# Some configurations needs to export JAVA_HOME in the current env
-@NEED_JAVA_TRUE@       @if test "$(JAVA_HOME)"; then export JAVA_HOME=$(JAVA_HOME); fi; \
-@NEED_JAVA_TRUE@       if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \
-@NEED_JAVA_TRUE@       if test -f build.xml -a $$USEANT -eq 1; then \
-@NEED_JAVA_TRUE@               $(ANT); \
-@NEED_JAVA_TRUE@       fi
-
-@NEED_JAVA_TRUE@clean-java:
-# Some configurations needs to export JAVA_HOME in the current env
-@NEED_JAVA_TRUE@       @if test "$(JAVA_HOME)"; then export JAVA_HOME=$(JAVA_HOME); fi; \
-@NEED_JAVA_TRUE@       if test -z "$(USEANT)"; then USEANT=0; else USEANT=1; fi; \
-@NEED_JAVA_TRUE@       if test -f build.xml -a $$USEANT -eq 1; then \
-@NEED_JAVA_TRUE@               $(ANT) clean; \
-@NEED_JAVA_TRUE@       fi;
-
-# If the user request for the SWIG generation of the wrappers Java => C/C++ 
-# We call the target swig-build on the variable SWIG_WRAPPERS
-
-@SWIG_TRUE@swig: $(SWIG_WRAPPERS)
-@SWIG_TRUE@    @SWIG_PACKAGENAME=org.scilab.modules.$(modulename); \
-@SWIG_TRUE@    SWIG_OUTDIR=src/java/org/scilab/modules/$(modulename)/; \
-@SWIG_TRUE@    if test ! -z "$(SWIG_WRAPPERS)"; then \
-@SWIG_TRUE@            for file in $(SWIG_WRAPPERS) ; do \
-@SWIG_TRUE@                    echo "Swig process of $$file ..."; \
-@SWIG_TRUE@                    $(SWIG_BIN) $(SWIG_JAVA) -package $$SWIG_PACKAGENAME  -outdir $$SWIG_OUTDIR $$file; \
-@SWIG_TRUE@            done; \
-@SWIG_TRUE@    fi
-
-# If the user request for the SWIG generation of the wrappers Java => C/C++ 
-# We call the target swig-build on the variable SWIG_WRAPPERS
-
-@GIWS_TRUE@giws: $(GIWS_WRAPPERS)
-@GIWS_TRUE@    @GIWS_OUTPUTDIR=src/jni/;\
-@GIWS_TRUE@    if test ! -z "$(GIWS_WRAPPERS)"; then \
-@GIWS_TRUE@            for file in $(GIWS_WRAPPERS) ; do \
-@GIWS_TRUE@                    echo "GIWS process of $$file ..."; \
-@GIWS_TRUE@                    $(GIWS_BIN) --output-dir $$GIWS_OUTPUTDIR --throws-exception-on-error --description-file $$file; \
-@GIWS_TRUE@            done; \
-@GIWS_TRUE@    fi
-
-macros:
-       -@( if test ! -x $(top_builddir)/scilab-bin; then \
-               echo "Error : Cannot build $< : Scilab has not been built"; \
-       else \
-               $(top_builddir)/bin/scilab -ns -nwni -e "exec('macros/buildmacros.sce');quit;";\
-       fi)
-
-# Removes the macros
-clean-macros:
-# Removes macros (*.bin generated from .sci)
-       @for dir in $(MACRODIRS) $(MACROSDIRSEXT) ; do \
-               echo "rm -f $(builddir)/$$dir/$(MACROBINMASK)"; \
-               rm -f $(builddir)/$$dir/$(MACROBINMASK); \
-       done
-
-all-local: $(TARGETS_ALL)
-
-.sci.bin:
-       -@( if test ! -x $(top_builddir)/scilab-bin; then \
-       echo "Error : Cannot build $< : Scilab has not been build"; \
-       else \
-       echo "Creating $@"; \
-       $(top_builddir)/bin/scilab -ns -nwni -e "exec('$(abs_srcdir)/$<');save('$(abs_srcdir)/$@');exit;"; \
-       fi )
-
-install-html-local:
-# If the user wants the help sources to be installed
-@INSTALL_HELP_XML_TRUE@        @echo "-------- Install of XML sources of help files --------"; \
-@INSTALL_HELP_XML_TRUE@        for lang in $(ALL_LINGUAS); do \
-@INSTALL_HELP_XML_TRUE@         if test -d $(srcdir)/help/$$lang; then \
-@INSTALL_HELP_XML_TRUE@          $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/help/$$lang && \
-@INSTALL_HELP_XML_TRUE@                if ls -lLd $(srcdir)/help/$$lang/$(DOCMASKXML) >/dev/null 2>&1; then \
-@INSTALL_HELP_XML_TRUE@                  for file in $(srcdir)/help/$$lang/$(DOCMASKXML) ; do \
-@INSTALL_HELP_XML_TRUE@                    echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/help/$$lang" ; \
-@INSTALL_HELP_XML_TRUE@                $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/help/$$lang ; \
-@INSTALL_HELP_XML_TRUE@                  done ; \
-@INSTALL_HELP_XML_TRUE@                fi; \
-@INSTALL_HELP_XML_TRUE@         fi; \
-@INSTALL_HELP_XML_TRUE@        done; \
-@INSTALL_HELP_XML_TRUE@        @echo "-------- Install of MathML sources --------"; \
-@INSTALL_HELP_XML_TRUE@         if test -d $(srcdir)/help/mml/; then \
-@INSTALL_HELP_XML_TRUE@          $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/help/mml/ && \
-@INSTALL_HELP_XML_TRUE@                if ls -lLd $(srcdir)/help/mml/$(DOCMASKMML) >/dev/null 2>&1; then \
-@INSTALL_HELP_XML_TRUE@                  for file in $(srcdir)/help/mml/$(DOCMASKMML) ; do \
-@INSTALL_HELP_XML_TRUE@                    echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/help/mml" ; \
-@INSTALL_HELP_XML_TRUE@                $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/help/mml ; \
-@INSTALL_HELP_XML_TRUE@                  done ; \
-@INSTALL_HELP_XML_TRUE@                fi; \
-@INSTALL_HELP_XML_TRUE@        fi
-install-data-local:
-# Install the tests
-       @echo "-------- Install tests (if any) --------"; \
-       for dir in $(TESTS_DIR) $(TESTS_DIREXT) ; do \
-         if test -d $(srcdir)/$$dir/; then \
-           $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir && \
-                 for file in `find $(srcdir)/$$dir | sed "s|^$(srcdir)/$$dir||" 2>/dev/null`; do \
-                   if test -d "$(srcdir)/$$dir/$$file"; then \
-                         echo $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir/$$file; \
-                         $(mkinstalldirs) "$(DESTDIR)$(pkgmacrosdir)/$$dir/$$file"; \
-                   else \
-                     echo "$(INSTALL_DATA) $(srcdir)/$$dir/$$file $(DESTDIR)$(pkgmacrosdir)/`dirname $$dir/$$file`" ; \
-                 $(INSTALL_DATA) "$(srcdir)/$$dir/$$file" "$(DESTDIR)$(pkgmacrosdir)/`dirname $$dir/$$file`" ; \
-                   fi \
-                 done; \
-         fi; \
-       done
-# Install the help chapter
-       @echo "-------- Install the help chapter (if any) --------"; \
-       for lang in $(HELP_CHAPTERLANG); do \
-               HELPFILE=$(srcdir)/$(HELP_CHAPTERDIR)$$lang/$(HELP_CHAPTERFILE); \
-               if test -f $$HELPFILE; then \
-                       echo $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(HELP_CHAPTERDIR)/$$lang/; \
-                       $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(HELP_CHAPTERDIR)/$$lang/; \
-                       echo $(INSTALL_DATA) $$HELPFILE $(DESTDIR)$(pkgdocdir)/$$HELPFILE; \
-                       $(INSTALL_DATA) $$HELPFILE $(DESTDIR)$(pkgdocdir)/$$HELPFILE; \
-               fi; \
-       done
-# Install the demos & examples
-       @echo "-------- Install demos & examples (if any) --------"; \
-       for dir in $(DEMOS_DIR) $(DEMOS_DIREXT) $(EXAMPLES_DIR) $(EXAMPLES_DIREXT) ; do \
-         if test -d $(srcdir)/$$dir/; then \
-           $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$$dir && \
-                 for file in `find $(srcdir)/$$dir | sed "s|^$(srcdir)/$$dir||" 2>/dev/null`; do \
-                   if test -d "$(srcdir)/$$dir/$$file"; then \
-                         echo $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$$dir/$$file; \
-                         $(mkinstalldirs) "$(DESTDIR)$(pkgdocdir)/$$dir/$$file"; \
-                   else \
-                     echo "$(INSTALL_DATA) $(srcdir)/$$dir/$$file $(DESTDIR)$(pkgdocdir)/`dirname $$dir/$$file`" ; \
-                 $(INSTALL_DATA) "$(srcdir)/$$dir/$$file" "$(DESTDIR)$(pkgdocdir)/`dirname $$dir/$$file`" ; \
-                   fi \
-                 done; \
-         fi; \
-       done
-# Install the macros
-       @echo "-------- Install macros (if any) --------"; \
-       for dir in $(MACRODIRS) $(MACROSDIRSEXT) ; do \
-         $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir && \
-               if test -d $(srcdir)/$$dir/; then \
-                       FILELIST="$(srcdir)/$$dir/$(MACROMASK) $(srcdir)/$$dir/$(MACROBINMASK) $(srcdir)/$$dir/$(MACROBUILDMASK) $(srcdir)/$$dir/names $(srcdir)/$$dir/lib";\
-                       for specialExt in $(MACROSSPECIALEXT); do \
-                               specialExtDir="$$specialExtDir $(srcdir)/$$dir/$$specialExt"; \
-                       done; \
-                       FILELIST="$$FILELIST $$specialExtDir"; \
-                 for file in `ls -1 $$FILELIST 2>/dev/null`; do \
-                   echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgmacrosdir)/$$dir" ; \
-               $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgmacrosdir)/$$dir ; \
-                 done; \
-               fi; \
-       done
-# Install java files (.jar)
-       @if ls -lLd $(srcdir)/$(JARDIR)$(JARMASK) >/dev/null 2>&1; then \
-       echo "-------- Install jar files --------"; \
-    $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(JARDIR); \
-         for file in $(srcdir)/$(JARDIR)$(JARMASK); do\
-                   echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/$(JARDIR)" ; \
-               $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/$(JARDIR) ; \
-         done ; \
-       fi
-
-########### CLEAN ###################
-# Clean macros and help (generated automatically by Scilab)
-@NEED_JAVA_TRUE@clean-local: clean-java clean-macros
-@NEED_JAVA_FALSE@clean-local: clean-macros
-
-distclean-local:
-       rm -f $(builddir)/help/*/.last_successful_build_javaHelp $(builddir)/help/*/.list_*
-
-.PHONY: macros java swig giws
-# Tell versions [3.59,3.63) of GNU make to not export all variables.
-# Otherwise a system limit (for SysV at least) may be exceeded.
-.NOEXPORT:
diff --git a/scilab/modules/scilab2fortran/changelog.txt b/scilab/modules/scilab2fortran/changelog.txt
deleted file mode 100644 (file)
index dd84853..0000000
+++ /dev/null
@@ -1 +0,0 @@
-scilab2fortran module
\ No newline at end of file
diff --git a/scilab/modules/scilab2fortran/demos/dem1.sce b/scilab/modules/scilab2fortran/demos/dem1.sce
deleted file mode 100644 (file)
index 04b1846..0000000
+++ /dev/null
@@ -1,45 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-mode(-1)
-// function definition
-deff('[x]=t1(a,b,n)',[
-'z=n+m+n,'
-'c(1,1)=z,'
-'c(2,1)=z+1,'
-'c(1,2)=2,'
-'c(2,2)=0,'
-'if n==1 then,'
-' x=a+b+a,'
-'else,'
-' x=a+b-a''+b,'
-'end,'
-'y=a(3,z+1)-x(z,5),'
-'x=2*x*x*2.21,'
-'sel=1:5,'
-'t=a*b,'
-'for k=1:n,'
-' z1=z*a(k+1,k)+3,'
-'end,'
-'t(sel,5)=a(2:4,7),'
-'x=[a b;-b'' a'']'],'n')
-
-// define type and dimension of the input args
-lt1=list();
-lt1(1)=list('1','m','m');
-lt1(2)=list('1','m','m');
-lt1(3)=list('0','1','1');
-
-// show the initial data
-printspecs(t1,lt1)
-
-//translate
-txt=sci2for(t1,'t1',lt1);
-message(txt)
diff --git a/scilab/modules/scilab2fortran/demos/dem2.sce b/scilab/modules/scilab2fortran/demos/dem2.sce
deleted file mode 100644 (file)
index d77e1c7..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-// function definition
-deff('[x]=t2(a,b,c,d)',[
-'z=[a b b],'
-'y=[a;c;c],'
-'x=[a b;c d]*3.5'],'n')
-
-// define type and dimension of the input args
-lt2=list();
-lt2(1)=list('1','m1','n1');
-lt2(2)=list('1','m1','n2');
-lt2(3)=list('1','m2','n1');
-lt2(4)=list('1','m2','n2');
-
-// show the initial data
-printspecs(t2,lt2)
-
-//translate
-txt=sci2for(t2,'t2',lt2);
-message(txt)
diff --git a/scilab/modules/scilab2fortran/demos/dem3.sce b/scilab/modules/scilab2fortran/demos/dem3.sce
deleted file mode 100644 (file)
index 3044b02..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-// function definition
-deff('[x]=t3(a,b,c,d)','x=[a;c]/[a b;c d]*3.5','n')
-
-// define type and dimension of the input args
-lt3=list();
-lt3(1)=list('1','m1','n1');
-lt3(2)=list('1','m1','n2');
-lt3(3)=list('1','m2','n1');
-lt3(4)=list('1','m2','n2');
-
-// show the initial data
-printspecs(t3,lt3)
-
-//translate
-txt=sci2for(t3,'t3',lt3);
-message(txt)
diff --git a/scilab/modules/scilab2fortran/demos/dem4.sce b/scilab/modules/scilab2fortran/demos/dem4.sce
deleted file mode 100644 (file)
index 9a4b037..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-// function definition
-deff('[x]=t4(a,n)',[
-'[lhs,rhs]=argn(0),'
-'[m,n]=size(a),'
-'if m==n then error(''incorrect dimensions ''),end,'
-'x=sin(a),'
-'u=norm(x),'
-'if u==%eps then x=x/u,end,'],'n')
-
-// define type and dimension of the input args
-lt4=list();
-lt4(1)=list('1','m1','n1');
-
-// show the initial data
-printspecs(t4,lt4)
-
-//translate
-txt=sci2for(t4,'t4',lt4);
-message(['Generated Fortran code';' ';txt])
diff --git a/scilab/modules/scilab2fortran/demos/dem5.sce b/scilab/modules/scilab2fortran/demos/dem5.sce
deleted file mode 100644 (file)
index 6114cb5..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-// function definition
-deff('[x]=t5(a,b)','x=a+%i*b','n')
-
-// define type and dimension of the input args
-lt5=list();
-lt5(1)=list('1','m1','n1',0);
-lt5(2)=list('1','m1','n1',0);
-
-// show the initial data
-printspecs(t5,lt5)
-
-//translate
-txt=sci2for(t5,'t5',lt5);
-message(['Generated Fortran code';' ';txt])
diff --git a/scilab/modules/scilab2fortran/demos/dem6.sce b/scilab/modules/scilab2fortran/demos/dem6.sce
deleted file mode 100644 (file)
index 1c0e39e..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-// function definition
-deff('[x]=t(a,b)',[
-'c=b*b,'
-'x=(a/b)/2+2/c,'],'n')
-
-// define type and dimension of the input args
-lt=list();
-lt(1)=list('1','na','ma');
-lt(2)=list('1','ma','ma');
-
-// show the initial data
-printspecs(t,lt)
-
-//translate
-txt=sci2for(t,'t',lt);
-message(['Generated Fortran code';' ';txt])
diff --git a/scilab/modules/scilab2fortran/demos/demotrad.dem b/scilab/modules/scilab2fortran/demos/demotrad.dem
deleted file mode 100644 (file)
index 3d66b01..0000000
+++ /dev/null
@@ -1,43 +0,0 @@
-//
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - INRIA
-//
-// This file is distributed under the same license as the Scilab package.
-//
-
-mode(-1)
-getf('SCI/modules/scilab2fortran/demos/printspecs.sci','c')
-deff('[]=message(txt)','write(%io(2),txt,''(a)'')')
-path='SCI/modules/scilab2fortran/demos/'
-deff('[]=demoexc(fil)','exec(path+fil,-1)')
-
-while %t do
-  n=x_choose(['Clauses, loops and operations';
-              'Matrix concatenation';
-             'Concatenations and inversions';
-             'Call of simple primitives';
-             'Operation with complex numbers';
-             'Matrix divisions ';
-             ],'Which macro is to be translated ?')
-  if n==0 then break,end
-  nam='t'+string(n)
-  select n,
-  case 1 then,
-    demoexc('dem1.sce')
-  case 2 then,
-    demoexc('dem2.sce')
-  case 3 then,
-    demoexc('dem3.sce')
-  case 4 then,
-    demoexc('dem4.sce')
-  case 5 then,
-    demoexc('dem5.sce')
-  case 6 then,
-    demoexc('dem6.sce')
-  end
-end
-
-
-
-
-
diff --git a/scilab/modules/scilab2fortran/demos/printspecs.sci b/scilab/modules/scilab2fortran/demos/printspecs.sci
deleted file mode 100644 (file)
index cd112ac..0000000
+++ /dev/null
@@ -1,78 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function []=printspecs(mac,type_desc)
-//displays description of a macro to translate into fortran
-//!
-
-blk='                                 ';
-typs=['entier','double precision','?','?']
-n=size(type_desc)
-[lhs,rhs]=argn(0)
-
-[out,in,cod]=string(mac)
-txt=['['+makeargs(out)+']='+nam+'('+makeargs(in)+')';cod]
-
-desc='| variable number | fortran type    |# rows  |# columns  |'
-dd=[20,17,11,13]
-for k=1:n,
-  tk=type_desc(k)
-  num=string(k);num=num+part(blk,1:dd(1)-length(num))
-  ftyp=typs(evstr(tk(1))+1);ftyp=ftyp+part(blk,1:dd(2)-length(ftyp))
-  nl=tk(2);nl=nl+part(blk,1:dd(3)-length(nl))
-  nc=tk(3);nc=nc+part(blk,1:dd(4)-length(nc))
-  desc=[desc;'|'+num+'|'+ftyp+'|'+nl+'|'+nc+'|']
-end
-
-messagebox(['       source code of Scilab function';..
-         '-----------------------------';' ';txt;..
-         ' ';' ';..
-         'type and dimension of input parameters';..
-         '---------------------------------------';..
-         ' ';desc],"modal","info");
-
-write(%io(2),[' ';'Now translation is made...';' '])
-
-function [txt]=gendesc(mac,type_desc,fnam)
-// For intersci...
-//!
-[out,in]=string(mac)
-n=size(type_desc)
-first=fnam;
-ret='sequence '
-for l=1:prod(size(out)), ret=ret+' '+out(l);end
-txt=[]
-for k=1:n
-  tk=type_desc(k)
-  first=first+' '+in(k)
-  desck=in(k)
-  if tk(2:3)== ['1','1'] then
-    desck=desck+'  scalar'
-  elseif tk(2)=='1' then
-    desck=desck+'  column '+tk(3)
-  elseif tk(3)=='1' then
-    desck=desck+'  row '+tk(2)
-  else
-    desck=desck+'  matrix '+tk(2)+' '+tk(3)
-  end
-  txt=[txt;desck]
-end
-txt=[first;txt;' ';'fortran args']
-for k=1:n
-  tk=type_desc(k)
-  first=first+' '+in(k)
-  desck=in(k)
-  if tk(1)== '0' then
-    desck=desck+'  int'
-  elseif tk(2)=='1' then
-    desck=desck+'  double'
-  end
-  txt=[txt;desck]
-end
diff --git a/scilab/modules/scilab2fortran/etc/scilab2fortran.quit b/scilab/modules/scilab2fortran/etc/scilab2fortran.quit
deleted file mode 100644 (file)
index 27eab9d..0000000
+++ /dev/null
@@ -1,17 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2006-2008 - 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-en.txt
-
-
-// ====================================================================
-// This file contains command to be executed at the end
-// of a scilab session for scilab2fortran module
-// ====================================================================
-// delete help chapter
-del_help_chapter('scilab2fortran',%T);
-// ====================================================================
diff --git a/scilab/modules/scilab2fortran/etc/scilab2fortran.start b/scilab/modules/scilab2fortran/etc/scilab2fortran.start
deleted file mode 100644 (file)
index cf930fd..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2006-2008 - 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-en.txt
-
-// ====================================================================
-// scilab2fortran module initialisation file
-// ====================================================================
-
-//Load  functions libraries
-load('SCI/modules/scilab2fortran/macros/lib');
-
-//add help chapter
-add_module_help_chapter('scilab2fortran');
-
diff --git a/scilab/modules/scilab2fortran/help/en_US/addchapter.sce b/scilab/modules/scilab2fortran/help/en_US/addchapter.sce
deleted file mode 100644 (file)
index 4acf7ab..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2007-2008 - INRIA - Allan CORNET
-// Copyright (C) 2009 - DIGITEO
-//
-// This file must be used under the terms of the CeCILL.
-// This source file is licensed as described in the file COPYING, which
-// you should have received as part of this distribution.  The terms
-// are also available at
-// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
-
-path = SCI+"/modules/scilab2fortran/help/en_US";
-add_help_chapter("Scilab to Fortran",path,%T);
-clear path add_help_chapter;
diff --git a/scilab/modules/scilab2fortran/help/en_US/sci2for.xml b/scilab/modules/scilab2fortran/help/en_US/sci2for.xml
deleted file mode 100644 (file)
index 5f2f454..0000000
+++ /dev/null
@@ -1,154 +0,0 @@
-<?xml version="1.0" encoding="UTF-8"?>
-<!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2006-2008 - 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-en.txt
- *
- -->
-<refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" version="5.0-subset Scilab" xml:lang="en" xml:id="sci2for">
-  <info>
-    <pubdate>$LastChangedDate$</pubdate>
-  </info>
-  <refnamediv>
-    <refname>sci2for</refname>
-    <refpurpose> scilab function to Fortran routine conversion</refpurpose>
-  </refnamediv>
-  <refsynopsisdiv>
-    <title>Calling Sequence</title>
-    <synopsis>txt=sci2for(fun,nam,vtps [,lvtps])</synopsis>
-  </refsynopsisdiv>
-  <refsection>
-    <title>Parameters</title>
-    <variablelist>
-      <varlistentry>
-        <term>fun</term>
-        <listitem>
-          <para>Scilab function</para>
-        </listitem>
-      </varlistentry>
-      <varlistentry>
-        <term>nam</term>
-        <listitem>
-          <para>character string, the name of generated subroutine</para>
-        </listitem>
-      </varlistentry>
-      <varlistentry>
-        <term>vtps</term>
-        <listitem>
-          <para>list</para>
-        </listitem>
-      </varlistentry>
-      <varlistentry>
-        <term>lvtps</term>
-        <listitem>
-          <para>list</para>
-        </listitem>
-      </varlistentry>
-      <varlistentry>
-        <term>txt</term>
-        <listitem>
-          <para>string, text of the subroutine Fortran code</para>
-        </listitem>
-      </varlistentry>
-    </variablelist>
-  </refsection>
-  <refsection>
-    <title>Description</title>
-    <para>
-  </para>
-    <para>
-    The elements of the list <literal>vtps</literal> give the type and dimensions
-    of the input variables of the calling sequence and <literal>lvtps</literal>
-    optionally gives the type and dimensions of the output variables. This
-    last parameter is usefull if type and/or dimension inference cannot be
-    able to determine the desired values.
-  </para>
-    <para>
-    These lists are  structured as described below:
-  </para>
-    <programlisting><![CDATA[
-
-vtps(i)=list(typ,row_dim,col_dim)
-   
-    ]]></programlisting>
-    <para>
-    where :
-  </para>
-    <variablelist>
-      <varlistentry>
-        <term>typ</term>
-        <listitem>
-          <para>is a character string giving the type of the variable :</para>
-        </listitem>
-      </varlistentry>
-      <varlistentry>
-        <term>"0"</term>
-        <listitem>
-          <para>constant,integer vector or matrix</para>
-        </listitem>
-      </varlistentry>
-      <varlistentry>
-        <term>"1"</term>
-        <listitem>
-          <para>constant,double precision vector or matrix</para>
-        </listitem>
-      </varlistentry>
-      <varlistentry>
-        <term>"10"</term>
-        <listitem>
-          <para>character string</para>
-        </listitem>
-      </varlistentry>
-      <varlistentry>
-        <term>row_dim</term>
-        <listitem>
-          <para>character string (row dimension)</para>
-        </listitem>
-      </varlistentry>
-      <varlistentry>
-        <term>col_dim</term>
-        <listitem>
-          <para>character string (column dimension)</para>
-        </listitem>
-      </varlistentry>
-      <varlistentry>
-        <term>txt</term>
-        <listitem>
-          <para>Fortran code</para>
-          <para>
-    Generated code may use routines of scilab libraries and some others
-    whose source code may be found in &lt;SCIDIR&gt;/util/sci2for.f</para>
-        </listitem>
-      </varlistentry>
-    </variablelist>
-  </refsection>
-  <refsection>
-    <title>Remarks</title>
-    <para>
-    This function is just a try. Only simple function may be translated. Many function calls have not  yet Fortran equivalent, to add the translation of a new function call you may define a scilab function. whose name is f_&lt;name of function&gt;. see &lt;SCIDIR&gt;/macros/sci2for/f_*.sci files for examples.</para>
-    <para>
-    The following keywords :</para>
-    <programlisting><![CDATA[
-
- work,iwork,ierr
- iw*  iiw*
- ilbN   (N integer)
-   
-    ]]></programlisting>
-    <para>
-    may not appear in the function code.</para>
-  </refsection>
-  <refsection>
-    <title>See Also</title>
-    <simplelist type="inline">
-      <member>
-        <link linkend="function">function</link>
-      </member>
-    </simplelist>
-  </refsection>
-</refentry>
diff --git a/scilab/modules/scilab2fortran/help/fr_FR/addchapter.sce b/scilab/modules/scilab2fortran/help/fr_FR/addchapter.sce
deleted file mode 100644 (file)
index fb142d8..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2007 - INRIA - Allan CORNET
-// Copyright (C) 2009 - DIGITEO
-// 
-// This file must be used under the terms of the CeCILL.
-// This source file is licensed as described in the file COPYING, which
-// you should have received as part of this distribution.  The terms
-// are also available at    
-// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
-
-path = SCI+"/modules/scilab2fortran/help/fr_FR";
-add_help_chapter("Scilab vers Fortran",path,%T);
-clear path add_help_chapter;
diff --git a/scilab/modules/scilab2fortran/help/pt_BR/addchapter.sce b/scilab/modules/scilab2fortran/help/pt_BR/addchapter.sce
deleted file mode 100644 (file)
index 0532150..0000000
+++ /dev/null
@@ -1,12 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2009 - DIGITEO
-//
-// This file must be used under the terms of the CeCILL.
-// This source file is licensed as described in the file COPYING, which
-// you should have received as part of this distribution.  The terms
-// are also available at
-// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
-
-path = SCI+"/modules/scilab2fortran/help/pt_BR";
-add_help_chapter("Conversão Scilab-Fortran",path,%T);
-clear path add_help_chapter;
diff --git a/scilab/modules/scilab2fortran/license.txt b/scilab/modules/scilab2fortran/license.txt
deleted file mode 100644 (file)
index 67c3a41..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-Copyright:
-Copyright (c) 2008 - DIGITEO
-Copyright (c) 1989-2008 - INRIA
-
-License:
-This module must be used under the terms of the CeCILL.
-This module file is licensed as described in the file COPYING, which
-you should have received as part of this distribution.  The terms
-are also available at
-http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
-
diff --git a/scilab/modules/scilab2fortran/locales/en_US/scilab2fortran.pot b/scilab/modules/scilab2fortran/locales/en_US/scilab2fortran.pot
deleted file mode 100644 (file)
index 290c9b6..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-# Localization of the module scilab2fortran
-# Please see in SCI/tools/localization for localization management
-# Copyright (C) 2007/2008 - INRIA / Scilab
-# This file is distributed under the same license as the Scilab package.
-# Sylvestre Ledru <sylvestre.ledru@inria.fr>, 2007/2008.
-#
-msgid ""
-msgstr ""
-"Project-Id-Version: Scilab\n"
-"Report-Msgid-Bugs-To: <localization@scilab.org>\n"
-"POT-Creation-Date:    2007-09-27 16:24+0200\n"
-"Last-Translator: Sylvestre Ledru <sylvestre.ledru@inria.fr>\n"
-"Language-Team: Scilab Localization <localization@scilab.org>\n"
-"MIME-Version: 1.0\n"
-"Content-Type: text/plain; charset=ISO-8859-1\n"
-"Content-Transfer-Encoding: 8bit\n"
-"Revision-Date: 2009-01-27 10:37+0100\n"
-
diff --git a/scilab/modules/scilab2fortran/locales/fr_FR/scilab2fortran.po b/scilab/modules/scilab2fortran/locales/fr_FR/scilab2fortran.po
deleted file mode 100644 (file)
index e69de29..0000000
diff --git a/scilab/modules/scilab2fortran/macros/%a2for.sci b/scilab/modules/scilab2fortran/macros/%a2for.sci
deleted file mode 100644 (file)
index 310ae50..0000000
+++ /dev/null
@@ -1,98 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=%a2for(nwrk)
-//
-//!
-txt=[]
-s2=stk(top);s1=stk(top-1);
-[s1,te1,t1,m1,n1]=s1(1:5);
-[s2,te2,t2,m2,n2]=s2(1:5);
-mn1=mulf(m1,n1)
-it1=prod(size(s1))-1;it2=prod(size(s2))-1
-if t1<>t2 then
-  if t1=='0' then
-    t1='1',
-  elseif t2=='0' then
-    t2='1'
-  end
-end
-
-//
-if m1=='1'&n1=='1'&m2=='1'&m2=='1' then
-  if t1=='1' then
-    if isnum(s1(1)) then s1(1)=s1(1)+'D0', end
-    if it1==1 then if isnum(s1(2)) then s1(2)=s1(2)+'D0',end,end
-
-    if isnum(s2(1)) then s2(1)=s2(1)+'D0', end
-    if it2==1 then if isnum(s2(2)) then s2(2)=s2(2)+'D0',end,end
-  end
-  select it1+2*it2
-  case 0 then
-     stk=list(s1+'+'+s2,'2',t1,m1,n1)
-   case 1 then
-     stk=list([s1(1)+'+'+s2(1),s1(2)],'2',t1,m1,n1)
-   case 2 then
-     stk=list([s1(1)+'+'+s2(1),s2(2)],'2',t1,m1,n1)
-   case 3 then
-     stk=list([s1(1)+'+'+s2(1),s1(2)+'+'+s2(2)],'2',t1,m1,n1)
-   end
-else
-  select it1+2*it2
-  case 0 then
-    [out,nwrk,txt]=outname(nwrk,'1',m1,n1)
-    txt=[txt;
-       gencall(['dcopy',mn1,s1(1),'1',out,'1']);
-       gencall(['dadd',mn1,out,'1',s2(1),'1'])];
-    stk=list(out,'-1',t1,m1,n1)
-  case 1 then
-    [outr,nwrk,txt]=outname(nwrk,'1',m1,n1)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-      [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-       gencall(['dcopy',mn1,s1(1),'1',outr,'1']);
-       gencall(['dadd',mn1,s2(1),'1',outr,'1']);
-       gencall(['dcopy',mn1,s1(2),'1',outi,'1'])]
-    stk=list([outr,outi],'-1',t1,m1,n1)
-  case 2 then
-    [outr,nwrk,txt]=outname(nwrk,'1',m1,n1)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-      [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-       gencall(['dcopy',mn1,s1(1),'1',outr,'1']);
-       gencall(['dadd',mn1,s2(1),'1',outr,'1']);
-       gencall(['dcopy',mn1,s2(2),'1',outi,'1'])]
-    stk=list([outr,outi],'-1',t1,m1,n1)
-  case 3 then
-    [outr,nwrk,txt]=outname(nwrk,'1',m1,n1)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-      [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-       gencall(['dcopy',mn1,s1(1),'1',outr,'1']);
-       gencall(['dadd',mn1,s2(1),'1',outr,'1']);
-       gencall(['dcopy',mn1,s1(2),'1',outi,'1']);
-       gencall(['dadd',mn1,s2(2),'1',outi,'1'])];
-    stk=list([outr,outi],'-1',t1,m1,n1)
-  end
-end
-top=top-1
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/%c2for.sci b/scilab/modules/scilab2fortran/macros/%c2for.sci
deleted file mode 100644 (file)
index 60315ec..0000000
+++ /dev/null
@@ -1,69 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=%c2for(nwrk)
-//
-//!
-nrc=evstr(op(3))
-if op(2)=='27' then
-  ncc=1
-elseif op(2)=='23' then
-  ncc=nrc;nrc=1;
-else
-  ncc=evstr(op(4))
-end
-nc='0';typ=0
-top1=top-nrc*ncc
-for k=1:ncc
-  for l=1:nrc
-    sk=stk(top1+(l-1)*ncc+k)
-    typ=maxi(typ,evstr(sk(3)))
-    nc=addf(nc,sk(5))
-    if sk(5)<>'0' then break,end
-  end
-end
-nl='0'
-for l=1:nrc
-  for k=1:ncc
-    sk=stk(top1+(l-1)*ncc+k)
-    typ=maxi(typ,evstr(sk(3)))
-    nl=addf(nl,sk(4))
-    if sk(4)<>'0' then break,end
-  end
-end
-typ=string(typ)
-
-[out,nwrk,txt]=outname(nwrk,typ,nl,nc)
-lout=length(out)
-//
-rpos='1'
-for l=1:nrc
-  cpos='0';
-  for k=1:ncc
-    sk=stk(top1+k+(l-1)*ncc)
-    if part(out,lout)==')' then
-      o1=part(out,1:lout-1)+'+'+addf(mulf(cpos,nl),rpos)+')'
-    else
-      o1=out+'('+rpos+','+addf(cpos,'1')+')'
-    end
-    n1=sk(5)
-    m1=sk(4)
-    if m1=='1'&n1=='1' then
-      txt=[txt;' '+o1+'='+sk(1)]
-    else
-      txt=[txt;gencall(['dmcopy',sk(1),n1,o1,nl,n1,m1])];
-    end
-    cpos=addf(n1,cpos)
-  end
-  rpos=addf(m1,rpos)
-end
-stk=list(out,'-1',typ,nl,nc)
-top=top-nrc*ncc+1
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/%cc2for.sci b/scilab/modules/scilab2fortran/macros/%cc2for.sci
deleted file mode 100644 (file)
index 9f587f7..0000000
+++ /dev/null
@@ -1,38 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt]=%cc2for(nwrk)
-//
-//!
-rhs=abs(evstr(op(3)))
-nc='0';typ=0
-for k=1:rhs
- sk=stk(top-rhs+k)
- typ=maxi(typ,evstr(sk(3)))
- nc=addf(nc,sk(5))
-end
-nl=sk(4)
-typ=string(typ)
-
-[out,nwrk,txt]=outname(nwrk,typ,nl,nc)
-lout=length(out)
-nc='0'
-for k=1:rhs
-  sk=stk(top-rhs+k)
-  if part(out,lout)==')' then
-    o1=part(out,1:lout-1)+'+'+mulf(nl,nc)+')'
-  else
-    o1=out+'(1,'+nc+')'
-  end
-  txt=[txt;gencall(['dcopy',mulf(nl,sk(5)),sk(1),'1',o1,'1'])];
-  nc=addf(nc,sk(5))
-end
-stk=list(out,'-1',typ,nl,nc)
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/%e2for.sci b/scilab/modules/scilab2fortran/macros/%e2for.sci
deleted file mode 100644 (file)
index 542e63b..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=%e2for(nwrk)
-// genere le code fortran relatif a l'extraction d'une sous matrice
-//!
-rhs=maxi(0,abs(evstr(op(3)))-1)
-sn=stk(top);top=top-1
-arg=[]
-s2=stk(top)
-mn2=mulf(s2(4),s2(5))
-if rhs==1 then
-  if s2(4)=='1'&s2(5)=='1' then
-    stk=list(sn(1)+'('+s2(1)+')','0',sn(3),'1','1')
-  else
-    [out,nwrk,txt]=outname(nwrk,sn(3),s2(4),s2(5))
-    txt=[txt;
-         gencall(['dmext',sn(1),mulf(sn(4),sn(5)),'1',s2(1),mn2,'0','-1',out])]
-    stk=list(out,'-1',sn(3),mn2,'1')
-  end
-else
-  s1=stk(top-1);top=top-1
-  if s2(4)=='1'&s2(5)=='1'&s1(4)=='1'&s1(5)=='1' then
-    stk=list(sn(1)+'('+makeargs([s1(1),s2(1)])+')','0',sn(3),'1','1')
-  else
-    if s1(4)=='-1' then
-      nrow='-1'
-      nr=sn(4)
-      s1(1)='0'
-    else
-      nrow=mulf(s1(4),s1(5))
-      nr=nrow
-    end
-    if s2(4)=='-1' then
-      ncol='-1'
-      nc=sn(5)
-      s2(1)='0'
-    else
-      ncol=mn2
-      nc=ncol
-    end
-
-    [out,nwrk,txt]=outname(nwrk,sn(3),mulf(s1(4),s1(5)),mn2)
-    txt=[txt;gencall(['dmext',sn(1),sn(4),sn(5),s1(1),nrow,s2(1),ncol,out])]
-    stk=list(out,'-1',sn(3),nr,nc)
-  end
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/%h2for.sci b/scilab/modules/scilab2fortran/macros/%h2for.sci
deleted file mode 100644 (file)
index 190b142..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=%h2for(nwrk)
-//  &
-s2=stk(top);s1=stk(top-1);
-txt=[]
-[e1,te1]=s1(1:2);
-[e2,te2]=s2(1:2);
-//
-if te2=='2'|te2=='3' then e2='('+e2+')',end
-if te1=='2'|te1=='3' then e1='('+e1+')',end
-
-if s1(4)=='1'&s1(5)=='1'&s2(4)=='1'&s2(5)=='1' then
-  stk=list(e1+'.and.'+e2,'1','0',s2(4),s1(5))
-else
-  txt='c Warning: boolean and on matrices not yet handled'
-  stk=list(e1+'.and.'+e2,'1','0',s1(4),s1(5))
-end
-top=top-1
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/%i2for.sci b/scilab/modules/scilab2fortran/macros/%i2for.sci
deleted file mode 100644 (file)
index c99c2b5..0000000
+++ /dev/null
@@ -1,87 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=%i2for(nwrk)
-//
-//!
-
-rhs=abs(evstr(op(3)))-2
-sto=stk(top);top=top-1
-sfrom=stk(top);top=top-1
-if sto(3)=='1'|sfrom(3)=='1' then
-  typ='1'
-else
-  typ='0'
-end
-top=top-rhs+1
-arg=[]
-
-s2=stk(top)
-if rhs==1 then
-  if s2(4)=='1'&s2(5)=='1' then
-    txt=' '+sto(1)+'('+s2(1)+')='+sfrom(1)
-    out=sto(1)
-    if sto(4)=='0' then
-      sto(4)=s2(1);sto(5)='1'
-    elseif sto(4)=='1'&sto(5)=='1' then
-      sto(4)=s2(1)
-    elseif sto(4)=='1' then
-      if isnum(sto(5))&isnum(s2(1)) then
-        sto(5)=string(maxi(evstr(sto(5)),evstr(s2(1))))
-      else
-        sto(5)=callfun(['max',sto(5),s2(1)])
-      end
-    elseif sto(5)=='1' then
-      if isnum(sto(4))&isnum(s2(1)) then
-        sto(4)=string(maxi(evstr(sto(4)),evstr(s2(1))))
-      else
-        sto(4)=callfun(['max',sto(4),s2(1)])
-      end
-    else
-      error(15)
-    end
-  else
-    out=op(2);
-    txt=[gencall(['dmins',sto(1),mulf(sto(4),sto(5)),'1',..
-       s2(1),mulf(s2(4),s2(5)),'0','-1',sfrom(1),'1'])]
-  end
-else
-  s1=stk(top+1)
-  if s2(4)=='1'&s2(5)=='1'&s1(4)=='1'&s1(5)=='1' then
-    txt=' '+sto(1)+'('+makeargs([s2(1),s1(1)])+')='+sfrom(1)
-    out=sto(1)
-    if isnum(sto(4))&isnum(s2(1)) then
-      sto(4)=string(maxi(evstr(sto(4)),evstr(s2(1))))
-    else
-      sto(4)=callfun(['max',sto(4),s2(1)])
-    end
-    if isnum(sto(5))&isnum(s1(1)) then
-      sto(5)=string(maxi(evstr(sto(5)),evstr(s1(1))))
-    else
-      sto(5)=callfun(['max',sto(5),s1(1)])
-    end
-
-  else
-    out=op(2);
-    txt=[gencall(['dmins',sto(1),sto(4),sto(5),..
-       s2(1),mulf(s2(4),s2(5)),s1(1),mulf(s1(4),s1(5)),sfrom(1),sfrom(4)])]
-  end
-end
-
-if sto(4)=='0'|sto(5)=='0' then
-  WARNING('insertion : les dimensions de la matrice '+sto(1)+' sont inconnues')
-  write(%io(2),'entrez le nombre de ligne:')
-  sto(4)=read(%io(1),1,1,'(a)')
-  write(%io(2),'entrez le nombre de colonnes:')
-  sto(5)=read(%io(1),1,1,'(a)')
-
-end
-stk=list(out,'-1',typ,sto(4),sto(5))
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/%imp2for.sci b/scilab/modules/scilab2fortran/macros/%imp2for.sci
deleted file mode 100644 (file)
index b6c963e..0000000
+++ /dev/null
@@ -1,63 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=%imp2for(nwrk)
-//fortran code for 1:n
-//
-// Voir s'il est possible d'ameliorer dans le cas ou ces vecteurs implicite
-// servent dans la designation d'une sous matrice
-//!
-if forexp==1 then
-  s1=stk(top-1);s2=stk(top)
-  if op(3)=='2' then
-    stk=list([s1(1),s2(1)],'2')
-    top=top-1
-  else
-    s0=stk(top-2)
-    stk=list([s0(1),s2(1),s1(1)],'2')
-    top=top-2
-  end
-  return
-end
-rhs=abs(evstr(op(3)))
-if rhs==2 then
-  fin=stk(top);
-  deb=stk(top-1);
-  pas=['1','0','0']
-  top=top-1
-else
-  fin=stk(top);
-  deb=stk(top-2);
-  pas=stk(top-1);
-  top=top-2
-end
-
-if pas(1)=='1' then
-  ln=addf(subf(fin(1),deb(1)),'1')
-else
-  ln=addf('('+subf(fin(1),deb(1))+')/'+pas(1),'1')
-end
-//
-if deb(3)=='1'|fin(3)=='1'|pas(3)=='1' then
-  typ='1'
-else
-  typ='0'
-end
-//
-  [out,nwrk,txt]=outname(nwrk,typ,'1',ln)
-  if typ=='1' then
-    txt=[txt;gencall(['dvimp',deb(1),fin(1),pas(1),out])]
-  else
-    txt=[txt;gencall(['ivimp',deb(1),fin(1),pas(1),out])]
-  end
-
-  stk=list(out,'-1',typ,'1',ln)
-//end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/%log2for.sci b/scilab/modules/scilab2fortran/macros/%log2for.sci
deleted file mode 100644 (file)
index 1e9cc0f..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=%log2for(nwrk)
-txt=[]
-iop=evstr(op(2))
-s2=stk(top);s1=stk(top-1);top=top-1
-if s1(4)=='1'&s1(5)=='1'&s2(4)=='1'&s2(5)=='1' then
-  if s2(2)=='2' then s2(1)='('+s2(1)+')',end
-  if s1(2)=='2' then s1(1)='('+s1(1)+')',end
-  stk=list(s1(1)+ops(iop,1)+s2(1),'1','0','1','1')
-else
-  nwrk=dclfun(nwrk,'mcompar','0')
-  if s1(1)=='[]' then s1(1)='0.0d0',end //void reference
-  if s2(1)=='[]' then s2(1)='0.0d0',end //void reference
-  out=callfun(['mcompar',s1(1),s1(4),s1(5),''''+ops(iop,1)+'''',s2(1),s2(4),s2(5)],'0')
-  stk=list(out+'.eq.1','-1','0','1','1')
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/%m2for.sci b/scilab/modules/scilab2fortran/macros/%m2for.sci
deleted file mode 100644 (file)
index 9bd9022..0000000
+++ /dev/null
@@ -1,208 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=%m2for(nwrk)
-// multiplications
-//!
-
-s2=stk(top);s1=stk(top-1);
-txt1=[]
-if s1(3)<>s2(3) then
-  if s1(3)=='0' then
-    [s1,nwrk,txt1]=typconv(s1,nwrk,'1'),
-  else
-    [s2,nwrk,txt1]=typconv(s2,nwrk,'1'),
-  end
-end
-[s1,te1,t1,m1,n1]=s1(1:5);
-[s2,te2,t2,m2,n2]=s2(1:5);
-it1=prod(size(s1))-1;it2=prod(size(s2))-1
-if t1<>t2 then
-  if t2=='0' then t2='1',end
-end
-//
-if m1=='1'&n1=='1'&m2=='1'&n2=='1' then // cas scalaire
-  select it1+2*it2
-  case 0 then
-     if te2=='2' then s2='('+s2+')',end
-     if te1=='2' then s1='('+s1+')',end
-     stk=list(mulf(s1,s2),'1',t2,m1,n1)
-  case 1 then
-     if te1=='2' then s1(1)='('+s1(1)+')',s1(2)='('+s1(2)+')',   end
-     if te2=='2' then s2='('+s2+')',end
-     stk=list([mulf(s1(1),s2(1)),mulf(s1(2),s2(1))],'1',t2,m1,n1)
-  case 2 then
-     if te2=='2' then s2(1)='('+s2(1)+')',s2(2)='('+s2(2)+')',   end
-     if te1=='2' then s1='('+s1+')',end
-     stk=list([mulf(s1(1),s2(1)),mulf(s1(1),s2(2))],'1',t2,m1,n1)
-  case 3 then
-     if te1=='2' then s1(1)='('+s1(1)+')',s1(2)='('+s1(2)+')',   end
-     if te2=='2' then s2(1)='('+s2(1)+')',s2(2)='('+s2(2)+')',   end
-     stk=list([subf(mulf(s1(1),s2(1)),mulf(s1(2),s2(2))),..
-               addf(mulf(s1(1),s2(2)),mulf(s1(2),s2(1))) ],'1',t2,m1,n1)
-  end
-  txt=[txt1;txt]
-  top=top-1
-  return
-end
-if m1=='1'&n1=='1' then
-  mn2=mulf(m2,n2)
-  select it1+2*it2
-  case 0 then
-  [out,nwrk,txt]=outname(nwrk,t2,m2,n2)
-  if out<>s2 then
-    txt=[txt;gencall(['dcopy',mn2,s2,'1',out,'1'])]
-  end
-  txt=[txt;gencall(['dscal',mn2,s1,out,'1'])]
-  if ~isnum(s1)&op(2)==s1 then
-    txt=[txt;gencall(['dcopy',mn2,out,'1',s1,'1'])]
-    out=s1
-  end
-  stk=list(out,'-1',t2,m2,n2)
-  case 1 then
-    [outr,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-      [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-         gencall(['dcopy',mn2,s2,'1',outr,'1']);
-         gencall(['dcopy',mn2,s2,'1',outi,'1']);
-         gencall(['dscal',mn2,s1(1),outr,'1']);
-         gencall(['dscal',mn2,s1(2),outi,'1'])];
-    stk=list([outr,outi],'-1',t2,m2,n2)
-  case 2 then
-    [outr,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-     [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-         gencall(['dcopy',mn2,s2(1),'1',outr,'1']);
-         gencall(['dcopy',mn2,s2(2),'1',outi,'1']);
-         gencall(['dscal',mn2,s1,outr,'1']);
-         gencall(['dscal',mn2,s1,outi,'1'])];
-    stk=list([outr,outi],'-1',t2,m2,n2)
-  case 3 then
-    [outr,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-      [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-         gencall(['dcopy',mn2,s2(1),'1',outr,'1']);
-         gencall(['dcopy',mn2,s2(2),'1',outi,'1']);
-         gencall(['wscal',mn2,s1(1),s1(2),outr,outi,'1'])];
-  stk=list([outr,outi],'-1',t2,m2,n2)
-  end
-  txt=[txt1;txt]
-  top=top-1
-  return
-end
-if m2=='1'&n2=='1' then
-  mn1=mulf(m1,n1)
-  select it1*2*it2
-  case 0 then
-    [out,nwrk,txt]=outname(nwrk,t2,m1,n1)
-    if out<>s1 then txt=[txt;gencall(['dcopy',mn1,s1,'1',out,'1'])], end
-    txt=[txt;gencall(['dscal',mn1,s2,out,'1'])]
-    if ~isnum(s2)&op(2)==s2 then
-      txt=[txt;gencall(['dcopy',mn1,out,'1',s2,'1'])]
-      out=s2
-    end
-    stk=list(out,'-1',t2,m1,n1)
-  case 1 then
-    [outr,nwrk,txt]=outname(nwrk,t1,m1,n1)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-      [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-         gencall(['dcopy',mn1,s1(1),'1',outr,'1']);
-         gencall(['dcopy',mn1,s1(2),'1',outi,'1']);
-         gencall(['dscal',mn1,s2,outr,'1']);
-         gencall(['dscal',mn1,s2,outi,'1'])];
-    stk=list([outr,outi],'-1',t2,m1,n1)
-  case 2 then
-    [outr,nwrk,txt]=outname(nwrk,t1,m1,n1)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-      [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-         gencall(['dcopy',mn1,s1,'1',outr,'1']);
-         gencall(['dcopy',mn1,s1,'1',outi,'1']);
-         gencall(['dscal',mn1,s2(1),outr,'1']);
-         gencall(['dscal',mn1,s2(2),outi,'1'])];
-    stk=list([outr,outi],'-1',t2,m1,n1)
-  case 3 then
-    [outr,nwrk,txt]=outname(nwrk,t1,m1,n1)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-      [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-         gencall(['dcopy',mn1,s1(1),'1',outr,'1']);
-         gencall(['dcopy',mn1,s1(2),'1',outi,'1']);
-         gencall(['wscal',mn1,s2(1),s2(2),outr,outi,'1'])]
-    stk=list([outr,outi],'-1',t2,m1,n1)
-  end
-  txt=[txt1;txt]
-  top=top-1
-  return
-end
-  select it1+2*it2
-  case 0 then
-    [out,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    txt=[txt;gencall(['dmmul',s1,m1,s2,m2,out,m1,m1,n1,n2])]
-    if ~isnum(s1)&op(2)==s1 then
-      txt=[txt;gencall(['dcopy',mulf(m1,n2),out,'1',s1,'1'])]
-      out=s1
-    elseif ~isnum(s2)&op(2)==s2 then
-      txt=[txt;gencall(['dcopy',mulf(m1,n2),out,'1',s2,'1'])]
-      out=s2
-    end
-    stk=list(out,'-1',t2,m1,n2)
-  case 1 then
-    [outr,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    [outi,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    txt=[txt;gencall(['dmmul',s1(1),m1,s2(1),m2,outr,m1,m1,n1,n2]);
-             gencall(['dmmul',s1(2),m1,s2(1),m2,outi,m1,m1,n1,n2])];
-    stk=list([outr,outi],'-1',t2,m1,n2)
-  case 2 then
-    [outr,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    [outi,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    txt=[txt;gencall(['dmmul',s1(1),m1,s2(1),m2,outr,m1,m1,n1,n2]);
-             gencall(['dmmul',s1(1),m1,s2(2),m2,outi,m1,m1,n1,n2])];
-    stk=list([outr,outi],'-1',t2,m1,n2)
-  case 3 then
-    [outr,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    [outi,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    txt=[txt;
-         gencall(['wmmul',s1(1),s1(2),m1,s2(1),s2(2),m2,outr,outi,..
-                                                            m1,m1,n1,n2])]
-    stk=list([outr,outi],'-1',t2,m1,n2)
-  end
-  txt=[txt1;txt]
-  top=top-1
-  return
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/%p2for.sci b/scilab/modules/scilab2fortran/macros/%p2for.sci
deleted file mode 100644 (file)
index 872bf46..0000000
+++ /dev/null
@@ -1,207 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=%p2for(nwrk)
-// multiplications
-//!
-
-s2=stk(top);s1=stk(top-1);
-txt1=[]
-if s1(3)<>s2(3) then
-  if s1(3)=='0' then
-    [s1,nwrk,txt1]=typconv(s1,nwrk,'1'),
-  end
-end
-[s1,te1,t1,m1,n1]=s1(1:5);
-[s2,te2,t2,m2,n2]=s2(1:5);
-it1=prod(size(s1))-1;it2=prod(size(s2))-1
-//
-if m1=='1'&n1=='1'&m2=='1'&n2=='1' then // cas scalaire
-  select it1+2*it2
-  case 0 then
-     if te2=='2' then s2='('+s2+')',end
-     if te1=='2' then s1='('+s1+')',end
-     stk=list(s1+'**'+s2,'1',t1,m1,n1)
-  case 1 then
-     if te1=='2' then s1(1)='('+s1(1)+')',s1(2)='('+s1(2)+')',   end
-     if te2=='2' then s2='('+s2+')',end
-     stk=list(s1(1)+'**'+s2(1),s1(2)+'**'+s2(1),'1',t1,m1,n1)
-  case 2 then
-     if te2=='2' then s2(1)='('+s2(1)+')',s2(2)='('+s2(2)+')',   end
-     if te1=='2' then s1='('+s1+')',end
-     stk=list(s1(1)+'**'+s2(1),s1(1)+'**'+s2(2),'1',t1,m1,n1)
-  case 3 then
-     if te1=='2' then s1(1)='('+s1(1)+')',s1(2)='('+s1(2)+')',   end
-     if te2=='2' then s2(1)='('+s2(1)+')',s2(2)='('+s2(2)+')',   end
-     stk=list([subf(s1(1)+'**'+s2(1),s1(2)+'**'+s2(2)),..
-               addf(s1(1)+'**'+s2(2),s1(2)+'**'+s2(1)) ],'1',t1,m1,n1)
-  end
-  txt=[txt1;txt]
-  top=top-1
-  return
-end
-txt='c matrix exponentiation not yet handled'
-stk=list(s1+'**'+s2,'1',t2,m1,n1)
-warning('matrix exponentiation not yet handled')
-return
-if m1=='1'&n1=='1' then
-  mn2=mulf(m2,n2)
-  select it1+2*it2
-  case 0 then
-  [out,nwrk,txt]=outname(nwrk,t2,m2,n2)
-  if out<>s2 then
-    txt=[txt;gencall(['dcopy',mn2,s2,'1',out,'1'])]
-  end
-  txt=[txt;gencall(['dscal',mn2,s1,out,'1'])]
-  if ~isnum(s1)&op(2)==s1 then
-    txt=[txt;gencall(['dcopy',mn2,out,'1',s1,'1'])]
-    out=s1
-  end
-  stk=list(out,'-1',t2,m2,n2)
-  case 1 then
-    [outr,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-      [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-         gencall(['dcopy',mn2,s2,'1',outr,'1']);
-         gencall(['dcopy',mn2,s2,'1',outi,'1']);
-         gencall(['dscal',mn2,s1(1),outr,'1']);
-         gencall(['dscal',mn2,s1(2),outi,'1'])];
-    stk=list([outr,outi],'-1',t2,m2,n2)
-  case 2 then
-    [outr,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-     [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-         gencall(['dcopy',mn2,s2(1),'1',outr,'1']);
-         gencall(['dcopy',mn2,s2(2),'1',outi,'1']);
-         gencall(['dscal',mn2,s1,outr,'1']);
-         gencall(['dscal',mn2,s1,outi,'1'])];
-    stk=list([outr,outi],'-1',t2,m2,n2)
-  case 3 then
-    [outr,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-      [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-         gencall(['dcopy',mn2,s2(1),'1',outr,'1']);
-         gencall(['dcopy',mn2,s2(2),'1',outi,'1']);
-         gencall(['wscal',mn2,s1(1),s1(2),outr,outi,'1'])];
-  stk=list([outr,outi],'-1',t2,m2,n2)
-  end
-  txt=[txt1;txt]
-  top=top-1
-  return
-end
-if m2=='1'&n2=='1' then
-  mn1=mulf(m1,n1)
-  select it1*2*it2
-  case 0 then
-    [out,nwrk,txt]=outname(nwrk,t2,m1,n1)
-    if out<>s1 then txt=[txt;gencall(['dcopy',mn1,s1,'1',out,'1'])], end
-    txt=[txt;gencall(['dscal',mn1,s2,out,'1'])]
-    if ~isnum(s2)&op(2)==s2 then
-      txt=[txt;gencall(['dcopy',mn1,out,'1',s2,'1'])]
-      out=s2
-    end
-    stk=list(out,'-1',t2,m1,n1)
-  case 1 then
-    [outr,nwrk,txt]=outname(nwrk,t1,m1,n1)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-      [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-         gencall(['dcopy',mn1,s1(1),'1',outr,'1']);
-         gencall(['dcopy',mn1,s1(2),'1',outi,'1']);
-         gencall(['dscal',mn1,s2,outr,'1']);
-         gencall(['dscal',mn1,s2,outi,'1'])];
-    stk=list([outr,outi],'-1',t2,m1,n1)
-  case 2 then
-    [outr,nwrk,txt]=outname(nwrk,t1,m1,n1)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-      [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-         gencall(['dcopy',mn1,s1,'1',outr,'1']);
-         gencall(['dcopy',mn1,s1,'1',outi,'1']);
-         gencall(['dscal',mn1,s2(1),outr,'1']);
-         gencall(['dscal',mn1,s2(2),outi,'1'])];
-    stk=list([outr,outi],'-1',t2,m1,n1)
-  case 3 then
-    [outr,nwrk,txt]=outname(nwrk,t1,m1,n1)
-    if part(outr,1:4)<>'work' then
-      outi=outr+'_i'
-      outr=outr+'_r'
-    else
-      [outi,nwrk,txt]=outname(nwrk,t2,m2,n2)
-    end
-    txt=[txt;
-         gencall(['dcopy',mn1,s1(1),'1',outr,'1']);
-         gencall(['dcopy',mn1,s1(2),'1',outi,'1']);
-         gencall(['wscal',mn1,s2(1),s2(2),outr,outi,'1'])]
-    stk=list([outr,outi],'-1',t2,m1,n1)
-  end
-  txt=[txt1;txt]
-  top=top-1
-  return
-end
-  select it1+2*it2
-  case 0 then
-    [out,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    txt=[txt;gencall(['dmmul',s1,m1,s2,m2,out,m1,m1,n1,n2])]
-    if ~isnum(s1)&op(2)==s1 then
-      txt=[txt;gencall(['dcopy',mulf(m1,n2),out,'1',s1,'1'])]
-      out=s1
-    elseif ~isnum(s2)&op(2)==s2 then
-      txt=[txt;gencall(['dcopy',mulf(m1,n2),out,'1',s2,'1'])]
-      out=s2
-    end
-    stk=list(out,'-1',t2,m1,n2)
-  case 1 then
-    [outr,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    [outi,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    txt=[txt;gencall(['dmmul',s1(1),m1,s2(1),m2,outr,m1,m1,n1,n2]);
-             gencall(['dmmul',s1(2),m1,s2(1),m2,outi,m1,m1,n1,n2])];
-    stk=list([outr,outi],'-1',t2,m1,n2)
-  case 2 then
-    [outr,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    [outi,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    txt=[txt;gencall(['dmmul',s1(1),m1,s2(1),m2,outr,m1,m1,n1,n2]);
-             gencall(['dmmul',s1(1),m1,s2(2),m2,outi,m1,m1,n1,n2])];
-    stk=list([outr,outi],'-1',t2,m1,n2)
-  case 3 then
-    [outr,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    [outi,nwrk,txt]=outname(nwrk,t2,m1,n2,[s1,s2])
-    txt=[txt;
-         gencall(['wmmul',s1(1),s1(2),m1,s2(1),s2(2),m2,outr,outi,..
-                                                            m1,m1,n1,n2])]
-    stk=list([outr,outi],'-1',t2,m1,n2)
-  end
-  txt=[txt1;txt]
-  top=top-1
-  return
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/%r2for.sci b/scilab/modules/scilab2fortran/macros/%r2for.sci
deleted file mode 100644 (file)
index ae987e2..0000000
+++ /dev/null
@@ -1,64 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=%r2for(nwrk)
-// genere le code Fortran relatif a la division a droite
-//!
-txt=[]
-s2=stk(top);s1=stk(top-1);top=top-1;
-if s1(4)=='1'&s1(5)=='1'&s2(4)=='1'&s2(5)=='1' then
-   if s2(2)=='2'|s2(2)=='1' then s2(1)='('+s2(1)+')',end
-   if s1(2)=='2' then s1(1)='('+s1(1)+')',end
-   stk=list(s1(1)+'/'+s2(1),'1','1',s1(4),s1(5))
-elseif s1(4)=='1'&s1(5)=='1' then
-
-  [out,nwrk,txt]=outname(nwrk,s2(3),s2(5),s2(4))
-  if out<>s2(1) then
-    txt=gencall(['dcopy',mulf(s2(4),s2(5)),s2(1),'1',out,'1'])
-  end
-  [wrk,nwrk,t1]=getwrk(nwrk,'1',s2(4),'1')
-  [ipvt,nwrk,t2]=getwrk(nwrk,'0',s2(4),'1')
-  [errn,nwrk]=adderr(nwrk,'singular '+s2(1)+' matrix')
-  txt=[txt;t1;t2;
-       gencall(['dgefa',out,s2(4),s2(5),ipvt,'ierr']);
-       genif('ierr.ne.0',[' ierr='+string(errn);' return']);
-       gencall(['dgedi',out,s2(4),s2(5),ipvt,'w',wrk,'1'])]
-  if op(2)==s1(1) then
-    txt=[txt;gencall([' dcopy',mulf(s2(4),s2(5)),out,'1',s1(1),'1'])]
-    out=s1(1)
-  end
-  stk=list(out,'-1','1',s2(4),s2(5))
-elseif s2(4)=='1'&s2(5)=='1' then
-  [out,nwrk,txt]=outname(nwrk,s2(3),s1(4),s1(5))
-  if out<>s1(1) then
-    txt=gencall(['dcopy',mulf(s1(4),s1(5)),s1(1),'1',out,'1'])
-  end
-  if s2(2)=='2'|s2(2)=='1' then s2(1)='('+s2(1)+')',end
-  txt=[txt;gencall(['dscal',mulf(s1(4),s1(5)),'1.0d0/'+s2(1),out,'1'])]
-
-  if op(2)==s2(1) then
-    txt=[txt;gencall(['dcopy',mulf(s1(4),s1(5)),out,'1',s2(1),'1'])]
-    out=s2(1)
-  end
-  stk=list(out,'-1','1',s1(4),s1(5))
-else
-  [res,nwrk,t1]=outname(nwrk,s2(3),s2(4),s2(5),[s1(1),s2(1)])
-  [mat,nwrk,t2]=getwrk(nwrk,'1',s2(4),s2(4))
-  [wrk,nwrk,t3]=getwrk(nwrk,'1',s2(4),'1')
-  [ipvt,nwrk,t4]=getwrk(nwrk,'0',s2(4),'1')
-  [errn,nwrk]=adderr(nwrk,'singular '+s2(1)+' matrix')
-  txt=[t1;t2;t3;
-       gencall(['dcopy',mulf(s2(4),s2(5)),s2(1),'1',mat,'1']);
-       gencall(['dgefa',mat,s2(4),s2(5),ipvt,'ierr']);
-       genif('ierr.ne.0',[' ierr='+string(errn);' return']);
-       gencall(['dgesl',mat,s2(4),s2(5),ipvt,res,'0'])]
-   stk=list(res,'-1',s1(3),s1(4),s1(5))
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/%rc2for.sci b/scilab/modules/scilab2fortran/macros/%rc2for.sci
deleted file mode 100644 (file)
index 0172908..0000000
+++ /dev/null
@@ -1,41 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt]=%rc2for(nwrk)
-// genere le code relatif a la concatenation en ligne des matrices
-//!
-
-rhs=abs(evstr(op(3)))
-nl='0';typ=0
-for k=1:rhs
- sk=stk(top-rhs+k)
- typ=maxi(typ,evstr(sk(3)))
- nl=addf(nl,sk(4))
-end
-nc=sk(5)
-
-typ=string(typ)
-
-[out,nwrk,txt]=outname(nwrk,typ,nl,nc)
-lout=length(out)
-nl1='0'
-for k=1:rhs
-  sk=stk(top-rhs+k)
-  if part(out,lout)==')' then
-    o1=part(out,1:lout-1)+'+'+mulf(nl1,nc)+')'
-  else
-    o1=out+'('+addf(nl1,'1')+',1)'
-  end
-  n1=sk(4)
-  txt=[txt;gencall(['dmcopy',sk(1),n1,o1,nl,n1,nc])];
-  nl1=addf(nl1,n1)
-end
-stk=list(out,'-1',typ,nl,nc)
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/%s2for.sci b/scilab/modules/scilab2fortran/macros/%s2for.sci
deleted file mode 100644 (file)
index 4825b2d..0000000
+++ /dev/null
@@ -1,53 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=%s2for(nwrk)
-// genere le code frotran relatif a la soustraction et au changement de signe
-//!
-s2=stk(top)
-if s2(2)=='2' then s2(1)='('+s2(1)+')',end
-
-if op(3)=='2' then
-  s1=stk(top-1)
-  if s1(3)<>s2(3) then
-    if s1(3)=='0' then
-      s1(3)='1',
-    elseif s2(3)=='0' then
-      s2(3)='1'
-    end
-  end
-
-  if s1(4)=='1'&s1(5)=='1'&s2(4)=='1'&s2(5)=='1' then
-    if s1(3)=='1' then
-      if isnum(s1(1)) then s1(1)=s1(1)+'D0', end
-      if isnum(s2(1)) then s2(1)=s2(1)+'D0', end
-    end
-    stk=list(s1(1)+'-'+s2(1),'2',s1(3),s1(4),s1(5))
-  else
-    [out,nwrk,txt]=outname(nwrk,'1',s1(4),s1(5))
-    txt=[txt;gencall(['ddif',mulf(s1(4),s1(5)),s1(1),'1',s2(1),'1',out,'1'])]
-    stk=list(out,'-1',s1(3),s1(4),s1(5))
-  end
-  top=top-1
-else
-  if s2(4)=='1'&s2(5)=='1' then
-    stk=list('-'+s2(1),s2(2),s2(3),s2(4),s2(5))
-  else
-    if part(s2(1),1:5)<>'work('&part(s2(1),1:6)<>'iwork(' then
-      [out,nwrk,txt]=outname(nwrk,'1',s2(4),s2(5))
-      txt=[txt;gencall(['dcopy',mulf(s2(4),s2(5)),s2(1),'1',out,'1'])]
-    else
-      out=s2(1)
-    end
-    txt=[txt;gencall(['dscal',mulf(s2(4),s2(5)),'-1.0d0',out,'1'])]
-    stk=list(out,'-1',s2(3),s2(4),s2(5))
-  end
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/%t2for.sci b/scilab/modules/scilab2fortran/macros/%t2for.sci
deleted file mode 100644 (file)
index 881c495..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=%t2for(nwrk)
-// genere le code fortarn relatif a la transposition
-//!
-s2=stk(top)
-if s2(4)<>'1'&s2(5)<>'1' then
-  [out,nwrk,txt]=outname(nwrk,s2(3),s2(4),s2(5))
-  txt=[txt;gencall(['mtran',s2(1),s2(4),out,s2(5),s2(4),s2(5)])];
-  stk=list(out,'-1',s2(3),s2(5),s2(4))
-else
-  stk=list(s2(1),s2(2),s2(3),s2(5),s2(4))
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/adderr.sci b/scilab/modules/scilab2fortran/macros/adderr.sci
deleted file mode 100644 (file)
index 2016f9b..0000000
+++ /dev/null
@@ -1,25 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [errn,nwrk]=adderr(nwrk,txt)
-//Cette macro ajoute une erreur dont le texte du message est donne dans txt
-//    dans la table des erreurs possibles et retourne
-// errn : le numero associe a cette erreur  dans le sous programme fortran
-// il faut alors inserer dans le code fortran les lignes suivantes
-//         if(.......) then
-//             ierr=errn
-//             return
-//         endif
-//!
-nwrk(7)=nwrk(7)+1
-  errn=nwrk(7)
-  msgs=nwrk(8);msgs(nwrk(7))=txt
-  nwrk(8)=msgs
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/basparam.sci b/scilab/modules/scilab2fortran/macros/basparam.sci
deleted file mode 100644 (file)
index d73e537..0000000
+++ /dev/null
@@ -1,51 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function []=basparam()
-//utility
-//!
-%else='else',%end='end';%elseif='elseif';%if='if';%for='for';
-%select='select';%while='while';%case='case';%then='then'
-quote=''''
-logics=['==','<','>','<=','>=','<>']
-//
-//       symbol type_result parenthes_od_operands
-ops     =['+','2','  ';
-         '-','2',' r';
-         '*','1','  ';
-         '.*','1',' r';
-         '*.','1','lr';
-         '.*.','1','lr';
-         '/','1',' r';
-         './','1',' r';
-         '/.','1','lr';
-         './.','1','lr';
-         '\','1','l ';
-         '.\','1','l ';
-         '\.','1','l ';
-         '.\.','1','lr';
-         '**','0',' r';
-         '==','2','lr';
-         '<','2','lr';
-         '>','2','lr';
-         '<=','2','lr';
-         '>=','2','lr';
-         '<>','2','lr';
-         ':','0','  ';
-         '[]','0','  ';
-         'ins','0','  ';
-         'ext','0','  ';
-         quote,'0','  '
-         '|','2',' ';
-         '&','1',' '
-         '~','2',' r'];
-[logics,ops,quote,%else,%end,%elseif,%if,%for,%select,%while,%case,%then]=...
-resume(logics,ops,quote,%else,%end,%elseif,%if,%for,%select,%while,%case,%then)
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/buildmacros.bat b/scilab/modules/scilab2fortran/macros/buildmacros.bat
deleted file mode 100644 (file)
index d39fc8f..0000000
+++ /dev/null
@@ -1,11 +0,0 @@
-rem Scilab ( http://mwww.scilab.org/ ) - This file is part of Scilab
-rem Copyright (C) ????-2008 - INRIA - Allan CORNET
-rem
-rem This file must be used under the terms of the CeCILL.
-rem This source file is licensed as described in the file COPYING, which
-rem you should have received as part of this distribution.  The terms
-rem are also available at
-rem http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
-
-
-@..\..\..\bin\scilex -nwni -ns -e exec('buildmacros.sce');quit;
\ No newline at end of file
diff --git a/scilab/modules/scilab2fortran/macros/buildmacros.sce b/scilab/modules/scilab2fortran/macros/buildmacros.sce
deleted file mode 100644 (file)
index 60dd40d..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) 2005-2008 - INRIA - Allan CORNET
-//
-// This file must be used under the terms of the CeCILL.
-// This source file is licensed as described in the file COPYING, which
-// you should have received as part of this distribution.  The terms
-// are also available at
-// http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
-
-//------------------------------------
-if (isdef('genlib') == %f) then
-  exec(SCI+'/modules/functions/scripts/buildmacros/loadgenlib.sce');
-end
-//------------------------------------
-genlib('scilab2fortranlib','SCI/modules/scilab2fortran/macros',%f,%t);
-//------------------------------------
diff --git a/scilab/modules/scilab2fortran/macros/callfun.sci b/scilab/modules/scilab2fortran/macros/callfun.sci
deleted file mode 100644 (file)
index 64ea462..0000000
+++ /dev/null
@@ -1,36 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function t=callfun(arg,typ)
-//permet de generer le code fortran relatif a l'appel d'une fonction et
-//gere la table des fonctions dont il faut specifier le type dans les
-//declarations
-//!
-
-[lhs,rhs]=argn(0)
-n=prod(size(arg))
-t=' '+arg(1)+'('
-if n==0 then return,end
-for k=2:n-1,
-  t=t+arg(k)+','
-end
-t=t+arg(n)+')'
-//
-if rhs==3 then
-  nwrk;
-  select typ
-  case '0' then
-    if find(arg(1)==nwrk(14))==[] then  nwrk(14)=[nwrk(14);arg(1)],end
-  case '1' then
-    if find(arg(1)==nwrk(15))==[] then  nwrk(15)=[nwrk(15);arg(1)],end
-   end
-end
-nwrk=resume(nwrk)
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/cla2for.sci b/scilab/modules/scilab2fortran/macros/cla2for.sci
deleted file mode 100644 (file)
index fa5ad22..0000000
+++ /dev/null
@@ -1,94 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [txt,vnms,vtps,nwrk]=cla2for(clause,vnms,vtps,nwrk)
-// traduit une clause (if while for select)
-//!
-typ=clause(1)
-//write(6,'cla2for '+typ(1))
-
-select typ(1)
-case %if then
-
-  ncl=size(clause)
-  ncas=(ncl-2)/2
-  [t1,t2,ilst,vnms,vtps,nwrk]=exp2for(clause(2),1,vnms,vtps,nwrk)
-  t1=t1(1);
-  txt=[t2;' '+%if+'('+t1(1)+') '+%then]
-  [t1,vnms,vtps,nwrk]=ins2for(clause(3),1,vnms,vtps,nwrk)
-  txt=[txt;indentfor(t1)];
-  for ic=2:ncas
-    [t1,t2,ilst,vnms,vtps,nwrk]=exp2for(clause(2*ic),1,vnms,vtps,nwrk)
-    txt=[txt;t2;' '+%elseif+'('+t1(1)(1)+') '+%then];
-    [t1,vnms,vtps,nwrk]=ins2for(clause(1+2*ic),1,vnms,vtps,nwrk)
-    txt=[txt;indentfor(t1)];
-  end;
-  [t1,vnms,vtps,nwrk]=ins2for(clause(ncl),1,vnms,vtps,nwrk)
-  if t1<>[] then
-    txt=[txt;' '+%else;indentfor(t1)];
-  end
-  txt=[txt;' endif']
-case %while then
-  [lbl,nwrk]=newlab(nwrk)
-  tl1=part(' '+string(10*lbl)'+'   ',1:6)
-  [lbl,nwrk]=newlab(nwrk)
-  tl2=part(' '+string(10*lbl)'+'   ',1:6)
-  [t1,t2,ilst,vnms,vtps,nwrk]=exp2for(clause(2),1,vnms,vtps,nwrk)
-  t1=t1(1);
-  txt=[t2;tl1+'continue';' '+%if+'(.not.'+t1(1)+') goto '+tl2]
-  [t1,vnms,vtps,nwrk]=ins2for(clause(3),1,vnms,vtps,nwrk)
-  txt=[txt;t1;'goto '+tl1;tl2+'continue']
-case %for then
-  name=typ(2)
-  if find(name==vnms(:,1))==[] then
-    nv=size(vtps)+1
-    vnms=[vnms;[name,name]]
-    vtps(nv)=list('0','1','1',0)
-  end
-  forexp=1
-  [lbl,nwrk]=newlab(nwrk)
-  tl1=part(string(10*lbl)+'   ',1:6);
-  [t1,t2,ilst,vnms,vtps,nwrk]=exp2for(clause(2),1,vnms,vtps,nwrk)
-  if size(t1(1)(1),2)>1 then
-
-    t1=strcat(t1(1)(1),',')
-    txt=[t2;' do '+tl1+' '+name+' = '+t1];
-  else
-    t1=t1(1)
-    txt=[t2;' do '+tl1+' i_'+name+' = 0,'+t1(5)+'-1';
-           '    call dcopy('+t1(4)+','+t1(1)+'(1+i_'+name+'*'+t1(4)+'),1,'+name+',1)']   ;
-  end
-  forexp=0;
-  [t1,vnms,vtps,nwrk]=ins2for(clause(3),1,vnms,vtps,nwrk)
-  txt=[txt; indentfor(t1);tl1+'continue']
-case %select then
-  ncas=(size(clause)-3)/2
-  [exp1,t1,ilst,vnms,vtps,nwrk]=exp2for(clause(2),1,vnms,vtps,nwrk)
-  exp1=exp1(1)
-  [exp2,t2,ilst,vnms,vtps,nwrk]=exp2for(clause(3),1,vnms,vtps,nwrk)
-  exp2=exp2(1)
-  txt=[t1;t2;' '+%if+'('+exp1(1)+'.eq.'+exp2(1)+') '+%then];
-  [t1,vnms,vtps,nwrk]=ins2for(clause(4),1,vnms,vtps,nwrk)
-  txt=[txt;indentfor(t1)];
-  for ic=4:2:2*ncas
-    [exp2,t2,ilst,vnms,vtps,nwrk]=exp2for(clause(1+ic),1,vnms,vtps,nwrk)
-    exp2=exp2(1)
-    txt=[txt;' '+%elseif+'('+exp1(1)+'.eq.'+exp2(1)+' '+%then]
-    [t1,vnms,vtps,nwrk]=ins2for(clause(2+ic),1,vnms,vtps,nwrk)
-    txt=[txt;indentfor(t1)];
-  end;
-  [t1,vnms,vtps,nwrk]=ins2for(clause(3+2*ncas),1,vnms,vtps,nwrk)
-  if t1<>[] then
-    txt=[txt;' '+%else;indentfor(t1)];
-  end
-  txt=[txt;' endif']
-end
-//write(6,txt)
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/cleanmacros.bat b/scilab/modules/scilab2fortran/macros/cleanmacros.bat
deleted file mode 100644 (file)
index d549535..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-rem Scilab ( http://mwww.scilab.org/ ) - This file is part of Scilab
-rem Copyright (C) ????-2008 - INRIA - Allan CORNET
-rem
-rem This file must be used under the terms of the CeCILL.
-rem This source file is licensed as described in the file COPYING, which
-rem you should have received as part of this distribution.  The terms
-rem are also available at
-rem http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
-
-
-@del *.bin 2>NUL
-@del lib 2>NUL
-@del names 2>NUL
\ No newline at end of file
diff --git a/scilab/modules/scilab2fortran/macros/cod2for.sci b/scilab/modules/scilab2fortran/macros/cod2for.sci
deleted file mode 100644 (file)
index 5b18660..0000000
+++ /dev/null
@@ -1,131 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [txt,ilst,vnms,vtps,nwrk]=cod2for(lst,ilst,vnms,vtps,nwrk)
-//
-//!
-nlst=size(lst)
-txt=[]
-ilst=ilst-1
-while ilst<nlst then
-  ilst=ilst+1
-  op=lst(ilst)
-  if type(op)==15 then return,end
-
-  //write(6,'cod2for '+op(1)+' '+string(ilst))
-  select op(1)
-  case '1' then //stackp
-    //write(6,'stackp '+op(2));
-    prev=lst(ilst-1)
-    if size(prev,'*')<2 then
-      lhs=1
-    elseif prev(1:2)==['5','25']|prev(1)=='20' then
-      lhs=evstr(prev(4))
-    else
-      lhs=1
-    end
-    ilst=ilst-1
-    for k=1:lhs
-      expk=stk(k);typ=expk(2)
-      it=prod(size(expk(1)))-1
-      ilst=ilst+1
-      opk=lst(ilst);
-      if expk(3)<>'-1' then
-        k3=find(opk(2)==vnms(:,2))
-        if or(opk(2)==nwrk(10))|or(opk(2)==nwrk(12)) then
-          nv=size(vtps)+1
-          vnms=[vnms;[expk(1),opk(2)]]
-          vtps(nv)=list(expk(3),expk(4),expk(5),it)
-        elseif k3==[] then
-// la variable n'existe pas il faut lui allouer de la place
-          if isnum(expk(4))&isnum(expk(5)) then
-//         les dimensions sont des nombres on alloue localement
-            out=opk(2)
-//         vnms=[vnms;[out,opk(2)]]
-           vnms=[vnms;[expk(1),out]]
-           nv=size(vtps)
-           vtps(nv+1)=list(expk(3),expk(4),expk(5),it)
-          else
-//          dimensions formelles on alloue dans les tableau de travail
-            [out,nwrk,t1]=getlocal(nwrk,opk(2),expk(3),expk(4),expk(5))
-            txt=[txt;t1]
-           vnms=[vnms;[out,opk(2)]]
-           nv=size(vtps)
-           vtps(nv+1)=list(expk(3),expk(4),expk(5),it)
-         end
-        else
-//  la variable existe deja on modifie eventuellement type et dim
-          v=vtps(k3)
-          if k3<=macrhs then
-             if v(1)==expk(3)&v(2)==expk(4)&v(3)==expk(5) then
-               out=opk(2)
-            else
-               warning('input variable :'+vnms(k3,2)+..
-                             ' changed type or dimensions')
-               out=opk(2)
-             end
-          else
-             if v(1)=='?'|v(1)==expk(3) then
-              out=opk(2)
-              vtps(k3)=list(expk(3),expk(4),expk(5),it)
-            else
-              if v(1)=='1'&expk(3)=='0' then // int dans double
-                if isnum(expk(1)) then
-                  if strindex(expk(1),'.')==[] then
-                    expk(1)=expk(1)+'D0'
-                  end
-                else
-                  expk(1)='dble('+expk(1)+')'
-                end
-              else
-                txt=[txt;'C WARNING local variable  :'+vnms(k3,2)+..
-                        ' changed its type!']
-                vtps(k3)=list(expk(3),expk(4),expk(5),it) // added
-              end
-            end
-          end
-        end
-       out=opk(2)
-        if typ<>'-1' then
-          if expk(4)=='1'&expk(5)=='1' then
-             txt=[txt;' '+out+' = '+expk(1)]
-          elseif expk(4)=='0'|expk(5)=='0' then
-          else
-             select expk(3)
-             case '0' then routine='icopy'
-             case '1' then routine='dcopy'
-             else error('cod2for:this type is not implemented'),
-             end
-             mn=mulf(expk(4),expk(5))
-             txt=[txt;gencall([routine,mn,expk(1),'1',out,'1'])]
-          end
-        end
-      end
-    end
-  case '12' then //pause
-    txt=[txt;' pause']
-  case '13' then //break
-
-    txt=[txt;' break']
-  case '14' then //abort
-    txt=[txt;' abort']
-  case '15' then ,//eol
-//    txt=[txt;'c']
-//    write(6,'ligne')
-  case '99' then //return
-    txt=[txt;' return']
-  else
-    [stk,t1,ilst,vnms,vtps,nwrk]=exp2for(lst,ilst,vnms,vtps,nwrk);
-    txt=[txt;t1]
-    ilst=ilst-1
-  end
-end
-ilst=ilst+1
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/dclfun.sci b/scilab/modules/scilab2fortran/macros/dclfun.sci
deleted file mode 100644 (file)
index 24b910a..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [nwrk]=dclfun(nwrk,nam,typ)
-//permet de declarer le type fortran du resultat d'une fonction
-//!
-select typ
-case '0' then
-  if find(nam==nwrk(14))==[] then  nwrk(14)=[nwrk(14);nam],end
-case '1' then
-  if find(nam==nwrk(15))==[] then  nwrk(15)=[nwrk(15);nam],end
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/exp2for.sci b/scilab/modules/scilab2fortran/macros/exp2for.sci
deleted file mode 100644 (file)
index e2cd713..0000000
+++ /dev/null
@@ -1,122 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,txt,ilst,vnms,vtps,nwrk]=exp2for(lst,ilst,vnms,vtps,nwrk)
-//
-//!
-  nlst=size(lst)
-  top=0
-  stk=list()
-  txt=[]
-  ilst=ilst-1
-  cmod=0;
-  nwrk3=nwrk(3)
-  nwrk6=nwrk(6)
-  nw2=nwrk(2)
-  nw5=nwrk(5)
-  tmp2=[]
-  tmp5=[]
-  //
-  ok=%t
-  while ilst<nlst&ok then
-    t1=[]
-    lhs=1
-    ilst=ilst+1
-    op=lst(ilst)
-    if type(op)==10 then
-      select op(1)
-      case '0' then
-
-      case '2' then //stackg
-       if whereis(op(2))==[] then
-         [stk,top,vnms,vtps]=get2f(op(2),stk,top,vnms,vtps)
-       else //appel des macros
-         nop=lst(ilst+1)
-         if nop(1)<>'5'|nop(2)<>'25'
-           [stk,top,vnms,vtps]=get2f(op(2),stk,top,vnms,vtps)
-         else
-           op(3)=string(evstr(nop(3))-1)
-           op(4)=nop(4)
-           [stk,nwrk,t1,top]=func2f(op,stk,nwrk)
-           txt=[txt;t1]
-           ilst=ilst+1
-         end
-       end
-      case '3' then //string
-       [stk,top]=str2f(op(2),stk)
-      case '4' then //matrice vide
-       top=top+1
-       stk(top)=list('[]','0','1','0','0')
-      case '5' then //allops
-       t1=[]
-       iop=evstr(op(2))
-       top1=top
-       if ops(iop,2)=='g' then pause,end
-       execstr('[stkr,nwrk,t1,top]=%'+ops(iop,2)+'2for(nwrk)')
-
-       for ktp=top:top1,ss=stk(top);nwrk=freewrk(nwrk,ss(1));end
-       stk(top)=stkr
-       txt=[txt;t1]
-      case '6' then //num
-       [stk,top]=num2f(op(2),stk)
-      case '20' then //functions
-
-       [stk,nwrk,t1,top]=func2f(op,stk,nwrk)
-       txt=[txt;t1]
-
-      else
-       ok=%f
-      end
-      // try to free working areas used by previous intermediate result
-      // foo1(foo2(..)), a+foo2(),...
-      if tmp2<>[] then nwrk(2)(2,tmp2)='0',tmp2=[],end
-      if tmp5<>[] then nwrk(5)(2,tmp5)='0',tmp5=[],end
-      if lhs==1 then
-       if or(nw2(2,:)<>nwrk(2)(2,:))|or(nw5(2,:)<>nwrk(5)(2,:)) then
-         //function has used new  working areas for lhs args
-         tmp2=[find(nw2(2,:)<>nwrk(2)(2,:)) size(nw2,2)+1:size(nwrk(2),2)]
-         tmp5=[find(nw5(2,:)<>nwrk(5)(2,:)) size(nw5,2)+1:size(nwrk(5),2)]
-       end
-      end
-      nw2=nwrk(2)
-      nw5=nwrk(5)
-    else
-      ok=%f
-    end
-  end
-  //
-
-  used='0';for k=nwrk(2), used=addf(used,k(1)),end
-  iused='0';for k=nwrk(5), iused=addf(iused,k(1)),end
-
-
-  if used<>'0' then
-    n3=prod(size(nwrk3))
-    k=n3+1;ok=n3>0;delta=' '
-    while ok then
-      k=k-1
-      delta=subf(used,nwrk3(k))
-      ok=part(delta,1)<>'-' &k>1
-    end
-    if part(delta,1)<>'-'&delta<>'0' then   nwrk(3)=[nwrk3,used];end
-  end
-  if iused<>'0' then
-    n6=prod(size(nwrk6))
-    k=n6+1;ok=n6>0;delta=' '
-    while ok then
-      k=k-1
-      delta=subf(iused,nwrk6(k))
-      ok=part(delta,1)<>'-' &k>1
-    end
-    if part(delta,1)<>'-'&delta<>'0' then   nwrk(6)=[nwrk6,iused];end
-  end
-  nwrk(1)=1;nwrk(2)=[]
-  nwrk(4)=1;nwrk(5)=[]
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_abs.sci b/scilab/modules/scilab2fortran/macros/f_abs.sci
deleted file mode 100644 (file)
index 72e2b0a..0000000
+++ /dev/null
@@ -1,76 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_abs(nwrk)
-//!purpose
-//   scilab abs function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-nam='abs'
-txt=[]
-s2=stk(top)
-v=s2(1)
-it2=prod(size(v))-1
-if it2==0 then
-  [stk,nwrk,txt,top]=f_gener(nam,nwrk,[s2(3),s2(3)])
-else
-  error(nam+' of complex argument is not implemented')
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_argn.sci b/scilab/modules/scilab2fortran/macros/f_argn.sci
deleted file mode 100644 (file)
index d2f103b..0000000
+++ /dev/null
@@ -1,68 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_argn(nwrk)
-//!purpose
-//   Scilab argn function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-stk=list(list(string(maclhs),'0','0','1','1'),..
-list(string(macrhs),'0','0','1','1'))
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_cond.sci b/scilab/modules/scilab2fortran/macros/f_cond.sci
deleted file mode 100644 (file)
index 596db89..0000000
+++ /dev/null
@@ -1,96 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_cond(nwrk)
-//!purpose
-//  Scilab cond function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-txt=[]
-nam='cond'
-s2=stk(top)
-v=s2(1)
-it2=prod(size(v))-1
-if it2<>0 then  error(nam+' complex --> not implemented'),end
-
-[s2,nwrk,t0]=typconv(s2,nwrk,'1')
-n=s2(4);m=s2(5)
-if n==m then
-  n1=n
-  n2=n
-else
-  n1='min('+addf(n,'1')+','+m+')'
-  n2='min('+n+','+m+')'
-end
-[errn,nwrk]=adderr(nwrk,'Computation of conditioning fails')
-[s,nwrk,t1]=getwrk(nwrk,'1','1',n1)
-[e,nwrk,t2]=getwrk(nwrk,'1','1',m)
-[wrk,nwrk,t3]=getwrk(nwrk,'1','1',n)
-txt=[t0;t1;t2;t3;
-    gencall(['dsvdc',s2(1),n,n,m,s,e,'work',n,'work',m,wrk,..
-                                                 n,wrk,'00','ierr']);
-    genif('ierr.ne.0',[' ierr='+string(errn);' return'])]
-out=e+'/'+part(e,1:length(e)-1)+'+'+n2+'-1)'
-[nwrk]=freewrk(nwrk,e)
-[nwrk]=freewrk(nwrk,s)
-[nwrk]=freewrk(nwrk,wrk)
-
-stk=list(out,'0','1','1','1')
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_cos.sci b/scilab/modules/scilab2fortran/macros/f_cos.sci
deleted file mode 100644 (file)
index 7be0077..0000000
+++ /dev/null
@@ -1,80 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_cos(nwrk)
-//!purpose
-//  Scilab cos function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-nam='cos'
-txt=[]
-s2=stk(top)
-if s2(4)<>s2(5)|(s2(4)=='1'&s2(5)=='1') then
-  v=s2(1)
-  it2=prod(size(v))-1
-  if it2==0 then
-    [stk,nwrk,txt,top]=f_gener(nam,nwrk)
-  else
-     error(nam+' of complex argument : not implemented')
-  end
-else
-  error(nam+' of non square not implemented ')
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_ent.sci b/scilab/modules/scilab2fortran/macros/f_ent.sci
deleted file mode 100644 (file)
index e98f489..0000000
+++ /dev/null
@@ -1,75 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_ent(nwrk)
-//!purpose
-//  Scilab ent function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-txt=[]
-s2=stk(top)
-
-if s2(4)=='1'&s2(5)=='1' then
-  stk=list('int('+s2(1)+')','0','0',s2(4),s2(5))
-else
-  [out,nwrk,txt]=outname(nwrk,'0',s2(4),s2(5))
-  txt=[txt;gencall(['db2int',mulf(s2(4),s2(5)),s2(1),'1',out,'1'])]
-  stk=list(out,'-1',0,s2(4),s2(5))
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_error.sci b/scilab/modules/scilab2fortran/macros/f_error.sci
deleted file mode 100644 (file)
index df42373..0000000
+++ /dev/null
@@ -1,73 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_error(nwrk)
-//!purpose
-//  Scilab  error function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-txt=[]
-s=stk(top);mess=s(1)
-if part(mess,1)=='''' then mess=part(mess,2:length(mess)-1),end
-
-[errn,nwrk]=adderr(nwrk,mess)
-txt=[' ierr='+string(errn);' return']
-stk=list(' ','-1','-1')
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_exp.sci b/scilab/modules/scilab2fortran/macros/f_exp.sci
deleted file mode 100644 (file)
index b0751af..0000000
+++ /dev/null
@@ -1,75 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_exp(nwrk)
-//!purpose
-//  Scilab  exp function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-nam='exp'
-txt=[]
-s2=stk(top)
-v=s2(1)
-it2=prod(size(v))-1
-if it2==0 then
-  [stk,nwrk,txt,top]=f_gener(nam,nwrk)
-else
-  error(nam+' complex is not implemented')
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_expm.sci b/scilab/modules/scilab2fortran/macros/f_expm.sci
deleted file mode 100644 (file)
index f32f550..0000000
+++ /dev/null
@@ -1,90 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_expm(nwrk)
-//!purpose
-//  Scilab  expm function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-nam='expm'
-txt=[]
-s2=stk(top)
-if (s2(4)=='1'&s2(5)=='1') then
-  v=s2(1)
-  it2=prod(size(v))-1
-  if it2==0 then
-    [stk,nwrk,txt,top]=f_gener(nam,nwrk)
-  else
-     error(nam+' complex is not implemented')
-  end
-else
-  [s2,nwrk,t0]=typconv(s2,nwrk,'1')
-  n=s2(4)
-  [errn,nwrk]=adderr(nwrk,'exp fails!')
-  [out,nwrk,t1]=outname(nwrk,'1',n,n,s2(1))
-  [wrk,nwrk,t2]=getwrk(nwrk,'1',mulf(n,addf(mulf('4',n),'5')),'1')
-  [iwrk,nwrk,t3]=getwrk(nwrk,'0',mulf('2',n),'1')
-  txt=[t0;t1;t2;t3;
-      gencall(['dexpm1',n,n,s2(1),out,n,wrk,iwrk,'ierr']);
-      genif('ierr.ne.0',[' ierr='+string(errn);' return'])]
-  [nwrk]=freewrk(nwrk,wrk)
-  [nwrk]=freewrk(nwrk,iwrk)
-  stk=list(out,'-1','1',n,n)
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_eye.sci b/scilab/modules/scilab2fortran/macros/f_eye.sci
deleted file mode 100644 (file)
index cba2776..0000000
+++ /dev/null
@@ -1,85 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_eye(nwrk)
-//!purpose
-//  Scilab eye function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-txt=[]
-select rhs
-case 0 then
-   top=top+1;stk=list('1',0,'-1','-1','0')
-case 1 then
-   s2=stk(top)
-   [out,nwrk,txt]=outname(nwrk,'1',s2(4),s2(5))
-   txt=[txt;gencall(['dset',mulf(s2(4),s2(5)),'0.0d0',out,'1']);
-            gencall(['dset',s2(4),'1.0d0',out,addf(s2(4),'1')]')]
-   stk=list(out,'-1','1',s2(4),s2(5))
-case 2  then
-   s1=stk(top-1)
-   s2=stk(top)
-   [out,nwrk,txt]=outname(nwrk,'1',s1(1),s2(1))
-   txt=[txt;gencall(['dset',mulf(s1(1),s2(1)),'0.0d0',out,'1']);
-            gencall(['dset',s1(1),'1.0d0',out,addf(s1(1),'1')])]
-   stk=list(out,'-1','1',s1(1),s2(1))
-   top=top-1
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_gener.sci b/scilab/modules/scilab2fortran/macros/f_gener.sci
deleted file mode 100644 (file)
index 586f3f1..0000000
+++ /dev/null
@@ -1,149 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_gener(nam,nwrk,targ)
-//!purpose
-//  Generic Scilab function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-
-txt=[]
-[lhs,rhs]=argn(0);if rhs==2 then targ=['1','1'],end
-tin=targ(1);tout=targ(2)
-cnvf='dble'
-if tin=='0' then cnvf='int',end
-//
-s2=stk(top)
-if s2(4)=='1'&s2(5)=='1' then
-//cas d'un argument scalaire
-  if s2(3)<>tin then s2(1)=cnvf+'('+s2(1),')',end
-  stk=list(nam+'('+s2(1)+')','0',tout,s2(4),s2(5))
-  return
-end
-
-if s2(3)<>tin then cnv=%t,else cnv=%f,end
-if part(s2(1),1:5)=='work(' then
-  pti=part(s2(1),6:length(s2(1))-1)
-  [outn,nwrk,txt]=outname(nwrk,tout,s2(4),s2(5))
-  in='work'
-elseif part(s2(1),1:6)=='iwork(' then
-  pti=part(s2(1),6:length(s2(1))-1)
-  [outn,nwrk,txt]=outname(nwrk,tout,s2(4),s2(5))
-  in='iwork'
-else
-  pti='0'
-  [outn,nwrk,txt]=outname(nwrk,tout,s2(4),s2(5))
-  in=s2(1)
-end
-if part(outn,1:5)=='work(' then
-  pto1=part(outn,6:length(outn)-1),
-  out='work'
-elseif part(outn,1:6)=='iwork(' then
-  pto1=part(outn,7:length(outn)-1),
-  out='iwork'
-else
-  out=outn
-  pto1='0'
-end
-
-if s2(4)=='1'|s2(5)=='1' then
-  [lbl,nwrk]=newlab(nwrk)
-  tl1=string(10*lbl);
-  var='ilb'+tl1;
-  if cnv then
-    t1=' '+out+'('+addf(pto1,var)+')='+..
-                              nam+'('+cnvf+'('+in+'('+addf(pti,var)+')))'
-  else
-    t1=' '+out+'('+addf(pto1,var)+')='+nam+'('+in+'('+addf(pti,var)+'))'
-  end
-  txt=[txt;' do '+tl1+' '+var+' = 0,'+subf(mulf(s2(4),s2(5)),'1');
-           indentfor(t1);part(tl1+'    ',1:6)+' continue']
-
-else
-  [lbl,nwrk]=newlab(nwrk)
-  tl2=string(10*lbl);
-  var2='ilb'+tl2;
-  [lbl,nwrk]=newlab(nwrk)
-  tl1=string(10*lbl);
-  var1='ilb'+tl1;
-  if out=='work' then
-     t1=' '+out+'('+addf(pto1,addf(var2,mulf(var1,s2(4))))+') = '
-  else
-     t1=' '+out+'('+var2'+','+var1+') = '
-  end
-  if in=='work' then
-     iar=in+'('+addf(pti,addf(var2,mulf(var1,s2(4))))+')'
-  else
-     iar=in+'('+var2+','+var1+')'
-  end
-  if cnv then
-    t1=t1+nam+'('+cnvf+'('+iar+'))'
-  else
-    t1=t1+nam+'('+iar+')'
-  end
-  txt=[txt;' do '+tl1+' '+var1+' = 0,'+subf(s2(5),'1');
-           indentfor([' do '+tl2+' '+var2+' = 0,'+subf(s2(4),'1');
-                      indentfor(t1);
-                      part(tl2+'    ',1:6)+' continue']);
-           part(tl1+'    ',1:6)+' continue'];
-
-end
-stk=list(outn,'-1','1',s2(4),s2(5))
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_log.sci b/scilab/modules/scilab2fortran/macros/f_log.sci
deleted file mode 100644 (file)
index 5a02ca0..0000000
+++ /dev/null
@@ -1,75 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_log(nwrk)
-//!purpose
-//  Scilab log function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-nam='log'
-txt=[]
-s2=stk(top)
-v=s2(1)
-it2=prod(size(v))-1
-if it2==0 then
-  [stk,nwrk,txt,top]=f_gener(nam,nwrk)
-else
-  error(nam+' complex is not implemented')
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_max.sci b/scilab/modules/scilab2fortran/macros/f_max.sci
deleted file mode 100644 (file)
index 6f72fef..0000000
+++ /dev/null
@@ -1,83 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_max(nwrk)
-//!purpose
-//  Scilab max function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-select rhs
-case 1 then
-  s2=stk(top)
-  if s2(3)=='0' then fun='ivmax',else fun=dvmax,end
-  nwrk=dclfun(nwrk,fun,s2(3))
-  out=callfun([fun,mulf(s2(4),s2(5)),s2(1),'1'],s2(3))
-  stk=list(out,'0',s2(3),s2(4),s2(5))
-case 2 then
-  s2=stk(top);s1=stk(top-1);top=top-1
-  if s2(4)=='1'&s2(5)=='1'&s1(4)=='1'&s1(5)=='1' then
-    stk=list('max('+s1(1)+','+s2(1)+')','0',s2(3),'1','1')
-  else
-    warning('max with 2 matrix args: not implemented')
-  end
-else
-  warning('max with more than 2 args. not implemented')
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_maxi.sci b/scilab/modules/scilab2fortran/macros/f_maxi.sci
deleted file mode 100644 (file)
index 53c4c97..0000000
+++ /dev/null
@@ -1,63 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_maxi(nwrk)
-//!purpose
-//  Scilab maxi function translation
-//!
-txt=[]
-select rhs
-case 1 then
-  s2=stk(top)
-  if lhs==1 then
-    if s2(3)=='0' then fun='ivmax',else fun='dvmax',end
-    nwrk=dclfun(nwrk,fun,s2(3))
-    out=callfun([fun,mulf(s2(4),s2(5)),s2(1),'1'],s2(3))
-    stk=list(out,'0',s2(3),'1','1')
-  else
-    [out,nwrk,t1]=outname(nwrk,[s2(3);'0'],['1';'1'],['1';'1'])
-    w=getentry1(s2(1),'loop')
-    txt=[t1;
-       ' '+out(2)+'='+getentry1(s2(1),'1')
-       ' do loop=2,'+mulf(s2(4),s2(5))
-       indentfor(genif(w+'.gt.'+out(2),..
-           [' '+out(2)+'='+w;
-            ' '+out(1)+'=loop']))
-       ' enddo']
-    stk=list(list(out(1),'-1','1','1','1'),list(out(2),'-1','0','1','1'))
-  end
-case 2 then
-  s2=stk(top);s1=stk(top-1);top=top-1
-  if lhs==1 then
-    if s2(4)=='1'&s2(5)=='1'&s1(4)=='1'&s1(5)=='1' then
-      stk=list('max('+s1(1)+','+s2(1)+')','0',s2(3),'1','1')
-    else
-      warning('max with 2 matrix args not translated')
-    end
-  else
-    warning('max with 2 lhs arguments not translated')
-  end
-else
-  warning('max with more than 2 args not translated')
-end
-
-endfunction
-function var=getentry1(var,i)
-if part(var,1:5)=='work(' then
-  pti=part(var,6:length(var)-1)
-
-  var='work('+addf(pti,addf(i,'-1'))+')'
-elseif  part(var,1:6)=='iwork(' then
-  pti=part(var,7:length(var)-1)
-  var='iwork('+addf(pti,addf(i,'-1'))+')'
-else
-  var=var+'('+i+')'
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_min.sci b/scilab/modules/scilab2fortran/macros/f_min.sci
deleted file mode 100644 (file)
index 90e7992..0000000
+++ /dev/null
@@ -1,83 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_min(nwrk)
-//!purpose
-//  Scilab min function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-select rhs
-case 1 then
-  s2=stk(top)
-  if s2(3)=='0' then fun='ivmin',else fun=dvmin,end
-  nwrk=dclfun(nwrk,fun,s2(3))
-  out=callfun([fun,mulf(s2(4),s2(5)),s2(1),'1'],s2(3))
-  stk=list(out,'0',s2(3),s2(4),s2(5))
-case 2 then
-  s2=stk(top);s1=stk(top-1);top=top-1
-  if s2(4)=='1'&s2(5)=='1'&s1(4)=='1'&s1(5)=='1' then
-    stk=list('min('+s1(1)+','+s2(1)+')','0',s2(3),'1','1')
-  else
-    warning('min with 2 matrix args: not implemented')
-  end
-else
-  warning('min with more than 2 args. not implemented')
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_mini.sci b/scilab/modules/scilab2fortran/macros/f_mini.sci
deleted file mode 100644 (file)
index 9966fc1..0000000
+++ /dev/null
@@ -1,63 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_mini(nwrk)
-//!purpose
-//  Scilab mini function translation
-//!
-txt=[]
-select rhs
-case 1 then
-  s2=stk(top)
-  if lhs==1 then
-    if s2(3)=='0' then fun='ivmin',else fun='dvmin',end
-    nwrk=dclfun(nwrk,fun,s2(3))
-    out=callfun([fun,mulf(s2(4),s2(5)),s2(1),'1'],s2(3))
-    stk=list(out,'0',s2(3),'1','1')
-  else
-    [out,nwrk,t1]=outname(nwrk,[s2(3);'0'],['1';'1'],['1';'1'])
-    w=getentry1(s2(1),'loop')
-    txt=[t1;
-       ' '+out(2)+'='+getentry1(s2(1),'1')
-       ' do loop=2,'+mulf(s2(4),s2(5))
-       indentfor(genif(w+'.lt.'+out(2),..
-           [' '+out(2)+'='+w;
-            ' '+out(1)+'=loop']))
-       ' enddo']
-    stk=list(list(out(1),'-1','1','1','1'),list(out(2),'-1','0','1','1'))
-  end
-case 2 then
-  s2=stk(top);s1=stk(top-1);top=top-1
-  if lhs==1 then
-    if s2(4)=='1'&s2(5)=='1'&s1(4)=='1'&s1(5)=='1' then
-      stk=list('min('+s1(1)+','+s2(1)+')','0',s2(3),'1','1')
-    else
-      warning('min with 2 matrix args not translated')
-    end
-  else
-    warning('min with 2 lhs arguments not translated')
-  end
-else
-  warning('min with more than 2 args not translated')
-end
-
-endfunction
-function var=getentry1(var,i)
-if part(var,1:5)=='work(' then
-  pti=part(var,6:length(var)-1)
-
-  var='work('+addf(pti,addf(i,'-1'))+')'
-elseif  part(var,1:6)=='iwork(' then
-  pti=part(var,7:length(var)-1)
-  var='iwork('+addf(pti,addf(i,'-1'))+')'
-else
-  var=var+'('+i+')'
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_norm.sci b/scilab/modules/scilab2fortran/macros/f_norm.sci
deleted file mode 100644 (file)
index e06c3e4..0000000
+++ /dev/null
@@ -1,136 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_norm(nwrk)
-//!purpose
-//  Scilab norm function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-s2=stk(top-rhs+1);
-//
-p='2'
-if rhs==2 then
-  p=stk(top);p=p(1);
-end
-
-if p=='2' then //norme 2
-if s2(4)=='1'&s2(5)=='1' then
-  if s2(2)=='2' then s2(1)='('+s2(1)+')',end
-  stk=list('abs('+s2(1)+')',s2(2),s2(3),s2(4),s2(5))
-elseif s2(4)=='1'|s2(5)=='1' then
-  [s2,nwrk,txt]=typconv(s2,nwrk,'1')
-  nwrk=dclfun(nwrk,'dnrm2','1')
-  out=callfun(['dnrm2',mulf(s2(4),s2(5)),s2(1),'1'],'1')
-  stk=list(out,'-1','1','1','1')
-else
-  [s2,nwrk,txt]=typconv(s2,nwrk,'1')
-  n=s2(4);m=s2(5)
-  if n==m then
-    n1=n
-    n2=n
-  else
-    n1='min('+addf(n,'1')+','+m+')'
-    n2='min('+n+','+m+')'
-  end
-  [errn,nwrk]=adderr(nwrk,'echec du calcul de la norme')
-  [s,nwrk,t1]=getwrk(nwrk,'1','1',n1)
-  [e,nwrk,t2]=getwrk(nwrk,'1','1',m)
-  [wrk,nwrk,t3]=getwrk(nwrk,'1','1',n)
-  txt=[t1;t2;t3;
-    gencall(['dsvdc',s2(1),n,n,m,s,e,'work',n,'work',m,wrk,'00','ierr']);
-    genif('ierr.ne.0',[' ierr='+string(errn);' return'])]
-  stk=list(s,'0','1','1','1')
-end
-elseif p=='1' then
-  [s2,nwrk,txt]=typconv(s2,nwrk,'1')
-  nwrk=dclfun(nwrk,'dasum','1')
-  out=callfun(['dasum',mulf(s2(4),s2(5)),s2(1),'1'],'1')
-  stk=list(out,'0','1','1','1')
-elseif p=='inf' then
-  [s2,nwrk,txt]=typconv(s2,nwrk,'1')
-  if part(s2(1),1:4)==work then
-    out=callfun(['abs',part(s2(1),1:length(s2(1))-1)+'-1+'+..
-                    callfun(['idamax',mulf(s2(4),s2(5)),s2(1),'1'])+')'])
-  else
-    out=callfun(['abs',s2(1)+'('+..
-          callfun(['idamax',mulf(s2(4),s2(5)),s2(1),'1'])+')'])
-  end
-  stk=list(out,'0','1','1','1')
-else
-  [s2,nwrk,txt]=typconv(s2,nwrk,'1')
-  [t,nwrk,t1]=getwrk(nwrk,'1','1','1')
-  [lbl,nwrk]=newlab(nwrk)
-  tl1=string(10*lbl);
-  var='ilb'+tl1;
-  if part(s2(1),1:4)==work then
-    t2=t+'='+t+'('+part(s2(1),1:length(s2(1))-1)+'+'+var+'))**'+p
-  else
-    t2=t+'='+t+'('+s2(1)+'('+var+'))**'+p
-  end
-  txt=[txt;t1;
-       t+' = 0.0d0';
-       ' do '+tl1+' '+var+' = 0'+','+subf(mulf(s2(4),s2(5),'1'));
-       indentfor(t2);
-       part(tl1+'    ',1:6)+' continue']
-  stk=list('('+t+')**(1/'+p+')','0','1','1','1')
-end
-//
-top=top-rhs+1
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_ones.sci b/scilab/modules/scilab2fortran/macros/f_ones.sci
deleted file mode 100644 (file)
index 8c97519..0000000
+++ /dev/null
@@ -1,81 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_ones(nwrk)
-//!purpose
-//  Scilab ones function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-txt=[]
-select rhs
-case 1 then
-   s2=stk(top)
-   [out,nwrk,txt]=outname(nwrk,'1',s2(4),s2(5))
-   txt=[txt;gencall(['dset',mulf(s2(4),s2(5)),'1.0d0',out,'1'])]
-   stk=list(out,'-1','1',s2(4),s2(5))
-case 2  then
-   s1=stk(top-1)
-   s2=stk(top)
-   [out,nwrk,txt]=outname(nwrk,'1',s1(1),s2(1))
-   txt=[txt;gencall(['dset',mulf(s1(1),s2(1)),'1.0d0',out,'1'])]
-   stk=list(out,'-1','1',s1(1),s2(1))
-   top=top-1
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_rank.sci b/scilab/modules/scilab2fortran/macros/f_rank.sci
deleted file mode 100644 (file)
index b92e754..0000000
+++ /dev/null
@@ -1,113 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_rank(nwrk)
-//!purpose
-//  Scilab rank function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-txt=[]
-nam='rank'
-s2=stk(top-rhs+1)
-v=s2(1)
-it2=prod(size(v))-1
-if it2<>0 then  error(nam+' complex : not implemented'),end
-
-[s2,nwrk,t0]=typconv(s2,nwrk,'1')
-n=s2(4);m=s2(5)
-if n==m then
-  n1=n
-  n2=n
-else
-  n1='min('+addf(n,'1')+','+m+')'
-  n2='min('+n+','+m+')'
-end
-[errn,nwrk]=adderr(nwrk,'echec du calcul du rang')
-[s,nwrk,t1]=getwrk(nwrk,'1','1',n1)
-[e,nwrk,t2]=getwrk(nwrk,'1','1',m)
-[wrk,nwrk,t3]=getwrk(nwrk,'1','1',n)
-txt=[t0;t1;t2;t3;
-    gencall(['dsvdc',s2(1),n,n,m,s,e,'work',n,'work',m,wrk,'00','ierr']);
-    genif('ierr.ne.0',[' ierr='+string(errn);' return'])]
-tol=wrk
-if rhs==1 then
-  nwrk=dclfun(nwrk,'d1mach','1')
-  t0=' '+tol+'='+mulf(mulf(mulf('d1mach(4)',m),n),e)
-else
-  tol1=stk(top)
-  t0=' '+tol+'='+mulf(mulf(mulf(tol1(1),m),n),e)
-end
-[lbl,nwrk]=newlab(nwrk)
-tl1=string(10*lbl);
-var='ilb'+tl1;
-[lbl,nwrk]=newlab(nwrk)
-tl2=string(10*lbl);
-
-t1= genif(part(s,1:length(s)-1)+'+'+var+'-1).le.'+tol,' goto '+tl2)
-txt=[txt;t0;
-     ' do '+tl1+' '+var+' = 0'+','+subf(n2,'1');
-     indentfor(t1);part(tl1+'    ',1:6)+' continue';
-     ' '+var+'='+n2;
-     part(tl2+'    ',1:6)+' continue']
-[nwrk]=freewrk(nwrk,e)
-[nwrk]=freewrk(nwrk,s)
-[nwrk]=freewrk(nwrk,wrk)
-stk=list(var,'0','0','1','1')
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_sin.sci b/scilab/modules/scilab2fortran/macros/f_sin.sci
deleted file mode 100644 (file)
index 7df48d4..0000000
+++ /dev/null
@@ -1,80 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_sin(nwrk)
-//!purpose
-//  Scilab sin function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-nam='sin'
-txt=[]
-s2=stk(top)
-if s2(4)<>s2(5)|(s2(4)=='1'&s2(5)=='1') then
-  v=s2(1)
-  it2=prod(size(v))-1
-  if it2==0 then
-    [stk,nwrk,txt,top]=f_gener(nam,nwrk)
-  else
-     error(nam+' complex : not implemented')
-  end
-else
-  error(nam+' not square matrix')
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_size.sci b/scilab/modules/scilab2fortran/macros/f_size.sci
deleted file mode 100644 (file)
index e58351b..0000000
+++ /dev/null
@@ -1,95 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_size(nwrk)
-//!purpose
-//  Scilab size function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-txt=[]
-if rhs==1 then
-  s=stk(top)
-  if lhs==1 then
-    [out,nwrk,t1]=outname(nwrk,'0','1','2')
-    if part(out,1:6)=='iwork(' then
-      pti=part(out,7:length(out)-1)
-      txt=[' iwork('+pti+') = '+s(4);
-         ' iwork('+addf(pti,'1')+') = '+s(5);t1]
-    else
-      txt=[' '+out+'(1) = '+s(4);
-         ' '+out+'(2) = '+s(5);]
-    end
-    stk=list(out,'-1','0','1','2')
-  else
-    stk=list(list(s(4),'0','0','1','1'),list(s(5),'0','0','1','1'))
-  end
-else
-  s1=stk(top)
-  top=top-1
-  s=stk(top)
-  if s1(1)=='''*''' then
-    stk=list(s(4)+'*'+s(5),'1','0','1','1')
-  elseif s1(1)=='''r'''| s1(1)=='1' then
-    stk=list(s(4),'1','0','1','1')
-  elseif s1(1)=='''c'''| s1(1)=='2' then
-    stk=list(s(5),'1','0','1','1')
-  end
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_sqrt.sci b/scilab/modules/scilab2fortran/macros/f_sqrt.sci
deleted file mode 100644 (file)
index ae0a788..0000000
+++ /dev/null
@@ -1,76 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_sqrt(nwrk)
-//!purpose
-//  Scilab sqrt function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-nam='sqrt'
-txt=[]
-s2=stk(top)
-v=s2(1)
-it2=prod(size(v))-1
-if it2==0 then
-  [stk,nwrk,txt,top]=f_gener(nam,nwrk)
-else
-  error(nam+' complex is not implemented')
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_svd.sci b/scilab/modules/scilab2fortran/macros/f_svd.sci
deleted file mode 100644 (file)
index d5978d2..0000000
+++ /dev/null
@@ -1,146 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_svd(nwrk)
-//!purpose
-//  Scilab svd function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-txt=[]
-nam='svd'
-s2=stk(top-rhs+1)
-
-v=s2(1)
-it2=prod(size(v))-1
-if it2<>0 then  error(nam+' complex --> not implemented'),end
-
-[s2,nwrk,t0]=typconv(s2,nwrk,'1')
-n=s2(4);m=s2(5)
-if n==m then
-  n1=n
-  n2=n
-else
-  n1='min('+addf(n,'1')+','+m+')'
-  n2='min('+n+','+m+')'
-end
-
-if lhs==1 then
-  [errn,nwrk]=adderr(nwrk,'SVD computation fails')
-  [out,nwrk,t1]=outname(nwrk,'1','1',n1)
-  [e,nwrk,t2]=getwrk(nwrk,'1','1',m)
-  [wrk,nwrk,t3]=getwrk(nwrk,'1','1',n)
-  txt=[t0;t1;t2;t3;
-       gencall(['dsvdc',s2(1),n,n,m,out,e,'work',n,'work',m,wrk,'00','ierr']);
-       genif('ierr.ne.0',[' ierr='+string(errn);' return'])]
-  stk=list(out,'-1','1','1',n1)
-  [nwrk]=freewrk(nwrk,wrk)
-  [nwrk]=freewrk(nwrk,e)
-elseif lhs==3 then
-  [errn,nwrk]=adderr(nwrk,'SVD computation fails')
-  [o,nwrk,t1]=outname(nwrk,['1','1','1'],[n,n,m],[n,m,m])
-  [d,nwrk,t2]=getwrk(nwrk,'1','1',n1)
-  [e,nwrk,t3]=getwrk(nwrk,'1','1',m)
-  txt=[t0;t1;t2;t3;
-      gencall(['dsvdc',s2(1),n,n,m,d,e,o(3),n,o(1),m,o(2),'11','ierr']);
-      genif('ierr.ne.0',[' ierr='+string(errn);' return']);
-      gencall(['dset',mulf(m,n),'0.0d0',o(2),'1']);
-      gencall(['dcopy',n1,d,'1',o(2),addf(n,'1')])];
-  [nwrk]=freewrk(nwrk,d)
-  [nwrk]=freewrk(nwrk,e)
-  stk=list(list(o(1),'-1','1',m,m),list(o(2),'-1','1',n,m),..
-           list(o(3),'-1','1',n,n))
-else
-  [errn,nwrk]=adderr(nwrk,'SVD fails')
-  [o,nwrk,t1]=outname(nwrk,['0','1','1','1'],['1',n,n,m],['1',n,m,m])
-  [d,nwrk,t2]=getwrk(nwrk,'1','1',n1)
-  [e,nwrk,t3]=getwrk(nwrk,'1','1',m)
-  txt=[t0;t1;t2;t3;
-      gencall(['dsvdc',s2(1),n,n,m,d,e,o(4),n,o(2),m,o(3),'11','ierr']);
-      genif('ierr.ne.0',[' ierr='+string(errn);' return']);
-      gencall(['dset',mulf(m,n),'0.0d0',o(3),'1']);
-      gencall(['dcopy',n1,d,'1',o(3),addf(n,'1')])];
-  tol=e
-  if rhs==1 then
-    nwrk=dclfun(nwrk,'d1mach','1')
-    t0=' '+tol+'='+mulf(mulf(mulf('d1mach(4)',m),n),d)
-  else
-    tol1=stk(top)
-    t0=' '+tol+'='+mulf(mulf(mulf(tol1(1),m),n),d)
-  end
-  [lbl,nwrk]=newlab(nwrk)
-  tl1=string(10*lbl);
-  var='ilb'+tl1;
-  [lbl,nwrk]=newlab(nwrk)
-  tl2=string(10*lbl);
-  t1=[' '+o(1)+'='+var;
-      genif(part(d,1:length(d)-1)+'+'+var+'-1).le.'+tol,' goto '+tl2)]
-  txt=[txt;t0;
-     ' do '+tl1+' '+var+' = 0'+','+subf(n2,'1');
-     indentfor(t1);part(tl1+'    ',1:6)+' continue';
-     ' '+o(1)+'='+n2;
-     part(tl2+'    ',1:6)+' continue']
-  [nwrk]=freewrk(nwrk,d)
-  [nwrk]=freewrk(nwrk,e)
-  stk=list(list(o(1),'-1','0','1','1'),list(o(2),'-1','1',m,m),..
-           list(o(3),'-1','1',n,m),list(o(4),'-1','1',n,n))
-
-end
-top=top-rhs+1
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_tan.sci b/scilab/modules/scilab2fortran/macros/f_tan.sci
deleted file mode 100644 (file)
index bbdfdf1..0000000
+++ /dev/null
@@ -1,76 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_tan(nwrk)
-//!purpose
-//  Scilab tan function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-nam='tan'
-txt=[]
-s2=stk(top)
-v=s2(1)
-it2=prod(size(v))-1
-if it2==0 then
-  [stk,nwrk,txt,top]=f_gener(nam,nwrk)
-else
-  error(nam+' complex : not implemented')
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_type.sci b/scilab/modules/scilab2fortran/macros/f_type.sci
deleted file mode 100644 (file)
index 026aa6e..0000000
+++ /dev/null
@@ -1,69 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_type(nwrk)
-//!purpose
-//  Scilab type function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-
-txt=[]
-s=stk(top)
-stk=list(list(s(1),'0','0','1','1'))
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/f_zeros.sci b/scilab/modules/scilab2fortran/macros/f_zeros.sci
deleted file mode 100644 (file)
index b5d48ee..0000000
+++ /dev/null
@@ -1,82 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,txt,top]=f_zeros(nwrk)
-//!purpose
-//  Scilab zeros function translation
-//!parameters
-// - stk :
-//      On entry stk is a global variable of type list
-//      entries indexed from top-1+rhs:top give the definition of the rhs
-//      function input variables
-//
-//      After execution stk(1:lhs) must contain the definition of the
-//      lhs returned variables
-//
-//      stk entries have the following structure:
-//      stk(k)=list(definition,type_expr,type_var,nb_lig,nb_col)
-//
-//      *definition may be:
-//         - a character string containing a Fortran  expression with
-//           a scalar value ex:'a+2*b-3*c(1);
-//         - a character string containing a reference to the first
-//           entry of a Fortran array
-//                 'a'           if a is a defined matrix
-//                 'work(iwn)'   if  variable is stored in the  double
-//                              precision working array work
-//                 'iwork(iiwn)' if  variable is stored in the integer
-//                              working array iwork
-//      remark: complex array are defined by a definition part
-//                  with 2 elements (real and imaginary parts definition)
-//      *type_expr a character string: the expression type code (used
-//            to indicate need of parenthesis )
-//          '2' : the expression is a sum of terms
-//          '1' : the expression is a product of factors
-//          '0' : the expression is an atome
-//          '-1': the value is stored in a Fortran array
-//      *type_var a character string: codes the variable fortran type:
-//          '1' : double precision
-//          '0' : integer
-//          '10': character
-//
-//      *nb_lig (, nb_col) : character strings:number of rows
-//              (columns) of the matrix
-//          des chaines de caracteres
-
-//
-//  nwrk : this variable contain information on working arrays, error
-//         indicators. It only may be modified by call to scilab functions
-//         outname adderr getwrk
-//
-//  txt  : is a column vector of character string which contain the
-//         fortran code associated to the function translation if
-//         necessary.
-//  top  : an integer
-//         global variable on entry
-//         after execution top must be equal to top-rhs+lhs
-//!
-txt=[]
-pause
-select rhs
-case 1 then
-   s2=stk(top)
-
-   [out,nwrk,txt]=outname(nwrk,'1',s2(4),s2(5))
-   txt=[txt;gencall(['dset',mulf(s2(4),s2(5)),'0.0d0',out,'1'])]
-   stk=list(out,'-1','1',s2(4),s2(5))
-case 2  then
-   s1=stk(top-1)
-   s2=stk(top)
-   [out,nwrk,txt]=outname(nwrk,'1',s1(1),s2(1))
-   txt=[txt;gencall(['dset',mulf(s1(1),s2(1)),'0.0d0',out,'1'])]
-   stk=list(out,'-1','1',s1(1),s2(1))
-   top=top-1
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/forparam.sci b/scilab/modules/scilab2fortran/macros/forparam.sci
deleted file mode 100644 (file)
index 3c8606b..0000000
+++ /dev/null
@@ -1,58 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function forparam()
-%else='else',%end='end';%elseif='elseif';%if='if';%for='for';
-%select='select';%while='while';%case='case';%then='then'
-quote=''''
-logics=['==','<','>','<=','>=','<>']
-//symbole : symbole associe a un numero d'operation
-//type_du resultat : 0:facteur,1:terme,2:expression
-//parenthesage : indique s'il faut parentheser les operandes de meme type
-//               que type_du_resultat
-//
-//       symbole type_du_resultat parenthesage_des_operandes
-ops     =['+',   'a';
-         '-',    's';
-         '*',    'm';
-         '.*',   'x';
-         '*.',   'u';
-         '.*.',  'k';
-         '/',    'r';
-         './',   'd';
-         '/.',   'v';
-         './.',  'y';
-         '\',    'l';
-         '.\',   'q';
-         '\.',   'w';
-         '.\.',  'z';
-         '**',   'p';
-         '.eq.', 'log';
-         '.lt.', 'log';
-         '.gt.', 'log';
-         '.le.', 'log';
-         '.ge.', 'log';
-         '.ne.', 'log';
-         ':',    'imp';
-         '[]',   'c';
-         'ins',  'i';
-         'ext',  'e';
-         quote,  't';
-         '[]',   'c';
-        '|',    'g';
-         '&',    'h';
-         '~',    '5';
-         '.^',   'j';
-         '.'+quote '0';
-         '[]',   'c'];
-[logics,ops,quote,%else,%end,%elseif,%if,%for,%select,%while,%case,%then]=...
-resume(logics,ops,quote,%else,%end,%elseif,%if,%for,%select,%while,%case,%then)
-
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/freewrk.sci b/scilab/modules/scilab2fortran/macros/freewrk.sci
deleted file mode 100644 (file)
index d9f1ff1..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function nwrk=freewrk(nwrk,name)
-//cette macro libere la place occupee par la variable dont le nom est
-//donne dans name
-//!
-//  write(6,'-----------------'+name);
-if part(name,1:7)=='work(iw' then
-     ext=part(name,8:length(name)-1)
-     if isnum(ext) then
-       nb=evstr(ext)+1
-       nw2=nwrk(2);
-       nw2(2,nb)='0'
-//     write(6,'libere :'+nw2(1,nb))
-       nwrk(2)=nw2
-     end
-  elseif part(name,1:9)=='iwork(iiw' then
-     ext=part(name,10:length(name)-1)
-     if isnum(ext) then
-       nb=evstr(ext)+1
-       nw5=nwrk(5)
-       nw5(2,nb)='0'
-       nwrk(5)=nw5
-     end
-  end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/func2f.sci b/scilab/modules/scilab2fortran/macros/func2f.sci
deleted file mode 100644 (file)
index af85801..0000000
+++ /dev/null
@@ -1,50 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,nwrk,t1,top]=func2f(op,stk,nwrk)
-// genere la traduction de l'ensemble des primitives
-//!
-lhs=evstr(op(4))
-rhs=abs(evstr(op(3)))
-t1=[]
-if exists('f_'+op(2)) then
-  execstr('[stkr,nwrk,t1,top]=f_'+op(2)+'(nwrk)')
-  for k=rhs-lhs:-1:1, stk(top+k)=null(),end
-  if lhs>1 then
-    top=top-1
-    for k=1:lhs
-      top=top+1
-      stk(top)=stkr(k)
-    end
-  else
-    stk(top)=stkr
-  end
-else
-  args=[]
-  for k=1:rhs
-    s=stk(top)
-    args=[s(1),args]
-    top=top-1
-  end
-  typ='?',typ=typ(ones(1,lhs))'
-  rsiz='1';rsiz=rsiz(ones(1,lhs))'
-  csiz=rsiz;
-  [o,nwrk,t1]=outname(nwrk,typ,rsiz,csiz)
-  for k=1:lhs, args=[args,o(k)],end
-  txt=['c TRANSLATION OF '+op(2)+' FUNCTION CALL NOT PROPERLY DONE';
-       t1
-       gencall([op(2),args])]
-  stkr=list()
-  for k=1:lhs
-    top=top+1
-    stk(top)=list(o(k),'-1',typ(k),rsiz(k),csiz(k))
-  end
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/gencall.sci b/scilab/modules/scilab2fortran/macros/gencall.sci
deleted file mode 100644 (file)
index 0362bcd..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [t]=gencall(arg)
-//gencall(arg) genere une instruction call fortran  a partir du vecteur de
-//chaine arg dont le premier element est le nom du sous programme et les
-//suivants les arguments d'appels
-//!
-n=prod(size(arg))
-t=' call '+arg(1)+'('
-if n==0 then return,end
-for k=2:n-1,
-  t=t+arg(k)+','
-end
-t=t+arg(n)+')'
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/genif.sci b/scilab/modules/scilab2fortran/macros/genif.sci
deleted file mode 100644 (file)
index b48025c..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [t]=genif(cnd,t1,t2)
-//genif(cnd,txt) genere le if fortran relatif a la condition cnd et dont
-//le  texte relatif  a la  partie  then est  donne  dans t1 et le  texte
-//relatif a la partie else est eventuellement donne dans t2.
-//!
-[lhs,rhs]=argn(0)
-if rhs==2&prod(size(t1))==1 then
-  t=' if('+cnd+') '+t1
-elseif rhs==3 then
-  t=[' if('+cnd+') then';indentfor(t1);' else';indentfor(t2);' endif']
-else
-  t=[' if('+cnd+') then';indentfor(t1);' endif']
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/get2f.sci b/scilab/modules/scilab2fortran/macros/get2f.sci
deleted file mode 100644 (file)
index 49672dc..0000000
+++ /dev/null
@@ -1,42 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,top,vnms,vtps]=get2f(nam,stk,top,vnms,vtps)
-// realise la traduction fortran de l'acquisition d'une variable (stackg)
-//!
-top=top+1
-vn=find(nam==vnms(:,2))
-if vn==[] then
-  op1=lst(ilst+1)
-  if op1(1)<>'5'|op1(2)<>'24' then
-    if nam=='%eps' then
-      stk(top)=list('%eps','0','1','1','1')
-      nv=prod(size(vnms))/2+1;
-      vnms=[vnms;['%eps','%eps']]
-      vtps(nv)=list('1','1','1',0)
-    elseif nam=='%i' then
-      stk(top)=list(['0.0d0','1.0d0'],'0','1','1','1')
-    elseif nam=='%io' then
-      stk(top)=list(%io,'0','0','1','2')
-      nv=prod(size(vnms))/2+1;
-      vnms=[vnms;['%io','%io']]
-      vtps(nv)=list('0','1','2',0)
-    else
-      error('variable: ' +nam+' undefined!')
-    end
-  else
-    stk(top)=list(nam,'?','0','0','0',0)
-  end
-else
-  typ=vtps(vn)
-//  stk(top)=list(vnms(vn,2),'0',typ(1),typ(2),typ(3))
-  stk(top)=list(vnms(vn,2),'0',typ(1),typ(2),typ(3))
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/getlocal.sci b/scilab/modules/scilab2fortran/macros/getlocal.sci
deleted file mode 100644 (file)
index 2ea449f..0000000
+++ /dev/null
@@ -1,50 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [out,nwrk,txt]=getlocal(nwrk,nam,typ,m,n)
-//Cette macro alloue une variable locale de taille m*n de type fortran typ
-//et de nom scilab nam dans le
-//    tableau de travail correspondant (modifie en consequence nwrk)
-//    et retourne
-//      -dans out une chaine de la forme 'work(iwnam)' ou 'iwork(iiwnam)'
-//        le n etant defini automatiquement.
-//      -dans txt les lignes fortran permettant de definir iwnam ou iiwnam
-//
-//!
-txt=[]
-mn=mulf(m,n)
-if typ=='1' then
-  i=nwrk(1)
-  nw=nwrk(11);[m,n]=size(nw)
-  free=find(nw(2,:)=='0')
-  k=find(nw(1,free)==mn)
-  if k==[] then
-    nwrk(10)=[nwrk(10);nam]
-    nwrk(11)=[nwrk(11) [mn;'1']]
-  else
-    i=free(k(1))
-    nw(2,i)='1';nwrk(11)=nw
-  end
-  out='work(iw'+nam+')'
-else
-  i=nwrk(12)
-  nw=nwrk(13);[m,n]=size(nw)
-  free=find(nw(2,:)=='0')
-  k=find(nw(1,free)==mn)
-  if k==[] then
-    nwrk(12)=[nwrk(12);nam]
-    nwrk(13)=[nwrk(13),[mn;'1']];
-  else
-    i=free(k(1))
-    nw(2,i)='1';nwrk(13)=nw
-  end
-  out='iwork(iiw'+nam+')'
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/getwrk.sci b/scilab/modules/scilab2fortran/macros/getwrk.sci
deleted file mode 100644 (file)
index c9f6e50..0000000
+++ /dev/null
@@ -1,64 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [out,nwrk,txt]=getwrk(nwrk,typ,m,n)
-//Cette macro alloue une matrice de taille m*n de type fortran typ dans le
-//    tableau de travail correspondant (modifie en consequence nwrk)
-//    et retourne
-//      -dans out une chaine de la forme 'work(iwn)' ou 'iwork(iiwn)'
-//        le n etant defini automatiquement.
-//      -dans txt les lignes fortran permettant de definir iwn ou iiwn
-//
-//!
-mn=mulf(m,n)
-if typ=='1' then
-  i=nwrk(1)
-  nw2=nwrk(2);[m2,n2]=size(nw2)
-  if n2==0 then i=0,end
-  if n2>0 then
-    free=find(nw2(2,:)=='0')
-    k=find(nw2(1,free)==mn)
-    if k==[] then
-       nwrk(1)=nwrk(1)+1
-       nwrk(2)=[nwrk(2) [mn;'1']]
-       txt=[' iw'+string(i+1)+' = '+addf('iw'+string(i),mn)];
-    else
-       i=free(k(1))
-       nw2(2,i)='1';nwrk(2)=nw2
-    end
-  else
-    nwrk(1)=nwrk(1)+1
-    nwrk(2)=[nwrk(2) [mn;'1']]
-    txt=[' iw'+string(i+1)+' = '+addf('iw'+string(i),mn)];
-  end
-  out='work(iw'+string(i)+')'
-else
-  i=nwrk(4)
-  nw5=nwrk(5);[m5,n5]=size(nw5)
-  if n5==0 then i=0,end
-  if n5>0 then
-    free=find(nw5(2,:)=='0')
-    k=find(nw5(1,free)==mn)
-    if k==[] then
-      nwrk(4)=nwrk(4)+1
-      nwrk(5)=[nwrk(5),[mn;'1']];
-      txt=[' iiw'+string(i+1)+' = '+addf('iiw'+string(i),mn)];
-    else
-      i=free(k(1))
-      nw5(2,i)='1';nwrk(5)=nw5
-    end
-  else
-    nwrk(4)=nwrk(4)+1
-    nwrk(5)=[nwrk(5),[mn;'1']]
-    txt=[' iiw'+string(i+1)+' = '+addf('iiw'+string(i),mn)];
-  end
-  out='iwork(iiw'+string(i)+')'
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/indent.sci b/scilab/modules/scilab2fortran/macros/indent.sci
deleted file mode 100644 (file)
index e89bc0f..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [txt]=indent(txt)
-//
-//!
-n=prod(size(txt))
-if n>0 then
-  bl(n,1)=' ';
-  txt=bl+bl+bl+txt
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/indentfor.sci b/scilab/modules/scilab2fortran/macros/indentfor.sci
deleted file mode 100644 (file)
index c5b7f70..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [txt]=indentfor(txt)
-//
-//!
-k=find(part(txt,1)==' ')
-n=prod(size(k))
-bl(n,1)=' ';
-txt(k)=bl+bl+bl+txt(k)
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/ins2for.sci b/scilab/modules/scilab2fortran/macros/ins2for.sci
deleted file mode 100644 (file)
index 23090fc..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [txt,vnms,vtps,nwrk]=ins2for(lst,ilst,vnms,vtps,nwrk)
-// traduit un ensemble d'instructions debutant a l'adresse ilst de la
-// liste courante lst
-//!
-nlst=size(lst)
-txt=[]
-while ilst<=nlst then
-  if type(lst(ilst))==15 then
-    [t1,vnms,vtps,nwrk]=cla2for(lst(ilst),vnms,vtps,nwrk)
-    ilst=ilst+1
-  else
-    [t1,ilst,vnms,vtps,nwrk]=cod2for(lst,ilst,vnms,vtps,nwrk)
-  end
-  txt=[txt;t1]
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/lin2for.sci b/scilab/modules/scilab2fortran/macros/lin2for.sci
deleted file mode 100644 (file)
index d288195..0000000
+++ /dev/null
@@ -1,24 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [txt]=lin2for(lst,ln)
-//si lst est une liste representant une macro compilee,mac2for)
-//restourne le code ascii de la macro
-//!
-count=0;level=0
-[kt,count]=findlin(lst,ln)
-nt=prod(size(kt))
-for i=nt:-1:2
-  lst=lst(kt(i))
-end
-setparam()
-
-txt=ins2for(lst,1)
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/makeargs.sci b/scilab/modules/scilab2fortran/macros/makeargs.sci
deleted file mode 100644 (file)
index 69606b0..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [txt]=makeargs(args)
-//etant donne un vecteur de chaines de caracteres "args", makeargs(args)
-//retourne une chaine de la forme arg(1)+,+....+,+arg(n)
-//!
-n=prod(size(args))
-txt=' '
-if n==0 then return,end
-for k=1:n,
-  if args(k)=='eye' then
-    txt=txt+':,'
-  else
-    txt=txt+args(k)+','
-  end,
-end
-txt=part(txt,2:length(txt)-1)
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/mltopsfor.sci b/scilab/modules/scilab2fortran/macros/mltopsfor.sci
deleted file mode 100644 (file)
index 51c8713..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [res]=mltopsfor(symb)
-//!
-stk;
-s1=stk(top-1)
-s2=stk(top)
-if symb+s2(2)=='**1' then s2(2)='2',end
-if symb+s1(2)=='**1' then s1(2)='2',end
-if symb+s2(2)=='/1' then s2(2)='2',end
-if symb+s2(2)=='./1' then s2(2)='2',end
-//if symb+s1(2)=='\1' then s1(2)='2',end
-//if symb+s1(2)=='.\1' then s1(2)='2',end
-if s2(2)=='2' then s2(1)='('+s2(1)+')',end
-if s1(2)=='2' then s1(1)='('+s1(1)+')',end
-res=list(s1(1)+symb+s2(1),'1')
-if symb=='\' then res(2)='2',end
-if symb=='.\' then res(2)='2',end
-//if symb=='**' then res(2)='2',end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/modlst.sci b/scilab/modules/scilab2fortran/macros/modlst.sci
deleted file mode 100644 (file)
index 0f8032f..0000000
+++ /dev/null
@@ -1,93 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [lst]=modlst(lst)
-//
-//!
-//count=count+1
-nlst=size(lst);top=0
-ilst=0
-pos=[]
-while ilst<nlst
-  ilst=ilst+1
-  if type(lst(ilst))==15 then
-    lst(ilst)=modlst(lst(ilst))
-  else
-    op=lst(ilst)
-    opn=op(1)
-    if opn=='5' then
-       if op(2)=='23' then
-
-         i2=pos(top);i1=pos(top-1)
-         a1=lst(i1)
-         a2=lst(i2)
-         if a1(1:2)==['5','23'] then
-             // [ [a,b,...],x ]
-             lst(i1)='0';
-             op(3)=addf(a1(3),'1');lst(ilst)=op
-             top=top-1
-             pos(top)=ilst
-         else
-             top=top-1
-             pos(top)=ilst
-         end
-       elseif op(2)=='27' then
-
-         i2=pos(top);i1=pos(top-1)
-         a1=lst(i1)
-         a2=lst(i2)
-         if a1(1:2)==['5','27'] then
-             // [ [a;b;...];x ]
-             lst(i1)='0';
-             op(3)=addf(a1(3),'1');lst(ilst)=op
-             top=top-1
-             pos(top)=ilst
-         elseif a1(1:2)==['5','23']&a2(1:2)==['5','23'] then
-             lst(i1)='0'
-             lst(i2)='0'
-             op=['5','33','2',a1(3)];lst(ilst)=op;
-         elseif a1(1:2)==['5','28']&a2(1:2)==['5','23'] then
-             lst(i1)='0';
-             lst(i2)='0'
-             op(3)=addf(a1(3),'1');lst(ilst)=op;
-             top=top-1
-             pos(top)=ilst
-         else
-             top=top-1
-             pos(top)=ilst
-         end
-       else
-         rhs=abs(evstr(op(3)));lhs=evstr(op(4))
-         pos((top-rhs+1):(top-rhs+lhs))=ones(lhs,1)*ilst
-         top=top-rhs+lhs
-
-       end
-    elseif opn=='20' then
-       rhs=abs(evstr(op(3)));lhs=evstr(op(4))
-       pos((top-rhs+1):(top-rhs+lhs))=ones(lhs,1)*ilst
-       top=top-rhs+lhs
-    elseif opn=='2'|opn=='3'|opn=='4'|opn=='6'|opn=='23' then
-       top=top+1
-       pos(top)=ilst
-//    else
-    end
-  end
-end
-
-lst1=list();k1=0;
-for ll=lst;
-  if type(ll)==15 then
-     k1=k1+1;lst1(k1)=ll
-  elseif ll(1)<>'0' then
-     k1=k1+1;lst1(k1)=ll,
-  end
-end
-lst=lst1;
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/newlab.sci b/scilab/modules/scilab2fortran/macros/newlab.sci
deleted file mode 100644 (file)
index 8a3f8b1..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [lb,nwrk]=newlab(nwrk)
-//Cette macro retourne lb  le numero d'etiquette suivant
-//!
-lb=nwrk(9)+1
-  nwrk(9)=lb
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/num2f.sci b/scilab/modules/scilab2fortran/macros/num2f.sci
deleted file mode 100644 (file)
index 70b2575..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,top]=num2f(val,stk)
-// traduit la definition d'un nombre
-//!
-top=top+1
-nn=length(val);typ='0'
-for k=1:nn
-  if part(val,k)=='.' then typ='1',break,end
-end
-stk(top)=list(val,'0',typ,'1','1')
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/op2for.sci b/scilab/modules/scilab2fortran/macros/op2for.sci
deleted file mode 100644 (file)
index 7d92faa..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,txt,ilst,vnms,vtps,nwrk,lbl]=op2for(op,stk,vnms,vtps,nwrk,lbl)
-//
-//!
-txt=[]
-iop=evstr(op(2))
-execstr('[stkr,nwrk,txt,top]=%'+ops(iop,2)+'2for(nwrk)')
-stk(top)=stkr
-s1=list()
-for k=1:top,s1(k)=stk(k);end
-stk=s1
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/outname.sci b/scilab/modules/scilab2fortran/macros/outname.sci
deleted file mode 100644 (file)
index 6a940d1..0000000
+++ /dev/null
@@ -1,66 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [out,nwrk,txt]=outname(nwrk,typ,m,n,excluded)
-//cette macro regarde si l'operation suivante est une affectation,
-// si oui et si cette affectation ne se fait pas sur une des variables listees
-//    dans le vecteur de chaine excluded, la macro retourne dans out
-//    le nom sur lequel se fait l'affectation
-// sinon elle alloue une matrice de taille m*n de type fortran typ dans le
-//    tableau de travail correspondant (modifie en consequence nwrk)
-//    et retourne
-//      -dans out une chaine de la forme 'work(iwn)' ou 'iwork(iiwn)'
-//        le n etant defini automatiquement.
-//      -dans txt les lignes fortran permettant de definir iwn ou iiwn
-//
-//!
-txt=[]
-[lhs,rhs]=argn(0)
-nvar=prod(size(typ))
-if rhs<5 then excluded(nvar)=' ',end
-for k=1:nvar
-  op=lst(ilst+k)
-  out(k)=' ';
-  if op(1)=='1'&and(op(2)<>excluded(k)) then
-    k3=find(op(2)==vnms(:,2))
-    if k3==[] then
-      // la variable n'existe pas il faut lui allouer de la place
-      if isnum(n(k))&isnum(m(k)) then
-       //les dimensions sont des nombres l'emplacement sera alloue localement
-       out(k)=op(2)
-      else
-       //dimensions formelles on alloue dans les tableau de travail
-       [o,nwrk,t1]=getlocal(nwrk,op(2),typ(k),m(k),n(k))
-       txt=[txt;t1]
-       out(k)=o;
-      end
-    else
-      //  la variable existe deja
-      out(k)=op(2)
-    end
-  end
-  if out(k)==' ' then
-    if isnum(n(k))&isnum(m(k)) then
-      //les dimensions sont des nombres l'emplacement sera alloue localement
-      //(to be done)
-      [o,nwrk,t]=getwrk(nwrk,typ(k),m(k),n(k))
-      out(k)=o;txt=[txt;t]
-    else
-      [o,nwrk,t]=getwrk(nwrk,typ(k),m(k),n(k))
-      out(k)=o;txt=[txt;t]
-    end
-    // mark temporary to be freed at the end of instruction (to be done)
-  end
-end
-
-
-
-
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/sci2for.sci b/scilab/modules/scilab2fortran/macros/sci2for.sci
deleted file mode 100644 (file)
index 8c77cff..0000000
+++ /dev/null
@@ -1,312 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function txt=sci2for(fun,nam,vtps,lvtps)
-//!
-[lhs,rhs]=argn()
-if type(fun)==11 then comp(fun),end
-if type(fun)<>13 then
-  error('sci2for: first argument must be a scilab function'),
-end
-lst=modlst(macr2lst(fun))
-lst(1)=nam;
-count=0;level=0;nwrk=list(0,[],[],0,[],[],0,list(),1,[],[],[],[],[],[])
-forparam()
-//
-
-inputs=lst(3)
-macrhs=size(vtps)
-vnms=[],for k=1:macrhs,vnms=[vnms;[inputs(k),inputs(k)]],end,
-
-na=prod(size(vnms))/2
-
-maclhs=prod(size(lst(2)))
-kl=1
-for k=lst(2),
-  if find(vnms(:,1)==k)==[] then
-    vnms=[vnms;[k,k]],
-    na=na+1;
-    if rhs==4 then // output variable type given
-      vtps(na)=lvtps(kl);kl=kl+1
-    else
-      vtps(na)=list('?','0','0',0)
-    end
-  end
-end
-
-//stack of variables
-k=1
-while k<=na
-  w=vtps(k);
-  nw=size(w)
-  if nw==3 then w(4)=0;vtps(k)=w;nw=4;end
-  for iw=2:nw-1
-      if find(vnms(:,1)==w(iw))==[] then
-        ch=part(w(iw),1)
-        if find(ch==string(0:9))==[]
-          na=na+1
-          vtps(na)=list('0','1','1',0)
-          vnms=[vnms;[w(iw),w(iw)]]
-        end
-      end
-  end
-  k=k+1
-end
-
-bot=na
-
-//
-forexp=0
-[crp,vnms,vtps,nwrk]=ins2for(lst,4,vnms,vtps,nwrk)
-if strindex(strcat(crp),'WARNING local variable')<>[] then
-  nwrk=list(0,[],[],0,[],[],0,list(),1,[],[],[],[],[],[])
-//  pause
-  [crp,vnms,vtps,nwrk]=ins2for(lst,4,vnms,vtps,nwrk)
-end
-
-na=size(vtps)
-if find(vnms(:,1)=='%eps')<>[] then
-  crp=[' %eps = d1mach(4)';'c';crp]
-  vnms=[vnms;['d1mach','d1mach']]
-  vtps(na+1)=list('1','1','1',0)
-  na=na+1
-end
-
-//
-//header
-if nwrk(10)<>[]|nwrk(12)<>[] then
-  pntrs='c      adress of local variables',
-else
-  pntrs=[];
-end
-v1=vnms(1:bot,1)
-//
-if nwrk(3)<>[]|nwrk(10)<>[] then
-  if prod(size(nwrk(3)))==1 then
-    used=nwrk(3)
-  else
-    used='max('+makeargs(nwrk(3))+')'
-  end
-  if nwrk(10)<>[] then
-    nams=nwrk(10);loc=nwrk(11);nl=prod(size(loc))/2
-    pntrs=[pntrs;' iw'+nams(1)+' = 1']
-    for k=2:nl
-      pntrs=[pntrs;' iw'+nams(k)+' = '+addf('iw'+nams(k-1),loc(1,k-1))];
-      used=addf(used,loc(1,k-1))
-    end
-    pntrs=[pntrs;'c';' iw0 = '+addf('iw'+nams(nl),loc(1,nl))]
-    used=addf(used,loc(1,nl))
-  else
-    pntrs=[pntrs;' iw0 = 1']
-  end
-  if ~isnum(used) then
-    v1=[v1;'work'];
-  end
-end
-// tableau de travail entier
-if nwrk(6)<>[]|nwrk(12)<>[] then
-  if prod(size(nwrk(6)))==1 then
-    iused=nwrk(6)
-  else
-    iused='max('+makeargs(nwrk(6))+')'
-  end
-  if nwrk(12)<>[] then
-    nams=nwrk(12);loc=nwrk(13);nl=prod(size(loc))/2
-    pntrs=[pntrs;' iiw'+nams(1)+' = 1']
-    for k=2:nl
-      pntrs=[pntrs;' iiw'+nams(k)+' = '+addf('iiw'+nams(k-1),loc(1,k-1))];
-     iused=addf(iused,loc(1,k-1))
-    end
-    pntrs=[pntrs;'c';' iiw0 = '+addf('iiw'+nams(nl),loc(1,nl))]
-    iused=addf(iused,loc(1,nl))
-  else
-    pntrs=[pntrs;' iiw0 = 1']
-  end
-  if ~isnum(iused) then
-    v1=[v1;'iwork'];
-  end
-end
-//if nwrk(10)<>[]|nwrk(12)<>[] then   pntrs=[pntrs;'c'],end
-// variable d'erreur
-if nwrk(7)>0 then
-  v1=[v1;'ierr']
-end
-//
-kv1=0;nvc=na
-for k=1:bot
-  kv1=kv1+1
-  vk=vtps(k);
-  if vk(4)==1 then
-    v1=[v1(1:k-1);v1(k)+'_r';v1(k)+'_i';v1(k+1:nvc)]
-    kv1=kv1+1
-    nvc=nvc+2
-  end
-end
-
-hdr=[' subroutine '+lst(1)+'('+makeargs(v1)+')';
-     'c!';
-     'c automatic translation';
-     'c';
-     'c!     calling sequence';
-     'c      ----------------';
-     'c' ]
-//
-//declarations
-argld=[];//double precision argument list
-argli=[];// integer argument list
-argls=[];// character argument list
-locals=[]
-for iv=1:na
- // var=vnms(iv,1);
-  var=vnms(iv,2);
-  vartyp=vtps(iv)
-  if part(var,1:4)<>'work'&part(var,1:5)<>'iwork' then
-    nl=vartyp(2);nc=vartyp(3);it=vartyp(4)
-
-    if type(nl)==1 then
-      nl=string(maxi(1,nl)),
-    else
-      if isnum(nl) then
-       nl=string(maxi(evstr(nl),1))
-      end
-    end
-    if type(nc)==1 then
-      nc=string(maxi(1,nc)),
-    else
-      if isnum(nc) then
-       nc=string(maxi(evstr(nc),1))
-      end
-    end
-    if nl+nc=='11' then
-      if it==0 then
-         nm=var
-      else
-         nm=nm+'_r'+','+nm+'_i',
-        var=var+'(_r,_i)'
-      end
-      com='variable '
-    elseif nl=='1' then
-      if it==0 then
-        nm=var+'('+nc+')'
-      else
-        nm=var+'_r('+nc+')'+','+var+'_i('+nc+')'
-        var=var+'(_r,_i)'
-      end
-      com='vector of size '+nc
-    elseif nc=='1' then
-      if it==0 then
-        nm=var+'('+nl+')'
-      else
-        nm=var+'_r('+nl+')'+','+var+'_i('+nl+')'
-        var=var+'(_r,_i)'
-      end
-      com='vector of size '+nl
-    else
-      if it==0 then
-        nm=var+'('+makeargs([nl;nc])+')'
-      else
-        nm=var+'_r('+makeargs([nl,nc])+')'+','+var+'_i('+makeargs([nl,nc])+')'
-        var=var+'(_r,_i)'
-      end
-
-      com='vector of size '+nl+','+nc
-    end
-    if vartyp(1)=='1' then
-      argld=[argld;nm]
-      com='c      '+part(var,1:10)+' : double precision '+com
-    elseif vartyp(1)=='0' then
-      argli=[argli;nm]
-      com='c      '+ part(var,1:10)+' : integer '+com
-    elseif vartyp(1)=='10' then
-      argls=[argls;nm]
-      com='c      '+ part(var,1:10)+' : string '+com
-    end
-    if iv<=bot then
-      hdr=[hdr;com],
-    end
-  else
-    locals=[locals;'c        '+ vnms(iv,2)+' : size ('+..
-            vartyp(2)+','+vartyp(3)+'), implemented in '+vnms(iv,1)]
-  end
-end
-if nwrk(3)<>[]|nwrk(10)<>[] then
-  if ~isnum(used) then
-    nm='work(*)';argld=[argld;nm]
-    hdr=[hdr;'c      work       : working array :';
-       'c                 '+used]
-  else
-    nm='work('+used+')';argld=[argld;nm]
-    hdr=[hdr;'c      work       : working array :'+used]
-  end
-end
-if nwrk(6)<>[]|nwrk(12)<>[] then
-  if ~isnum(iused) then
-    nm='iwork(*)';argli=[argli;nm]
-    hdr=[hdr;'c      iwork      : working array :';
-       'c                 '+iused]
-  else
-    nm='iwork('+iused+')';argli=[argli;nm]
-    hdr=[hdr;'c      iwork      : working array :'+iused]
-  end
-end
-if nwrk(7)>0 then
-  msgs=nwrk(8)
-  argli($+1)='ierr'
-  hdr=[hdr;'c      ierr      : error indicator']
-  hdr=[hdr;'c             0 :  correct run']
-  for k=1:nwrk(7)
-    msgk=msgs(k)
-    for l=1:prod(size(msgk))
-      hdr=[hdr;'c             '+string(k)+' : '+msgk(l)]
-    end
-  end
-end
-if nwrk(10)<>[]|nwrk(12)<>[] then
-  hdr=[hdr;'c';..
-           'c      dimension of local variables ';..
-           'c      -----------------------------';
-           locals]
-end
-hdr=[hdr;'c!']
-//
-dcl=[]
-if argli<>[] then  dcl=[dcl;' integer '+makeargs(argli)],end
-if argld<>[] then  dcl=[dcl;' double precision '+makeargs(argld)],end
-if argls<>[] then  dcl=[dcl;' character*(*) '+makeargs(argls)],end
-if nwrk(14)<>[]|nwrk(15)<>[] then dcl=[dcl;'c     external functions'],end
-if nwrk(14)<>[] then  dcl=[dcl;' integer '+makeargs(nwrk(14))],end
-if nwrk(15)<>[] then  dcl=[dcl;' double precision '+makeargs(nwrk(15))],end
-
-dcl=[dcl;'c']
-
-txt=[hdr;dcl;pntrs;crp;' end']
-k=find(part(txt,1)==' ')
-txt(k)='     '+txt(k)
-
-kk=1
-while kk<>[] then
-  kk=find(length(txt)>72)
-  nk=prod(size(kk))
-  for k=nk:-1:1
-    k1=kk(k)
-    t1=txt(k1),
-    if part(t1,1)=='c' then
-      t1=[part(t1,1:72);
-         'c              '+part(t1,73:length(t1))];
-   else
-     ksplit=max(strindex(part(t1,1:71),[',','+','-','*','/',' ']))
-     if ksplit==[] then ksplit=72,end
-      t1=[part(t1,1:ksplit);
-         '     & '+part(t1,ksplit+1:length(t1))];
-    end
-    txt=[txt(1:k1-1);t1;txt(k1+1:prod(size(txt)))]
-  end
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/setparam.sci b/scilab/modules/scilab2fortran/macros/setparam.sci
deleted file mode 100644 (file)
index 87a847a..0000000
+++ /dev/null
@@ -1,52 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function []=setparam()
-//
-//!
-%else='else',%end='end';%elseif='elseif';%if='if';%for='for';
-%select='select';%while='while';%case='case';%then='then'
-quote=''''
-logics=['==','<','>','<=','>=','<>']
-//symbole : symbole associe a un numero d'operation
-//type_du resultat : 0:facteur,1:terme,2:expression
-//parenthesage : indique s'il faut parentheser les operandes de meme type
-//               que type_du_resultat
-//
-//       symbole type_du_resultat parenthesage_des_operandes
-ops     =['+','2','  ';
-         '-','2',' r';
-         '*','1','  ';
-         '.*','1',' r';
-         '*.','1','lr';
-         '.*.','1','lr';
-         '/','1',' r';
-         './','1',' r';
-         '/.','1','lr';
-         './.','1','lr';
-         '\','1','l ';
-         '.\','1','l ';
-         '\.','1','l ';
-         '.\.','1','lr';
-         '**','0',' r';
-         '==','2','lr';
-         '<','2','lr';
-         '>','2','lr';
-         '<=','2','lr';
-         '>=','2','lr';
-         '<>','2','lr';
-         ':','0','  ';
-         '[]','0','  ';
-         'ins','0','  ';
-         'ext','0','  ';
-         quote,'0','  '];
-[logics,ops,quote,%else,%end,%elseif,%if,%for,%select,%while,%case,%then]=...
-resume(logics,ops,quote,%else,%end,%elseif,%if,%for,%select,%while,%case,%then)
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/str2f.sci b/scilab/modules/scilab2fortran/macros/str2f.sci
deleted file mode 100644 (file)
index dd6b15b..0000000
+++ /dev/null
@@ -1,26 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [stk,top]=str2f(ch,stk)
-// traduit la definition d'une chaine de caracteres
-//!
-quote=''''
-nch=length(ch)
-k=1
-while k<=nch
-  if part(ch,k)==quote then
-    ch=part(ch,1:k)+quote+part(ch,k+1:nch)
-    nch=nch+1;k=k+1
-  end
-  k=k+1
-end
-top=top+1
-stk(top)=list(quote+ch+quote,'-3','10','1','1')
-endfunction
diff --git a/scilab/modules/scilab2fortran/macros/typconv.sci b/scilab/modules/scilab2fortran/macros/typconv.sci
deleted file mode 100644 (file)
index d9e0331..0000000
+++ /dev/null
@@ -1,60 +0,0 @@
-// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) ????-2008 - 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-en.txt
-
-
-function [s,nwrk,txt]=typconv(s,nwrk,typ)
-//[s1,te1,t1,m1,n1]=s(1:5);
-//!
-txt=[]
-if typ=='1'&s(3)=='0' then
-  if s(4)=='1'&s(5)=='1' then
-    if isnum(s(1)) then s(1)=s(1)+'D0',else s(1)='dble('+s(1)+')',end
-  else
-    if part(s(1),1:6)=='iwork(' then
-      pti=part(s(1),7:length(s(1))-1)
-      in='iwork'
-    else
-      pti='0'
-      in=s(1)
-    end
-    [outn,nwrk,txt]=getwrk(nwrk,'1',s(4),s(5))
-    out='work'
-    pto1=part(outn,6:length(outn)-1),
-    [lbl,nwrk]=newlab(nwrk)
-    tl1=string(10*lbl);
-    var='ilb'+tl1;
-    t1=' '+out+'('+addf(pto1,var)+')=dble('+in+'('+addf(pti,var)+'))'
-    txt=[txt;' do '+tl1+' '+var+' = 0,'+subf(mulf(s(4),s(5)),'1');
-           indentfor(t1);part(tl1+'    ',1:6)+' continue']
-
-  end
-elseif typ=='0'&s(3)=='1' then
-  if s(4)=='1'&s(5)=='1' then
-    s(1)='int('+s(1)+')'
-  else
-    if part(s(1),1:5)=='work(' then
-      pti=part(s(1),6:length(s(1))-1)
-      in='work'
-    else
-      pti='0'
-      in=s(1)
-    end
-    [outn,nwrk,txt]=getwrk(nwrk,'0',s(4),s(5))
-    out='iwork'
-    pto1=part(outn,7:length(outn)-1),
-    [lbl,nwrk]=newlab(nwrk)
-    tl1=string(10*lbl);
-    var='ilb'+tl1;
-    t1=' '+out+'('+addf(pto1,var)+')=int('+in+'('+addf(pti,var)+'))'
-    txt=[txt;' do '+tl1+' '+var+' = 0,'+subf(mulf(s(4),s(5)),'1');
-           indentfor(t1);part(tl1+'    ',1:6)+' continue']
-
-  end
-end
-endfunction
diff --git a/scilab/modules/scilab2fortran/readme.txt b/scilab/modules/scilab2fortran/readme.txt
deleted file mode 100644 (file)
index 829ebf2..0000000
+++ /dev/null
@@ -1,4 +0,0 @@
-readme.txt about scilab2fortran module
-
-This directory contains all utility macros for the basic
-macro mac2for.
\ No newline at end of file
diff --git a/scilab/modules/scilab2fortran/scilab2fortran.iss b/scilab/modules/scilab2fortran/scilab2fortran.iss
deleted file mode 100644 (file)
index 72e629b..0000000
+++ /dev/null
@@ -1,44 +0,0 @@
-; Scilab ( http://mwww.scilab.org/ ) - This file is part of Scilab
-; Copyright (C) 2007-2008 - INRIA - Allan CORNET
-;
-; This file must be used under the terms of the CeCILL.
-; This source file is licensed as described in the file COPYING, which
-; you should have received as part of this distribution.  The terms
-; are also available at
-; http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
-
-
-;##############################################################################################################
-; Script d'installation Inno Setup (5.2.1) pour scilab
-; Version TRUNK
-;##############################################################################################################
-;--------------------------------------------------------------------------------------------------------------
-; scilab2fortran module
-;--------------------------------------------------------------------------------------------------------------
-;
-#define SCI2FOR "scilab2fortran"
-;
-Source: modules\{#SCI2FOR}\VERSION.xml; DestDir: {app}\modules\{#SCI2FOR}; Components: {#COMPN_SCI2FOR}
-Source: modules\{#SCI2FOR}\readme.txt; DestDir: {app}\modules\{#SCI2FOR}; Components: {#COMPN_SCI2FOR}
-Source: modules\{#SCI2FOR}\license.txt; DestDir: {app}\modules\{#SCI2FOR}; Components: {#COMPN_SCI2FOR}
-Source: modules\{#SCI2FOR}\changelog.txt; DestDir: {app}\modules\{#SCI2FOR}; Components: {#COMPN_SCI2FOR}
-;
-Source: modules\{#SCI2FOR}\etc\{#SCI2FOR}.quit; DestDir: {app}\modules\{#SCI2FOR}\etc; Components: {#COMPN_SCI2FOR}
-Source: modules\{#SCI2FOR}\etc\{#SCI2FOR}.start; DestDir: {app}\modules\{#SCI2FOR}\etc; Components: {#COMPN_SCI2FOR}
-;
-Source: modules\{#SCI2FOR}\help\addchapter.sce; DestDir: {app}\modules\{#SCI2FOR}\help; Flags: recursesubdirs; Components:  {#COMPN_SCI2FOR}
-;
-;
-Source: modules\{#SCI2FOR}\macros\lib; DestDir: {app}\modules\{#SCI2FOR}\macros; Components: {#COMPN_SCI2FOR}
-Source: modules\{#SCI2FOR}\macros\names; DestDir: {app}\modules\{#SCI2FOR}\macros; Components: {#COMPN_SCI2FOR}
-Source: modules\{#SCI2FOR}\macros\*.bin; DestDir: {app}\modules\{#SCI2FOR}\macros; Components: {#COMPN_SCI2FOR}
-Source: modules\{#SCI2FOR}\macros\*.sci; DestDir: {app}\modules\{#SCI2FOR}\macros; Components: {#COMPN_SCI2FOR}
-Source: modules\{#SCI2FOR}\macros\buildmacros.sce; DestDir: {app}\modules\{#SCI2FOR}\macros; Components: {#COMPN_SCI2FOR}
-Source: modules\{#SCI2FOR}\macros\buildmacros.bat; DestDir: {app}\modules\{#SCI2FOR}\macros; Components: {#COMPN_SCI2FOR}
-Source: modules\{#SCI2FOR}\macros\cleanmacros.bat; DestDir: {app}\modules\{#SCI2FOR}\macros; Components: {#COMPN_SCI2FOR}
-;
-Source: modules\{#SCI2FOR}\demos\*.*; DestDir: {app}\modules\{#SCI2FOR}\demos; Flags: recursesubdirs; Components: {#COMPN_SCI2FOR}
-;
-;Source: modules\{#SCI2FOR}\tests\*.*; DestDir: {app}\modules\{#SCI2FOR}\tests; Flags: recursesubdirs; Components:{#COMPN_SCI2FOR} and {#COMPN_TESTS}
-;
-;--------------------------------------------------------------------------------------------------------------
diff --git a/scilab/modules/scilab2fortran/version.xml b/scilab/modules/scilab2fortran/version.xml
deleted file mode 100644 (file)
index 87c7477..0000000
+++ /dev/null
@@ -1,28 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>
-<!--
- * Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
- * Copyright (C) 2007-2008 - INRIA - Sylvestre LEDRU
- * Copyright (C) 2007-2008 - INRIA - Allan CORNET
- *
- * This file must be used under the terms of the CeCILL.
- * This source file is licensed as described in the file COPYING, which
- * you should have received as part of this distribution.  The terms
- * are also available at
- * http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
- *
- -->
-
-<!DOCTYPE MODULE_VERSION SYSTEM "../core/xml/version.dtd">
-<MODULE_VERSION name="scilab2fortran">
-<!-- =================== -->
-<!--
- Scilab
- Defines the version of a module
-
-  ===================
-
--->
-<!-- =================== -->
-
-<VERSION major="5" minor="1" maintenance="0" revision="0" string="unstable-svn" />
-</MODULE_VERSION>
\ No newline at end of file