+++ /dev/null
-##########
-### 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
+++ /dev/null
-# 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:
+++ /dev/null
-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);
+++ /dev/null
-changelog module
\ No newline at end of file
+++ /dev/null
-// ====================================================================
-// 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);
-// ====================================================================
+++ /dev/null
-// ====================================================================
-// string module initialisation file
-// Copyright INRIA 2006
-// ====================================================================
-//Load functions librarie
-load('SCI/modules/string/macros/lib');
-// ====================================================================
-//add help chapter
-add_module_help_chapter('string');
-// ====================================================================
+++ /dev/null
-// ====================================================================
-// 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;
-// ====================================================================
+++ /dev/null
-<?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>
+++ /dev/null
-<?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>
+++ /dev/null
-<?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>
+++ /dev/null
-<?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, ["flag"]) </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>"flag" </PARAM_NAME>
- <PARAM_DESCRIPTION>
- <SP>: string (<VERB>"u"</VERB> for upper or <VERB>"l"</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>"l"</VERB> ;default value) or
- upper case (for <VERB>"u"</VERB>).</P>
- </DESCRIPTION>
- <EXAMPLE>
-<![CDATA[
-A=['this','is';'my','matrix'];
-convstr(A,'u')
- ]]>
- </EXAMPLE>
-</MAN>
+++ /dev/null
-<?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>
+++ /dev/null
-<?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>
+++ /dev/null
-<?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>
+++ /dev/null
-<?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>
+++ /dev/null
-<?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 >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>"s[v(1)]...s[v(n)]"</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>
+++ /dev/null
-<?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>
+++ /dev/null
-<?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>
+++ /dev/null
-<?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>""</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>"a"+"b"</VERB> is the same as <VERB>strcat(["a","b"])</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>
+++ /dev/null
-<?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>
+++ /dev/null
-<?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>"string"</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>
+++ /dev/null
-<?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>"string"</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>
+++ /dev/null
-<?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>
+++ /dev/null
-<?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>
+++ /dev/null
-<?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>
+++ /dev/null
-<?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 [" ",<Tab>]
- where <Tab> 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>
+++ /dev/null
-<?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 [" ",<Tab>]
- where <Tab> 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>
+++ /dev/null
-<?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>
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* INRIA 2007 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/
-#ifndef __INITIALIZESTRING_H__
-#define __INITIALIZESTRING_H__
-
-#include "BOOL.h"
-
-BOOL InitializeString(void);
-
-#endif /* __INITIALIZESTRING_H__ */
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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__ */
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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__ */
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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__ */
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-#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 */
+++ /dev/null
-/*-----------------------------------------------------------------------*/\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
+++ /dev/null
-licence file
-
-INRIA 2006
\ No newline at end of file
+++ /dev/null
-# 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 ""
-
+++ /dev/null
-//==========================================================================
-// 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
+++ /dev/null
-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
+++ /dev/null
-//=============================================
-// 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
-//=============================================
-
-
-
+++ /dev/null
-@..\..\..\bin\scilex -nwni -ns -e exec('buildmacros.sce');quit;
\ No newline at end of file
+++ /dev/null
-//------------------------------------
-// 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);
-//------------------------------------
+++ /dev/null
-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
+++ /dev/null
-@del *.bin 2>NUL
-@del lib 2>NUL
-@del names 2>NUL
\ No newline at end of file
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
-
-
+++ /dev/null
-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
-
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
-
+++ /dev/null
-readme.txt about module
\ No newline at end of file
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*------------------------------------------------------------------------*/
-/* 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;
- }
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-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 =========================================
-
+++ /dev/null
-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
+++ /dev/null
-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 =========================================
+++ /dev/null
-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 =========================================
+++ /dev/null
-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 =========================================
-
+++ /dev/null
-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 =========================================
+++ /dev/null
-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 =========================================
+++ /dev/null
-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 =========================================
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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
+++ /dev/null
-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 =========================================
+++ /dev/null
-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 =========================================
+++ /dev/null
-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 =========================================
+++ /dev/null
-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
+++ /dev/null
- 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
+++ /dev/null
-<?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
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* INRIA 2007 */
-/* Allan CORNET */
-/*--------------------------------------------------------------------------*/
-#include "InitializeString.h"
-#include "setScilabCharactersCodes.h"
-/*--------------------------------------------------------------------------*/
-BOOL InitializeString(void)
-{
- setScilabCharactersCodes();
- return TRUE;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
- LIBRARY Libscilab.dll
-
-
-EXPORTS
-;core
-cha1_
-com_
-putlhsvar_
-overload_
-vstk_
-createvarfromptr_
-createvar_
-stack_
-getrhsvar_
-vartype_
-checklhs_
-checkrhs_
-intersci_
-check_length
-callFunctionFromGateway
-freeArrayOfString
-;
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-#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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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;
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/* 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;
- }
-}
-
-
-
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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];
- }
-}
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-/*--------------------------------------------------------------------------*/
-/* 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__ */
-/*--------------------------------------------------------------------------*/
+++ /dev/null
-#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;
-}
+++ /dev/null
-<?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"
- />
- &