* PATH_MAX separated to a dedicated file
Sylvestre Ledru [Sun, 4 Nov 2007 18:51:05 +0000 (18:51 +0000)]
* localization.h added where needed (and removed from machine.h)
* macros Max/Min/Abs are defined in core_math.h ... then, removed where needed
* wrong output in the configure

217 files changed:
scilab/Makefile.in
scilab/bin/scilab
scilab/configure
scilab/configure.ac
scilab/modules/action_binding/src/c/dynamic_menus.c
scilab/modules/arnoldi/sci_gateway/c/sci_dnaupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_dneupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_dsaupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_dseupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_znaupd.c
scilab/modules/arnoldi/sci_gateway/c/sci_zneupd.c
scilab/modules/cacsd/sci_gateway/c/sci_contr.c
scilab/modules/cacsd/sci_gateway/c/sci_tzer.c
scilab/modules/completion/sci_gateway/c/sci_completion.c
scilab/modules/completion/src/nocompletion/nocompletion.c
scilab/modules/core/Makefile.am
scilab/modules/core/Makefile.in
scilab/modules/core/includes/machine.h.in
scilab/modules/core/sci_gateway/c/sci_chdir.c
scilab/modules/core/sci_gateway/c/sci_clearfun.c
scilab/modules/core/sci_gateway/c/sci_getcwd.c
scilab/modules/core/sci_gateway/c/sci_getmd5.c
scilab/modules/core/sci_gateway/c/sci_getmodules.c
scilab/modules/core/sci_gateway/c/sci_getvariablesonstack.c
scilab/modules/core/sci_gateway/c/sci_getversion.c
scilab/modules/core/sci_gateway/c/sci_gstacksize.c
scilab/modules/core/sci_gateway/c/sci_libraryinfo.c
scilab/modules/core/sci_gateway/c/sci_newfun.c
scilab/modules/core/sci_gateway/c/sci_stacksize.c
scilab/modules/core/sci_gateway/c/sci_ulink.c
scilab/modules/core/sci_gateway/c/sci_warning.c
scilab/modules/core/sci_gateway/c/sci_what.c
scilab/modules/core/sci_gateway/c/sci_where.c
scilab/modules/core/sci_gateway/c/sci_who.c
scilab/modules/core/sci_gateway/c/sci_with_module.c
scilab/modules/core/src/c/InitializeCore.c
scilab/modules/core/src/c/LoadFunctionsTab.c
scilab/modules/core/src/c/SendScilabJobs.c
scilab/modules/core/src/c/addinter.c
scilab/modules/core/src/c/banier.c
scilab/modules/core/src/c/callinterf.c
scilab/modules/core/src/c/errmsg.c
scilab/modules/core/src/c/getmodules.c
scilab/modules/core/src/c/inisci-c.c
scilab/modules/core/src/c/intmacr2tree.c
scilab/modules/core/src/c/link.c
scilab/modules/core/src/c/link_SYSV.c
scilab/modules/core/src/c/link_W95.c
scilab/modules/core/src/c/loadversion.c
scilab/modules/core/src/c/parse.c
scilab/modules/core/src/c/prompt.c
scilab/modules/core/src/c/returnPropertyList.c
scilab/modules/core/src/c/run.c
scilab/modules/core/src/c/scicurdir.c
scilab/modules/core/src/c/scimem.c
scilab/modules/core/src/c/stack1.c
scilab/modules/core/src/c/stack2.c
scilab/modules/core/src/c/stack3.c
scilab/modules/core/src/c/version.c
scilab/modules/core/src/fortran/error.f
scilab/modules/data_structures/src/c/hmops.c
scilab/modules/fftw/src/nofftw/nofftw.c
scilab/modules/fileio/sci_gateway/c/sci_createdir.c
scilab/modules/fileio/sci_gateway/c/sci_deletefile.c
scilab/modules/fileio/sci_gateway/c/sci_fileext.c
scilab/modules/fileio/sci_gateway/c/sci_fileio.c
scilab/modules/fileio/sci_gateway/c/sci_findfiles.c
scilab/modules/fileio/sci_gateway/c/sci_fprintfMat.c
scilab/modules/fileio/sci_gateway/c/sci_fscanfMat.c
scilab/modules/fileio/sci_gateway/c/sci_fullpath.c
scilab/modules/fileio/sci_gateway/c/sci_getlongpathname.c
scilab/modules/fileio/sci_gateway/c/sci_getshortpathname.c
scilab/modules/fileio/sci_gateway/c/sci_isdir.c
scilab/modules/fileio/sci_gateway/c/sci_maxfiles.c
scilab/modules/fileio/sci_gateway/c/sci_mfprintf.c
scilab/modules/fileio/sci_gateway/c/sci_mfscanf.c
scilab/modules/fileio/sci_gateway/c/sci_mprintf.c
scilab/modules/fileio/sci_gateway/c/sci_mscanf.c
scilab/modules/fileio/sci_gateway/c/sci_msprintf.c
scilab/modules/fileio/sci_gateway/c/sci_msscanf.c
scilab/modules/fileio/sci_gateway/c/sci_removedir.c
scilab/modules/fileio/src/c/do_xxprintf.c
scilab/modules/fileio/src/c/do_xxscanf.c
scilab/modules/fileio/src/c/fileio.c
scilab/modules/fileio/src/c/mclose.c
scilab/modules/fileio/src/c/mget.c
scilab/modules/fileio/src/c/mgetstr.c
scilab/modules/fileio/src/c/mopen.c
scilab/modules/fileio/src/c/mput.c
scilab/modules/fileio/src/c/mputstr.c
scilab/modules/fileio/src/c/mseek.c
scilab/modules/fileio/src/c/mtell.c
scilab/modules/history_manager/sci_gateway/c/sci_addhistory.c
scilab/modules/history_manager/sci_gateway/c/sci_gethistory.c
scilab/modules/history_manager/sci_gateway/c/sci_gethistoryfile.c
scilab/modules/history_manager/sci_gateway/c/sci_historymanager.c
scilab/modules/history_manager/sci_gateway/c/sci_removelinehistory.c
scilab/modules/history_manager/sci_gateway/c/sci_saveafterncommands.c
scilab/modules/history_manager/sci_gateway/c/sci_saveconsecutivecommands.c
scilab/modules/history_manager/src/c/getCommentDateSession.c
scilab/modules/integer/src/c/mgeti.c
scilab/modules/integer/src/c/mputi.c
scilab/modules/interpolation/sci_gateway/c/sci_bsplin3val.c
scilab/modules/interpolation/sci_gateway/c/sci_cshep2d.c
scilab/modules/interpolation/sci_gateway/c/sci_eval_cshep2d.c
scilab/modules/interpolation/sci_gateway/c/sci_interp.c
scilab/modules/interpolation/sci_gateway/c/sci_interp2d.c
scilab/modules/interpolation/sci_gateway/c/sci_interp3d.c
scilab/modules/interpolation/sci_gateway/c/sci_linear_interpn.c
scilab/modules/interpolation/sci_gateway/c/sci_lsq_splin.c
scilab/modules/interpolation/sci_gateway/c/sci_splin.c
scilab/modules/interpolation/sci_gateway/c/sci_splin2d.c
scilab/modules/interpolation/sci_gateway/c/sci_splin3d.c
scilab/modules/interpolation/src/c/interpolation.c
scilab/modules/io/sci_gateway/c/intsetenv.c
scilab/modules/io/sci_gateway/c/sci_get_absolute_file_path.c
scilab/modules/io/sci_gateway/c/sci_getrelativefilename.c
scilab/modules/io/sci_gateway/c/sci_host.c
scilab/modules/io/sci_gateway/c/sci_newest.c
scilab/modules/io/src/c/getenvc.c
scilab/modules/jvm/src/nojvm/nojvm.c
scilab/modules/linear_algebra/examples/intdgeesx.c
scilab/modules/linear_algebra/examples/intdgesvd.c
scilab/modules/linear_algebra/examples/intdsyev.c
scilab/modules/linear_algebra/examples/intzgeesx.c
scilab/modules/linear_algebra/sci_gateway/c/sci_bdiag.c
scilab/modules/localization/includes/localization.h
scilab/modules/metanet/src/c/connex.c
scilab/modules/metanet/src/c/dmtree.c
scilab/modules/metanet/src/c/loadg.c
scilab/modules/metanet/src/c/nometanet/nometanet.c
scilab/modules/metanet/src/c/paths.c
scilab/modules/metanet/src/c/saveg.c
scilab/modules/metanet/src/c/transc.c
scilab/modules/mexlib/src/c/mexlib.c
scilab/modules/optimization/includes/spd.h
scilab/modules/optimization/src/c/intqld.c
scilab/modules/optimization/src/c/sp.c
scilab/modules/pvm/Makefile.am
scilab/modules/pvm/Makefile.in
scilab/modules/pvm/src/nopvm/nopvm.c
scilab/modules/randlib/sci_gateway/c/sci_grand.c
scilab/modules/randlib/src/c/clcg2.c
scilab/modules/renderer/src/norenderer/norenderer.c
scilab/modules/shell/sci_gateway/c/sci_clc.c
scilab/modules/shell/sci_gateway/c/sci_lines.c
scilab/modules/shell/sci_gateway/c/sci_tohome.c
scilab/modules/shell/src/c/more.c
scilab/modules/shell/src/c/others/GetCharWithEventsLoop.c
scilab/modules/shell/src/c/others/zzledt.c
scilab/modules/sound/sci_gateway/c/sci_PlaySound.c
scilab/modules/sound/sci_gateway/c/sci_beep.c
scilab/modules/sound/src/c/raw.c
scilab/modules/sound/src/c/sox.c
scilab/modules/sound/src/c/wav.c
scilab/modules/sparse/includes/sp.h
scilab/modules/sparse/includes/spDefs.h
scilab/modules/sparse/src/c/lu.c
scilab/modules/sparse/src/c/spAllocate.c
scilab/modules/sparse/src/c/spBuild.c
scilab/modules/sparse/src/c/spFactor.c
scilab/modules/sparse/src/c/spOutput.c
scilab/modules/sparse/src/c/spUtils.c
scilab/modules/special_functions/sci_gateway/c/sci_beta.c
scilab/modules/special_functions/sci_gateway/c/sci_legendre.c
scilab/modules/spreadsheet/sci_gateway/c/sci_xls_open.c
scilab/modules/spreadsheet/sci_gateway/c/sci_xls_read.c
scilab/modules/spreadsheet/src/c/logger.c
scilab/modules/spreadsheet/src/c/ole.c
scilab/modules/spreadsheet/src/c/olestream-unwrap.c
scilab/modules/spreadsheet/src/c/pldstr.c
scilab/modules/spreadsheet/src/c/ripole.c
scilab/modules/statistics/sci_gateway/c/sci_cdfbet.c
scilab/modules/statistics/sci_gateway/c/sci_cdfbin.c
scilab/modules/statistics/sci_gateway/c/sci_cdfchi.c
scilab/modules/statistics/sci_gateway/c/sci_cdfchn.c
scilab/modules/statistics/sci_gateway/c/sci_cdff.c
scilab/modules/statistics/sci_gateway/c/sci_cdffnc.c
scilab/modules/statistics/sci_gateway/c/sci_cdfgam.c
scilab/modules/statistics/sci_gateway/c/sci_cdfnbn.c
scilab/modules/statistics/sci_gateway/c/sci_cdfnor.c
scilab/modules/statistics/sci_gateway/c/sci_cdfpoi.c
scilab/modules/statistics/sci_gateway/c/sci_cdft.c
scilab/modules/statistics/src/c/CdfBase.c
scilab/modules/symbolic/sci_gateway/c/gw_symbolic.c
scilab/modules/tclsci/sci_gateway/c/gw_tclsci.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_CreateSlave.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_DeleteInterp.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_EvalFile.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_EvalStr.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_ExistArray.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_ExistInterp.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_ExistVar.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_GetVar.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_GetVersion.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_SetVar.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_UnsetVar.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_UpVar.c
scilab/modules/tclsci/sci_gateway/c/sci_TCL_gcf.c
scilab/modules/tclsci/sci_gateway/c/sci_close.c
scilab/modules/tclsci/sci_gateway/c/sci_findobj.c
scilab/modules/tclsci/sci_gateway/c/sci_get.c
scilab/modules/tclsci/sci_gateway/c/sci_set.c
scilab/modules/tclsci/src/c/InitTclTk.c
scilab/modules/tclsci/src/c/ScilabEval.c
scilab/modules/tclsci/src/c/TCL_ArrayDim.c
scilab/modules/tclsci/src/c/TCL_ArrayExist.c
scilab/modules/tclsci/src/c/TCL_ArraySize.c
scilab/modules/tclsci/src/c/TclUiGet.c
scilab/modules/tclsci/src/c/TclUiSet.c
scilab/modules/tclsci/src/c/setvar.c
scilab/modules/tclsci/src/c/tksynchro.c
scilab/modules/time/sci_gateway/c/sci_calendar.c
scilab/modules/time/sci_gateway/c/sci_getdate.c
scilab/modules/time/sci_gateway/c/sci_sleep.c
scilab/modules/time/sci_gateway/c/sci_xpause.c
scilab/modules/time/src/c/getdate.c

index b0f705a..0844d77 100644 (file)
@@ -49,10 +49,10 @@ DIST_COMMON = $(am__configure_deps) $(srcdir)/Makefile.am \
        $(top_srcdir)/etc/modules.xml.in \
        $(top_srcdir)/modules/core/includes/machine.h.in \
        $(top_srcdir)/modules/helptools/macros/xmlfiletohtml.sci.in \
-       $(top_srcdir)/modules/scicos/src/ocaml/Makefile.in ABOUT-NLS \
-       config/compile config/config.guess config/config.rpath \
-       config/config.sub config/depcomp config/install-sh \
-       config/ltmain.sh config/missing
+       $(top_srcdir)/modules/scicos/src/ocaml/Makefile.in \
+       config/compile config/config.guess config/config.sub \
+       config/depcomp config/install-sh config/ltmain.sh \
+       config/missing
 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 \
index 2fb105b..9a7b060 100755 (executable)
@@ -183,6 +183,7 @@ if test -z "$JAVA_HOME"; then
 
                        _cur=$DIR/java
                        # resolve symlink
+                       # Will probably bug if a file contains -> in the name
                        while ls -ld "$_cur" 2>/dev/null | grep " -> " >/dev/null; do
                                _cur=`ls -ld "$_cur" | sed 's/.* -> //'`
                        done
index 5f289f2..daba3ba 100755 (executable)
@@ -1,7 +1,7 @@
 #! /bin/sh
-# From configure.ac Revision: 1.132.2.6 .
+# From configure.ac Revision.
 # Guess values for system-dependent variables and create Makefiles.
-# Generated by GNU Autoconf 2.61 for scilab 0.
+# Generated by GNU Autoconf 2.61 for Scilab 0.
 #
 # Report bugs to <http://www.scilab.org/cgi-bin/bugzilla_bug_II/index.cgi>.
 #
@@ -722,10 +722,10 @@ MAKEFLAGS=
 SHELL=${CONFIG_SHELL-/bin/sh}
 
 # Identity of this package.
-PACKAGE_NAME='scilab'
+PACKAGE_NAME='Scilab'
 PACKAGE_TARNAME='scilab'
 PACKAGE_VERSION='0'
-PACKAGE_STRING='scilab 0'
+PACKAGE_STRING='Scilab 0'
 PACKAGE_BUGREPORT='http://www.scilab.org/cgi-bin/bugzilla_bug_II/index.cgi'
 
 # Factoring default headers for most tests.
@@ -1478,7 +1478,7 @@ if test "$ac_init_help" = "long"; then
   # Omit some internal or obsolete options to make the list less imposing.
   # This message is too long to be a string in the A/UX 3.1 sh.
   cat <<_ACEOF
-\`configure' configures scilab 0 to adapt to many kinds of systems.
+\`configure' configures Scilab 0 to adapt to many kinds of systems.
 
 Usage: $0 [OPTION]... [VAR=VALUE]...
 
@@ -1552,7 +1552,7 @@ fi
 
 if test -n "$ac_init_help"; then
   case $ac_init_help in
-     short | recursive ) echo "Configuration of scilab 0:";;
+     short | recursive ) echo "Configuration of Scilab 0:";;
    esac
   cat <<\_ACEOF
 
@@ -1691,7 +1691,7 @@ fi
 test -n "$ac_init_help" && exit $ac_status
 if $ac_init_version; then
   cat <<\_ACEOF
-scilab configure 0
+Scilab configure 0
 generated by GNU Autoconf 2.61
 
 Copyright (C) 1992, 1993, 1994, 1995, 1996, 1998, 1999, 2000, 2001,
@@ -1705,7 +1705,7 @@ cat >config.log <<_ACEOF
 This file contains any messages produced by compilers while
 running configure, to aid debugging if configure makes a mistake.
 
-It was created by scilab $as_me 0, which was
+It was created by Scilab $as_me 0, which was
 generated by GNU Autoconf 2.61.  Invocation command line was
 
   $ $0 $@
@@ -8133,8 +8133,8 @@ fi
 
 
 # flag for possible compilations in configure
-CFLAGS="$CFLAGS "'-I$(top_srcdir)/libs/MALLOC/includes/'
-CXXFLAGS="$CXXFLAGS "'-I$(top_srcdir)/libs/MALLOC/includes/'
+CFLAGS="$CFLAGS "'-I$(top_srcdir)/libs/MALLOC/includes/ -I$(top_srcdir)/modules/localization/includes/'
+CXXFLAGS="$CXXFLAGS "'-I$(top_srcdir)/libs/MALLOC/includes/ -I$(top_srcdir)/modules/localization/includes/'
 FFLAGS="$FFLAGS "'-I$(top_srcdir)/modules/core/includes/'
 
 ###########################
@@ -32912,7 +32912,7 @@ exec 6>&1
 # report actual input values of CONFIG_FILES etc. instead of their
 # values after options handling.
 ac_log="
-This file was extended by scilab $as_me 0, which was
+This file was extended by Scilab $as_me 0, which was
 generated by GNU Autoconf 2.61.  Invocation command line was
 
   CONFIG_FILES    = $CONFIG_FILES
@@ -32965,7 +32965,7 @@ Report bugs to <bug-autoconf@gnu.org>."
 _ACEOF
 cat >>$CONFIG_STATUS <<_ACEOF
 ac_cs_version="\\
-scilab config.status 0
+Scilab config.status 0
 configured by $0, generated by GNU Autoconf 2.61,
   with options \\"`echo "$ac_configure_args" | sed 's/^ //; s/[\\""\`\$]/\\\\&/g'`\\"
 
@@ -35335,7 +35335,7 @@ echo "Enable debug ..........      --enable-debug=$enable_debug $enable_debug"
 echo "Enable debug C.........      --enable-debug-C=$enable_debug_C    $enable_debug_C"
 echo "Enable debug C++.......      --enable-debug-CXX=$enable_debug_CXX        $enable_debug_CXX"
 echo "Enable debug Fortran...      --enable-debug-fortran=$enable_debug_fortran        $enable_debug_fortran"
-echo "Enable stop on warning.      --enable-debug-fortran=$enable_stop_on_warning      $enable_stop_on_warning"
+echo "Enable stop on warning.      --enable-stop-on-warning=$enable_stop_on_warning    $enable_stop_on_warning"
 
 echo ""
 echo "Compiler Configuration:"
index ba9151c..21f2565 100644 (file)
@@ -20,8 +20,8 @@ dnl Process this file with autoconf to produce a configure script.
 #                |           set to zero if current is incremented
 #                +- increment if interfaces have been added, removed or changed
 
-AC_REVISION($Revision: 1.132.2.6 $)dnl
-AC_INIT([scilab],[0],[http://www.scilab.org/cgi-bin/bugzilla_bug_II/index.cgi])
+AC_REVISION($Revision$)dnl
+AC_INIT([Scilab],[0],[http://www.scilab.org/cgi-bin/bugzilla_bug_II/index.cgi])
 AC_PREREQ(2.60)
 
 SCI_BUILDDIR="`pwd`"
@@ -469,8 +469,8 @@ fi
 
 
 # flag for possible compilations in configure
-CFLAGS="$CFLAGS "'-I$(top_srcdir)/libs/MALLOC/includes/'
-CXXFLAGS="$CXXFLAGS "'-I$(top_srcdir)/libs/MALLOC/includes/'
+CFLAGS="$CFLAGS "'-I$(top_srcdir)/libs/MALLOC/includes/ -I$(top_srcdir)/modules/localization/includes/'
+CXXFLAGS="$CXXFLAGS "'-I$(top_srcdir)/libs/MALLOC/includes/ -I$(top_srcdir)/modules/localization/includes/'
 FFLAGS="$FFLAGS "'-I$(top_srcdir)/modules/core/includes/'
 
 ###########################
@@ -1004,41 +1004,8 @@ AH_BOTTOM([
 #endif
 #define DIR_SEPARATOR "/"
 
-/* make sure we have PATH_MAX */
-#if HAVE_LIMITS_H
-# include <limits.h>
-#endif
-#if HAVE_SYS_PARAM
-# include <sys/param.h>
-#endif
-#ifndef PATH_MAX
-# ifndef _POSIX_PATH_MAX
-#  ifndef MAXPATHLEN
-#   define PATH_MAX 1024
-#  else
-#   define PATH_MAX MAXPATHLEN
-#  endif
-# else
-#  define PATH_MAX _POSIX_PATH_MAX
-# endif
-#endif
-
-#ifdef HAVE_LIBINTL_H
-/* Have been able to find the libintl.h file on the system */
-#include <libintl.h>
-
-#define _(String) gettext (String)
-#define _t(String1,String2,n) ngettext (String1,String2,n)
-
-#else
-/* Restore the normal behaviour ... all the string will be in english */
-
-#define _(String) ((const char *) (String))
-#define gettext(String) ((const char *) (String))
-#define _t(String1,String2,n) ngettext (String1,String2,n)
-#define ngettext(String1, String2, n) ((n) == 1 ? (const char *) (String1) : (const char *) (String2))
-
-#endif
+/* Defines PATH_MAX */
+#include "PATH_MAX.h"
 
 /* Defines BOOL type */
 #include "BOOL.h"
@@ -1177,7 +1144,7 @@ echo "Enable debug ..........      --enable-debug=$enable_debug   $enable_debug"
 echo "Enable debug C.........      --enable-debug-C=$enable_debug_C    $enable_debug_C"
 echo "Enable debug C++.......      --enable-debug-CXX=$enable_debug_CXX        $enable_debug_CXX"
 echo "Enable debug Fortran...      --enable-debug-fortran=$enable_debug_fortran        $enable_debug_fortran"
-echo "Enable stop on warning.      --enable-debug-fortran=$enable_stop_on_warning      $enable_stop_on_warning"
+echo "Enable stop on warning.      --enable-stop-on-warning=$enable_stop_on_warning    $enable_stop_on_warning"
 
 echo ""
 echo "Compiler Configuration:"
index 4eb2804..e014388 100644 (file)
@@ -10,7 +10,7 @@
 #include "MALLOC.h"
 #include "dynamic_menus.h"
 #include "sciprint.h"
-
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 /*
  *  Command queue functions
index b574ac8..5f14330 100644 (file)
@@ -1,8 +1,8 @@
 #include <math.h>
 #include <string.h>
 #include "stack-c.h"
+#include "core_math.h"
 /*-----------------------------------------------------------------------------------*/
-#define MAX(x,y)       (((x)>(y))?(x):(y))
 #define CHAR(x)         (cstk(x))
 #define INT(x)         (istk(x))
 #define DOUBLE(x)      ( stk(x))
@@ -52,7 +52,7 @@ int C2F(intdnaupd) _PARAMS((char *fname,unsigned long fname_len))
   GetRhsVar(13,MATRIX_OF_DOUBLE_DATATYPE, &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 13;
   GetRhsVar(14,MATRIX_OF_INTEGER_DATATYPE, &mINFO,   &nINFO,   &pINFO);          INFO = 14;
 
-  LWORKL = mWORKL*nWORKL;   LDV=MAX(1,*istk(pN));
+  LWORKL = mWORKL*nWORKL;   LDV=Max(1,*istk(pN));
 
   C2F(dnaupd)(istk(pIDO),   cstk(pBMAT),  istk(pN),
              cstk(pWHICH), istk(pNEV),   stk(pTOL), 
index 43f9b7a..b27d1cf 100644 (file)
@@ -1,8 +1,8 @@
 #include <math.h>
 #include <string.h>
 #include "stack-c.h"
+#include "core_math.h"
 /*-----------------------------------------------------------------------------------*/
-#define MAX(x,y)       (((x)>(y))?(x):(y))
 #define CHAR(x)         (cstk(x))
 #define INT(x)         (istk(x))
 #define DOUBLE(x)      ( stk(x))
@@ -65,7 +65,7 @@ int C2F(intdneupd) _PARAMS((char *fname,unsigned long fname_len))
   GetRhsVar(21,MATRIX_OF_DOUBLE_DATATYPE, &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 21;
   GetRhsVar(22,MATRIX_OF_INTEGER_DATATYPE, &mINFO,   &nINFO,   &pINFO);          INFO = 22;
   
-  LWORKL = mWORKL*nWORKL;   LDV=MAX(1,*istk(pN)); LDZ=LDV;
+  LWORKL = mWORKL*nWORKL;   LDV=Max(1,*istk(pN)); LDZ=LDV;
 
   C2F(dneupd)(istk(pRVEC), cstk(pHOWMANY),  istk(pSELECT),
              stk(pDr), stk(pDi), stk(pZ),   &LDZ,
index 4612552..5b40384 100644 (file)
@@ -1,8 +1,8 @@
 #include <math.h>
 #include <string.h>
 #include "stack-c.h"
+#include "core_math.h"
 /*-----------------------------------------------------------------------------------*/
-#define MAX(x,y)       (((x)>(y))?(x):(y))
 #define CHAR(x)         (cstk(x))
 #define INT(x)         (istk(x))
 #define DOUBLE(x)      ( stk(x))
@@ -52,7 +52,7 @@ int C2F(intdsaupd) _PARAMS((char *fname,unsigned long fname_len))
   GetRhsVar(13,MATRIX_OF_DOUBLE_DATATYPE, &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 13;
   GetRhsVar(14,MATRIX_OF_INTEGER_DATATYPE, &mINFO,   &nINFO,   &pINFO);          INFO = 14;
 
-  LWORKL = mWORKL*nWORKL;   LDV=MAX(1, *istk(pN));
+  LWORKL = mWORKL*nWORKL;   LDV=Max(1, *istk(pN));
 
   C2F(dsaupd)(INT(pIDO), CHAR(pBMAT), INT(pN),
              CHAR(pWHICH), INT(pNEV), DOUBLE(pTOL), 
index 99a5580..135be42 100644 (file)
@@ -1,8 +1,8 @@
 #include <math.h>
 #include <string.h>
 #include "stack-c.h"
+#include "core_math.h"
 /*-----------------------------------------------------------------------------------*/
-#define MAX(x,y)       (((x)>(y))?(x):(y))
 #define CHAR(x)         (cstk(x))
 #define INT(x)         (istk(x))
 #define DOUBLE(x)      ( stk(x))
@@ -62,7 +62,7 @@ int C2F(intdseupd) _PARAMS((char *fname,unsigned long fname_len))
   GetRhsVar(18,MATRIX_OF_DOUBLE_DATATYPE, &mWORKL,  &nWORKL,  &pWORKL);       WORKL  = 18;
   GetRhsVar(19,MATRIX_OF_INTEGER_DATATYPE, &mINFO,   &nINFO,   &pINFO);          INFO = 19;
 
-  LWORKL = mWORKL*nWORKL;   LDV=MAX(1,*istk(pN)); LDZ=LDV;
+  LWORKL = mWORKL*nWORKL;   LDV=Max(1,*istk(pN)); LDZ=LDV;
 
   C2F(dseupd)(istk(pRVEC), cstk(pHOWMANY),  istk(pSELECT),
              stk(pD), stk(pZ),   &LDZ,
index 3b5f71b..4f5edf0 100644 (file)
@@ -1,8 +1,8 @@
 #include <math.h>
 #include <string.h>
 #include "stack-c.h"
+#include "core_math.h"
 /*-----------------------------------------------------------------------------------*/
-#define MAX(x,y)       (((x)>(y))?(x):(y))
 #define CHAR(x)         (cstk(x))
 #define INT(x)         (istk(x))
 #define DOUBLE(x)      ( stk(x))
@@ -52,7 +52,7 @@ int C2F(intznaupd) _PARAMS((char *fname,unsigned long fname_len))
   GetRhsVar(14,MATRIX_OF_DOUBLE_DATATYPE, &mRWORK,  &nRWORK,  &pRWORK);       RWORK  = 14;
   GetRhsVar(15,MATRIX_OF_INTEGER_DATATYPE, &mINFO,   &nINFO,   &pINFO);          INFO = 15;
 
-  LWORKL = mWORKL*nWORKL;   LDV=MAX(1,*istk(pN));
+  LWORKL = mWORKL*nWORKL;   LDV=Max(1,*istk(pN));
 
   C2F(znaupd)(istk(pIDO), cstk(pBMAT), istk(pN),
              cstk(pWHICH), istk(pNEV), stk(pTOL), 
index 5c5b741..165fda8 100644 (file)
@@ -1,8 +1,8 @@
 #include <math.h>
 #include <string.h>
 #include "stack-c.h"
+#include "core_math.h"
 /*-----------------------------------------------------------------------------------*/
-#define MAX(x,y)       (((x)>(y))?(x):(y))
 #define CHAR(x)         (cstk(x))
 #define INT(x)         (istk(x))
 #define DOUBLE(x)      ( stk(x))
@@ -63,7 +63,7 @@ int C2F(intzneupd) _PARAMS((char *fname,unsigned long fname_len))
   GetRhsVar(20,MATRIX_OF_DOUBLE_DATATYPE, &mRWORK,  &nRWORK,  &pRWORK);       RWORK  = 20;
   GetRhsVar(21,MATRIX_OF_INTEGER_DATATYPE, &mINFO,   &nINFO,   &pINFO);          INFO = 21;
 
-  LWORKL = mWORKL*nWORKL;   LDV=MAX(1,*istk(pN)); LDZ=LDV;
+  LWORKL = mWORKL*nWORKL;   LDV=Max(1,*istk(pN)); LDZ=LDV;
 
   C2F(zneupd)(istk(pRVEC), cstk(pHOWMANY), istk(pSELECT), zstk(pD), 
               zstk(pZ), &LDZ, zstk(pSIGMA), zstk(pWORKev),
index 7980809..c194ecf 100644 (file)
@@ -1,13 +1,13 @@
 /*-----------------------------------------------------------------------------------*/
 /* INRIA */
 /*-----------------------------------------------------------------------------------*/
+#include <string.h>
 #include "machine.h"
 #include "stack-c.h"
-#include <string.h>
 #include "sci_contr.h"
 #include "Scierror.h"
-/*-----------------------------------------------------------------------------------*/
-#define MAX(x,y)       (((x)>(y))?(x):(y))
+#include "core_math.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern double C2F(dlamch)  __PARAMS((char *CMACH, unsigned long int));
 extern int C2F(ab01od)();
@@ -43,8 +43,8 @@ int intab01od(char* fname)
        }
 
        /*     dimensions...    */
-       LDA=MAX(1,N);  LDB=LDA;  LDU=LDA; LDV=MAX(1,M);
-       LDWORK = MAX(1, N*M + MAX(N,M) + MAX(N,3*M));
+       LDA=Max(1,N);  LDB=LDA;  LDU=LDA; LDV=Max(1,M);
+       LDWORK = Max(1, N*M + Max(N,M) + Max(N,3*M));
 
        /*     other parameters of AB01OD   */
        JOBU= "N"; if (Lhs >= 2)  JOBU="I";
index 97e1280..593f317 100644 (file)
@@ -5,6 +5,7 @@
 #include "machine.h"
 #include "stack-c.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(scitzer) _PARAMS((char *fname,unsigned long fname_len));
 /*-----------------------------------------------------------------------------------*/
@@ -14,12 +15,12 @@ int C2F(sci_tzer) _PARAMS((char *fname,unsigned long fname_len))
 {
        if (Rhs != 4)
        {
-               Scierror(42,_("incompatible RHS.\n"));
+               Scierror(42,_("Incompatible input parameter (RHS).\n"));
                return 0;
        }
        if ( (Lhs != 2) && (Lhs !=3) )
        {
-               Scierror(41,_("incompatible LHS.\n"));
+               Scierror(41,_("Incompatible output parameter (LHS).\n"));
                return 0;
        }
 
index ad67d34..4171b0c 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_completion.h"
 #include "MALLOC.h"
 #include "stack-c.h"
+#include "localization.h"
 #include "completion.h" 
 #include "Scierror.h"
 #include "toolsdictionary.h"
index 6d9ddd8..4828a96 100644 (file)
@@ -5,6 +5,7 @@
 #include "machine.h"
 #include "completion.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "gw_completion.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(gw_completion)()
index 87922b9..645c2ad 100644 (file)
@@ -83,7 +83,8 @@ src/c/librarieslist.c \
 src/c/libraryinfo.c \
 src/c/getvariablesname.c \
 src/c/commandwords.c \
-src/c/ScilabEventsLoop.c
+src/c/ScilabEventsLoop.c \
+src/c/errmsg.c
 
 CORE_FORTRAN_SOURCES = src/fortran/algebre.f \
 src/fortran/clunit.f \
@@ -97,7 +98,6 @@ src/fortran/hmcreate.f \
 src/fortran/nextj.f \
 src/fortran/functionsforbasout.f \
 src/fortran/setgetmode.f \
-src/fortran/errmsgf.f \
 src/fortran/showstack.f \
 src/fortran/misops.f \
 src/fortran/iseye.f \
index ee16058..e8f84d3 100644 (file)
@@ -138,27 +138,27 @@ am__objects_1 = libscicore_la-inffic.lo libscicore_la-cs2st.lo \
        libscicore_la-librarieslist.lo libscicore_la-libraryinfo.lo \
        libscicore_la-getvariablesname.lo \
        libscicore_la-commandwords.lo \
-       libscicore_la-ScilabEventsLoop.lo
+       libscicore_la-ScilabEventsLoop.lo libscicore_la-errmsg.lo
 am__objects_2 = algebre.lo clunit.lo complexify.lo allowptr.lo \
        dldsp.lo bcol.lo getlin.lo isany.lo hmcreate.lo nextj.lo \
-       functionsforbasout.lo setgetmode.lo errmsgf.lo showstack.lo \
-       misops.lo iseye.lo chkvar.lo setippty.lo compil.lo funnam.lo \
-       isnum.lo cmdstr.lo logops.lo atome.lo hndlops.lo cmplxt.lo \
-       skpins.lo folhp.lo cvname.lo funs.lo fact.lo inibrk.lo \
-       typ2cod.lo prompt.lo intstr.lo createref.lo btof.lo matzs.lo \
-       getnum.lo btofm.lo getsym.lo findequal.lo stackg.lo find.lo \
-       israt.lo setlnb.lo mrknmd.lo stackgl.lo allops.lo print.lo \
-       mname.lo prntid.lo command.lo ref2val.lo namstr.lo stack.lo \
-       isbrk.lo majmin.lo dmdspf.lo xerbla.lo dtosci.lo bexec.lo \
-       varfunptr.lo getfun.lo savlod.lo error.lo cvdm.lo tradsl.lo \
-       mkindx.lo whatln.lo errmgr.lo defmat.lo mklist.lo dmdsp.lo \
-       sigbas.lo indxg.lo matz.lo istrue.lo inisci.lo ptover.lo \
-       getfunction.lo stackp.lo dbasin.lo macro.lo lspdsp.lo \
-       extlarg.lo getstr.lo cvwm.lo storeglobal.lo lst2vars.lo \
-       fmttyp.lo basnms.lo matc.lo ptrback.lo getch.lo ftob.lo \
-       seteol.lo basin.lo clause.lo compcl.lo termf.lo expsum.lo \
-       eqid.lo copyvar.lo putid.lo itosci.lo formatnumber.lo wmdsp.lo \
-       stackr2d.lo stacki2d.lo stackc2i.lo
+       functionsforbasout.lo setgetmode.lo showstack.lo misops.lo \
+       iseye.lo chkvar.lo setippty.lo compil.lo funnam.lo isnum.lo \
+       cmdstr.lo logops.lo atome.lo hndlops.lo cmplxt.lo skpins.lo \
+       folhp.lo cvname.lo funs.lo fact.lo inibrk.lo typ2cod.lo \
+       prompt.lo intstr.lo createref.lo btof.lo matzs.lo getnum.lo \
+       btofm.lo getsym.lo findequal.lo stackg.lo find.lo israt.lo \
+       setlnb.lo mrknmd.lo stackgl.lo allops.lo print.lo mname.lo \
+       prntid.lo command.lo ref2val.lo namstr.lo stack.lo isbrk.lo \
+       majmin.lo dmdspf.lo xerbla.lo dtosci.lo bexec.lo varfunptr.lo \
+       getfun.lo savlod.lo error.lo cvdm.lo tradsl.lo mkindx.lo \
+       whatln.lo errmgr.lo defmat.lo mklist.lo dmdsp.lo sigbas.lo \
+       indxg.lo matz.lo istrue.lo inisci.lo ptover.lo getfunction.lo \
+       stackp.lo dbasin.lo macro.lo lspdsp.lo extlarg.lo getstr.lo \
+       cvwm.lo storeglobal.lo lst2vars.lo fmttyp.lo basnms.lo matc.lo \
+       ptrback.lo getch.lo ftob.lo seteol.lo basin.lo clause.lo \
+       compcl.lo termf.lo expsum.lo eqid.lo copyvar.lo putid.lo \
+       itosci.lo formatnumber.lo wmdsp.lo stackr2d.lo stacki2d.lo \
+       stackc2i.lo
 am__objects_3 = libscicore_la-sci_stacksize.lo \
        libscicore_la-sci_resume.lo libscicore_la-sci_mtlb_mode.lo \
        libscicore_la-sci_banner.lo libscicore_la-sci_where.lo \
@@ -488,7 +488,8 @@ src/c/librarieslist.c \
 src/c/libraryinfo.c \
 src/c/getvariablesname.c \
 src/c/commandwords.c \
-src/c/ScilabEventsLoop.c
+src/c/ScilabEventsLoop.c \
+src/c/errmsg.c
 
 CORE_FORTRAN_SOURCES = src/fortran/algebre.f \
 src/fortran/clunit.f \
@@ -502,7 +503,6 @@ src/fortran/hmcreate.f \
 src/fortran/nextj.f \
 src/fortran/functionsforbasout.f \
 src/fortran/setgetmode.f \
-src/fortran/errmsgf.f \
 src/fortran/showstack.f \
 src/fortran/misops.f \
 src/fortran/iseye.f \
@@ -977,6 +977,7 @@ distclean-compile:
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_la-cs2st.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_la-csignal.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_la-cvstr.Plo@am__quote@
+@AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_la-errmsg.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_la-expr.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_la-filesmanagement.Plo@am__quote@
 @AMDEP_TRUE@@am__include@ @am__quote@./$(DEPDIR)/libscicore_la-flags.Plo@am__quote@
@@ -1682,6 +1683,13 @@ libscicore_la-ScilabEventsLoop.lo: src/c/ScilabEventsLoop.c
 @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) $(libscicore_la_CFLAGS) $(CFLAGS) -c -o libscicore_la-ScilabEventsLoop.lo `test -f 'src/c/ScilabEventsLoop.c' || echo '$(srcdir)/'`src/c/ScilabEventsLoop.c
 
+libscicore_la-errmsg.lo: src/c/errmsg.c
+@am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscicore_la_CFLAGS) $(CFLAGS) -MT libscicore_la-errmsg.lo -MD -MP -MF $(DEPDIR)/libscicore_la-errmsg.Tpo -c -o libscicore_la-errmsg.lo `test -f 'src/c/errmsg.c' || echo '$(srcdir)/'`src/c/errmsg.c
+@am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscicore_la-errmsg.Tpo $(DEPDIR)/libscicore_la-errmsg.Plo
+@AMDEP_TRUE@@am__fastdepCC_FALSE@      source='src/c/errmsg.c' object='libscicore_la-errmsg.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) $(libscicore_la_CFLAGS) $(CFLAGS) -c -o libscicore_la-errmsg.lo `test -f 'src/c/errmsg.c' || echo '$(srcdir)/'`src/c/errmsg.c
+
 libscicore_la-sci_stacksize.lo: sci_gateway/c/sci_stacksize.c
 @am__fastdepCC_TRUE@   $(LIBTOOL) --tag=CC $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(CC) $(DEFS) $(DEFAULT_INCLUDES) $(INCLUDES) $(AM_CPPFLAGS) $(CPPFLAGS) $(libscicore_la_CFLAGS) $(CFLAGS) -MT libscicore_la-sci_stacksize.lo -MD -MP -MF $(DEPDIR)/libscicore_la-sci_stacksize.Tpo -c -o libscicore_la-sci_stacksize.lo `test -f 'sci_gateway/c/sci_stacksize.c' || echo '$(srcdir)/'`sci_gateway/c/sci_stacksize.c
 @am__fastdepCC_TRUE@   mv -f $(DEPDIR)/libscicore_la-sci_stacksize.Tpo $(DEPDIR)/libscicore_la-sci_stacksize.Plo
@@ -2196,9 +2204,6 @@ functionsforbasout.lo: src/fortran/functionsforbasout.f
 setgetmode.lo: src/fortran/setgetmode.f
        $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o setgetmode.lo `test -f 'src/fortran/setgetmode.f' || echo '$(srcdir)/'`src/fortran/setgetmode.f
 
-errmsgf.lo: src/fortran/errmsgf.f
-       $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o errmsgf.lo `test -f 'src/fortran/errmsgf.f' || echo '$(srcdir)/'`src/fortran/errmsgf.f
-
 showstack.lo: src/fortran/showstack.f
        $(LIBTOOL) --tag=F77 $(AM_LIBTOOLFLAGS) $(LIBTOOLFLAGS) --mode=compile $(F77) $(AM_FFLAGS) $(FFLAGS) -c -o showstack.lo `test -f 'src/fortran/showstack.f' || echo '$(srcdir)/'`src/fortran/showstack.f
 
index 4997099..cbbd691 100644 (file)
 #endif
 #define DIR_SEPARATOR "/"
 
-/* make sure we have PATH_MAX */
-#if HAVE_LIMITS_H
-# include <limits.h>
-#endif
-#if HAVE_SYS_PARAM
-# include <sys/param.h>
-#endif
-#ifndef PATH_MAX
-# ifndef _POSIX_PATH_MAX
-#  ifndef MAXPATHLEN
-#   define PATH_MAX 1024
-#  else
-#   define PATH_MAX MAXPATHLEN
-#  endif
-# else
-#  define PATH_MAX _POSIX_PATH_MAX
-# endif
-#endif
-
-#ifdef HAVE_LIBINTL_H
-/* Have been able to find the libintl.h file on the system */
-#include <libintl.h>
-
-#define _(String) gettext (String)
-#define _t(String1,String2,n) ngettext (String1,String2,n)
-
-#else
-/* Restore the normal behaviour ... all the string will be in english */
-
-#define _(String) ((const char *) (String))
-#define gettext(String) ((const char *) (String))
-#define _t(String1,String2,n) ngettext (String1,String2,n)
-#define ngettext(String1, String2, n) ((n) == 1 ? (const char *) (String1) : (const char *) (String2))
-
-#endif
+/* Defines PATH_MAX */
+#include "PATH_MAX.h"
 
 /* Defines BOOL type */
 #include "BOOL.h"
index 481da62..512c3e3 100644 (file)
@@ -8,12 +8,9 @@
 #include "stack-c.h"
 #include "Scierror.h"
 #include "scicurdir.h"
+#include "localization.h"
 #include "cluni0.h"
 /*-----------------------------------------------------------------------------------*/
-#ifndef MAX_PATH_STR
-#define MAX_PATH_STR 1024
-#endif
-/*-----------------------------------------------------------------------------------*/
 int C2F(sci_chdir) _PARAMS((char *fname,unsigned long fname_len))
 {
        Rhs = Max(0, Rhs);
@@ -24,8 +21,8 @@ int C2F(sci_chdir) _PARAMS((char *fname,unsigned long fname_len))
        {
                int ierr = 0;
                static int l1,n1,m1;
-               char shortpath[MAX_PATH_STR];
-               char path[MAX_PATH_STR];
+               char shortpath[PATH_MAX];
+               char path[PATH_MAX];
                int out_n = 0;
 
                if (Rhs == 0)
@@ -38,7 +35,7 @@ int C2F(sci_chdir) _PARAMS((char *fname,unsigned long fname_len))
                        strcpy(shortpath,cstk(l1));
                }
 
-               C2F(cluni0)(shortpath,path,&out_n,(long)strlen(shortpath),MAX_PATH_STR);
+               C2F(cluni0)(shortpath,path,&out_n,(long)strlen(shortpath),PATH_MAX);
                C2F(scichdir)(path,&ierr);
 
                n1=1;
@@ -52,7 +49,7 @@ int C2F(sci_chdir) _PARAMS((char *fname,unsigned long fname_len))
        }
        else
        {
-               Scierror(999,_("Invalid parameter.\n"));
+               Scierror(999,_("Invalid input parameter.\n"));
        }
        return 0;
 }
index 8de80ce..2b2e29b 100644 (file)
@@ -10,6 +10,7 @@
 #include "hashtable_core.h"
 #include "Scierror.h"
 #include "Funtab.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cvnamel)(int *id,char *str,int *jobptr,int *str_len);
 /*-----------------------------------------------------------------------------------*/
index 46687ff..56f33fb 100644 (file)
@@ -8,6 +8,7 @@
 #include "scicurdir.h"
 #include "MALLOC.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_getcwd) _PARAMS((char *fname,unsigned long fname_len))
 {
index 12bdb40..b8c20b3 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "MALLOC.h"
 #include "md5.h"
+#include "localization.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
 #ifdef _MSC_VER
@@ -92,7 +93,7 @@ int C2F(sci_getmd5) _PARAMS((char *fname,unsigned long fname_len))
 
                                LhsVar(1) = Rhs+1;
                                C2F(putlhsvar)();
- }
+                       }
                        else
                        {
                                Scierror(999,_("Invalid second parameter. It must be a string.\n"));
index 2f1c494..355e8dd 100644 (file)
@@ -8,6 +8,7 @@
 #include "MALLOC.h"
 #include "getmodules.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_getmodules) _PARAMS((char *fname,unsigned long fname_len))
 {
index cf89fb8..6bcb2e7 100644 (file)
@@ -8,6 +8,7 @@
 #include "getvariablesname.h"
 #include "MALLOC.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_getvariablesonstack) _PARAMS((char *fname,unsigned long fname_len))
 {
index 2ca814d..7c76885 100644 (file)
@@ -14,6 +14,7 @@
 #include "inisci-c.h"
 #include "Scierror.h"
 #include "withtk.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 static int getversion_no_rhs(void);
 static int getversion_one_rhs(void);
index ff47b8a..9162173 100644 (file)
@@ -10,6 +10,7 @@
 #include "getmaxMALLOC.h"
 #include "scimem.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern integer C2F(adjustgstacksize)();
 /*-----------------------------------------------------------------------------------*/
index 590393b..44d6d25 100644 (file)
@@ -8,6 +8,7 @@
 #include "libraryinfo.h"
 #include "MALLOC.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_libraryinfo) _PARAMS((char *fname,unsigned long fname_len))
 {
index bf2a83c..8aed27e 100644 (file)
@@ -9,6 +9,7 @@
 #include "IsAScalar.h"
 #include "hashtable_core.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 static BOOL Is_a_correct_function_name(char *functionname);
 /*-----------------------------------------------------------------------------------*/
index 4398c4a..1b0be1e 100644 (file)
@@ -8,6 +8,7 @@
 #include "MALLOC.h"
 #include "getmaxMALLOC.h"
 #include "scimem.h"
+#include "localization.h"
 #include "stackinfo.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
index 2d3fa59..fa441fb 100644 (file)
@@ -7,6 +7,7 @@
 #include "machine.h"
 #include "stack-c.h"
 #include "link.h"
+#include "localization.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_ulink) _PARAMS((char *fname,unsigned long fname_len))
index b620036..6f19e0b 100644 (file)
@@ -11,6 +11,7 @@
 #include "warningmode.h"
 #include "MALLOC.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_warning) _PARAMS((char *fname,unsigned long fname_len))
 {
index 4e3504d..20e9535 100644 (file)
@@ -10,6 +10,7 @@
 #include "sciprint.h"
 #include "Scierror.h"
 #include "commandwords.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 static char **LocalFunctionsTab=NULL;
 static int SizeLocalFunctionsTab=0;
index 77742ab..0457029 100644 (file)
@@ -6,7 +6,7 @@
 #include "machine.h"
 #include "stack-c.h"
 #include "Scierror.h"
-#include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(where)();
 /*-----------------------------------------------------------------------------------*/
index 0e7bc1f..4639b57 100644 (file)
@@ -8,6 +8,7 @@
 #include "MALLOC.h"
 #include "stackinfo.h"
 #include "sciprint.h"
+#include "localization.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
 struct VariableStruct
index 82f16e8..9fc47df 100644 (file)
@@ -7,6 +7,7 @@
 #include "with_module.h"
 #include "MALLOC.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_with_module) _PARAMS((char *fname,unsigned long fname_len))
 {
index dc03de9..9495142 100644 (file)
@@ -12,6 +12,7 @@
 #include "prompt.h"
 #include "sciprint.h"
 #include "filesmanagement.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/ 
 BOOL InitializeCore(void)
 {
index 621b330..e976397 100644 (file)
@@ -15,6 +15,7 @@
 #include "LoadFunctionsTab.h"
 #include "GetXmlFileEncoding.h"
 #include "scilabDefaults.h"
+#include "localization.h"
 #include "../../fileio/includes/FileExist.h"
 /*-----------------------------------------------------------------------------------*/  
 static int firstentry = 0;
index af7e534..a9d35b2 100644 (file)
@@ -5,6 +5,7 @@
 #include "CallScilab.h"
 #include "MALLOC.h"
 #include "scirun.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 static BOOL RemoveCharsFromEOL(char *line,char CharToRemove);
 static BOOL RemoveComments(char *line);
index e261e04..29e288a 100644 (file)
@@ -9,6 +9,7 @@
 #include "link.h"
 #include "addinter.h" 
 #include "Os_specific.h"
+#include "localization.h"
 
 #include "stack-def.h"
 #include "MALLOC.h" /* MALLOC */
index d8b1e6a..0c0de96 100644 (file)
@@ -8,6 +8,7 @@
 #include "sciprint.h"
 #include "banier.h"
 #include "sciprint.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 void banner(void)
 {
index 71fe7e8..9c5d0fa 100644 (file)
@@ -13,6 +13,7 @@
 #include "machine.h"
 #include "sciprint.h"
 #include "Scierror.h"
+#include "localization.h"
 
 
 static  jmp_buf jmp_env;
index 39db0fa..7e80711 100644 (file)
@@ -5,6 +5,7 @@
 #include <string.h>
 #include <stdio.h>
 #include "machine.h"
+#include "localization.h"
 #include "stack-c.h"
 #include "MALLOC.h"
 #include "msgstore.h"
@@ -29,7 +30,7 @@ int C2F(errmsg)(integer *n,integer *errtyp)
     *errtyp = 0;
 
     C2F(linestore)(&i);
-    C2F(funnamestore)(" ", &i,strlen(" "));
+    C2F(funnamestore)(" ", &i);//strlen(" "));
     C2F(freemsgtable)();
     C2F(errstore)(n);
     
@@ -56,20 +57,22 @@ int C2F(errmsg)(integer *n,integer *errtyp)
                        {
                                char *Str=NULL;
                                C2F(cvname)(&C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6], C2F(cha1).buf, &i, 4096L);
-                               Str=(char*)MALLOC( sizeof(char)*( strlen(_("Undefined variable : %s"))+1+strlen(C2F(cha1).buf) ) );
-                               sprintf(Str,SCI_ERRMSG4,C2F(cha1).buf);
+                               #define ERROR_MSG _("Undefined variable : %s")
+                               Str=(char*)MALLOC( sizeof(char)*( strlen(ERROR_MSG)+1+strlen(C2F(cha1).buf) ) );
+                               sprintf(Str,ERROR_MSG,C2F(cha1).buf);
                                MSGOUT(Str);
                                FREE(Str);
+                               #undef ERROR_MSG
                        }
                        break;
                        case 5:
                        {
-                               MSGOUT(SCI_ERRMSG5);
+                               MSGOUT(_("Inconsistent column/row dimensions"));
                        }
                        break;
                        case 6:
                        {
-                               MSGOUT(SCI_ERRMSG6);
+                               MSGOUT(_("Inconsistent row/column dimensions"));
                        }
                        break;
                        case 7:
index b5d6501..75c3c0f 100644 (file)
@@ -10,6 +10,7 @@
 #include "machine.h"
 #include "MALLOC.h"
 #include "setgetSCIpath.h"
+#include "localization.h"
 #include "string.h"
 #include "sciprint.h"
 #include "GetXmlFileEncoding.h"
index f30be1c..3d545d2 100644 (file)
@@ -11,6 +11,7 @@
 #include <string.h>
 #include <stdlib.h> /* getenv ! */
 #include "../../fileio/includes/FileExist.h"
+#include "localization.h"
 #include "machine.h" 
 #include "Os_specific.h"
 #include "core_math.h" 
index b6525bf..9fae99b 100644 (file)
@@ -9,6 +9,7 @@
 #include "intmacr2tree.h"
 #include "sciprint.h"
 #include "cvstr.h"
+#include "localization.h"
 #include "machine.h"
 
 /* Table to store variable names */
index ce30a94..1456eb0 100644 (file)
@@ -9,19 +9,17 @@
 
 #include <string.h> 
 #include <stdio.h>
-
+#include <stdlib.h>
 #include "core_math.h"
 #include "MALLOC.h" /* MALLOC */
 #include "../../../string/includes/men_Sutils.h"
 #include "link.h"
 #include "sciprint.h"
-
-#include <stdlib.h>
-
 #include "machine.h"
 #include "stack-c.h"
 #include "warningmode.h"
 #include "sciprint.h"
+#include "localization.h"
 
 static void Underscores __PARAMS((int isfor,char *ename,char *ename1));
 static int SearchFandS  __PARAMS( ( char *,int ));
index c755a77..360b793 100644 (file)
@@ -70,9 +70,9 @@
 #include "tmpdir.h"
 #include "setgetSCIpath.h"
 #include "sciprint_nd.h"
-
 #include "addinter.h"
 #include "warningmode.h"
+#include "localization.h"
 
 #ifdef round
        #undef round
index 1e01759..33743d3 100644 (file)
@@ -7,14 +7,13 @@
 #include "warningmode.h"
 #include "dynamiclibrary.h"
 #include "addinter.h"
+#include "core_math.h"
 /*-----------------------------------------------------------------------------------*/
 #ifdef round
 #undef round
 #endif 
 
 #define round(x,s) (((x) + ((s)-1)) & ~((s)-1))
-#define Min(x,y)       (((x)<(y))?(x):(y))
-#define Max(x,y)       (((x)>(y))?(x):(y))
 #define debug C2F(iop).ddt==1
 /*-----------------------------------------------------------------------------------*/
 static void Sci_Delsym __PARAMS((int ));
index 931fcc6..ea9f9ce 100644 (file)
@@ -11,6 +11,7 @@
 #include "MALLOC.h"
 #include "GetXmlFileEncoding.h"
 #include "scilabDefaults.h"
+#include "localization.h"
 #include "../../../fileio/includes/FileExist.h"
 /*-----------------------------------------------------------------------------------*/ 
 BOOL getversionmodule(char *modulename,
index 2b59a60..cf795ae 100644 (file)
 #include "parse.h"
 #include "basout.h"
 #include "ScilabEventsLoop.h"
+#include "core_math.h"
 #include "../../tclsci/includes/tksynchro.h"
 #include "cvstr.h"
 /*-----------------------------------------------------------------------------------*/
 #undef Lstk
 #undef Infstk
 /*-----------------------------------------------------------------------------------*/
-#ifdef _MSC_VER
-#define abs(x) ((x) >= 0 ? (x) : -(x)) /* pour abs  C2F(parse)() line 1393 */
-#endif
-/*-----------------------------------------------------------------------------------*/
 IMPORT struct {
   int iflag, interruptible;
 } C2F(basbrk);
@@ -49,9 +46,6 @@ static int c_n1 = -1;
 
 #define equal  50
 #define eol  99
-#ifndef max 
-#define max(x,y)       (((x)>(y))?(x):(y))
-#endif 
 
 #define Pt (C2F(recu).pt)
 /*-----------------------------------------------------------------------------------*/
@@ -806,7 +800,7 @@ int C2F(parse)()
   /*     store results */
   /* ------------------- */
  L70:
-  Lhs = max(Lhs,1);
+  Lhs = Max(Lhs,1);
   if (Compil(29, &(Lhs), C2F(com).sym, 0, 0)) {
     if (C2F(iop).err > 0) {
       return 0;
index ec2967d..1f4e82b 100644 (file)
@@ -8,6 +8,7 @@
 #include "sciprint.h"
 #include "sciprint.h"
 #include "warningmode.h"
+#include "localization.h"
 /*------------------------------------------------------------------------*/
 static char Sci_Prompt[10];
 static BOOL dispWarningLevelPrompt=TRUE;
@@ -23,8 +24,7 @@ void C2F(setprlev)( int *pause)
                {
                        if (getWarningMode())
                        {
-                               sciprint(_("Type 'resume' or 'abort' to return to standard level prompt.\n"));
-                               sciprint("\n");
+                               sciprint(_("Type 'resume' or 'abort' to return to standard level prompt.\n\n"));
                                dispWarningLevelPrompt=FALSE;
                        }
                }
index 26b2ba9..f1e5bcb 100644 (file)
@@ -9,7 +9,7 @@
 #include "stack-c.h"
 #include "MALLOC.h"
 #include "sciprint.h"
-
+#include "localization.h"
 /*------------------------------------------------------------------------*/
 returnedList * createReturnedList( int nbElements, char * elementName[] )
 {
index 77175f1..edc1af3 100644 (file)
@@ -20,6 +20,8 @@
 #include "ScilabEventsLoop.h"
 #include "dynamic_menus.h"
 #include "parse.h"
+#include "localization.h"
+#include "core_math.h"
 
 #undef Lstk
 #undef Infstk
@@ -38,9 +40,6 @@ static int c__0 = 0;
 #define extrac  3
 #define semi  43
 #define equal  50
-#ifndef max 
-#define max(x,y)       (((x)>(y))?(x):(y))
-#endif 
 
 #define Pt (C2F(recu).pt)
 
@@ -622,7 +621,7 @@ int C2F(run)()
   /*     macro */
  L65:
   i2 = Istk[2 + lc] - 1;
-  Rhs = max(i2,0);
+  Rhs = Max(i2,0);
   C2F(adjustrhs)();
   Lhs = Istk[3 + lc];
 
@@ -1291,7 +1290,7 @@ int C2F(run)()
   /* try op-codes finished*/
   l0 = Ids[1 + Pt * nsiz];
   /*check if an error occured*/
-  ok = max(C2F(errgst).err2,C2F(errgst).err1)<=0;
+  ok = Max(C2F(errgst).err2,C2F(errgst).err1)<=0;
   /* restore preserved error modes */
   C2F(errgst).errct = Ids[2 + Pt * nsiz];
   C2F(errgst).err2  = Ids[3 + Pt * nsiz];
index 3cc482a..779183d 100644 (file)
@@ -13,6 +13,7 @@
 #include "sciprint.h"
 #include "scicurdir.h"
 #include "MALLOC.h"
+#include "localization.h"
 #include "warningmode.h"
 static char cur_dir[PATH_MAX];
 /*-----------------------------------------------------------------------------------*/
index 207292e..4346e34 100644 (file)
@@ -5,6 +5,7 @@
 #include "stack-c.h"
 #include "scimem.h"
 #include "sciprint.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 static char *the_p=NULL;
 static char *the_ps=NULL;
index b4d8695..e10a07a 100644 (file)
@@ -11,6 +11,7 @@
 #include "stack2.h"
 #include "sciprint.h"
 #include "cvstr.h"
+#include "localization.h"
 
 /* Table of constant values */
 
index 7e5b6de..d5f2929 100644 (file)
@@ -21,6 +21,7 @@
 #include "int2db.h"
 #include "rea2b.h"
 #include "Scierror.h"
+#include "localization.h"
 
 #ifdef _MSC_VER
 #define abs(x) ((x) >= 0 ? (x) : -(x)) /* pour abs  C2F(mvfromto) line 2689 */
index f9b2c16..09bf2d7 100644 (file)
@@ -12,6 +12,7 @@
 #include "stack3.h"
 #include "stack-c.h"
 #include "cvstr.h"
+#include "localization.h"
 #include "Scierror.h"
 
 extern int C2F(dmcopy)  __PARAMS((double *a, integer *na, double *b, integer *nb, integer *m, integer *n));
index 3a0099a..5489a8b 100644 (file)
@@ -8,6 +8,7 @@
 #include <stdio.h>
 #include "version.h"
 #include "scilabmode.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/ 
 void disp_scilab_version(void)
 {
index db53a9f..3cf79ec 100644 (file)
@@ -24,7 +24,7 @@ c     . locate the error in the current statement
         if(trace) call errloc(n)
 c     . output error message
         if(.not.trace) lct(1)=-1
-        call errmsgf(n,errtyp)
+        call errmsg(n,errtyp)
         lct(1)=0
       endif
 c
index ab2a709..a5c621d 100644 (file)
 #include "stack2.h"
 #include "hmops.h"
 #include "Scierror.h"
+#include "core_math.h"
 
-#ifdef _MSC_VER
-#undef min
-#undef max
-#endif
-#define min(a,b) ((a) < (b) ? (a) : (b))
-#define max(a,b) ((a) < (b) ? (b) : (a))
 #define sign(a) ((a) < 0 ? -1 : 1)
 
 #define SCI_REAL_OR_CMPLX 1
@@ -496,7 +491,7 @@ static int create_index_vector(int pos, int pos_ind, int *mn,
       else
        {
          *mn = (abs(ifin-ideb)+1)/abs(ipas);
-         *ind_max = max(ideb, ifin);
+         *ind_max = Max(ideb, ifin);
          li = 4; CreateVar(pos_ind,MATRIX_OF_VARIABLE_SIZE_INTEGER_DATATYPE, mn,   &one,   &li); ti = istk(li);
          ti[0] = ideb-1;  /* -1 to get 0-based indices */
          for ( k = 1 ; k < *mn ; k++ ) ti[k] = ti[k-1] + ipas;
index 92d63da..4f80650 100644 (file)
@@ -4,6 +4,7 @@
 /*-----------------------------------------------------------------------------------*/ 
 #include "machine.h" 
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/ 
 int C2F(gw_fftw)()
 {
index dad4099..6da3e7f 100644 (file)
@@ -12,6 +12,7 @@
 #include "warningmode.h"
 #include "sciprint.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_createdir) _PARAMS((char *fname,unsigned long l))
 {
index c75b48d..d79776d 100644 (file)
@@ -7,6 +7,7 @@
 #include "MALLOC.h"
 #include "Scierror.h"
 #include "deleteafile.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_deletefile) _PARAMS((char *fname,unsigned long fname_len))
 {
index 26bcc58..bcf13e5 100644 (file)
@@ -7,6 +7,7 @@
 #include "MALLOC.h"
 #include "Scierror.h"
 #include "FindFileExtension.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_fileext) _PARAMS((char *fname,unsigned long fname_len))
 {
index dbd44c7..3990a1a 100644 (file)
@@ -17,6 +17,7 @@
 #include "merror.h"
 #include "mtell.h"
 #include "mclearerr.h"
+#include "localization.h"
 #include "mget.h"
 #include "mgetstr.h"
 #include "Scierror.h"
index 87fc557..14c4e41 100644 (file)
@@ -6,6 +6,7 @@
 #include "findfiles.h"
 #include "stack-c.h"
 #include "MALLOC.h"
+#include "localization.h"
 #include "../../../core/src/c/scicurdir.h" /* C2F(scigetcwd) */
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
@@ -63,7 +64,7 @@ int C2F(sci_findfiles) _PARAMS((char *fname,unsigned long fname_len))
                        }
                        else
                        {
-                               Scierror(999,_("Invalid parameter , it must be a path (string).\n"));
+                               Scierror(999,_("Invalid parameter, it must be a path (string).\n"));
                                return 0;
                        }
 
@@ -84,7 +85,7 @@ int C2F(sci_findfiles) _PARAMS((char *fname,unsigned long fname_len))
                        }
                        else
                        {
-                               Scierror(999,_("Invalid parameter(s) , it must be a path and a filespec (string).\n"));
+                               Scierror(999,_("Invalid parameter(s), it must be a path and a filespec (string).\n"));
                                return 0;
                        }
                }
index dd644b0..6a4d59d 100644 (file)
@@ -8,6 +8,7 @@
 #include "gw_fileio.h"
 #include "fileio.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int int_objfprintfMat(char *fname,unsigned long fname_len)
 {
index fc0955f..26145de 100644 (file)
@@ -5,6 +5,7 @@
 #include "fileio.h"
 #include "gw_fileio.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 #define INFOSIZE 1024
 /*-----------------------------------------------------------------------------------*/
index e541b4e..574ab1b 100644 (file)
@@ -11,6 +11,7 @@
 #include "MALLOC.h"
 #include "machine.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 #ifndef _MSC_VER
 #define _fullpath(a,r,l)        realpath(r,a)
index 19952ec..4dba129 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_fileio.h"
 #include "stack-c.h"
 #include "getlongpathname.h"
+#include "localization.h"
 #include "MALLOC.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
index 289577b..abb4d42 100644 (file)
@@ -8,6 +8,7 @@
 #include "getshortpathname.h"
 #include "MALLOC.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_getshortpathname) _PARAMS((char *fname,unsigned long l))
 {
index fe9e8d5..506e6d9 100644 (file)
@@ -9,6 +9,7 @@
 #include "MALLOC.h"
 #include "cluni0.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_isdir) _PARAMS((char *fname,unsigned long fname_len))
 {
@@ -19,7 +20,7 @@ int C2F(sci_isdir) _PARAMS((char *fname,unsigned long fname_len))
        
        if (! (GetType(1) == sci_strings))
        {
-               Scierror(999,_("parameter incorrect must be a string (a file pathname).\n"));
+               Scierror(999,_("Parameter incorrect must be a string (a file pathname).\n"));
                return 0;
        }
        else
index c1eec24..9dc7365 100644 (file)
@@ -7,6 +7,7 @@
 #include "MALLOC.h"
 #include "Scierror.h"
 #include "filesmanagement.h"
+#include "localization.h"
 #include "sciprint.h"
 /*-----------------------------------------------------------------------------------*/
 #define MAX_FILES 100
index 9672485..f9742e1 100644 (file)
@@ -7,6 +7,7 @@
 #include "do_xxprintf.h"
 #include "gw_fileio.h"
 #include "filesmanagement.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/ 
 int int_objfprintf __PARAMS((char *fname,unsigned long fname_len))
 {
@@ -22,7 +23,7 @@ int int_objfprintf __PARAMS((char *fname,unsigned long fname_len))
        CheckLhs(0,1);
        if ( Rhs < 2 ) 
        { 
-               Scierror(999,_("Error:\tRhs must be >= 2\n"));
+               Scierror(999,_("Error:\tInput parameters (RHS) must be >= 2\n"));
                return 0;
        }
        for (k=3;k<=Rhs;k++) 
index 3266cc2..446649f 100644 (file)
@@ -10,6 +10,7 @@
 #include "gw_fileio.h"
 #include "filesmanagement.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int int_objfscanf(char *fname,unsigned long fname_len)
 {
index 9778d16..2498a6a 100644 (file)
@@ -6,6 +6,7 @@
 #include "stack-c.h"
 #include "do_xxprintf.h"
 #include "gw_fileio.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/ 
 int int_objprintf __PARAMS((char *fname,unsigned long fname_len))
 {
@@ -19,7 +20,7 @@ int int_objprintf __PARAMS((char *fname,unsigned long fname_len))
   CheckLhs(0,1);
   if ( Rhs < 1 ) 
   { 
-     Scierror(999,_("Error:\tRhs must be > 0\n"));
+     Scierror(999,_("Error:\tInput parameters (RHS) must be > 0\n"));
      return 0;
   }
 
index 7d98f04..91db93a 100644 (file)
@@ -8,6 +8,7 @@
 #include "do_xxscanf.h"
 #include "do_xxprintf.h"
 #include "gw_fileio.h"
+#include "localization.h"
 #include "../../../shell/includes/zzledt.h"
 /*-----------------------------------------------------------------------------------*/ 
 #define MAXSTR 512
index fdb859e..15409f2 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "do_xxprintf.h"
 #include "gw_fileio.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/ 
 int int_objsprintf(char *fname,unsigned long fname_len)
 {
@@ -25,7 +26,7 @@ int int_objsprintf(char *fname,unsigned long fname_len)
        CheckLhs(0,1);
        if ( Rhs < 1 ) 
        { 
-               Scierror(999,_("Error:\tRhs must be > 0\n"));
+               Scierror(999,_("Error:\tInput parameters (RHS) must be > 0\n"));
                return 0;
        }
        for (k=2;k<=Rhs;k++) {
index f449c15..a1622a4 100644 (file)
@@ -10,6 +10,7 @@
 #include "fileio.h"
 #include "gw_fileio.h"
 #include "Scierror.h"
+#include "localization.h"
 
 /*-----------------------------------------------------------------------------------*/
 int int_objsscanf __PARAMS((char *fname,unsigned long fname_len))
index dac9385..5024251 100644 (file)
@@ -10,6 +10,7 @@
 #include "isdir.h"
 #include "Scierror.h"
 #include "cluni0.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_removedir) _PARAMS((char *fname,unsigned long l))
 {      
index 9fac7ce..58321f9 100644 (file)
@@ -9,6 +9,7 @@
 #include "do_xxprintf.h"
 #include "Scierror.h"
 #include "sciprint.h"
+#include "localization.h"
 
 #ifdef _MSC_VER
 /* BUG 2582 */
index 067b30e..765f677 100644 (file)
@@ -7,6 +7,7 @@
 #include "MALLOC.h"
 #include "do_xxscanf.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "do_xxprintf.h"
 /*-----------------------------------------------------------------------------------*/ 
 typedef int (*XXSCANF) __PARAMS((FILE *, char *,...));
index 23da1db..91f5a19 100644 (file)
@@ -8,6 +8,7 @@
 #include "do_xxscanf.h"
 #include "fileio.h"
 #include "cvstr.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int NumTokens __PARAMS((char *string))
 {
index ceb2169..c1ef138 100644 (file)
@@ -8,6 +8,7 @@
 #include "delfile.h"
 #include "core_math.h" /* Min Max */
 #include "sciprint.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 void C2F(mclose) (integer *fd, double *res)
 {     
index 46c031b..7f5d40f 100644 (file)
@@ -9,6 +9,7 @@
 #include "sciprint.h"
 #include "islittleendian.h"
 #include "machine.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 struct soundstream ftf;
 int swap = 0;
index 4408aff..4a1f34b 100644 (file)
@@ -8,6 +8,7 @@
 #include "MALLOC.h"
 #include "sciprint.h"
 #include "machine.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 void C2F(mgetstr) (integer *fd, char **start, integer *n, integer *ierr)
 { 
index b1a166a..2c5db0d 100644 (file)
@@ -10,6 +10,7 @@
 #include "addfile.h"
 #include "sciprint.h"
 #include "machine.h"
+#include "localization.h"
 #include "warningmode.h"
 /*-----------------------------------------------------------------------------------*/
 extern int swap;
index 514b94e..09d2b19 100644 (file)
@@ -9,6 +9,7 @@
 #include "islittleendian.h"
 #include "../../../libs/libst/misc.h"
 #include "machine.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern struct soundstream ftf; /* defined in mget.c */
 extern int swap; /* defined in mget.c */
index c205328..72db628 100644 (file)
@@ -7,6 +7,7 @@
 #include "filesmanagement.h"
 #include "sciprint.h"
 #include "machine.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 void C2F(mputstr) (int *fd, char *str, double *res, int *ierr)
 {   
@@ -19,7 +20,7 @@ void C2F(mputstr) (int *fd, char *str, double *res, int *ierr)
        }
        else 
        {
-               fprintf(fa,"%s",str);
+               sprintf(fa,"%s",str);
                (*res) = (*ierr) =ferror(fa);
        }
 }
index 6197c56..8635eef 100644 (file)
@@ -7,6 +7,7 @@
 #include "mseek.h"
 #include "filesmanagement.h"
 #include "sciprint.h"
+#include "localization.h"
 #include "machine.h"
 /*-----------------------------------------------------------------------------------*/
 #if (defined(sun) && !defined(SYSV)) 
index 5c5ec6e..378c9e3 100644 (file)
@@ -7,6 +7,7 @@
 #include "filesmanagement.h"
 #include "sciprint.h"
 #include "machine.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 void C2F(mtell) (integer *fd, double *offset, integer *err)
 {     
index 9882f11..b1ae4d1 100644 (file)
@@ -9,6 +9,7 @@
 #include "stack-c.h"
 #include "HistoryManager.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_addhistory) _PARAMS((char *fname,unsigned long fname_len))
 {
index 81a7fe9..013cf10 100644 (file)
@@ -5,6 +5,7 @@
 #include "gw_history_manager.h"
 #include "machine.h"
 #include "stack-c.h"
+#include "localization.h"
 #include "MALLOC.h"
 #include "HistoryManager.h"
 /*-----------------------------------------------------------------------------------*/
index 3522341..8ef53ae 100644 (file)
@@ -9,6 +9,7 @@
 #include "stack-c.h"
 #include "HistoryManager.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_gethistoryfile) _PARAMS((char *fname,unsigned long fname_len))
 {
index 8a52f32..47d37da 100644 (file)
@@ -9,6 +9,7 @@
 #include "machine.h"
 #include "stack-c.h"
 #include "HistoryManager.h"
+#include "localization.h"
 #include "InitializeHistoryManager.h"
 #include "TerminateHistoryManager.h"
 #include "getCommentDateSession.h"
index d05aee9..5e0b07b 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_history_manager.h"
 #include "stack-c.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "HistoryManager.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_removelinehistory) _PARAMS((char *fname,unsigned long fname_len))
index 8b5eaa9..83b2057 100644 (file)
@@ -9,6 +9,7 @@
 #include "stack-c.h"
 #include "HistoryManager.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_saveafterncommands) _PARAMS((char *fname,unsigned long fname_len))
 {
index 65c0cbd..e1aad8c 100644 (file)
@@ -9,6 +9,7 @@
 #include "stack-c.h"
 #include "HistoryManager.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_saveconsecutivecommands) _PARAMS((char *fname,unsigned long fname_len))
 {
index 659b6ae..32f5952 100644 (file)
@@ -7,6 +7,7 @@
 #include <string.h> /* strlen */
 #include "getCommentDateSession.h"
 #include "MALLOC.h"
+#include "localization.h"
 /*------------------------------------------------------------------------*/
 #define string_begin_session _("// Begin Session : ")
 #define string_end_session   _("// End Session   : ")
index 8e0ebb6..0e79ad8 100644 (file)
@@ -1,14 +1,15 @@
 /* Copyright INRIA */
 #include <stdio.h>
 #include <string.h>
-
 #include <stdlib.h>
+
 #include "machine.h"
 #include "mgeti.h"
 #include "sciprint.h"
 #include "../../../../libs/libst/misc.h"
 #include "islittleendian.h"
 #include "filesmanagement.h"
+#include "localization.h"
 
 struct soundstream ftf;
 
index 9509d55..8601e9a 100644 (file)
@@ -1,14 +1,14 @@
 /* Copyright INRIA */
 #include <stdio.h>
 #include <string.h>
-
 #include <stdlib.h>
+
 #include "machine.h"
 #include "mputi.h"
-
 #include "../../../../libs/libst/misc.h"
 #include "sciprint.h"
 #include "filesmanagement.h"
+#include "localization.h"
 
 struct soundstream ftf;
 
index 58b35d5..3586a99 100644 (file)
@@ -11,6 +11,7 @@
 #include "interpolation.h"
 #include "MALLOC.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern double C2F(db3val)(double *xval, double *yval, double *zval, int *idx, int *idy, int *idz,
                   double *tx, double *ty, double *tz, int *nx, int *ny, int *nz,
index 97a958f..83b95f7 100644 (file)
@@ -9,6 +9,7 @@
 #include "gw_interpolation.h"
 #include "stack-c.h"
 #include "interpolation.h"
+#include "localization.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cshep2) (int *n, double *x, double *y, double *z, int *nc, int *nw,
index 3ce69ba..0d3c7db 100644 (file)
@@ -8,6 +8,7 @@
 #include "interpolation.h"
 #include "MALLOC.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern double C2F(cs2val)(double *px, double *py, int *n, double *x, double *y,double *f, int *nr, int *lcell, int *lnext, double *xmin, double *ymin,double *dx, double *dy, double *rmax, double *rw, double *a);
 extern int C2F(cs2grd) (double *px, double *py, int *n, double *x, double *y, double *f, int *nr, int *lcell, int *lnext,  double *xmin, double *ymin,double *dx, double *dy, double *rmax, double *rw, double *a,double *c, double *cx, double *cy, int *ier);
index f9ec104..5852176 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_interpolation.h"
 #include "stack-c.h"
 #include "interpolation.h"
+#include "localization.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(evalpwhermite) (double *t, double *st, double *dst, double *ddst, double *dddst,int *m, double *x, double *y, double *d, int *n, int *outmode);
index f741478..7bacf34 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_interpolation.h"
 #include "stack-c.h"
 #include "interpolation.h"
+#include "localization.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(bicubicinterp)(double *x, double *y, double *C, int *nx, int *ny,double *x_eval, double *y_eval, double *z_eval, int *m,int *outmode);
index a3f881c..7ceb9b3 100644 (file)
@@ -9,6 +9,7 @@
 #include "gw_interpolation.h"
 #include "stack-c.h"
 #include "interpolation.h"
+#include "localization.h"
 #include "MALLOC.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
index 80ee917..cebba39 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_interpolation.h"
 #include "stack-c.h"
 #include "interpolation.h"
+#include "localization.h"
 #include "someinterp.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
index 56e24bc..436eaf7 100644 (file)
@@ -8,6 +8,7 @@
 #include "interpolation.h"
 #include "sciprint.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(dset)();
 /* from dspfit.f */
index c7ede5d..0cf2af1 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_interpolation.h"
 #include "stack-c.h"
 #include "interpolation.h"
+#include "localization.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(derivd) (double *x, double *y, double *d, int *n, int *inc, int *type);
index 9f2a390..5b21be2 100644 (file)
@@ -9,6 +9,7 @@
 #include "gw_interpolation.h"
 #include "stack-c.h"
 #include "interpolation.h"
+#include "localization.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(bicubicsubspline)(double *x, double *y, double *z, int *nx, int *ny,double *C, double *p, double *q, double *r, int *spline_type);
index 352d228..b6ce598 100644 (file)
@@ -9,6 +9,7 @@
 #include "gw_interpolation.h"
 #include "stack-c.h"
 #include "interpolation.h"
+#include "localization.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(db3ink)();
index c198f46..e0e79a5 100644 (file)
@@ -14,6 +14,7 @@
 #include "stack-c.h"
 #include "getfastcode.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int good_order(double x[], int n)
 {
index 6414ec3..d60b895 100644 (file)
@@ -10,7 +10,7 @@
 #include "setenvc.h"
 #include "intsetenv.h"
 #include "gw_io.h"
-
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 static int ReturnValueSetenv(int value);
 /*-----------------------------------------------------------------------------------*/
index bb064ae..a43033b 100644 (file)
@@ -20,6 +20,7 @@
 #include "Scierror.h"
 #include "getfiledesc.h"
 #include "getfileinfo.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_get_absolute_file_path) _PARAMS((char *fname,unsigned long fname_len))
 {
index 93aa11a..635c7d0 100644 (file)
@@ -8,8 +8,7 @@
 #include "MALLOC.h"
 #include "sci_getrelativefilename.h"
 #include "machine.h"
- /*-----------------------------------------------------------------------------------*/
-#define MAX_FILENAME_LEN 512
+#include "localization.h"
  /*-----------------------------------------------------------------------------------*/
 /* ================================================================================== */
 // sci_getrelativefilename
@@ -53,14 +52,14 @@ int C2F(sci_getrelativefilename) _PARAMS((char *fname, unsigned long l))
                
                // make sure the names are not too long
                
-               if( strlen(param1) > MAX_FILENAME_LEN )
+               if( strlen(param1) > PATH_MAX )
                {
-                       Scierror(999,_("The first parameter is too long : must be less than %d caracters"),MAX_FILENAME_LEN);
+                       Scierror(999,_("The first parameter is too long : must be less than %d caracters"),PATH_MAX);
                }
                
-               if( strlen(param2) > MAX_FILENAME_LEN )
+               if( strlen(param2) > PATH_MAX )
                {
-                       Scierror(999,_("The second parameter is too long : must be less than %d caracters"),MAX_FILENAME_LEN);
+                       Scierror(999,_("The second parameter is too long : must be less than %d caracters"),PATH_MAX);
                }
                
                result = getrelativefilename(param1,param2);
@@ -89,7 +88,7 @@ char* getrelativefilename(char *currentDirectory, char *absoluteFilename)
        int cdLen = 0, afLen = 0;
        int i = 0;
        int levels = 0;
-       char *relativeFilename= (char*)MALLOC(MAX_FILENAME_LEN*sizeof(char));
+       char *relativeFilename= (char*)MALLOC(PATH_MAX*sizeof(char));
        
        cdLen = (int)strlen(currentDirectory);
        afLen = (int)strlen(absoluteFilename);
@@ -173,7 +172,7 @@ char* getrelativefilename(char *currentDirectory, char *absoluteFilename)
        }
        
        // check that the result will not be too long
-       if(levels * 3 + afLen - afMarker > MAX_FILENAME_LEN)
+       if(levels * 3 + afLen - afMarker > PATH_MAX)
        {
                return NULL;
        }
index b8c0699..aa63370 100644 (file)
@@ -5,6 +5,7 @@
 #include "gw_io.h"
 #include "stack-c.h"
 #include "systemc.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_host) _PARAMS((char *fname,unsigned long fname_len))
 {
@@ -20,7 +21,7 @@ int C2F(sci_host) _PARAMS((char *fname,unsigned long fname_len))
 
                if ( (m1 != 1) && (n1 != 1) )
                {
-                       Scierror(89,_("argument has incorrect dimensions.\n"));
+                       Scierror(89,_("Input argument has incorrect dimensions.\n"));
                        return 0;
                }
                else
@@ -39,7 +40,7 @@ int C2F(sci_host) _PARAMS((char *fname,unsigned long fname_len))
        }
        else
        {
-               Scierror(55,_("argument type must be a character string.\n"));
+               Scierror(55,_("Input argument type must be a character string.\n"));
        }
 
        return 0;
index 7342032..ecc2360 100644 (file)
@@ -12,6 +12,7 @@
 #include "sciprint.h"
 #include "stack-c.h"
 #include "cluni0.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int GetIndexLastModifiedFileInList(char **ListFilename,int numberelemnts);
 /*-----------------------------------------------------------------------------------*/
index a06f2f2..d4121b4 100644 (file)
@@ -9,6 +9,7 @@
 #endif
 #include <string.h> /* strlen */
 #include "getenvc.h"
+#include "localization.h"
 #include "sciprint.h"
 /*-----------------------------------------------------------------------------------*/
 void C2F(getenvc)(int *ierr,char *var,char *buf,int *buflen,int *iflag)
index 53c4868..d9d00fd 100644 (file)
@@ -7,6 +7,7 @@
 #include "with_java.h"
 #include "InitializeJVM.h"
 #include "TerminateJVM.h"
+#include "localization.h"
 
 /*-----------------------------------------------------------------------------------*/ 
 /* not using gw_jvm.h */
index 307eaf9..3a6a3a6 100644 (file)
@@ -1,5 +1,5 @@
 #include "stack-c.h"
-
+#include "core_math.h"
 /* [W,VS,A]=dgeesx(A)
 /* [W,VS]=dgeesx(A)
 /* [W]=dgeesx(A)
@@ -7,9 +7,6 @@
        WR, WI, VS, LDVS, RCONDE, RCONDV, WORK, LWORK,
        IWORK, LIWORK, BWORK, INFO ) */
 
-#define MAX(x,y)       (((x)>(y))?(x):(y))
-#define MIN(x,y)       (((x)<(y))?(x):(y))
-
 #ifdef WIN32
 int select()
 {
index f8c18bf..22b47e9 100644 (file)
@@ -1,4 +1,5 @@
 #include "stack-c.h"
+#include "core_math.h"
 /*      SUBROUTINE DGESVD( JOBU, JOBVT, M, N, A, LDA, S, U, LDU, VT, LDVT,
        $                   WORK, LWORK, INFO)   */
  
@@ -6,9 +7,6 @@
 /*     [U,s]=svd(A)         */
 /*       s = svd(A)         */
 
-#define MAX(x,y)       (((x)>(y))?(x):(y))
-#define MIN(x,y)       (((x)<(y))?(x):(y))
-
 int intdgesvd(fname)
      char* fname;
 { 
index 6e7bf29..525eec2 100644 (file)
@@ -1,9 +1,8 @@
 #include "stack-c.h"
+#include "core_math.h"
 /*      SUBROUTINE DSYEV( JOBZ, UPLO, N, A, LDA, W, WORK, LWORK, INFO ) */
 /*     [w,U]=dsyev(A)      */
 /*     w=dsyev(A)      */
-#define MAX(x,y)       (((x)>(y))?(x):(y))
-#define MIN(x,y)       (((x)<(y))?(x):(y))
 
 int intdsyev(fname)
      char* fname;
index 60892b6..7675011 100644 (file)
@@ -1,4 +1,5 @@
 #include "stack-c.h"
+#include "core_math.h"
 /*     [w,VS,A]=zgeesx(A)      */
 /*     [w,VS]=zgeesx(A)      */
 /*     w=zgeesx(A)      */
@@ -6,9 +7,6 @@
      $                   VS, LDVS, RCONDE, RCONDV, WORK, LWORK, RWORK,
      $                   BWORK, INFO )  */
 
-#define MAX(x,y)       (((x)>(y))?(x):(y))
-#define MIN(x,y)       (((x)<(y))?(x):(y))
-
 #ifdef WIN32
 int select()
 {
index 1abe0e6..73a59db 100644 (file)
@@ -4,7 +4,7 @@
 #include "stack-c.h"
 #include "gw_linear_algebra.h"
 #include "Scierror.h"
-
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 static integer cx1 = 1;
 static integer cx0 = 0;
index 67a417a..1f6e5d4 100644 (file)
@@ -1,17 +1,29 @@
 /**
  * INRIA 2007 
- * @author Sylvestre Ledru <sylvestre.ledru@inria.fr> - Rewrote using gettext
+ * @author Sylvestre Ledru <sylvestre.ledru@inria.fr>
  * Declaration of the basic localization methods
  */
 #ifndef __LOCALIZATION_H__
 #define __LOCALIZATION_H__
 /*-----------------------------------------------------------------------------------*/ 
-#ifndef _MSC_VER
+#include "machine.h" /* HAVE_LIBINTL_H */
+
+#ifdef HAVE_LIBINTL_H
+/* Have been able to find the libintl.h file on the system */
 #include <libintl.h>
-#include <locale.h>
 
 #define _(String) gettext (String)
 #define _t(String1,String2,n) ngettext (String1,String2,n)
+
+#else
+/* Restore the normal behaviour ... all the string will be in english */
+
+#define _(String) ((const char *) (String))
+#define gettext(String) ((const char *) (String))
+#define _t(String1,String2,n) ngettext (String1,String2,n)
+#define ngettext(String1, String2, n) ((n) == 1 ? (const char *) (String1) : (const char *) (String2))
+
 #endif
+
 #endif /* __LOCALIZATION_H__ */
 /*-----------------------------------------------------------------------------------*/ 
index ae85661..c2ea115 100644 (file)
@@ -1,4 +1,5 @@
 #include "connex.h"
+#include "localization.h"
 
 void C2F(concom)(int *icomp, int *n, int *ncomp, int *nsize, int **ns)
 {
index f9e68f7..9b5a2b3 100644 (file)
@@ -5,6 +5,7 @@ extern void cerro();
 
 #include "machine.h"
 #include "MALLOC.h"
+#include "localization.h"
 
 #ifdef _MSC_VER
 extern int F2C(arbor)();
index ad948c8..39f8d8f 100644 (file)
@@ -1,6 +1,7 @@
 #include "defs.h"
 #include "hashtable_metanet.h"
 #include "loadg.h"
+#include "localization.h"
 
 static int CompString(char **s1,char **s2)
 {
index ffca34a..c2c4a51 100644 (file)
@@ -3,8 +3,8 @@
 /* Allan CORNET */
 /*-----------------------------------------------------------------------------------*/ 
 #include "machine.h" 
-/*-----------------------------------------------------------------------------------*/ 
-extern int  Scierror __PARAMS((int iv,char *fmt,...));
+#include "localization.h"
+#include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/ 
 int C2F(gw_metanet)()
 {
index 0a90239..00f8cab 100644 (file)
@@ -1,12 +1,11 @@
 #include <stdio.h>
 #include <string.h>
 #include <stdlib.h>
-
+#include "localization.h"
 #include "MALLOC.h"
 #include "machine.h"
 #include "paths.h"
-
-extern void cerro __PARAMS((char *str));
+#include "cerro.h"
 
 static char str[80];
 
index 3de9549..bd7e813 100644 (file)
@@ -1,4 +1,5 @@
 #include "saveg.h"
+#include "localization.h"
 
 static int CompString(char **s1, char **s2)
 {
index 034fe51..602ac2c 100644 (file)
@@ -1,4 +1,5 @@
 #include "transc.h"
+#include "localization.h"
 
 void C2F(transc)(int *lp1,int **lpft,int *ls1,int **lsft,int *m,int *lsftdim,int *lpftdim,int *n)
 {
index 305eab3..469c768 100644 (file)
@@ -53,6 +53,7 @@
 #include "sciprint.h"
 #include "cerro.h"
 #include "erro.h"
+#include "localization.h"
 
 static char *the_current_mex_name;
 
index 1a33f6b..170035b 100644 (file)
@@ -3,10 +3,9 @@
 #define __SPD_H__
 
 #include "machine.h"
+#include "core_math.h"
 
 #define SQR(x) ((x)*(x))
-#define MAX(x,y)  ((x) > (y) ? (x) : (y))
-#define MIN(x,y)  ((x) < (y) ? (x) : (y))
 
 #define NB 32            /* block size for dgels */
 #define MINABSTOL 1e-8
index 8d70af5..e8a139e 100644 (file)
@@ -1,4 +1,5 @@
 #include "intqld.h"
+#include "localization.h"
 
 extern double C2F(dlamch)  __PARAMS((char *CMACH, unsigned long int));
 
index 2330b32..fffa532 100644 (file)
@@ -16,7 +16,7 @@
 #include <string.h>
 #include "spd.h"
 #include "sciprint.h"
-
+#include "localization.h"
 
 /*
  * if itype = 1, computes C = B*A*B', otherwise, computes C = B'*A*B
@@ -291,7 +291,7 @@ int sp(
     n     += blck_szs[i];
     sz    += blck_szs[i]*(blck_szs[i]+1)/2;
     up_sz += blck_szs[i]*blck_szs[i];
-    max_n  = MAX(max_n, blck_szs[i]);
+    max_n  = Max(max_n, blck_szs[i]);
  }
  if (m > sz){
      sciprint(_("The matrices Fi, i=1,...,m are linearly dependent.\n"));
@@ -342,7 +342,7 @@ int sp(
 
  /* check lwork */
  minlwork = (m+2)*sz + up_sz + 2*n +
-            MAX( MAX( m+sz, 3*max_n + max_n*(max_n+1) ), 3*m );
+            Max( Max( m+sz, 3*max_n + max_n*(max_n+1) ), 3*m );
  if (lwork < minlwork){
     sciprint("Work space is too small.  Need at least\
  %d*sizeof(double).\n", minlwork);
@@ -444,7 +444,7 @@ int sp(
 
     }
     sciprint("% 13.2e % 12.2e %10.2e\n", ul[0], ul[1], gap);
-    if (gap <= MAX(abstol, MINABSTOL))  *info = 2;
+    if (gap <= Max(abstol, MINABSTOL))  *info = 2;
     else if ( (ul[1] > 0.0 && gap <= reltol*ul[1]) ||
               (ul[0] < 0.0 && gap <= reltol*(-ul[0])) ) *info = 3;
     else if ( reltol < 0.0 && ul[0] <= tv ) *info = 4;
@@ -610,7 +610,7 @@ int sp(
     }
     nrmx = F2C(dnrm2)(&n, sigx, &int1);        /* norm of scaled dx */
     nrmz = F2C(dnrm2)(&n, sigz, &int1);        /* norm of scaled dZ */
-    nrmmax = MAX( nrmx, nrmz);
+    nrmmax = Max( nrmx, nrmz);
 
     XdZ = inprd(F,dZ,L,blck_szs);          /* Tr F0*dZ */
     ZdX = F2C(ddot)(&m, c, &int1, dx, &int1);  /* c^T*dx */
@@ -639,7 +639,7 @@ int sp(
     newu = ul[0] + alphax*ZdX;
     newl = ul[1] - alphaz*XdZ;
 
-    if (newgap <= MAX(abstol, MINABSTOL))  *info = 2;
+    if (newgap <= Max(abstol, MINABSTOL))  *info = 2;
     else if ( (newl > 0.0 && newgap <= reltol*newl) ||
               (newu < 0.0 && newgap <= -reltol*newu) ) *info = 3;
     else if ( reltol < 0.0 && newu <= tv ) *info = 4;
index 6745748..3b391be 100644 (file)
@@ -52,7 +52,7 @@ sci_gateway/c/sci_pvm_exit.c
 
 MODULE_CHECKS = pvm.tst
 
-libscipvm_la_CFLAGS=  -Iincludes/ -I$(top_srcdir)/libs/MALLOC/includes/ -Isrc/c/
+libscipvm_la_CFLAGS=  -Iincludes/ -I$(top_srcdir)/libs/MALLOC/includes/ -Isrc/c/ 
 
 pkglib_LTLIBRARIES = libscipvm.la
 
@@ -100,6 +100,8 @@ libscipvm_la_SOURCES = $(PVM_C_SOURCES)
 libscipvm_la_LIBADD = \
        $(top_builddir)/modules/core/libscicore.la
 
+libscipvm_la_CFLAGS=-I$(top_srcdir)/modules/output_stream/includes/
+
 modulename=pvm
 
 #### pvm : init scripts #### 
index dbb0cb7..89fa0f3 100644 (file)
@@ -412,7 +412,8 @@ top_srcdir = @top_srcdir@
 @PVM_TRUE@sci_gateway/c/sci_pvm_exit.c
 
 @PVM_TRUE@MODULE_CHECKS = pvm.tst
-@PVM_TRUE@libscipvm_la_CFLAGS = -Iincludes/ -I$(top_srcdir)/libs/MALLOC/includes/ -Isrc/c/
+@PVM_FALSE@libscipvm_la_CFLAGS = -I$(top_srcdir)/modules/output_stream/includes/
+@PVM_TRUE@libscipvm_la_CFLAGS = -Iincludes/ -I$(top_srcdir)/libs/MALLOC/includes/ -Isrc/c/ 
 @PVM_FALSE@pkglib_LTLIBRARIES = libscipvm.la
 @PVM_TRUE@pkglib_LTLIBRARIES = libscipvm.la
 @PVM_FALSE@libscipvm_la_SOURCES = $(PVM_C_SOURCES) 
index ff2f564..2c2e860 100644 (file)
@@ -3,8 +3,8 @@
 /* Allan CORNET */
 /*-----------------------------------------------------------------------------------*/ 
 #include "machine.h" 
-/*-----------------------------------------------------------------------------------*/ 
-extern int  Scierror __PARAMS((int iv,char *fmt,...));
+#include "localization.h"
+#include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/ 
 int C2F(gw_pvm)()
 {
index f45d4c8..483a036 100644 (file)
@@ -7,11 +7,12 @@
  *
  --------------------------------------------------------------------------*/
 #include <string.h>
+#include <math.h>
 #ifdef _MSC_VER
 #include <Windows.h>
 #include "MALLOC.h"
 #endif
-
+#include "localization.h"
 #include "stack-c.h"
 
 /** external functions to be called through this interface **/
@@ -19,7 +20,6 @@
 #include "grand.h"
 #include "clcg4.h"
 #include "others_generators.h"
-#include <math.h>
 #include "sciprint.h"
 #include "Scierror.h"
 #include "gw_randlib.h"
index 7ca0021..0df9092 100644 (file)
@@ -27,8 +27,9 @@
  *
  */
 
-#include "machine.h" 
 #include <math.h>
+#include "machine.h" 
+#include "localization.h"
 #include "sciprint.h"
 #include "others_generators.h"
 
index 8e841bd..eb0bfdd 100644 (file)
@@ -5,6 +5,7 @@
 #include "machine.h" 
 #include "norenderer.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/ 
 int C2F(gw_renderer)()
 {
index fd7ac11..e6b425f 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "clc.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "sciprint.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_clc) _PARAMS((char *fname,unsigned long fname_len))
index d176099..775e320 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "scilines.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "MALLOC.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_lines) _PARAMS((char *fname,unsigned long fname_len))
index 3b4fff2..c8cd6e8 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_shell.h"
 #include "machine.h"
 #include "stack-c.h"
+#include "localization.h"
 #include "tohome.h"
 #include "sciprint.h"
 /*-----------------------------------------------------------------------------------*/
@@ -20,7 +21,7 @@ int C2F(sci_tohome) _PARAMS((char *fname,unsigned long fname_len))
 
        if (!bOK)
        {
-               sciprint(_("not implemented in this mode.\n"));
+               sciprint(_("Not implemented in this mode.\n"));
        }
 
        LhsVar(1) = 0;
index 7a4179d..ed79833 100644 (file)
@@ -5,6 +5,7 @@
 #include <stdio.h>
 #include "more.h"
 #include "scilabmode.h"
+#include "localization.h"
 #include "sciprint.h"
 #include "../../../console/includes/GetCharWithoutOutput.h"
 #include "../../../console/includes/ConsolePrintf.h"
index 34b5f8b..a68de82 100644 (file)
@@ -9,6 +9,7 @@
 #include <unistd.h>
 #include <ctype.h>
 #include "GetCharWithEventsLoop.h"
+#include "localization.h"
 #include "sciprint.h"
 #include "MALLOC.h"
 #include "core_math.h" /* Max */
index 5be1971..7cee330 100644 (file)
@@ -10,6 +10,7 @@
 #include <stdio.h>
 #include <ctype.h>
 
+#include "localization.h"
 #include "scilabmode.h"
 #include "machine.h" 
 #include "sciprint.h"
index 5f05276..da9b317 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "cluni0.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 static char filename[PATH_MAX];
 static int out_n;
index d7bb6c7..c1fd416 100644 (file)
@@ -6,6 +6,7 @@
 #include "stack-c.h"
 #include "MALLOC.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 static int BeepON=1;
 /*-----------------------------------------------------------------------------------*/
index 2568657..c79793d 100644 (file)
@@ -20,6 +20,7 @@
 #include "st.h"
 #include "../../../libs/libst/libst.h"
 #include "sciprint.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/ 
 extern char *sizes[];
 extern char *styles[];
index 5e49771..857b37b 100644 (file)
 #include "machine.h"
 #include "sox.h" 
 #include "sciprint.h"
+#include "localization.h"
+#include "core_math.h"
 /*-----------------------------------------------------------------------------------*/ 
 extern char *sizes[];
 extern char *styles[];
 /*-----------------------------------------------------------------------------------*/ 
-#define Abs(x) ( ( (x) >= 0) ? (x) : -( x) )
-#define Min(x,y) ( ( (x) < (y))  ? (x) : (y) )
 struct soundstream informat;
 ft_t ft;
 /*-----------------------------------------------------------------------------------*/ 
index 6b48b72..6ee4241 100644 (file)
@@ -34,6 +34,7 @@
 #include "sciprint.h"
 #include "sizes.h"
 #include "styles.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/ 
 /* Private data for .wav file */
 typedef struct wavstuff 
index 30010d8..51e0b1e 100644 (file)
@@ -2,8 +2,6 @@
 #define __SP_H__
 
 #define SQR(x) ((x)*(x))
-#define MAX(x,y)  ((x) > (y) ? (x) : (y))
-#define MIN(x,y)  ((x) < (y) ? (x) : (y))
 
 #define NB 32            /* block size for dgels */
 #define MINABSTOL 1e-8 
index c70ea35..69e3525 100644 (file)
@@ -1,6 +1,6 @@
 #ifndef __SPDEFS_H__
 #define __SPDEFS_H__
-
+#include "core_math.h"
 /*
  *  DATA STRUCTURE AND MACRO DEFINITIONS for Sparse.
  *
 #define  IS_FACTORED(matrix)    ((matrix)->Factored && !(matrix)->NeedsOrdering)
 
 /* Macro commands */
-/* Macro functions that return the maximum or minimum independent of type. */
-#define  MAX(a,b)           ((a) > (b) ? (a) : (b))
-#define  MIN(a,b)           ((a) < (b) ? (a) : (b))
-
-/* Macro function that returns the absolute value of a floating point number. */
-#define  ABS(a)             ((a) < 0.0 ? -(a) : (a))
-
 /* Macro function that returns the square of a number. */
 #define  SQR(a)             ((a)*(a))
 
 
 /* Macro function that returns the approx absolute value of a complex number. */
 #if spCOMPLEX
-#define  ELEMENT_MAG(ptr)   (ABS((ptr)->Real) + ABS((ptr)->Imag))
+#define  ELEMENT_MAG(ptr)   (Abs((ptr)->Real) + Abs((ptr)->Imag))
 #else
 #define  ELEMENT_MAG(ptr)   ((ptr)->Real < 0.0 ? -(ptr)->Real : (ptr)->Real)
 #endif
 }
 
 /* Macro that returns the approx magnitude (L-1 norm) of a complex number. */
-#define  CMPLX_1_NORM(a)        (ABS((a).Real) + ABS((a).Imag))
+#define  CMPLX_1_NORM(a)        (Abs((a).Real) + Abs((a).Imag))
 
 /* Macro that returns the approx magnitude (L-infinity norm) of a complex. */
-#define  CMPLX_INF_NORM(a)      (MAX (ABS((a).Real),ABS((a).Imag)))
+#define  CMPLX_INF_NORM(a)      (Max (Abs((a).Real),Abs((a).Imag)))
 
 /* Macro function that returns the magnitude (L-2 norm) of a complex number. */
 #define  CMPLX_2_NORM(a)        (sqrt((a).Real*(a).Real + (a).Imag*(a).Imag))
index cc761f3..55303fe 100644 (file)
@@ -35,6 +35,7 @@
 
 #include "cerro.h"
 #include "machine.h"
+#include "localization.h"
 
 /*
  *
index b804c7e..b7f3bab 100644 (file)
@@ -139,7 +139,7 @@ int  AllocatedSize;
 #endif
 
 /* Create Matrix. */
-    AllocatedSize = MAX( Size, MINIMUM_ALLOCATED_SIZE );
+    AllocatedSize = Max( Size, MINIMUM_ALLOCATED_SIZE );
     SizePlusOne = (unsigned)(AllocatedSize + 1);
 
     if ((Matrix = SPALLOC(struct MatrixFrame, 1)) == NULL)
index e30b08a..9a77fa4 100644 (file)
@@ -200,7 +200,7 @@ ElementPtr spcFindElementInCol();
 #if EXPANDABLE
 /* Re-size Matrix if necessary. */
     if ((Row > Matrix->Size) OR (Col > Matrix->Size))
-        EnlargeMatrix( Matrix, MAX(Row, Col) );
+        EnlargeMatrix( Matrix, Max(Row, Col) );
     if (Matrix->Error == spNO_MEMORY) return NULL;
 #endif
 #endif
@@ -345,13 +345,13 @@ register int IntRow, IntCol, ExtRow, ExtCol;
     if ((ExtRow > Matrix->AllocatedExtSize) OR
         (ExtCol > Matrix->AllocatedExtSize))
     {
-        ExpandTranslationArrays( Matrix, MAX(ExtRow, ExtCol) );
+        ExpandTranslationArrays( Matrix, Max(ExtRow, ExtCol) );
         if (Matrix->Error == spNO_MEMORY) return;
     }
 
 /* Set ExtSize if necessary. */
     if ((ExtRow > Matrix->ExtSize) OR (ExtCol > Matrix->ExtSize))
-        Matrix->ExtSize = MAX(ExtRow, ExtCol);
+        Matrix->ExtSize = Max(ExtRow, ExtCol);
 
 /* Translate external row or node number to internal row or node number. */
     if ((IntRow = Matrix->ExtToIntRowMap[ExtRow]) == -1)
@@ -840,7 +840,7 @@ register int I, OldAllocatedSize = Matrix->AllocatedSize;
         return 0;
 
 /* Expand the matrix frame. */
-    NewSize = (int) MAX( NewSize, EXPANSION_FACTOR * OldAllocatedSize );
+    NewSize = (int) Max( NewSize, EXPANSION_FACTOR * OldAllocatedSize );
     Matrix->AllocatedSize = NewSize;
 
     if (( SPREALLOC(Matrix->IntToExtColMap, int, NewSize+1)) == NULL)
@@ -926,7 +926,7 @@ register int I, OldAllocatedSize = Matrix->AllocatedExtSize;
         return 0;
 
 /* Expand the translation arrays ExtToIntRowMap and ExtToIntColMap. */
-    NewSize = (int) MAX( NewSize, EXPANSION_FACTOR * OldAllocatedSize );
+    NewSize = (int) Max( NewSize, EXPANSION_FACTOR * OldAllocatedSize );
     Matrix->AllocatedExtSize = NewSize;
 
     if (( SPREALLOC(Matrix->ExtToIntRowMap, int, NewSize+1)) == NULL)
index 029cedf..41c3403 100644 (file)
@@ -1382,7 +1382,7 @@ RealNumber  FindBiggestInColExclude();
  * off diagonals are placed symmetricly. */
             if (pOtherInRow != NULL  AND  pOtherInCol != NULL)
             {   if (pOtherInRow->Col == pOtherInCol->Row)
-                {   LargestOffDiagonal = MAX(ELEMENT_MAG(pOtherInRow),
+                {   LargestOffDiagonal = Max(ELEMENT_MAG(pOtherInRow),
                                                       ELEMENT_MAG(pOtherInCol));
                     if (Magnitude >= LargestOffDiagonal)
                     {
@@ -1572,7 +1572,7 @@ RealNumber  FindBiggestInColExclude();
  * off-diagonals are placed symmetricly. */
             if (pOtherInRow != NULL  AND  pOtherInCol != NULL)
             {   if (pOtherInRow->Col == pOtherInCol->Row)
-                {   LargestOffDiagonal = MAX(ELEMENT_MAG(pOtherInRow),
+                {   LargestOffDiagonal = Max(ELEMENT_MAG(pOtherInRow),
                                                       ELEMENT_MAG(pOtherInCol));
                     if (Magnitude >= LargestOffDiagonal)
                     {
@@ -2646,7 +2646,7 @@ register  ElementPtr  pLower, pUpper;
 /* Begin `RealRowColElimination'. */
 
 /* Test for zero pivot. */
-    if (ABS(pPivot->Real) == 0.0)
+    if (Abs(pPivot->Real) == 0.0)
     {   (void)MatrixIsSingular( Matrix, pPivot->Row );
         return 0; 
     }
index f67a0dd..a858114 100644 (file)
@@ -37,7 +37,7 @@
 #include <stdio.h>
 #include "spmalloc.h"
 #include "machine.h"
-
+#include "localization.h"
 /*
  *  IMPORTS
  *
@@ -722,7 +722,7 @@ FILE  *pStatsFile, *fopen();
         }
     }
 
-    SmallestElement = MIN( SmallestElement, LargestElement );
+    SmallestElement = Min( SmallestElement, LargestElement );
 
 /* Output remaining statistics. */
     fprintf(pStatsFile, _("     Initial number of elements = %d\n"),
index 3a423c1..79f9947 100644 (file)
@@ -229,12 +229,12 @@ ElementPtr pTwin1, pTwin2;
 
     pTwin1 = Matrix->FirstInCol[Col];
     while (pTwin1 != NULL)
-    {   if (ABS(pTwin1->Real) == 1.0)
+    {   if (Abs(pTwin1->Real) == 1.0)
         {   Row = pTwin1->Row;
             pTwin2 = Matrix->FirstInCol[Row];
             while ((pTwin2 != NULL) AND (pTwin2->Row != Col))
                 pTwin2 = pTwin2->NextInCol;
-            if ((pTwin2 != NULL) AND (ABS(pTwin2->Real) == 1.0))
+            if ((pTwin2 != NULL) AND (Abs(pTwin2->Real) == 1.0))
             {   /* Found symmetric twins. */
                 if (++Twins >= 2) return Twins;
                 (*ppTwin1 = pTwin1)->Col = Col;
@@ -908,7 +908,7 @@ register int I, Size;
 RealNumber Norm, nr, ni;
 ComplexNumber Pivot, cDeterminant;
 
-#define  NORM(a)     (nr = ABS((a).Real), ni = ABS((a).Imag), MAX (nr,ni))
+#define  NORM(a)     (nr = Abs((a).Real), ni = Abs((a).Imag), Max(nr,ni))
 
 /* Begin `spDeterminant'. */
     ASSERT( IS_SPARSE( Matrix ) AND IS_FACTORED(Matrix) );
@@ -987,11 +987,11 @@ ComplexNumber Pivot, cDeterminant;
 
 /* Scale Determinant. */
             if (*pDeterminant != 0.0)
-            {   while (ABS(*pDeterminant) >= 1.0e12)
+            {   while (Abs(*pDeterminant) >= 1.0e12)
                 {   *pDeterminant *= 1.0e-12;
                     *pExponent += 12;
                 }
-                while (ABS(*pDeterminant) < 1.0e-12)
+                while (Abs(*pDeterminant) < 1.0e-12)
                 {   *pDeterminant *= 1.0e12;
                     *pExponent -= 12;
                 }
@@ -1000,11 +1000,11 @@ ComplexNumber Pivot, cDeterminant;
 
 /* Scale Determinant again, this time to be between 1.0 <= x < 10.0. */
         if (*pDeterminant != 0.0)
-        {   while (ABS(*pDeterminant) >= 10.0)
+        {   while (Abs(*pDeterminant) >= 10.0)
             {   *pDeterminant *= 0.1;
                 (*pExponent)++;
             }
-            while (ABS(*pDeterminant) < 1.0)
+            while (Abs(*pDeterminant) < 1.0)
             {   *pDeterminant *= 10.0;
                 (*pExponent)--;
             }
@@ -1391,16 +1391,16 @@ RealNumber Linpack, OLeary, InvNormOfInverse;
     {   pPivot = Matrix->Diag[I];
         if (T[I] < 0.0) Em = -E; else Em = E;
         Wm = (Em + T[I]) * pPivot->Real;
-        if (ABS(Wm) > SLACK)
-        {   ScaleFactor = 1.0 / MAX( SQR( SLACK ), ABS(Wm) );
+        if (Abs(Wm) > SLACK)
+        {   ScaleFactor = 1.0 / Max( SQR( SLACK ), Abs(Wm) );
             for (K = Size; K > 0; K--) T[K] *= ScaleFactor;
             E *= ScaleFactor;
             Em *= ScaleFactor;
             Wm = (Em + T[I]) * pPivot->Real;
         }
         Wp = (T[I] - Em) * pPivot->Real;
-        ASp = ABS(T[I] - Em);
-        ASm = ABS(Em + T[I]);
+        ASp = Abs(T[I] - Em);
+        ASm = Abs(Em + T[I]);
 
 /* Update T for both values of W, minus value is placed in Tm. */
         pElement = pPivot->NextInCol;
@@ -1408,8 +1408,8 @@ RealNumber Linpack, OLeary, InvNormOfInverse;
         {   Row = pElement->Row;
             Tm[Row] = T[Row] - (Wm * pElement->Real);
             T[Row] -= (Wp * pElement->Real);
-            ASp += ABS(T[Row]);
-            ASm += ABS(Tm[Row]);
+            ASp += Abs(T[Row]);
+            ASm += Abs(Tm[Row]);
             pElement = pElement->NextInCol;
         }
 
@@ -1426,7 +1426,7 @@ RealNumber Linpack, OLeary, InvNormOfInverse;
     }
 
 /* Compute 1-norm of T, which now contains w, and scale ||T|| to 1/SLACK. */
-    for (ASw = 0.0, I = Size; I > 0; I--) ASw += ABS(T[I]);
+    for (ASw = 0.0, I = Size; I > 0; I--) ASw += Abs(T[I]);
     ScaleFactor = 1.0 / (SLACK * ASw);
     if (ScaleFactor < 0.5)
     {   for (I = Size; I > 0; I--) T[I] *= ScaleFactor;
@@ -1440,15 +1440,15 @@ RealNumber Linpack, OLeary, InvNormOfInverse;
         {   T[I] -= pElement->Real * T[pElement->Col];
             pElement = pElement->NextInRow;
         }
-        if (ABS(T[I]) > SLACK)
-        {   ScaleFactor = 1.0 / MAX( SQR( SLACK ), ABS(T[I]) );
+        if (Abs(T[I]) > SLACK)
+        {   ScaleFactor = 1.0 / Max( SQR( SLACK ), Abs(T[I]) );
             for (K = Size; K > 0; K--) T[K] *= ScaleFactor;
             E *= ScaleFactor;
         }
     }
 
 /* Compute 1-norm of T, which now contains y, and scale ||T|| to 1/SLACK. */
-    for (ASy = 0.0, I = Size; I > 0; I--) ASy += ABS(T[I]);
+    for (ASy = 0.0, I = Size; I > 0; I--) ASy += Abs(T[I]);
     ScaleFactor = 1.0 / (SLACK * ASy);
     if (ScaleFactor < 0.5)
     {   for (I = Size; I > 0; I--) T[I] *= ScaleFactor;
@@ -1458,7 +1458,7 @@ RealNumber Linpack, OLeary, InvNormOfInverse;
 
 /* Compute infinity-norm of T for O'Leary's estimate. */
     for (MaxY = 0.0, I = Size; I > 0; I--)
-        if (MaxY < ABS(T[I])) MaxY = ABS(T[I]);
+        if (MaxY < Abs(T[I])) MaxY = Abs(T[I]);
 
 /*
  * Part 2.  A* z = y where the * represents the transpose.
@@ -1472,15 +1472,15 @@ RealNumber Linpack, OLeary, InvNormOfInverse;
         {   T[pElement->Col] -= T[I] * pElement->Real;
             pElement = pElement->NextInRow;
         }
-        if (ABS(T[I]) > SLACK)
-        {   ScaleFactor = 1.0 / MAX( SQR( SLACK ), ABS(T[I]) );
+        if (Abs(T[I]) > SLACK)
+        {   ScaleFactor = 1.0 / Max( SQR( SLACK ), Abs(T[I]) );
             for (K = Size; K > 0; K--) T[K] *= ScaleFactor;
             ASy *= ScaleFactor;
         }
     }
 
 /* Compute 1-norm of T, which now contains v, and scale ||T|| to 1/SLACK. */
-    for (ASv = 0.0, I = Size; I > 0; I--) ASv += ABS(T[I]);
+    for (ASv = 0.0, I = Size; I > 0; I--) ASv += Abs(T[I]);
     ScaleFactor = 1.0 / (SLACK * ASv);
     if (ScaleFactor < 0.5)
     {   for (I = Size; I > 0; I--) T[I] *= ScaleFactor;
@@ -1496,15 +1496,15 @@ RealNumber Linpack, OLeary, InvNormOfInverse;
             pElement = pElement->NextInCol;
         }
         T[I] *= pPivot->Real;
-        if (ABS(T[I]) > SLACK)
-        {   ScaleFactor = 1.0 / MAX( SQR( SLACK ), ABS(T[I]) );
+        if (Abs(T[I]) > SLACK)
+        {   ScaleFactor = 1.0 / Max( SQR( SLACK ), Abs(T[I]) );
             for (K = Size; K > 0; K--) T[K] *= ScaleFactor;
             ASy *= ScaleFactor;
         }
     }
 
 /* Compute 1-norm of T, which now contains z. */
-    for (ASz = 0.0, I = Size; I > 0; I--) ASz += ABS(T[I]);
+    for (ASz = 0.0, I = Size; I > 0; I--) ASz += Abs(T[I]);
 
 #if NOT spCOMPLEX
     SPFREE( Tm );
@@ -1512,7 +1512,7 @@ RealNumber Linpack, OLeary, InvNormOfInverse;
 
     Linpack = ASy / ASz;
     OLeary = E / MaxY;
-    InvNormOfInverse = MIN( Linpack, OLeary );
+    InvNormOfInverse = Min( Linpack, OLeary );
     return InvNormOfInverse / NormOfMatrix;
 #endif /* REAL */
 }
@@ -1579,7 +1579,7 @@ ComplexNumber Wp, Wm;
         ASm = CMPLX_1_NORM( Wm );
         CMPLX_MULT_ASSIGN( Wm, *pPivot );
         if (CMPLX_1_NORM(Wm) > SLACK)
-        {   ScaleFactor = 1.0 / MAX( SQR( SLACK ), CMPLX_1_NORM(Wm) );
+        {   ScaleFactor = 1.0 / Max( SQR( SLACK ), CMPLX_1_NORM(Wm) );
             for (K = Size; K > 0; K--) SCLR_MULT_ASSIGN( T[K], ScaleFactor );
             E *= ScaleFactor;
             Em *= ScaleFactor;
@@ -1633,7 +1633,7 @@ ComplexNumber Wp, Wm;
             pElement = pElement->NextInRow;
         }
         if (CMPLX_1_NORM(T[I]) > SLACK)
-        {   ScaleFactor = 1.0 / MAX( SQR( SLACK ), CMPLX_1_NORM(T[I]) );
+        {   ScaleFactor = 1.0 / Max( SQR( SLACK ), CMPLX_1_NORM(T[I]) );
             for (K = Size; K > 0; K--) SCLR_MULT_ASSIGN( T[K], ScaleFactor );
             E *= ScaleFactor;
         }
@@ -1666,7 +1666,7 @@ ComplexNumber Wp, Wm;
             pElement = pElement->NextInRow;
         }
         if (CMPLX_1_NORM(T[I]) > SLACK)
-        {   ScaleFactor = 1.0 / MAX( SQR( SLACK ), CMPLX_1_NORM(T[I]) );
+        {   ScaleFactor = 1.0 / Max( SQR( SLACK ), CMPLX_1_NORM(T[I]) );
             for (K = Size; K > 0; K--) SCLR_MULT_ASSIGN( T[K], ScaleFactor );
             ASy *= ScaleFactor;
         }
@@ -1691,7 +1691,7 @@ ComplexNumber Wp, Wm;
         }
         CMPLX_MULT_ASSIGN( T[I], *pPivot );
         if (CMPLX_1_NORM(T[I]) > SLACK)
-        {   ScaleFactor = 1.0 / MAX( SQR( SLACK ), CMPLX_1_NORM(T[I]) );
+        {   ScaleFactor = 1.0 / Max( SQR( SLACK ), CMPLX_1_NORM(T[I]) );
             for (K = Size; K > 0; K--) SCLR_MULT_ASSIGN( T[K], ScaleFactor );
             ASy *= ScaleFactor;
         }
@@ -1704,7 +1704,7 @@ ComplexNumber Wp, Wm;
 
     Linpack = ASy / ASz;
     OLeary = E / MaxY;
-    InvNormOfInverse = MIN( Linpack, OLeary );
+    InvNormOfInverse = Min( Linpack, OLeary );
     return InvNormOfInverse / NormOfMatrix;
 }
 #endif /* spCOMPLEX */
@@ -1746,7 +1746,7 @@ RealNumber Max = 0.0, AbsRowSum;
         {   pElement = Matrix->FirstInRow[I];
             AbsRowSum = 0.0;
             while (pElement != NULL)
-            {   AbsRowSum += ABS( pElement->Real );
+            {   AbsRowSum += Abs( pElement->Real );
                 pElement = pElement->NextInRow;
             }
             if (Max < AbsRowSum) Max = AbsRowSum;
@@ -1862,11 +1862,11 @@ register ElementPtr pElement, pDiag;
 
 /* Lower triangular matrix. */
             Pivot = 1.0 / pDiag->Real;
-            Mag = ABS( Pivot );
+            Mag = Abs( Pivot );
             if (Mag > MaxRow) MaxRow = Mag;
             pElement = Matrix->FirstInRow[I];
             while (pElement != pDiag)
-            {   Mag = ABS( pElement->Real );
+            {   Mag = Abs( pElement->Real );
                 if (Mag > MaxRow) MaxRow = Mag;
                 pElement = pElement->NextInRow;
             }
@@ -1875,7 +1875,7 @@ register ElementPtr pElement, pDiag;
             pElement = Matrix->FirstInCol[I];
             AbsColSum = 1.0;  /* Diagonal of U is unity. */
             while (pElement != pDiag)
-            {   AbsColSum += ABS( pElement->Real );
+            {   AbsColSum += Abs( pElement->Real );
                 pElement = pElement->NextInCol;
             }
             if (AbsColSum > MaxCol) MaxCol = AbsColSum;
@@ -1885,7 +1885,7 @@ register ElementPtr pElement, pDiag;
     {   for (I = 1; I <= Matrix->Size; I++)
         {   pElement = Matrix->FirstInCol[I];
             while (pElement != NULL)
-            {   Mag = ABS( pElement->Real );
+            {   Mag = Abs( pElement->Real );
                 if (Mag > Max) Max = Mag;
                 pElement = pElement->NextInCol;
             }
index f22b232..7aaa879 100644 (file)
@@ -5,6 +5,7 @@
 #include "stack-c.h"
 #include "gw_special_functions2.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern double F2C(dgammacody)(double *);
 extern double F2C(betaln)(double *, double *);
index 73d9aa5..10ba2d6 100644 (file)
@@ -2,11 +2,12 @@
 /* INRIA */
 /*-----------------------------------------------------------------------------------*/
 #include <string.h>
-#include "gw_special_functions2.h"
 #ifdef _MSC_VER
        #include <Windows.h>
 #endif
+#include "gw_special_functions2.h"
 #include "stack-c.h"
+#include "localization.h"
 #include "Scierror.h"
 /*-----------------------------------------------------------------------------------*/
 extern void C2F(dxlegf)(double *dnu1, int *nudiff, int *mu1, int *mu2, double *x,int *id, double *pqa, int *ipqa, int *ierror);
index d44c47c..089225d 100644 (file)
 #include "MALLOC.h"
 #include "../../../fileio/includes/mopen.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "GetenvB.h"
 #include "tmpdir.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 static char *xls_basename (char *name);
 /*-----------------------------------------------------------------------------------*/
index 553b4e9..e37530b 100644 (file)
@@ -10,6 +10,7 @@
 #include "gw_spreadsheet.h"
 #include "xls.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "MALLOC.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_xls_read) _PARAMS((char *fname,unsigned long fname_len))
index 3abad76..59897d0 100644 (file)
@@ -12,6 +12,7 @@
 #include <stdarg.h>
 #include <ctype.h>
 
+#include "localization.h"
 #include "logger.h"
 #include "machine.h"
 #include "MALLOC.h"
index b3f98ed..3213a87 100644 (file)
@@ -16,6 +16,7 @@
 #include "olestream-unwrap.h"
 #include "ole.h"
 #include "machine.h"
+#include "localization.h"
 
 /** Sector ID values (predefined) **/
 #define OLE_SECTORID_FREE      -1 /** Unallocated sector **/
index c8f8093..5e99280 100644 (file)
@@ -6,15 +6,14 @@
 
 #include "logger.h"
 #include "pldstr.h"
-
 #include "bytedecoders.h"
 #include "olestream-unwrap.h"
 #include "machine.h"
+#include "localization.h"
+#include "MALLOC.h"
 
 #define DUW if (oleuw->debug)
 
-#include "MALLOC.h"
-
 struct OLE10_header{
        unsigned char data[6];
        char *attach_name;
index 807fee0..f63f87b 100644 (file)
@@ -10,8 +10,8 @@
 #include "logger.h"
 #include "pldstr.h"
 #include "machine.h"
-
 #include "MALLOC.h"
+#include "localization.h"
 
 #ifdef _MSC_VER
        #define vsnprintf _vsnprintf
index 5f9fdde..6b1c681 100644 (file)
@@ -11,6 +11,7 @@
 #include "ole.h"
 #include "ripole.h"
 #include "machine.h"
+#include "localization.h"
 
 #undef WITHMAIN
 
index d3160c0..6bc3ef2 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "CdfBase.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cdfbet) __PARAMS((int *,double *,double *,double *,double *,double *,double *, int *,double *));
 /*-----------------------------------------------------------------------------------*/
index 61921fb..30a6373 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "CdfBase.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cdfbin) __PARAMS((int *,double *,double *,double *,double *,double *,double *, int *,double *));
 /*-----------------------------------------------------------------------------------*/
index 636b104..5727a89 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "CdfBase.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cdfchi) __PARAMS((int *,double *,double *,double *,double *, int *,double *));
 /*-----------------------------------------------------------------------------------*/
index db9f2e0..2950aec 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "CdfBase.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cdfchn) __PARAMS((int *,double *,double *,double*,double *,double *, int *,double *));
 /*-----------------------------------------------------------------------------------*/
index 0ab99fe..303e027 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "CdfBase.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cdff) __PARAMS((int *,double *,double *,double*,double *,double *, int *,double *));
 /*-----------------------------------------------------------------------------------*/
index 7388cb6..e87f5d8 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "CdfBase.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cdffnc) __PARAMS((int *,double *,double *,double *,double *,double *,double *, int *,double *));
 /*-----------------------------------------------------------------------------------*/
index 8703067..72c4b76 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "CdfBase.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cdfgam) __PARAMS((int *,double *,double *,double*,double *,double *, int *,double *));
 /*-----------------------------------------------------------------------------------*/
index 9468a3b..1c9a9ea 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "CdfBase.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cdfnbn) __PARAMS((int *,double *,double *,double *,double *,double *,double *, int *,double *));
 /*-----------------------------------------------------------------------------------*/
index e002c5c..19f07ef 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "CdfBase.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cdfnor) __PARAMS((int *,double *,double *,double*,double *,double *, int *,double *));
 /*-----------------------------------------------------------------------------------*/
index 87c3a4a..bf36070 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "CdfBase.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cdfpoi) __PARAMS((int *,double *,double *,double *,double *, int *,double *));
 /*-----------------------------------------------------------------------------------*/
index f066267..3e8440b 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "CdfBase.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern int C2F(cdft) __PARAMS((int *,double *,double *,double *,double *, int *,double *));
 /*-----------------------------------------------------------------------------------*/
index e894da5..7a65012 100644 (file)
@@ -6,6 +6,7 @@
 #include "stack-c.h"
 #include "CdfBase.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int  CdfBase(char *fname,int inarg,int oarg,int *callpos,char *option,char *errnames,int which,int (*fonc)(),void (*foncErr)() )
 {
index ca46012..70272b2 100644 (file)
@@ -7,6 +7,7 @@
 #include "stack-c.h"
 #include "callFunctionFromGateway.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 static gw_generic_table Tab[]=
 {
@@ -21,7 +22,7 @@ int C2F(gw_symbolic)()
 {
        if (Rhs != 2)
        {
-               Scierror(39,_("incorrect number of arguments.\n"));
+               Scierror(39,_("Incorrect number of input arguments.\n"));
                return 0;
        }
        callFunctionFromGateway(Tab);
index 77e8da2..036a150 100644 (file)
@@ -5,6 +5,7 @@
 #include <string.h>
 #include "sciprint.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "gw_tclsci.h"
 #include "stack-c.h"
 #include "inisci-c.h"
index 8ff2e96..f36686f 100644 (file)
@@ -5,6 +5,7 @@
 #include "TCL_Global.h"
 #include "gw_tclsci.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_TCL_CreateSlave) _PARAMS((char *fname,unsigned long l))
 {
index 304f66b..02a1004 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_tclsci.h"
 #include "InitTclTk.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_TCL_DeleteInterp) _PARAMS((char *fname,unsigned long l))
 {
index 7f17b11..54f50ef 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_tclsci.h"
 #include "sciprint.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 extern BOOL FileExist(char *filename); /* From module fileio */
 /*-----------------------------------------------------------------------------------*/
index 1652f56..2fb264a 100644 (file)
@@ -5,6 +5,7 @@
 #include "TCL_Global.h"
 #include "gw_tclsci.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_TCL_EvalStr) _PARAMS((char *fname,unsigned long l))
 { 
index 2826beb..68bdd07 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_tclsci.h"
 #include "TCL_ArrayExist.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_TCL_ExistArray) _PARAMS((char *fname,unsigned long l))
 {
index 3d34068..9aaba57 100644 (file)
@@ -5,6 +5,7 @@
 #include "TCL_Global.h"
 #include "gw_tclsci.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_TCL_ExistInterp) _PARAMS((char *fname,unsigned long l))
 {
index 11ba586..4591431 100644 (file)
@@ -5,6 +5,7 @@
 #include "TCL_Global.h"
 #include "gw_tclsci.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_TCL_ExistVar) _PARAMS((char *fname,unsigned long l))
 {
index f3ba8de..f8b269b 100644 (file)
@@ -7,6 +7,7 @@
 #include "TCL_Global.h"
 #include "gw_tclsci.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "TCL_ArrayExist.h"
 #include "TCL_ArrayDim.h"
 #include "TCL_ArrayGetVar.h"
index 377ced7..9cb90bd 100644 (file)
@@ -5,6 +5,7 @@
 #include "TCL_Global.h"
 #include "gw_tclsci.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "../../localization/includes/localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_TCL_GetVersion) _PARAMS((char *fname,unsigned long l))
index 3e87f83..3b22a5a 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_tclsci.h"
 #include "setvar.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_TCL_SetVar) _PARAMS((char *fname,unsigned long l))
 {
index 2ef7196..66f6bd6 100644 (file)
@@ -5,6 +5,7 @@
 #include "TCL_Global.h"
 #include "gw_tclsci.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_TCL_UnsetVar) _PARAMS((char *fname,unsigned long l))
 {
index 9a63eb2..6716b4c 100644 (file)
@@ -5,6 +5,7 @@
 #include "TCL_Global.h"
 #include "gw_tclsci.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_TCL_UpVar) _PARAMS((char *fname,unsigned long l))
 {
index 520eb08..d1ad00b 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_tclsci.h"
 #include "TclEvents.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int GetTclCurrentFigure(void);
 int SetTclCurrentFigure(int num);
index 06bc8c5..a09a802 100644 (file)
@@ -6,6 +6,7 @@
 #include "gw_tclsci.h"
 #include "sciprint.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_close) _PARAMS((char *fname,unsigned long l))
 {
index 6b4989f..b9c7fe5 100644 (file)
@@ -5,6 +5,7 @@
 #include "TCL_Global.h"
 #include "gw_tclsci.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_findobj) _PARAMS((char *fname,unsigned long l))
 {
index 97c4512..2e2f6b6 100644 (file)
@@ -7,6 +7,7 @@
 #include "TclEvents.h"
 #include "TclUiGet.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_TCL_get) _PARAMS((char *fname,unsigned long l))
 {
index 10fae38..3c9945d 100644 (file)
@@ -7,6 +7,7 @@
 #include "TclUiSet.h" /* InterfaceScilabToUiSet */
 #include "TclEvents.h" /* flushTKEvents */
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_TCL_set) _PARAMS((char *fname,unsigned long l))
 {
index 864391c..808044e 100644 (file)
@@ -11,6 +11,7 @@
 #include "setgetSCIpath.h"
 #include "sciprint.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "scilabmode.h"
 #include "ScilabEval.h"
 /*-----------------------------------------------------------------------------------*/
index eb2a008..d7cdb32 100644 (file)
@@ -6,6 +6,7 @@
 #include "ScilabEval.h"
 #include "sciprint.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "tksynchro.h"
 #include "../../localization/includes/localization.h"
 #include "syncexec.h"
index cbdd886..de0296d 100644 (file)
@@ -5,6 +5,7 @@
 #include <string.h>
 #include "TCL_ArrayDim.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 #define TCL_SCILAB_VARIABLE_TMP "TclScilabTmpVar"
 #define CHAR_BLANK ' '
index b4d1be7..36668a6 100644 (file)
@@ -4,6 +4,7 @@
 /*-----------------------------------------------------------------------------------*/
 #include "TCL_ArrayExist.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 #define TCL_VAR_NAME_TMP "TclScilabTmpVar"
 /*-----------------------------------------------------------------------------------*/
index a946050..ec77cf6 100644 (file)
@@ -6,6 +6,7 @@
 #include <string.h>
 #include "TCL_ArraySize.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "MALLOC.h"
 /*-----------------------------------------------------------------------------------*/
 int TCL_ArraySize(Tcl_Interp *TCLinterpreter,char *VarName)
index 0682579..2489e56 100644 (file)
@@ -7,6 +7,7 @@
 #include "TCL_ArrayGetVar.h"
 #include "TCL_ArrayDim.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "../../gui/includes/GetScreenProperty.h"
 #include "MALLOC.h"
 /*-----------------------------------------------------------------------------------*/
index a1e7048..508e8e9 100644 (file)
@@ -4,6 +4,7 @@
 /*-----------------------------------------------------------------------------------*/
 #include "TclUiSet.h"
 #include "Scierror.h"
+#include "localization.h"
 #include "setvar.h"
 /*-----------------------------------------------------------------------------------*/
 #define NBRSTYLE 9
index 2241a51..fff9769 100644 (file)
@@ -5,6 +5,7 @@
 #include "setvar.h"
 #include "MALLOC.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 BOOL SetVarMatrix(Tcl_Interp *TCLinterpreter,char *VarName,int ptrValues,int m,int n)
 {
index 61a2c37..4a9f9fc 100644 (file)
@@ -7,6 +7,7 @@
 #include "TCL_Global.h"
 #include "tksynchro.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 void C2F(tksynchro)( int *l)
 {
index 1515c2f..ff0dc10 100644 (file)
@@ -7,11 +7,12 @@
 #include "Scierror.h"
 #include "IsAScalar.h"
 #include "InversionMatrixInt.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
-static int isBissextile (unsigned annee);
-static unsigned months_to_days (unsigned mois);
-static long years_to_days (unsigned annee);
-static long ymd_to_scalar (unsigned annee, unsigned mois, unsigned jour);
+static int isBissextile (unsigned year);
+static unsigned months_to_days (unsigned month);
+static long years_to_days (unsigned year);
+static long ymd_to_scalar (unsigned year, unsigned month, unsigned day);
 /*-----------------------------------------------------------------------------------*/
 #define NBRDAY 7
 #define NBRWEEK 6
@@ -93,29 +94,29 @@ int C2F(sci_calendar) _PARAMS((char *fname,unsigned long fname_len))
        return 0;
 }
 /*-----------------------------------------------------------------------------------*/
-static int isBissextile (unsigned annee)
+static int isBissextile (unsigned year)
 {
-    return annee % 400 == 0 || (annee % 4 == 0 && annee % 100 != 0);
+    return year % 400 == 0 || (year % 4 == 0 && year % 100 != 0);
 }
 /*-----------------------------------------------------------------------------------*/
-static unsigned months_to_days (unsigned mois)
+static unsigned months_to_days (unsigned month)
 {
-    return (mois * 3057 - 3007) / 100;
+    return (month * 3057 - 3007) / 100;
 }
 /*-----------------------------------------------------------------------------------*/
-static long years_to_days (unsigned annee)
+static long years_to_days (unsigned year)
 {
-    return annee * 365L + annee / 4 - annee / 100 + annee / 400;
+    return year * 365L + year / 4 - year / 100 + year / 400;
 }
 /*-----------------------------------------------------------------------------------*/
-static long ymd_to_scalar (unsigned annee, unsigned mois, unsigned jour)
+static long ymd_to_scalar (unsigned year, unsigned month, unsigned day)
 {
     long scalaire;
-    scalaire = jour + months_to_days(mois);
-    if ( mois > 2 )                      
-    scalaire -= isBissextile(annee) ? 1 : 2;
-    annee--;
-    scalaire += years_to_days(annee);
+    scalaire = day + months_to_days(month);
+    if ( month > 2 )                      
+    scalaire -= isBissextile(year) ? 1 : 2;
+    year--;
+    scalaire += years_to_days(year);
     return scalaire;
 }
 /*-----------------------------------------------------------------------------------*/
index ccceb5f..9a98450 100644 (file)
@@ -18,6 +18,7 @@
 #include "getdate.h"
 #include "InversionMatrixInt.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 int C2F(sci_getdate) _PARAMS((char *fname,unsigned long fname_len))
 {
index d7179d8..349c2e9 100644 (file)
@@ -4,6 +4,7 @@
 /*-----------------------------------------------------------------------------------*/ 
 #include "sci_sleep.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/ 
 int C2F(sci_sleep) _PARAMS((char *fname,unsigned long fname_len))
 {
index 5e18402..e54644e 100644 (file)
@@ -2,11 +2,12 @@
 /* INRIA 2006 */
 /* Allan CORNET */
 /*-----------------------------------------------------------------------------------*/ 
-#include "sci_xpause.h"
 #ifdef HAVE_USLEEP
 #include <unistd.h>
 #endif
+#include "sci_xpause.h"
 #include "Scierror.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/ 
 int C2F(sci_xpause) _PARAMS((char *fname,unsigned long fname_len))
 {
index 30b52ad..669d13d 100644 (file)
@@ -7,6 +7,7 @@
 #include "getdate.h"
 #include "machine.h"
 #include "sciprint.h"
+#include "localization.h"
 /*-----------------------------------------------------------------------------------*/
 #define ISO_WEEK_START_WDAY 1 /* Monday */
 #define ISO_WEEK1_WDAY 4 /* Thursday */