Remove old string module
Pierre Marechal [Mon, 4 Feb 2008 15:06:35 +0000 (15:06 +0000)]
182 files changed:
scilab/modules/string/Makefile.am [deleted file]
scilab/modules/string/Makefile.in [deleted file]
scilab/modules/string/bench_strcmp.tst [deleted file]
scilab/modules/string/changelog.txt [deleted file]
scilab/modules/string/etc/string.quit [deleted file]
scilab/modules/string/etc/string.start [deleted file]
scilab/modules/string/help/en_US/addchapter.sce [deleted file]
scilab/modules/string/help/en_US/ascii.xml [deleted file]
scilab/modules/string/help/en_US/blanks.xml [deleted file]
scilab/modules/string/help/en_US/code2str.xml [deleted file]
scilab/modules/string/help/en_US/convstr.xml [deleted file]
scilab/modules/string/help/en_US/emptystr.xml [deleted file]
scilab/modules/string/help/en_US/grep.xml [deleted file]
scilab/modules/string/help/en_US/justify.xml [deleted file]
scilab/modules/string/help/en_US/length.xml [deleted file]
scilab/modules/string/help/en_US/part.xml [deleted file]
scilab/modules/string/help/en_US/sci2exp.xml [deleted file]
scilab/modules/string/help/en_US/str2code.xml [deleted file]
scilab/modules/string/help/en_US/strcat.xml [deleted file]
scilab/modules/string/help/en_US/strindex.xml [deleted file]
scilab/modules/string/help/en_US/string.xml [deleted file]
scilab/modules/string/help/en_US/strings.xml [deleted file]
scilab/modules/string/help/en_US/stripblanks.xml [deleted file]
scilab/modules/string/help/en_US/strsplit.xml [deleted file]
scilab/modules/string/help/en_US/strsubst.xml [deleted file]
scilab/modules/string/help/en_US/tokenpos.xml [deleted file]
scilab/modules/string/help/en_US/tokens.xml [deleted file]
scilab/modules/string/help/en_US/tree2code.xml [deleted file]
scilab/modules/string/includes/InitializeString.h [deleted file]
scilab/modules/string/includes/cvstr.h [deleted file]
scilab/modules/string/includes/getfastcode.h [deleted file]
scilab/modules/string/includes/gw_string.h [deleted file]
scilab/modules/string/includes/men_Sutils.h [deleted file]
scilab/modules/string/includes/stricmp.h [deleted file]
scilab/modules/string/license.txt [deleted file]
scilab/modules/string/locales/en_US/string.pot [deleted file]
scilab/modules/string/macros/arobasestring2strings.sci [deleted file]
scilab/modules/string/macros/ascii2string.sci [deleted file]
scilab/modules/string/macros/blanks.sci [deleted file]
scilab/modules/string/macros/buildmacros.bat [deleted file]
scilab/modules/string/macros/buildmacros.sce [deleted file]
scilab/modules/string/macros/cat_code.sci [deleted file]
scilab/modules/string/macros/cleanmacros.bat [deleted file]
scilab/modules/string/macros/eval.sci [deleted file]
scilab/modules/string/macros/evstr.sci [deleted file]
scilab/modules/string/macros/expression2code.sci [deleted file]
scilab/modules/string/macros/instruction2code.sci [deleted file]
scilab/modules/string/macros/justify.sci [deleted file]
scilab/modules/string/macros/rhs2code.sci [deleted file]
scilab/modules/string/macros/sci2exp.sci [deleted file]
scilab/modules/string/macros/tokenpos.sci [deleted file]
scilab/modules/string/macros/tree2code.sci [deleted file]
scilab/modules/string/readme.txt [deleted file]
scilab/modules/string/sci_gateway/c/gw_string.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_ascii.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_code2str.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_convstr.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_emptystr.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_grep.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_length.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_part.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_str2code.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_strcat.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_strindex.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_string.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_stripblanks.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_strsplit.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_strsubst.c [deleted file]
scilab/modules/string/sci_gateway/c/sci_tokens.c [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_ascii.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_code2str.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_convstr.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_emptystr.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_grep.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_length.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_part.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_sort.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_str2code.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_strcat.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_strindex.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_string.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_strsplit.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_strsubst.f [deleted file]
scilab/modules/string/sci_gateway/fortran/sci_tokens.f [deleted file]
scilab/modules/string/sci_gateway/fortran/strops.f [deleted file]
scilab/modules/string/sci_gateway/string_gateway.xml [deleted file]
scilab/modules/string/src/c/InitializeString.c [deleted file]
scilab/modules/string/src/c/LibScilab_Import.def [deleted file]
scilab/modules/string/src/c/cvstr.c [deleted file]
scilab/modules/string/src/c/getfastcode.c [deleted file]
scilab/modules/string/src/c/men_Sutils.c [deleted file]
scilab/modules/string/src/c/setScilabCharactersCodes.c [deleted file]
scilab/modules/string/src/c/setScilabCharactersCodes.h [deleted file]
scilab/modules/string/src/c/strcat-c.c [deleted file]
scilab/modules/string/src/c/string.vcproj [deleted file]
scilab/modules/string/src/c/string_f_Import.def [deleted file]
scilab/modules/string/src/c/string_header.def [deleted file]
scilab/modules/string/src/c/stripblanks.c [deleted file]
scilab/modules/string/src/c/stripblanks.h [deleted file]
scilab/modules/string/src/fortran/LibScilab_Import.def [deleted file]
scilab/modules/string/src/fortran/strdsp.f [deleted file]
scilab/modules/string/src/fortran/string_Import.def [deleted file]
scilab/modules/string/src/fortran/string_f.vfproj [deleted file]
scilab/modules/string/src/fortran/string_f2c.vcproj [deleted file]
scilab/modules/string/src/fortran/string_f_header.def [deleted file]
scilab/modules/string/src/fortran/strord.f [deleted file]
scilab/modules/string/string.iss [deleted file]
scilab/modules/string/tests/benchmarks/ascii_code.txt [deleted file]
scilab/modules/string/tests/benchmarks/ascii_text.txt [deleted file]
scilab/modules/string/tests/benchmarks/bench_ascii_1.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_ascii_2.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_ascii_3.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_ascii_4.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_blanks.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_code2str.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_convstr.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_emptrystr.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_grep.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_justify_1.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_justify_2.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_length.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_part.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_str2code.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_strcat.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_strindex.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_string.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_stripblanks.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_stripblanks_1.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_stripblanks_2.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_stripblanks_3.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_stripblanks_4.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_strsplit.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_strsubst.tst [deleted file]
scilab/modules/string/tests/benchmarks/bench_tokens.tst [deleted file]
scilab/modules/string/tests/nonreg_tests/bug_1802.dia.ref [deleted file]
scilab/modules/string/tests/nonreg_tests/bug_1802.tst [deleted file]
scilab/modules/string/tests/nonreg_tests/bug_2322.dia.ref [deleted file]
scilab/modules/string/tests/nonreg_tests/bug_2322.tst [deleted file]
scilab/modules/string/tests/nonreg_tests/bug_2410.dia.ref [deleted file]
scilab/modules/string/tests/nonreg_tests/bug_2410.tst [deleted file]
scilab/modules/string/tests/nonreg_tests/bug_2414.dia.ref [deleted file]
scilab/modules/string/tests/nonreg_tests/bug_2414.tst [deleted file]
scilab/modules/string/tests/nonreg_tests/bug_55.dia.ref [deleted file]
scilab/modules/string/tests/nonreg_tests/bug_55.tst [deleted file]
scilab/modules/string/tests/unit_tests/ascii.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/ascii.tst [deleted file]
scilab/modules/string/tests/unit_tests/base.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/base.tst [deleted file]
scilab/modules/string/tests/unit_tests/blanks.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/blanks.tst [deleted file]
scilab/modules/string/tests/unit_tests/code2str.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/code2str.tst [deleted file]
scilab/modules/string/tests/unit_tests/convstr.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/convstr.tst [deleted file]
scilab/modules/string/tests/unit_tests/emptystr.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/emptystr.tst [deleted file]
scilab/modules/string/tests/unit_tests/grep.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/grep.tst [deleted file]
scilab/modules/string/tests/unit_tests/length.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/length.tst [deleted file]
scilab/modules/string/tests/unit_tests/mulf.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/mulf.tst [deleted file]
scilab/modules/string/tests/unit_tests/part.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/part.tst [deleted file]
scilab/modules/string/tests/unit_tests/str2code.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/str2code.tst [deleted file]
scilab/modules/string/tests/unit_tests/strcat.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/strcat.tst [deleted file]
scilab/modules/string/tests/unit_tests/strindex.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/strindex.tst [deleted file]
scilab/modules/string/tests/unit_tests/string.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/string.tst [deleted file]
scilab/modules/string/tests/unit_tests/stripblanks.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/stripblanks.tst [deleted file]
scilab/modules/string/tests/unit_tests/strsplit.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/strsplit.tst [deleted file]
scilab/modules/string/tests/unit_tests/strsubst.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/strsubst.tst [deleted file]
scilab/modules/string/tests/unit_tests/text.txt [deleted file]
scilab/modules/string/tests/unit_tests/tokens.dia.ref [deleted file]
scilab/modules/string/tests/unit_tests/tokens.tst [deleted file]
scilab/modules/string/version.xml [deleted file]

diff --git a/scilab/modules/string/Makefile.am b/scilab/modules/string/Makefile.am
deleted file mode 100644 (file)
index df75502..0000000
+++ /dev/null
@@ -1,98 +0,0 @@
-##########
-### Sylvestre Ledru <sylvestre.ledru@inria.fr>
-### INRIA - Scilab 2006
-##########
-
-STRING_C_SOURCES = src/c/strcat-c.c \
-src/c/men_Sutils.c \
-src/c/stripblanks.c \
-src/c/InitializeString.c \
-src/c/setScilabCharactersCodes.c \
-src/c/cvstr.c \
-src/c/getfastcode.c
-
-STRING_FORTRAN_SOURCES =src/fortran/strord.f src/fortran/strdsp.f
-
-GATEWAY_C_SOURCES = sci_gateway/c/sci_strindex.c \
-sci_gateway/c/sci_strcat.c \
-sci_gateway/c/sci_tokens.c \
-sci_gateway/c/gw_string.c \
-sci_gateway/c/sci_string.c \
-sci_gateway/c/sci_part.c \
-sci_gateway/c/sci_length.c \
-sci_gateway/c/sci_strsplit.c \
-sci_gateway/c/sci_str2code.c \
-sci_gateway/c/sci_code2str.c \
-sci_gateway/c/sci_emptystr.c \
-sci_gateway/c/sci_ascii.c \
-sci_gateway/c/sci_strsubst.c \
-sci_gateway/c/sci_grep.c \
-sci_gateway/c/sci_convstr.c \
-sci_gateway/c/sci_stripblanks.c
-
-
-GATEWAY_FORTRAN_SOURCES =  sci_gateway/fortran/sci_convstr.f \
-sci_gateway/fortran/sci_grep.f \
-sci_gateway/fortran/sci_strindex.f \
-sci_gateway/fortran/sci_strcat.f \
-sci_gateway/fortran/sci_tokens.f \
-sci_gateway/fortran/sci_string.f \
-sci_gateway/fortran/sci_part.f \
-sci_gateway/fortran/sci_length.f \
-sci_gateway/fortran/sci_strsplit.f \
-sci_gateway/fortran/sci_str2code.f \
-sci_gateway/fortran/sci_code2str.f \
-sci_gateway/fortran/sci_emptystr.f \
-sci_gateway/fortran/sci_ascii.f \
-sci_gateway/fortran/sci_strsubst.f \
-sci_gateway/fortran/strops.f
-
-libscistring_la_CFLAGS=        -Isrc/c \
-                               -Iincludes/ \
-                               -I$(top_srcdir)/libs/MALLOC/includes/ \
-                               -I$(top_srcdir)/modules/output_stream/includes
-
-pkglib_LTLIBRARIES = libscistring.la
-
-if STRING_V1
-libscistring_la_SOURCES = $(STRING_C_SOURCES) $(STRING_FORTRAN_SOURCES) $(GATEWAY_C_SOURCES) $(GATEWAY_FORTRAN_SOURCES)
-else
-libscistring_la_SOURCES = 
-endif
-
-libscistring_la_LIBADD = \
-       $(top_builddir)/modules/polynomials/libscipolynomials.la \
-       $(top_builddir)/libs/MALLOC/libscimalloc.la
-# Cyclic deps
-#      $(top_builddir)/modules/core/libscicore.la
-
-
-
-
-
-#### Target ######
-modulename=string
-
-
-#### string : Conf files ####
-libscistring_la_rootdir = $(mydatadir)
-libscistring_la_root_DATA = changelog.txt license.txt readme.txt version.xml
-
-#### string : init scripts ####
-libscistring_la_etcdir = $(mydatadir)/etc
-libscistring_la_etc_DATA = etc/string.quit etc/string.start
-
-#### string : gateway declaration ####
-libscistring_la_sci_gatewaydir = $(mydatadir)/sci_gateway
-libscistring_la_sci_gateway_DATA = sci_gateway/string_gateway.xml
-
-#### string : include files ####
-libscistring_la_includedir=$(pkgincludedir)/string
-libscistring_la_include_HEADERS = includes/men_Sutils.h \
-includes/gw_string.h \
-includes/InitializeString.h \
-includes/cvstr.h \
-includes/getfastcode.h
-
-
-include $(top_srcdir)/Makefile.incl.am
diff --git a/scilab/modules/string/Makefile.in b/scilab/modules/string/Makefile.in
deleted file mode 100644 (file)
index de52abc..0000000
+++ /dev/null
@@ -1,1257 +0,0 @@
-# Makefile.in generated by automake 1.10 from Makefile.am.
-# @configure_input@
-
-# Copyright (C) 1994, 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002,
-# 2003, 2004, 2005, 2006  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
-##########
-
-##########
-### Sylvestre Ledru <sylvestre.ledru@inria.fr>
-### INRIA - Scilab 2006/2007
-### 
-### 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 = $(libscistring_la_include_HEADERS) $(srcdir)/Makefile.am \
-       $(srcdir)/Makefile.in $(top_srcdir)/Makefile.incl.am
-@GUI_TRUE@am__append_1 = java
-@SWIG_TRUE@am__append_2 = swig
-@GIWS_TRUE@am__append_3 = giws
-subdir = modules/string
-ACLOCAL_M4 = $(top_srcdir)/aclocal.m4
-am__aclocal_m4_deps = $(top_srcdir)/m4/fftw.m4 \
-       $(top_srcdir)/m4/fortran.m4 $(top_srcdir)/m4/giws.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/ltoptions.m4 \
-       $(top_srcdir)/m4/ltsugar.m4 $(top_srcdir)/m4/ltversion.m4 \
-       $(top_srcdir)/m4/mpi.m4 $(top_srcdir)/m4/ocaml.m4 \
-       $(top_srcdir)/m4/pcre.m4 $(top_srcdir)/m4/pvm.m4 \
-       $(top_srcdir)/m4/relocatable.m4 $(top_srcdir)/m4/sciman.m4 \
-       $(top_srcdir)/m4/swig.m4 $(top_srcdir)/m4/symlinks.m4 \
-       $(top_srcdir)/m4/tcltk.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 =
-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)$(pkglibdir)" \
-       "$(DESTDIR)$(libscistring_la_etcdir)" \
-       "$(DESTDIR)$(libscistring_la_rootdir)" \
-       "$(DESTDIR)$(libscistring_la_sci_gatewaydir)" \
-       "$(DESTDIR)$(libscistring_la_includedir)"
-pkglibLTLIBRARIES_INSTALL = $(INSTALL)
-LTLIBRARIES = $(pkglib_LTLIBRARIES)
-libscistring_la_DEPENDENCIES =  \
-       $(top_builddir)/modules/polynomials/libscipolynomials.la \
-       $(top_builddir)/libs/MALLOC/libscimalloc.la
-am__libscistring_la_SOURCES_DIST = src/c/strcat-c.c src/c/men_Sutils.c \
-       src/c/stripblanks.c src/c/InitializeString.c \
-       src/c/setScilabCharactersCodes.c src/c/cvstr.c \
-       src/c/getfastcode.c src/fortran/strord.f src/fortran/strdsp.f \
-       sci_gateway/c/sci_strindex.c sci_gateway/c/sci_strcat.c \
-       sci_gateway/c/sci_tokens.c sci_gateway/c/gw_string.c \
-       sci_gateway/c/sci_string.c sci_gateway/c/sci_part.c \
-       sci_gateway/c/sci_length.c sci_gateway/c/sci_strsplit.c \
-       sci_gateway/c/sci_str2code.c sci_gateway/c/sci_code2str.c \
-       sci_gateway/c/sci_emptystr.c sci_gateway/c/sci_ascii.c \
-       sci_gateway/c/sci_strsubst.c sci_gateway/c/sci_grep.c \
-       sci_gateway/c/sci_convstr.c sci_gateway/c/sci_stripblanks.c \
-       sci_gateway/fortran/sci_convstr.f \
-       sci_gateway/fortran/sci_grep.f \
-       sci_gateway/fortran/sci_strindex.f \
-       sci_gateway/fortran/sci_strcat.f \
-       sci_gateway/fortran/sci_tokens.f \
-       sci_gateway/fortran/sci_string.f \
-       sci_gateway/fortran/sci_part.f \
-       sci_gateway/fortran/sci_length.f \
-       sci_gateway/fortran/sci_strsplit.f \
-       sci_gateway/fortran/sci_str2code.f \
-       sci_gateway/fortran/sci_code2str.f \
-       sci_gateway/fortran/sci_emptystr.f \
-       sci_gateway/fortran/sci_ascii.f \
-       sci_gateway/fortran/sci_strsubst.f \
-       sci_gateway/fortran/strops.f
-am__objects_1 = libscistring_la-strcat-c.lo \
-       libscistring_la-men_Sutils.lo libscistring_la-stripblanks.lo \
-       libscistring_la-InitializeString.lo \
-       libscistring_la-setScilabCharactersCodes.lo \
-       libscistring_la-cvstr.lo libscistring_la-getfastcode.lo
-am__objects_2 = strord.lo strdsp.lo
-am__objects_3 = libscistring_la-sci_strindex.lo \
-       libscistring_la-sci_strcat.lo libscistring_la-sci_tokens.lo \
-       libscistring_la-gw_string.lo libscistring_la-sci_string.lo \
-       libscistring_la-sci_part.lo libscistring_la-sci_length.lo \
-       libscistring_la-sci_strsplit.lo \
-       libscistring_la-sci_str2code.lo \
-       libscistring_la-sci_code2str.lo \
-       libscistring_la-sci_emptystr.lo libscistring_la-sci_ascii.lo \
-       libscistring_la-sci_strsubst.lo libscistring_la-sci_grep.lo \
-       libscistring_la-sci_convstr.lo \
-       libscistring_la-sci_stripblanks.lo
-am__objects_4 = sci_convstr.lo sci_grep.lo sci_strindex.lo \
-       sci_strcat.lo sci_tokens.lo sci_string.lo sci_part.lo \
-       sci_length.lo sci_strsplit.lo sci_str2code.lo sci_code2str.lo \
-       sci_emptystr.lo sci_ascii.lo sci_strsubst.lo strops.lo
-@STRING_V1_TRUE@am_libscistring_la_OBJECTS = $(am__objects_1) \
-@STRING_V1_TRUE@       $(am__objects_2) $(am__objects_3) \
-@STRING_V1_TRUE@       $(am__objects_4)
-libscistring_la_OBJECTS = $(am_libscistring_la_OBJECTS)
-DEFAULT_INCLUDES = -I. -I$(top_builddir)/modules/core/includes@am__isrc@
-depcomp = $(SHELL) $(top_srcdir)/config/depcomp
-am__depfiles_maybe = depfiles
-COMPILE = $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) \
-       $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
-LTCOMPILE = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
-       --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) \
-       $(AM_CPPFLAGS) $(CPPFLAGS) $(AM_CFLAGS) $(CFLAGS)
-CCLD = $(CC)
-LINK = $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
-       --mode=link $(CCLD) $(AM_CFLAGS) $(CFLAGS) $(AM_LDFLAGS) \
-       $(LDFLAGS) -o $@
-F77COMPILE = $(F77) $(AM_FFLAGS) $(FFLAGS)
-LTF77COMPILE = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
-       --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS)
-F77LD = $(F77)
-F77LINK = $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) \
-       --mode=link $(F77LD) $(AM_FFLAGS) $(FFLAGS) $(AM_LDFLAGS) \
-       $(LDFLAGS) -o $@
-SOURCES = $(libscistring_la_SOURCES)
-DIST_SOURCES = $(am__libscistring_la_SOURCES_DIST)
-libscistring_la_etcDATA_INSTALL = $(INSTALL_DATA)
-libscistring_la_rootDATA_INSTALL = $(INSTALL_DATA)
-libscistring_la_sci_gatewayDATA_INSTALL = $(INSTALL_DATA)
-DATA = $(libscistring_la_etc_DATA) $(libscistring_la_root_DATA) \
-       $(libscistring_la_sci_gateway_DATA)
-libscistring_la_includeHEADERS_INSTALL = $(INSTALL_HEADER)
-HEADERS = $(libscistring_la_include_HEADERS)
-ETAGS = etags
-CTAGS = ctags
-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@
-AWK = @AWK@
-BLAS_LIBS = @BLAS_LIBS@
-CC = @CC@
-CCDEPMODE = @CCDEPMODE@
-CFLAGS = @CFLAGS@
-COMMONS_LOGGING = @COMMONS_LOGGING@
-CPP = @CPP@
-CPPFLAGS = @CPPFLAGS@
-CXX = @CXX@
-CXXCPP = @CXXCPP@
-CXXDEPMODE = @CXXDEPMODE@
-CXXFLAGS = @CXXFLAGS@
-CYGPATH_W = @CYGPATH_W@
-DEFS = @DEFS@
-DEPDIR = @DEPDIR@
-DUMPBIN = @DUMPBIN@
-ECHO_C = @ECHO_C@
-ECHO_N = @ECHO_N@
-ECHO_T = @ECHO_T@
-EGREP = @EGREP@
-EXEEXT = @EXEEXT@
-F77 = @F77@
-FFLAGS = @FFLAGS@
-FFTW3_LIB = @FFTW3_LIB@
-FGREP = @FGREP@
-FLEXDOCK = @FLEXDOCK@
-FLIBS = @FLIBS@
-GIWS_BIN = @GIWS_BIN@
-GLUEGEN_RT = @GLUEGEN_RT@
-GREP = @GREP@
-INSTALL = @INSTALL@
-INSTALL_DATA = @INSTALL_DATA@
-INSTALL_PROGRAM = @INSTALL_PROGRAM@
-INSTALL_SCRIPT = @INSTALL_SCRIPT@
-INSTALL_STRIP_PROGRAM = @INSTALL_STRIP_PROGRAM@
-JAR = @JAR@
-JAVA = @JAVA@
-JAVAC = @JAVAC@
-JAVAH = @JAVAH@
-JAVA_G = @JAVA_G@
-JAVA_HOME = @JAVA_HOME@
-JAVA_JNI_INCLUDE = @JAVA_JNI_INCLUDE@
-JAVA_JNI_LIBS = @JAVA_JNI_LIBS@
-JDB = @JDB@
-JOGL = @JOGL@
-JROSETTA_API = @JROSETTA_API@
-JROSETTA_ENGINE = @JROSETTA_ENGINE@
-LAPACK_LIBS = @LAPACK_LIBS@
-LD = @LD@
-LDFLAGS = @LDFLAGS@
-LIBOBJS = @LIBOBJS@
-LIBS = @LIBS@
-LIBTOOL = @LIBTOOL@
-LN_S = @LN_S@
-LTLIBOBJS = @LTLIBOBJS@
-MAINT = @MAINT@
-MAKEINFO = @MAKEINFO@
-MANGENERATOR = @MANGENERATOR@
-MKDIR_P = @MKDIR_P@
-MSGCAT = @MSGCAT@
-MSGFMT = @MSGFMT@
-NM = @NM@
-OBJEXT = @OBJEXT@
-OCAMLC = @OCAMLC@
-OCAMLDEP = @OCAMLDEP@
-OCAMLOPT = @OCAMLOPT@
-OPENMPI_CC = @OPENMPI_CC@
-OPENMPI_FLAGS = @OPENMPI_FLAGS@
-OPENMPI_LIBS = @OPENMPI_LIBS@
-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_CONFIG = @PCRE_CONFIG@
-PCRE_FLAGS = @PCRE_FLAGS@
-PCRE_LIBS = @PCRE_LIBS@
-PCRE_VERSION = @PCRE_VERSION@
-POW_LIB = @POW_LIB@
-PVMARCH = @PVMARCH@
-PVMGETARCH = @PVMGETARCH@
-PVM_INCLUDE = @PVM_INCLUDE@
-PVM_LIB = @PVM_LIB@
-PYTHON = @PYTHON@
-RANLIB = @RANLIB@
-RELOCATABLE = @RELOCATABLE@
-SED = @SED@
-SET_MAKE = @SET_MAKE@
-SET_RELOCATABLE = @SET_RELOCATABLE@
-SHELL = @SHELL@
-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@
-TERMCAP_LIB = @TERMCAP_LIB@
-TK_INC_PATH = @TK_INC_PATH@
-VERSION = @VERSION@
-WITH = @WITH@
-WITH_OCAML = @WITH_OCAML@
-XGETTEXT = @XGETTEXT@
-XMKMF = @XMKMF@
-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_DUMPBIN = @ac_ct_DUMPBIN@
-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@
-lt_ECHO = @lt_ECHO@
-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@
-tcldir = @tcldir@
-top_builddir = @top_builddir@
-top_srcdir = @top_srcdir@
-STRING_C_SOURCES = src/c/strcat-c.c \
-src/c/men_Sutils.c \
-src/c/stripblanks.c \
-src/c/InitializeString.c \
-src/c/setScilabCharactersCodes.c \
-src/c/cvstr.c \
-src/c/getfastcode.c
-
-STRING_FORTRAN_SOURCES = src/fortran/strord.f src/fortran/strdsp.f
-GATEWAY_C_SOURCES = sci_gateway/c/sci_strindex.c \
-sci_gateway/c/sci_strcat.c \
-sci_gateway/c/sci_tokens.c \
-sci_gateway/c/gw_string.c \
-sci_gateway/c/sci_string.c \
-sci_gateway/c/sci_part.c \
-sci_gateway/c/sci_length.c \
-sci_gateway/c/sci_strsplit.c \
-sci_gateway/c/sci_str2code.c \
-sci_gateway/c/sci_code2str.c \
-sci_gateway/c/sci_emptystr.c \
-sci_gateway/c/sci_ascii.c \
-sci_gateway/c/sci_strsubst.c \
-sci_gateway/c/sci_grep.c \
-sci_gateway/c/sci_convstr.c \
-sci_gateway/c/sci_stripblanks.c
-
-GATEWAY_FORTRAN_SOURCES = sci_gateway/fortran/sci_convstr.f \
-sci_gateway/fortran/sci_grep.f \
-sci_gateway/fortran/sci_strindex.f \
-sci_gateway/fortran/sci_strcat.f \
-sci_gateway/fortran/sci_tokens.f \
-sci_gateway/fortran/sci_string.f \
-sci_gateway/fortran/sci_part.f \
-sci_gateway/fortran/sci_length.f \
-sci_gateway/fortran/sci_strsplit.f \
-sci_gateway/fortran/sci_str2code.f \
-sci_gateway/fortran/sci_code2str.f \
-sci_gateway/fortran/sci_emptystr.f \
-sci_gateway/fortran/sci_ascii.f \
-sci_gateway/fortran/sci_strsubst.f \
-sci_gateway/fortran/strops.f
-
-libscistring_la_CFLAGS = -Isrc/c \
-                               -Iincludes/ \
-                               -I$(top_srcdir)/libs/MALLOC/includes/ \
-                               -I$(top_srcdir)/modules/output_stream/includes
-
-pkglib_LTLIBRARIES = libscistring.la
-@STRING_V1_FALSE@libscistring_la_SOURCES = 
-@STRING_V1_TRUE@libscistring_la_SOURCES = $(STRING_C_SOURCES) $(STRING_FORTRAN_SOURCES) $(GATEWAY_C_SOURCES) $(GATEWAY_FORTRAN_SOURCES)
-libscistring_la_LIBADD = \
-       $(top_builddir)/modules/polynomials/libscipolynomials.la \
-       $(top_builddir)/libs/MALLOC/libscimalloc.la
-
-# Cyclic deps
-#      $(top_builddir)/modules/core/libscicore.la
-
-#### Target ######
-modulename = string
-
-#### string : Conf files ####
-libscistring_la_rootdir = $(mydatadir)
-libscistring_la_root_DATA = changelog.txt license.txt readme.txt version.xml
-
-#### string : init scripts ####
-libscistring_la_etcdir = $(mydatadir)/etc
-libscistring_la_etc_DATA = etc/string.quit etc/string.start
-
-#### string : gateway declaration ####
-libscistring_la_sci_gatewaydir = $(mydatadir)/sci_gateway
-libscistring_la_sci_gateway_DATA = sci_gateway/string_gateway.xml
-
-#### string : include files ####
-libscistring_la_includedir = $(pkgincludedir)/string
-libscistring_la_include_HEADERS = includes/men_Sutils.h \
-includes/gw_string.h \
-includes/InitializeString.h \
-includes/cvstr.h \
-includes/getfastcode.h
-
-
-# Where all the Scilab stuff is installed (macros, help, ...)
-mydatadir = $(pkgdatadir)/modules/$(modulename)
-
-########################### 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) $(am__append_2) $(am__append_3)
-
-################ MACROS ######################"
-# Rule to build a macro
-# NOT USED  AT THE MOMENT
-SUFFIXES = .sci 
-
-########### INSTALL DOCUMENTATION ###################
-# Install HTML 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)
-
-# Which directories we have to install
-DOCDIRS = help/fr_FR help/en_US
-# What is the mask of the help output
-DOCMASK = *.htm
-
-# Which directories we have to install
-DOCIMGDIRS = help/images
-# What is the mask of the help images
-DOCIMGMASK = *
-
-# What is the mask of the help source
-DOCMASKXML = *.xml
-
-########### INSTALL DATA ###################
-# Install macros
-# 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 function of a module
-TESTS_DIR = tests/benchmarks tests/nonreg_tests tests/unit_tests
-# Chapter file 
-HELP_CHAPTERDIR = help/en_US/
-HELP_CHAPTERFILE = addchapter.sce
-# Where to export JAVA files (.jar)
-JARDIR = jar/
-# JAR files
-JARMASK = *.jar
-all: all-am
-
-.SUFFIXES:
-.SUFFIXES: .sci .bin .c .f .lo .o .obj
-$(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 \
-               && exit 0; \
-             exit 1;; \
-         esac; \
-       done; \
-       echo ' cd $(top_srcdir) && $(AUTOMAKE) --foreign  modules/string/Makefile'; \
-       cd $(top_srcdir) && \
-         $(AUTOMAKE) --foreign  modules/string/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
-install-pkglibLTLIBRARIES: $(pkglib_LTLIBRARIES)
-       @$(NORMAL_INSTALL)
-       test -z "$(pkglibdir)" || $(MKDIR_P) "$(DESTDIR)$(pkglibdir)"
-       @list='$(pkglib_LTLIBRARIES)'; for p in $$list; do \
-         if test -f $$p; then \
-           f=$(am__strip_dir) \
-           echo " $(LIBTOOL) --mode=install $(pkglibLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) '$$p' '$(DESTDIR)$(pkglibdir)/$$f'"; \
-           $(LIBTOOL) --mode=install $(pkglibLTLIBRARIES_INSTALL) $(INSTALL_STRIP_FLAG) "$$p" "$(DESTDIR)$(pkglibdir)/$$f"; \
-         else :; fi; \
-       done
-
-uninstall-pkglibLTLIBRARIES:
-       @$(NORMAL_UNINSTALL)
-       @list='$(pkglib_LTLIBRARIES)'; for p in $$list; do \
-         p=$(am__strip_dir) \
-         echo " $(LIBTOOL) --mode=uninstall rm -f '$(DESTDIR)$(pkglibdir)/$$p'"; \
-         $(LIBTOOL) --mode=uninstall rm -f "$(DESTDIR)$(pkglibdir)/$$p"; \
-       done
-
-clean-pkglibLTLIBRARIES:
-       -test -z "$(pkglib_LTLIBRARIES)" || rm -f $(pkglib_LTLIBRARIES)
-       @list='$(pkglib_LTLIBRARIES)'; for p in $$list; do \
-         dir="`echo $$p | sed -e 's|/[^/]*$$||'`"; \
-         test "$$dir" != "$$p" || dir=.; \
-         echo "rm -f \"$${dir}/so_locations\""; \
-         rm -f "$${dir}/so_locations"; \
-       done
-libscistring.la: $(libscistring_la_OBJECTS) $(libscistring_la_DEPENDENCIES) 
-       $(F77LINK) -rpath $(pkglibdir) $(libscistring_la_OBJECTS) $(libscistring_la_LIBADD) $(LIBS)
-
-mostlyclean-compile:
-       -rm -f *.$(OBJEXT)
-
-distclean-compile:
-       -rm -f *.tab.c
-
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-InitializeString.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-cvstr.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-getfastcode.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-gw_string.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-men_Sutils.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_ascii.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_code2str.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_convstr.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_emptystr.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_grep.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_length.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_part.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_str2code.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_strcat.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_strindex.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_string.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_stripblanks.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_strsplit.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_strsubst.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-sci_tokens.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-setScilabCharactersCodes.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-strcat-c.Plo@am__quote@
-@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscistring_la-stripblanks.Plo@am__quote@
-
-.c.o:
-@am__fastdepCC_TRUE@   $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(COMPILE) -c $<
-
-.c.obj:
-@am__fastdepCC_TRUE@   $(COMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ `$(CYGPATH_W) '$<'`
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Po
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='$<' object='$@' libtool=no @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(COMPILE) -c `$(CYGPATH_W) '$<'`
-
-.c.lo:
-@am__fastdepCC_TRUE@   $(LTCOMPILE) -MT $@ -MD -MP -MF $(DEPDIR)/$*.Tpo -c -o $@ $<
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/$*.Tpo $(DEPDIR)/$*.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='$<' object='$@' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LTCOMPILE) -c -o $@ $<
-
-libscistring_la-strcat-c.lo: src/c/strcat-c.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-strcat-c.lo -MD -MP -MF $(DEPDIR)/libscistring_la-strcat-c.Tpo -c -o libscistring_la-strcat-c.lo `test -f 'src/c/strcat-c.c' || echo '$(srcdir)/'`src/c/strcat-c.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-strcat-c.Tpo $(DEPDIR)/libscistring_la-strcat-c.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/strcat-c.c' object='libscistring_la-strcat-c.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-strcat-c.lo `test -f 'src/c/strcat-c.c' || echo '$(srcdir)/'`src/c/strcat-c.c
-
-libscistring_la-men_Sutils.lo: src/c/men_Sutils.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-men_Sutils.lo -MD -MP -MF $(DEPDIR)/libscistring_la-men_Sutils.Tpo -c -o libscistring_la-men_Sutils.lo `test -f 'src/c/men_Sutils.c' || echo '$(srcdir)/'`src/c/men_Sutils.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-men_Sutils.Tpo $(DEPDIR)/libscistring_la-men_Sutils.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/men_Sutils.c' object='libscistring_la-men_Sutils.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-men_Sutils.lo `test -f 'src/c/men_Sutils.c' || echo '$(srcdir)/'`src/c/men_Sutils.c
-
-libscistring_la-stripblanks.lo: src/c/stripblanks.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-stripblanks.lo -MD -MP -MF $(DEPDIR)/libscistring_la-stripblanks.Tpo -c -o libscistring_la-stripblanks.lo `test -f 'src/c/stripblanks.c' || echo '$(srcdir)/'`src/c/stripblanks.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-stripblanks.Tpo $(DEPDIR)/libscistring_la-stripblanks.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/stripblanks.c' object='libscistring_la-stripblanks.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-stripblanks.lo `test -f 'src/c/stripblanks.c' || echo '$(srcdir)/'`src/c/stripblanks.c
-
-libscistring_la-InitializeString.lo: src/c/InitializeString.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-InitializeString.lo -MD -MP -MF $(DEPDIR)/libscistring_la-InitializeString.Tpo -c -o libscistring_la-InitializeString.lo `test -f 'src/c/InitializeString.c' || echo '$(srcdir)/'`src/c/InitializeString.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-InitializeString.Tpo $(DEPDIR)/libscistring_la-InitializeString.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/InitializeString.c' object='libscistring_la-InitializeString.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-InitializeString.lo `test -f 'src/c/InitializeString.c' || echo '$(srcdir)/'`src/c/InitializeString.c
-
-libscistring_la-setScilabCharactersCodes.lo: src/c/setScilabCharactersCodes.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-setScilabCharactersCodes.lo -MD -MP -MF $(DEPDIR)/libscistring_la-setScilabCharactersCodes.Tpo -c -o libscistring_la-setScilabCharactersCodes.lo `test -f 'src/c/setScilabCharactersCodes.c' || echo '$(srcdir)/'`src/c/setScilabCharactersCodes.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-setScilabCharactersCodes.Tpo $(DEPDIR)/libscistring_la-setScilabCharactersCodes.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/setScilabCharactersCodes.c' object='libscistring_la-setScilabCharactersCodes.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-setScilabCharactersCodes.lo `test -f 'src/c/setScilabCharactersCodes.c' || echo '$(srcdir)/'`src/c/setScilabCharactersCodes.c
-
-libscistring_la-cvstr.lo: src/c/cvstr.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-cvstr.lo -MD -MP -MF $(DEPDIR)/libscistring_la-cvstr.Tpo -c -o libscistring_la-cvstr.lo `test -f 'src/c/cvstr.c' || echo '$(srcdir)/'`src/c/cvstr.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-cvstr.Tpo $(DEPDIR)/libscistring_la-cvstr.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/cvstr.c' object='libscistring_la-cvstr.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-cvstr.lo `test -f 'src/c/cvstr.c' || echo '$(srcdir)/'`src/c/cvstr.c
-
-libscistring_la-getfastcode.lo: src/c/getfastcode.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-getfastcode.lo -MD -MP -MF $(DEPDIR)/libscistring_la-getfastcode.Tpo -c -o libscistring_la-getfastcode.lo `test -f 'src/c/getfastcode.c' || echo '$(srcdir)/'`src/c/getfastcode.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-getfastcode.Tpo $(DEPDIR)/libscistring_la-getfastcode.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/getfastcode.c' object='libscistring_la-getfastcode.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-getfastcode.lo `test -f 'src/c/getfastcode.c' || echo '$(srcdir)/'`src/c/getfastcode.c
-
-libscistring_la-sci_strindex.lo: sci_gateway/c/sci_strindex.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_strindex.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_strindex.Tpo -c -o libscistring_la-sci_strindex.lo `test -f 'sci_gateway/c/sci_strindex.c' || echo '$(srcdir)/'`sci_gateway/c/sci_strindex.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_strindex.Tpo $(DEPDIR)/libscistring_la-sci_strindex.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_strindex.c' object='libscistring_la-sci_strindex.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_strindex.lo `test -f 'sci_gateway/c/sci_strindex.c' || echo '$(srcdir)/'`sci_gateway/c/sci_strindex.c
-
-libscistring_la-sci_strcat.lo: sci_gateway/c/sci_strcat.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_strcat.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_strcat.Tpo -c -o libscistring_la-sci_strcat.lo `test -f 'sci_gateway/c/sci_strcat.c' || echo '$(srcdir)/'`sci_gateway/c/sci_strcat.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_strcat.Tpo $(DEPDIR)/libscistring_la-sci_strcat.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_strcat.c' object='libscistring_la-sci_strcat.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_strcat.lo `test -f 'sci_gateway/c/sci_strcat.c' || echo '$(srcdir)/'`sci_gateway/c/sci_strcat.c
-
-libscistring_la-sci_tokens.lo: sci_gateway/c/sci_tokens.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_tokens.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_tokens.Tpo -c -o libscistring_la-sci_tokens.lo `test -f 'sci_gateway/c/sci_tokens.c' || echo '$(srcdir)/'`sci_gateway/c/sci_tokens.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_tokens.Tpo $(DEPDIR)/libscistring_la-sci_tokens.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_tokens.c' object='libscistring_la-sci_tokens.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_tokens.lo `test -f 'sci_gateway/c/sci_tokens.c' || echo '$(srcdir)/'`sci_gateway/c/sci_tokens.c
-
-libscistring_la-gw_string.lo: sci_gateway/c/gw_string.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-gw_string.lo -MD -MP -MF $(DEPDIR)/libscistring_la-gw_string.Tpo -c -o libscistring_la-gw_string.lo `test -f 'sci_gateway/c/gw_string.c' || echo '$(srcdir)/'`sci_gateway/c/gw_string.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-gw_string.Tpo $(DEPDIR)/libscistring_la-gw_string.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/gw_string.c' object='libscistring_la-gw_string.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-gw_string.lo `test -f 'sci_gateway/c/gw_string.c' || echo '$(srcdir)/'`sci_gateway/c/gw_string.c
-
-libscistring_la-sci_string.lo: sci_gateway/c/sci_string.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_string.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_string.Tpo -c -o libscistring_la-sci_string.lo `test -f 'sci_gateway/c/sci_string.c' || echo '$(srcdir)/'`sci_gateway/c/sci_string.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_string.Tpo $(DEPDIR)/libscistring_la-sci_string.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_string.c' object='libscistring_la-sci_string.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_string.lo `test -f 'sci_gateway/c/sci_string.c' || echo '$(srcdir)/'`sci_gateway/c/sci_string.c
-
-libscistring_la-sci_part.lo: sci_gateway/c/sci_part.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_part.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_part.Tpo -c -o libscistring_la-sci_part.lo `test -f 'sci_gateway/c/sci_part.c' || echo '$(srcdir)/'`sci_gateway/c/sci_part.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_part.Tpo $(DEPDIR)/libscistring_la-sci_part.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_part.c' object='libscistring_la-sci_part.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_part.lo `test -f 'sci_gateway/c/sci_part.c' || echo '$(srcdir)/'`sci_gateway/c/sci_part.c
-
-libscistring_la-sci_length.lo: sci_gateway/c/sci_length.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_length.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_length.Tpo -c -o libscistring_la-sci_length.lo `test -f 'sci_gateway/c/sci_length.c' || echo '$(srcdir)/'`sci_gateway/c/sci_length.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_length.Tpo $(DEPDIR)/libscistring_la-sci_length.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_length.c' object='libscistring_la-sci_length.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_length.lo `test -f 'sci_gateway/c/sci_length.c' || echo '$(srcdir)/'`sci_gateway/c/sci_length.c
-
-libscistring_la-sci_strsplit.lo: sci_gateway/c/sci_strsplit.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_strsplit.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_strsplit.Tpo -c -o libscistring_la-sci_strsplit.lo `test -f 'sci_gateway/c/sci_strsplit.c' || echo '$(srcdir)/'`sci_gateway/c/sci_strsplit.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_strsplit.Tpo $(DEPDIR)/libscistring_la-sci_strsplit.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_strsplit.c' object='libscistring_la-sci_strsplit.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_strsplit.lo `test -f 'sci_gateway/c/sci_strsplit.c' || echo '$(srcdir)/'`sci_gateway/c/sci_strsplit.c
-
-libscistring_la-sci_str2code.lo: sci_gateway/c/sci_str2code.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_str2code.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_str2code.Tpo -c -o libscistring_la-sci_str2code.lo `test -f 'sci_gateway/c/sci_str2code.c' || echo '$(srcdir)/'`sci_gateway/c/sci_str2code.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_str2code.Tpo $(DEPDIR)/libscistring_la-sci_str2code.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_str2code.c' object='libscistring_la-sci_str2code.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_str2code.lo `test -f 'sci_gateway/c/sci_str2code.c' || echo '$(srcdir)/'`sci_gateway/c/sci_str2code.c
-
-libscistring_la-sci_code2str.lo: sci_gateway/c/sci_code2str.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_code2str.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_code2str.Tpo -c -o libscistring_la-sci_code2str.lo `test -f 'sci_gateway/c/sci_code2str.c' || echo '$(srcdir)/'`sci_gateway/c/sci_code2str.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_code2str.Tpo $(DEPDIR)/libscistring_la-sci_code2str.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_code2str.c' object='libscistring_la-sci_code2str.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_code2str.lo `test -f 'sci_gateway/c/sci_code2str.c' || echo '$(srcdir)/'`sci_gateway/c/sci_code2str.c
-
-libscistring_la-sci_emptystr.lo: sci_gateway/c/sci_emptystr.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_emptystr.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_emptystr.Tpo -c -o libscistring_la-sci_emptystr.lo `test -f 'sci_gateway/c/sci_emptystr.c' || echo '$(srcdir)/'`sci_gateway/c/sci_emptystr.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_emptystr.Tpo $(DEPDIR)/libscistring_la-sci_emptystr.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_emptystr.c' object='libscistring_la-sci_emptystr.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_emptystr.lo `test -f 'sci_gateway/c/sci_emptystr.c' || echo '$(srcdir)/'`sci_gateway/c/sci_emptystr.c
-
-libscistring_la-sci_ascii.lo: sci_gateway/c/sci_ascii.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_ascii.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_ascii.Tpo -c -o libscistring_la-sci_ascii.lo `test -f 'sci_gateway/c/sci_ascii.c' || echo '$(srcdir)/'`sci_gateway/c/sci_ascii.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_ascii.Tpo $(DEPDIR)/libscistring_la-sci_ascii.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_ascii.c' object='libscistring_la-sci_ascii.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_ascii.lo `test -f 'sci_gateway/c/sci_ascii.c' || echo '$(srcdir)/'`sci_gateway/c/sci_ascii.c
-
-libscistring_la-sci_strsubst.lo: sci_gateway/c/sci_strsubst.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_strsubst.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_strsubst.Tpo -c -o libscistring_la-sci_strsubst.lo `test -f 'sci_gateway/c/sci_strsubst.c' || echo '$(srcdir)/'`sci_gateway/c/sci_strsubst.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_strsubst.Tpo $(DEPDIR)/libscistring_la-sci_strsubst.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_strsubst.c' object='libscistring_la-sci_strsubst.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_strsubst.lo `test -f 'sci_gateway/c/sci_strsubst.c' || echo '$(srcdir)/'`sci_gateway/c/sci_strsubst.c
-
-libscistring_la-sci_grep.lo: sci_gateway/c/sci_grep.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_grep.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_grep.Tpo -c -o libscistring_la-sci_grep.lo `test -f 'sci_gateway/c/sci_grep.c' || echo '$(srcdir)/'`sci_gateway/c/sci_grep.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_grep.Tpo $(DEPDIR)/libscistring_la-sci_grep.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_grep.c' object='libscistring_la-sci_grep.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_grep.lo `test -f 'sci_gateway/c/sci_grep.c' || echo '$(srcdir)/'`sci_gateway/c/sci_grep.c
-
-libscistring_la-sci_convstr.lo: sci_gateway/c/sci_convstr.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_convstr.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_convstr.Tpo -c -o libscistring_la-sci_convstr.lo `test -f 'sci_gateway/c/sci_convstr.c' || echo '$(srcdir)/'`sci_gateway/c/sci_convstr.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_convstr.Tpo $(DEPDIR)/libscistring_la-sci_convstr.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_convstr.c' object='libscistring_la-sci_convstr.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_convstr.lo `test -f 'sci_gateway/c/sci_convstr.c' || echo '$(srcdir)/'`sci_gateway/c/sci_convstr.c
-
-libscistring_la-sci_stripblanks.lo: sci_gateway/c/sci_stripblanks.c
-@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -MT libscistring_la-sci_stripblanks.lo -MD -MP -MF $(DEPDIR)/libscistring_la-sci_stripblanks.Tpo -c -o libscistring_la-sci_stripblanks.lo `test -f 'sci_gateway/c/sci_stripblanks.c' || echo '$(srcdir)/'`sci_gateway/c/sci_stripblanks.c
-@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscistring_la-sci_stripblanks.Tpo $(DEPDIR)/libscistring_la-sci_stripblanks.Plo
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='sci_gateway/c/sci_stripblanks.c' object='libscistring_la-sci_stripblanks.lo' libtool=yes @AMDEPBACKSLASH@
-@AMDEP_TRUE@@am__fastdepCC_FALSE@      DEPDIR=$(DEPDIR) $(CCDEPMODE) $(depcomp) @AMDEPBACKSLASH@
-@am__fastdepCC_FALSE@  $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscistring_la_CFLAGS) $(CFLAGS) -c -o libscistring_la-sci_stripblanks.lo `test -f 'sci_gateway/c/sci_stripblanks.c' || echo '$(srcdir)/'`sci_gateway/c/sci_stripblanks.c
-
-.f.o:
-       $(F77COMPILE) -c -o $@ $<
-
-.f.obj:
-       $(F77COMPILE) -c -o $@ `$(CYGPATH_W) '$<'`
-
-.f.lo:
-       $(LTF77COMPILE) -c -o $@ $<
-
-strord.lo: src/fortran/strord.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o strord.lo `test -f 'src/fortran/strord.f' || echo '$(srcdir)/'`src/fortran/strord.f
-
-strdsp.lo: src/fortran/strdsp.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o strdsp.lo `test -f 'src/fortran/strdsp.f' || echo '$(srcdir)/'`src/fortran/strdsp.f
-
-sci_convstr.lo: sci_gateway/fortran/sci_convstr.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_convstr.lo `test -f 'sci_gateway/fortran/sci_convstr.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_convstr.f
-
-sci_grep.lo: sci_gateway/fortran/sci_grep.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_grep.lo `test -f 'sci_gateway/fortran/sci_grep.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_grep.f
-
-sci_strindex.lo: sci_gateway/fortran/sci_strindex.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_strindex.lo `test -f 'sci_gateway/fortran/sci_strindex.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_strindex.f
-
-sci_strcat.lo: sci_gateway/fortran/sci_strcat.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_strcat.lo `test -f 'sci_gateway/fortran/sci_strcat.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_strcat.f
-
-sci_tokens.lo: sci_gateway/fortran/sci_tokens.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_tokens.lo `test -f 'sci_gateway/fortran/sci_tokens.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_tokens.f
-
-sci_string.lo: sci_gateway/fortran/sci_string.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_string.lo `test -f 'sci_gateway/fortran/sci_string.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_string.f
-
-sci_part.lo: sci_gateway/fortran/sci_part.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_part.lo `test -f 'sci_gateway/fortran/sci_part.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_part.f
-
-sci_length.lo: sci_gateway/fortran/sci_length.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_length.lo `test -f 'sci_gateway/fortran/sci_length.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_length.f
-
-sci_strsplit.lo: sci_gateway/fortran/sci_strsplit.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_strsplit.lo `test -f 'sci_gateway/fortran/sci_strsplit.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_strsplit.f
-
-sci_str2code.lo: sci_gateway/fortran/sci_str2code.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_str2code.lo `test -f 'sci_gateway/fortran/sci_str2code.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_str2code.f
-
-sci_code2str.lo: sci_gateway/fortran/sci_code2str.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_code2str.lo `test -f 'sci_gateway/fortran/sci_code2str.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_code2str.f
-
-sci_emptystr.lo: sci_gateway/fortran/sci_emptystr.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_emptystr.lo `test -f 'sci_gateway/fortran/sci_emptystr.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_emptystr.f
-
-sci_ascii.lo: sci_gateway/fortran/sci_ascii.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_ascii.lo `test -f 'sci_gateway/fortran/sci_ascii.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_ascii.f
-
-sci_strsubst.lo: sci_gateway/fortran/sci_strsubst.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o sci_strsubst.lo `test -f 'sci_gateway/fortran/sci_strsubst.f' || echo '$(srcdir)/'`sci_gateway/fortran/sci_strsubst.f
-
-strops.lo: sci_gateway/fortran/strops.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o strops.lo `test -f 'sci_gateway/fortran/strops.f' || echo '$(srcdir)/'`sci_gateway/fortran/strops.f
-
-mostlyclean-libtool:
-       -rm -f *.lo
-
-clean-libtool:
-       -rm -rf .libs _libs
-install-libscistring_la_etcDATA: $(libscistring_la_etc_DATA)
-       @$(NORMAL_INSTALL)
-       test -z "$(libscistring_la_etcdir)" || $(MKDIR_P) "$(DESTDIR)$(libscistring_la_etcdir)"
-       @list='$(libscistring_la_etc_DATA)'; for p in $$list; do \
-         if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
-         f=$(am__strip_dir) \
-         echo " $(libscistring_la_etcDATA_INSTALL) '$$d$$p' '$(DESTDIR)$(libscistring_la_etcdir)/$$f'"; \
-         $(libscistring_la_etcDATA_INSTALL) "$$d$$p" "$(DESTDIR)$(libscistring_la_etcdir)/$$f"; \
-       done
-
-uninstall-libscistring_la_etcDATA:
-       @$(NORMAL_UNINSTALL)
-       @list='$(libscistring_la_etc_DATA)'; for p in $$list; do \
-         f=$(am__strip_dir) \
-         echo " rm -f '$(DESTDIR)$(libscistring_la_etcdir)/$$f'"; \
-         rm -f "$(DESTDIR)$(libscistring_la_etcdir)/$$f"; \
-       done
-install-libscistring_la_rootDATA: $(libscistring_la_root_DATA)
-       @$(NORMAL_INSTALL)
-       test -z "$(libscistring_la_rootdir)" || $(MKDIR_P) "$(DESTDIR)$(libscistring_la_rootdir)"
-       @list='$(libscistring_la_root_DATA)'; for p in $$list; do \
-         if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
-         f=$(am__strip_dir) \
-         echo " $(libscistring_la_rootDATA_INSTALL) '$$d$$p' '$(DESTDIR)$(libscistring_la_rootdir)/$$f'"; \
-         $(libscistring_la_rootDATA_INSTALL) "$$d$$p" "$(DESTDIR)$(libscistring_la_rootdir)/$$f"; \
-       done
-
-uninstall-libscistring_la_rootDATA:
-       @$(NORMAL_UNINSTALL)
-       @list='$(libscistring_la_root_DATA)'; for p in $$list; do \
-         f=$(am__strip_dir) \
-         echo " rm -f '$(DESTDIR)$(libscistring_la_rootdir)/$$f'"; \
-         rm -f "$(DESTDIR)$(libscistring_la_rootdir)/$$f"; \
-       done
-install-libscistring_la_sci_gatewayDATA: $(libscistring_la_sci_gateway_DATA)
-       @$(NORMAL_INSTALL)
-       test -z "$(libscistring_la_sci_gatewaydir)" || $(MKDIR_P) "$(DESTDIR)$(libscistring_la_sci_gatewaydir)"
-       @list='$(libscistring_la_sci_gateway_DATA)'; for p in $$list; do \
-         if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
-         f=$(am__strip_dir) \
-         echo " $(libscistring_la_sci_gatewayDATA_INSTALL) '$$d$$p' '$(DESTDIR)$(libscistring_la_sci_gatewaydir)/$$f'"; \
-         $(libscistring_la_sci_gatewayDATA_INSTALL) "$$d$$p" "$(DESTDIR)$(libscistring_la_sci_gatewaydir)/$$f"; \
-       done
-
-uninstall-libscistring_la_sci_gatewayDATA:
-       @$(NORMAL_UNINSTALL)
-       @list='$(libscistring_la_sci_gateway_DATA)'; for p in $$list; do \
-         f=$(am__strip_dir) \
-         echo " rm -f '$(DESTDIR)$(libscistring_la_sci_gatewaydir)/$$f'"; \
-         rm -f "$(DESTDIR)$(libscistring_la_sci_gatewaydir)/$$f"; \
-       done
-install-libscistring_la_includeHEADERS: $(libscistring_la_include_HEADERS)
-       @$(NORMAL_INSTALL)
-       test -z "$(libscistring_la_includedir)" || $(MKDIR_P) "$(DESTDIR)$(libscistring_la_includedir)"
-       @list='$(libscistring_la_include_HEADERS)'; for p in $$list; do \
-         if test -f "$$p"; then d=; else d="$(srcdir)/"; fi; \
-         f=$(am__strip_dir) \
-         echo " $(libscistring_la_includeHEADERS_INSTALL) '$$d$$p' '$(DESTDIR)$(libscistring_la_includedir)/$$f'"; \
-         $(libscistring_la_includeHEADERS_INSTALL) "$$d$$p" "$(DESTDIR)$(libscistring_la_includedir)/$$f"; \
-       done
-
-uninstall-libscistring_la_includeHEADERS:
-       @$(NORMAL_UNINSTALL)
-       @list='$(libscistring_la_include_HEADERS)'; for p in $$list; do \
-         f=$(am__strip_dir) \
-         echo " rm -f '$(DESTDIR)$(libscistring_la_includedir)/$$f'"; \
-         rm -f "$(DESTDIR)$(libscistring_la_includedir)/$$f"; \
-       done
-
-ID: $(HEADERS) $(SOURCES) $(LISP) $(TAGS_FILES)
-       list='$(SOURCES) $(HEADERS) $(LISP) $(TAGS_FILES)'; \
-       unique=`for i in $$list; do \
-           if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
-         done | \
-         $(AWK) '    { files[$$0] = 1; } \
-              END { for (i in files) print i; }'`; \
-       mkid -fID $$unique
-tags: TAGS
-
-TAGS:  $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) \
-               $(TAGS_FILES) $(LISP)
-       tags=; \
-       here=`pwd`; \
-       list='$(SOURCES) $(HEADERS)  $(LISP) $(TAGS_FILES)'; \
-       unique=`for i in $$list; do \
-           if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
-         done | \
-         $(AWK) '    { files[$$0] = 1; } \
-              END { for (i in files) print i; }'`; \
-       if test -z "$(ETAGS_ARGS)$$tags$$unique"; then :; else \
-         test -n "$$unique" || unique=$$empty_fix; \
-         $(ETAGS) $(ETAGSFLAGS) $(AM_ETAGSFLAGS) $(ETAGS_ARGS) \
-           $$tags $$unique; \
-       fi
-ctags: CTAGS
-CTAGS:  $(HEADERS) $(SOURCES)  $(TAGS_DEPENDENCIES) \
-               $(TAGS_FILES) $(LISP)
-       tags=; \
-       here=`pwd`; \
-       list='$(SOURCES) $(HEADERS)  $(LISP) $(TAGS_FILES)'; \
-       unique=`for i in $$list; do \
-           if test -f "$$i"; then echo $$i; else echo $(srcdir)/$$i; fi; \
-         done | \
-         $(AWK) '    { files[$$0] = 1; } \
-              END { for (i in files) print i; }'`; \
-       test -z "$(CTAGS_ARGS)$$tags$$unique" \
-         || $(CTAGS) $(CTAGSFLAGS) $(AM_CTAGSFLAGS) $(CTAGS_ARGS) \
-            $$tags $$unique
-
-GTAGS:
-       here=`$(am__cd) $(top_builddir) && pwd` \
-         && cd $(top_srcdir) \
-         && gtags -i $(GTAGS_ARGS) $$here
-
-distclean-tags:
-       -rm -f TAGS ID GTAGS GRTAGS GSYMS GPATH tags
-
-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 $(LTLIBRARIES) $(DATA) $(HEADERS) all-local
-installdirs:
-       for dir in "$(DESTDIR)$(pkglibdir)" "$(DESTDIR)$(libscistring_la_etcdir)" "$(DESTDIR)$(libscistring_la_rootdir)" "$(DESTDIR)$(libscistring_la_sci_gatewaydir)" "$(DESTDIR)$(libscistring_la_includedir)"; 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 \
-       clean-pkglibLTLIBRARIES mostlyclean-am
-
-distclean: distclean-am
-       -rm -rf ./$(DEPDIR)
-       -rm -f Makefile
-distclean-am: clean-am distclean-compile distclean-generic \
-       distclean-tags
-
-dvi: dvi-am
-
-dvi-am:
-
-html: html-am
-
-info: info-am
-
-info-am:
-
-install-data-am: install-data-local install-libscistring_la_etcDATA \
-       install-libscistring_la_includeHEADERS \
-       install-libscistring_la_rootDATA \
-       install-libscistring_la_sci_gatewayDATA
-
-install-dvi: install-dvi-am
-
-install-exec-am: install-pkglibLTLIBRARIES
-
-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 -rf ./$(DEPDIR)
-       -rm -f Makefile
-maintainer-clean-am: distclean-am maintainer-clean-generic
-
-mostlyclean: mostlyclean-am
-
-mostlyclean-am: mostlyclean-compile mostlyclean-generic \
-       mostlyclean-libtool
-
-pdf: pdf-am
-
-pdf-am:
-
-ps: ps-am
-
-ps-am:
-
-uninstall-am: uninstall-libscistring_la_etcDATA \
-       uninstall-libscistring_la_includeHEADERS \
-       uninstall-libscistring_la_rootDATA \
-       uninstall-libscistring_la_sci_gatewayDATA \
-       uninstall-pkglibLTLIBRARIES
-
-.MAKE: install-am install-strip
-
-.PHONY: CTAGS GTAGS all all-am all-local check check-am check-local \
-       clean clean-generic clean-libtool clean-local \
-       clean-pkglibLTLIBRARIES ctags distclean distclean-compile \
-       distclean-generic distclean-libtool distclean-tags 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-libscistring_la_etcDATA \
-       install-libscistring_la_includeHEADERS \
-       install-libscistring_la_rootDATA \
-       install-libscistring_la_sci_gatewayDATA install-man \
-       install-pdf install-pdf-am install-pkglibLTLIBRARIES \
-       install-ps install-ps-am install-strip installcheck \
-       installcheck-am installdirs maintainer-clean \
-       maintainer-clean-generic mostlyclean mostlyclean-compile \
-       mostlyclean-generic mostlyclean-libtool pdf pdf-am ps ps-am \
-       tags uninstall uninstall-am uninstall-libscistring_la_etcDATA \
-       uninstall-libscistring_la_includeHEADERS \
-       uninstall-libscistring_la_rootDATA \
-       uninstall-libscistring_la_sci_gatewayDATA \
-       uninstall-pkglibLTLIBRARIES
-
-
-# This target enables tests for Scilab
-check-local: $(top_builddir)/scilab-bin
-       @if test -f build.xml; then \
-               $(ANT) checkstyle; \
-       fi;\
-       COMMAND="test_run('$(modulename)');quit";\
-       export LANG=C;\
-       $(top_builddir)/bin/scilab -nwni -nb -e "$$COMMAND"
-@GUI_TRUE@java:
-# Some configurations needs to export JAVA_HOME in the current env
-@GUI_TRUE@     @if test "$(JAVA_HOME)"; then export JAVA_HOME=$(JAVA_HOME); fi; \
-@GUI_TRUE@     if test -f build.xml; then \
-@GUI_TRUE@             $(ANT) jar; \
-@GUI_TRUE@     fi
-
-@GUI_TRUE@clean-java:
-# Some configurations needs to export JAVA_HOME in the current env
-@GUI_TRUE@     @if test "$(JAVA_HOME)"; then export JAVA_HOME=$(JAVA_HOME); fi; \
-@GUI_TRUE@     if test -f build.xml; then \
-@GUI_TRUE@             $(ANT) clean; \
-@GUI_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 --description-file $$file; \
-@GIWS_TRUE@            done; \
-@GIWS_TRUE@    fi
-
-macros: $(top_builddir)/scilab-bin $(top_builddir)/bin/scilab $(srcdir)/$(MACRODIRS)/$(MACROMASK)
-       -@(     $(top_builddir)/bin/scilab -ns -nwni -e "exec('macros/buildmacros.sce');quit;";\
-       )
-
-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:
-       echo "-- Install of htm help files --"; \
-       $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)
-       @for dir in $(DOCDIRS) ; do \
-        if test -d $$dir; then \
-         $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$$dir && \
-               if ls -lLd $(srcdir)/$$dir/$(DOCMASK) >/dev/null 2>&1; then \
-                 for file in $(srcdir)/$$dir/$(DOCMASK) ; do \
-                   echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/$$dir" ; \
-               $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/$$dir ; \
-                 done ; \
-               fi; \
-        fi; \
-       done
-       echo "-- Install of images help files --"; \
-       $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)
-       @for dir in $(DOCIMGDIRS) ; do \
-        if test -d $$dir; then \
-         $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$$dir && \
-               if ls -lLd $(srcdir)/$$dir/$(DOCIMGMASK) >/dev/null 2>&1; then \
-                 for file in $(srcdir)/$$dir/$(DOCIMGMASK) ; do \
-                   echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/$$dir" ; \
-               $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/$$dir ; \
-                 done ; \
-               fi; \
-        fi; \
-       done
-
-# If the user wants the help sources to be installed
-@INSTALL_HELP_XML_TRUE@        @for dir in $(DOCDIRS) ; do \
-@INSTALL_HELP_XML_TRUE@         if test -d $$dir; then \
-@INSTALL_HELP_XML_TRUE@          $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$$dir && \
-@INSTALL_HELP_XML_TRUE@                if ls -lLd $(srcdir)/$$dir/$(DOCMASKXML) >/dev/null 2>&1; then \
-@INSTALL_HELP_XML_TRUE@                  for file in $(srcdir)/$$dir/$(DOCMASKXML) ; do \
-@INSTALL_HELP_XML_TRUE@                    echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgdocdir)/$$dir" ; \
-@INSTALL_HELP_XML_TRUE@                $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgdocdir)/$$dir ; \
-@INSTALL_HELP_XML_TRUE@                  done ; \
-@INSTALL_HELP_XML_TRUE@                fi; \
-@INSTALL_HELP_XML_TRUE@         fi; \
-@INSTALL_HELP_XML_TRUE@        done
-install-data-local:
-# Install the help chapter
-       @HELPFILE=$(HELP_CHAPTERDIR)$(HELP_CHAPTERFILE); \
-       if test -f $$HELPFILE; then \
-               echo "-- Install of help --"; \
-               echo $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(HELP_CHAPTERDIR); \
-               $(mkinstalldirs) $(DESTDIR)$(pkgdocdir)/$(HELP_CHAPTERDIR); \
-               echo $(INSTALL_DATA) $$HELPFILE $(DESTDIR)$(pkgdocdir)/$$HELPFILE; \
-               $(INSTALL_DATA) $$HELPFILE $(DESTDIR)$(pkgdocdir)/$$HELPFILE; \
-       fi
-# Install the tests    
-       @echo "-- Install tests (if any) --"; \
-       for dir in $(TESTS_DIR); do \
-         $(mkinstalldirs) $(DESTDIR)$(pkgmacrosdir)/$$dir && \
-               if test -d $(srcdir)/$$dir/; then \
-                 for file in `ls -1 $(srcdir)/$$dir/* 2>/dev/null`; do \
-                   echo "$(INSTALL_DATA) $$file $(DESTDIR)$(pkgmacrosdir)/$$dir" ; \
-               $(INSTALL_DATA) "$$file" $(DESTDIR)$(pkgmacrosdir)/$$dir ; \
-                 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 \
-                 for file in `ls -1 $(srcdir)/$$dir/$(MACROMASK) $(srcdir)/$$dir/$(MACROBINMASK) $(srcdir)/$$dir/$(MACROBUILDMASK) $(srcdir)/$$dir/names $(srcdir)/$$dir/lib 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)
-@GUI_TRUE@clean-local: clean-java
-@GUI_FALSE@clean-local:
-# Removes macros (*.bin generated from .sci)
-       @for dir in $(MACRODIRS) $(MACROSDIRSEXT) ; do \
-               echo "rm -f $(srcdir)/$$dir/$(MACROBINMASK)"; \
-               rm -f $(srcdir)/$$dir/$(MACROBINMASK); \
-       done
-# Removes documentation (*.htm generated from .xml) 
-       @for dir in $(DOCDIRS) ; do \
-                if test -d $$dir; then \
-                       echo "rm -f $(srcdir)/$$dir/$(DOCMASK)"; \
-                       rm -f $(srcdir)/$$dir/$(DOCMASK); \
-               fi; \
-       done
-# 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/string/bench_strcmp.tst b/scilab/modules/string/bench_strcmp.tst
deleted file mode 100755 (executable)
index f9a69f3..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-timer();
-
-for i=1:10000000
-       strcmp("abcdefghijkl","abcdefghijkl");
-end
-
-t1 = timer();
-
-timer();
-
-for i=1:10000000
-       'abcdefghijkl' == 'abcdefghijkl';
-end
-
-t2 = timer();
-
-printf(' T1 = %d sec \n",t1);
-printf(' T2 = %d sec \n",t2);
diff --git a/scilab/modules/string/changelog.txt b/scilab/modules/string/changelog.txt
deleted file mode 100644 (file)
index 1f7fb8e..0000000
+++ /dev/null
@@ -1 +0,0 @@
-changelog  module
\ No newline at end of file
diff --git a/scilab/modules/string/etc/string.quit b/scilab/modules/string/etc/string.quit
deleted file mode 100644 (file)
index ad26962..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-// ====================================================================
-// This file contains command to be executed at the end 
-// of a scilab session for string module
-// Copyright INRIA 2006
-// ====================================================================
-// delete help chapter
-del_help_chapter('string',%T);
-// ====================================================================
diff --git a/scilab/modules/string/etc/string.start b/scilab/modules/string/etc/string.start
deleted file mode 100644 (file)
index 315bc6f..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-// ====================================================================
-// string module initialisation file 
-// Copyright INRIA 2006
-// ====================================================================
-//Load  functions librarie
-load('SCI/modules/string/macros/lib');
-// ====================================================================
-//add help chapter
-add_module_help_chapter('string');
-// ====================================================================
diff --git a/scilab/modules/string/help/en_US/addchapter.sce b/scilab/modules/string/help/en_US/addchapter.sce
deleted file mode 100644 (file)
index 87c4af1..0000000
+++ /dev/null
@@ -1,10 +0,0 @@
-// ====================================================================
-// help string module
-// Add chapter
-// Copyright INRIA 2007
-// Allan CORNET
-// ====================================================================
-path = SCI+'/modules/string/help/'+getdefaultlanguage();
-add_help_chapter("Strings",path,%T);
-clear path add_help_chapter;
-// ====================================================================
diff --git a/scilab/modules/string/help/en_US/ascii.xml b/scilab/modules/string/help/en_US/ascii.xml
deleted file mode 100644 (file)
index ab003a9..0000000
+++ /dev/null
@@ -1,45 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>ascii</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="ascii"> string ascii conversions</SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>a=ascii(txt)  </CALLING_SEQUENCE_ITEM>
-    <CALLING_SEQUENCE_ITEM>txt=ascii(a)  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>txt</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: character string or matrix of strings.</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>a</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: vector of integer ascii codes</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P>
-    This function convert Scilab string to a vector of ascii code or
-    vector of ascii code to Scilab strings.</P>
-    <P>
-    If <VERB>txt</VERB> is a matrix of string, <VERB>ascii(txt)</VERB> is equivalent
-    to <VERB>ascii(strcat(txt))</VERB></P>
-  </DESCRIPTION>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>code2str</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>str2code</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/blanks.xml b/scilab/modules/string/help/en_US/blanks.xml
deleted file mode 100644 (file)
index 99e6f47..0000000
+++ /dev/null
@@ -1,36 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>blanks</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate: 2006-08-08 16:57:13 +0200 (mar., 08 août 2006) $</DATE>
-  <SHORT_DESCRIPTION name="blanks">Create string of blank characters</SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>txt=blanks(n)  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>txt</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: string</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>n</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: number of blanks</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P>blanks(n) is a string of n blanks.</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-disp(['xxx' blanks(20) 'yyy'])
- ]]>
-  </EXAMPLE>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/code2str.xml b/scilab/modules/string/help/en_US/code2str.xml
deleted file mode 100644 (file)
index 94ba7d1..0000000
+++ /dev/null
@@ -1,43 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>code2str</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="code2str"> returns character string associated with Scilab integer codes.  </SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>str=code2str(c)  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>str</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a character string</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>c</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: vector of character integer codes</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P>
-    Returns character string associated with Scilab integer codes.str is
-    such that  c(i) is the Scilab integer code of part(str,i))</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-code2str([-28 12 18 21 10 11])
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>str2code</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/convstr.xml b/scilab/modules/string/help/en_US/convstr.xml
deleted file mode 100644 (file)
index 34eeb33..0000000
+++ /dev/null
@@ -1,40 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>convstr</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="convstr"> case conversion</SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>[y]=convstr(str-matrix, [&quot;flag&quot;])   </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>str-matrix, y</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: matrices of strings</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>&quot;flag&quot;  </PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: string (<VERB>&quot;u&quot;</VERB> for upper or <VERB>&quot;l&quot;</VERB> for lower (default value))</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P>
-    converts the matrix of strings <VERB>str-matrix</VERB>
-    into lower case (for <VERB>&quot;l&quot;</VERB> ;default value) or
-    upper case (for <VERB>&quot;u&quot;</VERB>).</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-A=['this','is';'my','matrix'];
-convstr(A,'u')
- ]]>
-  </EXAMPLE>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/emptystr.xml b/scilab/modules/string/help/en_US/emptystr.xml
deleted file mode 100644 (file)
index 7bb954c..0000000
+++ /dev/null
@@ -1,64 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>emptystr</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="emptystr"> zero length string</SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>s=emptystr()   </CALLING_SEQUENCE_ITEM>
-    <CALLING_SEQUENCE_ITEM>s=emptystr(a)   </CALLING_SEQUENCE_ITEM>
-    <CALLING_SEQUENCE_ITEM>s=emptystr(m,n)   </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>a</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: any type of matrix</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>s</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: character string matrix</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>m,n</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: integers</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P>
-    Returns a matrix of zero length character strings</P>
-    <P>
-    With no input argument returns a zero length character string.</P>
-    <P>
-    With a matrix for input argument returns  a zero length character strings 
-    matrix of the same size.</P>
-    <P>
-    With two integer arguments returns a mxn zero length character strings 
-    matrix</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-x=emptystr();for k=1:10, x=x+','+string(k);end
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>part</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>length</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>string</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/grep.xml b/scilab/modules/string/help/en_US/grep.xml
deleted file mode 100644 (file)
index 27e27a8..0000000
+++ /dev/null
@@ -1,66 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>grep</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="grep"> find matches of a string in a vector of strings</SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>row=grep(str1,str2)  </CALLING_SEQUENCE_ITEM>
-    <CALLING_SEQUENCE_ITEM>[row,which]=grep(str1,str2)  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>str1</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a vector of strings.</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>str2</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a character string or character string vector . The string(s) to search in <VERB>str1</VERB></SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>row</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: vector of  indices: row where a match has been found or an empty matrix if no match found.</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>which</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: vector of indices: index of str2 string found or an empty matrix if no match found.</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P>
-    Foreach entry of <VERB>str1</VERB>,   <VERB>grep</VERB> searches if at least a string in
-    <VERB>str2</VERB> matches a substring. <VERB>str1</VERB>  entries index where  at least a match has been
-    found are returned in the <VERB>row</VERB> argument. while optionnal
-    <VERB>which</VERB> argument gives the index of first string of  <VERB>str2</VERB> found.</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-txt=['find matches of a string in a vector of strings'
-     'search position of a character string in an other string'
-     'Compare Strings'];
-
-grep(txt,'strings')
-grep(txt,['strings' 'Strings'])
-
-[r,w]=grep(txt,['strings' 'Strings'])
-
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>strindex</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/justify.xml b/scilab/modules/string/help/en_US/justify.xml
deleted file mode 100644 (file)
index aff87c8..0000000
+++ /dev/null
@@ -1,77 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>justify</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="justify"> Justify character array.  </SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>Tj=justify(T,opt)  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>T</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a matrix of character string.</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>Tj</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a matrix of character string. the justified result</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>opt</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a character string option with possible values</SP>
-          <PARAM_INDENT>
-            <PARAM_ITEM>
-              <PARAM_NAME>'r'  </PARAM_NAME>
-              <PARAM_DESCRIPTION>
-                <SP>or 'right' for right justification</SP>
-              </PARAM_DESCRIPTION>
-            </PARAM_ITEM>
-            <PARAM_ITEM>
-              <PARAM_NAME>'l'  </PARAM_NAME>
-              <PARAM_DESCRIPTION>
-                <SP>or 'left' for left justification</SP>
-              </PARAM_DESCRIPTION>
-            </PARAM_ITEM>
-            <PARAM_ITEM>
-              <PARAM_NAME>'c'  </PARAM_NAME>
-              <PARAM_DESCRIPTION>
-                <SP>or 'center' for centering justification</SP>
-              </PARAM_DESCRIPTION>
-            </PARAM_ITEM>
-          </PARAM_INDENT>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P><VERB>justify</VERB> justify the column of a matrix of string accdording to
-    the given option.</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-t=['1234','x','adfdfgdfghfgj'
-   '1','354556','dgf'
-   'sdfgd','','sdfsf'];
-
-justify(t,'l')
-justify(t,'c')
-
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>length</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>part</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/length.xml b/scilab/modules/string/help/en_US/length.xml
deleted file mode 100644 (file)
index d1ee482..0000000
+++ /dev/null
@@ -1,44 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>length</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="length"> length of object</SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>n=length(M)   </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>M</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: matrix (usual or polynomial or character string) or list</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>n</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: integer or integer matrix</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P>
-    For usual or polynomial matrix <VERB>n</VERB> is the integer equal to number of rows times
-    number of columns of <VERB>M</VERB>. (Also valid for <VERB>M</VERB> a boolean matrix)</P>
-    <P>
-    For matrices made of character strings (and in particular for a character string)
-    <VERB>length</VERB> returns in <VERB>n</VERB> the length of entries of the matrix of character strings <VERB>M</VERB>.</P>
-    <P>
-    The length of a list is the number of elements in the list (also given by <VERB>size</VERB>).</P>
-    <P><VERB>length('123')</VERB> is <VERB>3</VERB>. <VERB>length([1,2;3,4])</VERB> is <VERB>4</VERB>.</P>
-  </DESCRIPTION>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>size</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/part.xml b/scilab/modules/string/help/en_US/part.xml
deleted file mode 100644 (file)
index e2a5c03..0000000
+++ /dev/null
@@ -1,48 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>part</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="part"> extraction of strings</SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>[c]=part(mp,v)  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>mp,c</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: string matrices</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>v</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: integer vector.</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P>
-    Let <VERB>s[k]</VERB> stands for the <VERB>k</VERB> character of string <VERB>s</VERB> ( 
-    or the white space character if <VERB>k &gt;length(s)</VERB>).</P>
-    <P><VERB>part</VERB> returns <VERB>c</VERB>, a matrix of character strings, such that 
-    <VERB>c(i,j)</VERB> is the string <VERB>&quot;s[v(1)]...s[v(n)]&quot;</VERB> ( <VERB>s=mp(i,j)</VERB> ).</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-c=part(['a','abc','abcd'],[1,1,2])
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>string</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>length</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/sci2exp.xml b/scilab/modules/string/help/en_US/sci2exp.xml
deleted file mode 100644 (file)
index c804100..0000000
+++ /dev/null
@@ -1,85 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>abs</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="sci2exp"> converts an expression to a string</SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>t=sci2exp(a [,nam] [,lmax])  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>a</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a scilab expression, may be</SP>
-          <PARAM_INDENT>
-            <PARAM_ITEM>
-              <PARAM_NAME>-    </PARAM_NAME>
-              <PARAM_DESCRIPTION>
-                <SP>constant,</SP>
-              </PARAM_DESCRIPTION>
-            </PARAM_ITEM>
-            <PARAM_ITEM>
-              <PARAM_NAME>-    </PARAM_NAME>
-              <PARAM_DESCRIPTION>
-                <SP>polynomial</SP>
-              </PARAM_DESCRIPTION>
-            </PARAM_ITEM>
-            <PARAM_ITEM>
-              <PARAM_NAME>-    </PARAM_NAME>
-              <PARAM_DESCRIPTION>
-                <SP>string matrix</SP>
-              </PARAM_DESCRIPTION>
-            </PARAM_ITEM>
-            <PARAM_ITEM>
-              <PARAM_NAME>-    </PARAM_NAME>
-              <PARAM_DESCRIPTION>
-                <SP>list</SP>
-              </PARAM_DESCRIPTION>
-            </PARAM_ITEM>
-            <PARAM_ITEM>
-              <PARAM_NAME>-    </PARAM_NAME>
-              <PARAM_DESCRIPTION>
-                <SP>boolean matrix</SP>
-              </PARAM_DESCRIPTION>
-            </PARAM_ITEM>
-          </PARAM_INDENT>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>nam</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: character string</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>t</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: vector of string, contains the expression or the affectation instruction</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>lmax</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: integer, contains the maximum line length. default value is 90, <VERB>lmax=0</VERB> indicate  no line length control a single string is returned</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P><VERB>sci2exp</VERB> converts expression to an instruction string if <VERB>nam</VERB> is
-    given or to an expression string.</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-  a=[1 2;3 4]
-  sci2exp(a,'aa')
-  sci2exp(a,'aa',0)
-  sci2exp(ssrand(2,2,2))
-  sci2exp(poly([1 0 3 4],'s'),'fi')
- ]]>
-  </EXAMPLE>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/str2code.xml b/scilab/modules/string/help/en_US/str2code.xml
deleted file mode 100644 (file)
index 93e0abd..0000000
+++ /dev/null
@@ -1,42 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>str2code</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="str2code"> return scilab integer codes associated with a character string</SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>c=str2code(str)  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>str</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a character string</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>c</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: vector of character integer codes</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P>
-    Return c such that c(i) is the scilab integer code of part(str,i))</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-str2code('Scilab')
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>code2str</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/strcat.xml b/scilab/modules/string/help/en_US/strcat.xml
deleted file mode 100644 (file)
index 3e32b5a..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>strcat</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="strcat"> catenate character strings</SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>txt=strcat(vstr [,strp])  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>vstr</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: vector of strings</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>strp</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: string, default value is the emptystr <VERB>&quot;&quot;</VERB></SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>txt</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: string</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P><VERB>txt=strcat(vstr)</VERB>
-    catenates character strings : <VERB>txt=vstr(1)+...+vstr(n)</VERB></P>
-    <P><VERB>txt=strcat(vstr,strp)</VERB> 
-    returns <VERB>txt=strs(1)+strp+...+strp+strs(n)</VERB>.
-    The plus symbol does the same:
-    <VERB>&quot;a&quot;+&quot;b&quot;</VERB> is the same as <VERB>strcat([&quot;a&quot;,&quot;b&quot;])</VERB></P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-strcat(string(1:10),',')
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>string</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>strings</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/strindex.xml b/scilab/modules/string/help/en_US/strindex.xml
deleted file mode 100644 (file)
index fdcfad7..0000000
+++ /dev/null
@@ -1,72 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>strindex</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="strindex"> search position of a character string in an other string.  </SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>ind=strindex(str1,str2)  </CALLING_SEQUENCE_ITEM>
-    <CALLING_SEQUENCE_ITEM>[ind,which]=strindex(str1,str2)  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>str1</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a character string. The string where to search occurrences of <VERB>str2</VERB></SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>str2</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a character string or character string vector . The string(s) to search in <VERB>str1</VERB></SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>ind</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: vector of indexes</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>which</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: vector of indexes</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P>
-      <VERB>strindex</VERB> searches indexes where <VERB>str2(i)</VERB> is found in
-      <VERB>str1</VERB>
-    </P>
-    <P>
-      for each <VERB>k</VERB> it exist a <VERB>i</VERB> shuch that
-      <VERB>part(str1,ind(k)+(0:length(str2(i))-1))</VERB> is the same string than
-      <VERB>str2(i)</VERB>. If <VERB>which</VERB> argument is required it
-      contains these <VERB>i</VERB>.
-    </P>
-  
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-k=strindex('SCI/demos/scicos','/')
-k=strindex('SCI/demos/scicos','SCI/')
-k=strindex('SCI/demos/scicos','!')
-k=strindex('aaaaa','aa') 
-k=strindex('SCI/demos/scicos',['SCI','sci'])
-[k,w]=strindex('1+3*abc/2.33',['+','-','*','/'])
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>string</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>strings</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/string.xml b/scilab/modules/string/help/en_US/string.xml
deleted file mode 100644 (file)
index d6c311b..0000000
+++ /dev/null
@@ -1,82 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>string</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="string"> conversion to string</SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>string(x)  </CALLING_SEQUENCE_ITEM>
-    <CALLING_SEQUENCE_ITEM>[out,in,text]=string(x)  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>x</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: real matrix or function</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P>
-    converts a matrix into a matrix of strings.</P>
-    <P>
-    If <VERB>x</VERB> is a function  <VERB>[out,in,text]=string(x)</VERB>  returns
-    three vectors strings : <VERB>out</VERB> is the vector of output variables,
-    <VERB>in</VERB> is the vector of input variables, and <VERB>text</VERB> is
-    the (column) vector of the source code of the function.</P>
-    <P>
-    If  <VERB>x</VERB> is a <VERB>lib</VERB> variable, text is a character string column
-    vector. The first element contains the path of library file and the 
-    other the name of functions it defines.</P>
-    <P>
-    Character strings are defined as <VERB>'string'</VERB> (between quotes) or
-    <VERB>&quot;string&quot;</VERB> (between doublequotes);
-    matrices of strings are defined as usual constant matrices.</P>
-    <P>
-    Concatenation of strings is made by the <VERB>+</VERB> operation.</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-string(rand(2,2))
-deff('y=mymacro(x)','y=x+1')
-[out,in,text]=string(mymacro)
-x=123.356; 'Result is '+string(x)
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>emptystr</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>part</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>length</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>quote</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>evstr</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>execstr</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>strsubst</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>strcat</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>strindex</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>sci2exp</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/strings.xml b/scilab/modules/string/help/en_US/strings.xml
deleted file mode 100644 (file)
index 0dbcb11..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>strings</TITLE>
-  <TYPE>Scilab Object</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="strings"> Scilab Object, character strings</SHORT_DESCRIPTION>
-  <DESCRIPTION>
-    <P>
-    Strings are defined as <VERB>'string'</VERB> (between quotes) or 
-    <VERB>&quot;string&quot;</VERB> (between doublequotes);
-    matrices of strings are defined as usual constant matrices.</P>
-    <P>
-    Concatenation of two strings is made by a <VERB>+</VERB> : <VERB>string1+string2</VERB>.</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-['this','is'; 'a 2x2','matrix']
-"matrix"=="mat"+"rix"
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>part</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>length</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>strcat</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/stripblanks.xml b/scilab/modules/string/help/en_US/stripblanks.xml
deleted file mode 100644 (file)
index b272d2b..0000000
+++ /dev/null
@@ -1,42 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>stripblanks</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="stripblanks"> strips leading and trailing
-  blanks (and tabs) of strings</SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>txt=stripblanks(txt[,tabs])  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>txt</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: string or matrix of strings</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>tabs</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: if TRUE then tabs are also stripped (default value is FALSE)</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P>
-    stripblanks strips leading and trailing blanks (and tabs) of strings</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-a='  123   ';
-'!'+a+'!'
-'!'+stripblanks(a)+'!'
-a=['  123   ',' xyz']
-strcat(stripblanks(a))
- ]]>
-  </EXAMPLE>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/strsplit.xml b/scilab/modules/string/help/en_US/strsplit.xml
deleted file mode 100644 (file)
index 8aad085..0000000
+++ /dev/null
@@ -1,70 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>strsplit</TITLE>
-  <TYPE>Scilab Function  </TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="strsplit"> split a string into a vector of strings</SHORT_DESCRIPTION>
-
-  <CALLING_SEQUENCE>
-  <CALLING_SEQUENCE_ITEM>v = strsplit(str,ind)</CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-
-  <PARAM>
-  <PARAM_INDENT>
-
-    <PARAM_ITEM>
-    <PARAM_NAME>str</PARAM_NAME>
-    <PARAM_DESCRIPTION>
-       <SP>
-       : a string
-       </SP>
-    </PARAM_DESCRIPTION>
-    </PARAM_ITEM>
-
-    <PARAM_ITEM>
-    <PARAM_NAME>ind</PARAM_NAME>
-    <PARAM_DESCRIPTION>
-       <SP>
-       : a vector of stricly increasing indices in the interval <VERB>[1 length(str)-1] </VERB>.
-       </SP>
-    </PARAM_DESCRIPTION>
-    </PARAM_ITEM>
-
-    <PARAM_ITEM>
-    <PARAM_NAME>v</PARAM_NAME>
-    <PARAM_DESCRIPTION>
-       <SP>
-       : the resulting column vector of strings (dimension <VERB>size(ind,'*')+1 </VERB>).
-       </SP>
-    </PARAM_DESCRIPTION>
-    </PARAM_ITEM>
-  </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <SP><VERB>v = strsplit(str,ind)</VERB> splits the string <VERB>str</VERB> into
-    a vector of strings at the points given by the indices in <VERB>ind</VERB>
-    (after each characters pointed to by the index in ind).</SP>
-  </DESCRIPTION>
-
-  <EXAMPLE><![CDATA[
-    S='strsplit splits a string into a vector of strings';
-    strsplit(S,[15 25 30])
-    ind=strindex(S,' ')
-  ]]></EXAMPLE>
-
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM> <LINK> strcat</LINK> </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM> <LINK> tokens</LINK> </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-
-  <AUTHORS>
-    <AUTHORS_ITEM label='S. Steer'>
-     INRIA
-    </AUTHORS_ITEM>
-  </AUTHORS>
-
-
-</MAN>
diff --git a/scilab/modules/string/help/en_US/strsubst.xml b/scilab/modules/string/help/en_US/strsubst.xml
deleted file mode 100644 (file)
index e09eea9..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>strsubst</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="strsubst"> substitute  a character string by another in a  character string.  </SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>str=strsubst(str1,str2,str3)  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>str1</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a matrix of character string. The strings where to search occurrences of <VERB>str2</VERB></SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>str2</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a character string. The string to search in <VERB>str1</VERB>.</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>str3</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a character string. The replacement string.</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>str</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a matrix of character string. The result of the substitution on  <VERB>str2</VERB> by  <VERB>str3</VERB> in  <VERB>str1</VERB></SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P><VERB>strsubst</VERB> replaces all occurrences of <VERB>str2</VERB> in <VERB>str1</VERB> by <VERB>str3</VERB>.</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-strsubst('SCI/demos/scicos','SCI','.')
-strsubst('SCI/demos/scicos','/',' ')
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>string</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>strings</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/tokenpos.xml b/scilab/modules/string/help/en_US/tokenpos.xml
deleted file mode 100644 (file)
index 3f5d942..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>tokenpos</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="tokenpos"> returns the tokens positions in a character string.  </SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>kdf=tokenpos(str [,delimiter])  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>str</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a character string. The string where to search the tokens.</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>delimiter</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: (optional) a character or a vector of characters. The tokens delimeters.</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>kdf</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: two columns matrix, first column gives the index of the beginning of the tokens, the second gives the index of the last character of the tokens.</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P><VERB>kdf=tokenpos(str [,delimiter]) </VERB> searches the tokens included in the
-    string <VERB>str</VERB>. The <VERB>delimiter</VERB> default value is [&quot; &quot;,&lt;Tab&gt;]
-    where &lt;Tab&gt; stands for <VERB>ascii(9)</VERB>. It returns the indices of the
-    first and last characters of each found tokens.</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-str='This is a character string';
-kdf=tokenpos(str)
-first=part(str,kdf(1,1):kdf(1,2))
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>strindex</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>tokens</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/tokens.xml b/scilab/modules/string/help/en_US/tokens.xml
deleted file mode 100644 (file)
index 210d902..0000000
+++ /dev/null
@@ -1,56 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>tokens</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="tokens"> returns the tokens of a character string.  </SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>T=tokens(str [,delimiter])  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-      <PARAM_ITEM>
-        <PARAM_NAME>str</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a character string. The string where to search the tokens.</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>delimiter</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: (optional) a character or a vector of characters. The tokens delimeters.</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-      <PARAM_ITEM>
-        <PARAM_NAME>T</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: column vector of found tokens</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P><VERB>T=tokens(str [,delimiter]) </VERB> searches the tokens included in the
-    string <VERB>str</VERB>. The <VERB>delimiter</VERB> default value is [&quot; &quot;,&lt;Tab&gt;]
-    where &lt;Tab&gt; stands for <VERB>ascii(9)</VERB>.</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-tokens('This is a character string')
-
-tokens('SCI/demos/scicos','/')
-
-tokens('y=a+b*2',['=','+','*'])
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>strindex</LINK>
-    </SEE_ALSO_ITEM>
-    <SEE_ALSO_ITEM>
-      <LINK>tokenpos</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-</MAN>
diff --git a/scilab/modules/string/help/en_US/tree2code.xml b/scilab/modules/string/help/en_US/tree2code.xml
deleted file mode 100644 (file)
index 3baf041..0000000
+++ /dev/null
@@ -1,72 +0,0 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
-<MAN>
-  <LANGUAGE>eng</LANGUAGE>
-  <TITLE>tree2code</TITLE>
-  <TYPE>Scilab Function</TYPE>
-  <DATE>$LastChangedDate$</DATE>
-  <SHORT_DESCRIPTION name="tree2code"> generates ascii definition of a Scilab function</SHORT_DESCRIPTION>
-  <CALLING_SEQUENCE>
-    <CALLING_SEQUENCE_ITEM>txt=tree2code(tree,prettyprint)  </CALLING_SEQUENCE_ITEM>
-  </CALLING_SEQUENCE>
-  <PARAM>
-    <PARAM_INDENT>
-
-      <PARAM_ITEM>
-        <PARAM_NAME>tree</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a macro tree (coming from macr2tree)</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-
-      <PARAM_ITEM>
-        <PARAM_NAME>prettyprint</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: optional boolean value</SP>
-          <PARAM_INDENT>
-            <PARAM_ITEM>
-              <PARAM_NAME>%T</PARAM_NAME>
-              <PARAM_DESCRIPTION>
-                <SP>: generated code is indented and beautified</SP>
-              </PARAM_DESCRIPTION>
-            </PARAM_ITEM>
-            <PARAM_ITEM>
-              <PARAM_NAME>%F</PARAM_NAME>
-              <PARAM_DESCRIPTION>
-                <SP>: generated code is not beautified (default)</SP>
-              </PARAM_DESCRIPTION>
-            </PARAM_ITEM>
-          </PARAM_INDENT>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-
-      <PARAM_ITEM>
-        <PARAM_NAME>txt</PARAM_NAME>
-        <PARAM_DESCRIPTION>
-          <SP>: a column vector of strings, the text giving the Scilab instructions</SP>
-        </PARAM_DESCRIPTION>
-      </PARAM_ITEM>
-
-    </PARAM_INDENT>
-  </PARAM>
-  <DESCRIPTION>
-    <P>
-    Given a loaded Scilab function "tree" (returned by macr2tree), tree2code allows to
-    re-generate the code.</P>
-  </DESCRIPTION>
-  <EXAMPLE>
-<![CDATA[
-tree=macr2tree(cosh);
-txt=tree2code(tree,%T);
-write(%io(2),txt,'(a)');
- ]]>
-  </EXAMPLE>
-  <SEE_ALSO>
-    <SEE_ALSO_ITEM>
-      <LINK>macr2tree</LINK>
-    </SEE_ALSO_ITEM>
-  </SEE_ALSO>
-  <AUTHORS>
-    <AUTHORS_ITEM>V.C.</AUTHORS_ITEM>
-  </AUTHORS>
-</MAN>
diff --git a/scilab/modules/string/includes/InitializeString.h b/scilab/modules/string/includes/InitializeString.h
deleted file mode 100644 (file)
index 9663d4d..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2007 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#ifndef __INITIALIZESTRING_H__
-#define __INITIALIZESTRING_H__
-
-#include "BOOL.h"
-
-BOOL InitializeString(void);
-
-#endif /* __INITIALIZESTRING_H__ */
-/*--------------------------------------------------------------------------*/ 
diff --git a/scilab/modules/string/includes/cvstr.h b/scilab/modules/string/includes/cvstr.h
deleted file mode 100644 (file)
index 7f24333..0000000
+++ /dev/null
@@ -1,58 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2007 */
-/* Sylvestre LEDRU */
-/*--------------------------------------------------------------------------*/
-#ifndef __CVSTR_H__
-#define __CVSTR_H__
-
-#include "machine.h" /* C2F */
-
-/**
-* converts from ascii to Scilab internal coding 
-* @param n integer, length of the string to be converted integer
-* @param line: integer array (where Scilab coded string are stored ) 
-* @param str: string 
-* @param job: integer flag 
-* @param str_len : length of str
-* @return 1: code-->ascii 
-* @return 0: ascii-->code 
-*/
-int C2F(cvstr)(integer * n,integer * line,char * str,integer * job,unsigned long str_len);
-
-/**
-* converts from ascii to Scilab internal coding 
-* ascii->code is performed from end to the begining 
-* @param n integer, length of the string to be converted integer
-* @param line: integer array (where Scilab coded string are stored ) 
-* @param str: string 
-* @param job: integer flag 
-* @param str_len : length of str
-* @return 0: ascii-->code 
-*/
-int C2F(cvstr1)(integer *n,integer * line,char * str,integer * job,unsigned long str_len);
-
-/**
-* converts from Scilab internal coding to ascii
-* @param n integer, length of the string to be converted integer
-* @param line: integer array (where Scilab coded string are stored ) 
-* @param str: string 
-* @param str_len : length of str
-* @return 0
-*/
-int C2F(codetoascii)(integer *n,integer * line,char * str, unsigned long str_len);
-
-/**
-* converts from ascii to Scilab internal coding 
-* @param n integer, length of the string to be converted integer
-* @param line: integer array (where Scilab coded string are stored ) 
-* @param str: string 
-* @param flagx:  1 or -1 and this is used when the 
-* conversion is made with line and str stored at overlapping 
-* memory zone 
-* @param str_len : length of str
-* @return 0
-*/
-int C2F(asciitocode)(integer * n,integer * line,char * str,integer * flagx,unsigned long  str_len);
-
-#endif /* __CVSTR_H__ */
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/includes/getfastcode.h b/scilab/modules/string/includes/getfastcode.h
deleted file mode 100644 (file)
index 353b330..0000000
+++ /dev/null
@@ -1,35 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2007 */
-/* Sylvestre LEDRU */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/
-#ifndef __GETFASTCODE_H__
-#define __GETFASTCODE_H__
-
-#include "machine.h"
-
-/**
-* converts from ascii to Scilab internal coding 
-* @param n integer, length of the string to be converted integer
-* @param line: integer array (where Scilab coded string are stored ) 
-* @param a char
-* @return internal code
-* getfastcode uses convertAsciiCodeToScilabCode
-*/
-integer C2F(getfastcode)(unsigned char *c, unsigned long c_len);
-
-/**
-* converts from ascii to Scilab internal coding 
-* @param[in] ascii char
-* @return scilab code
-*/
-int convertAsciiCodeToScilabCode(unsigned char scilab_char);
-
-/**
-* converts Scilab internal coding to ascii code
-* @param[in] scilab_code
-* @return ascii_code [0 255]
-*/
-char convertScilabCodeToAsciiCode(int scilab_code);
-
-#endif /* __GETFASTCODE_H__ */
diff --git a/scilab/modules/string/includes/gw_string.h b/scilab/modules/string/includes/gw_string.h
deleted file mode 100644 (file)
index cd8faf8..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#ifndef __GW_STRING__
-#define __GW_STRING__
-/*--------------------------------------------------------------------------*/ 
-#include "machine.h"
-/*--------------------------------------------------------------------------*/ 
-int C2F(gw_string)(void);
-/*--------------------------------------------------------------------------*/ 
-int C2F(sci_length) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_part) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_string) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_convstr) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_emptystr) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_str2code) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_code2str) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_strcat) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_strindex) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_strsubst) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_ascii) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_grep) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_tokens) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_strsplit) _PARAMS((char *fname,unsigned long fname_len));
-int C2F(sci_stripblanks) _PARAMS((char *fname,unsigned long fname_len));
-/*--------------------------------------------------------------------------*/ 
-#endif /*  __GW_STRING__ */
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/includes/men_Sutils.h b/scilab/modules/string/includes/men_Sutils.h
deleted file mode 100644 (file)
index 6a8065c..0000000
+++ /dev/null
@@ -1,16 +0,0 @@
-#ifndef MEN_SUTIL_PROTO
-#define MEN_SUTIL_PROTO
-
-/** men_Sutils.c **/
-/* Copyright Inria/Enpc */
-
-#include "machine.h"
-  
-extern void strwidth __PARAMS((char *, int *, int *));  
-extern void ScilabStr2C __PARAMS((int *n, int *, char **, int *));  
-extern void ScilabMStr2CM __PARAMS((int *, int *, int *, char ***, int *));  
-extern void ScilabMStr2C __PARAMS((int *, int *, int *, char **, int *));  
-extern void ScilabC2MStr2 __PARAMS((int*,int *,int *,char *,int *, int,int)); 
-extern void ScilabCM2MStr __PARAMS((char **,int,int *,int *,int ,int *));  
-
-#endif /*  MEN_SUTIL_PROTO */
diff --git a/scilab/modules/string/includes/stricmp.h b/scilab/modules/string/includes/stricmp.h
deleted file mode 100644 (file)
index 9e17cc6..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*-----------------------------------------------------------------------*/\r
-/* INRIA 2008\r
-/*-----------------------------------------------------------------------*/\r
-#ifndef __STRICMP_H__\r
-#define __STRICMP_H__\r
-\r
-#include <string.h>\r
-\r
-/* compare  two strings ignoring case */\r
-\r
-#if _MSC_VER\r
-       #define stricmp _stricmp \r
- #else\r
-    #define stricmp strcasecmp\r
-#endif\r
-\r
-#endif /* __STRICMP_H__ */\r
-/*-----------------------------------------------------------------------*/\r
diff --git a/scilab/modules/string/license.txt b/scilab/modules/string/license.txt
deleted file mode 100644 (file)
index 5aaa4cb..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-licence file
-
-INRIA 2006
\ No newline at end of file
diff --git a/scilab/modules/string/locales/en_US/string.pot b/scilab/modules/string/locales/en_US/string.pot
deleted file mode 100644 (file)
index fd1f168..0000000
+++ /dev/null
@@ -1,47 +0,0 @@
-# Localization of the module string
-# Please see in SCI/tools/localization for localization management
-# Copyright (C) 2007 - INRIA / Scilab
-# This file is distributed under the same license as the Scilab package.
-# Sylvestre Ledru <sylvestre.ledru@inria.fr>, 2007.
-#
-
-msgid  ""
-msgstr "Project-Id-Version: Scilab - string\n"
-       "Report-Msgid-Bugs-To: \n"
-       "POT-Creation-Date: 2007-09-27 16:24+0200\n"
-       "PO-Revision-Date: 2007-10-03 19:34:28+02:00\n"
-       "Last-Translator: Sylvestre Ledru <sylvestre.ledru@inria.fr>\n"
-       "Language-Team: Scilab <localization@scilab.org>\n"
-       "MIME-Version: 1.0\n"
-       "Content-Type: text/plain; charset=ISO-8859-1\n"
-       "Content-Transfer-Encoding: 8bit\n"
-#
-# File: macros/expression2code.sci, line: 316
-msgid  " is not yet implemented !"
-msgstr ""
-#
-# File: macros/tree2code.sci, line: 13
-msgid  "Input variable is not a program tree in tree2code !"
-msgstr ""
-#
-# File: macros/instruction2code.sci, line: 295
-msgid  "instruction2code: bug in macr2tree() !"
-msgstr ""
-#
-# File: macros/arobasestring2strings.sci, line: 31
-msgid  "function only works with an unique string"
-msgstr ""
-#
-# File: src/c/strcat-c.c, line: 44
-#, possible-c-format
-msgid  "%s: third argument should be 'c' or 'r'\n"
-msgstr ""
-#
-# File: src/c/strcat-c.c, line: 80
-# File: src/c/strcat-c.c, line: 91
-# File: src/c/strcat-c.c, line: 136
-# File: src/c/strcat-c.c, line: 148
-#, possible-c-format
-msgid  "%s: Out of memory\n"
-msgstr ""
-
diff --git a/scilab/modules/string/macros/arobasestring2strings.sci b/scilab/modules/string/macros/arobasestring2strings.sci
deleted file mode 100644 (file)
index 6fe59a4..0000000
+++ /dev/null
@@ -1,55 +0,0 @@
-//==========================================================================
-// Copyrigth INRIA 2005
-// File   : arobasestring2strings.sci
-// Author : Jean-Baptiste Silvy
-// Desc   : Convert the string format defined by jpc into matrix of strings
-//==========================================================================
-
-
-function [strings] = arobasestring2strings( varargin )
-
-// call : arobasestring2strings( string )
-
-[lhs,rhs] = argn(0) ;
-
-// check number of arguments
-if ( rhs ~= 1 ) then
-  error(39);
-  return ;
-end
-
-cText = varargin(1) ;
-
-// check type
-if ( type(cText) ~= 10 ) then
-  error(246) ;
-  return ; 
-end
-
-// check the size
-if ( size( cText ) <> 1 ) then
-  error("function only works with an unique string");
-  return ;
-end
-
-// in the text, each line is separated by a '@' character
-// in the resulting matrix, each line is put on a line
-// of the matrix
-
-// positions of @ in 
-arobPos = strindex( cText, '@' ) ;
-
-nbArob = size( arobPos ) ;
-nbArob = nbArob(2);
-
-// add the last character
-arobPos( nbArob + 1 ) = length( cText ) + 1 ;
-
-// get the first string
-strings(1) = part( cText, [1:arobPos(1)-1] ) ;
-
-for i = 1 : nbArob
-  strings( i + 1 ) = part( cText, [ arobPos(i) + 1 : arobPos(i+1) - 1 ] ) ;
-end
-
-endfunction
diff --git a/scilab/modules/string/macros/ascii2string.sci b/scilab/modules/string/macros/ascii2string.sci
deleted file mode 100644 (file)
index e3a64ff..0000000
+++ /dev/null
@@ -1,8 +0,0 @@
-function ww=ascii2string(w1)
-//converts a numeric (real or integer) matrix made of ascii codes
-//into a one column scilab string matrix and conversely.
-ww=[];
-for k=1:size(w1,1)
-ww=[ww;ascii(w1(k,:))];
-end
-endfunction
diff --git a/scilab/modules/string/macros/blanks.sci b/scilab/modules/string/macros/blanks.sci
deleted file mode 100644 (file)
index 0f1d5fc..0000000
+++ /dev/null
@@ -1,23 +0,0 @@
-//=============================================
-// blanks macro
-// blanks(n)
-// Create string of blank characters
-// Allan CORNET
-// INRIA 2007
-//=============================================
-function str = blanks(n)
-  if ~or(type(n)==[1,8]) then
-    error(44,1)
-  end
-  if n>0 then
-    str=part(" ",ones(1,n))
-  elseif n==0
-    str=""
-  else
-    error(116,1);
-  end
-endfunction
-//=============================================
-
-
-
diff --git a/scilab/modules/string/macros/buildmacros.bat b/scilab/modules/string/macros/buildmacros.bat
deleted file mode 100644 (file)
index c4e35ec..0000000
+++ /dev/null
@@ -1 +0,0 @@
-@..\..\..\bin\scilex -nwni -ns -e exec('buildmacros.sce');quit;
\ No newline at end of file
diff --git a/scilab/modules/string/macros/buildmacros.sce b/scilab/modules/string/macros/buildmacros.sce
deleted file mode 100644 (file)
index ffa75e1..0000000
+++ /dev/null
@@ -1,9 +0,0 @@
-//------------------------------------
-// Allan CORNET INRIA 2005
-//------------------------------------
-if (isdef('genlib') == %f) then
-  exec(SCI+'/modules/functions/scripts/buildmacros/loadgenlib.sce');
-end
-//------------------------------------
-genlib('stringlib','SCI/modules/string/macros',%f,%t);
-//------------------------------------
diff --git a/scilab/modules/string/macros/cat_code.sci b/scilab/modules/string/macros/cat_code.sci
deleted file mode 100644 (file)
index b076fa1..0000000
+++ /dev/null
@@ -1,20 +0,0 @@
-function t=cat_code(a,b)
-// Copyright INRIA
-// Scilab Project - V. Couvert
-// Catenate two parts of code (called by tree2code)
-// Input:
-// - a: original code
-// - b: code to add to a
-// Output:
-// - t: catenation of a and b
-
-if a==[] then 
-  t=b
-elseif b==[] then
-  t=a
-elseif stripblanks(b)=="" then // b=="" then add a new line
-  t=[a;""];
-else
-  t=[a(1:$-1);a($)+b(1);b(2:$)]
-end
-endfunction
diff --git a/scilab/modules/string/macros/cleanmacros.bat b/scilab/modules/string/macros/cleanmacros.bat
deleted file mode 100644 (file)
index 5079dfd..0000000
+++ /dev/null
@@ -1,3 +0,0 @@
-@del *.bin 2>NUL
-@del lib 2>NUL
-@del names 2>NUL
\ No newline at end of file
diff --git a/scilab/modules/string/macros/eval.sci b/scilab/modules/string/macros/eval.sci
deleted file mode 100644 (file)
index 603fb05..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-function [h]=eval(z)
-// Syntax :  H = eval(Z)
-// returns the evaluation of the matrix of character strings Z.
-// Example: a=1; b=2; Z=['a','b'] ; eval(Z) returns the matrix [1,2];
-//!
-// Copyright INRIA
-[mz,nz]=size(z),
-if mz*nz>1 then
-   texte=[];
-   for l=1:mz,for k=1:nz,
-     texte=[texte;'%h('+string(l)+','+string(k)+')='+z(l,k)],
-   end,end,
-else
-   texte='%h='+z
-end
-deff('[%h]=%eval()',texte),
-h=%eval(),
-endfunction
diff --git a/scilab/modules/string/macros/evstr.sci b/scilab/modules/string/macros/evstr.sci
deleted file mode 100644 (file)
index 9d14ea3..0000000
+++ /dev/null
@@ -1,37 +0,0 @@
-function [%val,%ierr]=evstr(%str)
-// Copyright INRIA
-[lhs,rhs]=argn(0)
-%val=[]
-select type(%str)
- case 10 then
-    for %l=1:size(%str,'r')
-      %t1(%l)=strcat(%str(%l,:),',')+';'
-    end
-    %t1(1)='%val=['+%t1(1);
-    %t1($)=part(%t1($),1:length(%t1($))-1)+']'
-    if lhs==2 then
-      %ierr=execstr(%t1,'errcatch')
-    else
-      execstr(%t1)
-    end
- case 15 then
-    %sexp=%str(2),
-    %nstr=prod(size(%sexp)); %=list();
-    if lhs==2 then
-      for %k=1:%nstr,
-       [%w,%ierr]=evstr(%sexp(%k)),
-       %(%k)=%w
-       if %ierr<>0 then %val=[];return;end
-      end,
-      [%val,%ierr]=evstr(%str(1))
-    else
-      for %k=1:%nstr, %(%k)=evstr(%sexp(%k)),end,
-      %val=evstr(%str(1))
-    end
-case 1 then
-   %val=%str
-   %ierr=0
-else 
-   error('waiting for: matrix of strings or list'),
-end
-endfunction
diff --git a/scilab/modules/string/macros/expression2code.sci b/scilab/modules/string/macros/expression2code.sci
deleted file mode 100644 (file)
index d305719..0000000
+++ /dev/null
@@ -1,327 +0,0 @@
-function C=expression2code(e)
-// Copyright INRIA
-// Scilab Project - V. Couvert
-// Translate an expression tree to macro code (called by tree2code)
-// Input:
-// - e: expression 'tree'
-// Output:
-// - C: Scilab code corresponding to e
-// V.C.
-
-// Change format for constants
-fmtsav=format();
-format(16);
-
-// Tables of symbols arranged by priority in computations
-sumops=["+","-","&","|"] //1
-prodops=["*","/",".*","./","\",".\","^",".^"] //2
-othops=["==",">=","<=","~=",">","<","~",".''",".''",":"] //3
-
-C=[]
-select typeof(e)
-  // ---------
-  // OPERATION
-  // ---------
-case "operation" then
-  operator=e.operator
-  operands=[]
-  nb_op=size(e.operands)
-  if and(operator<>["cc","cceol"]) then
-    for i=1:nb_op
-      operands=[operands;expression2code(e.operands(i))]
-    end
-  end
-
-  // Row concatenation
-  if operator=="rc" then
-    for i=1:nb_op
-      if typeof(e.operands(i))=="operation" then
-       if e.operands(i).operator=="rc" then
-         operands(i)=part(operands(i),2:length(operands(i))-1)
-         elseif or(e.operands(i).operator==["cceol"]) then
-         operands(1)=part(operands(1),2:length(operands(1)))
-         operands($)=part(operands($),1:length(operands($))-1)
-       end
-      end
-    end
-    C="["+strcat(operands,",")+"]"
-    // Multi-line column concatenation
-  elseif operator=="cceol" then
-    for i=1:nb_op
-      opi=expression2code(e.operands(i))
-      if typeof(e.operands(i))=="operation" then
-       if e.operands(i).operator=="rc" then
-         opi=part(opi,2:length(opi)-1)
-       elseif or(e.operands(i).operator==["cc","cceol"]) then
-         opi(1)=part(opi(1),2:length(opi(1)))
-         opi($)=part(opi($),1:length(opi($))-1)
-       end
-      end
-      
-      if i==1 then
-       C="["
-           if size(opi,"*")>1 then
-             C = [C+opi(1);opi(2:$)]
-           else
-             C = C+opi
-           end
-           C($)=C($)+";"
-           C=[C;""]
-         else
-           if size(opi,"*")>1 then
-             C = [C(1:$-1);C($)+opi(1);opi(2:$)]
-           else
-             C = [C(1:$-1);C($)+opi]
-           end
-           C($)=C($)+"]"
-      end
-    end
-    // Column concatenation
-  elseif operator=="cc" then
-    C="["
-       for i=1:nb_op
-         opi=expression2code(e.operands(i))
-         // Delete [ and ] if there are...
-         if typeof(e.operands(i))=="operation" then
-       if e.operands(i).operator=="rc" then
-         opi=part(opi,2:length(opi)-1)
-       elseif or(e.operands(i).operator==["cc","cceol"]) then
-         opi(1)=part(opi(1),2:length(opi(1)))
-         opi($)=part(opi($),1:length(opi($))-1)
-       end
-      end
-      if i==1 then
-       if size(opi,"*")>1 then
-         C = [C+opi(1);opi(2:$)]
-       else
-         C = C+opi
-       end
-       C($)=C($)+";"
-      else
-       if size(opi,"*")>1 then
-         C = [C(1:$-1);C($)+opi(1);opi(2:$)]
-       else
-         C = [C(1:$-1);C($)+opi]
-       end
-      end
-    end
-    C($)=C($)+"]"
-// Extraction
-elseif operator=="ext" then
-  if size(e.operands)==1 then
-    C=e.operands(1).name
-    return
-  end
-  if type(e.operands(2))==15 then // Recursive extraction
-    C=operands(1)+operands(2)
-  else
-    // Deal with : 
-    for k=2:size(operands,"*")
-      if operands(k)==""":""" then
-       operands(k)=":"
-      elseif operands(k)=="""$""" then
-       operands(k)="$"
-      elseif operands(k)=="""*""" then // Only used for M2SCI
-       operands(k)="*"
-      end
-    end
-    val = part(operands(2),1)=="""" & part(operands(2),length(operands(2)))==""""
-    if val then // struct field
-      C=operands(1)+"."+evstr(operands(2))
-      if size(operands,"*")>=3 then
-       C=C+"("
-      end
-      for k=3:size(operands,"*")
-       C=C+","+operands(k)
-      end
-      if size(operands,"*")>=3 then
-       C=C+")"
-      end
-    else
-      C=operands(1)+"("+operands(2)
-      for k=3:size(operands,"*")
-       C=C+","+operands(k)
-      end
-      C=C+")"
-    end
-  end
-  // Insertion  
-elseif operator=="ins" then
-  if type(e.operands(2))==15 then // Recursive insertion
-    C=operands(1)+operands(2)
-  else
-    // Deal with : 
-    for k=2:size(operands,"*")
-      if operands(k)==""":""" then
-       operands(k)=":"
-      elseif operands(k)=="""$""" then
-       operands(k)="$"
-      elseif operands(k)=="""*""" then // Only used in M2SCI
-       operands(k)="*"
-      end
-    end
-    val = part(operands(2),1)=="""" & part(operands(2),length(operands(2)))==""""
-    if val then // struct field
-      C=operands(1)+"."+evstr(operands(2))
-      if size(operands,"*")>=3 then
-       C=C+"("
-      end
-      for k=3:size(operands,"*")
-       C=C+","+operands(k)
-      end
-      if size(operands,"*")>=3 then
-       C=C+")"
-      end
-    else
-      C=operands(1)+"("+operands(2)
-      for k=3:size(operands,"*")
-       C=C+","+operands(k)
-      end
-      C=C+")"
-    end
-  end
-  // Unary Operators
-elseif size(operands,"*")==1 then
-  if or(operator==["''",".''"]) then
-    if typeof(e.operands(1))=="operation" then
-      if and(e.operands(1).operator<>["rc","cc","-","+"]) then
-       operands="("+operands+")"
-      end
-    end
-    C=operands+operator
-  elseif or(operator==["+","-"]) then
-    if typeof(e.operands(1))=="operation" then
-      if or(e.operands(1).operator==["-","+"]) then
-       operands="("+operands+")"
-      end
-    end
-    C=operator+operands    
-  else
-    C=operator+operands
-  end
-  // Other operators  
-else
-  // Parenthesize
-  if or(operator==["+","-"]) then
-    for i=1:nb_op
-      if typeof(e.operands(i))=="operation" then
-       if or(e.operands(i).operator==othops) then
-         operands=[operands(1:i-1) "("+operands(i)+")" operands(i+1:$)]
-       end
-      end
-    end
-    for i=2:nb_op
-      if typeof(e.operands(i))=="operation" then
-         if or(e.operands(i).operator==sumops) then
-         operands=[operands(1:i-1) "("+operands(i)+")" operands(i+1:$)]
-       end
-      end
-    end
-  end
-  if or(operator==[prodops,othops]) & (operator<>":") then
-    if typeof(e.operands(1))=="operation" then
-      if or(e.operands(1).operator==[sumops,prodops,othops]) then
-       operands(1)="("+operands(1)+")"
-      end
-    end
-    if typeof(e.operands(2))=="operation" then
-      if or(e.operands(2).operator==[sumops,prodops,othops]) then
-       operands(2)="("+operands(2)+")"
-      end
-    end
-  end
-  if part(operator,1)=="." & part(operator,length(operator))=="." then
-    C=strcat(operands," "+operator+" ")
-  elseif part(operator,1)=="." then
-    C=strcat(operands," "+operator)
-  elseif part(operator,length(operator))=="." then
-    C=strcat(operands,operator+" ")
-  else
-    C=strcat(operands,operator)
-  end
-end
-// --------
-// CONSTANT
-// --------
-case "cste" then
-  C=sci2exp(e.value)
-  if C==""":""" then
-    //C=":"
-  elseif C=="""$""" then
-    C="$"
-  elseif C=="""*""" then // Only used in M2SCI
-    C="""*"""
-    //  C="*"
-  end
-  // --------
-  // VARIABLE
-  // --------
-case "variable" then
-  C=e.name
-  // ----------------
-  // CHARACTER STRING
-  // ----------------
-case "string" then
-  C=e
-  // -------
-  // FUNCALL
-  // -------
-case "funcall" then
-  if size(e.rhs)==0 then
-    I=I; // I is defined in instruction2code
-    C=e.name
-    [l,mac]=where()
-    if size(grep(mac,"expression2code"),"*")>1 then
-      C=C+"()"
-    elseif typeof(I)=="equal" & ( (typeof(I.lhs(1))=="variable" & I.lhs(1).name<>"ans") | typeof(I.lhs(1))=="operation") then 
-      C=C+"()"
-    end
-  else
-    C=e.name+"("+rhs2code(e.rhs)+")"
-  end
-  // ----
-  // LIST
-  // ----
-case "list"
-  // Recursive extraction
-  C=[]
-  for k=1:lstsize(e)
-    ind=expression2code(e(k))
-    if type(e(k))==15 then // Recursive extraction in recursive extraction
-      ind=strsubst(ind,")(",",")
-      //ind=strsubst(ind,"(","")
-      //ind=strsubst(ind,")","")
-    end
-    if ind==""":""" then
-      ind=":"
-    elseif ind=="""$""" then
-      ind="$"
-    elseif ind=="""*""" then // Only used in M2SCI
-      ind="*"
-    end
-    val = part(ind,1)=="""" & part(ind,length(ind))==""""
-    if val then
-      C=C+"."+evstr(ind)
-    else
-      C=C+"("+ind+")"
-    end
-  end
-  C=strsubst(C,")(",",")
-  // -----
-  // EQUAL (can occur fir disp(a=1) for example)
-  // -----
-case "equal"
-  C=instruction2code(e)
-else
-  error("expression2code(): "+typeof(e)+" is not yet implemented !");
-end
-
-// Restore format
-if fmtsav(1)==1 then
-  format("v",fmtsav(2));
-else
-  format("e",fmtsav(2));
-end
-endfunction
-
-
diff --git a/scilab/modules/string/macros/instruction2code.sci b/scilab/modules/string/macros/instruction2code.sci
deleted file mode 100644 (file)
index ca6444a..0000000
+++ /dev/null
@@ -1,301 +0,0 @@
-function  C=instruction2code(I,prettyprint)
-// Copyright INRIA
-// Scilab Project - V. Couvert
-// Translate an instruction tlist to Scilab code (called by tree2code)
-// Input:
-// - I: instruction 'tree'
-// - prettyprint: boolean value, if FALSE (default value), generated code is not formated else it is
-// Output:
-// - C: Scilab code corresponding to I
-
-// Default value
-rhs=argn(2)
-if rhs==1 then
-  prettyprint=%F
-end
-
-C=[]
-
-// -----------
-// Empty lines
-// -----------
-if I==list("EOL") then
-  C=""
-  return
-end
-
-// ---------------------------------------------
-// Generate code corresponding to a TRY-CATCH
-// ---------------------------------------------
-if typeof(I)=="trycatch" then
-
-  //TRYCATCH
-C="try "
-  [C,indent_space] = format_txt(C,I.trystat(1),prettyprint); // Add EOL after while if needed and returns indent_space
-  for k=1:size(I.trystat)
-  C=cat_code(C,indent_space+instruction2code(I.trystat(k))) 
-    if k<size(I.trystat) then // Add EOL between statements if needed
-      C = format_txt(C,I.trystat(k),prettyprint,I.trystat(k+1));
-    end
-  end
-  C = format_txt(C,I.trystat($),prettyprint); // Add EOL after last statement if needed
-  C=cat_code(C,"catch ")
-  for k=1:size(I.catchstat)
-  C=cat_code(C,indent_space+instruction2code(I.catchstat(k))) 
-    if k<size(I.catchstat) then // Add EOL between statements if needed
-      C = format_txt(C,I.catchstat(k),prettyprint,I.catchstat(k+1));
-    end
-  end
-  C = format_txt(C,I.catchstat($),prettyprint); // Add EOL after last statement if needed 
-  C=cat_code(C,"end")
-  C($)=C($)+";"
-  return
-end
-
-// ---------------------------------------------
-// Generate code corresponding to a IF-THEN-ELSE
-// ---------------------------------------------
-if typeof(I)=="ifthenelse" then
-
-  // IF
-  C="if "+expression2code(I.expression)+" then"
-  [C,indent_space] = format_txt(C,I.then(1),prettyprint); // Add EOL after then if needed and returns indent_space
-  for k=1:size(I.then)
-    C=cat_code(C,indent_space+instruction2code(I.then(k)))
-    if k<size(I.then) then // Add EOL between then statements if needed
-      C = format_txt(C,I.then(k),prettyprint,I.then(k+1));
-    end
-  end
-  C = format_txt(C,I.then($),prettyprint); // Add EOL after last then statement if needed
-
-  // ELSEIF
-  if size(I.elseifs)<>0 then
-  for k=1:size(I.elseifs)
-  C=cat_code(C,"elseif "+expression2code(I.elseifs(k).expression)+" then")
-[C,indent_space] = format_txt(C,I.elseifs(k).then(1),prettyprint); // Add EOL after then if needed and returns indent_space
-  for l=1:size(I.elseifs(k).then)
-C=cat_code(C,indent_space+instruction2code(I.elseifs(k).then(l)))
-  if l<size(I.elseifs(k).then) then // Add EOL between then statements
-  C = format_txt(C,I.elseifs(k).then(l),prettyprint,I.elseifs(k).then(l+1));
-end
-end
-C = format_txt(C,I.elseifs(k).then($),prettyprint); // Add EOL after last then statement if needed
-end
-end
-
-// ELSE
-if size(I.else)<>0 then
-C=cat_code(C,"else")
-[C,indent_space] = format_txt(C,I.else(1),prettyprint); // Add EOL after else if needed and returns indent_space
-  for k=1:size(I.else)
-C=cat_code(C,indent_space+instruction2code(I.else(k)))
-if k<size(I.else) then // Add EOL between else statements if needed
-  C = format_txt(C,I.else(k),prettyprint,I.else(k+1));
-end
-end
-C = format_txt(C,I.else($),prettyprint); // Add EOL after last else statement if needed
-end
-C=cat_code(C,"end")
-C($)=C($)+";"
-return
-end
-
-// --------------------------------------------
-// Generate code corresponding to a SELECT-CASE
-// --------------------------------------------
-if typeof(I)=="selectcase" then
-
-  // SELECT
-  C="select "+expression2code(I.expression(1))
-
-  if size(I.expression)==1 // Not EOL and not comment after the expression 
-    if prettyprint then
-      C = cat_code(C,"") // Add EOL after expression 
-    end
-  else
-    for i=2:size(I.expression)
-        C=cat_code(C," "+ instruction2code(I.expression(i)))
-    end
-  end
-  // CASES
-  if size(I.cases)<>0 then
-    for k=1:size(I.cases)
-      C=cat_code(C,"  case "+expression2code(I.cases(k).expression)+" then")
-      [C,indent_space] = format_txt(C,I.cases(k).then(1),prettyprint); // Add EOL after then if needed and returns indent_space
-      if indent_space=="  " then // indent_space is modified because indentation differs from others control instructions
-       indent_space="    "
-      end
-      for l=1:size(I.cases(k).then)
-       C=cat_code(C,indent_space+instruction2code(I.cases(k).then(l)))
-       if l<size(I.cases(k).then) then // Add EOL between then statements if needed
-         C = format_txt(C,I.cases(k).then(l),prettyprint,I.cases(k).then(l+1));
-       end
-      end
-      C = format_txt(C,I.cases(k).then($),prettyprint); // Add EOL after last then statement if needed
-    end
-  end
-  // ELSE
-  if size(I.else)<>0 then
-  C=cat_code(C,"  else")
-[C,indent_space] = format_txt(C,I.else(1),prettyprint); // Add EOL after else if needed and returns indent_space
-  if indent_space=="  " then // indent_space is modified because indentation differs from others control instructions
-    indent_space="    "
-  end
-  for k=1:size(I.else)
-C=cat_code(C,indent_space+instruction2code(I.else(k)))
-if k<size(I.else) then // Add EOL between else statements if needed
-  C = format_txt(C,I.else(k),prettyprint,I.else(k+1));
-end
-end
-C = format_txt(C,I.else($),prettyprint); // Add EOL after last else statement if needed
-end
-C=cat_code(C,"end")
-C($)=C($)+";"
-return
-end
-
-// --------------------------------------
-// Generate code corresponding to a WHILE
-// --------------------------------------
-if typeof(I)=="while" then
-
-  C="while "+expression2code(I.expression)
-  [C,indent_space] = format_txt(C,I.statements(1),prettyprint); // Add EOL after while if needed and returns indent_space
-  for k=1:size(I.statements)
-    C=cat_code(C,indent_space+instruction2code(I.statements(k)))
-    if k<size(I.statements) then // Add EOL between statements if needed
-      C = format_txt(C,I.statements(k),prettyprint,I.statements(k+1));
-    end
-  end
-  C = format_txt(C,I.statements($),prettyprint); // Add EOL after last statement if needed
-  C=cat_code(C,"end")
-  C($)=C($)+";"
-  return
-end
-
-// ------------------------------------
-// Generate code corresponding to a FOR
-// ------------------------------------
-if typeof(I)=="for" then
-
-  C="for "+instruction2code(I.expression)
-  [C,indent_space] = format_txt(C,I.statements(1),prettyprint); // Add EOL after while if needed and returns indent_space
-  for k=1:size(I.statements)
-    C=cat_code(C,indent_space+instruction2code(I.statements(k)))
-    if k<size(I.statements) then // Add EOL between statements if needed
-      C = format_txt(C,I.statements(k),prettyprint,I.statements(k+1));
-    end
-  end
-  C = format_txt(C,I.statements($),prettyprint); // Add EOL after last statement if needed
-  C=cat_code(C,"end")
-  C($)=C($)+";"
-  return
-end
-
-// --------------------------------------
-// Generate code corresponding to a EQUAL
-// --------------------------------------
-if typeof(I)=="equal" then
-  
-  // Comments
-  if typeof(I.expression)=="funcall" then
-    if I.expression.name=="%comment" then
-      I.expression.rhs(1).value=strsubst(I.expression.rhs(1).value,"""""","""")
-      I.expression.rhs(1).value=strsubst(I.expression.rhs(1).value,"''''","''")
-      C="//"+I.expression.rhs(1).value
-      //C($)=C($)+";"
-      return
-    end
-  end
-
-  // Other EQUAL instruction
-  if size(I.lhs)==1 then
-    if typeof(I.lhs(1))=="variable" then
-      if I.lhs(1).name=="ans" then // expression
-       C=rhs2code(I.expression)
-      else
-       RHS=rhs2code(I.expression)
-       if size(RHS,"*")==1 then
-         C=I.lhs(1).name+" = "+rhs2code(I.expression)
-       else // Multi-line definition
-         C=[I.lhs(1).name+" = "+RHS(1);"     "+RHS(2:$)]
-       end
-      end
-    else // Insertion...
-       C=expression2code(I.lhs(1))+" = "+rhs2code(I.expression)
-  end
-else
-  lhsnames=[]
-  for lhsind=1:size(I.lhs)
-    lhsnames=[lhsnames,expression2code(I.lhs(lhsind))]
-  end
-  if strcat(lhsnames,",")<>"" then
-    C="["+strcat(lhsnames,",")+"] = "+rhs2code(I.expression)
-  else
-    C=rhs2code(I.expression)
-  end
-end
-C($)=C($)+I.endsymbol
-//C($)=C($)+";";
-return
-end
-
-// --------------------------------------
-// Generate code corresponding to a comment
-// --------------------------------------
-if typeof(I)=="comment" then
-  C="//"+I.text
-  //C = cat_code(C,"//"+I.text)
-  return
-end
-
-// ---------------------------------------
-// Generate code corresponding to sup_equal
-// ---------------------------------------
-if typeof(I)=="sup_equal" then
-  while typeof(I.sup_instr(1))=="equal" | I.sup_instr(1)==list("EOL") 
-    if I.sup_instr(1)==list("EOL") then //Instruction is an EOL 
-      I.sup_instr(1)=null()
-    elseif typeof(I.sup_instr(1))=="equal" then //Instruction is acomment  
-      if typeof(I.sup_instr(1).expression)=="funcall" then 
-         break
-      end
-    end
-  end
-  //Optimize the code if all sup_intr are equal tlists and expression of this equal tlists are temporaries variables (not a function)
-  if size(I.sup_instr)==I.nb_opr+1 then  
-    for i=size(I.sup_instr):-1:2
-      optim_instr=%f
-      if typeof(I.sup_instr(i))=="equal" then
-       if typeof(I.sup_instr(i).expression)=="variable" then
-         j=0
-         while ~optim_instr & j<=size(I.sup_instr(1).lhs) 
-           j=j+1
-           optim_instr=I.sup_instr(i).expression.name==I.sup_instr(1).lhs(j).name
-         end
-       end
-      end
-      if optim_instr then
-       I.sup_instr(1).lhs(j)=I.sup_instr(i).lhs(1)
-       I.sup_instr(i)=null()
-      end
-    end
-  end
-  for i=1:size(I.sup_instr)
-    C($+1)=instruction2code(I.sup_instr(i))
-  end
-  return
-end
-
-// -------
-// Command
-// -------
-if typeof(I)<>"funcall" then
-  disp("instruction2code: bug in macr2tree() !");
-  pause
-end
-C=expression2code(I); 
-C($)=C($)+";"
-endfunction
-
diff --git a/scilab/modules/string/macros/justify.sci b/scilab/modules/string/macros/justify.sci
deleted file mode 100644 (file)
index 8488dd6..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-function t=justify(t,job)
-  //Justify character array.
-  [m,n]=size(t)
-  for k=1:n
-    L=length(t(:,k));mx=max(L);
-    if part(job,1)=='l' then //right
-      t(:,k)=part(t(:,k),1:mx)
-    elseif part(job,1)=='r' then //left
-      for l=1:m
-       t(l,k)=part(' ',1:(mx-length(t(l,k))))+t(l,k)
-      end
-    elseif part(job,1)=='c' then //center
-      for l=1:m
-       nl=int((mx-length(t(l,k)))/2)
-       nr=(mx-length(t(l,k)))-nl
-       t(l,k)=part(' ',1:nl)+t(l,k)+part(' ',1:nr)
-      end
-    else
-      error('justify: Invalid option')
-    end
-  end
-endfunction
diff --git a/scilab/modules/string/macros/rhs2code.sci b/scilab/modules/string/macros/rhs2code.sci
deleted file mode 100644 (file)
index fd95288..0000000
+++ /dev/null
@@ -1,25 +0,0 @@
-function C=rhs2code(rhs)
-// Copyright INRIA
-// Scilab Project - V. Couvert
-// Translate rhs list of an instruction to macro code (called by tree2code)
-// Input:
-// - rhs: list of rhs arguments
-// Output:
-// - C: Scilab code corresponding to rhs
-// V.C.
-
-C=[]
-n=size(rhs)
-
-args=[]
-if typeof(rhs)<>"list" then
-  C=expression2code(rhs)
-else
-  for k=1:n
-    args=[args expression2code(rhs(k))]
-  end
-  C=strcat(args,",")
-end
-
-
-endfunction
diff --git a/scilab/modules/string/macros/sci2exp.sci b/scilab/modules/string/macros/sci2exp.sci
deleted file mode 100644 (file)
index 6f88e41..0000000
+++ /dev/null
@@ -1,517 +0,0 @@
-function t=sci2exp(a,nom,lmax)
-// sci2exp - convert a variable to an expression
-//%SYNTAX
-// t=sci2exp(a [,nam] [,lmax])
-//%PARAMETERS
-//   a  : matrix of scalar or polynomials
-//   nam: character string
-//   t  : vector of string, contains the expression definition
-//   lmax : maximum line lengh (0 for no line length control)
-//%Example
-//  a=[1 2;3 4]
-//  sci2exp(a,'aa')
-//!
-// Copyright INRIA
-  deff('x=String(a)',['x=string(a)'
-                     'x=strsubst(x,''Nan'',''%nan'')'
-                     'x=strsubst(x,''Inf'',''%inf'')'
-                    ])
-
-  
-[lhs,rhs]=argn(0)
-$ // import global variable $ in sci2exp context for efficiency
-select rhs
-case 1 then 
-  named=%f
-  lmax=90
-case 2 then
-  if type(nom)==1 then
-    lmax=nom
-    named=%f
-  else
-    named=%t
-    lmax=90
-  end
-case 3 then
-  named=%t
-  if type(nom)==1 then
-    [lmax,nom]=(nom,lmax)
-  end
-end
-dots='..';
-select type(a)
-case 1 then
-  t=mat2exp(a,lmax)
-case 2 then
-  t=pol2exp(a,lmax)
-case 4 then
-  t=log2exp(a,lmax)
-case 5 then
-  t=sp2exp(a,lmax)
-case 6 then
-  t=sp2exp(a,lmax)
-case 7 then
-  t=sp2exp(a,lmax)
-case 8 then 
-  t=int2exp(a,lmax)
-case 10 then
-  t=str2exp(a,lmax)
-case 13 then
-  if named then
-    t=fun2string(a,nom)
-  else
-    t=fun2string(a,'%fun')
-  end
-  t(1)=part(t(1),10:length(t(1)))
-  t($)=[]
-  t=sci2exp(t)
-  t(1)='createfun('+t(1)
-  t($)=t($)+')'
-case 15 then
-  t=list2exp(a,lmax)
-case 16 then
-  t=tlist2exp(a,lmax)
-case 17 then
-  t=mlist2exp(a,lmax)
-case 11 then
-  t=func2exp(a,lmax)
-  named=%f
-case 129 then
-  t=imp2exp(a,lmax)
-else
-//  execstr('t='+typeof(a)+'2exp(a,lmax)')
-  error('Variable translation of type '+string(type(a))+' Not implemented')
-end,
-if named&and(type(a)<>[11 13]) then
-  t(1)=nom+' = '+t(1)
-end
-endfunction
-
-function t=str2exp(a,lmax) 
-  [lhs,rhs]=argn(0)
-  if rhs<2 then lmax=0,end
-  [m,n]=size(a),
-  dots='.'+'.'
-  t=[];
-  quote=''''
-
-  a=strsubst(a,quote,quote+quote)
-  dquote='""'
-  a=strsubst(a,dquote,dquote+dquote)
-  a=quote(ones(a))+a+quote(ones(a))
-
-  for i=1:m
-    x=emptystr();
-    for j=1:n,
-      y=a(i,j);
-      y=dquote+part(y,2:length(y))
-      y=part(y,1:length(y)-1)+dquote
-      if y=='''''' then y='emptystr()',end
-      if lmax==0|length(x($))+length(y)<lmax then
-       if j==1 then
-         x=y
-       else
-         x($)=x($)+','+y,
-       end
-      else
-       if j>1 then 
-         x($)=x($)+','+dots;
-         x($+1)=y
-       else
-         x=y
-       end
-      end
-    end
-    if i<m then x($)=x($)+';',end
-    if lmax>0 then
-      t=[t;x]
-    else
-      t=t+x
-    end
-  end,
-  if lmax>0&sum(length(t))<lmax then
-    t=strcat(t)
-  end
-  if m*n>1 then
-    t(1)='['+t(1)
-    t($)=t($)+']'
-  end
-endfunction
-
-function t=mat2exp(a,lmax)
-  [lhs,rhs]=argn(0)
-  if rhs<2 then lmax=0,end
-  if size(a,'*')==0 then t='[]',return,end
-  [m,n]=size(a);
-  if m<0 then
-    t=mat2exp(a+0);
-    if t=='1' then
-      t='eye()';
-    else
-      t='('+t+')*eye()';
-    end
-    return
-  end
-  a=String(a);
-  dots='.'+'.'
-  t=[];
-  if n==1 then
-    x=strcat(a,';')
-    lx=length(x)
-    if lmax==0|lx<lmax then
-      t=x;
-    else
-      ind=strindex(x,';');
-      k1=1;l=0;I=[];
-      while %t
-       if lx-l<lmax|k1>length(ind) then,break,end
-       k2=k1-1+maxi(find(ind(k1:$)<l+lmax))
-       I=[I ind(k2)];
-//     t=[t;part(x,l+1:ind(k2))]
-       k1=k2+1
-       l=ind(k2)
-      end
-      t=[t;strsplit(x,I)];
-    end
-  elseif m==1 then      
-    x=strcat(a,',')
-    lx=length(x)
-    if lmax==0|lx<lmax then
-      t=x;
-    else
-      ind=strindex(x,',');
-      k1=1;l=0;I=[];
-      while %t
-       if lx-l<lmax|k1>length(ind) then break,end
-       k2=k1-1+maxi(find(ind(k1:$)<l+lmax))
-       I=[I ind(k2)];
-//     t=[t;part(x,l+1:ind(k2))+dots]
-       k1=k2+1
-       l=ind(k2)
-      end
-      x=strsplit(x,I);x(1:$-1)=x(1:$-1)+dots;
-      t=[t;x]
-    end
-  else
-    for i=1:m
-      x=strcat(a(i,:),',')
-      if i<m then x=x+';',end
-      lx=length(x)
-      if lmax==0 then
-       t=t+x
-      elseif lx<lmax then
-       t=[t;x]
-      else
-       ind=strindex(x,',');
-       k1=1;l=0;I=[];
-       while %t
-         if lx-l<lmax|k1>length(ind) then break,end
-         k2=k1-1+maxi(find(ind(k1:$)<l+lmax))
-         I=[I ind(k2)];
-//       t=[t;part(x,l+1:ind(k2))+dots]
-         k1=k2+1
-         l=ind(k2)
-       end
-       x=strsplit(x,I);x(1:$-1)=x(1:$-1)+dots;x(2:$)=' '+x(2:$);
-       t=[t;x]
-      end
-    end
-  end
-  if m*n>1 then
-    t(1)='['+t(1)
-    t($)=t($)+']'
-  end
-endfunction
-
-function t=pol2exp(a,lmax)
-  $
-  [lhs,rhs]=argn(0)
-  if rhs<2 then lmax=0,end
-
-  [m,n]=size(a),var=' ';lvar=1
-  var=varn(a),lvar=length(var);
-  while part(var,lvar)==' ' then lvar=lvar-1,end
-  var=part(var,1:lvar);
-  if m<0 then
-    t=pol2exp(a+0)
-    t='('+t+')*eye()'
-    return
-  end
-  t=[];
-  for i=1:m
-    x=emptystr(1)
-    for j=1:n,
-      v=a(i,j);d=degree(v);
-      v=coeff(v);
-      k0=1;while (k0<d+1)&(v(k0))==0 then k0=k0+1,end
-      y=emptystr(1)
-      nul=%t
-      for k=k0:(d+1),
-       s=String(v(k))
-       if s<>'0' then
-         nul=%f
-         if part(s,1)==' ' then s=part(s,2:length(s)),end
-         mnm=emptystr(1)
-         if k>0 then 
-           mnm=var
-           if k>2 then 
-             mnm=mnm+'^'+string(k-1),
-           end
-         end
-         if k>1 then
-           if string(imag(v(k)))<>'0' then s='('+s+')',end
-           if s=='1' then 
-             s=mnm
-           elseif s=='-1' then
-             s='-'+mnm
-           else
-             s=s+'*'+mnm
-           end
-           if k>k0&part(s,1)<>'-' then s='+'+s,end
-         end
-         if lmax==0|length(y($))+length(s) <lmax then
-           y($)=y($)+s
-         else
-           y($)=y($)+dots
-           y($+1)=s
-         end
-       end
-      end
-      if nul then y='0*'+var,end
-      [ny,my]=size(y)
-
-      if lmax==0|length(x($))+length(y(1))<lmax then
-       if j==1 then
-         x=y(1)
-       else
-         x($)=x($)+','+y(1),
-       end
-       if ny>1 then x($+1:$+ny-1)=y(2:ny),end
-      else
-       if length(x($))==0 then
-         //added by Andre Hentz (andre@lcmi.ufsc.br) 10-Oct-95
-         x($:$+ny-1) = y;
-       else
-         x($)=x($)+','+dots;
-         x($+1:$+ny)=y
-       end
-      end
-    end
-    if i<m then x($)=x($)+';',end
-    if lmax>0 then
-      t=[t;x]
-    else
-      t=t+x
-    end
-  end,
-  if lmax>0&sum(length(t))<lmax then
-    t=strcat(t)
-  end
-  if m*n>1 then
-    t(1)='['+t(1)
-    t($)=t($)+']'
-  end
-endfunction
-
-function t=list2exp(l,lmax)
-  [lhs,rhs]=argn(0)
-  if rhs<2 then lmax=0,end
-  dots='.'+'.';
-  t='list('
-  n=length(l)
-  for k=1:n
-    lk=l(k)
-    sep=',',if k==1 then sep=emptystr(),end
-    if type(lk)==15 then
-      t1=list2exp(lk,lmax)
-    elseif type(lk)==16 then 
-      t1=tlist2exp(lk,lmax)
-    elseif type(lk)==17 then 
-      t1=mlist2exp(lk,lmax) 
-    else
-      t1=sci2exp(lk,lmax)
-    end
-    if size(t1,'*')==1&(lmax==0|maxi(length(t1))+length(t($))<lmax) then
-      t($)=t($)+sep+t1
-    else
-      t($)=t($)+sep+dots
-      t=[t;t1]
-    end
-    lk=null()
-  end
-  t($)=t($)+')'
-endfunction
-
-function t=tlist2exp(l,lmax)
-  $;
-  [lhs,rhs]=argn(0)
-  if rhs<2 then lmax=0,end
-  dots='.'+'.';
-  t='tlist('
-  n=length(l)
-  for k=1:n
-    lk=l(k)
-    sep=',',if k==1 then sep=emptystr(),end
-    if type(lk)==15 then
-      t1=list2exp(lk,lmax)
-    elseif type(lk)==16 then
-      t1=tlist2exp(lk,lmax)
-    elseif type(lk)==17 then
-      t1=mlist2exp(lk,lmax) 
-    else
-      t1=sci2exp(lk,lmax)
-    end
-    if size(t1,'*')==1&(lmax==0|maxi(length(t1))+length(t($))<lmax) then
-      t($)=t($)+sep+t1
-    else
-      t($)=t($)+sep+dots
-      t=[t;t1]
-    end
-  end
-  t($)=t($)+')'
-
-endfunction
-
-function t=mlist2exp(l,lmax)
-  $;
-  [lhs,rhs]=argn(0)
-  if rhs<2 then lmax=0,end
-  dots='.'+'.';
-  t='mlist('
-  n=size(definedfields(l),'*')
-  for k=1:n
-    lk=getfield(k,l)
-    sep=',',if k==1 then sep=emptystr(),end
-    if type(lk)==15 then
-      t1=list2exp(lk,lmax)
-    elseif type(lk)==16 then
-      t1=tlist2exp(lk,lmax)
-    elseif type(lk)==17 then
-      t1=mlist2exp(lk,lmax)  
-    else
-      t1=sci2exp(lk,lmax)
-    end
-    if size(t1,'*')==1&(lmax==0|maxi(length(t1))+length(t($))<lmax) then
-      t($)=t($)+sep+t1
-    else
-      t($)=t($)+sep+dots
-      t=[t;t1]
-    end
-  end
-  t($)=t($)+')'
-
-endfunction
-
-function t=log2exp(a,lmax)
-  $;
-  [lhs,rhs]=argn(0)
-  if rhs<2 then lmax=0,end
-  [m,n]=size(a),
-  a1=matrix(a,m*n,1)
-  F='%f'
-  T='%t'
-  a=F(ones(m*n,1))
-  k=find(a1);
-  if k<>[] then
-    a(k)=T(ones(size(k,'*'),1));
-  end
-  a=matrix(a,m,n);
-  dots='.'+'.'
-  t=[];
-  for i=1:m
-    x=emptystr()
-    for j=1:n,
-      y=a(i,j);
-      if lmax==0|length(x($))+length(y)<lmax then
-       if j==1 then
-         x=y
-       else
-         x($)=x($)+','+y,
-       end
-      else
-       x($)=x($)+','+dots;
-       x($+1)=y
-      end
-    end
-    if lmax>0 then
-      t=[t;x]
-    else
-      t=t+x
-    end
-  end,
-  if lmax>0&sum(length(t))<lmax then
-    t=strcat(t,';')
-  end
-  if m*n>1 then
-    t(1)='['+t(1)
-    t($)=t($)+']'
-  end
-
-endfunction
-
-function t=func2exp(a,lmax)
-  [lhs,rhs]=argn(0)
-  if rhs<2 then lmax=0,end
-  [out,in,text]=string(a)
-  if out==[] then out=emptystr(),end
-  text=str2exp(text,lmax)
-  nt=size(text,'*')
-  if named then mac=nom,else mac='mac',end
-  if nt==1 then
-    t='deff(''['+strcat(out,',')+']='+mac+'('+strcat(in,',')+')'','+text+')'
-  else
-    text($)=text($)+')'
-    semi=';'
-    text(1:$-1)=text(1:$-1)+semi(ones(nt-1,1))'
-    t=['deff(''['+strcat(out,',')+']='+mac+'('+strcat(in,',')+')'','+text(1)
-       text(2:$)]
-  end
-endfunction
-
-function t=imp2exp(a,lmax)
-  [lhs,rhs]=argn(0)
-  if rhs<2 then lmax=0,end
-  v=[a(1),a(2),a(3)]
-  if a(2)==1 then
-    t=sci2exp(a(1))+':'+sci2exp(a(3))
-  else
-    t=sci2exp(a(1))+':'+sci2exp(a(2))+':'+sci2exp(a(3))
-  end
-endfunction
-
-function t=sp2exp(a,lmax)
-  [lhs,rhs]=argn(0)
-  dots='..';
-  if rhs<2 then lmax=0,end
-  [ij,v,mn]=spget(a)
-  t=sci2exp(ij,lmax)
-  v=sci2exp(v,lmax)
-  mn=sci2exp(mn,lmax)
-
-  t(1)='sparse('+t(1)
-  if lmax==0|length(t($))+length(v(1))+1<lmax then
-    t($)=t($)+','+v(1)
-    t=[t;v(2:$)]
-  else
-    t($)=t($)+','+dots
-    t=[t;v]
-  end
-  if lmax==0|length(t($))+length(mn(1))+1<lmax then
-    t($)=t($)+','+mn(1)
-    t=[t;mn(2:$)]
-  else
-    t($)=t($)+','+dots
-    t=[t;mn]
-  end
-  t($)=t($)+')'
-endfunction
-
-
-function t=int2exp(a,lmax)
-  it=inttype(a)
-  if it>10 then f='uint',else f='int',end
-  f=f+string(8*modulo(it,10))
-  t=mat2exp(double(a),lmax)
-  t(1)=f+'('+t(1)
-  t($)=t($)+')'
-endfunction
diff --git a/scilab/modules/string/macros/tokenpos.sci b/scilab/modules/string/macros/tokenpos.sci
deleted file mode 100644 (file)
index 806dad6..0000000
+++ /dev/null
@@ -1,21 +0,0 @@
-function kdf=tokenpos(str,sep)
-//return a vector of indices giving the beginning of the included
-//tokens
-  if argn(2)<2 then sep=[' ',ascii(9)],end
-  
-  if size(str,'*')<> 1 then 
-    error('numtok : str must be a single string')
-  end
-  if or(length(sep)<>1) then 
-    error('numtok : delimitor must be a character or a vector of "+...
-         "characters')
-  end  
-  str=sep(1)+str+sep(1)
-  k1=strindex(str,sep)
-  i=find(k1(2:$)-k1(1:$-1)>1)
-  if i<>[] then
-    kdf=[k1(i);k1(i+1)-2]'
-  else
-    kdf=[]
-  end
-endfunction
diff --git a/scilab/modules/string/macros/tree2code.sci b/scilab/modules/string/macros/tree2code.sci
deleted file mode 100644 (file)
index 5afd10c..0000000
+++ /dev/null
@@ -1,60 +0,0 @@
-function C=tree2code(P,prettyprint)
-// Copyright INRIA
-// Scilab Project - V. Couvert
-// Convert a tree returned by macr2tree() to a macro code
-// Input: 
-// - P: 'program' tlist
-// - prettyprint: boolean value, if FALSE (default value), generated code is not formated else it is
-// Output:
-// - C: character string matrix (colum vector)
-
-// Verify good type for input
-if typeof(P)<>"program" then
-  error("Input variable is not a program tree in tree2code !")
-end
-
-// Default value
-rhs = argn(2);
-if rhs==1 then
-  prettyprint=%F
-end
-
-C=""
-
-// Function prototype
-lhsstr=[]
-rhsstr=[]
-if P.name<>"" then // Not a batch file
-  for k=1:size(P.outputs)
-    lhsstr=[lhsstr,expression2code(P.outputs(k))]
-  end
-  lhsstr="["+strcat(lhsstr,",")+"]"
-  
-  for k=1:size(P.inputs)
-    rhsstr=[rhsstr,expression2code(P.inputs(k))]
-  end
-  rhsstr="("+strcat(rhsstr,",")+")"
-  
-  C="function "+lhsstr+" = "+P.name+rhsstr;
-end
-
-I=P.statements
-
-// To avoid to have some instructions on the first line (function prototype)
-if I(1)<>list("EOL") then
-  C=cat_code(C,instruction2code(list("EOL"),%T));
-end
-
-// For each statement, generate corresponding code
-for i=1:size(I)-2 // -2 to ignore last return+EOL
-  C=cat_code(C,instruction2code(I(i),prettyprint));
-  C = format_txt(C,I(i),prettyprint,I(i+1));
-end
-
-if P.name<>"" then // Not a batch file
-  C=cat_code(C,"");
-  C=cat_code(C,"endfunction"); // Replace last return
-  C=cat_code(C,"");
-end
-endfunction
-
diff --git a/scilab/modules/string/readme.txt b/scilab/modules/string/readme.txt
deleted file mode 100644 (file)
index 057a0b4..0000000
+++ /dev/null
@@ -1 +0,0 @@
-readme.txt about module
\ No newline at end of file
diff --git a/scilab/modules/string/sci_gateway/c/gw_string.c b/scilab/modules/string/sci_gateway/c/gw_string.c
deleted file mode 100644 (file)
index ff987e8..0000000
+++ /dev/null
@@ -1,33 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/
-#include <string.h>
-#include "gw_string.h"
-#include "callFunctionFromGateway.h"
-/*--------------------------------------------------------------------------*/
-static gw_generic_table Tab[]=
-{
-       {C2F(sci_length),"length"},
-       {C2F(sci_part),"part"},
-       {C2F(sci_string),"string"},
-       {C2F(sci_convstr),"convstr"},
-       {C2F(sci_emptystr),"emptystr"},
-       {C2F(sci_str2code),"str2code"},
-       {C2F(sci_code2str),"code2str"},
-       {C2F(sci_strcat),"strcat"},
-       {C2F(sci_strindex),"strindex"},
-       {C2F(sci_strsubst),"strsubst"},
-       {C2F(sci_ascii),"ascii"},
-       {C2F(sci_grep),"grep"},
-       {C2F(sci_tokens),"tokens"},
-       {C2F(sci_strsplit),"strsplit"},
-       {C2F(sci_stripblanks),"stripblank"}
-};
-/*--------------------------------------------------------------------------*/
-int C2F(gw_string)(void)
-{  
-       callFunctionFromGateway(Tab);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_ascii.c b/scilab/modules/string/sci_gateway/c/sci_ascii.c
deleted file mode 100644 (file)
index 00cd737..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(intascii) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_ascii) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(intascii)(id);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_code2str.c b/scilab/modules/string/sci_gateway/c/sci_code2str.c
deleted file mode 100644 (file)
index 141ef59..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(intcode2str) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_code2str) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(intcode2str)(id);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_convstr.c b/scilab/modules/string/sci_gateway/c/sci_convstr.c
deleted file mode 100644 (file)
index 1ef737e..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(intconvstr) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_convstr) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(intconvstr)(id);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_emptystr.c b/scilab/modules/string/sci_gateway/c/sci_emptystr.c
deleted file mode 100644 (file)
index 1cded57..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(intemptystr) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_emptystr) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(intemptystr)(id);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_grep.c b/scilab/modules/string/sci_gateway/c/sci_grep.c
deleted file mode 100644 (file)
index a0e59cc..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(intgrep) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_grep) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(intgrep)(id);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_length.c b/scilab/modules/string/sci_gateway/c/sci_length.c
deleted file mode 100644 (file)
index 09294ff..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(intlength) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_length) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(intlength)(id);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_part.c b/scilab/modules/string/sci_gateway/c/sci_part.c
deleted file mode 100644 (file)
index a19bd18..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(intpart) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_part) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(intpart)(id);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_str2code.c b/scilab/modules/string/sci_gateway/c/sci_str2code.c
deleted file mode 100644 (file)
index 4aff82d..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(intstr2code) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_str2code) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(intstr2code)(id);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_strcat.c b/scilab/modules/string/sci_gateway/c/sci_strcat.c
deleted file mode 100644 (file)
index 7ab8360..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(instrcat) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_strcat) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(instrcat)(id);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_strindex.c b/scilab/modules/string/sci_gateway/c/sci_strindex.c
deleted file mode 100644 (file)
index 409da1d..0000000
+++ /dev/null
@@ -1,19 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(instrindex) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_strindex) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(instrindex)(id);
-       
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_string.c b/scilab/modules/string/sci_gateway/c/sci_string.c
deleted file mode 100644 (file)
index 6fc86f0..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(intstring) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_string) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(intstring)(id);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_stripblanks.c b/scilab/modules/string/sci_gateway/c/sci_stripblanks.c
deleted file mode 100644 (file)
index 0812a56..0000000
+++ /dev/null
@@ -1,116 +0,0 @@
-/*------------------------------------------------------------------------*/
-/* File: sci_stripblanks.c                                                */
-/* Copyright INRIA 2007                                                   */
-/* @Authors : Cong Wu                                                     */
-/* desc : strips leading and trailing blanks (and tabs) of strings
-          txt=stripblanks(txt[,tabs])
-          Parameters
-          txt : string or matrix of strings
-          tabs : if TRUE then tabs are also stripped (default value is FALSE)*/
-/*------------------------------------------------------------------------*/
-#include <string.h>
-#include <stdio.h>
-#include "machine.h"
-#include "gw_string.h"
-#include "stack-c.h"
-#include "MALLOC.h"
-#include "stripblanks.h"
-#include "Scierror.h"
-#include "freeArrayOfString.h"
-/*----------------------------------------------------------------------------*/
-int C2F(sci_stripblanks) _PARAMS((char *fname,unsigned long fname_len))
-{
-       char **Input_String_Matrix_One = NULL;
-       char **Output_String_Matrix = NULL;
-       int numRow = 0;        /*@ The row number of the output string matrix*/
-       int numCol = 0;        /*@ The col number of the output string matrix*/
-       int m1 = 0,n1 = 0,mn = 0,i = 0;
-       BOOL bREMOVE_TAB = FALSE; /* DEFAULT no TAB */
-    int Type_One = VarType(1);
-
-       CheckRhs(1,2);
-       CheckLhs(1,1);
-
-       if (Rhs == 2)
-       {
-               int Type_Two = VarType(2);
-
-               if (Type_Two == sci_boolean)
-               {
-                       int m2 = 0, n2 = 0, l2 = 0;
-                       GetRhsVar(2,MATRIX_OF_BOOLEAN_DATATYPE,&m2,&n2,&l2);
-                       bREMOVE_TAB = (BOOL)*istk(l2);
-               }
-               else
-               {
-                       Scierror(999,"%s : second argument has a wrong type, expecting a boolean.\n",fname);
-                       return 0;
-               }
-       }
-
-       switch (Type_One)
-       {
-               case sci_matrix :
-               {
-                       /* case stripblanks([]) */
-                       GetRhsVar(1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&Input_String_Matrix_One);
-                       if ( (m1 == 0) && (n1 == 0) )
-                       {
-                               int l = 0;
-                               CreateVar(Rhs+1,MATRIX_OF_DOUBLE_DATATYPE,&m1,&n1,&l);
-                               LhsVar(1) = Rhs+1 ;
-                               C2F(putlhsvar)();
-                               return 0;
-                       }
-               }
-               break;
-               case sci_strings :
-               {
-                       GetRhsVar(1,MATRIX_OF_STRING_DATATYPE,&m1,&n1,&Input_String_Matrix_One);
-                       mn = m1*n1;
-               }
-               break;
-               default :
-                       Scierror(999,"%s : first argument has a wrong type, expecting scalar or string matrix.\n",fname);
-               return 0;
-       }
-
-       if (mn > 0) Output_String_Matrix = (char**)MALLOC(sizeof(char*)*(mn));
-       else Output_String_Matrix = NULL;
-
-       if (Output_String_Matrix == NULL)
-       {
-               freeArrayOfString(Input_String_Matrix_One,mn);
-               Scierror(999,"%s : Error memory allocation.\n",fname);
-               return 0;
-       }
-
-       for (i = 0; i < mn ; i++)  /*@ To malloc a space the same as input string*/
-       {
-               Output_String_Matrix[i] = (char*)MALLOC(sizeof(char)*(strlen(Input_String_Matrix_One[i])+1));
-               if (Output_String_Matrix[i] == NULL)
-               {
-                       freeArrayOfString(Input_String_Matrix_One,mn);
-                       freeArrayOfString(Output_String_Matrix,i);
-                       Scierror(999,"%s : Error memory allocation.\n",fname);
-                       return 0;
-               }
-       }
-
-       /*@ The stripblank function*/
-       stripblanks(Input_String_Matrix_One,Output_String_Matrix,mn,bREMOVE_TAB); 
-
-       freeArrayOfString(Input_String_Matrix_One,mn);
-
-       /* put result on scilab stack */
-       numRow   = m1;
-       numCol   = n1;
-       CreateVarFromPtr( Rhs+1,MATRIX_OF_STRING_DATATYPE, &numRow, &numCol, Output_String_Matrix); /*@ Output*/
-       LhsVar(1) = Rhs+1 ;
-       C2F(putlhsvar)();
-
-       /* free pointers */
-       freeArrayOfString(Output_String_Matrix,mn);
-       return 0;
-  }
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_strsplit.c b/scilab/modules/string/sci_gateway/c/sci_strsplit.c
deleted file mode 100644 (file)
index c6e402c..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(intstrsplit) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_strsplit) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(intstrsplit)(id);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_strsubst.c b/scilab/modules/string/sci_gateway/c/sci_strsubst.c
deleted file mode 100644 (file)
index 5454f7e..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(intstrsubst) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_strsubst) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(intstrsubst)(id);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/c/sci_tokens.c b/scilab/modules/string/sci_gateway/c/sci_tokens.c
deleted file mode 100644 (file)
index 3ba0bc6..0000000
+++ /dev/null
@@ -1,18 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2006 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include <string.h>
-#include "gw_string.h"
-#include "machine.h"
-#include "stack-c.h"
-/*--------------------------------------------------------------------------*/
-extern int C2F(inttokens) _PARAMS((int *id));
-/*--------------------------------------------------------------------------*/
-int C2F(sci_tokens) _PARAMS((char *fname,unsigned long fname_len))
-{
-       static int id[6];
-       C2F(inttokens)(id);
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_ascii.f b/scilab/modules/string/sci_gateway/fortran/sci_ascii.f
deleted file mode 100644 (file)
index 92b90e9..0000000
+++ /dev/null
@@ -1,107 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine intascii(id)
-      include 'stack.h'
-c
-      integer id(nsiz),tops,vol,sel,eol
-      logical ref
-      external strord,getfastcode
-      integer strord,getfastcode
-      character*1 c
-      integer iadr,sadr
-      data eol/99/
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-
-      if(rhs.ne.1) then
-         call error(42)
-         return
-      endif
-      if(lhs.ne.1) then
-         call error(41)
-         return
-      endif
-
-      il=iadr(lstk(top))
-      ilr=il
-      if(istk(il).lt.0) il=iadr(istk(il+1))
-      ref=il.ne.ilr
-
-      if(istk(il).eq.1) then
-c     argument is a vector of ascii codes return a scilab string
-         n=istk(il+1)*istk(il+2)
-         l=sadr(il+4)
-         if(.not.ref) then
-            err=l+n-lstk(bot)
-            if(err.gt.0) then
-               call error(17)
-               return
-            endif
-            call unsfdcopy(n,stk(l),1,stk(l+n),1) 
-            l=l+n
-         else
-            err=sadr(ilr+6+n)-lstk(bot)
-            if(err.gt.0) then
-               call error(17)
-               return
-            endif
-         endif
-         istk(ilr)=10
-         istk(ilr+1)=1
-         istk(ilr+2)=1
-         istk(ilr+3)=0
-         istk(ilr+4)=1
-         istk(ilr+5)=1+n
-         lr=ilr+6
-         do 20 i=0,n-1
-            c=char(int(stk(l+i)))
-            istk(lr+i)=getfastcode(c)
- 20      continue
-         lstk(top+1)=sadr(lr+n)
-      elseif(istk(il).eq.10) then
-c     argument is a scilab string return a vector of ascii codes
-         n=istk(il+4+istk(il+1)*istk(il+2))-1
-         l=il+5+istk(il+1)*istk(il+2)
-         if(.not.ref) then
-            lw=l+n
-            err=sadr(lw+n)-lstk(bot)
-            if(err.gt.0) then
-               call error(17)
-               return
-            endif
-            call icopy(n,istk(l),1,istk(lw),1) 
-            l=lw
-         else
-            err=sadr(ilr+4)+n-lstk(bot)
-            if(err.gt.0) then
-               call error(17)
-               return
-            endif
-         endif
-         istk(ilr)=1
-         istk(ilr+1)=1
-         istk(ilr+2)=n
-         istk(ilr+3)=0
-         lr=sadr(ilr+4)
-         do 30 i=0,n-1
-            mc=istk(l+i)
-            if(mc.gt.eol) then
-               stk(lr+i)=ichar(char(mc-(eol+1)))
-            elseif(mc.lt.0) then
-               stk(lr+i)=ichar(alfb(abs(mc)+1))
-            elseif(mc.eq.eol) then
-               stk(lr+i)=10.
-            else
-               stk(lr+i)=ichar(alfa(mc+1))
-            endif
- 30      continue
-         lstk(top+1)=lr+n
-      else
-         fun=-1
-         call funnam(ids(1,pt+1),'ascii',il)
-      endif
-      end
-c =========================================  
-
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_code2str.f b/scilab/modules/string/sci_gateway/fortran/sci_code2str.f
deleted file mode 100644 (file)
index 1fc2da9..0000000
+++ /dev/null
@@ -1,57 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine intcode2str(id)
-      INCLUDE 'stack.h'
-c
-      integer id(nsiz)
-      logical ref
-      integer iadr,sadr
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-
-      if (rhs .ne. 1) then
-         call error(39)
-         return
-      endif
-      if (lhs .ne. 1) then
-         call error(41)
-         return
-      endif
-c     checking variable str (number 1)
-c       
-      il1 = iadr(lstk(top-rhs+1))
-      ilr=il1
-      if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-      if (istk(il1) .ne. 1) then
-         fun=-1
-         call funnam(ids(1,pt+1),'code2str2',il1)
-         return
-      endif
-      ref=ilr.ne.il1
-      if (istk(il1+3) .ne. 0) then
-         err = 1
-         call error(52)
-         return
-      endif
-      n1 = istk(il1+1)*istk(il1+2)
-      l1 = sadr(il1+4)
-      if(.not.ref) then
-         call unsfdcopy(n1,stk(l1),-1,stk(l1+2),-1)
-         l1=l1+2
-      endif
-      istk(ilr+4)=1
-      istk(ilr+5)=n1+1
-      do 81 i=1,n1
-         istk(ilr+5+i)=stk(l1-1+i)
- 81   continue
-      istk(ilr)=10
-      istk(ilr+1)=1
-      istk(ilr+2)=1
-      istk(ilr+3)=0
-      lstk(top+1)=sadr(ilr+6+n1)
-      goto 999
- 999  return
-      end
-c =========================================  
\ No newline at end of file
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_convstr.f b/scilab/modules/string/sci_gateway/fortran/sci_convstr.f
deleted file mode 100644 (file)
index 2fde88c..0000000
+++ /dev/null
@@ -1,106 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine intconvstr(id)
-      INCLUDE 'stack.h'
-c
-      integer id(nsiz)
-      logical ref,lgq,cremat
-      integer tops
-      integer iadr,sadr
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-      if(rhs.gt.2.or.rhs.lt.1) then
-         call error(39)
-         return
-      endif
-
-c
-      tops=top
-c
-      if(rhs.eq.2) then
-c     conversion flag
-         il1=iadr(lstk(top))
-         if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-         if(istk(il1).ne.10) then
-            err=2
-            call error(55)
-            return
-         endif
-         if(istk(il1+1).ne.1.or.istk(il1+2).ne.1) then
-            err=2
-            call error(89)
-            return
-         endif
-         if(abs(istk(il1+6)).eq.30) then
-            lgq=.true.
-         elseif(abs(istk(il1+6)).ne.21) then
-            err=2
-            call error(36)
-            return
-         else
-            lgq=.false.
-         endif
-         top=top-1
-      else
-         lgq=.false.
-      endif
-c
-   51 continue
-      il1=iadr(lstk(top))
-      
-      il=il1
-      if(istk(il).lt.0) il=iadr(istk(il+1))
-      if(istk(il).ne.10) then
-         if(istk(il1).eq.1) then
-            if(istk(il+1)*istk(il+2).eq.0) then
-c              convstr([])
-               lgq=cremat('convstr', top, 0, 0, 0, lr, lc)
-               return
-            endif
-         endif
-         top=tops
-         fun=-1
-         call funnam(ids(1,pt+1),'convstr',il)
-         return
-      endif
-
-      if(istk(il1).lt.0) then
-         rhs=1
-         call ref2val
-      endif
-
-      m1=istk(il1+1)
-      n1=istk(il1+2)
-      if (lgq) goto 53
-c
-c conversion en minuscule
-c
-      k=iadr(lstk(top+1))-1
-      do 52 i=il1+5,k
-         if(istk(i).lt.-35.or.istk(i).gt.-10) goto 52
-         istk(i)=-istk(i)
-   52 continue
-      goto 999
-c
-c conversion en majuscule
-c
-   53 continue
-      k0=il1+4
-      k =k0+m1*n1
-      do 55 i=1,m1*n1
-        k1=istk(k0+1)-istk(k0)
-        k0=k0+1
-        do 54 l=1,k1
-          k=k+1
-          if(istk(k).lt.10.or.istk(k).gt.35) goto 54
-          istk(k)=-istk(k)
-   54   continue
-   55 continue
-      goto 999
-c
- 999  return
-      end
-c =========================================  
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_emptystr.f b/scilab/modules/string/sci_gateway/fortran/sci_emptystr.f
deleted file mode 100644 (file)
index 592cf18..0000000
+++ /dev/null
@@ -1,105 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine intemptystr(id)
-      INCLUDE 'stack.h'
-c
-      integer id(nsiz)
-      logical ref
-      integer iadr,sadr
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-
-      if(lhs.ne.1) then 
-         call error(59)
-         return
-      endif
-
-
-      if(rhs.eq.2) then
-         il=iadr(lstk(top))
-         if(istk(il).lt.0) il=iadr(istk(il+1))
-         if(istk(il).ne.1) then
-            err=2
-            call error(53)
-            return
-         endif
-         if(istk(il+1)*istk(il+2).ne.1) then
-            err=2
-            call error(89)
-            return
-         endif
-         if(istk(il+3).ne.0) then
-            err=2
-            call error(52)
-            return
-         endif
-         n=int(stk(sadr(il+4)))
-         top=top-1
-c
-         il=iadr(lstk(top))
-         if(istk(il).lt.0) il=iadr(istk(il+1))
-         if(istk(il).ne.1) then
-            err=1
-            call error(53)
-            return
-         endif
-         if(istk(il+1)*istk(il+2).ne.1) then
-            err=1
-            call error(89)
-            return
-         endif
-         if(istk(il+3).ne.0) then
-            err=1
-            call error(52)
-            return
-         endif
-         m=int(stk(sadr(il+4)))
-        if (m.eq.0.or.n.eq.0) then
-            il=iadr(lstk(top))
-            istk(il)=1
-            istk(il+1)=0
-            istk(il+2)=0
-            istk(il+3)=0
-            lstk(top+1)=sadr(il+4)
-            goto 999
-         endif
-      elseif(rhs.eq.1) then
-         il=iadr(lstk(top))
-         ilr=il
-         if(istk(il).lt.0) il=iadr(istk(il+1))
-
-         if(istk(il).gt.10) then
-            fun=-1
-            call funnam(ids(1,pt+1),'emptystr',il)
-            return
-         endif
-         ref=ilr.ne.il
-         m=istk(il+1)
-         n=istk(il+2)
-         if(m*n.eq.0) then
-            if(ref) call ref2val
-            return
-         endif
-      elseif(rhs.le.0) then
-         m=1
-         n=1
-         top=top+1
-      else
-         call error(42)
-         return
-      endif
-      il=iadr(lstk(top))
-      istk(il)=10
-      istk(il+1)=m
-      istk(il+2)=n
-      istk(il+3)=0
-      call iset(m*n+1,1,istk(il+4),1)
-      lstk(top+1)=sadr(il+6+m*n)
-c     The correct assignation should be 
-c     lstk(top+1)=sadr(il+5+m*n)
-      goto 999 
- 999  return
-      end
-c =========================================  
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_grep.f b/scilab/modules/string/sci_gateway/fortran/sci_grep.f
deleted file mode 100644 (file)
index 9ce78f1..0000000
+++ /dev/null
@@ -1,187 +0,0 @@
-c =========================================
-c INRIA
-c =========================================        
-      subroutine intgrep()
-      INCLUDE 'stack.h'
-c
-      integer vol,vol2,tops
-      logical ref
-c
-      integer iadr,sadr
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-c     strindex(str1,str2)
-c
-      tops=top
-
-      if(rhs.ne.2) then
-         call error(39)
-         return
-      endif
-      if (lhs .gt. 2) then
-         call error(41)
-         return
-      endif
-c     
-      il2=iadr(lstk(top))
-      if(istk(il2).lt.0) il2=iadr(istk(il2+1))
-      if(istk(il2).ne.10) then 
-         fun=-1
-         top=tops
-         call funnam(ids(1,pt+1),'grep',il2)
-         return
-      endif
-      mn2=istk(il2+1)*istk(il2+2)
-      l2=il2+5+mn2
-      do 01 i=1,mn2
-         if(istk(il2+4+i)-istk(il2+3+i).eq.0) then
-            err=2
-            call error(249)
-            return
-         endif
- 01   continue
-      top=top-1
-c     
-      il1=iadr(lstk(top))
-      ilr=il1
-      if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-      ref=ilr.ne.il1
-      if(istk(il1).eq.1) then
-         if(istk(il1+1)*istk(il1+2).eq.0) then
-            istk(ilr)=1
-            istk(ilr+1)=0
-            istk(ilr+2)=0
-            istk(ilr+3)=0
-            lstk(top+1)=sadr(ilr+4)
-            return
-         endif
-      endif
-      if(istk(il1).ne.10) then
-         fun=-1
-         top=tops
-         call funnam(ids(1,pt+1),'grep',il1)
-         return
-      endif
-c
-      mn1=istk(il1+1)*istk(il1+2)
-      id1=il1+4
-      l1=id1+mn1+1
-      vol=istk(id1+mn1)-1
-      lw = max(lstk(tops+1),lstk(top)+mn1+2)
-      ilrow=lw
-      lw=ilrow+mn1
-      if(lhs.eq.2) then
-         ilm=lw
-         lw=ilm+mn1
-      endif
-      err=lw-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-c
-c     loops on arg1 entries
-      mc=0
-      do 36 k1=1,mn1
-         vol=istk(id1+k1)-istk(id1+k1-1)
-         ll1=l1-1
- 10      ll1=ll1+1
-         if(ll1-l1.ge.vol) goto 35 
-c     .  loop on arg2 strings
-         do 32 k2=1,mn2
-            ll2=l2+istk(il2+3+k2)-1
-            vol2=istk(il2+4+k2)-istk(il2+3+k2)
-c     .     check for a match on  characters  arg1(k1)(ll1) and arg2(k2)(1)
-            if(istk(ll1).eq.istk(ll2))  then
-c     .        they match
-               i2=k2
-            else
-c     .        characters arg1(k1)(ll1) and arg2(k2)(1) doesnt match
-               goto 32
-            endif
-c           first character matches check if next chars match
- 12         k=0
- 15         k=k+1
-            if(k.ge.vol2) then
-c     .        end of arg2(k2) reached a match found or ith string
-               nfound=k2
-               goto 30
-            elseif(ll1+k.ge.l1+vol) then
-c     .        not enough chars in arg1(k1)
-               goto 32
-            elseif(istk(ll1+k).eq.istk(ll2+k)) then
-c     .        next characters matches go ahaead
-               goto 15
-            else
-c     .        next characters doesnt match, chech for an other string in arg2
-               goto 32
-            endif
-
- 30         continue
-c     a match found
-            mc=mc+1
-
-            stk(ilrow+mc-1)=k1
-            if(lhs.eq.2) stk(ilm+mc-1)=nfound
-            goto 35
- 32      continue
-c     .  arg1(k1)(ll1) doesnt match with any string in arg2
-         goto 10
-
-c     end of loop skip to next entry
- 35      l1=l1+vol
- 36   continue
-c
-c     end of string str1 reached
-       if(mc.eq.0) then
-            istk(ilr)=1
-            istk(ilr+1)=0
-            istk(ilr+2)=0
-            istk(ilr+3)=0
-            lstk(top+1)=sadr(ilr+4)
-            if(lhs.eq.2) then
-               top=top+1
-               ilr=iadr(lstk(top))
-               istk(ilr)=1
-               istk(ilr+1)=0
-               istk(ilr+2)=0
-               istk(ilr+3)=0
-               lstk(top+1)=sadr(ilr+4)
-            endif
-         else
-            lrow=sadr(ilr+4)
-            lstk(top+1)=lrow+mc
-            if(lhs.eq.2) then
-               top=top+1
-               il2=iadr(lstk(top))
-               lm=sadr(il2+4)
-               lstk(top+1)=lm+mc
-            endif
-            err=lstk(top+1)-lstk(bot)
-            if(err.gt.0) then
-               call error(17)
-               return
-            endif
-            istk(ilr)=1
-            istk(ilr+1)=1
-            istk(ilr+2)=mc
-            istk(ilr+3)=0
-            inc=1
-            if(lrow.gt.ilrow) inc=-1
-            call unsfdcopy(mc,stk(ilrow),inc,stk(lrow),inc)
-            if(lhs.eq.2) then
-               istk(il2)=1
-               istk(il2+1)=1
-               istk(il2+2)=mc
-               istk(il2+3)=0
-               inc=1
-               if(lm.gt.ilm) inc=-1
-               call unsfdcopy(mc,stk(ilm),inc,stk(lm),inc)
-            endif
-         endif
-      return
-      end
-c =========================================        
-
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_length.f b/scilab/modules/string/sci_gateway/fortran/sci_length.f
deleted file mode 100644 (file)
index 664bc74..0000000
+++ /dev/null
@@ -1,77 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine intlength(id)
-      INCLUDE 'stack.h'
-c
-      integer id(nsiz)
-      logical ref
-      integer iadr,sadr
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-      if(lhs*rhs.ne.1) then
-         call error(39)
-         return
-      endif
-
-      il1=iadr(lstk(top+1-rhs))
-      ilr=il1
-      if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-      ref=ilr.ne.il1
-      itype=istk(il1)
-      if(itype.eq.1.or.itype.eq.2.or.itype.eq.4) then
-c     length( )=prod(size( )) for matrices (+ polynomial and boolean)
-         l=sadr(ilr+4)
-         stk(l)=dble(istk(il1+1)*istk(il1+2))
-         istk(ilr)=1
-         istk(ilr+1)=1
-         istk(ilr+2)=1
-         istk(ilr+3)=0
-         lstk(top+1)=l+1
-      elseif(itype.ge.15.and.itype.le.17) then
-c     length(list)=size(list)
-         l=sadr(ilr+4)
-         stk(l)=dble(istk(il1+1))
-         istk(ilr)=1
-         istk(ilr+1)=1
-         istk(ilr+2)=1
-         istk(ilr+3)=0
-         lstk(top+1)=l+1
-      elseif(itype.eq.10) then
-         m1=istk(il1+1)
-         n1=istk(il1+2)
-         mn1=m1*n1
-         id1=il1+4
-         l1=id1+mn1+1
-c
-         if(ref) then
-            ll=sadr(ilr+4)
-         else
-            ll=sadr(l1)
-         endif
-         err=ll+mn1-lstk(bot)
-         if(err.gt.0) then
-            call error(17)
-            return
-         endif
-c
-         do 11 k=1,mn1
-            stk(ll-1+k)=dble(istk(id1+k)-istk(id1+k-1))
- 11      continue
-         l=sadr(ilr+4)
-         if(.not.ref) call unsfdcopy(mn1,stk(ll),1,stk(l),1)
-         istk(ilr)=1
-         istk(ilr+1)=m1
-         istk(ilr+2)=n1
-         istk(ilr+3)=0
-         lstk(top+1)=l+mn1
-      else
-         fun=-1
-         call funnam(ids(1,pt+1),'length',il1)
-         return
-      endif
-      return
-      end
-c =========================================  
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_part.f b/scilab/modules/string/sci_gateway/fortran/sci_part.f
deleted file mode 100644 (file)
index 7219733..0000000
+++ /dev/null
@@ -1,113 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine intpart(id)
-      INCLUDE 'stack.h'
-c
-      integer blank,id(nsiz),vol
-      logical ref
-      integer iadr,sadr
-      data    blank/40/
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-
-
-      if(lhs.ne.1.or.rhs.ne.2) then
-         call error(39)
-         return
-      endif
-c
-      il1=iadr(lstk(top+1-rhs))
-      ilr=il1
-      if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-      ref=ilr.ne.il1
-
-      if(istk(il1).ne.10) then
-         fun=-1
-         call funnam(ids(1,pt+1),'part',il1)
-         return
-      endif
-c
-      m1=istk(il1+1)
-      n1=istk(il1+2)
-      mn1=m1*n1
-      id1=il1+4
-      l1=id1+mn1+1
-      vol=istk(id1+mn1)-1
-      lw=lstk(top+1)
-c
-      lr=max(iadr(lw),ilr+mn1+5)
-      ilv=iadr(lstk(top))
-      if(istk(ilv).lt.0) ilv=iadr(istk(ilv+1))
-c
-      if(istk(ilv).ne.1) then
-         err=rhs
-         call error(53)
-         return
-      endif
-      if(istk(ilv+1).gt.1.and.istk(ilv+2).gt.1) then
-         err=rhs
-         call error(89)
-         return
-      endif
-      if(istk(ilv+3).ne.0) then
-         err=rhs
-         call error(52)
-         return
-      endif
-      nv=istk(ilv+1)*istk(ilv+2)
-c
-      if(nv.eq.0) then
-         if(ref) then
-            call icopy(4,istk(il1),1,istk(ilr),1)
-            id1=ilr+4
-            l1=id1+mn1+1
-         endif
-         call iset(mn1+1,1,istk(id1),1)
-         top=top-1
-         lstk(top+1)=sadr(l1)
-         goto 999
-      endif
-
-      lv=sadr(ilv+4)
-      do 21 k=0,nv-1
-         if(int(stk(lv+k)).le.0) then
-            err=2
-            call error(36)
-            return
-         endif
- 21   continue
-      err=sadr(lr+mn1*nv)-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-      call iset(mn1*nv,blank,istk(lr),1)
-      lrijk=lr
-      lij=l1
-      do 23 ij=1,mn1
-         nij=istk(id1+ij)-istk(id1+ij-1)
-         do 22 k=1,nv
-            mv=int(stk(lv-1+k))
-            if(mv.le.nij) istk(lrijk)=istk(lij-1+mv)
-            lrijk=lrijk+1
- 22      continue
-         lij=lij+nij
- 23   continue
-c     
-      if(ref) then
-         call icopy(4,istk(il1),1,istk(ilr),1)
-         id1=ilr+4
-         l1=id1+mn1+1
-      endif
-      istk(id1)=1
-      do 24 ij=1,mn1
-      istk(id1+ij)=istk(id1+ij-1)+nv
- 24   continue
-      top=top-1
-      if(lr.ne.l1) call icopy(mn1*nv,istk(lr),1,istk(l1),1)
-      lstk(top+1)=sadr(l1+istk(id1+mn1))
- 999  return
-      end
-c =========================================  
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_sort.f b/scilab/modules/string/sci_gateway/fortran/sci_sort.f
deleted file mode 100644 (file)
index f9ff116..0000000
+++ /dev/null
@@ -1,121 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine intssort(id)
-      INCLUDE 'stack.h'
-c
-      integer id(nsiz),tops,vol,sel
-      logical ref
-      external strord
-      integer strord
-      integer iadr,sadr
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-
-      if(rhs.gt.2) then
-         call error(42)
-         return
-      endif
-      if(lhs.gt.2) then
-         call error(41)
-         return
-      endif
-
-      tops=top
-
-c     select type of sort to perform
-      sel=0
-      if(rhs.eq.2) then
-         call  getorient(top,sel)
-         if(err.gt.0) return
-         top=top-1
-      endif
-
-
-      if(sel.eq.2) then
-         top=tops
-         fun=-1
-         call funnam(ids(1,pt+1),'sort',iadr(lstk(top+1-rhs)))
-         return
-      endif
-      if(rhs.eq.2) rhs=rhs-1
-      call ref2val
-c
-      il1=iadr(lstk(top))
-      ilr=il1
-
-      m=istk(il1+1)
-      n=istk(il1+2)
-      mn=m*n
-      id1=il1+4
-      l1=id1+mn+1
-      vol=istk(id1+mn)-1
-
-c
-      id1r=id1
-      ls=iadr(lstk(top+1))
-      lsz=ls+vol
-
-
-      lind=lsz+mn
-      lw=lind+mn
-      err=sadr(lw)-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-
-      call icopy(vol,istk(l1),1,istk(ls),1)
-
-      do 91 i=0,mn-1
-         istk(lsz+i)=istk(id1+i+1)-istk(id1+i)
- 91   continue
-
-c     
-      if(sel.eq.0) then
-c     sort(a) <=> sort(a,'*')
-         call rcsort(strord,istk(lsz),istk(id1),istk(ls),mn,istk(lind))
-      elseif(sel.eq.1) then
-c     sort(a,'r')  <=>  sort(a,1)
-         lszi=lsz
-         idi=id1
-         lindi=lind
-         do 95 i=0,n-1
-            call rcsort(strord,istk(lszi),istk(idi),istk(ls),m,
-     $           istk(lindi))
-            lszi=lszi+m
-            idi=idi+m
-            lindi=lindi+m
- 95      continue   
-      endif
-
-      l2=ilr+4+mn+1
-      do 93 i=0,mn-1
-         call icopy(istk(lsz+i),istk(ls-1+istk(id1+i)),1,istk(l2),1)
-         l2=l2+istk(lsz+i)
- 93   continue
-      lstk(top+1)=sadr(l2)
-
-      istk(id1)=1
-      do 94 i=0,mn-1
-         istk(id1+i+1)=istk(id1+i)+istk(lsz+i)
- 94   continue
-      if(lhs.eq.1) goto 999
-      top=top+1
-      il=iadr(lstk(top))
-
-      l=sadr(il+4)
-      inc=-1
-      if(sadr(lind).gt.l) inc=1
-      call int2db(mn,istk(lind),inc,stk(l),inc)
-      istk(il)=1
-      istk(il+1)=m
-      istk(il+2)=n
-      istk(il+3)=0
-      lstk(top+1)=l+mn
-
-      go to 999
- 999  return
-      end
-c =========================================  
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_str2code.f b/scilab/modules/string/sci_gateway/fortran/sci_str2code.f
deleted file mode 100644 (file)
index a55efa4..0000000
+++ /dev/null
@@ -1,58 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine intstr2code(id)
-      INCLUDE 'stack.h'
-c
-      integer id(nsiz)
-      logical ref
-      integer iadr,sadr
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-
-
-      if (rhs .ne. 1) then
-         call error(39)
-         return
-      endif
-      if (lhs .ne. 1) then
-         call error(41)
-         return
-      endif
-c     checking variable str (number 1)
-c       
-      il1 = iadr(lstk(top-rhs+1))
-      ilr=il1
-      if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-      ref=ilr.ne.il1
-      if (istk(il1) .ne. 10) then
-         fun=-1
-         call funnam(ids(1,pt+1),'str2code',il1)
-         return
-      endif
-
-      if (istk(il1+1)*istk(il1+2) .ne. 1) then
-         err = 1
-         call error(89)
-         return
-      endif
-      n1 = istk(il1+5)-1
-      l1 = il1+6
-      if(.not.ref) then
-         call icopy(n1,istk(l1),1,istk(l1-2),1)
-         l1=sadr(ilr+4)
-         call int2db(n1,istk(il1+4),-1,stk(l1),-1)
-      else
-         l1=sadr(ilr+4)
-         call int2db(n1,istk(il1+6),1,stk(l1),1)
-      endif
-      istk(ilr)=1
-      istk(ilr+1)=n1
-      istk(ilr+2)=1
-      istk(ilr+3)=0
-      lstk(top+1)=l1+n1
-      goto 999
- 999  return
-      end
-c =========================================
\ No newline at end of file
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_strcat.f b/scilab/modules/string/sci_gateway/fortran/sci_strcat.f
deleted file mode 100644 (file)
index 5bd4816..0000000
+++ /dev/null
@@ -1,122 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine instrcat(id)
-      INCLUDE 'stack.h'
-c
-      integer id(nsiz),vol,tops
-      logical ref
-c
-      integer iadr,sadr
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-c     strcat(tr [,ins])
-c
-      if (rhs.eq.3) then 
-         call intstrcat('strcat') 
-         return 
-      endif
-
-      if(rhs.ne.1.and.rhs.ne.2) then
-         call error(39)
-         return
-      endif
-      if (lhs .ne. 1) then
-         call error(41)
-         return
-      endif
-c     
-      tops=top
-c
-      if(rhs.eq.2) then
-         il2=iadr(lstk(top))
-         if(istk(il2).lt.0) il2=iadr(istk(il2+1))
-         if(istk(il2).ne.10) then 
-            fun=-1
-            top=tops
-            call funnam(ids(1,pt+1),'strcat',il2)
-            return
-         endif
-         if(istk(il2+1)*istk(il2+2).ne.1) then
-            err=2
-            call error(36)
-            return
-         endif
-         l2=il2+6
-         nv2=istk(il2+5)-1
-         top=top-1
-      endif
-c
-      il1=iadr(lstk(top))
-      ilr=il1
-      if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-      ref=ilr.ne.il1
-
-      if(istk(il1).eq.1) then
-         if(istk(il1+1)*istk(il1+2).eq.0) then
-            istk(ilr)=10
-            istk(ilr+1)=1
-            istk(ilr+2)=1
-            istk(ilr+3)=0
-            istk(ilr+4)=1
-            istk(ilr+5)=1
-            lstk(top+1)=sadr(ilr+6)
-            return
-         endif
-      endif
-      if(istk(il1).ne.10) then
-         fun=-1
-         top=tops
-         call funnam(ids(1,pt+1),'strcat',il1)
-         return
-      endif
-
-      m1=istk(il1+1)
-      n1=istk(il1+2)
-      mn1=m1*n1
-      id1=il1+4
-      l1=id1+mn1+1
-      vol=istk(id1+mn1)-1
-c
-      if(rhs.eq.1) then
-         istk(ilr)=10
-         istk(ilr+1)=1
-         istk(ilr+2)=1
-         istk(ilr+3)=0
-         istk(ilr+4)=1
-         istk(ilr+5)=1+vol
-         l=ilr+6
-         call icopy(vol,istk(l1),1,istk(l),1)
-         lstk(top+1)=sadr(l+vol)
-      else
-         lw = iadr(lstk(tops+1))
-         err=sadr(lw+vol+mn1*nv2)-lstk(bot)
-         if(err.gt.0) then
-            call error(17)
-            return
-         endif
-         ll1=l1
-         ll2=lw
-         do 10 i=1,mn1
-            ln=istk(id1+i)-istk(id1-1+i)
-            call icopy(ln,istk(ll1),1,istk(ll2),1)
-            ll1=ll1+ln
-            ll2=ll2+ln
-            call icopy(nv2,istk(l2),1,istk(ll2),1)
-            ll2=ll2+nv2
- 10      continue
-         vol=vol+(mn1-1)*nv2
-         istk(ilr)=10
-         istk(ilr+1)=1
-         istk(ilr+2)=1
-         istk(ilr+3)=0
-         istk(ilr+4)=1
-         istk(ilr+5)=1+vol
-         l=ilr+6
-         call icopy(vol,istk(lw),1,istk(l),1)
-         lstk(top+1)=sadr(l+vol)
-      endif
-      end
-c =========================================  
\ No newline at end of file
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_strindex.f b/scilab/modules/string/sci_gateway/fortran/sci_strindex.f
deleted file mode 100644 (file)
index ff878a2..0000000
+++ /dev/null
@@ -1,201 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine instrindex(id)
-      INCLUDE 'stack.h'
-c
-      integer id(nsiz),vol,tops
-      logical ref
-c
-      integer iadr,sadr
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-c     strindex(str1,str2)
-c
-      tops=top
-
-      if(rhs.ne.2) then
-         call error(39)
-         return
-      endif
-      if (lhs .gt. 2) then
-         call error(41)
-         return
-      endif
-c     
-      il2=iadr(lstk(top))
-      if(istk(il2).lt.0) il2=iadr(istk(il2+1))
-      if(istk(il2).ne.10) then 
-         fun=-1
-         top=tops
-         call funnam(ids(1,pt+1),'strindex',il2)
-         return
-      endif
-      mn2=istk(il2+1)*istk(il2+2)
-      l2=il2+5+mn2
-      do 01 i=1,mn2
-         if(istk(il2+4+i)-istk(il2+3+i).eq.0) then
-            err=2
-            call error(249)
-            return
-         endif
- 01   continue
-      top=top-1
-c     
-      il1=iadr(lstk(top))
-      ilr=il1
-      if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-      ref=ilr.ne.il1
-      if(istk(il1).eq.1) then
-         if(istk(il1+1)*istk(il1+2).eq.0) then
-            istk(ilr)=1
-            istk(ilr+1)=0
-            istk(ilr+2)=0
-            istk(ilr+3)=0
-            lstk(top+1)=sadr(ilr+4)
-            if(lhs.eq.1) return
-            top=top+1
-            ilr=iadr(lstk(top))
-            istk(ilr)=1
-            istk(ilr+1)=0
-            istk(ilr+2)=0
-            istk(ilr+3)=0
-            lstk(top+1)=sadr(ilr+4)
-            return
-         endif
-      endif
-      if(istk(il1).ne.10) then
-         fun=-1
-         top=tops
-         call funnam(ids(1,pt+1),'strindex',il1)
-         return
-      endif
-      if(istk(il1+1)*istk(il1+2).ne.1) then
-         err=1
-         call error(36)
-         return
-      endif
-c
-      mn1=1
-      id1=il1+4
-      l1=id1+mn1+1
-      vol=istk(id1+mn1)-1
-      lw = lstk(tops+1)
-      ilm=iadr(lw)
-      lw=sadr(ilm+mn2)
-      lpos=lw
-      err=lpos+10-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-c
-      mc=0
-      if(vol.le.0) goto 36
-      ll1=l1-1
- 10   ll1=ll1+1
-      if(ll1-l1.ge.vol) goto 35 
-      nok=0
-      do 11 i=1,mn2
-         if(istk(ll1).eq.istk(l2+istk(il2+3+i)-1)) then
-            istk(ilm+nok)=i
-            nok=nok+1
-         endif
- 11   continue
-      if(nok.eq.0) goto 10
-
-c     first character matches
-      k=0
- 15   k=k+1
-      nok1=0
-      do 16 ii=0,nok-1
-         i=istk(ilm+ii)
-         if(k.ge.istk(il2+4+i)-istk(il2+3+i)) then
-c     .     a match found for ith string
-            nfound=i
-            goto 30
-         elseif(istk(ll1+k).eq.istk(l2+istk(il2+3+i)-1+k)) then
-            istk(ilm+nok1)=i
-            nok1=nok1+1
-         endif
- 16   continue
-      nok=nok1
-      if(nok.eq.0) goto 10
-      goto 15
-
- 30   continue
-c     a match found
-      mc=mc+1
-      if(mod(mc,10).eq.0) then
-         err=lpos+2*(mc+10)-lstk(bot)
-         if(err.gt.0) then
-            call error(17)
-            return
-         endif
-      endif
-      stk(lpos+2*(mc-1)) = dble(ll1-l1+1)
-      stk(lpos+2*(mc-1)+1)     = dble(nfound)
-      goto 10
- 35   continue
-c     end of string str1 reached
- 36   if(mc.eq.0) then
-         istk(ilr)=1
-         istk(ilr+1)=0
-         istk(ilr+2)=0
-         istk(ilr+3)=0
-         lstk(top+1)=sadr(ilr+4)
-         if (lhs.eq.1) return
-         top=top+1
-         ilr=iadr(lstk(top))
-         istk(ilr)=1
-         istk(ilr+1)=0
-         istk(ilr+2)=0
-         istk(ilr+3)=0
-         lstk(top+1)=sadr(ilr+4)
-      else
-         if(lhs.eq.1) then
-            l=sadr(ilr+4)
-            call unsfdcopy(mc,stk(lpos),2,stk(l),1)
-            istk(ilr)=1
-            istk(ilr+1)=1
-            istk(ilr+2)=mc
-            istk(ilr+3)=0
-            lstk(top+1)=l+mc
-         else
-            lw=lpos+2*mc
-            ilw=iadr(lw)
-            err=lw+2*sadr(4)+2*mc-lstk(bot)
-            if(err.gt.0) then
-               call error(17)
-               return
-            endif
-            istk(ilw)=1
-            istk(ilw+1)=1
-            istk(ilw+2)=mc
-            istk(ilw+3)=0
-            l=sadr(ilw+4)
-            call dcopy(mc,stk(lpos),2,stk(l),1)
-            l=l+mc
-            l1=l
-            ilw=iadr(l)
-            istk(ilw)=1
-            istk(ilw+1)=1
-            istk(ilw+2)=mc
-            istk(ilw+3)=0
-            l=sadr(ilw+4)
-            call dcopy(mc,stk(lpos+1),2,stk(l),1)
-            l=l+mc
-c     .     copy the variables at the top of the stack
-            call unsfdcopy(l-lw,stk(lw),1,stk(lstk(top)),1)
-            lstk(top+1)=lstk(top)+l1-lw
-            top=top+1
-            lstk(top+1)=lstk(top)+l-l1
-
-         endif
-
-      endif
-      return
-      end
-c =========================================  
\ No newline at end of file
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_string.f b/scilab/modules/string/sci_gateway/fortran/sci_string.f
deleted file mode 100644 (file)
index 8911bd2..0000000
+++ /dev/null
@@ -1,240 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine intstring(id)
-      INCLUDE 'stack.h'
-c
-      integer id(nsiz)
-      integer eol,nclas
-      logical ref
-      integer iadr,sadr
-      data eol/99/,nclas/29/
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-
-      if(rhs.ne.1) then
-         call  error(39)
-         return
-      endif
-c
-      il=iadr(lstk(top))
-      ilr=il
-      if(istk(il).lt.0) il=iadr(istk(il+1))
-      ref=ilr.ne.il
-
-      if(istk(il).eq.10) then
-         call ref2val
-         goto 999
-      endif
-c
-      lw=iadr(lstk(top+1))
-c
-      if(istk(il).eq.1) then
-c
-c     conversion d'une matrice de scalaires
-c     -------------------------------------
-         if(lhs.ne.1) then
-            call error(39)
-            return
-         endif
-         m=istk(il+1)
-         n=istk(il+2)
-         if(m*n.eq.0) then
-            if (ref) then
-               istk(ilr)=1
-               istk(ilr+1)=0
-               istk(ilr+2)=0
-               istk(ilr+3)=0
-               lstk(top+1)=sadr(ilr+4)
-            endif
-            goto 999
-         endif
-
-         it=istk(il+3)
-         l=sadr(il+4)
-         if(ref) then
-            lw=ilr+4
-         else
-            lw=iadr(lstk(top+1))
-         endif
-         err=sadr(lw+m*n*(2*lct(7)+4))-lstk(bot)
-         if(err.gt.0) then
-            call error(17)
-            return
-         endif
-         lstr=lw+m*n+1
-         if(it.eq.0) call cvdm(stk(l),m,m,n,lct(7),lct(6),
-     1        istk(lstr),istk(lw))
-         if(it.eq.1) call cvwm(stk(l),stk(l+m*n),m,m,n,lct(7),lct(6),
-     1        istk(lstr),istk(lw))
-         nstr=istk(lw+m*n)-1
-         if(.not.ref) call icopy(m*n+1+nstr,istk(lw),1,istk(ilr+4),1)
-         istk(ilr)=10
-         istk(ilr+1)=m
-         istk(ilr+2)=n
-         istk(ilr+3)=0
-         lstk(top+1)=sadr(ilr+5+m*n+nstr)
-         goto 999
-c
-      elseif(abs(istk(il)).eq.11.or.abs(istk(il)).eq.13) then
-c
-c     conversion d'une macro non compilee
-c     -----------------------------------
-
-         ilm=il
-c
-         if(lhs.ne.3) then
-            call error(41)
-            return
-         endif
-c     form vectors of output and input variables
-         il=il+1
-         lw=lstk(top+1)
-         do 37 i=1,2
-            n=istk(il)
-            il=il+1
-            ilio=iadr(lw)
-            istk(ilio)=10
-            if(n.eq.0) istk(ilio)=1
-            istk(ilio+1)=min(1,n)
-            istk(ilio+2)=n
-            istk(ilio+3)=0
-            ilp=ilio+4
-            istk(ilp)=1
-            l=ilp+n
-            if (n.eq.0) goto 35
-            do 34 j=1,n
-               call namstr(istk(il),istk(l+1),nn,1)
-               l=l+nn
-               istk(ilp+j)=l+1-(ilp+n)
-               il=il+nsiz
- 34         continue
- 35         if(i.eq.1) then
-               lout=lw
-            else
-               llin=lw
-            endif
-            lw=sadr(l+1)
- 37      continue
-c
-c
-         if(istk(ilm).eq.13) then
-            ltxt=lw
-            ilt=iadr(ltxt)
-            istk(ilt)=1
-            istk(ilt+2)=0
-            istk(ilt+3)=0
-            istk(ilt+4)=1
-            ilt=ilt+4
-            goto 43
-         endif
-         ltxt=lw
-         ilt=iadr(ltxt)
-         istk(ilt)=10
-         istk(ilt+2)=1
-         istk(ilt+3)=0
-         istk(ilt+4)=1
-         ilp=ilt+4
-c     
-c     compute number of lines of the macro
-         nch=istk(il)
-         nl=0
-         il=il+1
-         l=il-1
- 39      l=l+1
-         if(istk(l).eq.eol) then
-            if(istk(l+1).eq.eol) goto 40
-            nl=nl+1
-         endif
-         goto 39
-c
- 40      continue
-         istk(ilt+1)=nl
-         if(nl.eq.0) then
-            istk(ilt)=1
-            istk(ilt+2)=0
-            ilt=ilt+3
-            goto 43
-         endif
-         ilt=ilp+nl+1
-         l=il
- 41      if(istk(l).eq.eol) goto 42
-         l=l+1
-         goto 41
- 42      if(istk(l+1).eq.eol) goto 43
-         n=l-il
-         ilp=ilp+1
-         istk(ilp)=istk(ilp-1)+n
-         call icopy(n,istk(il),1,istk(ilt),1)
-         ilt=ilt+n
-         il=l+1
-         l=il
-         goto 41
-c
- 43      continue
-         lw=sadr(ilt+1)
-c     update stack
-         if(lhs.eq.3) then
-            n=llin-lout
-            call unsfdcopy(n,stk(lout),1,stk(lstk(top)),1)
-            lstk(top+1)=lstk(top)+n+1
-            top=top+1
-            n=ltxt-llin
-            call unsfdcopy(n,stk(llin),1,stk(lstk(top)),1)
-            lstk(top+1)=lstk(top)+n+1
-            top=top+1
-         endif
-         n=lw-ltxt
-         call unsfdcopy(n,stk(ltxt),1,stk(lstk(top)),1)
-         lstk(top+1)=lstk(top)+n+1
-         goto 999
-
-      elseif(istk(il).eq.14) then
-c     librairies
-         if(lhs.ne.1) then
-            call error(39)
-            return
-         endif
-         il0=ilr
-c
-         n1=istk(il+1)
-         l1=il+2
-         il=il+n1+2
-         n=istk(il)
-         il=il+nclas+2
-
-         if(.not.ref) ilr=lw
-         err=sadr(ilr+6+n1+(nlgh+1)*n)-lstk(bot)
-         if(err.gt.0) then
-            call error(17)
-            return
-         endif
-
-         istk(ilr)=10
-         istk(ilr+1)=n+1
-         istk(ilr+2)=1
-         istk(ilr+3)=0
-         istk(ilr+4)=1
-         l=ilr+6+n
-         call icopy(n1,istk(l1),1,istk(l),1)
-         istk(ilr+5)=1+n1
-         l=l+n1
-         do 49  k=1,n
-           call namstr(istk(il),istk(l),nn,1)
-           istk(ilr+5+k)=istk(ilr+4+k)+nn
-           l=l+nn
-           il=il+nsiz
- 49     continue
-        if(.not.ref) call icopy(l-ilr,istk(ilr),1,istk(il0),1)
-        lstk(top+1)=sadr(il0+l-ilr)
-        goto 999
-      else
-         fun=-1
-         call funnam(ids(1,pt+1),'string',il)
-         return
-      endif
- 999  return
-      end
-
-c =========================================  
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_strsplit.f b/scilab/modules/string/sci_gateway/fortran/sci_strsplit.f
deleted file mode 100644 (file)
index 0b3e261..0000000
+++ /dev/null
@@ -1,120 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine intstrsplit(id)
-      INCLUDE 'stack.h'
-c
-      integer id(nsiz),vol,tops
-      logical ref1,ref2
-c
-      integer iadr,sadr
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-c     strsplit(str,v)
-c
-
-      if(rhs.ne.2) then
-         call error(39)
-         return
-      endif
-      if (lhs .ne. 1) then
-         call error(41)
-         return
-      endif
-c     
-      tops=top
-c
-      lw=lstk(top+1)
-
-      il2=iadr(lstk(top))
-      ref2=istk(il2).lt.0
-      if(ref2) il2=iadr(istk(il2+1))
-
-      if(istk(il2).ne.1) then 
-         fun=-1
-         top=tops
-         call funnam(ids(1,pt+1),'strsplit',il2)
-         return
-      endif
-      n2=istk(il2+1)*istk(il2+2)
-      l2=sadr(il2+4)
-      if (stk(l2).lt.1) then
-         err=2
-         call error(116)
-         return
-      endif
-      do i=1,n2-1
-         if (stk(l2+i).lt.stk(l2+i-1)) then
-            err=2
-            call error(99)
-            return
-         endif
-      enddo
-c
-      top=top-1
-      il1=iadr(lstk(top))
-      ref1=istk(il1).lt.0
-      if(ref1) il1=iadr(istk(il1+1))
-
-      if(istk(il1).eq.1) then
-         if(istk(il1+1)*istk(il1+2).eq.0) then
-            ilr=iadr(lstk(top))
-            istk(ilr)=1
-            istk(ilr+1)=0
-            istk(ilr+2)=0
-            istk(ilr+3)=0
-            lstk(top+1)=sadr(ilr+4)
-            return
-         endif
-      endif
-      if(istk(il1).ne.10) then
-         fun=-1
-         top=tops
-         call funnam(ids(1,pt+1),'strsplit',il1)
-         return
-      endif
-      if (istk(il1+1)*istk(il1+2).ne.1) then
-         err=1
-         call error(89)
-         return
-      endif
-      id1=il1+4
-      l1=id1+2
-      vol=istk(id1+1)-1
-      if (stk(l2+n2-1).ge.vol) then
-         err=2
-         call error(116)
-         return
-      endif
-      if(ref1.and.ref2) then
-         ilr=iadr(lstk(top))
-      else
-         ilr=iadr(lw)
-         err = sadr(ilr+4+n2+2+vol) - lstk(bot)
-         if ( err.gt.0 ) then
-            call error(17)
-            return
-         endif
-      endif
-      istk(ilr)=10
-      istk(ilr+1)=n2+1
-      istk(ilr+2)=1
-      istk(ilr+3)=0
-
-      istk(ilr+4)=1
-      do i=1,n2
-         istk(ilr+4+i)=stk(l2+i-1)+1
-      enddo
-      istk(ilr+5+n2)=vol+1
-      call icopy(vol,istk(l1),1,istk(ilr+6+n2),1)
-      if(ref1.and.ref2) then
-         lstk(top+1)=sadr(ilr+6+n2+vol)
-      else
-         il=iadr(lstk(top))
-         call icopy(6+n2+vol,istk(ilr),1,istk(il),1)
-         lstk(top+1)=sadr(il+6+n2+vol)
-      endif
-      end
-c =========================================  
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_strsubst.f b/scilab/modules/string/sci_gateway/fortran/sci_strsubst.f
deleted file mode 100644 (file)
index 276e42b..0000000
+++ /dev/null
@@ -1,166 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine intstrsubst(id)
-      INCLUDE 'stack.h'
-c
-      integer id(nsiz),vol,tops
-      logical ref
-c
-      integer iadr,sadr
-c
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c
-c     strsubst(str1,str2,str3)
-c
-      if(rhs.ne.3) then
-         call error(39)
-         return
-      endif
-      if (lhs .ne. 1) then
-         call error(41)
-         return
-      endif
-c
-      tops=top
-c     
-      lw = iadr(lstk(top+1))
-c     
-      il3=iadr(lstk(top))
-      if(istk(il3).lt.0) il3=iadr(istk(il3+1))
-      if(istk(il3).ne.10) then 
-         fun=-1
-         top=tops
-         call funnam(ids(1,pt+1),'strsubst',il3)
-         return
-      endif
-      if(istk(il3+1)*istk(il3+2).ne.1) then
-         err=3
-         call error(36)
-         return
-      endif
-      l3=il3+6
-      nv3=istk(il3+5)-1
-      top=top-1
-
-      il2=iadr(lstk(top))
-      if(istk(il2).lt.0) il2=iadr(istk(il2+1))
-      if(istk(il2).ne.10) then 
-         fun=-1
-         top=tops
-         call funnam(ids(1,pt+1),'strsubst',il2)
-         return
-      endif
-      if(istk(il2+1)*istk(il2+2).ne.1) then
-         err=2
-         call error(36)
-         return
-      endif
-      l2=il2+6
-      nv2=istk(il2+5)-1
-      if(nv2.eq.0) then
-         err=2
-         call error(249)
-         return
-      endif
-      top=top-1
-
-c     
-      il1=iadr(lstk(top))
-      ilr1=il1
-      if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-      ref=il1.ne.ilr1
-      if(istk(il1).eq.1) then
-         if(istk(il1+1)*istk(il1+2).eq.0) then
-            istk(ilr1)=1
-            istk(ilr1+1)=0
-            istk(ilr1+2)=0
-            istk(ilr1+3)=0
-            lstk(top+1)=sadr(ilr1+4)
-            return
-         endif
-      endif
-      if(istk(il1).ne.10) then
-         fun=-1
-         top=tops
-         call funnam(ids(1,pt+1),'strsubst',il1)
-         return
-      endif
-
-      mn1=istk(il1+1)*istk(il1+2)
-      id1=il1+4
-      l1=id1+mn1+1
-      
-c
-      if(ref) then
-         id1r=lw
-         istk(id1r)=1
-         lw=lw+mn1+1
-      else
-         id1r=id1
-      endif
-      ilr=lw
-      ilr0=ilr
-      err=sadr(ilr)-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-      vol=istk(id1+1)-istk(id1)
-c
-      do 40 ij=1,mn1
-         mc=0
-         if(vol.eq.0) goto 36
-         ll0=l1
-         ll1=l1-1
- 10      ll1=ll1+1
-         if(ll1-l1.ge.vol+1-nv2) goto 35
-         if(istk(ll1).ne.istk(l2)) goto 10
-c     first character matches
-         k=0
- 15      k=k+1
-         if(k.ge.nv2) goto 30
-         if(istk(ll1+k).eq.istk(l2+k)) goto 15
-         goto 10
- 30      continue
-c     a match found
-         err=sadr(ilr+ll1-ll0+nv3) -lstk(bot)
-         if(err.gt.0) then
-            call error(17)
-            return
-         endif
-         mc=mc+1
-         call icopy(ll1-ll0,istk(ll0),1,istk(ilr),1)
-         ilr=ilr+ll1-ll0
-         ll0=ll1+nv2
-
-         call icopy(nv3,istk(l3),1,istk(ilr),1)
-         ilr=ilr+nv3
-         ll1=ll1+nv2-1
-         goto 10
- 35      continue
-c     end of string reached
-         err=sadr(ilr+vol-(ll0-l1))-lstk(bot)
-         if(err.gt.0) then
-            call error(17)
-            return
-         endif
-         call icopy(vol-(ll0-l1),istk(ll0),1,istk(ilr),1)
-         ilr=ilr+vol-(ll0-l1)
-         l1=l1+vol
- 36      vol=istk(id1+ij+1)-istk(id1+ij)
-         istk(id1r+ij)=istk(id1r+ij-1)+ilr-ilr0
-         ilr0=ilr
- 40   continue
-      id1=ilr1+4
-      if(ref) then
-         call icopy(4,istk(il1),1,istk(ilr1),1)
-         call icopy(mn1+1,istk(id1r),1,istk(id1),1)
-      endif
-      call icopy(ilr-lw,istk(lw),1,istk(id1+mn1+1),1)
-      lstk(top+1)=sadr(id1+mn1+1+ilr-lw)
-
-      return
-      end
-c =========================================  
diff --git a/scilab/modules/string/sci_gateway/fortran/sci_tokens.f b/scilab/modules/string/sci_gateway/fortran/sci_tokens.f
deleted file mode 100644 (file)
index a7c5aa9..0000000
+++ /dev/null
@@ -1,209 +0,0 @@
-c =========================================
-c INRIA
-c =========================================  
-      subroutine inttokens(id)
-c
-c     Interface code for tokens :
-c
-c         words = tokens( str [, sep])
-c
-c     which cut the string str into words (as a vector column of words)
-c     the words being sub-strings of str between separators chars.
-c
-c     where str must be a simple string 
-c      and  sep a vector (or matrix) of characters (not string of chars)
-c           sep is optionnal and if it is is omitted then sep = [ " ", TAB ]
-c
-c     Added by Bruno      
-c        (Initially tokens was coded as a scilab macro but was very inefficient).
-c
-      implicit none
-      INCLUDE 'stack.h'
-
-      integer id(nsiz)
-
-      integer lw, tops, il2, m2, n2, p2, i_sep, nb_sep, il1, l1, nv1, 
-     $        ilr, nb_chars, nb_words, i, c, ipt, size, lword, iwd
-      logical  in_sep
-
-      logical is_a_sep
-      external error, funnam, is_a_sep, icopy
-
-      integer BLANK, TAB
-      parameter (BLANK = 40, TAB = -40)
-
-      integer iadr,sadr, l
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-
-      if(rhs.lt.1 .or. rhs.gt.2) then
-         call error(39)
-         return
-      endif
-      if (lhs .ne. 1) then
-         call error(41)
-         return
-      endif
-
-      tops=top
-     
-      lw = iadr(lstk(top+1))
-     
-      if (rhs .eq. 2) then  
-c        get the separators sep
-         il2 = iadr(lstk(top))
-         if (istk(il2).lt.0) il2 = iadr(istk(il2+1))
-         if (istk(il2).ne.10) then 
-            fun=-1
-            top=tops
-            call funnam(ids(1,pt+1),'tokens',il2)
-            return
-         endif
-         m2 = istk(il2+1)
-         n2 = istk(il2+2)
-c        verify that each element of sep is a simple character
-         p2 = il2 + 4
-         do i = 1, m2*n2
-            if (istk(p2+i)-istk(p2+i-1) .ne. 1) then
-               buf='a separator must be formed by only one character'
-               call error(9999)
-               return
-            endif
-         enddo
-         nb_sep = m2*n2           
-c     !  there are nb_sep separators, and the first is located at istk(i_sep)
-         i_sep = p2 + 1 + nb_sep  
-         top = top - 1
-      else
-c        no separators given => uses the 2 default separators (blank and tab)
-         i_sep = lw
-         nb_sep = 2
-         lw = lw + 2
-         err=sadr(lw)-lstk(bot)
-         if ( err.gt.0 ) then
-            call error(17)
-            return
-         endif
-         istk(i_sep) = BLANK
-         istk(i_sep+1) = TAB
-      endif
-
-c     get the string str
-      il1 = iadr(lstk(top)) 
-      if(istk(il1).lt.0) il1 = iadr(istk(il1+1))
-      if(istk(il1).ne.10) then 
-         fun = -1
-         top = tops
-         call funnam(ids(1,pt+1),'tokens',il1)
-         return
-      endif
-      if(istk(il1+1)*istk(il1+2).ne.1) then 
-c     !  str must be a simple string not a vector|matrix of strings
-         call error(36)
-         return
-      endif
-      l1 = il1+6
-      nv1 = istk(il1+5)-1   
-c     ! nv1 is the number of chars of str
-      if(nv1.eq.0) then     
-c     !   str is an empty string => return a void matrix
-         il1=iadr(lstk(top)) 
-         istk(il1)   = 1
-         istk(il1+1) = 0
-         istk(il1+2) = 0
-         istk(il1+3) = 0
-         return
-      endif
-
-c     count the number of words (and characters)
-      nb_words = 0
-      nb_chars = 0
-      in_sep = .true.
-      do i = 0, nv1-1
-         c = istk(l1+i)
-         if ( is_a_sep(c, istk(i_sep), nb_sep) ) then
-            in_sep = .true.
-         else
-            nb_chars = nb_chars + 1
-            if (in_sep) then
-               nb_words = nb_words + 1
-               in_sep = .false.
-            endif
-         endif
-      enddo
-
-      if ( nb_words .eq. 0 ) then 
-c     !   return a void matrix
-         il1=iadr(lstk(top)) 
-         istk(il1)   = 1
-         istk(il1+1) = 0
-         istk(il1+2) = 0
-         istk(il1+3) = 0
-         return
-      endif
-
-c     prepare memory for the result
-      ilr = lw
-      size =  5 + nb_words + nb_chars  
-c     ! size of the resulting scilab object
-      lw = lw + size                   
-      err = sadr(lw) - lstk(bot)
-      if ( err.gt.0 ) then
-         call error(17)
-         return
-      endif
-
-c     form the output
-      istk(ilr)   = 10
-      istk(ilr+1) = nb_words
-      istk(ilr+2) = 1
-      istk(ilr+3) = 0
-      istk(ilr+4) = 1
-      ipt = ilr + 5
-      iwd = ipt + nb_words
-      istk(iwd-1) = nb_chars + 1 
-c     dernier pointeur (necessaire lorsque la chaine ne se termine pas 
-C     par un separateur)
-      lword = 0
-      do i = 0, nv1-1
-         c = istk(l1+i)
-         if ( is_a_sep(c, istk(i_sep), nb_sep) ) then
-            if (lword .gt. 0) then 
-c     !        on vient donc de terminer un mot
-               istk(ipt) = istk(ipt-1) + lword
-               ipt = ipt + 1
-               lword = 0
-            endif
-         else
-            istk(iwd) = c
-            iwd = iwd + 1
-            lword = lword + 1
-         endif
-      enddo
-
-c     copy result at top
-      il1=iadr(lstk(top)) 
-      call icopy(size, istk(ilr), 1, istk(il1), 1)       
-      lstk(top+1)=sadr(il1 + size)
-
-      end 
-
-
-      logical function is_a_sep(c, sep, nb_sep)
-c
-c     utility function used by inttokens (Bruno)
-c      
-      implicit none
-      integer c, nb_sep, sep(nb_sep)
-      integer i
-      is_a_sep = .false.
-      do i = 1, nb_sep
-         if (c .eq. sep(i)) then
-            is_a_sep = .true.
-            return
-         endif
-      enddo
-
-      end 
-c =========================================  
-      
\ No newline at end of file
diff --git a/scilab/modules/string/sci_gateway/fortran/strops.f b/scilab/modules/string/sci_gateway/fortran/strops.f
deleted file mode 100644 (file)
index 17bb8f2..0000000
+++ /dev/null
@@ -1,993 +0,0 @@
-      subroutine strops
-c ====================================================================
-c
-c   operations sur les matrices de chaines de caracteres
-c
-c ====================================================================
-c
-c     Copyright INRIA
-      include 'stack.h'
-      common /mtlbc/ mmode
-c
-      integer plus,quote,equal,less,great,insert,extrac
-      integer top0,iadr,sadr,op,vol,volr,rhs1
-      logical isany
-c
-      data plus/45/,quote/53/
-      data equal/50/,less/59/,great/60/,insert/2/,extrac/3/
-c     
-      iadr(l)=l+l-1
-      sadr(l)=(l/2)+1
-c 
-      op=fin
-c
-      fun=0
-c
-      top0=top
-c
-      lw=lstk(top+1)
-      rhs1=rhs
-      if(op.eq.extrac) goto 130
-      if(op.eq.insert) goto 120
-c
-      if(rhs.eq.1) goto 05
-      il2=iadr(lstk(top))
-      if(istk(il2).lt.0) il2=iadr(istk(il2+1))
-      m2=istk(il2+1)
-      n2=istk(il2+2)
-      it2=istk(il2+3)
-      mn2=m2*n2
-      id2=il2+4
-      l2r=id2+mn2+1
-      l3r=lw
-c
-      top = top-1
-   05 il1=iadr(lstk(top))
-      ilrs=il1
-      if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-      m1=istk(il1+1)
-      n1=istk(il1+2)
-      it1=istk(il1+3)
-      mn1 = m1*n1
-      id1=il1+4
-      l1r=id1+mn1+1
-      vol=istk(id1+mn1)-1
-c
-      goto (60,120,130,65) op
-      if (rhs .eq. 1.and.op.eq.quote) goto 110
-      if (op .eq. plus ) go to 20
-      if(op.eq.equal.or.op.eq.less+great) goto 180
-c
-c     operations non implantees
- 10   top=top0
-      rhs=rhs1
-      fin=-fin
-      return
-
-
-c
-c addition
-c
- 20   continue
-      if(m1*n1.eq.0) then
-c     .  []+b
-         vol=5+mn2+istk(id2+mn2)-1
-         call icopy(vol,istk(il2),1,istk(il1),1)
-         lstk(top+1)=sadr(il1+vol)
-         return
-      elseif(m2*n2.eq.0) then
-c     .  a+[]
-         return
-      elseif(m1.ne.m2.or.n1.ne.n2) then
-         top=top0
-         rhs=rhs1
-         fin=-fin
-         return
-      endif
-      if(istk(il1).ne.istk(il2)) goto 10
-      err=lw+sadr(istk(id1+mn1)+istk(id2+mn2))-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-c
-      lr=iadr(lw)
-      l=lr
-      i1=1
-      do 11 i=1,mn1
-      la=istk(id1+i)-i1
-      lb=istk(id2+i)-istk(id2+i-1)
-      i1=istk(id1+i)
-      istk(id1+i)=istk(id1+i-1)+la+lb
-      call icopy(la,istk(l1r),1,istk(l),1)
-      l1r=l1r+la
-      l=l+la
-      call icopy(lb,istk(l2r),1,istk(l),1)
-      l2r=l2r+lb
-      l=l+lb
-11    continue
-      call icopy(l-lr,istk(lr),1,istk(il1+5+mn1),1)
-      lstk(top+1)=sadr(il1+5+mn1+l-lr)
-      goto 999
-c
-c concatenation [a, b]
-c
-   60 continue
-      if(m1.lt.0.or.m2.lt.0) then
-            call error(14)
-            return
-      endif
-      if(m2.eq.0) then
-         return
-      elseif(m1.eq.0)then
-         call unsfdcopy(lstk(top+2)-lstk(top+1),stk(lstk(top+1)),1,
-     &        stk(lstk(top)),1)
-         lstk(top+1)=lstk(top)+lstk(top+2)-lstk(top+1)
-         return
-      elseif(m1.ne.m2) then
-         call error(5)
-         return
-      endif
-      if(istk(il1).ne.istk(il2)) goto 10
-c
-      id3=iadr(lw)
-      l3r=id3+mn1+mn2+1
-      vol=istk(id1+mn1)+istk(id2+mn2)-2
-      err=sadr(l3r+vol)-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-      call impcnc(istk(l1r),istk(id1),m1,istk(l2r),istk(id2),m1,
-     & istk(l3r),istk(id3),m1,n1,n2,1)
-c
-      istk(il1)=10
-      istk(il1+1)=m1
-      istk(il1+2)=n1+n2
-      istk(il1+3)=it1
-      call icopy(mn1+mn2+vol+1,istk(id3),1,istk(il1+4),1)
-      lstk(top+1)=sadr(il1+5+mn1+mn2+vol)
-      goto 999
-c
-c     concatenation [a;b]
- 65   continue
-      if(n1.lt.0.or.n2.lt.0) then
-            call error(14)
-            return
-      endif
-      if(n2.eq.0) then
-         return
-      elseif(n1.eq.0)then
-         call unsfdcopy(lstk(top+2)-lstk(top+1),stk(lstk(top+1)),1,
-     &        stk(lstk(top)),1)
-         lstk(top+1)=lstk(top)+lstk(top+2)-lstk(top+1)
-         return
-      elseif(n1.ne.n2) then
-         call error(6)
-         return
-      endif
-      if(istk(il1).ne.istk(il2)) goto 10
-c
-      id3=iadr(lw)
-      l3r=id3+mn1+mn2+1
-      vol=istk(id1+mn1)+istk(id2+mn2)-2
-      err=sadr(l3r+vol)-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-      call impcnc(istk(l1r),istk(id1),m1,istk(l2r),istk(id2),m2,
-     & istk(l3r),istk(id3),m1,m2,n2,-1)
-c
-      istk(il1)=10
-      istk(il1+1)=m1+m2
-      istk(il1+2)=n1
-      istk(il1+3)=it1
-      call icopy(mn1+mn2+vol+1,istk(id3),1,istk(il1+4),1)
-      lstk(top+1)=sadr(il1+5+mn1+mn2+vol)
-      goto 999
-c
-c transposition
-c
-  110 continue
-      id2=iadr(lw)
-      l2r=id2+mn1+1
-      err=sadr(l2r+vol)-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-      call imptra(istk(l1r),istk(id1),m1,istk(l2r),istk(id2),m1,n1)
-      istk(il1+1)=n1
-      istk(il1+2)=m1
-      call icopy(mn1+1+vol,istk(id2),1,istk(id1),1)
-      goto 999
-c
-c insertion
-c
-  120 continue
-      if(rhs.gt.4) then
-         top=top0
-         fin=-fin
-         return
-      endif
-      if(rhs.eq.4) goto 125
-c     arg3(arg1)=arg2
-c     
-c     get arg3
-      il3=iadr(lstk(top))
-      if(istk(il3).lt.0) il3=iadr(istk(il3+1))
-
-      if(istk(il3).ne.10) then
-         if(istk(il3).ne.1.or.istk(il3+1).ne.0) then
-            top=top0
-            fin=-fin
-            return
-         endif
-      endif
-      m3=istk(il3+1)
-      n3=istk(il3+2)
-      mn3=m3*n3
-      id3=il3+4
-      l3r=id3+mn3+1
-c     get arg2
-      top=top-1
-      il2=iadr(lstk(top))
-      if(istk(il2).lt.0) il2=iadr(istk(il2+1))
-      if(istk(il2).ne.10) then
-         if(istk(il2).eq.1) then
-            if(istk(il2+1)*istk(il2+2).eq.0) goto 121
-         endif
-         top=top0
-         fin=-fin
-         return
-      endif
- 121  m2=istk(il2+1)
-      n2=istk(il2+2)
-      mn2=m2*n2
-      id2=il2+4
-      l2r=id2+mn2+1
-c     get arg1
-      top=top-1
-      il1=iadr(lstk(top))
-      ilrs=il1
-      if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-      if (istk(il1).eq.10.or.istk(il1).eq.15) then
-         top=top0
-         fin=-fin
-         return
-      endif
-      m1=istk(il1+1)
-      n1=istk(il1+2)
-c
-      if (m2.eq.0) then
-c     .  arg3(arg1)=[] 
-         if(m1.eq.-1) then
-c     .    arg3(:)=[] -->[]
-            istk(ilrs)=1
-            istk(ilrs+1)=0
-            istk(ilrs+2)=0
-            istk(ilrs+3)=0
-            lstk(top+1)=sadr(ilrs+4)+1
-            goto 999
-         elseif(m1.eq.0) then
-c     .     arg3([])=[]  --> arg3
-            istk(ilrs)=10
-            istk(ilrs+1)=m3
-            istk(ilrs+2)=n3
-            istk(ilrs+3)=0
-            volr=istk(id3+mn3)-1
-            call icopy(mn3+1+volr,istk(id3),1,istk(ilrs+4),1)
-            lstk(top+1)=sadr(ilrs+5+mn3+volr)
-            goto 999
-         else
-c     .     arg3(arg1)=[]
-            if(istk(il1).eq.4.and.m3.eq.m1.and.n3.eq.n1) then
-               if(.not.isany(il1)) then
-c     .           arg3([])=[]  --> arg3
-                  istk(ilrs)=10
-                  istk(ilrs+1)=m3
-                  istk(ilrs+2)=n3
-                  istk(ilrs+3)=0
-                  volr=istk(id3+mn3)-1
-                  call icopy(mn3+1+volr,istk(id3),1,istk(ilrs+4),1)
-                  lstk(top+1)=sadr(ilrs+5+mn3+volr)
-                  goto 999
-               endif
-            endif
-c     .     arg3(arg1)=[] --> arg3(compl(arg1))
-            call indxgc(il1,mn3,ilr,mi,mx,lw)
-            if(err.gt.0) return
-            l2r=l3r
-            n2=n3
-            m2=m3
-            mn2=m2*n2
-            id2=id3
-            ili=ilr
-c     .     call extraction
-            goto 131
-         endif
-      elseif(m2.lt.0.or.m3.lt.0) then
-c     .  arg3=eye,arg2=eye
-         call error(14)
-         return
-      elseif(m1.lt.0) then
-c     .  arg3(:)=arg2
-         if(mn2.ne.mn3) then
-            if(mn2.eq.1) goto 124
-            call error(15)
-            return
-         endif
-c     .  reshape arg2 according to arg3
-         istk(ilrs)=10
-         istk(ilrs+1)=m3
-         istk(ilrs+2)=n3
-         istk(ilrs+3)=0
-         volr=istk(id2+mn2)-1
-         call icopy(mn3+1+volr,istk(id2),1,istk(ilrs+4),1)
-         lstk(top+1)=sadr(ilrs+5+mn3+volr)
-         goto 999
-      endif
- 124  call indxg(il1,mn3,ili,mi,mxi,lw,1)
-      if(err.gt.0) return
-      if(mi.eq.0) then
-c     .  arg3([])=arg2
-         if(mn2.eq.1) then
-c     .  arg3([])=c  --> arg3 
-            if(mn3.eq.0) then
-               istk(ilrs)=1
-               istk(ilrs+1)=0
-               istk(ilrs+2)=0
-               istk(ilrs+3)=0
-               lstk(top+1)=sadr(ilrs+4)
-            else
-               istk(ilrs)=10
-               istk(ilrs+1)=m3
-               istk(ilrs+2)=n3
-               istk(ilrs+3)=0
-               volr=istk(id3+mn3)-1
-               call icopy(mn3+1+volr,istk(id3),1,istk(ilrs+4),1)
-               lstk(top+1)=sadr(ilrs+5+mn3+volr)
-            endif
-            goto 999
-         else
-            call error(15)
-            return
-         endif
-      endif
-      if(mi.ne.mn2.and.mn2.gt.1) then
-         call error(15)
-         return
-      endif
-c
-      if (n3.gt.1.and.m3.gt.1) then
-c     .  arg3 is not a vector
-         if(n2.gt.1.and.m2.gt.1) then
-            call error(15)
-            return
-         endif
-         if(mxi.gt.m3*n3) then
-            call error(21)
-            return
-         endif
-         mr=m3
-         nr=n3
-      elseif (n3.le.1.and.n2.le.1) then
-c     .  arg3 and arg2 are  column vectors
-         mr=max(m3,mxi)
-         nr=max(n3,1)
-      elseif (m3.le.1.and.m2.le.1) then
-c     .  row vectors
-         nr=max(n3,mxi)
-         mr=max(m3,1)
-      else
-c     .  arg3 and arg2 dimensions dont agree
-         call error(15)
-         return
-      endif
-c
-      mnr=mr*nr
-c     set result pointers
-      idr=iadr(lw)
-      lr=idr+mr*nr+1
-      lw=sadr(lr)
-      err=lw-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-      call mpinsp(istk(id3),m3*n3,1,istk(ili),mi,1,1,istk(id2),m2*n2,1
-     $     ,istk(idr),mnr,1,err)
-      if(err.gt.0) then
-         call error(15)
-         return
-      endif
-      volr=istk(idr)
-c     set result coefficients
-      
-      lw=sadr(lr+volr)
-      err=lw-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-c     
-      call impins(istk(l3r),istk(id3),m3*n3,1,istk(l2r),istk(id2),
-     $     m2*n2,1,istk(lr),istk(idr),mnr,1)
-
-c     set output variable
-      ilrs=iadr(lstk(top))
-      istk(ilrs)=10
-      if(mmode.eq.1.and.nr.eq.1.and.m3.eq.0) then
-         istk(ilrs+1)=nr
-         istk(ilrs+2)=mr
-      else
-         istk(ilrs+1)=mr
-         istk(ilrs+2)=nr
-      endif
-      istk(ilrs+3)=0
-      call icopy(mnr+1+volr,istk(idr),1,istk(ilrs+4),1)
-      lstk(top+1)=sadr(ilrs+5+mnr+volr)
-      goto 999
-c
- 125  continue
-c     arg4(arg1,arg2)=arg3
-c     get arg4
-      il4=iadr(lstk(top))
-      if(istk(il4).lt.0) il4=iadr(istk(il4+1))
-      if(istk(il4).ne.10) then
-         if(istk(il4).ne.1.or.istk(il4+1).ne.0) then
-            top=top0
-            fin=-fin
-            return
-         endif
-      endif
-      m4=istk(il4+1)
-      n4=istk(il4+2)
-      mn4=m4*n4
-      id4=il4+4
-      l4r=id4+mn4+1
-      top=top-1
-c     get arg3
-      il3=iadr(lstk(top))
-      if(istk(il3).lt.0) il3=iadr(istk(il3+1))
-      if(istk(il3).ne.10) then
-         if(istk(il3).eq.1) then
-            if(istk(il3+1)*istk(il3+2).eq.0) goto 126
-         endif
-         top=top0
-         fin=-fin
-         return
-      endif
- 126  m3=istk(il3+1)
-      n3=istk(il3+2)
-      mn3=m3*n3
-      id3=il3+4
-      l3r=id3+mn3+1
-c     get arg2
-      top=top-1
-      il2=iadr(lstk(top))
-      if(istk(il2).lt.0) il2=iadr(istk(il2+1))
-      m2=istk(il2+1)
-c     get arg1
-      top=top-1
-      il1=iadr(lstk(top))
-      ilrs=il1
-      if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-      m1=istk(il1+1)
-
-      if (m3.eq.0) then
-c     .  arg4(arg1,arg2)=[]
-         if(m1.eq.-1.and.m2.eq.-1) then
-c     .    arg4(:,:)=[] -->[]
-            istk(ilrs)=1
-            istk(ilrs+1)=0
-            istk(ilrs+2)=0
-            istk(ilrs+3)=0
-            lstk(top+1)=sadr(ilrs+4)+1
-            goto 999
-         elseif(m1.eq.0.or.m2.eq.0) then
-c     .     arg4([],arg2)=[],  arg4(arg1,[])=[] --> arg4
-            istk(ilrs)=10
-            istk(ilrs+1)=m4
-            istk(ilrs+2)=n4
-            istk(ilrs+3)=0
-            volr=istk(id4+mn4)-1
-            call icopy(mn4+1+volr,istk(id4),1,istk(ilrs+4),1)
-            lstk(top+1)=sadr(ilrs+5+mn4+volr)
-            goto 999
-         elseif(m2.eq.-1) then
-c     .     arg4(arg1,:)=[] --> arg4(compl(arg1),:)
-            call indxgc(il1,m4,ili,mi,mxi,lw)
-            if(err.gt.0) return
-            call indxg(il2,n4,ilj,nj,mxj,lw,1)
-            if(err.gt.0) return
-            l3r=l4r
-            n3=n4
-            m3=m4
-            mn3=m3*n3
-            id3=id4
-c     .     call extraction
-            goto 133
-         elseif(m1.eq.-1) then
-c     .     arg4(:,arg2)=[] --> arg4(:,compl(arg2))
-            call indxgc(il2,n4,ilj,nj,mxj,lw)
-            if(err.gt.0) return
-            call indxg(il1,m4,ili,mi,mxi,lw,1)
-            if(err.gt.0) return
-            l3r=l4r
-            n3=n4
-            m3=m4
-            mn3=m3*n3
-            id3=id4
-c     .     call extraction
-            goto 133
-         else
-c     .     arg4(arg1,arg2)=[] 
-            lw1=lw
-            call indxgc(il2,n4,ilj,nj,mxj,lw)
-            if(err.gt.0) return
-            if(nj.eq.0) then
-c     .        arg4(arg1,1:n4)=[] 
-               call indxgc(il1,m4,ili,mi,mxi,lw)
-               lw2=lw
-               if(err.gt.0) return
-c     .        arg2=1:n4
-               if(mi.eq.0) then
-c     .           arg4(1:m4,1:n4)=[] 
-                  istk(ilrs)=1
-                  istk(ilrs+1)=0
-                  istk(ilrs+2)=0
-                  istk(ilrs+3)=0
-                  lstk(top+1)=sadr(ilrs+4)+1
-                  goto 999
-               else
-c     .           arg4(arg1,1:n4)=[] 
-c     .           replace arg2 by ":"
-                  il2=iadr(lw2)
-                  istk(il2)=1
-                  istk(il2+1)=-1
-                  istk(il2+2)=-1
-                  istk(il2+3)=0
-c     .
-                  lw=lw2+2
-                  call indxg(il2,n4,ilj,nj,mxj,lw,1)
-                  if(err.gt.0) return
-                  l3r=l4r
-                  n3=n4
-                  m3=m4
-                  mn3=m3*n3
-                  id3=id4
-c     .           call extraction
-                  goto 133
-               endif
-            else
-c               lw=lw1
-               call indxgc(il1,m4,ili,mi,mxi,lw)
-               if(err.gt.0) return
-               if(mi.eq.0) then
-c     .           arg4(1:m4,arg2)=[] 
-                  call indxg(il1,m4,ili,mi,mxi,lw,1)
-                  if(err.gt.0) return
-                  l3r=l4r
-                  n3=n4
-                  m3=m4
-                  mn3=m3*n3
-                  id3=id4
-c     .           call extraction
-                  goto 133
-               else
-                  call error(15)
-                  return
-               endif
-            endif
-         endif
-      elseif(m3.lt.0.or.m4.lt.0) then
-c     .  arg3=eye , arg4=eye
-         call error(14)
-         return
-      elseif(m1.eq.-1.and.m2.eq.-1) then
-c     .  arg4(:,:)=arg3
-         if(mn3.ne.mn4) then
-            if(mn3.eq.1) goto 127
-            call error(15)
-            return
-         endif
-c     .  reshape arg3 according to arg4
-         istk(ilrs)=10
-         istk(ilrs+1)=m4
-         istk(ilrs+2)=n4
-         istk(ilrs+3)=0
-         volr=istk(id3+mn3)-1
-         call icopy(mn3+volr,istk(id3),1,istk(ilrs+4),1)
-         lstk(top+1)=sadr(ilrs+5+mn3+volr)
-         goto 999
-      endif
-
- 127  call indxg(il1,m4,ili,mi,mxi,lw,1)
-      if(err.gt.0) return
-      call indxg(il2,n4,ilj,mj,mxj,lw,1)
-      if(err.gt.0) return
-      if(mi.ne.m3.or.mj.ne.n3) then
-         if(m3*n3.eq.1) then
-            if(mi.eq.0.or.mj.eq.0) then
-               istk(ilrs)=10
-               istk(ilrs+1)=m4
-               istk(ilrs+2)=n4
-               istk(ilrs+3)=0
-               volr=istk(id4+mn4)-1
-               call icopy(mn4+volr,istk(id4),1,istk(ilrs+4),1)
-               lstk(top+1)=sadr(ilrs+5+mn4+volr)
-               goto 999
-            endif
-         else
-c     .  sizes of arg1 or arg2 dont agree with arg3 sizes
-            call error(15)
-            return
-         endif
-         if(mi.eq.0.or.mj.eq.0) then
-            call error(15)
-            return
-         endif
-      endif
-      mr=max(m4,mxi)
-      nr=max(n4,mxj)
-c
-      mnr=mr*nr
-c     set result pointers
-      idr=iadr(lw)
-      lr=idr+mr*nr+1
-      lw=sadr(lr)
-      err=lw-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-      call mpinsp(istk(id4),m4,n4,istk(ili),mi,istk(ilj),mj,istk(id3)
-     $     ,m3,n3,istk(idr),mr,nr,err)
-      if(err.gt.0) then
-         call error(15)
-         return
-      endif
-      volr=istk(idr)
-c     set result coefficients
-      lw=sadr(lr+volr)
-      err=lw-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-c     
-      call impins(istk(l4r),istk(id4),m4,n4,istk(l3r),istk(id3),m3,n3
-     $     ,istk(lr),istk(idr),mr,nr)
-c     set output variable
-      ilrs=iadr(lstk(top))
-      istk(ilrs)=10
-      istk(ilrs+1)=mr
-      istk(ilrs+2)=nr
-      istk(ilrs+3)=0
-      call icopy(mnr+1+volr,istk(idr),1,istk(ilrs+4),1)
-      lstk(top+1)=sadr(ilrs+5+mnr+volr)
-      goto 999
-c
-c extraction
-c
-  130 continue
-      if(rhs.lt.2) then
-         call error(227)
-         return
-      endif
-      if(rhs.gt.2) goto 132
-c     arg2(arg1)
-c     get arg2
-      il2=iadr(lstk(top))
-      if(istk(il2).lt.0) il2=iadr(istk(il2+1))
-      m2=istk(il2+1)
-      n2=istk(il2+2)
-      mn2=m2*n2
-      id2=il2+4
-      l2r=id2+mn2+1
-c     get arg1
-      top=top-1
-      il1=iadr(lstk(top))
-      ilrs=il1
-      if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-      m1=istk(il1+1)
-      n1=istk(il1+2)
-
-      if(mn2.eq.0) then 
-c     .  arg2=[]
-         ilrs=iadr(lstk(top))
-         istk(ilrs)=1
-         istk(ilrs+1)=0
-         istk(ilrs+2)=0
-         istk(ilrs+3)=0
-         l1=sadr(ilrs+4)
-         lstk(top+1)=l1+1
-         goto 999
-      elseif(m2.lt.0) then
-c     .  arg2=eye
-         call error(14)
-         return
-      elseif(m1.lt.0) then
-c     .  arg2(:), just reshape to column vector
-         ilrs=iadr(lstk(top))
-         istk(ilrs)=10
-         istk(ilrs+1)=mn2
-         istk(ilrs+2)=1
-         istk(ilrs+3)=istk(il2+3)
-         volr=istk(id2+mn2)-1
-         call icopy(mn2+1+volr,istk(id2),1,istk(ilrs+4),1)
-         lstk(top+1)=sadr(ilrs+5+mn2+volr)
-         goto 999
-      endif
-c     check and convert indices variable
-      call indxg(il1,mn2,ili,mi,mx,lw,1)
-      if(err.gt.0) return
-      if(mx.gt.mn2) then
-         call error(21)
-         return
-      endif
- 131  if(mi.eq.0) then
-c     arg2([])
-         ilrs=iadr(lstk(top))
-         istk(ilrs)=1
-         istk(ilrs+1)=0
-         istk(ilrs+2)=0
-         istk(ilrs+3)=0
-         l1=sadr(ilrs+4)
-         lstk(top+1)=l1+1
-         goto 999
-      endif
-c     get memory for the result
-      idr=iadr(lw)
-      lr=idr+mi+1
-      lw=sadr(lr)
-      err=lw-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-c     set result pointers
-      if (m2 .gt. 1.or.m1.lt.0) then
-         call impext(istk(l2r),istk(id2),m2,n2,istk(ili),mi,1,1,istk(lr)
-     $     ,istk(idr),0,err)
-      else
-         call impext(istk(l2r),istk(id2),m2,n2,1,1,istk(ili),mi,istk(lr)
-     $     ,istk(idr),0,err)
-      endif
-      if(err.gt.0) then
-         call error(21)
-         return
-      endif
-
-c     set result coefficients 
-      volr=istk(idr+mi)-1
-      lw=sadr(lr+volr)
-      err=lw-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-      if (m2.eq.1.and.n2.eq.1.and.m1.gt.0) then
-         call impext(istk(l2r),istk(id2),m2,n2,istk(ili),mi,1,1,istk(lr)
-     $     ,istk(idr),1,err)
-         m = m1
-         n = min(n1,mi)
-      elseif (m2 .gt. 1.or.m1.lt.0) then
-         call impext(istk(l2r),istk(id2),m2,n2,istk(ili),mi,1,1,istk(lr)
-     $     ,istk(idr),1,err)
-         m = mi
-         n = 1
-      else
-         call impext(istk(l2r),istk(id2),m2,n2,1,1,istk(ili),mi,istk(lr)
-     $     ,istk(idr),1,err)
-         n = mi
-         m = 1
-      endif
-
-c     form resulting variable
-      ilrs=iadr(lstk(top))
-      istk(ilrs)=10
-      istk(ilrs+1)=m
-      istk(ilrs+2)=n
-      istk(ilrs+3)=0
-      volr=istk(idr+mi)-1
-      call icopy(mi+1+volr,istk(idr),1,istk(ilrs+4),1)
-      lstk(top+1)=sadr(ilrs+5+m*n+volr)
-      go to 999
- 132  continue
-c     arg3(arg1,arg2)
-      if(rhs.gt.3) then
-         call error(36)
-         return
-      endif
-c     get arg3
-      il3=iadr(lstk(top))
-      if(istk(il3).lt.0) il3=iadr(istk(il3+1))
-      m3=istk(il3+1)
-      n3=istk(il3+2)
-      mn3=m3*n3
-      id3=il3+4
-      l3r=id3+mn3+1
-c     get arg2
-      top=top-1
-      il2=iadr(lstk(top))
-      if(istk(il2).lt.0) il2=iadr(istk(il2+1))
-      m2=istk(il2+1)
-c     get arg1
-      top=top-1
-      il1=iadr(lstk(top))
-      ilrs=il1
-      if(istk(il1).lt.0) il1=iadr(istk(il1+1))
-      m1=istk(il1+1)
-      l1=sadr(il1+4)
-c
-      if(mn3.eq.0) then 
-c     .  arg3=[]
-         ilrs=iadr(lstk(top))
-         istk(ilrs)=1
-         istk(ilrs+1)=0
-         istk(ilrs+2)=0
-         istk(ilrs+3)=0
-         l1=sadr(ilrs+4)
-         lstk(top+1)=l1+1
-         goto 999
-      elseif(m3.lt.0) then
-c     .arg3=eye
-         call error(14)
-         return
-      endif
-c     check and convert indices variables
-      call indxg(il1,m3,ili,mi,mxi,lw,1)
-      if(err.gt.0) return
-      if(mxi.gt.m3) then
-         call error(21)
-         return
-      endif
-      call indxg(il2,n3,ilj,nj,mxj,lw,1)
-      if(err.gt.0) return
-      if(mxj.gt.n3) then
-         call error(21)
-         return
-      endif
-c
-c     perform extraction
- 133  mnr=mi*nj
-      if(mnr.eq.0) then 
-c     .  arg1=[] or arg2=[] 
-         ilrs=iadr(lstk(top))
-         istk(ilrs)=1
-         istk(ilrs+1)=0
-         istk(ilrs+2)=0
-         istk(ilrs+3)=0
-         lstk(top+1)=sadr(ilrs+4)+1
-         goto 999
-      endif
-      idr=iadr(lw)
-      lr=idr+mnr+1
-      lw=sadr(lr)
-      err=lw-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-c     set result pointers
-      call impext(istk(l3r),istk(id3),m3,n3,istk(ili),mi,istk(ilj),nj
-     $     ,istk(lr),istk(idr),0,err)
-      if(err.gt.0) then
-         call error(21)
-         return
-      endif
-c     set result coefficients 
-      volr=istk(idr+mnr)-1
-      lw=sadr(lr+volr)
-      err=lw-lstk(bot)
-      if(err.gt.0) then
-         call error(17)
-         return
-      endif
-      call impext(istk(l3r),istk(id3),m3,n3,istk(ili),mi,istk(ilj),nj
-     $     ,istk(lr),istk(idr),1,err)
-c
-      ilrs=iadr(lstk(top))
-      istk(ilrs)=10
-      istk(ilrs+1)=mi
-      istk(ilrs+2)=nj
-      istk(ilrs+3)=0
-      call icopy(mnr+1+volr,istk(idr),1,istk(ilrs+4),1)
-      lstk(top+1)=sadr(ilrs+5+mnr+volr)
-      goto 999
-
-c
-c     comparaisons
- 180  continue
-      itrue=1
-      if(op.eq.less+great) itrue=0
-c     comparaison des types
-      if(istk(il1).ne.istk(il2)) then
-         istk(il1)=4
-         istk(il1+1)=1
-         istk(il1+2)=1
-         istk(il1+3)=1-itrue
-         lstk(top+1)=sadr(il1+4)
-         return
-      endif
- 181  continue
-c     des dimensions
-      if(mn1.eq.1.and.mn2.gt.1) then
-         nn1=istk(il1+5)-1
-         l1r=iadr(lw)
-         err=sadr(l1r+nn1+2)-lstk(bot)
-         if(err.gt.0) then
-            call error(17)
-            return
-         endif
-         call icopy(nn1,istk(il1+6),1,istk(l1r),1)
-         id1=l1r+nn1
-         istk(id1)=1
-         istk(id1+1)=nn1+1
-         inc1=0
-         inc2=1
-         mn1=mn2
-         m1=m2
-         n1=n2
-         istk(il1+1)=m1
-         istk(il1+2)=n1
-      else if(mn2.eq.1.and.mn1.gt.1) then
-         nn2=istk(il2+5)-1
-         l2r=iadr(lw)
-         err=sadr(l2r+nn2+2)-lstk(bot)
-         if(err.gt.0) then
-            call error(17)
-            return
-         endif
-         call icopy(nn2,istk(il2+6),1,istk(l2r),1)
-         id2=l2r+nn2
-         istk(id2)=1
-         istk(id2+1)=nn2+1
-         inc1=1
-         inc2=0
-         mn2=mn1
-         m2=m1
-         n2=n1
-      else if(n1.ne.n2.or.m1.ne.m2) then
-         istk(il1)=4
-         istk(il1+1)=1
-         istk(il1+2)=1
-         istk(il1+3)=1-itrue
-         lstk(top+1)=sadr(il1+4)
-         return
-      else
-         inc1=1
-         inc2=1
-         l1=il1+5+mn1
-         l2=il2+5+mn2
-      endif
-c     des valeurs
-      i1=id1-inc1
-      i2=id2-inc2
-      l1r=l1r-1
-      l2r=l2r-1
-      do 185 i=0,mn1-1
-         i1=i1+inc1
-         i2=i2+inc2
-         if(istk(i1+1)-istk(i1).ne.istk(i2+1)-istk(i2) ) goto 184
-         nl=istk(i1+1)-istk(i1)-1
-         do 182 ii=0,nl
-            if(istk(l1r+istk(i1)+ii).ne.istk(l2r+istk(i2)+ii)) goto 184
- 182     continue
-         istk(il1+3+i)=itrue
-         goto 185
- 184     istk(il1+3+i)=1-itrue
- 185  continue
-      istk(il1)=4
-      istk(il1+1)=m1
-      istk(il1+2)=n1
-      lstk(top+1)=sadr(il1+3+mn1)
-      goto 999
-
-c
-
-  999 return
-      end
diff --git a/scilab/modules/string/sci_gateway/string_gateway.xml b/scilab/modules/string/sci_gateway/string_gateway.xml
deleted file mode 100644 (file)
index 17cc515..0000000
+++ /dev/null
@@ -1,42 +0,0 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>
-
-<!DOCTYPE GATEWAY SYSTEM "../../functions/xml/gateway.dtd">
-<GATEWAY name="string">
-<!-- =================== -->
-<!--
- Scilab
- Interface description. In this file, we define the list of the function which
- will be available into Scilab and the link to the "native" function.
-
- gatewayId is the position in the hashtable 'Interfaces' defined in the
- file SCI/modules/core/src/c/callinterf.h
-
- primitiveId is the position in the hashtable '<module>Table Tab[]' defined
- in the file modules/<module>/sci_gateway/c/gw_<module>.c
-
- primitiveName is the name of the Scilab function
-
- @author Allan CORNET
- @author Sylvestre LEDRU
- @date INRIA 2007
- ===================
- Don't touch if you do not know what you are doing
--->
-<!-- =================== -->
-
-<PRIMITIVE gatewayId="21" primitiveId="1" primitiveName="length" />
-<PRIMITIVE gatewayId="21" primitiveId="2" primitiveName="part" />
-<PRIMITIVE gatewayId="21" primitiveId="3" primitiveName="string" />
-<PRIMITIVE gatewayId="21" primitiveId="4" primitiveName="convstr" />
-<PRIMITIVE gatewayId="21" primitiveId="5" primitiveName="emptystr" />
-<PRIMITIVE gatewayId="21" primitiveId="6" primitiveName="str2code" />
-<PRIMITIVE gatewayId="21" primitiveId="7" primitiveName="code2str" />
-<PRIMITIVE gatewayId="21" primitiveId="8" primitiveName="strcat" />
-<PRIMITIVE gatewayId="21" primitiveId="9" primitiveName="strindex" />
-<PRIMITIVE gatewayId="21" primitiveId="10" primitiveName="strsubst" />
-<PRIMITIVE gatewayId="21" primitiveId="11" primitiveName="ascii" />
-<PRIMITIVE gatewayId="21" primitiveId="12" primitiveName="grep" />
-<PRIMITIVE gatewayId="21" primitiveId="13" primitiveName="tokens" />
-<PRIMITIVE gatewayId="21" primitiveId="14" primitiveName="strsplit" />
-<PRIMITIVE gatewayId="21" primitiveId="15" primitiveName="stripblanks" />
-</GATEWAY>
\ No newline at end of file
diff --git a/scilab/modules/string/src/c/InitializeString.c b/scilab/modules/string/src/c/InitializeString.c
deleted file mode 100644 (file)
index fcc3edb..0000000
+++ /dev/null
@@ -1,13 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2007 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include "InitializeString.h"
-#include "setScilabCharactersCodes.h"
-/*--------------------------------------------------------------------------*/ 
-BOOL InitializeString(void)
-{
-       setScilabCharactersCodes();
-       return TRUE;
-}
-/*--------------------------------------------------------------------------*/ 
diff --git a/scilab/modules/string/src/c/LibScilab_Import.def b/scilab/modules/string/src/c/LibScilab_Import.def
deleted file mode 100644 (file)
index 2db297a..0000000
+++ /dev/null
@@ -1,22 +0,0 @@
-       LIBRARY    Libscilab.dll
-
-
-EXPORTS
-;core
-cha1_
-com_
-putlhsvar_
-overload_
-vstk_
-createvarfromptr_
-createvar_
-stack_
-getrhsvar_
-vartype_
-checklhs_
-checkrhs_
-intersci_
-check_length
-callFunctionFromGateway
-freeArrayOfString
-;
diff --git a/scilab/modules/string/src/c/cvstr.c b/scilab/modules/string/src/c/cvstr.c
deleted file mode 100644 (file)
index 8e3f138..0000000
+++ /dev/null
@@ -1,58 +0,0 @@
-/*--------------------------------------------------------------------------*/
-#include "cvstr.h"
-#include "stack-c.h"
-#include "core_math.h"
-#include "getfastcode.h"
-/*--------------------------------------------------------------------------*/
-/* Table of constant values */
-static integer cx1 = 1;
-static integer c_n1 = -1;
-/*--------------------------------------------------------------------------*/
-int C2F(cvstr)(integer * n,integer * line,char * str,integer * job,unsigned long str_len)
-{
-  if (*job == 0) C2F(asciitocode)(n, line, str, &cx1, str_len);
-  else C2F(codetoascii)(n, line, str, str_len);
-  return 0;
-}
-/*--------------------------------------------------------------------------*/
-int C2F(cvstr1)(integer *n,integer * line,char * str,integer * job,    unsigned long  str_len)
-{
-  if (*job == 0) C2F(asciitocode)(n, line, str, &c_n1, str_len);
-  else C2F(codetoascii)(n, line, str, str_len);
-  return 0;
-}
-/*--------------------------------------------------------------------------*/
-int C2F(codetoascii)(integer *n,integer * line,char * str, unsigned long str_len)
-{
-  int j = 0;
-
-  /* conversion code ->ascii */
-  for (j = 0; j < *n; ++j)
-  {
-       str[j] = convertScilabCodeToAsciiCode(line[j]);
-  }
-  return 0;
-}
-/*--------------------------------------------------------------------------*/
-int C2F(asciitocode)(integer * n,integer * line,char * str,integer * flagx,unsigned long  str_len)
-{
-       integer j = 0;
-       if (*flagx == 1) 
-       {
-               for (j = 0; j < *n ; ++j) 
-               {
-                       unsigned char current_char = str[j];
-                       line[j] = convertAsciiCodeToScilabCode(current_char);
-               }
-       } 
-       else 
-       {
-               for (j = *n -1 ; j >= 0; --j) 
-               {
-                       unsigned char current_char = str[j];
-                       line[j] = convertAsciiCodeToScilabCode(current_char);
-               }
-       }
-       return 0;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/src/c/getfastcode.c b/scilab/modules/string/src/c/getfastcode.c
deleted file mode 100644 (file)
index a2c4087..0000000
+++ /dev/null
@@ -1,71 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2007 */
-/* ENPC */
-/*--------------------------------------------------------------------------*/
-#include "getfastcode.h"
-#include "stack-c.h"
-#include "stack-def.h"
-#include "core_math.h"
-/*--------------------------------------------------------------------------*/
-/**
-* Scilab not uses ASCII code in internal kernel
-* TO DO : Remove this with a new kernel
-* To understand Scilab coding style :
-* scilab code --> ascii code
-*           0 --> 0
-*           9 --> 9
-*          10 --> a
-*          35 --> z
-*         -10 --> A
-*         -35 --> Z
-*/
-#define NUMBER_INTERNAL_CHARACTERS 128
-static int INTERNAL_CHARACTERS_TABLE_CODES_FOR_SCILAB[NUMBER_INTERNAL_CHARACTERS] =  
-{ 100,101,102,103,104,105,106,107,108,-40,
-  110,111,112,113,114,115,116,117,118,119,
-  120,121,122,123,124,125,126,127,128,129,
-  130,131, 40, 38,-53, 37, 39, 56, 58, 53,
-   41, 42, 47, 45, 52, 46, 51, 48,  0,  1,
-    2,  3,  4,  5,  6,  7,  8,  9, 44, 43,
-   59, 50, 60,-38,-61,-10,-11,-12,-13,-14,
-  -15,-16,-17,-18,-19,-20,-21,-22,-23,-24,
-  -25,-26,-27,-28,-29,-30,-31,-32,-33,-34,
-  -35, 54, 49, 55, 62, 36,-59, 10, 11, 12,
-   13, 14, 15, 16, 17, 18, 19, 20, 21, 22,
-   23, 24, 25, 26, 27, 28, 29, 30, 31, 32,
-   33, 34, 35,-54, 57,-55, 61,227 };
-/*--------------------------------------------------------------------------*/
-/* Copyright INRIA / ENPC
- * Modified by Bruno Pincon for optimisation purpose */
-integer C2F(getfastcode)(unsigned char *c, unsigned long c_len) 
-{
-       return convertAsciiCodeToScilabCode(c[0]);
-} 
-/*--------------------------------------------------------------------------*/
-int convertAsciiCodeToScilabCode(unsigned char scilab_char)
-{
-       int k = (int)scilab_char ;
-       int val = 0;
-       if (k < NUMBER_INTERNAL_CHARACTERS) val = INTERNAL_CHARACTERS_TABLE_CODES_FOR_SCILAB[k];
-       else val = k + 100;
-       return val;
-}
-/*--------------------------------------------------------------------------*/
-char convertScilabCodeToAsciiCode(int scilab_code)
-{
-       #define eol 99
-       #define EXCLAMATION_CHAR '!'
-       char ascii_code = 0;
-
-       if (scilab_code == eol) ascii_code = EXCLAMATION_CHAR;
-       else if (Abs(scilab_code) > csiz) 
-       {
-               if (scilab_code > eol) ascii_code = (char)(scilab_code - (eol + 1));
-               else ascii_code = EXCLAMATION_CHAR;
-       } 
-       else if (scilab_code < 0) ascii_code = C2F(cha1).alfb[Abs(scilab_code)];
-       else ascii_code = C2F(cha1).alfa[scilab_code];
-
-       return ascii_code;
-}
-/*--------------------------------------------------------------------------*/
diff --git a/scilab/modules/string/src/c/men_Sutils.c b/scilab/modules/string/src/c/men_Sutils.c
deleted file mode 100644 (file)
index 0b0c2be..0000000
+++ /dev/null
@@ -1,230 +0,0 @@
-/* Copyright INRIA/ENPC */
-#include <string.h>
-#include <stdlib.h>
-#include "machine.h"
-#include "men_Sutils.h"
-
-#include "MALLOC.h" /* MALLOC */
-#include "cvstr.h"
-
-
-
-/********************************************************
- *  generic functions for strings 
- ********************************************************/
-
-void strwidth(char *string, int *max_width, int *height)
-{
-  int width=0,i;
-  *height=0;
-  *max_width=1;
-  for (i = 0 ; i < (int)strlen(string);i++)
-    {
-      width++;
-      if ( string[i]=='\n' || i == (int)strlen(string)-1)
-       {
-         *max_width= (*max_width > width ) ?  *max_width : width;
-         width=0;
-         *height = *height+1;
-       }
-    }
-}
-
-
-/********************************************************
- *  Converts a Scilab String coded as integer array [ a crazy old feature]
- *  into a C string [ the C string is allocated with maloc ]
- *  this routine calls a Fortran Function.
- *  WARNING : we MUST add a last argument giving the size of p 
- *  when calling the cvstr Fortran routine [ see Fortran compiler 
- *   documentation ]
- ********************************************************/
-
-
-void ScilabStr2C(int *n, int *Scistring, char **strh, int *ierr)
-{
-  int job=1;
-  *strh =(char *) MALLOC( ( *n + 1 ) * sizeof(char) );
-  if ((*strh) == NULL)    {*ierr=1;     return;}
-  C2F(cvstr)(n,Scistring,*strh,&job,(long int)*n);
-  (*strh)[*n]='\0';
-}
-
-/********************************************************
- * Converts a Scilab array of 
- * String coded as integer array [ a crazy old feature]
- * into a C array of strings [ NULL terminated ]
- * as 
- *   char*  items[] = {
- *      "first list entry",
- *      "second list entry",
- *      NULL
- *      };
- *   
- ********************************************************/
-
-void ScilabMStr2CM(int *Scistring, int *nstring, int *ptrstrings, char ***strh, int *ierr)
-{
-  char **strings,*p=NULL;
-  int li,ni,*SciS,i;
-  strings=(char **) MALLOC( ((*nstring)+1)*sizeof(char *));
-  if (strings==NULL) {*ierr=1; return;}
-  li=1;
-  SciS= Scistring;
-  for ( i=1 ; i<*nstring+1 ; i++) 
-    {
-      ni=ptrstrings[i]-li;
-      li=ptrstrings[i];
-      /* p is allocated here */
-      ScilabStr2C(&ni,SciS,&p,ierr);
-      if ( *ierr == 1 )
-      {
-        int j ;
-        /* free what have just been allocated */
-        for ( j = 0 ; j < i-1 ; j++ )
-        {
-          FREE( strings[j] ) ;
-        }
-        FREE( strings ) ;
-        return;
-      }
-      strings[i-1]=p;
-      SciS += ni;
-    }
-  strings[*nstring]=NULL;
-  *strh=strings;
-}
-
-/********************************************************
- * Converts a Scilab array of 
- * String coded as integer array [ a crazy old feature]
- * into a C  string where all the Scilab strings are
- * separated by '\n' or '\n'
- * desc,nd,ptrdesc : scilab string info 
- * strh : the C coded string 
- ********************************************************/
-
-
-void ScilabMStr2C(int *desc, int *nd, int *ptrdesc, char **strh, int *ierr)
-{
-  int ln,li=1,di=0,*SciS,job=1,i,ni;
-  char *description,*p;
-#ifdef _MSC_VER 
-  ln=ptrdesc[*nd]+2*(*nd)+1;
-#else 
-  ln=ptrdesc[*nd]+*nd+1;
-#endif 
-  description=(char *) MALLOC( ln*sizeof(char));
-  if (description==NULL) {*ierr=1; return;}
-  SciS= desc;
-  for (i=1 ; i<*nd+1 ; i++) 
-    {
-      p= &(description[di]);
-      ni=ptrdesc[i]-li;
-      C2F(cvstr)(&ni,SciS,p,&job,(long int)0);
-      SciS += ni;
-#ifdef _MSC_VER 
-      p[ni]= '\r';
-      ni=ni+1;
-#endif 
-      di += ni+1;
-      p[ni]= '\n';
-      li=ptrdesc[i];
-    }
-  description[ln-2]='\0';
-  *strh=description;
-}
-
-
-/********************************************************
- * Converts a C string containing\n or \n 
- * into a Scilab matrix of String 
- ********************************************************/
-
-void ScilabC2MStr2(int *res, int *nr, int *ptrres, char *str, int *ierr, int maxchars, int maxlines)
-{
-  int job=0,li=0,n,i,ni;
-  *nr=0;
-  ptrres[0]=1;
-  n=(int)strlen(str);
-  if (n <= maxchars) 
-    {
-      str[n]='\n';
-      for (i=0;i < n+1;i++)
-       {
-         if(str[i]=='\n') 
-           {
-             int ni1;
-             ni1=ni=i-li;
-#ifdef _MSC_VER 
-             if (i > 0 && str[i-1]=='\r' ) ni1=ni-1;
-#endif 
-             ptrres[*nr+1]=ptrres[*nr]+ni1;
-             C2F(cvstr)(&ni1,res,&str[li],&job,(long int)0);
-             res+=ni1;
-             li += ni+1;
-             ni= -1;
-             *nr += 1;
-             if (*nr>maxlines) { *ierr=3; return;}
-           }
-       }
-    }
-  else  *ierr=2;
-}
-
-
-
-/****************************************
- * ScilabCM2MStr 
- * back convertion from a C 
- * array of string pointers to a Scilab 
- * description 
- * nv is the number of strings 
- * the result is stored in res and ptrres
- * Warning : res and ptrres must have been 
- * allocated in the scilab interface 
- * ( see : in xawelm.f  the xmdial example )
- * 
- * Squash \r in the given string (DFK) 
- * Done in place. 
- ********************************************/
-
-#ifdef _MSC_VER 
-void squash_r(char *s)
-{
-  register char *r = s;                /* reading point */
-  register char *w = s;                /* writing point */
-  for (w = r = s; *r != '\0'; r++) {
-    if ( *r != '\r' )  *w++ = *r;
-  }
-  *w = '\0';                           
-}
-#endif /* _MSC_VER */
-
-
-void ScilabCM2MStr(char **str, int nv, int *res, int *ptrres, int maxchars, int *ierr)
-{
-  int job=0,nr=0,i,ni,ntot=0;
-  ptrres[0]=1;
-  for (i= 0 ; i < nv ;i++) 
-    {
-#ifdef _MSC_VER 
-      /** cvstr changes\n to ! : we suppress \r in str **/
-      squash_r(str[i]);
-#endif 
-      ni=(int)strlen(str[i]);
-      ntot += ni;
-      if ( ntot > maxchars ) 
-       {
-         *ierr=2;
-         return;
-       }
-      ptrres[nr+1]=ptrres[nr]+ni;
-      nr++;
-      C2F(cvstr)(&ni,res,str[i],&job,(long int) 0);
-      res +=ni;
-    }
-}
-
-
-
diff --git a/scilab/modules/string/src/c/setScilabCharactersCodes.c b/scilab/modules/string/src/c/setScilabCharactersCodes.c
deleted file mode 100644 (file)
index 012433e..0000000
+++ /dev/null
@@ -1,34 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2007 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#include "setScilabCharactersCodes.h"
-#include "stack-def.h"
-/*--------------------------------------------------------------------------*/ 
-void setScilabCharactersCodes(void)
-{
-       static char alpha[csiz+1] ={ 
-               "0" "1" "2" "3" "4" "5" "6" "7" "8" "9"
-               "a" "b" "c" "d" "e" "f" "g" "h" "i" "j"
-               "k" "l" "m" "n" "o" "p" "q" "r" "s" "t"
-               "u" "v" "w" "x" "y" "z" "_" "#" "!" "$"
-               " " "(" ")" ";" ":" "+" "-" "*" "/" "\\"
-               "=" "." "," "'" "[" "]" "%" "|" "&" "<"
-               ">" "~" "^"};
-       static char alphb[csiz+1] ={ 
-               "0" "1" "2" "3" "4" "5" "6" "7" "8" "9"
-               "A" "B" "C" "D" "E" "F" "G" "H" "I" "J"
-               "K" "L" "M" "N" "O" "P" "Q" "R" "S" "T"
-               "U" "V" "W"     "X" "Y" "Z" "0" "0" "?" "0"
-               "\t" "0" "0" "0" "0" "0" "0" "0" "0" "$"
-               "0" "0" "0" "\"" "{" "}" "0" "0" "0" "`"
-               "0" "@" "0"};
-
-       int i = 0;
-       for (i = 0; i < csiz; i++) 
-       {
-               *(unsigned char *)&C2F(cha1).alfa[i] = *(unsigned char *)&alpha[i];
-               *(unsigned char *)&C2F(cha1).alfb[i] = *(unsigned char *)&alphb[i];
-       }
-}
-/*--------------------------------------------------------------------------*/ 
diff --git a/scilab/modules/string/src/c/setScilabCharactersCodes.h b/scilab/modules/string/src/c/setScilabCharactersCodes.h
deleted file mode 100644 (file)
index 7719e2b..0000000
+++ /dev/null
@@ -1,49 +0,0 @@
-/*--------------------------------------------------------------------------*/
-/* INRIA 2007 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/ 
-#ifndef __SETSCILABCHARACTERSCODES_H__
-#define __SETSCILABCHARACTERSCODES_H__
-
-#include "BOOL.h" /* BOOL */
-
-/** ASCII printable characters
-*  http://en.wikipedia.org/wiki/ASCII
-*/
-
-/**
-* Scilab codes for known characters
-* In Scilab, chars are first converted as integers (positives and some
-* negatives) and we have :
-*
-*        code | 0  1 .... 9 | 10  11 ...  35 | 36  37  38  39 | 40
-*        -----+-------------+----------------+----------------+------
-*        char | 0  1 .... 9 |  a   b ...   z |  _   #   !   $ | blank
-*        ============================================================
-*        char |             |  A   B ...   Z |          ?     | tab
-*        -------------------+----------------+----------------+------
-*        code |             |-10 -11 ... -35 |         -38    ! -40
-*
-*       In fact (for the mapping code -> char), code = -1 
-*       to -9 correspond also to chars 1 to 9 and code = -36,-37,-39 
-*       to the char 0
-*
-*       So if c is a scilab coded char then :
-*
-*           abs(c) <= 9  => c is a digit
-*           abs(c) < 40  => c is an alphanum Scilab char (which
-*                           comprise _ but also # ! $ ?). Moreover
-*                           Scilab names may begin with % 
-*           abs(c) == 40 => c is a blank "like" (blank or tab) char  
-*      The upper-case characters and some equivalents are coded by the lower-case code with a sign
-*      change.
-*   ref : Guide for Developers (Scilab Internals)
-*/
-
-/**
-* Set Scilab Characters Codes in C2F(cha1)
-*/
-void setScilabCharactersCodes(void);
-
-#endif /* __SETSCILABCHARACTERSCODES_H__ */
-/*--------------------------------------------------------------------------*/ 
diff --git a/scilab/modules/string/src/c/strcat-c.c b/scilab/modules/string/src/c/strcat-c.c
deleted file mode 100644 (file)
index ed0b194..0000000
+++ /dev/null
@@ -1,198 +0,0 @@
-#include <ctype.h>
-#include <string.h>
-#include <stdio.h>
-
-#include "machine.h"
-
-#include "MALLOC.h" /* MALLOC */
-
-#include "stack-c.h"
-#include "Scierror.h"
-
-
-/****************************************************
- * y= strcat(str1,sep,[op])
- * op = 'c' or 'r'
- ******************************************************/
-int C2F(intstrcat) (char* fname);
-/****************************************************/
-int C2F(intstrcat) (char* fname)
-{
-  char typ = '*';
-  char **Str,**Str1;
-  static char def_sep[] ="";
-  char *sep = def_sep;
-  static int un=1;
-  int m1,n1,mn,i,j,k,m2,n2,l2,m3,n3,l3,nchars=0;
-  Rhs = Max(0, Rhs);
-
-  CheckRhs(1,3);
-  CheckLhs(1,1);
-
-  switch ( VarType(1)) {
-  case 10 :
-    GetRhsVar(1,MATRIX_OF_STRING_DATATYPE,&m1,&n1,&Str);
-    mn = m1*n1;
-    if (Rhs >= 2) {
-      GetRhsVar(2,STRING_DATATYPE,&m2,&n2,&l2);
-      sep = cstk(l2);
-    }
-    if (Rhs >= 3) {
-      GetRhsVar(3,STRING_DATATYPE,&m3,&n3,&l3);
-      if ( m3*n3 != 0)
-       typ = cstk(l3)[0];
-      if (typ != 'c' && typ != 'r' ) {
-       Scierror(999,"%s: third argument should be 'c' or 'r'\n",fname);
-       return 0;
-      }
-    }
-    switch ( typ )
-       {
-    case '*' :
-      /* just return one string */
-      for ( i = 0 ; i < mn ; i++ ) nchars += (int)strlen(Str[i]);
-      nchars += (mn-1)*(int)strlen(sep);
-      CreateVar(Rhs+1,STRING_DATATYPE,&un,&nchars,&l3);
-      k=0;
-      for ( i = 0 ; i < mn ; i++ )
-         {
-                 for ( j =0 ; j < (int)strlen(Str[i]) ; j++ ) *cstk(l3+ k++) = Str[i][j];
-                 if ( i != mn-1) for ( j =0 ; j < (int)strlen(sep) ; j++ ) *cstk(l3+ k++) = sep[j];
-         }
-         if (Str)
-         {
-                 for ( i = 0 ; i < mn ; i++ )
-                 {
-                       if (Str[i])
-                       {
-                               FREE(Str[i]);
-                               Str[i]=NULL;
-                       }
-                 }
-                 FREE(Str);
-                 Str=NULL;
-         }
-      LhsVar(1) = Rhs+1  ;
-      break;
-    case 'c':
-      /* return a column matrix */
-      if ( (Str1 = MALLOC((m1+1)*sizeof(char *)))==NULL)
-       {
-         Scierror(999,"%s: Out of memory\n",fname);
-         return 0;
-       }
-      Str1[m1]=NULL;
-      for (i= 0 ; i < m1 ; i++) {
-       /* length of row i */
-       nchars = 0;
-       for ( j = 0 ; j < n1 ; j++ ) nchars += (int)strlen(Str[i+ m1*j]);
-       nchars += (n1-1)*(int)strlen(sep);
-       if ( (Str1[i]=MALLOC((nchars+1)*sizeof(char)))==NULL)
-         {
-           Scierror(999,"%s: Out of memory\n",fname);
-           return 0;
-         }
-       /* fill the string */
-       strcpy(Str1[i],Str[i]);
-       for ( j = 1 ; j < n1 ; j++ )
-       {
-         strcat(Str1[i],sep);
-         strcat(Str1[i],Str[i+ m1*j]);
-       }
-      }
-      CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &m1, &un, Str1);
-         if (Str)
-         {
-                 for ( i = 0 ; i < mn ; i++ )
-                 {
-                         if (Str[i])
-                         {
-                                 FREE(Str[i]);
-                                 Str[i]=NULL;
-                         }
-                 }
-                 FREE(Str);
-                 Str=NULL;
-         }
-      LhsVar(1) = Rhs+1  ;
-         if (Str1)
-         {
-                 int i2=0;
-                 for (i2=0;i2<m1+1;i2++)
-                 {
-                         if (Str1[i2])
-                         {
-                                 FREE(Str1[i2]);
-                                 Str1[i2]=NULL;
-                         }
-                 }
-                 FREE(Str1);
-                 Str1=NULL;
-         }
-      break;
-    case 'r':
-      /* return a row matrix */
-      if ( (Str1 = MALLOC((n1+1)*sizeof(char *)))==NULL)
-       {
-         Scierror(999,"%s: Out of memory\n",fname);
-         return 0;
-       }
-      Str1[n1]=NULL;
-      for (j= 0 ; j < n1 ; j++) {
-       /* length of col j */
-       nchars = 0;
-       for ( i = 0 ; i < m1 ; i++ )
-         nchars += (int)strlen(Str[i+ m1*j]);
-       nchars += (m1-1)*(int)strlen(sep);
-       if ( (Str1[j]=MALLOC((nchars+1)*sizeof(char)))==NULL)
-         {
-           Scierror(999,"%s: Out of memory\n",fname);
-           return 0;
-         }
-       /* fill the string */
-       strcpy(Str1[j],Str[j*m1]);
-       for ( i = 1 ; i < m1 ; i++ ) {
-         strcat(Str1[j],sep);
-         strcat(Str1[j],Str[i+ m1*j]);
-       }
-      }
-      CreateVarFromPtr(Rhs+1,MATRIX_OF_STRING_DATATYPE, &un, &n1, Str1);
-         if (Str)
-         {
-                 for ( i = 0 ; i < mn ; i++ )
-                 {
-                         if (Str[i])
-                         {
-                                 FREE(Str[i]);
-                                 Str[i]=NULL;
-                         }
-                 }
-                 FREE(Str);
-                 Str=NULL;
-         }
-         if (Str1)
-         {
-                 int i2=0;
-                 for (i2=0;i2<n1+1;i2++)
-                 {
-                         if (Str1[i2])
-                         {
-                                 FREE(Str1[i2]);
-                                 Str1[i2]=NULL;
-                         }
-                 }
-                 FREE(Str1);
-                 Str1=NULL;
-         }
-      LhsVar(1) = Rhs+1  ;
-      break;
-    }
-    break;
-  default :
-    OverLoad(1);
-    break;
-  }
-
-  C2F(putlhsvar)();
-       return 0;
-}
diff --git a/scilab/modules/string/src/c/string.vcproj b/scilab/modules/string/src/c/string.vcproj
deleted file mode 100644 (file)
index c74c4a5..0000000
+++ /dev/null
@@ -1,354 +0,0 @@
-<?xml version="1.0" encoding="Windows-1252"?>
-<VisualStudioProject
-       ProjectType="Visual C++"
-       Version="8.00"
-       Name="string"
-       ProjectGUID="{8D45767A-9B03-4905-97F6-D2F3F79141EA}"
-       RootNamespace="string"
-       Keyword="Win32Proj"
-       >
-       <Platforms>
-               <Platform
-                       Name="Win32"
-               />
-       &