Set svn:eol-style to native
Pierre Marechal [Mon, 11 Jun 2007 07:04:22 +0000 (07:04 +0000)]
252 files changed:
scilab/contrib/toolboxe_skeleton/sci_gateway/sci_fsum.c
scilab/contrib/toolboxe_skeleton/src/builder.sce
scilab/contrib/toolboxe_skeleton/src/fortran/fsum.f
scilab/etc/classpath.xml
scilab/etc/librarypath.xml
scilab/etc/modules.xml
scilab/etc/toolboxes.xml
scilab/libs/dynamiclibrary/Makefile.am
scilab/libs/dynamiclibrary/dynamiclibrary.vcproj
scilab/libs/dynamiclibrary/includes/dynamiclibrary.h
scilab/libs/dynamiclibrary/includes/dynamiclibrary_others.h
scilab/libs/dynamiclibrary/includes/dynamiclibrary_windows.h
scilab/libs/dynamiclibrary/src/dynamiclibrary_others.c
scilab/libs/dynamiclibrary/src/dynamiclibrary_windows.c
scilab/modules/core/help/en_US/islittleendian.xml
scilab/modules/core/includes/filesmanagement.h
scilab/modules/core/includes/getcommandlineargs.h
scilab/modules/core/includes/islittleendian.h
scilab/modules/core/macros/check_modules_xml.sci
scilab/modules/core/sci_gateway/c/sci_getscilabmode.c
scilab/modules/core/sci_gateway/c/sci_islittleendian.c
scilab/modules/core/src/c/expr.c
scilab/modules/core/src/c/expr.h
scilab/modules/core/src/c/filesmanagement.c
scilab/modules/core/src/c/getcommandlineargs.c
scilab/modules/core/src/c/ifexpr.c
scilab/modules/core/src/c/ifexpr.h
scilab/modules/core/src/c/islittleendian.c
scilab/modules/core/src/c/terme.c
scilab/modules/core/src/c/terme.h
scilab/modules/core/xml/modules.dtd
scilab/modules/elementaries_functions/src/c/scidcopy.c
scilab/modules/elementaries_functions/src/c/unsfdcopy.c
scilab/modules/fftw/includes/with_fftw.h
scilab/modules/fftw/src/c/with_fftw.c
scilab/modules/fileio/LibScilab_Import.def
scilab/modules/fileio/fileio_header.def
scilab/modules/fileio/help/en_US/deletefile.xml
scilab/modules/fileio/help/en_US/findfiles.xml
scilab/modules/fileio/help/en_US/fullpath.xml
scilab/modules/fileio/help/en_US/getdrives.xml
scilab/modules/fileio/help/en_US/maxfiles.xml
scilab/modules/fileio/includes/addfile.h
scilab/modules/fileio/includes/delfile.h
scilab/modules/fileio/includes/diary.h
scilab/modules/fileio/includes/getfiledesc.h
scilab/modules/fileio/includes/getfileinfo.h
scilab/modules/fileio/includes/getfiletype.h
scilab/modules/fileio/includes/mclose.h
scilab/modules/fileio/includes/mget.h
scilab/modules/fileio/includes/mput.h
scilab/modules/fileio/includes/mseek.h
scilab/modules/fileio/sci_gateway/c/sci_deletefile.c
scilab/modules/fileio/sci_gateway/c/sci_findfiles.c
scilab/modules/fileio/sci_gateway/c/sci_fullpath.c
scilab/modules/fileio/sci_gateway/c/sci_getdrives.c
scilab/modules/fileio/sci_gateway/c/sci_maxfiles.c
scilab/modules/fileio/src/c/Status2Mode.c
scilab/modules/fileio/src/c/Status2Mode.h
scilab/modules/fileio/src/c/addfile.c
scilab/modules/fileio/src/c/deleteafile.c
scilab/modules/fileio/src/c/deleteafile.h
scilab/modules/fileio/src/c/delfile.c
scilab/modules/fileio/src/c/diary.c
scilab/modules/fileio/src/c/findfiles.c
scilab/modules/fileio/src/c/findfiles.h
scilab/modules/fileio/src/c/getdrives.c
scilab/modules/fileio/src/c/getdrives.h
scilab/modules/fileio/src/c/getfiledesc.c
scilab/modules/fileio/src/c/getfileinfo.c
scilab/modules/fileio/src/c/getfiletype.c
scilab/modules/fileio/src/c/mclearerr.c
scilab/modules/fileio/src/c/mclearerr.h
scilab/modules/fileio/src/c/mclose.c
scilab/modules/fileio/src/c/meof.c
scilab/modules/fileio/src/c/meof.h
scilab/modules/fileio/src/c/merror.c
scilab/modules/fileio/src/c/merror.h
scilab/modules/fileio/src/c/mget.c
scilab/modules/fileio/src/c/mgetstr.c
scilab/modules/fileio/src/c/mgetstr.h
scilab/modules/fileio/src/c/mopen.c
scilab/modules/fileio/src/c/mopen.h
scilab/modules/fileio/src/c/mput.c
scilab/modules/fileio/src/c/mputstr.c
scilab/modules/fileio/src/c/mputstr.h
scilab/modules/fileio/src/c/mseek.c
scilab/modules/fileio/src/c/mtell.c
scilab/modules/fileio/src/c/mtell.h
scilab/modules/fileio/src/c/readline.c
scilab/modules/fileio/src/c/readline.h
scilab/modules/fileio/src/c/resource.h
scilab/modules/graphics/LibScilab_Import.def
scilab/modules/graphics/build.xml
scilab/modules/graphics/graphics_header.def
scilab/modules/graphics/src/cpp/LibScilab_Import.def
scilab/modules/graphics/src/cpp/graphics_Import.def
scilab/modules/graphics/src/cpp/resource.h
scilab/modules/graphics/src/cpp/scirenderer.def
scilab/modules/graphics/src/cpp/scirenderer.vcproj
scilab/modules/graphics/src/java/graphics-JAVA.vcproj
scilab/modules/graphics/src/nographics/LibScilab_Import.def
scilab/modules/graphics/src/nographics/nographics.c
scilab/modules/graphics/src/nographics/nographics.vcproj
scilab/modules/graphics/src/nographics/nographics_header.def
scilab/modules/graphics/src/nographics/resource.h
scilab/modules/gui/build.xml
scilab/modules/gui/help/en_US/getinstalledlookandfeels.xml
scilab/modules/gui/help/en_US/getlookandfeel.xml
scilab/modules/gui/help/en_US/setlookandfeel.xml
scilab/modules/gui/includes/IsConsoleMode.h
scilab/modules/gui/includes/IsNoInteractiveWindow.h
scilab/modules/gui/sci_gateway/c/sci_getinstalledlookandfeels.c
scilab/modules/gui/sci_gateway/c/sci_getlookandfeel.c
scilab/modules/gui/sci_gateway/c/sci_setlookandfeel.c
scilab/modules/gui/src/c/getinstalledlookandfeels.c
scilab/modules/gui/src/c/getinstalledlookandfeels.h
scilab/modules/gui/src/c/getlookandfeel.c
scilab/modules/gui/src/c/getlookandfeel.h
scilab/modules/gui/src/c/setlookandfeel.c
scilab/modules/gui/src/c/setlookandfeel.h
scilab/modules/gui/src/c/wsci/ChangeCursor.c
scilab/modules/gui/src/c/wsci/CleanLine.c
scilab/modules/gui/src/c/wsci/SendChar.c
scilab/modules/gui/src/c/wsci/SetTextAttr.c
scilab/modules/gui/src/c/xsci/IsConsoleMode.c
scilab/modules/gui/src/c/xsci/IsConsoleMode.h
scilab/modules/gui/src/java/gui-JAVA.vcproj
scilab/modules/javasci/build.xml
scilab/modules/javasci/examples/ihm/build.xml
scilab/modules/javasci/examples/others/Examples.bat
scilab/modules/javasci/examples/others/build.xml
scilab/modules/javasci/src/java/javasci-JAVA.vcproj
scilab/modules/javasci/src/java/javasci/BadDataArgumentException.java
scilab/modules/javasci/src/java/javasci/ClassPath.java
scilab/modules/javasci/src/java/javasci/LibraryPath.java
scilab/modules/javasci/src/java/javasci/SciAbstractArray.java
scilab/modules/javasci/src/java/javasci/SciAbstractDataType.java
scilab/modules/javasci/src/java/javasci/SciBoolean.java
scilab/modules/javasci/src/java/javasci/SciBooleanArray.java
scilab/modules/javasci/src/java/javasci/SciComplex.java
scilab/modules/javasci/src/java/javasci/SciComplexArray.java
scilab/modules/javasci/src/java/javasci/SciDouble.java
scilab/modules/javasci/src/java/javasci/SciDoubleArray.java
scilab/modules/javasci/src/java/javasci/SciString.java
scilab/modules/javasci/src/java/javasci/SciStringArray.java
scilab/modules/javasci/src/java/javasci/Scilab.java
scilab/modules/jvm/LibScilab_Import.def
scilab/modules/jvm/build.xml
scilab/modules/jvm/help/en_US/jre_path.xml
scilab/modules/jvm/includes/TerminateJVM.h
scilab/modules/jvm/includes/addToClasspath.h
scilab/modules/jvm/includes/addToLibrarypath.h
scilab/modules/jvm/includes/getScilabJNIEnv.h
scilab/modules/jvm/includes/getScilabJavaVM.h
scilab/modules/jvm/includes/getScilabObject.h
scilab/modules/jvm/includes/gw_jvm.h
scilab/modules/jvm/jvm_header.def
scilab/modules/jvm/libjvm.vcproj
scilab/modules/jvm/macros/check_classpath.sci
scilab/modules/jvm/macros/check_librarypath.sci
scilab/modules/jvm/macros/jre_path.sci
scilab/modules/jvm/macros/ver.sci
scilab/modules/jvm/sci_gateway/c/gw_jvm.c
scilab/modules/jvm/sci_gateway/c/sci_javaclasspath.c
scilab/modules/jvm/sci_gateway/c/sci_javalibrarypath.c
scilab/modules/jvm/sci_gateway/c/sci_jvm_version.c
scilab/modules/jvm/sci_gateway/c/sci_system_getproperty.c
scilab/modules/jvm/sci_gateway/c/sci_with_embedded_jre.c
scilab/modules/jvm/sci_gateway/jvm_gateway.xml
scilab/modules/jvm/src/c/JVM.c
scilab/modules/jvm/src/c/JVM.h
scilab/modules/jvm/src/c/JVM_commons.c
scilab/modules/jvm/src/c/JVM_commons.h
scilab/modules/jvm/src/c/JVM_functions.h
scilab/modules/jvm/src/c/TerminateJVM.c
scilab/modules/jvm/src/c/addToClasspath.c
scilab/modules/jvm/src/c/addToLibrarypath.c
scilab/modules/jvm/src/c/createMainScilabObject.c
scilab/modules/jvm/src/c/createMainScilabObject.h
scilab/modules/jvm/src/c/getClasspath.c
scilab/modules/jvm/src/c/getClasspath.h
scilab/modules/jvm/src/c/getLibrarypath.c
scilab/modules/jvm/src/c/getLibrarypath.h
scilab/modules/jvm/src/c/loadClasspath.c
scilab/modules/jvm/src/c/loadClasspath.h
scilab/modules/jvm/src/c/loadLibrarypath.c
scilab/modules/jvm/src/c/loadLibrarypath.h
scilab/modules/jvm/src/c/resource.h
scilab/modules/jvm/src/c/system_getproperty.c
scilab/modules/jvm/src/c/system_getproperty.h
scilab/modules/jvm/src/c/with_java.c
scilab/modules/jvm/src/c/with_java.h
scilab/modules/jvm/src/java/jvm-JAVA.vcproj
scilab/modules/jvm/src/java/org/scilab/modules/jvm/ClassPath.java
scilab/modules/jvm/src/java/org/scilab/modules/jvm/LibraryPath.java
scilab/modules/jvm/src/java/org/scilab/modules/jvm/Scilab.java
scilab/modules/jvm/src/nojvm/nojvm.c
scilab/modules/jvm/xml/classpath.dtd
scilab/modules/jvm/xml/librarypath.dtd
scilab/modules/localization/build.xml
scilab/modules/localization/help/en_US/getlanguage.xml
scilab/modules/localization/help/en_US/getlanguagestable.xml
scilab/modules/localization/src/c/org_scilab_modules_localization_QueryString.c
scilab/modules/localization/src/c/org_scilab_modules_localization_QueryString.h
scilab/modules/localization/src/java/localization-JAVA.vcproj
scilab/modules/localization/src/java/org/scilab/modules/localization/QueryString.java
scilab/modules/pvm/includes/with_pvm.h
scilab/modules/pvm/src/c/with_pvm.c
scilab/modules/pvm/src/nopvm/LibScilab_Import.def
scilab/modules/pvm/src/nopvm/nopvm.c
scilab/modules/pvm/src/nopvm/nopvm.vcproj
scilab/modules/pvm/src/nopvm/nopvm_header.def
scilab/modules/pvm/src/nopvm/resource.h
scilab/modules/shell/build.xml
scilab/modules/shell/etc/shell.quit
scilab/modules/shell/etc/shell.start
scilab/modules/shell/help/en_US/addchapter.sce
scilab/modules/shell/help/en_US/removechapter.sce
scilab/modules/shell/includes/gw_shell.h
scilab/modules/shell/languages/en_US/errors.xml
scilab/modules/shell/languages/en_US/menus.xml
scilab/modules/shell/languages/en_US/messages.xml
scilab/modules/shell/macros/buildmacros.sce
scilab/modules/shell/sci_gateway/c/gw_shell.c
scilab/modules/shell/sci_gateway/shell_gateway.xml
scilab/modules/shell/shell.iss
scilab/modules/shell/src/c/LibScilab_Import.def
scilab/modules/shell/src/c/ShellPrintf.c
scilab/modules/shell/src/c/ShellPrintf_nojava.c
scilab/modules/shell/src/c/command.h
scilab/modules/shell/src/c/command_Windows.c
scilab/modules/shell/src/c/history.c
scilab/modules/shell/src/c/history.h
scilab/modules/shell/src/c/libjvm_Import.def
scilab/modules/shell/src/c/readline_Windows.c
scilab/modules/shell/src/c/readshell.c
scilab/modules/shell/src/c/readwindows.c
scilab/modules/shell/src/c/resource.h
scilab/modules/shell/src/c/shell.vcproj
scilab/modules/shell/src/c/shell_header.def
scilab/modules/shell/src/c/x_zzledt_Windows.c
scilab/modules/shell/src/c/zzledt_Linux.c
scilab/modules/shell/src/java/org/scilab/modules/shell/ScilabShell.java
scilab/modules/shell/src/java/shell-JAVA.vcproj
scilab/modules/shell/version.xml
scilab/modules/string_V2/sci_gateway/c/sci_code2str1.c
scilab/modules/string_V2/sci_gateway/c/sci_str2code1.c
scilab/modules/string_V2/sci_gateway/c/sci_strsplit1.c
scilab/modules/tclsci/graphics_Import.def
scilab/modules/tclsci/includes/withtk.h
scilab/modules/tclsci/src/c/withtk.c

index e7ae9ce..4e696d0 100644 (file)
@@ -1,43 +1,43 @@
-/**********************************************************/\r
-#include "stack-c.h" \r
-/**********************************************************/\r
-extern int F2C(fsum)(double *a,double *b,double *c);\r
-/**********************************************************/\r
-sci_fsum(char *fname)\r
-{\r
-  int l1, m1, n1, l2, m2, n2, m3, n3,l3;\r
-\r
-  double a,b,c;\r
-  \r
-  a=0;\r
-  b=0;\r
-  c=0;\r
-\r
-  /* --> result = fortransum(3,8)\r
-  /* check that we have only 2 parameters input */\r
-  /* check that we have only 1 parameters output */\r
-  CheckRhs(2,2) ;\r
-  CheckLhs(1,1) ;   \r
-\r
-  /* get first parameter and put in 'a' */\r
-  GetRhsVar(1, "d", &m1, &n1, &l1);\r
-  a = *stk(l1);\r
-  \r
-  /* get second parameter and put in 'a' */\r
-  GetRhsVar(2, "d", &m2, &n2, &l2);\r
-  b= *stk(l2) ;\r
\r
-  /* call fortran fsum subroutine */\r
-  F2C(fsum)(&a,&b,&c);\r
-  \r
-  /* create a variable on scilab's stack */\r
-  m3=1;\r
-  n3=1;\r
-  CreateVar(Rhs+1,"d",&m3,&n3,&l3);\r
-  *stk(l3) = c;\r
-\r
-  LhsVar(1) = Rhs+1; \r
-  \r
-  return 0;\r
-}\r
-/**********************************************************/\r
+/**********************************************************/
+#include "stack-c.h" 
+/**********************************************************/
+extern int F2C(fsum)(double *a,double *b,double *c);
+/**********************************************************/
+sci_fsum(char *fname)
+{
+  int l1, m1, n1, l2, m2, n2, m3, n3,l3;
+
+  double a,b,c;
+  
+  a=0;
+  b=0;
+  c=0;
+
+  /* --> result = fortransum(3,8)
+  /* check that we have only 2 parameters input */
+  /* check that we have only 1 parameters output */
+  CheckRhs(2,2) ;
+  CheckLhs(1,1) ;   
+
+  /* get first parameter and put in 'a' */
+  GetRhsVar(1, "d", &m1, &n1, &l1);
+  a = *stk(l1);
+  
+  /* get second parameter and put in 'a' */
+  GetRhsVar(2, "d", &m2, &n2, &l2);
+  b= *stk(l2) ;
+  /* call fortran fsum subroutine */
+  F2C(fsum)(&a,&b,&c);
+  
+  /* create a variable on scilab's stack */
+  m3=1;
+  n3=1;
+  CreateVar(Rhs+1,"d",&m3,&n3,&l3);
+  *stk(l3) = c;
+
+  LhsVar(1) = Rhs+1; 
+  
+  return 0;
+}
+/**********************************************************/
index 0bb7a77..51cdf73 100644 (file)
@@ -1,21 +1,21 @@
-// This is the builder.sce \r
-// must be run from this directory \r
-\r
-pathname = get_absolute_file_path('builder.sce') \r
-\r
-disp(pathname)\r
-\r
-ilib_name  = 'libfsum'                 // interface library name \r
\r
-// objects files \r
-\r
-files = [pathname+'sci_gateway/sci_fsum.o',pathname+'src/fortran/fsum.o' ];\r
-\r
-libs  = []                             // other libs needed for linking\r
-\r
-table =['fortransum',  'sci_fsum'];\r
-\r
-// do not modify below \r
-// ----------------------------------------------\r
-ilib_build(ilib_name,table,files,libs)\r
-\r
+// This is the builder.sce 
+// must be run from this directory 
+
+pathname = get_absolute_file_path('builder.sce') 
+
+disp(pathname)
+
+ilib_name  = 'libfsum'                 // interface library name 
+// objects files 
+
+files = [pathname+'sci_gateway/sci_fsum.o',pathname+'src/fortran/fsum.o' ];
+
+libs  = []                             // other libs needed for linking
+
+table =['fortransum',  'sci_fsum'];
+
+// do not modify below 
+// ----------------------------------------------
+ilib_build(ilib_name,table,files,libs)
+
index 125d380..cdba00b 100644 (file)
@@ -1,8 +1,8 @@
-c =================================\r
-      subroutine fsum(a,b,c)\r
-c =================================      \r
-      double precision a,b,c\r
-                       c = a + b\r
-      end\r
-c =================================\r
-     \r
+c =================================
+      subroutine fsum(a,b,c)
+c =================================      
+      double precision a,b,c
+                       c = a + b
+      end
+c =================================
+     
index cfdd7dc..b300ed6 100644 (file)
@@ -1,32 +1,32 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>\r
-<!DOCTYPE classpaths SYSTEM "../modules/jvm/xml/classpath.dtd">\r
-<!-- =================== -->\r
-<!--\r
- default CLASSPATH for Scilab\r
-\r
- @author Allan CORNET\r
- @date INRIA 2007\r
- ===================\r
- Don't touch if you do not know what you are doing\r
--->\r
-<!-- =================== -->\r
-\r
-<classpaths>\r
-<classpath path="$SCILAB/bin"/>\r
-<classpath path="$SCILAB/thirdparty/"/>\r
-<classpath path="$SCILAB/thirdparty/jogl.jar"/>\r
-<classpath path="$SCILAB/thirdparty/gluegen-rt.jar"/>\r
-<classpath path="$SCILAB/thirdparty/flexdock-0.5.1.jar"/>\r
-<classpath path="$SCILAB/thirdparty/JyConsole.jar"/>\r
-<classpath path="$SCILAB/thirdparty/jython.jar"/>\r
-<classpath path="$SCILAB/thirdparty/ArtTk.jar"/>\r
-<classpath path="$SCILAB/thirdparty/skinlf.jar"/>\r
-<classpath path="$SCILAB/thirdparty/looks-2.1.1.jar"/>\r
-<classpath path="$SCILAB/thirdparty/commons-logging-1.1.jar"/>\r
-<classpath path="$SCILAB/modules/jvm/jar/org.scilab.modules.jvm.jar"/>\r
-<classpath path="$SCILAB/modules/shell/jar/org.scilab.modules.shell.jar"/>\r
-<classpath path="$SCILAB/modules/gui/jar/org.scilab.modules.gui.jar"/>\r
-<classpath path="$SCILAB/modules/javasci/jar/javasci.jar"/>\r
-<classpath path="$SCILAB/modules/graphics/jar/org.scilab.modules.graphics.jar"/>\r
-<classpath path="$SCILAB/modules/localization/jar/org.scilab.modules.localization.jar"/>\r
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE classpaths SYSTEM "../modules/jvm/xml/classpath.dtd">
+<!-- =================== -->
+<!--
+ default CLASSPATH for Scilab
+
+ @author Allan CORNET
+ @date INRIA 2007
+ ===================
+ Don't touch if you do not know what you are doing
+-->
+<!-- =================== -->
+
+<classpaths>
+<classpath path="$SCILAB/bin"/>
+<classpath path="$SCILAB/thirdparty/"/>
+<classpath path="$SCILAB/thirdparty/jogl.jar"/>
+<classpath path="$SCILAB/thirdparty/gluegen-rt.jar"/>
+<classpath path="$SCILAB/thirdparty/flexdock-0.5.1.jar"/>
+<classpath path="$SCILAB/thirdparty/JyConsole.jar"/>
+<classpath path="$SCILAB/thirdparty/jython.jar"/>
+<classpath path="$SCILAB/thirdparty/ArtTk.jar"/>
+<classpath path="$SCILAB/thirdparty/skinlf.jar"/>
+<classpath path="$SCILAB/thirdparty/looks-2.1.1.jar"/>
+<classpath path="$SCILAB/thirdparty/commons-logging-1.1.jar"/>
+<classpath path="$SCILAB/modules/jvm/jar/org.scilab.modules.jvm.jar"/>
+<classpath path="$SCILAB/modules/shell/jar/org.scilab.modules.shell.jar"/>
+<classpath path="$SCILAB/modules/gui/jar/org.scilab.modules.gui.jar"/>
+<classpath path="$SCILAB/modules/javasci/jar/javasci.jar"/>
+<classpath path="$SCILAB/modules/graphics/jar/org.scilab.modules.graphics.jar"/>
+<classpath path="$SCILAB/modules/localization/jar/org.scilab.modules.localization.jar"/>
 </classpaths>
\ No newline at end of file
index c3a2f58..ca96156 100644 (file)
@@ -1,17 +1,17 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>\r
-<!DOCTYPE librarypaths SYSTEM "../modules/jvm/xml/librarypath.dtd">\r
-<!-- =================== -->\r
-<!--\r
- default java.library.path for Scilab\r
- add path only if path exists\r
- @author Allan CORNET\r
- @date INRIA 2007\r
- ===================\r
- Don't touch if you do not know what you are doing\r
--->\r
-<!-- =================== -->\r
-\r
-<librarypaths>\r
-<librarypath path="$SCILAB/bin"/>\r
-<librarypath path="$SCILAB/.libs"/>\r
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE librarypaths SYSTEM "../modules/jvm/xml/librarypath.dtd">
+<!-- =================== -->
+<!--
+ default java.library.path for Scilab
+ add path only if path exists
+ @author Allan CORNET
+ @date INRIA 2007
+ ===================
+ Don't touch if you do not know what you are doing
+-->
+<!-- =================== -->
+
+<librarypaths>
+<librarypath path="$SCILAB/bin"/>
+<librarypath path="$SCILAB/.libs"/>
 </librarypaths>
\ No newline at end of file
index a9a1d94..f79fbb5 100644 (file)
@@ -1,70 +1,70 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>\r
-<!DOCTYPE modules SYSTEM "../modules/core/xml/modules.dtd">\r
-<!-- =================== -->\r
-<!--\r
- Modules list for Scilab\r
- @author Allan CORNET\r
- @date INRIA 2007\r
- ===================\r
- Don't touch if you do not know what you are doing\r
- Warning "core" module must be always the first module\r
- activate="1" module will be launched ( or not "0")\r
- -->\r
-<!-- =================== -->\r
-<modules>\r
-<module name="core" activate="1"/>\r
-<module name="differential_equations" activate="1"/>\r
-<module name="double" activate="1"/>\r
-<module name="elementaries_functions" activate="1"/>\r
-<module name="functions" activate="1"/>\r
-<module name="graphics" activate="1"/>\r
-<module name="fileio" activate="1"/>\r
-<module name="boolean" activate="1"/>\r
-<module name="cacsd" activate="1"/>\r
-<module name="data_structures" activate="1"/>\r
-<module name="helptools" activate="1"/>\r
-<module name="shell" activate="1"/>\r
-<module name="gui" activate="1"/>\r
-<module name="incremental_link" activate="1"/>\r
-<module name="integer" activate="1"/>\r
-<module name="interpolation" activate="1"/>\r
-<module name="io" activate="1"/>\r
-<module name="intersci" activate="1"/>\r
-<module name="jvm" activate="1"/>\r
-<module name="linear_algebra" activate="1"/>\r
-<module name="localization" activate="1"/>\r
-<module name="optimization" activate="1"/>\r
-<module name="overloading" activate="1"/>\r
-<module name="polynomials" activate="1"/>\r
-<module name="signal_processing" activate="1"/>\r
-<module name="sparse" activate="1"/>\r
-<module name="special_functions" activate="1"/>\r
-<module name="string" activate="1"/>\r
-<module name="symbolic" activate="1"/>\r
-<module name="time" activate="1"/>\r
-<module name="wintools" activate="1"/>\r
-<module name="statistics" activate="1"/>\r
-<!-- comments -->\r
-<module name="arnoldi" activate="1"/>\r
-<module name="compatibility_functions" activate="1"/>\r
-<module name="metanet" activate="1"/>\r
-<module name="javasci" activate="1"/>\r
-<module name="maple2scilab" activate="1"/>\r
-<module name="m2sci" activate="1"/>\r
-<module name="mexlib" activate="1"/>\r
-<module name="tclsci" activate="1"/>\r
-<module name="texmacs" activate="1"/>\r
-<module name="sound" activate="1"/>\r
-<module name="scipad" activate="1"/>\r
-<module name="randlib" activate="1"/>\r
-<module name="others" activate="1"/>\r
-<module name="scicos" activate="1"/>\r
-<module name="scilab2fortran" activate="1"/>\r
-<module name="development_tools" activate="1"/>\r
-<!-- comments -->\r
-<module name="pvm" activate="0"/>\r
-<module name="sci2c" activate="0"/>\r
-<module name="fftw" activate="0"/>\r
-<module name="module_skeleton" activate="0"/>\r
- </modules>\r
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE modules SYSTEM "../modules/core/xml/modules.dtd">
+<!-- =================== -->
+<!--
+ Modules list for Scilab
+ @author Allan CORNET
+ @date INRIA 2007
+ ===================
+ Don't touch if you do not know what you are doing
+ Warning "core" module must be always the first module
+ activate="1" module will be launched ( or not "0")
+ -->
+<!-- =================== -->
+<modules>
+<module name="core" activate="1"/>
+<module name="differential_equations" activate="1"/>
+<module name="double" activate="1"/>
+<module name="elementaries_functions" activate="1"/>
+<module name="functions" activate="1"/>
+<module name="graphics" activate="1"/>
+<module name="fileio" activate="1"/>
+<module name="boolean" activate="1"/>
+<module name="cacsd" activate="1"/>
+<module name="data_structures" activate="1"/>
+<module name="helptools" activate="1"/>
+<module name="shell" activate="1"/>
+<module name="gui" activate="1"/>
+<module name="incremental_link" activate="1"/>
+<module name="integer" activate="1"/>
+<module name="interpolation" activate="1"/>
+<module name="io" activate="1"/>
+<module name="intersci" activate="1"/>
+<module name="jvm" activate="1"/>
+<module name="linear_algebra" activate="1"/>
+<module name="localization" activate="1"/>
+<module name="optimization" activate="1"/>
+<module name="overloading" activate="1"/>
+<module name="polynomials" activate="1"/>
+<module name="signal_processing" activate="1"/>
+<module name="sparse" activate="1"/>
+<module name="special_functions" activate="1"/>
+<module name="string" activate="1"/>
+<module name="symbolic" activate="1"/>
+<module name="time" activate="1"/>
+<module name="wintools" activate="1"/>
+<module name="statistics" activate="1"/>
+<!-- comments -->
+<module name="arnoldi" activate="1"/>
+<module name="compatibility_functions" activate="1"/>
+<module name="metanet" activate="1"/>
+<module name="javasci" activate="1"/>
+<module name="maple2scilab" activate="1"/>
+<module name="m2sci" activate="1"/>
+<module name="mexlib" activate="1"/>
+<module name="tclsci" activate="1"/>
+<module name="texmacs" activate="1"/>
+<module name="sound" activate="1"/>
+<module name="scipad" activate="1"/>
+<module name="randlib" activate="1"/>
+<module name="others" activate="1"/>
+<module name="scicos" activate="1"/>
+<module name="scilab2fortran" activate="1"/>
+<module name="development_tools" activate="1"/>
+<!-- comments -->
+<module name="pvm" activate="0"/>
+<module name="sci2c" activate="0"/>
+<module name="fftw" activate="0"/>
+<module name="module_skeleton" activate="0"/>
+ </modules>
  
\ No newline at end of file
index e79b2ad..2a5af2e 100644 (file)
@@ -1,17 +1,17 @@
-<?xml version="1.0" encoding="UTF-8" standalone="no"?>\r
-<!DOCTYPE toolboxes SYSTEM "../modules/toolboxes_management/xml/toolboxes.dtd">\r
-<!-- =================== -->\r
-<!--\r
- Toolboxes list for Scilab\r
- @author Allan CORNET\r
- @date INRIA 2007\r
- ===================\r
- Don't touch if you do not know what you are doing\r
- activate="1" toolboxe will be launched ( or not "0")\r
- -->\r
-<!-- =================== -->\r
-<toolboxes users="all">\r
-<toolboxe name="toolboxe_skeleton" path="$SCILAB/contrib/toolboxe_skeleton" activate="0"/>\r
-<!-- comments -->\r
-</toolboxes>\r
+<?xml version="1.0" encoding="UTF-8" standalone="no"?>
+<!DOCTYPE toolboxes SYSTEM "../modules/toolboxes_management/xml/toolboxes.dtd">
+<!-- =================== -->
+<!--
+ Toolboxes list for Scilab
+ @author Allan CORNET
+ @date INRIA 2007
+ ===================
+ Don't touch if you do not know what you are doing
+ activate="1" toolboxe will be launched ( or not "0")
+ -->
+<!-- =================== -->
+<toolboxes users="all">
+<toolboxe name="toolboxe_skeleton" path="$SCILAB/contrib/toolboxe_skeleton" activate="0"/>
+<!-- comments -->
+</toolboxes>
  
\ No newline at end of file
index 0d2fb3b..b57a10e 100644 (file)
@@ -1,24 +1,24 @@
-##########\r
-### Allan CORNET\r
-### INRIA - Scilab 2007 \r
-##########\r
-\r
-DYNAMICLIBRARY_C_SOURCES = src/dynamiclibrary_others.c\r
-\r
-libscidynamiclibrary_la_includedir=$(pkgincludedir)/dynamiclibrary\r
-\r
-libscidynamiclibrary_la_include_HEADERS = includes/dynamiclibrary_others.h \\r
-includes/dynamiclibrary.h\r
-\r
-libscidynamiclibrary_la_CFLAGS= -Isrc/ -Iincludes/\r
-\r
-pkglib_LTLIBRARIES = libscidynamiclibrary.la\r
-\r
-libscidynamiclibrary_la_SOURCES = $(DYNAMICLIBRARY_C_SOURCES)\r
-\r
-libscidynamiclibrary_la_LIBADD = \r
-\r
-#### Target ######\r
-modulename=dynamiclibrary\r
-\r
-include $(top_srcdir)/Makefile.incl.am\r
+##########
+### Allan CORNET
+### INRIA - Scilab 2007 
+##########
+
+DYNAMICLIBRARY_C_SOURCES = src/dynamiclibrary_others.c
+
+libscidynamiclibrary_la_includedir=$(pkgincludedir)/dynamiclibrary
+
+libscidynamiclibrary_la_include_HEADERS = includes/dynamiclibrary_others.h \
+includes/dynamiclibrary.h
+
+libscidynamiclibrary_la_CFLAGS= -Isrc/ -Iincludes/
+
+pkglib_LTLIBRARIES = libscidynamiclibrary.la
+
+libscidynamiclibrary_la_SOURCES = $(DYNAMICLIBRARY_C_SOURCES)
+
+libscidynamiclibrary_la_LIBADD = 
+
+#### Target ######
+modulename=dynamiclibrary
+
+include $(top_srcdir)/Makefile.incl.am
index 4c71e54..165b694 100644 (file)
-<?xml version="1.0" encoding="Windows-1252"?>\r
-<VisualStudioProject\r
-       ProjectType="Visual C++"\r
-       Version="8,00"\r
-       Name="dynamiclibrary"\r
-       ProjectGUID="{77154919-8A20-4F35-B7C7-6B3B957BDCA1}"\r
-       RootNamespace="dynamiclibrary"\r
-       Keyword="Win32Proj"\r
-       >\r
-       <Platforms>\r
-               <Platform\r
-                       Name="Win32"\r
-               />\r
-       </Platforms>\r
-       <ToolFiles>\r
-       </ToolFiles>\r
-       <Configurations>\r
-               <Configuration\r
-                       Name="Debug|Win32"\r
-                       OutputDirectory="$(SolutionDir)$(ConfigurationName)"\r
-                       IntermediateDirectory="$(ConfigurationName)"\r
-                       ConfigurationType="2"\r
-                       CharacterSet="2"\r
-                       >\r
-                       <Tool\r
-                               Name="VCPreBuildEventTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCCustomBuildTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCXMLDataGeneratorTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCWebServiceProxyGeneratorTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCMIDLTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCCLCompilerTool"\r
-                               Optimization="0"\r
-                               AdditionalIncludeDirectories="includes;../../modules/core/includes;"\r
-                               PreprocessorDefinitions="EXPORT_DYNAMICLIBRARY_DLL;_CRT_SECURE_NO_WARNINGS"\r
-                               MinimalRebuild="true"\r
-                               BasicRuntimeChecks="0"\r
-                               RuntimeLibrary="3"\r
-                               UsePrecompiledHeader="0"\r
-                               WarningLevel="3"\r
-                               Detect64BitPortabilityProblems="true"\r
-                               DebugInformationFormat="3"\r
-                       />\r
-                       <Tool\r
-                               Name="VCManagedResourceCompilerTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCResourceCompilerTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCPreLinkEventTool"\r
-                               CommandLine=""\r
-                       />\r
-                       <Tool\r
-                               Name="VCLinkerTool"\r
-                               AdditionalOptions="/fixed:no"\r
-                               OutputFile="..\..\bin\$(ProjectName).dll"\r
-                               LinkIncremental="1"\r
-                               GenerateDebugInformation="true"\r
-                               SubSystem="2"\r
-                               ImportLibrary="..\..\bin\$(ProjectName).lib"\r
-                               TargetMachine="1"\r
-                       />\r
-                       <Tool\r
-                               Name="VCALinkTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCManifestTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCXDCMakeTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCBscMakeTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCFxCopTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCAppVerifierTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCWebDeploymentTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCPostBuildEventTool"\r
-                       />\r
-               </Configuration>\r
-               <Configuration\r
-                       Name="Release|Win32"\r
-                       OutputDirectory="$(SolutionDir)$(ConfigurationName)"\r
-                       IntermediateDirectory="$(ConfigurationName)"\r
-                       ConfigurationType="2"\r
-                       CharacterSet="2"\r
-                       WholeProgramOptimization="0"\r
-                       >\r
-                       <Tool\r
-                               Name="VCPreBuildEventTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCCustomBuildTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCXMLDataGeneratorTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCWebServiceProxyGeneratorTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCMIDLTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCCLCompilerTool"\r
-                               WholeProgramOptimization="false"\r
-                               AdditionalIncludeDirectories="includes;../../modules/core/includes;"\r
-                               PreprocessorDefinitions="EXPORT_DYNAMICLIBRARY_DLL;_CRT_SECURE_NO_WARNINGS"\r
-                               RuntimeLibrary="2"\r
-                               EnableEnhancedInstructionSet="1"\r
-                               UsePrecompiledHeader="0"\r
-                               WarningLevel="3"\r
-                               Detect64BitPortabilityProblems="true"\r
-                               DebugInformationFormat="3"\r
-                       />\r
-                       <Tool\r
-                               Name="VCManagedResourceCompilerTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCResourceCompilerTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCPreLinkEventTool"\r
-                               CommandLine=""\r
-                       />\r
-                       <Tool\r
-                               Name="VCLinkerTool"\r
-                               OutputFile="..\..\bin\$(ProjectName).dll"\r
-                               LinkIncremental="1"\r
-                               GenerateDebugInformation="false"\r
-                               SubSystem="2"\r
-                               OptimizeReferences="2"\r
-                               EnableCOMDATFolding="2"\r
-                               ImportLibrary="..\..\bin\$(ProjectName).lib"\r
-                               TargetMachine="1"\r
-                       />\r
-                       <Tool\r
-                               Name="VCALinkTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCManifestTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCXDCMakeTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCBscMakeTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCFxCopTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCAppVerifierTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCWebDeploymentTool"\r
-                       />\r
-                       <Tool\r
-                               Name="VCPostBuildEventTool"\r
-                       />\r
-               </Configuration>\r
-       </Configurations>\r
-       <References>\r
-       </References>\r
-       <Files>\r
-               <Filter\r
-                       Name="Source Files"\r
-                       Filter="cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx"\r
-                       UniqueIdentifier="{4FC737F1-C7A5-4376-A066-2A32D752A2FF}"\r
-                       >\r
-                       <File\r
-                               RelativePath=".\src\dynamiclibrary_windows.c"\r
-                               >\r
-                       </File>\r
-               </Filter>\r
-               <Filter\r
-                       Name="Header Files"\r
-                       Filter="h;hpp;hxx;hm;inl;inc;xsd"\r
-                       UniqueIdentifier="{93995380-89BD-4b04-88EB-625FBE52EBFB}"\r
-                       >\r
-                       <File\r
-                               RelativePath=".\includes\dynamiclibrary.h"\r
-                               >\r
-                       </File>\r
-                       <File\r
-                               RelativePath=".\includes\dynamiclibrary_windows.h"\r
-                               >\r
-                       </File>\r
-               </Filter>\r
-               <Filter\r
-                       Name="Resource Files"\r
-                       Filter="rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe;resx;tiff;tif;png;wav"\r
-                       UniqueIdentifier="{67DA6AB6-F800-4c08-8B7A-83BB121AAD01}"\r
-                       >\r
-               </Filter>\r
-               <File\r
-                       RelativePath=".\Makefile.am"\r
-                       >\r
-               </File>\r
-       </Files>\r
-       <Globals>\r
-       </Globals>\r
-</VisualStudioProject>\r
+<?xml version="1.0" encoding="Windows-1252"?>
+<VisualStudioProject
+       ProjectType="Visual C++"
+       Version="8,00"
+       Name="dynamiclibrary"
+       ProjectGUID="{77154919-8A20-4F35-B7C7-6B3B957BDCA1}"
+       RootNamespace="dynamiclibrary"
+       Keyword="Win32Proj"
+       >
+       <Platforms>
+               <Platform
+                       Name="Win32"
+               />
+       </Platforms>
+       <ToolFiles>
+       </ToolFiles>
+       <Configurations>
+               <Configuration
+                       Name="Debug|Win32"
+                       OutputDirectory="$(SolutionDir)$(ConfigurationName)"
+                       IntermediateDirectory="$(ConfigurationName)"
+                       ConfigurationType="2"
+                       CharacterSet="2"
+                       >
+                       <Tool
+                               Name="VCPreBuildEventTool"
+                       />
+                       <Tool
+                               Name="VCCustomBuildTool"
+                       />
+                       <Tool
+                               Name="VCXMLDataGeneratorTool"
+                       />
+                       <Tool
+                               Name="VCWebServiceProxyGeneratorTool"
+                       />
+                       <Tool
+                               Name="VCMIDLTool"
+                       />
+                       <Tool
+                               Name="VCCLCompilerTool"
+                               Optimization="0"
+                               AdditionalIncludeDirectories="includes;../../modules/core/includes;"
+                               PreprocessorDefinitions="EXPORT_DYNAMICLIBRARY_DLL;_CRT_SECURE_NO_WARNINGS"
+                               MinimalRebuild="true"
+                               BasicRuntimeChecks="0"
+                               RuntimeLibrary="3"
+                               UsePrecompiledHeader="0"
+                               WarningLevel="3"
+                               Detect64BitPortabilityProblems="true"
+                               DebugInformationFormat="3"
+                       />
+                       <Tool
+                               Name="VCManagedResourceCompilerTool"
+                       />
+                       <Tool
+                               Name="VCResourceCompilerTool"
+                       />
+                       <Tool
+                               Name="VCPreLinkEventTool"
+                               CommandLine=""
+                       />
+                       <Tool
+                               Name="VCLinkerTool"
+                               AdditionalOptions="/fixed:no"
+                               OutputFile="..\..\bin\$(ProjectName).dll"
+                               LinkIncremental="1"
+                               GenerateDebugInformation="true"
+                               SubSystem="2"
+                               ImportLibrary="..\..\bin\$(ProjectName).lib"
+                               TargetMachine="1"
+                       />
+                       <Tool
+                               Name="VCALinkTool"
+                       />
+                       <Tool
+                               Name="VCManifestTool"
+                       />
+                       <Tool
+                               Name="VCXDCMakeTool"
+                       />
+                       <Tool
+                               Name="VCBscMakeTool"
+                       />
+                       <Tool
+                               Name="VCFxCopTool"
+                       />
+                       <Tool
+                               Name="VCAppVerifierTool"
+                       />
+                       <Tool
+                               Name="VCWebDeploymentTool"
+                       />
+                       <Tool
+                               Name="VCPostBuildEventTool"
+                       />
+               </Configuration>
+               <Configuration
+                       Name="Release|Win32"
+                       OutputDirectory="$(SolutionDir)$(ConfigurationName)"
+                       IntermediateDirectory="$(ConfigurationName)"
+                       ConfigurationType="2"
+                       CharacterSet="2"
+                       WholeProgramOptimization="0"
+                       >
+                       <Tool
+                               Name="VCPreBuildEventTool"
+                       />
+                       <Tool
+                               Name="VCCustomBuildTool"
+                       />
+                       <Tool
+                               Name="VCXMLDataGeneratorTool"
+                       />
+                       <Tool
+                               Name="VCWebServiceProxyGeneratorTool"
+                       />
+                       <Tool
+                               Name="VCMIDLTool"
+                       />
+                       <Tool
+                               Name="VCCLCompilerTool"
+                               WholeProgramOptimization="false"
+                               AdditionalIncludeDirectories="includes;../../modules/core/includes;"
+                               PreprocessorDefinitions="EXPORT_DYNAMICLIBRARY_DLL;_CRT_SECURE_NO_WARNINGS"
+                               RuntimeLibrary="2"
+                               EnableEnhancedInstructionSet="1"
+                               UsePrecompiledHeader="0"
+                               WarningLevel="3"
+                               Detect64BitPortabilityProblems="true"
+                               DebugInformationFormat="3"
+                       />
+                       <Tool
+                               Name="VCManagedResourceCompilerTool"
+                       />
+                       <Tool
+                               Name="VCResourceCompilerTool"
+                       />
+                       <Tool
+                               Name="VCPreLinkEventTool"
+                               CommandLine=""
+                       />
+                       <Tool
+                               Name="VCLinkerTool"
+                               OutputFile="..\..\bin\$(ProjectName).dll"
+                               LinkIncremental="1"
+                               GenerateDebugInformation="false"
+                               SubSystem="2"
+                               OptimizeReferences="2"
+                               EnableCOMDATFolding="2"
+                               ImportLibrary="..\..\bin\$(ProjectName).lib"
+                               TargetMachine="1"
+                       />
+                       <Tool
+                               Name="VCALinkTool"
+                       />
+                       <Tool
+                               Name="VCManifestTool"
+                       />
+                       <Tool
+                               Name="VCXDCMakeTool"
+                       />
+                       <Tool
+                               Name="VCBscMakeTool"
+                       />
+                       <Tool
+                               Name="VCFxCopTool"
+                       />
+                       <Tool
+                               Name="VCAppVerifierTool"
+                       />
+                       <Tool
+                               Name="VCWebDeploymentTool"
+                       />
+                       <Tool
+                               Name="VCPostBuildEventTool"
+                       />
+               </Configuration>
+       </Configurations>
+       <References>
+       </References>
+       <Files>
+               <Filter
+                       Name="Source Files"
+                       Filter="cpp;c;cc;cxx;def;odl;idl;hpj;bat;asm;asmx"
+                       UniqueIdentifier="{4FC737F1-C7A5-4376-A066-2A32D752A2FF}"
+                       >
+                       <File
+                               RelativePath=".\src\dynamiclibrary_windows.c"
+                               >
+                       </File>
+               </Filter>
+               <Filter
+                       Name="Header Files"
+                       Filter="h;hpp;hxx;hm;inl;inc;xsd"
+                       UniqueIdentifier="{93995380-89BD-4b04-88EB-625FBE52EBFB}"
+                       >
+                       <File
+                               RelativePath=".\includes\dynamiclibrary.h"
+                               >
+                       </File>
+                       <File
+                               RelativePath=".\includes\dynamiclibrary_windows.h"
+                               >
+                       </File>
+               </Filter>
+               <Filter
+                       Name="Resource Files"
+                       Filter="rc;ico;cur;bmp;dlg;rc2;rct;bin;rgs;gif;jpg;jpeg;jpe;resx;tiff;tif;png;wav"
+                       UniqueIdentifier="{67DA6AB6-F800-4c08-8B7A-83BB121AAD01}"
+                       >
+               </Filter>
+               <File
+                       RelativePath=".\Makefile.am"
+                       >
+               </File>
+       </Files>
+       <Globals>
+       </Globals>
+</VisualStudioProject>
index 66f410d..f762b37 100644 (file)
@@ -1,15 +1,15 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef __DYNAMICLIBRARY_H__\r
-#define __DYNAMICLIBRARY_H__\r
-\r
-#ifdef _MSC_VER\r
-       #include "dynamiclibrary_windows.h"\r
-#else\r
-       #include "dynamiclibrary_others.h"\r
-#endif\r
-\r
-#endif /* __DYNAMICLIBRARY_H__ */\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef __DYNAMICLIBRARY_H__
+#define __DYNAMICLIBRARY_H__
+
+#ifdef _MSC_VER
+       #include "dynamiclibrary_windows.h"
+#else
+       #include "dynamiclibrary_others.h"
+#endif
+
+#endif /* __DYNAMICLIBRARY_H__ */
+/*-----------------------------------------------------------------------------------*/ 
index dc2b412..619ddb9 100644 (file)
@@ -1,44 +1,44 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef __DYNAMICLIBRARY_OTHERS_H__\r
-#define __DYNAMICLIBRARY_OTHERS_H__\r
-\r
-#include <dlfcn.h>\r
-#include "machine.h" /* BOOL */\r
-\r
-typedef void * DynLibHandle;\r
-typedef void * DynLibFuncPtr;\r
-\r
-/**\r
-* Maps the specified executable module into the address space of the calling process\r
-* @param name of dynamic library\r
-* @return Handle to the loaded library\r
-*/\r
-DynLibHandle LoadDynLibrary(char *libname);\r
-\r
-/**\r
-* Decrements the reference count of the loaded dynamic-link library\r
-* @param Handle to the loaded library\r
-* @return BOOL If the function succeeds, the return value is nonzero\r
-*/\r
-BOOL FreeDynLibrary(DynLibHandle hInstance);\r
-\r
-/**\r
-* Retrieves the address of an exported function \r
-* @param Handle to the loaded library\r
-* @param string that specifies the function\r
-* @return a pointer\r
-*/\r
-DynLibFuncPtr GetDynLibFuncPtr(DynLibHandle hInstance,char *funcName);\r
-\r
-/**\r
-* return last dynamic linking error \r
-* @return a string\r
-*/\r
-char * GetLastDynLibError(void);\r
-\r
-#endif /* __DYNAMICLIBRARY_OTHERS_H__ */\r
-/*-----------------------------------------------------------------------------------*/ \r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef __DYNAMICLIBRARY_OTHERS_H__
+#define __DYNAMICLIBRARY_OTHERS_H__
+
+#include <dlfcn.h>
+#include "machine.h" /* BOOL */
+
+typedef void * DynLibHandle;
+typedef void * DynLibFuncPtr;
+
+/**
+* Maps the specified executable module into the address space of the calling process
+* @param name of dynamic library
+* @return Handle to the loaded library
+*/
+DynLibHandle LoadDynLibrary(char *libname);
+
+/**
+* Decrements the reference count of the loaded dynamic-link library
+* @param Handle to the loaded library
+* @return BOOL If the function succeeds, the return value is nonzero
+*/
+BOOL FreeDynLibrary(DynLibHandle hInstance);
+
+/**
+* Retrieves the address of an exported function 
+* @param Handle to the loaded library
+* @param string that specifies the function
+* @return a pointer
+*/
+DynLibFuncPtr GetDynLibFuncPtr(DynLibHandle hInstance,char *funcName);
+
+/**
+* return last dynamic linking error 
+* @return a string
+*/
+char * GetLastDynLibError(void);
+
+#endif /* __DYNAMICLIBRARY_OTHERS_H__ */
+/*-----------------------------------------------------------------------------------*/ 
+
index aba63ae..0bebb7c 100644 (file)
@@ -1,50 +1,50 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef __DYNAMICLIBRARY_WINDOWS_H__\r
-#define __DYNAMICLIBRARY_WINDOWS_H__\r
-\r
-#include <Windows.h>\r
-\r
-#include "machine.h" /* BOOL */\r
-\r
-#ifdef EXPORT_DYNAMICLIBRARY_DLL\r
-       #define IMPORT_EXPORT_DYNAMICLIBRARY_DLL __declspec(dllexport)\r
-#else\r
-       #define IMPORT_EXPORT_DYNAMICLIBRARY_DLL __declspec(dllimport)\r
-#endif\r
-\r
-typedef HINSTANCE DynLibHandle;\r
-typedef FARPROC DynLibFuncPtr;\r
-\r
-/**\r
-* Maps the specified executable module into the address space of the calling process\r
-* @param name of dynamic library\r
-* @return Handle to the loaded library\r
-*/\r
-IMPORT_EXPORT_DYNAMICLIBRARY_DLL DynLibHandle LoadDynLibrary(char *libname);\r
-\r
-/**\r
-* Decrements the reference count of the loaded dynamic-link library\r
-* @param Handle to the loaded library\r
-* @return BOOL If the function succeeds, the return value is nonzero\r
-*/\r
-IMPORT_EXPORT_DYNAMICLIBRARY_DLL BOOL FreeDynLibrary(DynLibHandle hInstance);\r
-\r
-/**\r
-* Retrieves the address of an exported function \r
-* @param Handle to the loaded library\r
-* @param string that specifies the function\r
-* @return\r
-*/\r
-IMPORT_EXPORT_DYNAMICLIBRARY_DLL DynLibFuncPtr GetDynLibFuncPtr(DynLibHandle hInstance,char *funcName);\r
-\r
-/**\r
-* return last dynamic linking error \r
-* @return a string\r
-*/\r
-IMPORT_EXPORT_DYNAMICLIBRARY_DLL char * GetLastDynLibError(void);\r
-\r
-#endif /* __DYNAMICLIBRARY_WINDOWS_H__ */\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef __DYNAMICLIBRARY_WINDOWS_H__
+#define __DYNAMICLIBRARY_WINDOWS_H__
+
+#include <Windows.h>
+
+#include "machine.h" /* BOOL */
+
+#ifdef EXPORT_DYNAMICLIBRARY_DLL
+       #define IMPORT_EXPORT_DYNAMICLIBRARY_DLL __declspec(dllexport)
+#else
+       #define IMPORT_EXPORT_DYNAMICLIBRARY_DLL __declspec(dllimport)
+#endif
+
+typedef HINSTANCE DynLibHandle;
+typedef FARPROC DynLibFuncPtr;
+
+/**
+* Maps the specified executable module into the address space of the calling process
+* @param name of dynamic library
+* @return Handle to the loaded library
+*/
+IMPORT_EXPORT_DYNAMICLIBRARY_DLL DynLibHandle LoadDynLibrary(char *libname);
+
+/**
+* Decrements the reference count of the loaded dynamic-link library
+* @param Handle to the loaded library
+* @return BOOL If the function succeeds, the return value is nonzero
+*/
+IMPORT_EXPORT_DYNAMICLIBRARY_DLL BOOL FreeDynLibrary(DynLibHandle hInstance);
+
+/**
+* Retrieves the address of an exported function 
+* @param Handle to the loaded library
+* @param string that specifies the function
+* @return
+*/
+IMPORT_EXPORT_DYNAMICLIBRARY_DLL DynLibFuncPtr GetDynLibFuncPtr(DynLibHandle hInstance,char *funcName);
+
+/**
+* return last dynamic linking error 
+* @return a string
+*/
+IMPORT_EXPORT_DYNAMICLIBRARY_DLL char * GetLastDynLibError(void);
+
+#endif /* __DYNAMICLIBRARY_WINDOWS_H__ */
+/*-----------------------------------------------------------------------------------*/ 
index 16eec51..d28506b 100644 (file)
@@ -1,51 +1,51 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "dynamiclibrary_others.h"\r
-#include <stdlib.h>\r
-#include <stdio.h>\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef NULL\r
-#define NULL 0\r
-#endif\r
-/*-----------------------------------------------------------------------------------*/ \r
-DynLibHandle LoadDynLibrary(char *libname)\r
-{\r
-       return (DynLibHandle) dlopen(libname,  RTLD_NOW | RTLD_GLOBAL);\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-BOOL FreeDynLibrary(DynLibHandle hInstance)\r
-{\r
-       BOOL bOK = FALSE;\r
-       if (hInstance)\r
-               {\r
-                       if (dlclose( hInstance)) bOK = TRUE;\r
-               }\r
-       #ifndef NDEBUG\r
-       else \r
-               {\r
-                       printf("FreeDynLibrary: Cannot close a not-opened library.\n");\r
-                       fflush(NULL);\r
-               }\r
-       #endif\r
-\r
-       return bOK;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-DynLibFuncPtr GetDynLibFuncPtr(DynLibHandle hInstance,char *funcName)\r
-{\r
-       DynLibFuncPtr retFuncPtr = NULL ;\r
-       \r
-       if (hInstance)\r
-       {\r
-               retFuncPtr = dlsym(hInstance, funcName);\r
-       }\r
-       return retFuncPtr;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-char * GetLastDynLibError(void)\r
-{\r
-       return dlerror();\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include "dynamiclibrary_others.h"
+#include <stdlib.h>
+#include <stdio.h>
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef NULL
+#define NULL 0
+#endif
+/*-----------------------------------------------------------------------------------*/ 
+DynLibHandle LoadDynLibrary(char *libname)
+{
+       return (DynLibHandle) dlopen(libname,  RTLD_NOW | RTLD_GLOBAL);
+}
+/*-----------------------------------------------------------------------------------*/ 
+BOOL FreeDynLibrary(DynLibHandle hInstance)
+{
+       BOOL bOK = FALSE;
+       if (hInstance)
+               {
+                       if (dlclose( hInstance)) bOK = TRUE;
+               }
+       #ifndef NDEBUG
+       else 
+               {
+                       printf("FreeDynLibrary: Cannot close a not-opened library.\n");
+                       fflush(NULL);
+               }
+       #endif
+
+       return bOK;
+}
+/*-----------------------------------------------------------------------------------*/ 
+DynLibFuncPtr GetDynLibFuncPtr(DynLibHandle hInstance,char *funcName)
+{
+       DynLibFuncPtr retFuncPtr = NULL ;
+       
+       if (hInstance)
+       {
+               retFuncPtr = dlsym(hInstance, funcName);
+       }
+       return retFuncPtr;
+}
+/*-----------------------------------------------------------------------------------*/ 
+char * GetLastDynLibError(void)
+{
+       return dlerror();
+}
+/*-----------------------------------------------------------------------------------*/ 
index 285a498..d67f230 100644 (file)
@@ -1,45 +1,45 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include <string.h>\r
-#include "dynamiclibrary_windows.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-IMPORT_EXPORT_DYNAMICLIBRARY_DLL DynLibHandle LoadDynLibrary(char *libname)\r
-{\r
-       return (DynLibHandle) LoadLibrary(libname);\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-IMPORT_EXPORT_DYNAMICLIBRARY_DLL BOOL FreeDynLibrary(DynLibHandle hInstance)\r
-{\r
-       return (BOOL) FreeLibrary((HMODULE) hInstance);\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-IMPORT_EXPORT_DYNAMICLIBRARY_DLL DynLibFuncPtr GetDynLibFuncPtr(DynLibHandle hInstance,char *funcName)\r
-{\r
-       DynLibFuncPtr retFuncPtr = NULL ;\r
-       \r
-       if (hInstance)\r
-       {\r
-               retFuncPtr = GetProcAddress(hInstance, funcName);\r
-       }\r
-       \r
-       return retFuncPtr;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-IMPORT_EXPORT_DYNAMICLIBRARY_DLL char * GetLastDynLibError(void)\r
-{\r
-       static char buffer[512];\r
-       DWORD dw = GetLastError(); \r
-       DWORD source = 0;\r
-\r
-       if (FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM |\r
-                       FORMAT_MESSAGE_IGNORE_INSERTS, &source, dw, 0,\r
-                       buffer, 512, NULL) == 0) \r
-       {\r
-                       strcpy(buffer, "Unknown Error");\r
-       }\r
-\r
-       return buffer;\r
-}\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include <string.h>
+#include "dynamiclibrary_windows.h"
+/*-----------------------------------------------------------------------------------*/ 
+IMPORT_EXPORT_DYNAMICLIBRARY_DLL DynLibHandle LoadDynLibrary(char *libname)
+{
+       return (DynLibHandle) LoadLibrary(libname);
+}
+/*-----------------------------------------------------------------------------------*/ 
+IMPORT_EXPORT_DYNAMICLIBRARY_DLL BOOL FreeDynLibrary(DynLibHandle hInstance)
+{
+       return (BOOL) FreeLibrary((HMODULE) hInstance);
+}
+/*-----------------------------------------------------------------------------------*/ 
+IMPORT_EXPORT_DYNAMICLIBRARY_DLL DynLibFuncPtr GetDynLibFuncPtr(DynLibHandle hInstance,char *funcName)
+{
+       DynLibFuncPtr retFuncPtr = NULL ;
+       
+       if (hInstance)
+       {
+               retFuncPtr = GetProcAddress(hInstance, funcName);
+       }
+       
+       return retFuncPtr;
+}
+/*-----------------------------------------------------------------------------------*/ 
+IMPORT_EXPORT_DYNAMICLIBRARY_DLL char * GetLastDynLibError(void)
+{
+       static char buffer[512];
+       DWORD dw = GetLastError(); 
+       DWORD source = 0;
+
+       if (FormatMessage(FORMAT_MESSAGE_FROM_SYSTEM |
+                       FORMAT_MESSAGE_IGNORE_INSERTS, &source, dw, 0,
+                       buffer, 512, NULL) == 0) 
+       {
+                       strcpy(buffer, "Unknown Error");
+       }
+
+       return buffer;
+}
 /*-----------------------------------------------------------------------------------*/ 
\ No newline at end of file
index 9617917..c90a71e 100644 (file)
@@ -1,36 +1,36 @@
-<?xml version="1.0" encoding="UTF-8"?>\r
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">\r
-<MAN>\r
-  <LANGUAGE>eng</LANGUAGE>\r
-\r
-  <TITLE>islittleendian</TITLE>\r
-\r
-  <TYPE>Scilab Function</TYPE>\r
-\r
-  <DATE>$LastChangedDate: 2006-12-12 09:26:08 +0200$</DATE>\r
-\r
-  <SHORT_DESCRIPTION name="islittleendian">Checks if machine architecture is "little-endian"</SHORT_DESCRIPTION>\r
-\r
-  <CALLING_SEQUENCE>\r
-    <CALLING_SEQUENCE_ITEM>r=islittleendian()</CALLING_SEQUENCE_ITEM>\r
-  </CALLING_SEQUENCE>\r
-\r
-  <PARAM>\r
-    <PARAM_INDENT>\r
-      <PARAM_ITEM>\r
-        <PARAM_NAME>r</PARAM_NAME>\r
-\r
-        <PARAM_DESCRIPTION>\r
-          <SP>: a boolean</SP>\r
-        </PARAM_DESCRIPTION>\r
-      </PARAM_ITEM>\r
-    </PARAM_INDENT>\r
-    \r
-  </PARAM>\r
-\r
-  <DESCRIPTION>\r
-    <P>Returns <VERB>%t</VERB> or <VERB>%f</VERB> Checks if machine architecture is "little-endian".</P>\r
-  </DESCRIPTION>\r
-\r
-  <AUTHOR>A.C</AUTHOR>\r
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
+<MAN>
+  <LANGUAGE>eng</LANGUAGE>
+
+  <TITLE>islittleendian</TITLE>
+
+  <TYPE>Scilab Function</TYPE>
+
+  <DATE>$LastChangedDate: 2006-12-12 09:26:08 +0200$</DATE>
+
+  <SHORT_DESCRIPTION name="islittleendian">Checks if machine architecture is "little-endian"</SHORT_DESCRIPTION>
+
+  <CALLING_SEQUENCE>
+    <CALLING_SEQUENCE_ITEM>r=islittleendian()</CALLING_SEQUENCE_ITEM>
+  </CALLING_SEQUENCE>
+
+  <PARAM>
+    <PARAM_INDENT>
+      <PARAM_ITEM>
+        <PARAM_NAME>r</PARAM_NAME>
+
+        <PARAM_DESCRIPTION>
+          <SP>: a boolean</SP>
+        </PARAM_DESCRIPTION>
+      </PARAM_ITEM>
+    </PARAM_INDENT>
+    
+  </PARAM>
+
+  <DESCRIPTION>
+    <P>Returns <VERB>%t</VERB> or <VERB>%f</VERB> Checks if machine architecture is "little-endian".</P>
+  </DESCRIPTION>
+
+  <AUTHOR>A.C</AUTHOR>
 </MAN>
\ No newline at end of file
index 696092e..bc114a9 100644 (file)
-/*-----------------------------------------------------------------------------------*/\r
-/* Scilab */\r
-/* Allan CORNET */\r
-/* INRIA 2007 */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __FILESMANAGEMENT_H__\r
-#define __FILESMANAGEMENT_H__\r
-\r
-#include <stdio.h>\r
-#include "machine.h"\r
-\r
-\r
-#ifndef _MAX_PATH\r
-#define _MAX_PATH   260\r
-#endif\r
-\r
-/**\r
-* Default max of files opened in scilab\r
-*/\r
-#ifdef FOPEN_MAX\r
-       #define DEFAULT_MAX_FILES FOPEN_MAX \r
-#else\r
-       #define DEFAULT_MAX_FILES 20 \r
-#endif\r
-/**\r
-* Get max of files opened in scilab\r
-* @return max of files opened in scilab\r
-*/\r
-int GetMaximumFileOpenedInScilab(void);\r
-\r
-/**\r
-* Get the file associated to int Id\r
-* @param Id\r
-* @return FILE ptr\r
-*/\r
-FILE *GetFileOpenedInScilab(int Id);\r
-\r
-/**\r
-* Set the file associated to int Id\r
-* @param FILE ptr\r
-* @param Id\r
-*/\r
-void SetFileOpenedInScilab(int Id,FILE *fptr);\r
-\r
-/**\r
-* Get the current Id (current file)\r
-* @return Id\r
-*/\r
-int GetCurrentFileId(void);\r
-\r
-/**\r
-* Set the current Id (current file)\r
-* @param Id\r
-*/\r
-void SetCurrentFileId(int Id);\r
-\r
-/**\r
-* Get the swap status of file Id\r
-* @param Id\r
-* @return swap status\r
-*/\r
-int GetSwapStatus(integer Id);\r
-\r
-/**\r
-* Set the swap status of file Id\r
-* @param Id\r
-* @param new swap\r
-*/\r
-void SetSwapStatus(int Id,int newswap);\r
-\r
-/**\r
-* Get the mode of file Id\r
-* @param Id\r
-* @return mode\r
-*/\r
-int GetFileModeOpenedInScilab(int Id);\r
-\r
-/**\r
-* Set the mode of file Id\r
-* @param Id\r
-* @param new mode\r
-*/\r
-void SetFileModeOpenedInScilab(int Id,int mode);\r
-\r
-/**\r
-* Get the type of file Id\r
-* @param Id\r
-* @return Type (Fortran,C)\r
-*/\r
-int GetFileTypeOpenedInScilab(int Id);\r
-\r
-/**\r
-* Set the mode of file Id\r
-* @param Id\r
-* @param new Type (Fortran,C)\r
-*/\r
-void SetFileTypeOpenedInScilab(int Id,int Type);\r
-\r
-/**\r
-* Get the name of file Id\r
-* @param Id\r
-* @return name\r
-*/\r
-char* GetFileNameOpenedInScilab(int Id);\r
-\r
-/**\r
-* Set the name of file Id\r
-* @param Id\r
-* @param new name\r
-* @return TRUE or FALSE\r
-*/\r
-BOOL SetFileNameOpenedInScilab(int Id,char *name);\r
-\r
-/**\r
-* Free filename of file Id\r
-* @param Id\r
-* @return TRUE or FALSE\r
-*/\r
-BOOL FreeFileNameOpenedInScilab(int Id);\r
-\r
-/**\r
-* Initialize Scilab's file list\r
-* @return TRUE or FALSE\r
-*/\r
-BOOL InitializeScilabFilesList(void);\r
-\r
-/**\r
-* Terminate Scilab's file list\r
-* @return TRUE or FALSE\r
-*/\r
-BOOL TerminateScilabFilesList(void);\r
-\r
-/**\r
-* Extend Scilab's file list\r
-* @return TRUE or FALSE\r
-*/\r
-BOOL ExtendScilabFilesList(int NewSize);\r
-\r
-/**\r
-* Search if filename is already opened in Scilab\r
-* @return TRUE or FALSE\r
-*/\r
-BOOL IsAlreadyOpenedInScilab(char *filename);\r
-#endif /* __FILESMANAGEMENT_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* Scilab */
+/* Allan CORNET */
+/* INRIA 2007 */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __FILESMANAGEMENT_H__
+#define __FILESMANAGEMENT_H__
+
+#include <stdio.h>
+#include "machine.h"
+
+
+#ifndef _MAX_PATH
+#define _MAX_PATH   260
+#endif
+
+/**
+* Default max of files opened in scilab
+*/
+#ifdef FOPEN_MAX
+       #define DEFAULT_MAX_FILES FOPEN_MAX 
+#else
+       #define DEFAULT_MAX_FILES 20 
+#endif
+/**
+* Get max of files opened in scilab
+* @return max of files opened in scilab
+*/
+int GetMaximumFileOpenedInScilab(void);
+
+/**
+* Get the file associated to int Id
+* @param Id
+* @return FILE ptr
+*/
+FILE *GetFileOpenedInScilab(int Id);
+
+/**
+* Set the file associated to int Id
+* @param FILE ptr
+* @param Id
+*/
+void SetFileOpenedInScilab(int Id,FILE *fptr);
+
+/**
+* Get the current Id (current file)
+* @return Id
+*/
+int GetCurrentFileId(void);
+
+/**
+* Set the current Id (current file)
+* @param Id
+*/
+void SetCurrentFileId(int Id);
+
+/**
+* Get the swap status of file Id
+* @param Id
+* @return swap status
+*/
+int GetSwapStatus(integer Id);
+
+/**
+* Set the swap status of file Id
+* @param Id
+* @param new swap
+*/
+void SetSwapStatus(int Id,int newswap);
+
+/**
+* Get the mode of file Id
+* @param Id
+* @return mode
+*/
+int GetFileModeOpenedInScilab(int Id);
+
+/**
+* Set the mode of file Id
+* @param Id
+* @param new mode
+*/
+void SetFileModeOpenedInScilab(int Id,int mode);
+
+/**
+* Get the type of file Id
+* @param Id
+* @return Type (Fortran,C)
+*/
+int GetFileTypeOpenedInScilab(int Id);
+
+/**
+* Set the mode of file Id
+* @param Id
+* @param new Type (Fortran,C)
+*/
+void SetFileTypeOpenedInScilab(int Id,int Type);
+
+/**
+* Get the name of file Id
+* @param Id
+* @return name
+*/
+char* GetFileNameOpenedInScilab(int Id);
+
+/**
+* Set the name of file Id
+* @param Id
+* @param new name
+* @return TRUE or FALSE
+*/
+BOOL SetFileNameOpenedInScilab(int Id,char *name);
+
+/**
+* Free filename of file Id
+* @param Id
+* @return TRUE or FALSE
+*/
+BOOL FreeFileNameOpenedInScilab(int Id);
+
+/**
+* Initialize Scilab's file list
+* @return TRUE or FALSE
+*/
+BOOL InitializeScilabFilesList(void);
+
+/**
+* Terminate Scilab's file list
+* @return TRUE or FALSE
+*/
+BOOL TerminateScilabFilesList(void);
+
+/**
+* Extend Scilab's file list
+* @return TRUE or FALSE
+*/
+BOOL ExtendScilabFilesList(int NewSize);
+
+/**
+* Search if filename is already opened in Scilab
+* @return TRUE or FALSE
+*/
+BOOL IsAlreadyOpenedInScilab(char *filename);
+#endif /* __FILESMANAGEMENT_H__ */
+/*-----------------------------------------------------------------------------------*/
+
index 964ac03..227522a 100644 (file)
@@ -1,23 +1,23 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef __GETCOMMANDLINEARGS_H__\r
-#define __GETCOMMANDLINEARGS_H__\r
-\r
-/**\r
-* get command line arguments\r
-* @param nbargs number of arguments\r
-* @return arguments (char **) \r
-*/\r
-char ** getCommandLineArgs(int *nbargs);\r
-\r
-/**\r
-* save command line arguments\r
-* param argv\r
-* param nbargs\r
-*/\r
-int setCommandLineArgs(char **argv, int nbargs);\r
-\r
-#endif /* __GETCOMMANDLINEARGS_H__ */\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef __GETCOMMANDLINEARGS_H__
+#define __GETCOMMANDLINEARGS_H__
+
+/**
+* get command line arguments
+* @param nbargs number of arguments
+* @return arguments (char **) 
+*/
+char ** getCommandLineArgs(int *nbargs);
+
+/**
+* save command line arguments
+* param argv
+* param nbargs
+*/
+int setCommandLineArgs(char **argv, int nbargs);
+
+#endif /* __GETCOMMANDLINEARGS_H__ */
+/*-----------------------------------------------------------------------------------*/ 
index 8c35e29..b6b976c 100644 (file)
@@ -1,24 +1,24 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* Scilab */\r
-/* INRIA 2007 */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __ISLITTLEENDIAN_H__\r
-#define __ISLITTLEENDIAN_H__\r
-\r
-#include "machine.h"\r
-\r
-/**\r
-* islittleendian \r
-* @return if it is a little endian (0 or 1)\r
-*/\r
-int islittleendian(void);\r
-\r
-/**\r
-* C2F(getendian)\r
-* @param void  \r
-* @return the endian (0 or 1)\r
-*/\r
-int C2F(getendian)(void);\r
-\r
-#endif /* __ISLITTLEENDIAN_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* Scilab */
+/* INRIA 2007 */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __ISLITTLEENDIAN_H__
+#define __ISLITTLEENDIAN_H__
+
+#include "machine.h"
+
+/**
+* islittleendian 
+* @return if it is a little endian (0 or 1)
+*/
+int islittleendian(void);
+
+/**
+* C2F(getendian)
+* @param void  
+* @return the endian (0 or 1)
+*/
+int C2F(getendian)(void);
+
+#endif /* __ISLITTLEENDIAN_H__ */
+/*-----------------------------------------------------------------------------------*/
index 3ad5de3..1218e12 100644 (file)
@@ -1,20 +1,20 @@
-//------------------------------------\r
-// Allan CORNET INRIA 2007\r
-//------------------------------------\r
-function ret=check_modules_xml(varargin)\r
-  [lhs,rhs]=argn(0);\r
-  ret=%T;\r
-  file_to_check=SCI+'/etc/modules.xml';\r
-  printf('checking : '+file_to_check+'\n');\r
-  try\r
-  if MSDOS then\r
-    stat = unix_w(SCI+"\modules\helptools\bin\xmllint\xmllint --noout --valid "+file_to_check);\r
-  else\r
-    stat = unix_w("xmllint --noout --valid "+file_to_check);\r
-  end\r
-  catch\r
-  ret=%F;\r
-  end\r
-endfunction \r
-//------------------------------------\r
+//------------------------------------
+// Allan CORNET INRIA 2007
+//------------------------------------
+function ret=check_modules_xml(varargin)
+  [lhs,rhs]=argn(0);
+  ret=%T;
+  file_to_check=SCI+'/etc/modules.xml';
+  printf('checking : '+file_to_check+'\n');
+  try
+  if MSDOS then
+    stat = unix_w(SCI+"\modules\helptools\bin\xmllint\xmllint --noout --valid "+file_to_check);
+  else
+    stat = unix_w("xmllint --noout --valid "+file_to_check);
+  end
+  catch
+  ret=%F;
+  end
+endfunction 
+//------------------------------------
  
\ No newline at end of file
index d83a717..425dde1 100644 (file)
@@ -1,48 +1,48 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "gw_core.h"\r
-#include "machine.h"\r
-#include "stack-c.h"\r
-#include "MALLOC.h"\r
-#include "scilabmode.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(sci_getscilabmode) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-       static int l1,n1,m1;\r
-       char *output=NULL ;\r
-\r
-       Rhs=Max(Rhs,0);\r
-       CheckRhs(0,0) ;\r
-       CheckLhs(1,1) ;\r
-\r
-       output=(char*)MALLOC((strlen("NWNI")+1)*sizeof(char));\r
-\r
-       switch (getScilabMode())\r
-       {\r
-               case SCILAB_API: default :\r
-                       sprintf(output,"API");\r
-               break;\r
-               case SCILAB_STD:\r
-                       sprintf(output,"STD");\r
-               break;\r
-               case SCILAB_NW:\r
-                       sprintf(output,"NW");\r
-               break;\r
-               case SCILAB_NWNI:\r
-                       sprintf(output,"NWNI");\r
-               break;\r
-       }\r
-\r
-       n1=1;\r
-       CreateVarFromPtr(Rhs+1, "c",(m1=strlen(output), &m1),&n1,&output);\r
-       if (output) {FREE(output);output=NULL;}\r
-\r
-       LhsVar(1) = Rhs+1;\r
-       C2F(putlhsvar)();\r
-\r
-       if (output) {FREE(output);output=NULL;}\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include "gw_core.h"
+#include "machine.h"
+#include "stack-c.h"
+#include "MALLOC.h"
+#include "scilabmode.h"
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(sci_getscilabmode) _PARAMS((char *fname,unsigned long fname_len))
+{
+       static int l1,n1,m1;
+       char *output=NULL ;
+
+       Rhs=Max(Rhs,0);
+       CheckRhs(0,0) ;
+       CheckLhs(1,1) ;
+
+       output=(char*)MALLOC((strlen("NWNI")+1)*sizeof(char));
+
+       switch (getScilabMode())
+       {
+               case SCILAB_API: default :
+                       sprintf(output,"API");
+               break;
+               case SCILAB_STD:
+                       sprintf(output,"STD");
+               break;
+               case SCILAB_NW:
+                       sprintf(output,"NW");
+               break;
+               case SCILAB_NWNI:
+                       sprintf(output,"NWNI");
+               break;
+       }
+
+       n1=1;
+       CreateVarFromPtr(Rhs+1, "c",(m1=strlen(output), &m1),&n1,&output);
+       if (output) {FREE(output);output=NULL;}
+
+       LhsVar(1) = Rhs+1;
+       C2F(putlhsvar)();
+
+       if (output) {FREE(output);output=NULL;}
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/ 
index d289bfa..03d16e8 100644 (file)
@@ -1,31 +1,31 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "gw_core.h"\r
-#include "stack-c.h"\r
-#include "islittleendian.h"\r
-#include "MALLOC.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(sci_islittleendian) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-       static int n1,m1;\r
-       int *Status=NULL;\r
-\r
-       CheckRhs(0,1);\r
-       CheckLhs(1,1);\r
-\r
-       Status=(int*)MALLOC(sizeof(int));\r
-       *Status = islittleendian();\r
-\r
-       m1=1;n1=1;\r
-       CreateVarFromPtr(Rhs+1, "b", &n1, &n1, &Status);\r
-       LhsVar(1)=Rhs+1;\r
-\r
-       C2F(putlhsvar)();\r
-\r
-       if (Status) {FREE(Status);Status=NULL;}\r
-\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#include "gw_core.h"
+#include "stack-c.h"
+#include "islittleendian.h"
+#include "MALLOC.h"
+/*-----------------------------------------------------------------------------------*/
+int C2F(sci_islittleendian) _PARAMS((char *fname,unsigned long fname_len))
+{
+       static int n1,m1;
+       int *Status=NULL;
+
+       CheckRhs(0,1);
+       CheckLhs(1,1);
+
+       Status=(int*)MALLOC(sizeof(int));
+       *Status = islittleendian();
+
+       m1=1;n1=1;
+       CreateVarFromPtr(Rhs+1, "b", &n1, &n1, &Status);
+       LhsVar(1)=Rhs+1;
+
+       C2F(putlhsvar)();
+
+       if (Status) {FREE(Status);Status=NULL;}
+
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
index d446336..5a1a81a 100644 (file)
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "expr.h"\r
-#include "ifexpr.h"\r
-#include "msgs.h"\r
-#include "stack-def.h"\r
-#include "stack-c.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-static int inc = 1;\r
-static int checkvalue = 4095;\r
-static int code = 30;\r
-static int val = 0;\r
-/*-----------------------------------------------------------------------------------*/ \r
-extern int C2F(putid)(int *, int *);\r
-extern int C2F(error)(int *);\r
-extern int C2F(compil)(int *, int *, int *, int *, int *);\r
-extern int C2F(getsym)(void);\r
-extern int C2F(istrue)(int *);\r
-extern int C2F(eptover)(int *, int *);\r
-/*-----------------------------------------------------------------------------------*/ \r
-#define  et      58\r
-#define  equal   50\r
-#define  less    59\r
-#define  great   60\r
-#define  not     61\r
-#define  eol     99\r
-#define  colon   44\r
-#define  blank   40\r
-#define  plus    45\r
-#define  minus   46\r
-#define  ou      57\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(expr)(void)\r
-{\r
-       static int eye[6] = { 672014862,673720360,673720360,673720360, 673720360,673720360 };\r
-       int i = 0, j = 0;\r
-       int r = 0 , s = 0, ir = 0, op = 0, ls = 0, sign = 0;\r
-       int temp = 0;\r
-       int kount = 0;\r
-\r
-       if (C2F(iop).ddt == 4) { }\r
-\r
-       r = C2F(recu).rstk[C2F(recu).pt - 1];\r
-       if (r == 204) goto L85;\r
-\r
-       ir = r / 100;\r
-\r
-       if (ir != 1) goto L1;\r
-       \r
-       switch (r - 100) \r
-       {\r
-               case 1:  goto L5;\r
-               case 2:  goto L6;\r
-               case 3:  goto L25;\r
-               case 4:  goto L26;\r
-               case 5:  goto L61;\r
-               case 6:  goto L73;\r
-               case 7:  goto L74;\r
-               case 8:  goto L82;\r
-               case 9:  goto L83;\r
-               case 10:  goto L86;\r
-               case 11:  goto L87;\r
-               case 12:  goto L102;\r
-               case 13:  goto L104;\r
-               case 14:  goto L102;\r
-               case 15:  goto L23;\r
-       }\r
-\r
-L1:\r
-       if (C2F(com).sym >= ou && C2F(com).sym <= great) \r
-       {\r
-               int code_error = 40;\r
-               C2F(error)(&code_error);\r
-               return 0;\r
-       }\r
-L2:\r
-       kount = 1;\r
-       if (C2F(com).sym == not) goto L70;\r
-       \r
-       if (C2F(com).sym == colon) C2F(putid)(C2F(com).syn, eye);\r
-\r
-L3:\r
-       s = 1;\r
-L4:\r
-       if (C2F(com).sym == minus) s = -s;\r
-       \r
-       if (C2F(com).sym == plus || C2F(com).sym == minus) \r
-       {\r
-               C2F(getsym)();\r
-               goto L4;\r
-       }\r
-       sign = plus;\r
-       if (s < 0) sign = minus;\r
-       \r
-       if (C2F(eptover)(&inc, &checkvalue)) return 0;\r
-       \r
-       C2F(recu).pstk[C2F(recu).pt - 1] = sign + (kount << 8);\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 101;\r
-       C2F(recu).icall = 2;\r
-       /* *call* term */\r
-       return 0;\r
-L5:\r
-       sign = C2F(recu).pstk[C2F(recu).pt - 1] % 256;\r
-       kount = C2F(recu).pstk[C2F(recu).pt - 1] / 256;\r
-       --C2F(recu).pt;\r
-       if (sign != minus) goto L10;\r
-       \r
-       C2F(com).rhs = 1;\r
-       ++C2F(recu).pt;\r
-       C2F(recu).pstk[C2F(recu).pt - 1] = kount;\r
-       C2F(com).fin = minus;\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 102;\r
-       C2F(recu).icall = 4;\r
-       /* *call* allops(minus) */\r
-       return 0;\r
-L6:\r
-       kount = C2F(recu).pstk[C2F(recu).pt - 1];\r
-       --C2F(recu).pt;\r
-L10:\r
-       if (C2F(com).sym == plus || C2F(com).sym == minus) goto L20;\r
-       if (C2F(recu).rstk[C2F(recu).pt - 1] == 113) goto L104;\r
-       if (C2F(recu).rstk[C2F(recu).pt - 1] == 112) goto L102;\r
-       if (C2F(com).sym == eol) goto L50;\r
-       if (C2F(com).sym >= ou || C2F(com).sym == equal) goto L70;\r
-       goto L50;\r
-L20:\r
-       if (C2F(recu).rstk[C2F(recu).pt - 1] != 301) goto L21;\r
-       /* blank or tab is delimiter inside angle brackets */\r
-       ls = C2F(iop).lpt[2] - 2;\r
-       if ( (i = C2F(iop).lin[ls - 1], abs(i)) == blank && (j = C2F(iop).lin[C2F(iop).lpt[2] - 1], abs(j)) != blank) goto L50;\r
-               \r
-L21:\r
-       op = C2F(com).sym;\r
-       C2F(getsym)();\r
-       /* next lines added to handle sequence of + and - operators, S. Steer */\r
-       /* 03/2005 (Matlab compatibility). Here i implemented a lazy way */\r
-       /* without calling unary + or unary - operator */\r
-L22:\r
-       if (C2F(com).sym == plus) \r
-       {\r
-               /* 1++2 or 1-+2 */\r
-               C2F(getsym)();\r
-               goto L22;\r
-       }\r
-       if (C2F(com).sym == minus) \r
-       {\r
-               /* 1+-2 or 1--2 */\r
-               if (op == minus) op = plus;\r
-               else op = minus;\r
-                       \r
-               C2F(getsym)();\r
-               goto L22;\r
-       }\r
-       ++C2F(recu).pt;\r
-       C2F(recu).pstk[C2F(recu).pt - 1] = op + (kount << 8);\r
-       if (C2F(com).sym != not) goto L24;\r
-               \r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 115;\r
-       /* *call* lfact */\r
-       goto L85;\r
-\r
-L23:\r
-       goto L25;\r
-\r
-L24:\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 103;\r
-       C2F(recu).icall = 2;\r
-       /* *call* term */\r
-       return 0;\r
-L25:\r
-       op = C2F(recu).pstk[C2F(recu).pt - 1] % 256;\r
-       kount = C2F(recu).pstk[C2F(recu).pt - 1] / 256;\r
-       C2F(com).rhs = 2;\r
-       C2F(recu).pstk[C2F(recu).pt - 1] = kount;\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 104;\r
-       C2F(com).fin = op;\r
-       C2F(recu).icall = 4;\r
-       /* *call* allops(op) */\r
-       return 0;\r
-L26:\r
-       kount = C2F(recu).pstk[C2F(recu).pt - 1];\r
-       --C2F(recu).pt;\r
-       goto L10;\r
-L50:\r
-       if (C2F(com).sym != colon) goto L60;\r
-\r
-       C2F(getsym)();\r
-       ++kount;\r
-       goto L3;\r
-L60:\r
-       if (kount > 3) \r
-       {\r
-               int code_error = 33;\r
-               C2F(error)(&code_error);\r
-               if (C2F(iop).err > 0) return 0;\r
-       }\r
-       C2F(com).rhs = kount;\r
-       if (kount <= 1) return 0;\r
-       ++C2F(recu).pt;\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 105;\r
-       C2F(com).fin = colon;\r
-       C2F(recu).icall = 4;\r
-       /* *call* allops(colon) */\r
-       return 0;\r
-L61:\r
-       --C2F(recu).pt;\r
-       r = C2F(recu).rstk[C2F(recu).pt - 1];\r
-       ir = r / 100;\r
-       if (ir != 1) return 0;\r
-\r
-       switch (r - 100) \r
-       {\r
-               case 1:  goto L5;\r
-               case 2:  goto L6;\r
-               case 3:  goto L25;\r
-               case 4:  goto L26;\r
-               case 5:  goto L61;\r
-               case 6:  goto L73;\r
-               case 7:  goto L74;\r
-               case 8:  goto L82;\r
-               case 9:  goto L83;\r
-               case 10:  goto L86;\r
-               case 11:  goto L87;\r
-               case 12:  goto L102;\r
-               case 13:  goto L104;\r
-               case 14:  goto L102;\r
-       }\r
-\r
-       /* in-line lexpr */\r
-L70:\r
-       if (C2F(iop).ddt == 4) {}\r
-L72:\r
-       if (C2F(eptover)(&inc, &checkvalue)) return 0;\r
-       C2F(recu).ids[C2F(recu).pt * 6 - 6] = 0;\r
-       C2F(recu).ids[C2F(recu).pt * 6 - 5] = C2F(errgst).err1;\r
-       if (C2F(com).sym == ou) \r
-       {\r
-               /* call getsym */\r
-               C2F(recu).pstk[C2F(recu).pt - 1] = ou;\r
-               if (C2F(ifexpr)()) \r
-               {\r
-                       /* checking for possible logical 'if expression' */\r
-                       /* evaluation shortcircuit */\r
-                       if (C2F(com).comp[0] != 0) \r
-                       {\r
-                               if (C2F(compil)(&code, &inc, &val, &val, &val)) \r
-                               {\r
-                                       if (C2F(iop).err > 0) return 0;\r
-                                       C2F(recu).ids[C2F(recu).pt * 6 - 6] = C2F(com).comp[0];\r
-                               }\r
-                       } \r
-                       else \r
-                       {\r
-                               temp = (i = ((int *)&C2F(stack))[C2F(vstk).lstk[C2F(vstk).top - 1] + C2F(vstk).lstk[C2F(vstk).top - 1] - 1 - 1], abs(i));\r
-                               if ( (temp != 8) && (C2F(istrue)(&val)) )\r
-                               {\r
-                                       /* first term is true there is no use to evaluate the other */\r
-                                       C2F(recu).ids[C2F(recu).pt * 6 - 6] = 1;\r
-                                       /* err1 <>0 sets interpretation without evaluation */\r
-                                       /* use special value to be able to distinguish from */\r
-                                       /* recovered errors */\r
-                                       C2F(errgst).err1 = 9191919;\r
-                               }\r
-                       }\r
-               }\r
-       }\r
-       else C2F(recu).pstk[C2F(recu).pt - 1] = 0;\r
-       C2F(recu).pstk[C2F(recu).pt - 1] += kount << 8;\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 106;\r
-       /* *call* lterm */\r
-       goto L80;\r
-L73:\r
-       op = C2F(recu).pstk[C2F(recu).pt - 1] % 256;\r
-       kount = C2F(recu).pstk[C2F(recu).pt - 1] / 256;\r
-       --C2F(recu).pt;\r
-       if (op == 0) goto L75;\r
-       \r
-       if (C2F(com).comp[0] == 0 && C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6] == 1) \r
-       {\r
-               /* term has not been evaluated */\r
-               if ((i = -C2F(errgst).errct, abs(i)) / 100000 == 0) \r
-               {\r
-                       C2F(errgst).err1 = C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 5];\r
-               } \r
-               else if (C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 5] != 0) \r
-               {\r
-                       C2F(errgst).err1 = C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 5];\r
-               } \r
-               else \r
-               {\r
-                       if (C2F(errgst).err1 == 9191919) C2F(errgst).err1 = 0;\r
-               }\r
-               if (C2F(errgst).err1 > 0) return 0;\r
-               goto L75;\r
-       }\r
-       C2F(recu).icall = 4;\r
-       C2F(com).fin = ou;\r
-       C2F(com).rhs = 2;\r
-       ++C2F(recu).pt;\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 107;\r
-       C2F(recu).pstk[C2F(recu).pt - 1] = kount;\r
-       /* *call* allops(ou) */\r
-       return 0;\r
-L74:\r
-       kount = C2F(recu).pstk[C2F(recu).pt - 1];\r
-       if (C2F(com).comp[0] != 0 && C2F(recu).ids[C2F(recu).pt * 6 - 6] != 0) \r
-       {\r
-               i = C2F(recu).ids[C2F(recu).pt * 6 - 6] - 1;\r
-               if ( (C2F(compil)(&code, &val, &i, &val, &val)) && (C2F(iop).err > 0) ) return 0;\r
-       }\r
-       --C2F(recu).pt;\r
-L75:\r
-       if (C2F(com).sym == ou) goto L72;\r
-       goto L50;\r
-       /* in-line lterm */\r
-L80:\r
-       if (C2F(iop).ddt == 4) { }\r
-L81:\r
-       if (C2F(eptover)(&inc, &checkvalue)) return 0;\r
-       \r
-       C2F(recu).ids[C2F(recu).pt * 6 - 6] = 0;\r
-       C2F(recu).ids[C2F(recu).pt * 6 - 5] = C2F(errgst).err1;\r
-       if (C2F(com).sym == et) \r
-       {\r
-               C2F(recu).pstk[C2F(recu).pt - 1] = et;\r
-               C2F(recu).ids[C2F(recu).pt * 6 - 6] = 0;\r
-               if (C2F(ifexpr)()) \r
-               {\r
-                       /* if expression evaluation, checking for possible */\r
-                       /* logical expression evaluation shortcircuit */\r
-                       if (C2F(com).comp[0] != 0) \r
-                       {\r
-                               if (C2F(compil)(&code, &val, &val, &val, &val)) \r
-                               {\r
-                                       if (C2F(iop).err > 0) return 0;\r
-                                       C2F(recu).ids[C2F(recu).pt * 6 - 6] = C2F(com).comp[0];\r
-                               }\r
-                       } \r
-                       else \r
-                       {\r
-                               temp = (i = ((int *)&C2F(stack))[C2F(vstk).lstk[C2F(vstk).top - 1] + C2F(vstk).lstk[C2F(vstk).top - 1] - 1 - 1], abs(i));\r
-                               if ( (temp != 8) && (! C2F(istrue)(&val)) )\r
-                               {\r
-                                       /* first term is false there is no use to evaluate the other */\r
-                                       C2F(recu).ids[C2F(recu).pt * 6 - 6] = 1;\r
-                                       /* err1 <>0 sets interpretation without evaluation */\r
-                                       C2F(errgst).err1 = 9191919;\r
-                               }\r
-                       }\r
-               }\r
-       } \r
-       else \r
-       {\r
-               C2F(recu).pstk[C2F(recu).pt - 1] = 0;\r
-       }\r
-       C2F(recu).pstk[C2F(recu).pt - 1] += kount << 8;\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 108;\r
-       /* *call* lfact */\r
-       goto L85;\r
-L82:\r
-       op = C2F(recu).pstk[C2F(recu).pt - 1] % 256;\r
-       kount = C2F(recu).pstk[C2F(recu).pt - 1] / 256;\r
-       --C2F(recu).pt;\r
-       if (op == 0) goto L84;\r
-       \r
-       if (C2F(com).comp[0] == 0 && C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6] == 1) \r
-       {\r
-               /* term has not been evaluated */\r
-               if ((i = -C2F(errgst).errct, abs(i)) / 100000 == 0) \r
-               {\r
-                       C2F(errgst).err1 = C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 5];\r
-               } \r
-               else if (C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 5] != 0) \r
-               {\r
-                       /* error detected before if expression evaluation (should not occur ?) */\r
-                       C2F(errgst).err1 = C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 5];\r
-               } \r
-               else \r
-               {\r
-                       if (C2F(errgst).err1 == 9191919) C2F(errgst).err1 = 0;\r
-               }\r
-               if (C2F(errgst).err1 > 0) return 0;\r
-               goto L84;\r
-       }\r
-       C2F(recu).icall = 4;\r
-       C2F(com).fin = et;\r
-       C2F(com).rhs = 2;\r
-       ++C2F(recu).pt;\r
-       C2F(recu).pstk[C2F(recu).pt - 1] = kount;\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 109;\r
-       /* *call* allops(et) */\r
-       return 0;\r
-L83:\r
-       kount = C2F(recu).pstk[C2F(recu).pt - 1];\r
-       if (C2F(com).comp[0] != 0 && C2F(recu).ids[C2F(recu).pt * 6 - 6] != 0) \r
-       {\r
-               i = C2F(recu).ids[C2F(recu).pt * 6 - 6] - 1;\r
-               if ( (C2F(compil)(&code, &val, &i, &val, &val)) && (C2F(iop).err > 0) ) return 0;\r
-       }\r
-       --C2F(recu).pt;\r
-L84:\r
-       if (C2F(com).sym != et) goto L73;\r
-       goto L81;\r
-\r
-       /* in-line lfact */\r
-L85:\r
-       if (C2F(iop).ddt == 4) { }\r
-       if (C2F(eptover)(&inc, &checkvalue)) return 0;\r
-               \r
-       C2F(recu).pstk[C2F(recu).pt - 1] = 0;\r
-       if (C2F(com).sym == not && C2F(com).char1 != equal) \r
-       {\r
-               C2F(recu).pstk[C2F(recu).pt - 1] = not;\r
-               C2F(getsym)();\r
-       }\r
-       C2F(recu).pstk[C2F(recu).pt - 1] += kount << 8;\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 110;\r
-       /* *call* lprim */\r
-       goto L100;\r
-L86:\r
-       op = C2F(recu).pstk[C2F(recu).pt - 1] % 256;\r
-       kount = C2F(recu).pstk[C2F(recu).pt - 1] / 256;\r
-       --C2F(recu).pt;\r
-       if (op == 0) goto L82;\r
-       C2F(com).fin = op;\r
-       C2F(com).rhs = 1;\r
-       ++C2F(recu).pt;\r
-       C2F(recu).pstk[C2F(recu).pt - 1] = kount;\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 111;\r
-       C2F(recu).icall = 4;\r
-       /* *call* allops(not) */\r
-       return 0;\r
-L87:\r
-       kount = C2F(recu).pstk[C2F(recu).pt - 1];\r
-       --C2F(recu).pt;\r
-       /* next two lines to handle a+~b and a*~b,... */\r
-       if (C2F(recu).rstk[C2F(recu).pt - 1] == 115) goto L23;\r
-       if (C2F(recu).rstk[C2F(recu).pt - 1] == 204) return 0;\r
-       goto L82;\r
-       /* in-line lprim */\r
-L100:\r
-       if (C2F(iop).ddt == 4) { }\r
-       if (C2F(recu).pstk[C2F(recu).pt - 1] % 256 != 0) goto L101;\r
-       if (C2F(com).sym != et && C2F(com).sym != ou) goto L103;\r
-       C2F(getsym)();\r
-       /* modif SS */\r
-       if (C2F(eptover)(&val, &checkvalue)) return 0;\r
-L101:\r
-       ++C2F(recu).pt;\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 112;\r
-       C2F(recu).icall = 1;\r
-       /* *call* expr */\r
-       goto L2;\r
-L102:\r
-       --C2F(recu).pt;\r
-       if ((C2F(com).sym != equal && C2F(com).sym < less) || C2F(com).sym == eol) goto L86;\r
-L103:\r
-       op = C2F(com).sym;\r
-       C2F(getsym)();\r
-       if (op == equal && C2F(com).sym != equal) \r
-       {\r
-               int code_message = 7;\r
-               C2F(msgs)(&code_message, &val);\r
-       }\r
-       \r
-       if (C2F(com).sym == equal || C2F(com).sym == great) \r
-       {\r
-               if (op != equal) op += C2F(com).sym;\r
-               C2F(getsym)();\r
-               if (op == not + equal) op = less + great;\r
-       }\r
-       ++C2F(recu).pt;\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 113;\r
-       C2F(recu).pstk[C2F(recu).pt - 1] = op;\r
-       C2F(recu).icall = 1;\r
-       /* *call* expr */\r
-       goto L2;\r
-L104:\r
-       C2F(com).fin = C2F(recu).pstk[C2F(recu).pt - 1];\r
-       C2F(com).rhs = 2;\r
-       C2F(recu).rstk[C2F(recu).pt - 1] = 114;\r
-       C2F(recu).icall = 4;\r
-       /* *call* allops(fin) */\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-\r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include "expr.h"
+#include "ifexpr.h"
+#include "msgs.h"
+#include "stack-def.h"
+#include "stack-c.h"
+/*-----------------------------------------------------------------------------------*/ 
+static int inc = 1;
+static int checkvalue = 4095;
+static int code = 30;
+static int val = 0;
+/*-----------------------------------------------------------------------------------*/ 
+extern int C2F(putid)(int *, int *);
+extern int C2F(error)(int *);
+extern int C2F(compil)(int *, int *, int *, int *, int *);
+extern int C2F(getsym)(void);
+extern int C2F(istrue)(int *);
+extern int C2F(eptover)(int *, int *);
+/*-----------------------------------------------------------------------------------*/ 
+#define  et      58
+#define  equal   50
+#define  less    59
+#define  great   60
+#define  not     61
+#define  eol     99
+#define  colon   44
+#define  blank   40
+#define  plus    45
+#define  minus   46
+#define  ou      57
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(expr)(void)
+{
+       static int eye[6] = { 672014862,673720360,673720360,673720360, 673720360,673720360 };
+       int i = 0, j = 0;
+       int r = 0 , s = 0, ir = 0, op = 0, ls = 0, sign = 0;
+       int temp = 0;
+       int kount = 0;
+
+       if (C2F(iop).ddt == 4) { }
+
+       r = C2F(recu).rstk[C2F(recu).pt - 1];
+       if (r == 204) goto L85;
+
+       ir = r / 100;
+
+       if (ir != 1) goto L1;
+       
+       switch (r - 100) 
+       {
+               case 1:  goto L5;
+               case 2:  goto L6;
+               case 3:  goto L25;
+               case 4:  goto L26;
+               case 5:  goto L61;
+               case 6:  goto L73;
+               case 7:  goto L74;
+               case 8:  goto L82;
+               case 9:  goto L83;
+               case 10:  goto L86;
+               case 11:  goto L87;
+               case 12:  goto L102;
+               case 13:  goto L104;
+               case 14:  goto L102;
+               case 15:  goto L23;
+       }
+
+L1:
+       if (C2F(com).sym >= ou && C2F(com).sym <= great) 
+       {
+               int code_error = 40;
+               C2F(error)(&code_error);
+               return 0;
+       }
+L2:
+       kount = 1;
+       if (C2F(com).sym == not) goto L70;
+       
+       if (C2F(com).sym == colon) C2F(putid)(C2F(com).syn, eye);
+
+L3:
+       s = 1;
+L4:
+       if (C2F(com).sym == minus) s = -s;
+       
+       if (C2F(com).sym == plus || C2F(com).sym == minus) 
+       {
+               C2F(getsym)();
+               goto L4;
+       }
+       sign = plus;
+       if (s < 0) sign = minus;
+       
+       if (C2F(eptover)(&inc, &checkvalue)) return 0;
+       
+       C2F(recu).pstk[C2F(recu).pt - 1] = sign + (kount << 8);
+       C2F(recu).rstk[C2F(recu).pt - 1] = 101;
+       C2F(recu).icall = 2;
+       /* *call* term */
+       return 0;
+L5:
+       sign = C2F(recu).pstk[C2F(recu).pt - 1] % 256;
+       kount = C2F(recu).pstk[C2F(recu).pt - 1] / 256;
+       --C2F(recu).pt;
+       if (sign != minus) goto L10;
+       
+       C2F(com).rhs = 1;
+       ++C2F(recu).pt;
+       C2F(recu).pstk[C2F(recu).pt - 1] = kount;
+       C2F(com).fin = minus;
+       C2F(recu).rstk[C2F(recu).pt - 1] = 102;
+       C2F(recu).icall = 4;
+       /* *call* allops(minus) */
+       return 0;
+L6:
+       kount = C2F(recu).pstk[C2F(recu).pt - 1];
+       --C2F(recu).pt;
+L10:
+       if (C2F(com).sym == plus || C2F(com).sym == minus) goto L20;
+       if (C2F(recu).rstk[C2F(recu).pt - 1] == 113) goto L104;
+       if (C2F(recu).rstk[C2F(recu).pt - 1] == 112) goto L102;
+       if (C2F(com).sym == eol) goto L50;
+       if (C2F(com).sym >= ou || C2F(com).sym == equal) goto L70;
+       goto L50;
+L20:
+       if (C2F(recu).rstk[C2F(recu).pt - 1] != 301) goto L21;
+       /* blank or tab is delimiter inside angle brackets */
+       ls = C2F(iop).lpt[2] - 2;
+       if ( (i = C2F(iop).lin[ls - 1], abs(i)) == blank && (j = C2F(iop).lin[C2F(iop).lpt[2] - 1], abs(j)) != blank) goto L50;
+               
+L21:
+       op = C2F(com).sym;
+       C2F(getsym)();
+       /* next lines added to handle sequence of + and - operators, S. Steer */
+       /* 03/2005 (Matlab compatibility). Here i implemented a lazy way */
+       /* without calling unary + or unary - operator */
+L22:
+       if (C2F(com).sym == plus) 
+       {
+               /* 1++2 or 1-+2 */
+               C2F(getsym)();
+               goto L22;
+       }
+       if (C2F(com).sym == minus) 
+       {
+               /* 1+-2 or 1--2 */
+               if (op == minus) op = plus;
+               else op = minus;
+                       
+               C2F(getsym)();
+               goto L22;
+       }
+       ++C2F(recu).pt;
+       C2F(recu).pstk[C2F(recu).pt - 1] = op + (kount << 8);
+       if (C2F(com).sym != not) goto L24;
+               
+       C2F(recu).rstk[C2F(recu).pt - 1] = 115;
+       /* *call* lfact */
+       goto L85;
+
+L23:
+       goto L25;
+
+L24:
+       C2F(recu).rstk[C2F(recu).pt - 1] = 103;
+       C2F(recu).icall = 2;
+       /* *call* term */
+       return 0;
+L25:
+       op = C2F(recu).pstk[C2F(recu).pt - 1] % 256;
+       kount = C2F(recu).pstk[C2F(recu).pt - 1] / 256;
+       C2F(com).rhs = 2;
+       C2F(recu).pstk[C2F(recu).pt - 1] = kount;
+       C2F(recu).rstk[C2F(recu).pt - 1] = 104;
+       C2F(com).fin = op;
+       C2F(recu).icall = 4;
+       /* *call* allops(op) */
+       return 0;
+L26:
+       kount = C2F(recu).pstk[C2F(recu).pt - 1];
+       --C2F(recu).pt;
+       goto L10;
+L50:
+       if (C2F(com).sym != colon) goto L60;
+
+       C2F(getsym)();
+       ++kount;
+       goto L3;
+L60:
+       if (kount > 3) 
+       {
+               int code_error = 33;
+               C2F(error)(&code_error);
+               if (C2F(iop).err > 0) return 0;
+       }
+       C2F(com).rhs = kount;
+       if (kount <= 1) return 0;
+       ++C2F(recu).pt;
+       C2F(recu).rstk[C2F(recu).pt - 1] = 105;
+       C2F(com).fin = colon;
+       C2F(recu).icall = 4;
+       /* *call* allops(colon) */
+       return 0;
+L61:
+       --C2F(recu).pt;
+       r = C2F(recu).rstk[C2F(recu).pt - 1];
+       ir = r / 100;
+       if (ir != 1) return 0;
+
+       switch (r - 100) 
+       {
+               case 1:  goto L5;
+               case 2:  goto L6;
+               case 3:  goto L25;
+               case 4:  goto L26;
+               case 5:  goto L61;
+               case 6:  goto L73;
+               case 7:  goto L74;
+               case 8:  goto L82;
+               case 9:  goto L83;
+               case 10:  goto L86;
+               case 11:  goto L87;
+               case 12:  goto L102;
+               case 13:  goto L104;
+               case 14:  goto L102;
+       }
+
+       /* in-line lexpr */
+L70:
+       if (C2F(iop).ddt == 4) {}
+L72:
+       if (C2F(eptover)(&inc, &checkvalue)) return 0;
+       C2F(recu).ids[C2F(recu).pt * 6 - 6] = 0;
+       C2F(recu).ids[C2F(recu).pt * 6 - 5] = C2F(errgst).err1;
+       if (C2F(com).sym == ou) 
+       {
+               /* call getsym */
+               C2F(recu).pstk[C2F(recu).pt - 1] = ou;
+               if (C2F(ifexpr)()) 
+               {
+                       /* checking for possible logical 'if expression' */
+                       /* evaluation shortcircuit */
+                       if (C2F(com).comp[0] != 0) 
+                       {
+                               if (C2F(compil)(&code, &inc, &val, &val, &val)) 
+                               {
+                                       if (C2F(iop).err > 0) return 0;
+                                       C2F(recu).ids[C2F(recu).pt * 6 - 6] = C2F(com).comp[0];
+                               }
+                       } 
+                       else 
+                       {
+                               temp = (i = ((int *)&C2F(stack))[C2F(vstk).lstk[C2F(vstk).top - 1] + C2F(vstk).lstk[C2F(vstk).top - 1] - 1 - 1], abs(i));
+                               if ( (temp != 8) && (C2F(istrue)(&val)) )
+                               {
+                                       /* first term is true there is no use to evaluate the other */
+                                       C2F(recu).ids[C2F(recu).pt * 6 - 6] = 1;
+                                       /* err1 <>0 sets interpretation without evaluation */
+                                       /* use special value to be able to distinguish from */
+                                       /* recovered errors */
+                                       C2F(errgst).err1 = 9191919;
+                               }
+                       }
+               }
+       }
+       else C2F(recu).pstk[C2F(recu).pt - 1] = 0;
+       C2F(recu).pstk[C2F(recu).pt - 1] += kount << 8;
+       C2F(recu).rstk[C2F(recu).pt - 1] = 106;
+       /* *call* lterm */
+       goto L80;
+L73:
+       op = C2F(recu).pstk[C2F(recu).pt - 1] % 256;
+       kount = C2F(recu).pstk[C2F(recu).pt - 1] / 256;
+       --C2F(recu).pt;
+       if (op == 0) goto L75;
+       
+       if (C2F(com).comp[0] == 0 && C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6] == 1) 
+       {
+               /* term has not been evaluated */
+               if ((i = -C2F(errgst).errct, abs(i)) / 100000 == 0) 
+               {
+                       C2F(errgst).err1 = C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 5];
+               } 
+               else if (C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 5] != 0) 
+               {
+                       C2F(errgst).err1 = C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 5];
+               } 
+               else 
+               {
+                       if (C2F(errgst).err1 == 9191919) C2F(errgst).err1 = 0;
+               }
+               if (C2F(errgst).err1 > 0) return 0;
+               goto L75;
+       }
+       C2F(recu).icall = 4;
+       C2F(com).fin = ou;
+       C2F(com).rhs = 2;
+       ++C2F(recu).pt;
+       C2F(recu).rstk[C2F(recu).pt - 1] = 107;
+       C2F(recu).pstk[C2F(recu).pt - 1] = kount;
+       /* *call* allops(ou) */
+       return 0;
+L74:
+       kount = C2F(recu).pstk[C2F(recu).pt - 1];
+       if (C2F(com).comp[0] != 0 && C2F(recu).ids[C2F(recu).pt * 6 - 6] != 0) 
+       {
+               i = C2F(recu).ids[C2F(recu).pt * 6 - 6] - 1;
+               if ( (C2F(compil)(&code, &val, &i, &val, &val)) && (C2F(iop).err > 0) ) return 0;
+       }
+       --C2F(recu).pt;
+L75:
+       if (C2F(com).sym == ou) goto L72;
+       goto L50;
+       /* in-line lterm */
+L80:
+       if (C2F(iop).ddt == 4) { }
+L81:
+       if (C2F(eptover)(&inc, &checkvalue)) return 0;
+       
+       C2F(recu).ids[C2F(recu).pt * 6 - 6] = 0;
+       C2F(recu).ids[C2F(recu).pt * 6 - 5] = C2F(errgst).err1;
+       if (C2F(com).sym == et) 
+       {
+               C2F(recu).pstk[C2F(recu).pt - 1] = et;
+               C2F(recu).ids[C2F(recu).pt * 6 - 6] = 0;
+               if (C2F(ifexpr)()) 
+               {
+                       /* if expression evaluation, checking for possible */
+                       /* logical expression evaluation shortcircuit */
+                       if (C2F(com).comp[0] != 0) 
+                       {
+                               if (C2F(compil)(&code, &val, &val, &val, &val)) 
+                               {
+                                       if (C2F(iop).err > 0) return 0;
+                                       C2F(recu).ids[C2F(recu).pt * 6 - 6] = C2F(com).comp[0];
+                               }
+                       } 
+                       else 
+                       {
+                               temp = (i = ((int *)&C2F(stack))[C2F(vstk).lstk[C2F(vstk).top - 1] + C2F(vstk).lstk[C2F(vstk).top - 1] - 1 - 1], abs(i));
+                               if ( (temp != 8) && (! C2F(istrue)(&val)) )
+                               {
+                                       /* first term is false there is no use to evaluate the other */
+                                       C2F(recu).ids[C2F(recu).pt * 6 - 6] = 1;
+                                       /* err1 <>0 sets interpretation without evaluation */
+                                       C2F(errgst).err1 = 9191919;
+                               }
+                       }
+               }
+       } 
+       else 
+       {
+               C2F(recu).pstk[C2F(recu).pt - 1] = 0;
+       }
+       C2F(recu).pstk[C2F(recu).pt - 1] += kount << 8;
+       C2F(recu).rstk[C2F(recu).pt - 1] = 108;
+       /* *call* lfact */
+       goto L85;
+L82:
+       op = C2F(recu).pstk[C2F(recu).pt - 1] % 256;
+       kount = C2F(recu).pstk[C2F(recu).pt - 1] / 256;
+       --C2F(recu).pt;
+       if (op == 0) goto L84;
+       
+       if (C2F(com).comp[0] == 0 && C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6] == 1) 
+       {
+               /* term has not been evaluated */
+               if ((i = -C2F(errgst).errct, abs(i)) / 100000 == 0) 
+               {
+                       C2F(errgst).err1 = C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 5];
+               } 
+               else if (C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 5] != 0) 
+               {
+                       /* error detected before if expression evaluation (should not occur ?) */
+                       C2F(errgst).err1 = C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 5];
+               } 
+               else 
+               {
+                       if (C2F(errgst).err1 == 9191919) C2F(errgst).err1 = 0;
+               }
+               if (C2F(errgst).err1 > 0) return 0;
+               goto L84;
+       }
+       C2F(recu).icall = 4;
+       C2F(com).fin = et;
+       C2F(com).rhs = 2;
+       ++C2F(recu).pt;
+       C2F(recu).pstk[C2F(recu).pt - 1] = kount;
+       C2F(recu).rstk[C2F(recu).pt - 1] = 109;
+       /* *call* allops(et) */
+       return 0;
+L83:
+       kount = C2F(recu).pstk[C2F(recu).pt - 1];
+       if (C2F(com).comp[0] != 0 && C2F(recu).ids[C2F(recu).pt * 6 - 6] != 0) 
+       {
+               i = C2F(recu).ids[C2F(recu).pt * 6 - 6] - 1;
+               if ( (C2F(compil)(&code, &val, &i, &val, &val)) && (C2F(iop).err > 0) ) return 0;
+       }
+       --C2F(recu).pt;
+L84:
+       if (C2F(com).sym != et) goto L73;
+       goto L81;
+
+       /* in-line lfact */
+L85:
+       if (C2F(iop).ddt == 4) { }
+       if (C2F(eptover)(&inc, &checkvalue)) return 0;
+               
+       C2F(recu).pstk[C2F(recu).pt - 1] = 0;
+       if (C2F(com).sym == not && C2F(com).char1 != equal) 
+       {
+               C2F(recu).pstk[C2F(recu).pt - 1] = not;
+               C2F(getsym)();
+       }
+       C2F(recu).pstk[C2F(recu).pt - 1] += kount << 8;
+       C2F(recu).rstk[C2F(recu).pt - 1] = 110;
+       /* *call* lprim */
+       goto L100;
+L86:
+       op = C2F(recu).pstk[C2F(recu).pt - 1] % 256;
+       kount = C2F(recu).pstk[C2F(recu).pt - 1] / 256;
+       --C2F(recu).pt;
+       if (op == 0) goto L82;
+       C2F(com).fin = op;
+       C2F(com).rhs = 1;
+       ++C2F(recu).pt;
+       C2F(recu).pstk[C2F(recu).pt - 1] = kount;
+       C2F(recu).rstk[C2F(recu).pt - 1] = 111;
+       C2F(recu).icall = 4;
+       /* *call* allops(not) */
+       return 0;
+L87:
+       kount = C2F(recu).pstk[C2F(recu).pt - 1];
+       --C2F(recu).pt;
+       /* next two lines to handle a+~b and a*~b,... */
+       if (C2F(recu).rstk[C2F(recu).pt - 1] == 115) goto L23;
+       if (C2F(recu).rstk[C2F(recu).pt - 1] == 204) return 0;
+       goto L82;
+       /* in-line lprim */
+L100:
+       if (C2F(iop).ddt == 4) { }
+       if (C2F(recu).pstk[C2F(recu).pt - 1] % 256 != 0) goto L101;
+       if (C2F(com).sym != et && C2F(com).sym != ou) goto L103;
+       C2F(getsym)();
+       /* modif SS */
+       if (C2F(eptover)(&val, &checkvalue)) return 0;
+L101:
+       ++C2F(recu).pt;
+       C2F(recu).rstk[C2F(recu).pt - 1] = 112;
+       C2F(recu).icall = 1;
+       /* *call* expr */
+       goto L2;
+L102:
+       --C2F(recu).pt;
+       if ((C2F(com).sym != equal && C2F(com).sym < less) || C2F(com).sym == eol) goto L86;
+L103:
+       op = C2F(com).sym;
+       C2F(getsym)();
+       if (op == equal && C2F(com).sym != equal) 
+       {
+               int code_message = 7;
+               C2F(msgs)(&code_message, &val);
+       }
+       
+       if (C2F(com).sym == equal || C2F(com).sym == great) 
+       {
+               if (op != equal) op += C2F(com).sym;
+               C2F(getsym)();
+               if (op == not + equal) op = less + great;
+       }
+       ++C2F(recu).pt;
+       C2F(recu).rstk[C2F(recu).pt - 1] = 113;
+       C2F(recu).pstk[C2F(recu).pt - 1] = op;
+       C2F(recu).icall = 1;
+       /* *call* expr */
+       goto L2;
+L104:
+       C2F(com).fin = C2F(recu).pstk[C2F(recu).pt - 1];
+       C2F(com).rhs = 2;
+       C2F(recu).rstk[C2F(recu).pt - 1] = 114;
+       C2F(recu).icall = 4;
+       /* *call* allops(fin) */
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/ 
+
+
index cbb5fd0..afb9dc9 100644 (file)
@@ -1,13 +1,13 @@
-/*-----------------------------------------------------------------------------------*/ \r
-/* INRIA 2007 */\r
-/* Allan CORNET*/\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef __EXPR_H__\r
-#define __EXPR_H__\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "machine.h" /* C2F */\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(expr)(void);\r
-/*-----------------------------------------------------------------------------------*/ \r
-#endif /*  __EXPR_H__ */\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/ 
+/* INRIA 2007 */
+/* Allan CORNET*/
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef __EXPR_H__
+#define __EXPR_H__
+/*-----------------------------------------------------------------------------------*/ 
+#include "machine.h" /* C2F */
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(expr)(void);
+/*-----------------------------------------------------------------------------------*/ 
+#endif /*  __EXPR_H__ */
+/*-----------------------------------------------------------------------------------*/ 
index e82615b..b8e55fd 100644 (file)
-/*-----------------------------------------------------------------------------------*/\r
-/* Scilab */\r
-/* Allan CORNET */\r
-/* INRIA 2007 */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef _MSC_VER\r
-#include <sys/param.h>\r
-#endif\r
-#include <string.h>\r
-#include <stdlib.h>\r
-#include "machine.h"\r
-#include "filesmanagement.h"\r
-#include "core_math.h" /* Min Max */\r
-#include "MALLOC.h" \r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef _MSC_VER\r
-#define _fullpath(a,r,l) realpath(r,a)\r
-#endif\r
-/*-----------------------------------------------------------------------------------*/\r
-typedef struct {\r
-       FILE *ftformat;\r
-       int ftswap; /* swap status for each file */\r
-       int ftmode; /* mode for each file */\r
-       int fttype; /* type (Fortran,C) for each file must be zero initialized */\r
-       char *ftname; /* name for each file */\r
-       \r
-} scilabfile;\r
-/*-----------------------------------------------------------------------------------*/\r
-static scilabfile *ScilabFileList = NULL;\r
-static int CurFile =-1;\r
-static int CurrentMaxFiles=DEFAULT_MAX_FILES;\r
-/*-----------------------------------------------------------------------------------*/\r
-FILE *GetFileOpenedInScilab(int Id)\r
-{\r
-       int fd1=0;\r
-\r
-       fd1 = (Id != -1) ?  Min(Max(Id,0),GetMaximumFileOpenedInScilab()-1) : CurFile ;\r
-\r
-       if ( fd1 != -1 ) return(ScilabFileList[fd1].ftformat);\r
-       return((FILE *) 0);\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-int GetCurrentFileId(void)\r
-{\r
-       return CurFile;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-void SetCurrentFileId(int Id)\r
-{\r
-       CurFile=Id;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-void SetFileOpenedInScilab(int Id,FILE *fptr)\r
-{\r
-       ScilabFileList[Id].ftformat=fptr;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-int GetSwapStatus(integer Id)\r
-{\r
-       int fd1;\r
-       fd1 = (Id != -1) ?  Min(Max(Id,0),GetMaximumFileOpenedInScilab()-1) : GetCurrentFileId() ;\r
-       if ( fd1 != -1 ) return(ScilabFileList[fd1].ftswap);\r
-       return(0);\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-void SetSwapStatus(int Id,int newswap)\r
-{\r
-       ScilabFileList[Id].ftswap =  newswap;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-int GetMaximumFileOpenedInScilab(void)\r
-{\r
-       return CurrentMaxFiles;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-int GetFileModeOpenedInScilab(int Id)\r
-{\r
-       return ScilabFileList[Id].ftmode;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-void SetFileModeOpenedInScilab(int Id,int mode)\r
-{\r
-       ScilabFileList[Id].ftmode = mode;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-int GetFileTypeOpenedInScilab(int Id)\r
-{\r
-       return ScilabFileList[Id].fttype;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-void SetFileTypeOpenedInScilab(int Id,int Type)\r
-{\r
-       ScilabFileList[Id].fttype = Type;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-char* GetFileNameOpenedInScilab(int Id)\r
-{\r
-       return ScilabFileList[Id].ftname;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-BOOL SetFileNameOpenedInScilab(int Id,char *name)\r
-{\r
-       BOOL bOK=FALSE;\r
-       char *ptrName=NULL;\r
-       char fullpath[_MAX_PATH*4];\r
-\r
-       /* A exception for Id 5 and 6 */\r
-       /* no filename */\r
-       if ( strcmp(name,"") == 0 )\r
-       {\r
-               ptrName=(char*)MALLOC(sizeof(char)*(strlen(name)+1));\r
-               strcpy(ptrName,name);\r
-       }\r
-       else\r
-       {\r
-               if( _fullpath( fullpath, name, _MAX_PATH*4 ) != NULL )\r
-               {\r
-                       ptrName=(char*)MALLOC(sizeof(char)*(strlen(fullpath)+1));\r
-                       strcpy(ptrName,fullpath);\r
-               }\r
-               else\r
-               {\r
-                       ptrName=(char*)MALLOC(sizeof(char)*(strlen(name)+1));\r
-                       strcpy(ptrName,name);\r
-               }\r
-       }\r
-       \r
-       ScilabFileList[Id].ftname = ptrName;\r
-       bOK=TRUE;\r
-\r
-       return bOK;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-BOOL FreeFileNameOpenedInScilab(int Id)\r
-{\r
-       BOOL bOK=FALSE;\r
-       char *ptr = ScilabFileList[Id].ftname;\r
-       if (ptr) { FREE(ptr);  ptr = NULL; bOK=TRUE;}\r
-       return bOK;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-BOOL InitializeScilabFilesList(void)\r
-{\r
-       BOOL bOK=FALSE;\r
-       if (!ScilabFileList)\r
-       {\r
-               CurrentMaxFiles=DEFAULT_MAX_FILES;\r
-               ScilabFileList=(scilabfile *)MALLOC(sizeof(scilabfile)*CurrentMaxFiles);\r
-\r
-               if (ScilabFileList)\r
-               {\r
-                       int i=0;\r
-                       for (i=0;i<CurrentMaxFiles;i++)\r
-                       {\r
-                               ScilabFileList[i].ftformat=NULL;\r
-                               ScilabFileList[i].ftmode=0;\r
-                               ScilabFileList[i].ftname=NULL;\r
-                               ScilabFileList[i].ftswap=0;\r
-                               ScilabFileList[i].fttype=0;\r
-                       }\r
-                       bOK=TRUE;\r
-               }\r
-       }\r
-       return bOK;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-BOOL TerminateScilabFilesList(void)\r
-{\r
-       BOOL bOK=FALSE;\r
-\r
-       if (ScilabFileList)\r
-       {\r
-               FREE(ScilabFileList);\r
-               ScilabFileList=NULL;\r
-               bOK=TRUE;\r
-       }\r
-       return bOK;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-BOOL ExtendScilabFilesList(int NewSize)\r
-{\r
-       BOOL bOK=FALSE;\r
-       if (ScilabFileList)\r
-       {\r
-               if (NewSize > CurrentMaxFiles)\r
-               {\r
-                       \r
-                       scilabfile *ScilabFileListTmp=NULL;\r
-                       ScilabFileListTmp=(scilabfile *)REALLOC(ScilabFileList,NewSize*sizeof(scilabfile));\r
-                       if (ScilabFileListTmp)\r
-                       {\r
-                               int i=0;\r
-                               ScilabFileList=ScilabFileListTmp;\r
-                               for (i=CurrentMaxFiles;i<NewSize;i++)\r
-                               {\r
-                                       ScilabFileList[i].ftformat=NULL;\r
-                                       ScilabFileList[i].ftmode=0;\r
-                                       ScilabFileList[i].ftname=NULL;\r
-                                       ScilabFileList[i].ftswap=0;\r
-                                       ScilabFileList[i].fttype=0;\r
-                               }\r
-                               CurrentMaxFiles=NewSize;\r
-                               bOK=TRUE;\r
-                       }\r
-               }\r
-       }\r
-       return bOK;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-BOOL IsAlreadyOpenedInScilab(char *filename)\r
-{\r
-       BOOL bOK=FALSE;\r
-\r
-       if (ScilabFileList)\r
-       {\r
-               char fullpath[_MAX_PATH*4];\r
-               int i=0;\r
-\r
-               if( _fullpath( fullpath, filename, _MAX_PATH*4 ) == NULL )\r
-               {\r
-                       /* if we are a problem */\r
-                       strcpy(fullpath,filename);\r
-               }\r
-               \r
-               for (i=0;i<CurrentMaxFiles;i++)\r
-               {\r
-                       if ( (ScilabFileList[i].ftformat) && ScilabFileList[i].ftname)\r
-                       {\r
-                               if (strcmp(ScilabFileList[i].ftname,fullpath) == 0) return TRUE;\r
-                       }\r
-               }\r
-       }\r
-       return bOK;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* Scilab */
+/* Allan CORNET */
+/* INRIA 2007 */
+/*-----------------------------------------------------------------------------------*/
+#ifndef _MSC_VER
+#include <sys/param.h>
+#endif
+#include <string.h>
+#include <stdlib.h>
+#include "machine.h"
+#include "filesmanagement.h"
+#include "core_math.h" /* Min Max */
+#include "MALLOC.h" 
+/*-----------------------------------------------------------------------------------*/
+#ifndef _MSC_VER
+#define _fullpath(a,r,l) realpath(r,a)
+#endif
+/*-----------------------------------------------------------------------------------*/
+typedef struct {
+       FILE *ftformat;
+       int ftswap; /* swap status for each file */
+       int ftmode; /* mode for each file */
+       int fttype; /* type (Fortran,C) for each file must be zero initialized */
+       char *ftname; /* name for each file */
+       
+} scilabfile;
+/*-----------------------------------------------------------------------------------*/
+static scilabfile *ScilabFileList = NULL;
+static int CurFile =-1;
+static int CurrentMaxFiles=DEFAULT_MAX_FILES;
+/*-----------------------------------------------------------------------------------*/
+FILE *GetFileOpenedInScilab(int Id)
+{
+       int fd1=0;
+
+       fd1 = (Id != -1) ?  Min(Max(Id,0),GetMaximumFileOpenedInScilab()-1) : CurFile ;
+
+       if ( fd1 != -1 ) return(ScilabFileList[fd1].ftformat);
+       return((FILE *) 0);
+}
+/*-----------------------------------------------------------------------------------*/
+int GetCurrentFileId(void)
+{
+       return CurFile;
+}
+/*-----------------------------------------------------------------------------------*/
+void SetCurrentFileId(int Id)
+{
+       CurFile=Id;
+}
+/*-----------------------------------------------------------------------------------*/
+void SetFileOpenedInScilab(int Id,FILE *fptr)
+{
+       ScilabFileList[Id].ftformat=fptr;
+}
+/*-----------------------------------------------------------------------------------*/
+int GetSwapStatus(integer Id)
+{
+       int fd1;
+       fd1 = (Id != -1) ?  Min(Max(Id,0),GetMaximumFileOpenedInScilab()-1) : GetCurrentFileId() ;
+       if ( fd1 != -1 ) return(ScilabFileList[fd1].ftswap);
+       return(0);
+}
+/*-----------------------------------------------------------------------------------*/
+void SetSwapStatus(int Id,int newswap)
+{
+       ScilabFileList[Id].ftswap =  newswap;
+}
+/*-----------------------------------------------------------------------------------*/
+int GetMaximumFileOpenedInScilab(void)
+{
+       return CurrentMaxFiles;
+}
+/*-----------------------------------------------------------------------------------*/
+int GetFileModeOpenedInScilab(int Id)
+{
+       return ScilabFileList[Id].ftmode;
+}
+/*-----------------------------------------------------------------------------------*/
+void SetFileModeOpenedInScilab(int Id,int mode)
+{
+       ScilabFileList[Id].ftmode = mode;
+}
+/*-----------------------------------------------------------------------------------*/
+int GetFileTypeOpenedInScilab(int Id)
+{
+       return ScilabFileList[Id].fttype;
+}
+/*-----------------------------------------------------------------------------------*/
+void SetFileTypeOpenedInScilab(int Id,int Type)
+{
+       ScilabFileList[Id].fttype = Type;
+}
+/*-----------------------------------------------------------------------------------*/
+char* GetFileNameOpenedInScilab(int Id)
+{
+       return ScilabFileList[Id].ftname;
+}
+/*-----------------------------------------------------------------------------------*/
+BOOL SetFileNameOpenedInScilab(int Id,char *name)
+{
+       BOOL bOK=FALSE;
+       char *ptrName=NULL;
+       char fullpath[_MAX_PATH*4];
+
+       /* A exception for Id 5 and 6 */
+       /* no filename */
+       if ( strcmp(name,"") == 0 )
+       {
+               ptrName=(char*)MALLOC(sizeof(char)*(strlen(name)+1));
+               strcpy(ptrName,name);
+       }
+       else
+       {
+               if( _fullpath( fullpath, name, _MAX_PATH*4 ) != NULL )
+               {
+                       ptrName=(char*)MALLOC(sizeof(char)*(strlen(fullpath)+1));
+                       strcpy(ptrName,fullpath);
+               }
+               else
+               {
+                       ptrName=(char*)MALLOC(sizeof(char)*(strlen(name)+1));
+                       strcpy(ptrName,name);
+               }
+       }
+       
+       ScilabFileList[Id].ftname = ptrName;
+       bOK=TRUE;
+
+       return bOK;
+}
+/*-----------------------------------------------------------------------------------*/
+BOOL FreeFileNameOpenedInScilab(int Id)
+{
+       BOOL bOK=FALSE;
+       char *ptr = ScilabFileList[Id].ftname;
+       if (ptr) { FREE(ptr);  ptr = NULL; bOK=TRUE;}
+       return bOK;
+}
+/*-----------------------------------------------------------------------------------*/
+BOOL InitializeScilabFilesList(void)
+{
+       BOOL bOK=FALSE;
+       if (!ScilabFileList)
+       {
+               CurrentMaxFiles=DEFAULT_MAX_FILES;
+               ScilabFileList=(scilabfile *)MALLOC(sizeof(scilabfile)*CurrentMaxFiles);
+
+               if (ScilabFileList)
+               {
+                       int i=0;
+                       for (i=0;i<CurrentMaxFiles;i++)
+                       {
+                               ScilabFileList[i].ftformat=NULL;
+                               ScilabFileList[i].ftmode=0;
+                               ScilabFileList[i].ftname=NULL;
+                               ScilabFileList[i].ftswap=0;
+                               ScilabFileList[i].fttype=0;
+                       }
+                       bOK=TRUE;
+               }
+       }
+       return bOK;
+}
+/*-----------------------------------------------------------------------------------*/
+BOOL TerminateScilabFilesList(void)
+{
+       BOOL bOK=FALSE;
+
+       if (ScilabFileList)
+       {
+               FREE(ScilabFileList);
+               ScilabFileList=NULL;
+               bOK=TRUE;
+       }
+       return bOK;
+}
+/*-----------------------------------------------------------------------------------*/
+BOOL ExtendScilabFilesList(int NewSize)
+{
+       BOOL bOK=FALSE;
+       if (ScilabFileList)
+       {
+               if (NewSize > CurrentMaxFiles)
+               {
+                       
+                       scilabfile *ScilabFileListTmp=NULL;
+                       ScilabFileListTmp=(scilabfile *)REALLOC(ScilabFileList,NewSize*sizeof(scilabfile));
+                       if (ScilabFileListTmp)
+                       {
+                               int i=0;
+                               ScilabFileList=ScilabFileListTmp;
+                               for (i=CurrentMaxFiles;i<NewSize;i++)
+                               {
+                                       ScilabFileList[i].ftformat=NULL;
+                                       ScilabFileList[i].ftmode=0;
+                                       ScilabFileList[i].ftname=NULL;
+                                       ScilabFileList[i].ftswap=0;
+                                       ScilabFileList[i].fttype=0;
+                               }
+                               CurrentMaxFiles=NewSize;
+                               bOK=TRUE;
+                       }
+               }
+       }
+       return bOK;
+}
+/*-----------------------------------------------------------------------------------*/
+BOOL IsAlreadyOpenedInScilab(char *filename)
+{
+       BOOL bOK=FALSE;
+
+       if (ScilabFileList)
+       {
+               char fullpath[_MAX_PATH*4];
+               int i=0;
+
+               if( _fullpath( fullpath, filename, _MAX_PATH*4 ) == NULL )
+               {
+                       /* if we are a problem */
+                       strcpy(fullpath,filename);
+               }
+               
+               for (i=0;i<CurrentMaxFiles;i++)
+               {
+                       if ( (ScilabFileList[i].ftformat) && ScilabFileList[i].ftname)
+                       {
+                               if (strcmp(ScilabFileList[i].ftname,fullpath) == 0) return TRUE;
+                       }
+               }
+       }
+       return bOK;
+}
+/*-----------------------------------------------------------------------------------*/
index 4bb637f..9b5af85 100644 (file)
@@ -1,43 +1,43 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include <string.h>\r
-#include "getcommandlineargs.h"\r
-#include "MALLOC.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-#define MAXCMDTOKENS 256\r
-/*-----------------------------------------------------------------------------------*/ \r
-static int scilab_nbargs = 0;\r
-static char *scilab_argv[MAXCMDTOKENS];\r
-/*-----------------------------------------------------------------------------------*/ \r
-char ** getCommandLineArgs(int *nbargs)\r
-{\r
-       char **argv = NULL;\r
-       int i = 0;\r
-       *nbargs = scilab_nbargs;\r
-\r
-       argv = (char **)MALLOC(sizeof(char*)*scilab_nbargs);\r
-\r
-       for (i = 0;i < scilab_nbargs;i++)\r
-       {\r
-               argv[i] = (char *)MALLOC(sizeof(char)*(strlen(scilab_argv[i])+1));\r
-               strcpy(argv[i],scilab_argv[i]);\r
-       }\r
-       return argv;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-int setCommandLineArgs(char **argv, int nbargs)\r
-{\r
-       int i = 0;\r
-\r
-       if (nbargs >= MAXCMDTOKENS) nbargs = MAXCMDTOKENS;\r
-\r
-       for (i=0;i<nbargs;i++)\r
-       {\r
-               scilab_argv[i] = argv[i];\r
-       }\r
-       scilab_nbargs = nbargs;\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include <string.h>
+#include "getcommandlineargs.h"
+#include "MALLOC.h"
+/*-----------------------------------------------------------------------------------*/ 
+#define MAXCMDTOKENS 256
+/*-----------------------------------------------------------------------------------*/ 
+static int scilab_nbargs = 0;
+static char *scilab_argv[MAXCMDTOKENS];
+/*-----------------------------------------------------------------------------------*/ 
+char ** getCommandLineArgs(int *nbargs)
+{
+       char **argv = NULL;
+       int i = 0;
+       *nbargs = scilab_nbargs;
+
+       argv = (char **)MALLOC(sizeof(char*)*scilab_nbargs);
+
+       for (i = 0;i < scilab_nbargs;i++)
+       {
+               argv[i] = (char *)MALLOC(sizeof(char)*(strlen(scilab_argv[i])+1));
+               strcpy(argv[i],scilab_argv[i]);
+       }
+       return argv;
+}
+/*-----------------------------------------------------------------------------------*/ 
+int setCommandLineArgs(char **argv, int nbargs)
+{
+       int i = 0;
+
+       if (nbargs >= MAXCMDTOKENS) nbargs = MAXCMDTOKENS;
+
+       for (i=0;i<nbargs;i++)
+       {
+               scilab_argv[i] = argv[i];
+       }
+       scilab_nbargs = nbargs;
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/ 
index 5b56f39..b128c05 100644 (file)
@@ -1,27 +1,27 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "ifexpr.h"\r
-#include "stack-c.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(ifexpr)(void)\r
-{\r
-       #define blank  40\r
-       int p = 0;\r
-\r
-       if (C2F(errgst).err1 != 0) return FALSE_;\r
-       p = C2F(recu).pt;\r
-       do \r
-       {\r
-               --p;\r
-               /* the test rstk(p).eq.307.and.ids(1,p-1).ne.blank) checks if we are */\r
-               /* evaluating the argument of a function. ids(1,p-1).ne.blank */\r
-               /* excludes the case of a parenthesized if expression */\r
-               if (p == 0 || (C2F(recu).rstk[p - 1] == 307 && C2F(recu).ids[(p - 1) * 6 - 6] != blank)) return FALSE_;\r
-       } while(C2F(recu).rstk[p - 1] != 803);\r
-       return TRUE_;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-\r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include "ifexpr.h"
+#include "stack-c.h"
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(ifexpr)(void)
+{
+       #define blank  40
+       int p = 0;
+
+       if (C2F(errgst).err1 != 0) return FALSE_;
+       p = C2F(recu).pt;
+       do 
+       {
+               --p;
+               /* the test rstk(p).eq.307.and.ids(1,p-1).ne.blank) checks if we are */
+               /* evaluating the argument of a function. ids(1,p-1).ne.blank */
+               /* excludes the case of a parenthesized if expression */
+               if (p == 0 || (C2F(recu).rstk[p - 1] == 307 && C2F(recu).ids[(p - 1) * 6 - 6] != blank)) return FALSE_;
+       } while(C2F(recu).rstk[p - 1] != 803);
+       return TRUE_;
+}
+/*-----------------------------------------------------------------------------------*/ 
+
+
index 1b25a94..364e055 100644 (file)
@@ -1,13 +1,13 @@
-/*-----------------------------------------------------------------------------------*/ \r
-/* INRIA 2007 */\r
-/* Allan CORNET*/\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef __IFEXPR_H__\r
-#define __IFEXPR_H__\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "machine.h" /* C2F */\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(ifexpr)(void);\r
-/*-----------------------------------------------------------------------------------*/ \r
-#endif /*  __IFEXPR_H__ */\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/ 
+/* INRIA 2007 */
+/* Allan CORNET*/
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef __IFEXPR_H__
+#define __IFEXPR_H__
+/*-----------------------------------------------------------------------------------*/ 
+#include "machine.h" /* C2F */
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(ifexpr)(void);
+/*-----------------------------------------------------------------------------------*/ 
+#endif /*  __IFEXPR_H__ */
+/*-----------------------------------------------------------------------------------*/ 
index 1ed7f89..dcd661f 100644 (file)
@@ -1,18 +1,18 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "islittleendian.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-int islittleendian(void)\r
-{\r
-       int     littlendian = 1;\r
-       char    *endptr;\r
-       endptr = (char *) &littlendian;\r
-       return (int) *endptr;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(getendian)(void)\r
-{\r
-       return islittleendian();\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA */
+/*-----------------------------------------------------------------------------------*/
+#include "islittleendian.h"
+/*-----------------------------------------------------------------------------------*/
+int islittleendian(void)
+{
+       int     littlendian = 1;
+       char    *endptr;
+       endptr = (char *) &littlendian;
+       return (int) *endptr;
+}
+/*-----------------------------------------------------------------------------------*/
+int C2F(getendian)(void)
+{
+       return islittleendian();
+}
+/*-----------------------------------------------------------------------------------*/
index de5d351..f794738 100644 (file)
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "terme.h"\r
-#include "stack-def.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-extern int C2F(getsym)();\r
-extern int C2F(error)(int *);\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(terme)(void)\r
-{\r
-       #define char_plus 45\r
-       #define char_minus 46\r
-       #define char_bchar_slash 49\r
-       #define char_star 47\r
-       #define char_slash 48\r
-       #define char_dot 51\r
-       #define char_not 61\r
-       #define constnumber 114688\r
-\r
-       /* Local variables */\r
-       int op = 0;\r
-       int code_error = 0;\r
-\r
-       int r = 0;\r
-\r
-       /* integer equal,less,great,char_not */\r
-       r = C2F(recu).rstk[(constnumber + (0 + ( (C2F(recu).pt - 1) << 2)) - constnumber) / 4];\r
-\r
-       if (C2F(iop).ddt == 4) { }\r
-\r
-       if ( (r / 100) != 2) \r
-       {\r
-               ++C2F(recu).pt;\r
-               C2F(recu).rstk[C2F(recu).pt - 1] = 201;\r
-               C2F(recu).icall = 3;\r
-               return 0;\r
-       }\r
-\r
-       switch (r - 200) \r
-       {\r
-               case 1: \r
-               {\r
-                       --C2F(recu).pt;\r
-                       op = 0;\r
-                       if (C2F(com).sym == char_dot) \r
-                       {\r
-                               op = char_dot;\r
-                               C2F(getsym)();\r
-                       }\r
-\r
-                       if (C2F(com).sym == char_star || C2F(com).sym == char_slash || C2F(com).sym == char_bchar_slash) \r
-                       {\r
-                               op += C2F(com).sym;\r
-                               C2F(getsym)();\r
-                               if (C2F(com).sym == char_dot) op += C2F(com).sym << 1;\r
-\r
-                               if (C2F(com).sym == char_dot) C2F(getsym)();\r
-\r
-                               ++C2F(recu).pt;\r
-                               C2F(recu).pstk[C2F(recu).pt - 1] = op;\r
-                               if (C2F(com).sym != char_not) \r
-                               {\r
-                                       C2F(recu).rstk[C2F(recu).pt - 1] = 202;\r
-\r
-                                       /* added to handle syntax like a*-b for Matlab compatiblity */\r
-                                       if (C2F(com).sym == char_plus || C2F(com).sym == char_minus) C2F(recu).icall = 1;\r
-                                       else C2F(recu).icall = 3;\r
-\r
-                                       return 0;\r
-                               }\r
-                               C2F(recu).rstk[C2F(recu).pt - 1] = 204;\r
-                               C2F(recu).icall = 1;\r
-                               return 0;\r
-                       }\r
-\r
-                       if (op != 0) \r
-                       {\r
-                               code_error = 7;\r
-                               C2F(error)(&code_error);\r
-                       }\r
-                       return 0;\r
-               }\r
-               case 2:\r
-               {\r
-                       C2F(com).fin = C2F(recu).pstk[C2F(recu).pt - 1];\r
-                       /* evaluation */\r
-                       C2F(recu).rstk[C2F(recu).pt - 1] = 203;\r
-                       C2F(com).rhs = 2;\r
-                       C2F(recu).icall = 4;\r
-                       return 0;\r
-               }\r
-               case 3: \r
-               {\r
-                       --C2F(recu).pt;\r
-                       op = 0;\r
-                       if (C2F(com).sym == char_dot) \r
-                       {\r
-                               op = char_dot;\r
-                               C2F(getsym)();\r
-                       }\r
-                       if (C2F(com).sym == char_star || C2F(com).sym == char_slash || C2F(com).sym == char_bchar_slash) \r
-                       {\r
-                               op += C2F(com).sym;\r
-                               C2F(getsym)();\r
-                               if (C2F(com).sym == char_dot) op += C2F(com).sym << 1;\r
-\r
-                               if (C2F(com).sym == char_dot) C2F(getsym)();\r
-\r
-                               ++C2F(recu).pt;\r
-                               C2F(recu).pstk[C2F(recu).pt - 1] = op;\r
-                               if (C2F(com).sym != char_not) \r
-                               {\r
-                                       C2F(recu).rstk[C2F(recu).pt - 1] = 202;\r
-                                       if (C2F(com).sym == char_plus || C2F(com).sym == char_minus) C2F(recu).icall = 1;\r
-                                       else C2F(recu).icall = 3;\r
-                                       return 0;\r
-                               }\r
-                               C2F(recu).rstk[C2F(recu).pt - 1] = 204;\r
-                               C2F(recu).icall = 1;\r
-                               return 0;\r
-                       }\r
-\r
-                       if (op != 0) \r
-                       {\r
-                               code_error = 7;\r
-                               C2F(error)(&code_error);\r
-                       }\r
-                       return 0;\r
-               }\r
-               case 4: \r
-               {\r
-                       C2F(com).fin = C2F(recu).pstk[C2F(recu).pt - 1];\r
-                       /* evaluation */\r
-                       C2F(recu).rstk[C2F(recu).pt - 1] = 203;\r
-                       C2F(com).rhs = 2;\r
-                       C2F(recu).icall = 4;\r
-                       return 0;\r
-               }\r
-               break;\r
-       }\r
-\r
-       code_error = 22;\r
-       C2F(error)(&code_error);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include "terme.h"
+#include "stack-def.h"
+/*-----------------------------------------------------------------------------------*/ 
+extern int C2F(getsym)();
+extern int C2F(error)(int *);
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(terme)(void)
+{
+       #define char_plus 45
+       #define char_minus 46
+       #define char_bchar_slash 49
+       #define char_star 47
+       #define char_slash 48
+       #define char_dot 51
+       #define char_not 61
+       #define constnumber 114688
+
+       /* Local variables */
+       int op = 0;
+       int code_error = 0;
+
+       int r = 0;
+
+       /* integer equal,less,great,char_not */
+       r = C2F(recu).rstk[(constnumber + (0 + ( (C2F(recu).pt - 1) << 2)) - constnumber) / 4];
+
+       if (C2F(iop).ddt == 4) { }
+
+       if ( (r / 100) != 2) 
+       {
+               ++C2F(recu).pt;
+               C2F(recu).rstk[C2F(recu).pt - 1] = 201;
+               C2F(recu).icall = 3;
+               return 0;
+       }
+
+       switch (r - 200) 
+       {
+               case 1: 
+               {
+                       --C2F(recu).pt;
+                       op = 0;
+                       if (C2F(com).sym == char_dot) 
+                       {
+                               op = char_dot;
+                               C2F(getsym)();
+                       }
+
+                       if (C2F(com).sym == char_star || C2F(com).sym == char_slash || C2F(com).sym == char_bchar_slash) 
+                       {
+                               op += C2F(com).sym;
+                               C2F(getsym)();
+                               if (C2F(com).sym == char_dot) op += C2F(com).sym << 1;
+
+                               if (C2F(com).sym == char_dot) C2F(getsym)();
+
+                               ++C2F(recu).pt;
+                               C2F(recu).pstk[C2F(recu).pt - 1] = op;
+                               if (C2F(com).sym != char_not) 
+                               {
+                                       C2F(recu).rstk[C2F(recu).pt - 1] = 202;
+
+                                       /* added to handle syntax like a*-b for Matlab compatiblity */
+                                       if (C2F(com).sym == char_plus || C2F(com).sym == char_minus) C2F(recu).icall = 1;
+                                       else C2F(recu).icall = 3;
+
+                                       return 0;
+                               }
+                               C2F(recu).rstk[C2F(recu).pt - 1] = 204;
+                               C2F(recu).icall = 1;
+                               return 0;
+                       }
+
+                       if (op != 0) 
+                       {
+                               code_error = 7;
+                               C2F(error)(&code_error);
+                       }
+                       return 0;
+               }
+               case 2:
+               {
+                       C2F(com).fin = C2F(recu).pstk[C2F(recu).pt - 1];
+                       /* evaluation */
+                       C2F(recu).rstk[C2F(recu).pt - 1] = 203;
+                       C2F(com).rhs = 2;
+                       C2F(recu).icall = 4;
+                       return 0;
+               }
+               case 3: 
+               {
+                       --C2F(recu).pt;
+                       op = 0;
+                       if (C2F(com).sym == char_dot) 
+                       {
+                               op = char_dot;
+                               C2F(getsym)();
+                       }
+                       if (C2F(com).sym == char_star || C2F(com).sym == char_slash || C2F(com).sym == char_bchar_slash) 
+                       {
+                               op += C2F(com).sym;
+                               C2F(getsym)();
+                               if (C2F(com).sym == char_dot) op += C2F(com).sym << 1;
+
+                               if (C2F(com).sym == char_dot) C2F(getsym)();
+
+                               ++C2F(recu).pt;
+                               C2F(recu).pstk[C2F(recu).pt - 1] = op;
+                               if (C2F(com).sym != char_not) 
+                               {
+                                       C2F(recu).rstk[C2F(recu).pt - 1] = 202;
+                                       if (C2F(com).sym == char_plus || C2F(com).sym == char_minus) C2F(recu).icall = 1;
+                                       else C2F(recu).icall = 3;
+                                       return 0;
+                               }
+                               C2F(recu).rstk[C2F(recu).pt - 1] = 204;
+                               C2F(recu).icall = 1;
+                               return 0;
+                       }
+
+                       if (op != 0) 
+                       {
+                               code_error = 7;
+                               C2F(error)(&code_error);
+                       }
+                       return 0;
+               }
+               case 4: 
+               {
+                       C2F(com).fin = C2F(recu).pstk[C2F(recu).pt - 1];
+                       /* evaluation */
+                       C2F(recu).rstk[C2F(recu).pt - 1] = 203;
+                       C2F(com).rhs = 2;
+                       C2F(recu).icall = 4;
+                       return 0;
+               }
+               break;
+       }
+
+       code_error = 22;
+       C2F(error)(&code_error);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/ 
index 6beedcb..d072376 100644 (file)
@@ -1,13 +1,13 @@
-/*-----------------------------------------------------------------------------------*/ \r
-/* INRIA 2007 */\r
-/* Allan CORNET*/\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef __TERME_H__\r
-#define __TERME_H__\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "machine.h" /* C2F */\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(terme)(void);\r
-/*-----------------------------------------------------------------------------------*/ \r
-#endif /*  __TERME_H__ */\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/ 
+/* INRIA 2007 */
+/* Allan CORNET*/
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef __TERME_H__
+#define __TERME_H__
+/*-----------------------------------------------------------------------------------*/ 
+#include "machine.h" /* C2F */
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(terme)(void);
+/*-----------------------------------------------------------------------------------*/ 
+#endif /*  __TERME_H__ */
+/*-----------------------------------------------------------------------------------*/ 
index 4bf90ce..8d801bb 100644 (file)
@@ -1,15 +1,15 @@
-<!ELEMENT modules (META?,module*)>\r
-\r
-<!ELEMENT META (#PCDATA)>\r
-\r
-<!ATTLIST META \r
-CATEGORY       CDATA   "Scilab modules"         \r
-VERSION_SCI    CDATA   "5.0"    \r
-VERSION_DOC    CDATA   "1.0"    \r
-AUTHOR         CDATA   "Allan CORNET INRIA 2007"        \r
- >\r
-\r
-<!ELEMENT module (#PCDATA)>\r
-<!ATTLIST module name CDATA #IMPLIED>\r
-<!ATTLIST module activate CDATA #IMPLIED>\r
-\r
+<!ELEMENT modules (META?,module*)>
+
+<!ELEMENT META (#PCDATA)>
+
+<!ATTLIST META 
+CATEGORY       CDATA   "Scilab modules"         
+VERSION_SCI    CDATA   "5.0"    
+VERSION_DOC    CDATA   "1.0"    
+AUTHOR         CDATA   "Allan CORNET INRIA 2007"        
+ >
+
+<!ELEMENT module (#PCDATA)>
+<!ATTLIST module name CDATA #IMPLIED>
+<!ATTLIST module activate CDATA #IMPLIED>
+
index 004ac0d..1657f2a 100644 (file)
@@ -1,94 +1,94 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/* rewrite scidcopy.f */\r
-/*-----------------------------------------------------------------------------------*/\r
-/* alternative to dcopy for copying array with mixed datatypes */\r
-/* integer*8 declaration used instead of double precision used to fix a */\r
-/* efficiency problem with pentium M processors */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include <string.h>\r
-#include "machine.h"\r
-#include "scidcopy.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(scidcopy)(int *n, long long *dx, int *incx, long long *dy, int *incy)\r
-{\r
-    /* System generated locals */\r
-    int i1;\r
-\r
-    /* Local variables */\r
-    static int i, m, ix, iy, mp1;\r
-\r
-    /* Parameter adjustments */\r
-    --dy;\r
-    --dx;\r
-\r
-    if (*n <= 0) return 0;\r
-\r
-    if (*incx == 1 && *incy == 1) \r
-       {\r
-               /*  code for both increments equal to 1 */\r
-               /*  clean-up loop */\r
-               m = *n % 7;\r
-               if (m == 0)\r
-               {\r
-                       mp1 = m + 1;\r
-                       i1 = *n;\r
-\r
-                       for (i = mp1; i <= i1; i += 7) \r
-                       {\r
-                               dy[i] = dx[i];\r
-                               dy[i + 1] = dx[i + 1];\r
-                               dy[i + 2] = dx[i + 2];\r
-                               dy[i + 3] = dx[i + 3];\r
-                               dy[i + 4] = dx[i + 4];\r
-                               dy[i + 5] = dx[i + 5];\r
-                               dy[i + 6] = dx[i + 6];\r
-                       }\r
-                       return 0;\r
-               }\r
-               else\r
-               {\r
-                       i1 = m;\r
-                       for (i = 1; i <= i1; ++i) dy[i] = dx[i];\r
-                       if (*n < 7) return 0;\r
-\r
-                       mp1 = m + 1;\r
-                       i1 = *n;\r
-\r
-                       for (i = mp1; i <= i1; i += 7) \r
-                       {\r
-                               dy[i] = dx[i];\r
-                               dy[i + 1] = dx[i + 1];\r
-                               dy[i + 2] = dx[i + 2];\r
-                               dy[i + 3] = dx[i + 3];\r
-                               dy[i + 4] = dx[i + 4];\r
-                               dy[i + 5] = dx[i + 5];\r
-                               dy[i + 6] = dx[i + 6];\r
-                       }\r
-                       return 0;\r
-               }\r
-       }\r
-       else\r
-       {\r
-               /* code for unequal increments or equal increments */\r
-               /* not equal to 1 */\r
-               ix = 1;\r
-               iy = 1;\r
-               if (*incx < 0) ix = (-(*n) + 1) * *incx + 1;\r
-               if (*incy < 0) iy = (-(*n) + 1) * *incy + 1;\r
-\r
-               i1 = *n;\r
-\r
-               for (i = 1; i <= i1; ++i) \r
-               {\r
-                       dy[iy] = dx[ix];\r
-                       ix += *incx;\r
-                       iy += *incy;\r
-               }\r
-               return 0;\r
-       }\r
-       return 0;\r
-} \r
-/*-----------------------------------------------------------------------------------*/\r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/* rewrite scidcopy.f */
+/*-----------------------------------------------------------------------------------*/
+/* alternative to dcopy for copying array with mixed datatypes */
+/* integer*8 declaration used instead of double precision used to fix a */
+/* efficiency problem with pentium M processors */
+/*-----------------------------------------------------------------------------------*/
+#include <string.h>
+#include "machine.h"
+#include "scidcopy.h"
+/*-----------------------------------------------------------------------------------*/
+int C2F(scidcopy)(int *n, long long *dx, int *incx, long long *dy, int *incy)
+{
+    /* System generated locals */
+    int i1;
+
+    /* Local variables */
+    static int i, m, ix, iy, mp1;
+
+    /* Parameter adjustments */
+    --dy;
+    --dx;
+
+    if (*n <= 0) return 0;
+
+    if (*incx == 1 && *incy == 1) 
+       {
+               /*  code for both increments equal to 1 */
+               /*  clean-up loop */
+               m = *n % 7;
+               if (m == 0)
+               {
+                       mp1 = m + 1;
+                       i1 = *n;
+
+                       for (i = mp1; i <= i1; i += 7) 
+                       {
+                               dy[i] = dx[i];
+                               dy[i + 1] = dx[i + 1];
+                               dy[i + 2] = dx[i + 2];
+                               dy[i + 3] = dx[i + 3];
+                               dy[i + 4] = dx[i + 4];
+                               dy[i + 5] = dx[i + 5];
+                               dy[i + 6] = dx[i + 6];
+                       }
+                       return 0;
+               }
+               else
+               {
+                       i1 = m;
+                       for (i = 1; i <= i1; ++i) dy[i] = dx[i];
+                       if (*n < 7) return 0;
+
+                       mp1 = m + 1;
+                       i1 = *n;
+
+                       for (i = mp1; i <= i1; i += 7) 
+                       {
+                               dy[i] = dx[i];
+                               dy[i + 1] = dx[i + 1];
+                               dy[i + 2] = dx[i + 2];
+                               dy[i + 3] = dx[i + 3];
+                               dy[i + 4] = dx[i + 4];
+                               dy[i + 5] = dx[i + 5];
+                               dy[i + 6] = dx[i + 6];
+                       }
+                       return 0;
+               }
+       }
+       else
+       {
+               /* code for unequal increments or equal increments */
+               /* not equal to 1 */
+               ix = 1;
+               iy = 1;
+               if (*incx < 0) ix = (-(*n) + 1) * *incx + 1;
+               if (*incy < 0) iy = (-(*n) + 1) * *incy + 1;
+
+               i1 = *n;
+
+               for (i = 1; i <= i1; ++i) 
+               {
+                       dy[iy] = dx[ix];
+                       ix += *incx;
+                       iy += *incy;
+               }
+               return 0;
+       }
+       return 0;
+} 
+/*-----------------------------------------------------------------------------------*/
+
index dfd7b7d..09b10f4 100644 (file)
@@ -1,96 +1,96 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/* rewrite unsfdcopy.f */\r
-/*-----------------------------------------------------------------------------------*/\r
-/* WARNING :*/\r
-/* ALWAYS BUILD unsfdcopy without optimization (Blended) */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "machine.h"\r
-#include "unsfdcopy.h"\r
-/*-----------------------------------------------------------------------------------*/\r
- int C2F(unsfdcopy)(int *n, long long *dx, int *incx, long long *dy, int *incy)\r
-{\r
-    /* System generated locals */\r
-    integer i1;\r
-\r
-    /* Local variables */\r
-    static integer i, m, ix, iy, mp1;\r
-\r
-\r
-       /* copies a vector, x, to a vector, y. */\r
-       /* uses unrolled loops for increments equal to one. */\r
-       /* jack dongarra, linpack, 3/11/78. */\r
-       /* modified 12/3/93, array(1) declarations changed to array(*) */\r
-\r
-    /* Parameter adjustments */\r
-    --dy;\r
-    --dx;\r
-\r
-  \r
-    if (*n <= 0) return 0;\r
-    if (*incx == 1 && *incy == 1)\r
-       {\r
-               /* code for both increments equal to 1 */\r
-               /* clean-up loop */\r
-\r
-               m = *n % 7;\r
-               if (m == 0)\r
-               {\r
-                       mp1 = m + 1;\r
-                       i1 = *n;\r
-                       for (i = mp1; i <= i1; i += 7) \r
-                       {\r
-                               dy[i] = dx[i];\r
-                               dy[i + 1] = dx[i + 1];\r
-                               dy[i + 2] = dx[i + 2];\r
-                               dy[i + 3] = dx[i + 3];\r
-                               dy[i + 4] = dx[i + 4];\r
-                               dy[i + 5] = dx[i + 5];\r
-                               dy[i + 6] = dx[i + 6];\r
-                       }\r
-                       return 0;\r
-               }\r
-               else\r
-               {\r
-                       i1 = m;\r
-                       for (i = 1; i <= i1; ++i) dy[i] = dx[i];\r
-                       if (*n < 7) return 0;\r
-\r
-                       mp1 = m + 1;\r
-                       i1 = *n;\r
-                       for (i = mp1; i <= i1; i += 7) \r
-                       {\r
-                               dy[i] = dx[i];\r
-                               dy[i + 1] = dx[i + 1];\r
-                               dy[i + 2] = dx[i + 2];\r
-                               dy[i + 3] = dx[i + 3];\r
-                               dy[i + 4] = dx[i + 4];\r
-                               dy[i + 5] = dx[i + 5];\r
-                               dy[i + 6] = dx[i + 6];\r
-                       }\r
-                       return 0;\r
-               }\r
-       }\r
-       else\r
-       {\r
-               /* code for unequal increments or equal increments */\r
-               /* not equal to 1 */\r
-\r
-               ix = 1;\r
-               iy = 1;\r
-               if (*incx < 0) ix = (-(*n) + 1) * *incx + 1;\r
-               if (*incy < 0) iy = (-(*n) + 1) * *incy + 1;\r
-               i1 = *n;\r
-               for (i = 1; i <= i1; ++i) \r
-               {\r
-                       dy[iy] = dx[ix];\r
-                       ix += *incx;\r
-                       iy += *incy;\r
-               }\r
-               return 0;\r
-       }\r
-    \r
-       return 0;\r
-} \r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/* rewrite unsfdcopy.f */
+/*-----------------------------------------------------------------------------------*/
+/* WARNING :*/
+/* ALWAYS BUILD unsfdcopy without optimization (Blended) */
+/*-----------------------------------------------------------------------------------*/
+#include "machine.h"
+#include "unsfdcopy.h"
+/*-----------------------------------------------------------------------------------*/
+ int C2F(unsfdcopy)(int *n, long long *dx, int *incx, long long *dy, int *incy)
+{
+    /* System generated locals */
+    integer i1;
+
+    /* Local variables */
+    static integer i, m, ix, iy, mp1;
+
+
+       /* copies a vector, x, to a vector, y. */
+       /* uses unrolled loops for increments equal to one. */
+       /* jack dongarra, linpack, 3/11/78. */
+       /* modified 12/3/93, array(1) declarations changed to array(*) */
+
+    /* Parameter adjustments */
+    --dy;
+    --dx;
+
+  
+    if (*n <= 0) return 0;
+    if (*incx == 1 && *incy == 1)
+       {
+               /* code for both increments equal to 1 */
+               /* clean-up loop */
+
+               m = *n % 7;
+               if (m == 0)
+               {
+                       mp1 = m + 1;
+                       i1 = *n;
+                       for (i = mp1; i <= i1; i += 7) 
+                       {
+                               dy[i] = dx[i];
+                               dy[i + 1] = dx[i + 1];
+                               dy[i + 2] = dx[i + 2];
+                               dy[i + 3] = dx[i + 3];
+                               dy[i + 4] = dx[i + 4];
+                               dy[i + 5] = dx[i + 5];
+                               dy[i + 6] = dx[i + 6];
+                       }
+                       return 0;
+               }
+               else
+               {
+                       i1 = m;
+                       for (i = 1; i <= i1; ++i) dy[i] = dx[i];
+                       if (*n < 7) return 0;
+
+                       mp1 = m + 1;
+                       i1 = *n;
+                       for (i = mp1; i <= i1; i += 7) 
+                       {
+                               dy[i] = dx[i];
+                               dy[i + 1] = dx[i + 1];
+                               dy[i + 2] = dx[i + 2];
+                               dy[i + 3] = dx[i + 3];
+                               dy[i + 4] = dx[i + 4];
+                               dy[i + 5] = dx[i + 5];
+                               dy[i + 6] = dx[i + 6];
+                       }
+                       return 0;
+               }
+       }
+       else
+       {
+               /* code for unequal increments or equal increments */
+               /* not equal to 1 */
+
+               ix = 1;
+               iy = 1;
+               if (*incx < 0) ix = (-(*n) + 1) * *incx + 1;
+               if (*incy < 0) iy = (-(*n) + 1) * *incy + 1;
+               i1 = *n;
+               for (i = 1; i <= i1; ++i) 
+               {
+                       dy[iy] = dx[ix];
+                       ix += *incx;
+                       iy += *incy;
+               }
+               return 0;
+       }
+    
+       return 0;
+} 
+/*-----------------------------------------------------------------------------------*/
index 766e940..dd13f42 100644 (file)
@@ -1,24 +1,24 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef __WITH_FFTW_H__\r
-#define __WITH_FFTW_H__\r
-\r
-#include "machine.h" /* C2F , BOOL*/\r
-\r
-/** \r
-* check if it is with FFTW\r
-* @param rep 1 (WITH) or 0 (WITHOUT)\r
-* @return 0\r
-*/\r
-int C2F(withfftw)(int *rep);\r
-\r
-/** \r
-* check if it is with FFTW\r
-* @return TRUE or FALSE\r
-*/\r
-BOOL withfftw(void);\r
-\r
-#endif /* __WITH_FFTW_H__ */\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef __WITH_FFTW_H__
+#define __WITH_FFTW_H__
+
+#include "machine.h" /* C2F , BOOL*/
+
+/** 
+* check if it is with FFTW
+* @param rep 1 (WITH) or 0 (WITHOUT)
+* @return 0
+*/
+int C2F(withfftw)(int *rep);
+
+/** 
+* check if it is with FFTW
+* @return TRUE or FALSE
+*/
+BOOL withfftw(void);
+
+#endif /* __WITH_FFTW_H__ */
+/*-----------------------------------------------------------------------------------*/ 
index 2e8d2d3..90f49ee 100644 (file)
@@ -1,17 +1,17 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "with_fftw.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(withfftw)(int *rep)\r
-{ \r
-       *rep = 1; \r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-BOOL withfftw(void)\r
-{\r
-       return TRUE;\r
-}\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include "with_fftw.h"
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(withfftw)(int *rep)
+{ 
+       *rep = 1; 
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/ 
+BOOL withfftw(void)
+{
+       return TRUE;
+}
 /*-----------------------------------------------------------------------------------*/ 
\ No newline at end of file
index f8a30b2..c247e0d 100644 (file)
@@ -1,52 +1,52 @@
-LIBRARY    LibScilab.dll\r
-\r
-\r
-EXPORTS\r
- gettype_\r
- vstk_\r
- iop_\r
- GetData\r
- sciprint\r
- putlhsvar_\r
- createvar_\r
- stack_\r
- com_\r
- getrhsvar_\r
- checklhs_\r
- checkrhs_\r
- intersci_\r
- createvarfromptr_\r
- ExceptionMessage\r
- SetFileTypeOpenedInScilab\r
- SetSwapStatus\r
- SetFileOpenedInScilab\r
- SetFileNameOpenedInScilab\r
- FreeFileNameOpenedInScilab\r
- GetMaximumFileOpenedInScilab\r
- GetFileOpenedInScilab\r
- Scierror\r
- sciprint2\r
- getwsmat_\r
- mkmlistfromvars_\r
- cvstr_\r
- GetFileModeOpenedInScilab\r
- GetSwapStatus\r
- getTMPDIR\r
- cluni0_\r
- GetCurrentFileId\r
- islittleendian\r
- SetCurrentFileId\r
- error_\r
- scigetcwd_\r
- ExtendScilabFilesList\r
- getmatdims_\r
- overload_\r
- vartype_\r
- xscion_\r
- returnanan_\r
- SetFileModeOpenedInScilab\r
- GetFileTypeOpenedInScilab\r
- GetFileNameOpenedInScilab\r
- IsAlreadyOpenedInScilab\r
- getWarningMode\r
\r
+LIBRARY    LibScilab.dll
+
+
+EXPORTS
+ gettype_
+ vstk_
+ iop_
+ GetData
+ sciprint
+ putlhsvar_
+ createvar_
+ stack_
+ com_
+ getrhsvar_
+ checklhs_
+ checkrhs_
+ intersci_
+ createvarfromptr_
+ ExceptionMessage
+ SetFileTypeOpenedInScilab
+ SetSwapStatus
+ SetFileOpenedInScilab
+ SetFileNameOpenedInScilab
+ FreeFileNameOpenedInScilab
+ GetMaximumFileOpenedInScilab
+ GetFileOpenedInScilab
+ Scierror
+ sciprint2
+ getwsmat_
+ mkmlistfromvars_
+ cvstr_
+ GetFileModeOpenedInScilab
+ GetSwapStatus
+ getTMPDIR
+ cluni0_
+ GetCurrentFileId
+ islittleendian
+ SetCurrentFileId
+ error_
+ scigetcwd_
+ ExtendScilabFilesList
+ getmatdims_
+ overload_
+ vartype_
+ xscion_
+ returnanan_
+ SetFileModeOpenedInScilab
+ GetFileTypeOpenedInScilab
+ GetFileNameOpenedInScilab
+ IsAlreadyOpenedInScilab
+ getWarningMode
index bdc2e7a..f0ce241 100644 (file)
@@ -1,4 +1,4 @@
-LIBRARY    fileio.dll\r
-\r
-\r
-EXPORTS\r
+LIBRARY    fileio.dll
+
+
+EXPORTS
index 3018194..34706b8 100644 (file)
@@ -1,50 +1,50 @@
-<?xml version="1.0" encoding="UTF-8"?>\r
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">\r
-<MAN>\r
-  <LANGUAGE>eng</LANGUAGE>\r
-\r
-  <TITLE>deletefile</TITLE>\r
-\r
-  <TYPE>Scilab Function</TYPE>\r
-\r
-  <DATE>$LastChangedDate: 2006-09-10 20:58:00 +0200 (dim., 10 sept. 2006)$</DATE>\r
-\r
-  <SHORT_DESCRIPTION name="deletefile">delete a file</SHORT_DESCRIPTION>\r
-\r
-  <CALLING_SEQUENCE>\r
-    <CALLING_SEQUENCE_ITEM>f = deletefile(filename)</CALLING_SEQUENCE_ITEM>\r
-  </CALLING_SEQUENCE>\r
-\r
-  <PARAM>\r
-    <PARAM_INDENT>\r
-      <PARAM_ITEM>\r
-        <PARAM_NAME>filename</PARAM_NAME>\r
-\r
-        <PARAM_DESCRIPTION>\r
-          <SP>: a file name </SP>\r
-        </PARAM_DESCRIPTION>\r
-      </PARAM_ITEM>\r
-      <PARAM_ITEM>\r
-        <PARAM_NAME>f</PARAM_NAME>\r
-\r
-        <PARAM_DESCRIPTION>\r
-          <SP>: %t or %f </SP>\r
-        </PARAM_DESCRIPTION>\r
-      </PARAM_ITEM>\r
-    </PARAM_INDENT>\r
-  </PARAM>\r
-\r
-  <DESCRIPTION>\r
-    <P>delete a file</P>\r
-  </DESCRIPTION>\r
-\r
-  <EXAMPLE><![CDATA[fd=mopen(TMPDIR+'/filetodelete.txt','wt');\r
-mclose(fd); \r
-if (fileinfo(TMPDIR+'/filetodelete.txt') <> []) then deletefile(TMPDIR+'/filetodelete.txt'),end;\r
-  ]]></EXAMPLE>\r
-\r
-\r
-  <AUTHORS>\r
-    <AUTHORS_ITEM>A.C</AUTHORS_ITEM>\r
-  </AUTHORS>\r
-</MAN>\r
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
+<MAN>
+  <LANGUAGE>eng</LANGUAGE>
+
+  <TITLE>deletefile</TITLE>
+
+  <TYPE>Scilab Function</TYPE>
+
+  <DATE>$LastChangedDate: 2006-09-10 20:58:00 +0200 (dim., 10 sept. 2006)$</DATE>
+
+  <SHORT_DESCRIPTION name="deletefile">delete a file</SHORT_DESCRIPTION>
+
+  <CALLING_SEQUENCE>
+    <CALLING_SEQUENCE_ITEM>f = deletefile(filename)</CALLING_SEQUENCE_ITEM>
+  </CALLING_SEQUENCE>
+
+  <PARAM>
+    <PARAM_INDENT>
+      <PARAM_ITEM>
+        <PARAM_NAME>filename</PARAM_NAME>
+
+        <PARAM_DESCRIPTION>
+          <SP>: a file name </SP>
+        </PARAM_DESCRIPTION>
+      </PARAM_ITEM>
+      <PARAM_ITEM>
+        <PARAM_NAME>f</PARAM_NAME>
+
+        <PARAM_DESCRIPTION>
+          <SP>: %t or %f </SP>
+        </PARAM_DESCRIPTION>
+      </PARAM_ITEM>
+    </PARAM_INDENT>
+  </PARAM>
+
+  <DESCRIPTION>
+    <P>delete a file</P>
+  </DESCRIPTION>
+
+  <EXAMPLE><![CDATA[fd=mopen(TMPDIR+'/filetodelete.txt','wt');
+mclose(fd); 
+if (fileinfo(TMPDIR+'/filetodelete.txt') <> []) then deletefile(TMPDIR+'/filetodelete.txt'),end;
+  ]]></EXAMPLE>
+
+
+  <AUTHORS>
+    <AUTHORS_ITEM>A.C</AUTHORS_ITEM>
+  </AUTHORS>
+</MAN>
index d0fdb1c..f29b298 100644 (file)
@@ -1,72 +1,72 @@
-<?xml version="1.0" encoding="UTF-8"?>\r
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">\r
-<MAN>\r
-  <LANGUAGE>eng</LANGUAGE>\r
-\r
-  <TITLE>findfiles</TITLE>\r
-\r
-  <TYPE>Scilab Function</TYPE>\r
-\r
-  <DATE>$LastChangedDate: 2006-09-10 20:58:00 +0200 (dim., 10 sept. 2006)$</DATE>\r
-\r
-  <SHORT_DESCRIPTION name="findfiles">Finding all files with a given\r
-  filespec</SHORT_DESCRIPTION>\r
-\r
-  <CALLING_SEQUENCE>\r
-    <CALLING_SEQUENCE_ITEM>f = findfiles()</CALLING_SEQUENCE_ITEM>\r
-\r
-    <CALLING_SEQUENCE_ITEM>f=findfiles(path)</CALLING_SEQUENCE_ITEM>\r
-\r
-    <CALLING_SEQUENCE_ITEM>f=findfiles(path,filespec)</CALLING_SEQUENCE_ITEM>\r
-  </CALLING_SEQUENCE>\r
-\r
-  <PARAM>\r
-    <PARAM_INDENT>\r
-      <PARAM_ITEM>\r
-        <PARAM_NAME>path</PARAM_NAME>\r
-\r
-        <PARAM_DESCRIPTION>\r
-          <SP>: a path </SP>\r
-        </PARAM_DESCRIPTION>\r
-      </PARAM_ITEM>\r
-\r
-      <PARAM_ITEM>\r
-        <PARAM_NAME>filespec</PARAM_NAME>\r
-\r
-        <PARAM_DESCRIPTION>\r
-          <SP>: a spec file. example "*.sce" </SP>\r
-        </PARAM_DESCRIPTION>\r
-      </PARAM_ITEM>\r
-\r
-      <PARAM_ITEM>\r
-        <PARAM_NAME>f</PARAM_NAME>\r
-\r
-        <PARAM_DESCRIPTION>\r
-          <SP>: returns a string matrix of filenames</SP>\r
-        </PARAM_DESCRIPTION>\r
-      </PARAM_ITEM>\r
-    </PARAM_INDENT>\r
-  </PARAM>\r
-\r
-  <DESCRIPTION>\r
-    <P>Finding all files with a given filespec </P>\r
-  </DESCRIPTION>\r
-\r
-  <EXAMPLE><![CDATA[\r
-\r
-   f=findfiles()\r
-   f=findfiles(SCI)\r
-   f=findfiles(SCI+'/modules/core/macros','*.sci') \r
-  \r
-  ]]></EXAMPLE>\r
-\r
-  <SEE_ALSO>\r
-    <SEE_ALSO_ITEM>\r
-      <LINK>listfiles</LINK>\r
-    </SEE_ALSO_ITEM>\r
-  </SEE_ALSO>\r
-\r
-  <AUTHORS>\r
-    <AUTHORS_ITEM>A.C</AUTHORS_ITEM>\r
-  </AUTHORS>\r
-</MAN>\r
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
+<MAN>
+  <LANGUAGE>eng</LANGUAGE>
+
+  <TITLE>findfiles</TITLE>
+
+  <TYPE>Scilab Function</TYPE>
+
+  <DATE>$LastChangedDate: 2006-09-10 20:58:00 +0200 (dim., 10 sept. 2006)$</DATE>
+
+  <SHORT_DESCRIPTION name="findfiles">Finding all files with a given
+  filespec</SHORT_DESCRIPTION>
+
+  <CALLING_SEQUENCE>
+    <CALLING_SEQUENCE_ITEM>f = findfiles()</CALLING_SEQUENCE_ITEM>
+
+    <CALLING_SEQUENCE_ITEM>f=findfiles(path)</CALLING_SEQUENCE_ITEM>
+
+    <CALLING_SEQUENCE_ITEM>f=findfiles(path,filespec)</CALLING_SEQUENCE_ITEM>
+  </CALLING_SEQUENCE>
+
+  <PARAM>
+    <PARAM_INDENT>
+      <PARAM_ITEM>
+        <PARAM_NAME>path</PARAM_NAME>
+
+        <PARAM_DESCRIPTION>
+          <SP>: a path </SP>
+        </PARAM_DESCRIPTION>
+      </PARAM_ITEM>
+
+      <PARAM_ITEM>
+        <PARAM_NAME>filespec</PARAM_NAME>
+
+        <PARAM_DESCRIPTION>
+          <SP>: a spec file. example "*.sce" </SP>
+        </PARAM_DESCRIPTION>
+      </PARAM_ITEM>
+
+      <PARAM_ITEM>
+        <PARAM_NAME>f</PARAM_NAME>
+
+        <PARAM_DESCRIPTION>
+          <SP>: returns a string matrix of filenames</SP>
+        </PARAM_DESCRIPTION>
+      </PARAM_ITEM>
+    </PARAM_INDENT>
+  </PARAM>
+
+  <DESCRIPTION>
+    <P>Finding all files with a given filespec </P>
+  </DESCRIPTION>
+
+  <EXAMPLE><![CDATA[
+
+   f=findfiles()
+   f=findfiles(SCI)
+   f=findfiles(SCI+'/modules/core/macros','*.sci') 
+  
+  ]]></EXAMPLE>
+
+  <SEE_ALSO>
+    <SEE_ALSO_ITEM>
+      <LINK>listfiles</LINK>
+    </SEE_ALSO_ITEM>
+  </SEE_ALSO>
+
+  <AUTHORS>
+    <AUTHORS_ITEM>A.C</AUTHORS_ITEM>
+  </AUTHORS>
+</MAN>
index 01690f0..a06ca36 100644 (file)
@@ -1,55 +1,55 @@
-<?xml version="1.0" encoding="UTF-8"?>\r
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">\r
-<MAN>\r
-  <LANGUAGE>eng</LANGUAGE>\r
-\r
-  <TITLE>fullpath</TITLE>\r
-\r
-  <TYPE>Scilab Function</TYPE>\r
-\r
-  <DATE>$LastChangedDate: 2006-09-10 20:58:00 +0200 (dim., 10 sept. 2006)$</DATE>\r
-\r
-  <SHORT_DESCRIPTION name="fullpath">Creates an full path name for the specified relative path name.</SHORT_DESCRIPTION>\r
-\r
-  <CALLING_SEQUENCE>\r
-    <CALLING_SEQUENCE_ITEM>res = fullpath(relative_path)</CALLING_SEQUENCE_ITEM>\r
-  </CALLING_SEQUENCE>\r
-\r
-  <PARAM>\r
-    <PARAM_INDENT>\r
-      <PARAM_ITEM>\r
-        <PARAM_NAME>res</PARAM_NAME>\r
-\r
-        <PARAM_DESCRIPTION>\r
-          <SP>: a string</SP>\r
-        </PARAM_DESCRIPTION>\r
-      </PARAM_ITEM>\r
-\r
-    </PARAM_INDENT>\r
-    \r
-    <PARAM_INDENT>\r
-      <PARAM_ITEM>\r
-        <PARAM_NAME>relative_path</PARAM_NAME>\r
-\r
-        <PARAM_DESCRIPTION>\r
-          <SP>: a string</SP>\r
-        </PARAM_DESCRIPTION>\r
-      </PARAM_ITEM>\r
-\r
-    </PARAM_INDENT>\r
-  </PARAM>\r
-\r
-  <DESCRIPTION>\r
-    <P>Creates an full path name for the specified relative path name.</P>\r
-    <P>On linux 'relative_path' needs to exist.</P>\r
-  </DESCRIPTION>\r
-\r
-  <EXAMPLE><![CDATA[\r
-   fullpath('scilab.test')\r
-  ]]></EXAMPLE>\r
-\r
-\r
-  <AUTHORS>\r
-    <AUTHORS_ITEM>A.C</AUTHORS_ITEM>\r
-  </AUTHORS>\r
-</MAN>\r
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
+<MAN>
+  <LANGUAGE>eng</LANGUAGE>
+
+  <TITLE>fullpath</TITLE>
+
+  <TYPE>Scilab Function</TYPE>
+
+  <DATE>$LastChangedDate: 2006-09-10 20:58:00 +0200 (dim., 10 sept. 2006)$</DATE>
+
+  <SHORT_DESCRIPTION name="fullpath">Creates an full path name for the specified relative path name.</SHORT_DESCRIPTION>
+
+  <CALLING_SEQUENCE>
+    <CALLING_SEQUENCE_ITEM>res = fullpath(relative_path)</CALLING_SEQUENCE_ITEM>
+  </CALLING_SEQUENCE>
+
+  <PARAM>
+    <PARAM_INDENT>
+      <PARAM_ITEM>
+        <PARAM_NAME>res</PARAM_NAME>
+
+        <PARAM_DESCRIPTION>
+          <SP>: a string</SP>
+        </PARAM_DESCRIPTION>
+      </PARAM_ITEM>
+
+    </PARAM_INDENT>
+    
+    <PARAM_INDENT>
+      <PARAM_ITEM>
+        <PARAM_NAME>relative_path</PARAM_NAME>
+
+        <PARAM_DESCRIPTION>
+          <SP>: a string</SP>
+        </PARAM_DESCRIPTION>
+      </PARAM_ITEM>
+
+    </PARAM_INDENT>
+  </PARAM>
+
+  <DESCRIPTION>
+    <P>Creates an full path name for the specified relative path name.</P>
+    <P>On linux 'relative_path' needs to exist.</P>
+  </DESCRIPTION>
+
+  <EXAMPLE><![CDATA[
+   fullpath('scilab.test')
+  ]]></EXAMPLE>
+
+
+  <AUTHORS>
+    <AUTHORS_ITEM>A.C</AUTHORS_ITEM>
+  </AUTHORS>
+</MAN>
index 938f39d..b157fae 100644 (file)
@@ -1,46 +1,46 @@
-<?xml version="1.0" encoding="UTF-8"?>\r
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">\r
-<MAN>\r
-  <LANGUAGE>eng</LANGUAGE>\r
-\r
-  <TITLE>getdrives</TITLE>\r
-\r
-  <TYPE>Scilab Function</TYPE>\r
-\r
-  <DATE>$LastChangedDate: 2006-09-10 20:58:00 +0200 (dim., 10 sept. 2006)$</DATE>\r
-\r
-  <SHORT_DESCRIPTION name="getdrives">Get the drive letters of all mounted filesystems on the computer.</SHORT_DESCRIPTION>\r
-\r
-  <CALLING_SEQUENCE>\r
-    <CALLING_SEQUENCE_ITEM>drives = getdrives()</CALLING_SEQUENCE_ITEM>\r
-  </CALLING_SEQUENCE>\r
-\r
-  <PARAM>\r
-    <PARAM_INDENT>\r
-      <PARAM_ITEM>\r
-        <PARAM_NAME>drives</PARAM_NAME>\r
-\r
-        <PARAM_DESCRIPTION>\r
-          <SP>: a matrix of strings</SP>\r
-        </PARAM_DESCRIPTION>\r
-      </PARAM_ITEM>\r
-\r
-    </PARAM_INDENT>\r
-  </PARAM>\r
-\r
-  <DESCRIPTION>\r
-    <P>Get the drive letters of all mounted filesystems on the computer.</P>\r
-    <P>returns the roots of all mounted filesystems on the computer as a matrix of strings.</P>\r
-    <P>For Linux this list consists solely of the  root directory, / .</P>\r
-    \r
-  </DESCRIPTION>\r
-\r
-  <EXAMPLE><![CDATA[\r
-   getdrives()\r
-  ]]></EXAMPLE>\r
-\r
-\r
-  <AUTHORS>\r
-    <AUTHORS_ITEM>A.C</AUTHORS_ITEM>\r
-  </AUTHORS>\r
-</MAN>\r
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
+<MAN>
+  <LANGUAGE>eng</LANGUAGE>
+
+  <TITLE>getdrives</TITLE>
+
+  <TYPE>Scilab Function</TYPE>
+
+  <DATE>$LastChangedDate: 2006-09-10 20:58:00 +0200 (dim., 10 sept. 2006)$</DATE>
+
+  <SHORT_DESCRIPTION name="getdrives">Get the drive letters of all mounted filesystems on the computer.</SHORT_DESCRIPTION>
+
+  <CALLING_SEQUENCE>
+    <CALLING_SEQUENCE_ITEM>drives = getdrives()</CALLING_SEQUENCE_ITEM>
+  </CALLING_SEQUENCE>
+
+  <PARAM>
+    <PARAM_INDENT>
+      <PARAM_ITEM>
+        <PARAM_NAME>drives</PARAM_NAME>
+
+        <PARAM_DESCRIPTION>
+          <SP>: a matrix of strings</SP>
+        </PARAM_DESCRIPTION>
+      </PARAM_ITEM>
+
+    </PARAM_INDENT>
+  </PARAM>
+
+  <DESCRIPTION>
+    <P>Get the drive letters of all mounted filesystems on the computer.</P>
+    <P>returns the roots of all mounted filesystems on the computer as a matrix of strings.</P>
+    <P>For Linux this list consists solely of the  root directory, / .</P>
+    
+  </DESCRIPTION>
+
+  <EXAMPLE><![CDATA[
+   getdrives()
+  ]]></EXAMPLE>
+
+
+  <AUTHORS>
+    <AUTHORS_ITEM>A.C</AUTHORS_ITEM>
+  </AUTHORS>
+</MAN>
index e2d1976..0877889 100644 (file)
@@ -1,44 +1,44 @@
-<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>\r
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">\r
-<MAN>\r
-  <LANGUAGE>eng</LANGUAGE>\r
-  <TITLE>maxfiles</TITLE>\r
-  <TYPE>Scilab Function</TYPE>\r
-  <DATE>$LastChangedDate: 2007-04-22 18:20:07 +0200 (dim., 22 avr. 2007) $</DATE>\r
-  <SHORT_DESCRIPTION name="maxfiles">sets the limit for the number of files a scilab is allowed to have open simultaneously.</SHORT_DESCRIPTION>\r
-  <CALLING_SEQUENCE>\r
-    <CALLING_SEQUENCE_ITEM>r= maxfiles(newnumbermax)  </CALLING_SEQUENCE_ITEM>\r
-  </CALLING_SEQUENCE>\r
-  <PARAM>\r
-    <PARAM_INDENT>\r
-      <PARAM_ITEM>\r
-        <PARAM_NAME>newnumbermax</PARAM_NAME>\r
-        <PARAM_DESCRIPTION>\r
-          <SP>: a integer the new value</SP>\r
-        </PARAM_DESCRIPTION>\r
-      </PARAM_ITEM>\r
-      <PARAM_ITEM>\r
-        <PARAM_NAME>r</PARAM_NAME>\r
-        <PARAM_DESCRIPTION>\r
-          <SP>: effective new value.</SP>\r
-        </PARAM_DESCRIPTION>\r
-      </PARAM_ITEM>\r
-    </PARAM_INDENT>\r
-  </PARAM>\r
-  <DESCRIPTION>\r
-    <P>sets the limit for the number of files a scilab is allowed to have open simultaneously.</P>\r
-    <P>Minimum : 20</P>\r
-    <P>Maximum : 100</P>\r
-    <P>Default : 20</P>\r
-  </DESCRIPTION>\r
-  <EXAMPLE>\r
-<![CDATA[\r
-r=maxfiles(50);\r
- ]]>\r
-  </EXAMPLE>\r
-  <SEE_ALSO>\r
-    <SEE_ALSO_ITEM>\r
-      <LINK>mopen</LINK>\r
-    </SEE_ALSO_ITEM>\r
-  </SEE_ALSO>\r
-</MAN>\r
+<?xml version="1.0" encoding="ISO-8859-1" standalone="no"?>
+<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
+<MAN>
+  <LANGUAGE>eng</LANGUAGE>
+  <TITLE>maxfiles</TITLE>
+  <TYPE>Scilab Function</TYPE>
+  <DATE>$LastChangedDate: 2007-04-22 18:20:07 +0200 (dim., 22 avr. 2007) $</DATE>
+  <SHORT_DESCRIPTION name="maxfiles">sets the limit for the number of files a scilab is allowed to have open simultaneously.</SHORT_DESCRIPTION>
+  <CALLING_SEQUENCE>
+    <CALLING_SEQUENCE_ITEM>r= maxfiles(newnumbermax)  </CALLING_SEQUENCE_ITEM>
+  </CALLING_SEQUENCE>
+  <PARAM>
+    <PARAM_INDENT>
+      <PARAM_ITEM>
+        <PARAM_NAME>newnumbermax</PARAM_NAME>
+        <PARAM_DESCRIPTION>
+          <SP>: a integer the new value</SP>
+        </PARAM_DESCRIPTION>
+      </PARAM_ITEM>
+      <PARAM_ITEM>
+        <PARAM_NAME>r</PARAM_NAME>
+        <PARAM_DESCRIPTION>
+          <SP>: effective new value.</SP>
+        </PARAM_DESCRIPTION>
+      </PARAM_ITEM>
+    </PARAM_INDENT>
+  </PARAM>
+  <DESCRIPTION>
+    <P>sets the limit for the number of files a scilab is allowed to have open simultaneously.</P>
+    <P>Minimum : 20</P>
+    <P>Maximum : 100</P>
+    <P>Default : 20</P>
+  </DESCRIPTION>
+  <EXAMPLE>
+<![CDATA[
+r=maxfiles(50);
+ ]]>
+  </EXAMPLE>
+  <SEE_ALSO>
+    <SEE_ALSO_ITEM>
+      <LINK>mopen</LINK>
+    </SEE_ALSO_ITEM>
+  </SEE_ALSO>
+</MAN>
index 095ff57..74aff40 100644 (file)
@@ -1,25 +1,25 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* Scilab */\r
-/* INRIA 2007 */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __ADDFILE_H__\r
-#define __ADDFILE_H__\r
-\r
-#include <stdio.h>\r
-#include "machine.h"\r
-\r
-/**\r
- *add a file in the files table\r
- *\r
- * @param fd    \r
- * @param fa    \r
- * @param swap2 \r
- * @param type  \r
- * @param mode  \r
- * @param filename  \r
- * @param ierr  \r
- */\r
-void C2F(addfile)(integer *fd, FILE *fa, integer *swap2, integer *type, integer *mode, char *filename, integer *ierr);\r
-\r
-#endif /*  __ADDFILE_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* Scilab */
+/* INRIA 2007 */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __ADDFILE_H__
+#define __ADDFILE_H__
+
+#include <stdio.h>
+#include "machine.h"
+
+/**
+ *add a file in the files table
+ *
+ * @param fd    
+ * @param fa    
+ * @param swap2 
+ * @param type  
+ * @param mode  
+ * @param filename  
+ * @param ierr  
+ */
+void C2F(addfile)(integer *fd, FILE *fa, integer *swap2, integer *type, integer *mode, char *filename, integer *ierr);
+
+#endif /*  __ADDFILE_H__ */
+/*-----------------------------------------------------------------------------------*/
index 24a6559..38add85 100644 (file)
@@ -1,16 +1,16 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* Scilab */\r
-/* INRIA 2007 */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __DELFILE_H__\r
-#define __DELFILE_H__\r
-\r
-#include "machine.h"\r
-\r
-/**\r
-* delete a file in the files table\r
-*/\r
-void C2F(delfile)(integer *fd);\r
-\r
-#endif /* __DELFILE_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* Scilab */
+/* INRIA 2007 */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __DELFILE_H__
+#define __DELFILE_H__
+
+#include "machine.h"
+
+/**
+* delete a file in the files table
+*/
+void C2F(delfile)(integer *fd);
+
+#endif /* __DELFILE_H__ */
+/*-----------------------------------------------------------------------------------*/
index 5638cdb..740340c 100644 (file)
@@ -1,32 +1,32 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Sylvestre LEDRU */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __DIARY_H__\r
-#define __DIARY_H__\r
-\r
-#include "machine.h"\r
-\r
-/**\r
-* TODO \r
-* @return \r
-*/\r
-int getdiary(void);\r
-\r
-/**\r
-* TODO \r
-* @param str\r
-* @param n\r
-*/\r
-void C2F(diary)(char *str,int *n);\r
-\r
-\r
-/**\r
-* TODO \r
-* @param str\r
-* @param n\r
-*/\r
-void diary_nnl(char *str,int *n);\r
-\r
-#endif /* __DIARY_H__ */\r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Sylvestre LEDRU */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __DIARY_H__
+#define __DIARY_H__
+
+#include "machine.h"
+
+/**
+* TODO 
+* @return 
+*/
+int getdiary(void);
+
+/**
+* TODO 
+* @param str
+* @param n
+*/
+void C2F(diary)(char *str,int *n);
+
+
+/**
+* TODO 
+* @param str
+* @param n
+*/
+void diary_nnl(char *str,int *n);
+
+#endif /* __DIARY_H__ */
+
index 6104bc9..470e51b 100644 (file)
@@ -1,18 +1,18 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* Scilab */\r
-/* INRIA 2007 */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __GETFILEDESC_H__\r
-#define __GETFILEDESC_H__\r
-\r
-#include "machine.h"\r
-\r
-/**\r
-* returns the first available position in Files descriptor Table\r
-* @param fd (id)\r
-* @param[out] fd (-1 error)\r
-*/\r
-void C2F(getfiledesc)(integer *fd); \r
-\r
-#endif /* __GETFILEDESC_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* Scilab */
+/* INRIA 2007 */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __GETFILEDESC_H__
+#define __GETFILEDESC_H__
+
+#include "machine.h"
+
+/**
+* returns the first available position in Files descriptor Table
+* @param fd (id)
+* @param[out] fd (-1 error)
+*/
+void C2F(getfiledesc)(integer *fd); 
+
+#endif /* __GETFILEDESC_H__ */
+/*-----------------------------------------------------------------------------------*/
index 850c408..5be6d6d 100644 (file)
@@ -1,17 +1,17 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* Scilab */\r
-/* INRIA 2007 */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __GETFILEINFO_H__\r
-#define __GETFILEINFO_H__\r
-\r
-#include <stdio.h>\r
-#include "machine.h"\r
-\r
-/**\r
-* get file info in the files table\r
-*/\r
-void C2F(getfileinfo)(integer *fd, FILE *fa, integer *swap, integer *type, integer *mode, char *filename, integer *lf, integer *ierr);\r
-\r
-#endif /* __GETFILEINFO_H__ */\r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* Scilab */
+/* INRIA 2007 */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __GETFILEINFO_H__
+#define __GETFILEINFO_H__
+
+#include <stdio.h>
+#include "machine.h"
+
+/**
+* get file info in the files table
+*/
+void C2F(getfileinfo)(integer *fd, FILE *fa, integer *swap, integer *type, integer *mode, char *filename, integer *lf, integer *ierr);
+
+#endif /* __GETFILEINFO_H__ */
+
index b5b5676..37da732 100644 (file)
@@ -1,20 +1,20 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* Scilab */\r
-/* INRIA 2007 */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __GETFILETYPE_H__\r
-#define __GETFILETYPE_H__\r
-\r
-#include "machine.h"\r
-\r
-/**\r
- * get file type (Fortran or C)\r
- *\r
- * @param fd    \r
- * @param type  \r
- * @param ierr  \r
- */\r
-void C2F(getfiletype)(integer *fd, integer *type, integer *ierr);\r
-\r
-#endif /* __GETFILETYPE_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* Scilab */
+/* INRIA 2007 */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __GETFILETYPE_H__
+#define __GETFILETYPE_H__
+
+#include "machine.h"
+
+/**
+ * get file type (Fortran or C)
+ *
+ * @param fd    
+ * @param type  
+ * @param ierr  
+ */
+void C2F(getfiletype)(integer *fd, integer *type, integer *ierr);
+
+#endif /* __GETFILETYPE_H__ */
+/*-----------------------------------------------------------------------------------*/
index 7db035d..2f5bb37 100644 (file)
@@ -1,19 +1,19 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* Scilab */\r
-/* INRIA 2007 */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __MCLOSE_H__\r
-#define __MCLOSE_H__\r
-\r
-#include "machine.h"\r
-\r
-/**\r
-* close the file with id *fd \r
-* if *id != -1 and *id != -2\r
-* the current file if *id = -1 \r
-* all opened file if *id = -2 \r
-*/\r
-void C2F(mclose) (integer *fd, double *res);\r
-\r
-#endif /* __MCLOSE_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* Scilab */
+/* INRIA 2007 */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __MCLOSE_H__
+#define __MCLOSE_H__
+
+#include "machine.h"
+
+/**
+* close the file with id *fd 
+* if *id != -1 and *id != -2
+* the current file if *id = -1 
+* all opened file if *id = -2 
+*/
+void C2F(mclose) (integer *fd, double *res);
+
+#endif /* __MCLOSE_H__ */
+/*-----------------------------------------------------------------------------------*/
index aebdcd2..b9d3215 100644 (file)
@@ -1,24 +1,24 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* Scilab */\r
-/* INRIA 2007 */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __MGET_H__\r
-#define __MGET_H__\r
-\r
-#include <stdio.h>\r
-#include "machine.h"\r
-\r
-/**\r
-* mget functions  read data in a machine \r
-* independant way (i.e write in little-endian) \r
-* or can be used to read in little or big endian \r
-* if read fails *ierr contains the number of properly read items \r
-*/\r
-void C2F(mget) (integer *fd, double *res, integer *n, char *type, integer *ierr);\r
-\r
-void C2F(mgetnc)(integer *fd, void * res, integer *n1, char *type, integer *ierr);\r
-\r
-void mget2(FILE *fa, integer swap, double *res, integer n, char *type, integer *ierr);\r
-\r
-#endif /* __MGET_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* Scilab */
+/* INRIA 2007 */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __MGET_H__
+#define __MGET_H__
+
+#include <stdio.h>
+#include "machine.h"
+
+/**
+* mget functions  read data in a machine 
+* independant way (i.e write in little-endian) 
+* or can be used to read in little or big endian 
+* if read fails *ierr contains the number of properly read items 
+*/
+void C2F(mget) (integer *fd, double *res, integer *n, char *type, integer *ierr);
+
+void C2F(mgetnc)(integer *fd, void * res, integer *n1, char *type, integer *ierr);
+
+void mget2(FILE *fa, integer swap, double *res, integer n, char *type, integer *ierr);
+
+#endif /* __MGET_H__ */
+/*-----------------------------------------------------------------------------------*/
index 115da1b..f23dad3 100644 (file)
@@ -1,23 +1,23 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* Scilab */\r
-/* INRIA 2007 */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __MPUT_H__\r
-#define __MPUT_H__\r
-\r
-#include <stdio.h>\r
-#include "machine.h"\r
-\r
-/**\r
-* mput functions  write data in a machine \r
-* independant way (i.e write in little-endian) \r
-* or can be used to write in little or big endian \r
-*/\r
-void C2F(mput) (integer *fd, double *res, integer *n, char *type, integer *ierr);\r
-\r
-void C2F(mputnc) (integer *fd, void * res, integer *n1, char *type, integer *ierr);\r
-\r
-void mput2 (FILE *fa, integer swap2, double *res, integer n, char *type, integer *ierr);\r
-\r
-#endif /* __MPUT_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* Scilab */
+/* INRIA 2007 */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __MPUT_H__
+#define __MPUT_H__
+
+#include <stdio.h>
+#include "machine.h"
+
+/**
+* mput functions  write data in a machine 
+* independant way (i.e write in little-endian) 
+* or can be used to write in little or big endian 
+*/
+void C2F(mput) (integer *fd, double *res, integer *n, char *type, integer *ierr);
+
+void C2F(mputnc) (integer *fd, void * res, integer *n1, char *type, integer *ierr);
+
+void mput2 (FILE *fa, integer swap2, double *res, integer n, char *type, integer *ierr);
+
+#endif /* __MPUT_H__ */
+/*-----------------------------------------------------------------------------------*/
index 9ef3a03..4d660a3 100644 (file)
@@ -1,16 +1,16 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* Scilab */\r
-/* INRIA 2007 */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __MSEEK_H__\r
-#define __MSEEK_H__\r
-\r
-#include "machine.h"\r
-\r
-/**\r
-* seek function \r
-*/\r
-void C2F(mseek) (integer *fd, integer *offset, char *flag, integer *err);\r
-\r
-#endif /* __MSEEK_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* Scilab */
+/* INRIA 2007 */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __MSEEK_H__
+#define __MSEEK_H__
+
+#include "machine.h"
+
+/**
+* seek function 
+*/
+void C2F(mseek) (integer *fd, integer *offset, char *flag, integer *err);
+
+#endif /* __MSEEK_H__ */
+/*-----------------------------------------------------------------------------------*/
index 74cc967..516947a 100644 (file)
@@ -1,45 +1,45 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "gw_fileio.h"\r
-#include "stack-c.h"\r
-#include "MALLOC.h"\r
-#include "Scierror.h"\r
-#include "deleteafile.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(sci_deletefile) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-       CheckRhs(1,1);\r
-       CheckLhs(1,1);\r
-\r
-       if (GetType(1) == sci_strings)\r
-       {\r
-               int m1,n1,l1;\r
-               char *VarName=NULL;\r
-\r
-               GetRhsVar(1,"c",&m1,&n1,&l1);\r
-               VarName=cstk(l1);\r
-\r
-               n1=1;\r
-               if ( deleteafile(VarName) )\r
-               {\r
-                       CreateVar(Rhs+1, "b", &n1,&n1,&l1);\r
-                       *istk(l1)=(int)(TRUE);\r
-               }\r
-               else\r
-               {\r
-                       CreateVar(Rhs+1, "b", &n1,&n1,&l1);\r
-                       *istk(l1)=(int)(FALSE);\r
-               }\r
-\r
-               LhsVar(1)=Rhs+1;\r
-               C2F(putlhsvar)();\r
-       }\r
-       else\r
-       {\r
-               Scierror(999,"Invalid parameter , it must be a filename (string).\n");\r
-       }\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#include "gw_fileio.h"
+#include "stack-c.h"
+#include "MALLOC.h"
+#include "Scierror.h"
+#include "deleteafile.h"
+/*-----------------------------------------------------------------------------------*/
+int C2F(sci_deletefile) _PARAMS((char *fname,unsigned long fname_len))
+{
+       CheckRhs(1,1);
+       CheckLhs(1,1);
+
+       if (GetType(1) == sci_strings)
+       {
+               int m1,n1,l1;
+               char *VarName=NULL;
+
+               GetRhsVar(1,"c",&m1,&n1,&l1);
+               VarName=cstk(l1);
+
+               n1=1;
+               if ( deleteafile(VarName) )
+               {
+                       CreateVar(Rhs+1, "b", &n1,&n1,&l1);
+                       *istk(l1)=(int)(TRUE);
+               }
+               else
+               {
+                       CreateVar(Rhs+1, "b", &n1,&n1,&l1);
+                       *istk(l1)=(int)(FALSE);
+               }
+
+               LhsVar(1)=Rhs+1;
+               C2F(putlhsvar)();
+       }
+       else
+       {
+               Scierror(999,"Invalid parameter , it must be a filename (string).\n");
+       }
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
index 147cea5..e7e8f72 100644 (file)
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "gw_fileio.h"\r
-#include "findfiles.h"\r
-#include "stack-c.h"\r
-#include "MALLOC.h"\r
-#include "../../../core/src/c/scicurdir.h" /* C2F(scigetcwd) */\r
-#include "../../../io/includes/directories.h" /* MAX_PATH_LONG */\r
-#include "Scierror.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-#define DEFAULT_FILESPEC "*.*"\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(sci_findfiles) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-       static int l1,n1,m1;\r
-       char *path=NULL;\r
-       char *filespec=NULL;\r
-       char **FilesList=NULL;\r
-       int sizeListReturned=0;\r
-\r
-       Rhs=Max(Rhs,0);\r
-       CheckRhs(0,2) ;\r
-       CheckLhs(0,1) ;\r
-\r
-       switch(Rhs)\r
-       {\r
-               default: case 0:\r
-               {\r
-                       int ierr=0;\r
-                       int lpath=0;\r
-\r
-                       path=(char*)MALLOC(sizeof(char)*(MAX_PATH_LONG+1));\r
-\r
-                       C2F(scigetcwd)(&path,&lpath,&ierr);\r
-\r
-                       if (ierr)\r
-                       {\r
-                               Scierror(999,"Problem with current directory.\n");\r
-                               if (path) {FREE(path);path=NULL;}\r
-                               return 0;\r
-                       }\r
-                       else\r
-                       {\r
-                               filespec=(char *)MALLOC(sizeof(char)*(strlen(DEFAULT_FILESPEC)+1));\r
-                               strcpy(filespec,DEFAULT_FILESPEC);\r
-                       }\r
-               }\r
-               break;\r
-\r
-               case 1:\r
-               {\r
-                       if (GetType(1) == sci_strings)\r
-                       {\r
-                               GetRhsVar(1,"c",&m1,&n1,&l1);\r
-                               path=cstk(l1);\r
-\r
-                               filespec=(char *)MALLOC(sizeof(char)*(strlen(DEFAULT_FILESPEC)+1));\r
-                               strcpy(filespec,DEFAULT_FILESPEC);\r
-                       }\r
-                       else\r
-                       {\r
-                               Scierror(999,"Invalid parameter , it must be a path (string).\n");\r
-                               return 0;\r
-                       }\r
-\r
-               }\r
-               break;\r
-\r
-               case 2:\r
-               {\r
-                       if ( (GetType(1) == sci_strings) && (GetType(2) == sci_strings) )\r
-                       {\r
-                               GetRhsVar(1,"c",&m1,&n1,&l1);\r
-                               path=cstk(l1);\r
-\r
-                               GetRhsVar(2,"c",&m1,&n1,&l1);\r
-                               filespec=cstk(l1);\r
-                       }\r
-                       else\r
-                       {\r
-                               Scierror(999,"Invalid parameter(s) , it must be a path and a filespec (string).\n");\r
-                               return 0;\r
-                       }\r
-               }\r
-               break;\r
-       }\r
-\r
-       FilesList=findfiles(path,filespec,&sizeListReturned);\r
-\r
-       if (FilesList)\r
-       {\r
-               int ncol,nrow;\r
-\r
-               ncol=1;\r
-               nrow=sizeListReturned;\r
-\r
-               CreateVarFromPtr(Rhs+1, "S", &nrow, &ncol, FilesList);\r
-               LhsVar(1) = Rhs+1;\r
-       }\r
-       else\r
-       {\r
-               n1=0;m1=0;l1=0;\r
-               CreateVarFromPtr(Rhs+ 1, "d",&n1,&m1,&l1);\r
-               LhsVar(1) = Rhs+1;\r
-       }\r
-\r
-       C2F(putlhsvar)();\r
-\r
-       if (FilesList)\r
-       {\r
-               int i=0;\r
-               for (i=0;i<sizeListReturned;i++)\r
-               {\r
-                       if (FilesList[i])\r
-                       {\r
-                               FREE(FilesList[i]);\r
-                               FilesList[i]=NULL;\r
-                       }\r
-               }\r
-               FREE(FilesList);\r
-               FilesList=NULL;\r
-       }\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#include "gw_fileio.h"
+#include "findfiles.h"
+#include "stack-c.h"
+#include "MALLOC.h"
+#include "../../../core/src/c/scicurdir.h" /* C2F(scigetcwd) */
+#include "../../../io/includes/directories.h" /* MAX_PATH_LONG */
+#include "Scierror.h"
+/*-----------------------------------------------------------------------------------*/
+#define DEFAULT_FILESPEC "*.*"
+/*-----------------------------------------------------------------------------------*/
+int C2F(sci_findfiles) _PARAMS((char *fname,unsigned long fname_len))
+{
+       static int l1,n1,m1;
+       char *path=NULL;
+       char *filespec=NULL;
+       char **FilesList=NULL;
+       int sizeListReturned=0;
+
+       Rhs=Max(Rhs,0);
+       CheckRhs(0,2) ;
+       CheckLhs(0,1) ;
+
+       switch(Rhs)
+       {
+               default: case 0:
+               {
+                       int ierr=0;
+                       int lpath=0;
+
+                       path=(char*)MALLOC(sizeof(char)*(MAX_PATH_LONG+1));
+
+                       C2F(scigetcwd)(&path,&lpath,&ierr);
+
+                       if (ierr)
+                       {
+                               Scierror(999,"Problem with current directory.\n");
+                               if (path) {FREE(path);path=NULL;}
+                               return 0;
+                       }
+                       else
+                       {
+                               filespec=(char *)MALLOC(sizeof(char)*(strlen(DEFAULT_FILESPEC)+1));
+                               strcpy(filespec,DEFAULT_FILESPEC);
+                       }
+               }
+               break;
+
+               case 1:
+               {
+                       if (GetType(1) == sci_strings)
+                       {
+                               GetRhsVar(1,"c",&m1,&n1,&l1);
+                               path=cstk(l1);
+
+                               filespec=(char *)MALLOC(sizeof(char)*(strlen(DEFAULT_FILESPEC)+1));
+                               strcpy(filespec,DEFAULT_FILESPEC);
+                       }
+                       else
+                       {
+                               Scierror(999,"Invalid parameter , it must be a path (string).\n");
+                               return 0;
+                       }
+
+               }
+               break;
+
+               case 2:
+               {
+                       if ( (GetType(1) == sci_strings) && (GetType(2) == sci_strings) )
+                       {
+                               GetRhsVar(1,"c",&m1,&n1,&l1);
+                               path=cstk(l1);
+
+                               GetRhsVar(2,"c",&m1,&n1,&l1);
+                               filespec=cstk(l1);
+                       }
+                       else
+                       {
+                               Scierror(999,"Invalid parameter(s) , it must be a path and a filespec (string).\n");
+                               return 0;
+                       }
+               }
+               break;
+       }
+
+       FilesList=findfiles(path,filespec,&sizeListReturned);
+
+       if (FilesList)
+       {
+               int ncol,nrow;
+
+               ncol=1;
+               nrow=sizeListReturned;
+
+               CreateVarFromPtr(Rhs+1, "S", &nrow, &ncol, FilesList);
+               LhsVar(1) = Rhs+1;
+       }
+       else
+       {
+               n1=0;m1=0;l1=0;
+               CreateVarFromPtr(Rhs+ 1, "d",&n1,&m1,&l1);
+               LhsVar(1) = Rhs+1;
+       }
+
+       C2F(putlhsvar)();
+
+       if (FilesList)
+       {
+               int i=0;
+               for (i=0;i<sizeListReturned;i++)
+               {
+                       if (FilesList[i])
+                       {
+                               FREE(FilesList[i]);
+                               FilesList[i]=NULL;
+                       }
+               }
+               FREE(FilesList);
+               FilesList=NULL;
+       }
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
index 9bdcf82..047c50c 100644 (file)
@@ -1,62 +1,62 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef _MSC_VER\r
-#include <sys/param.h>\r
-#endif\r
-#include <stdlib.h>\r
-#include "gw_fileio.h"\r
-#include "stack-c.h"\r
-#include "MALLOC.h"\r
-#include "Scierror.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef _MAX_PATH\r
-#define _MAX_PATH   260\r
-#endif\r
-#ifndef _MSC_VER\r
-#define _fullpath(a,r,l)        realpath(r,a)\r
-#endif\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(sci_fullpath) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-       Rhs=Max(Rhs,0);\r
-       CheckRhs(1,1) ;\r
-       CheckLhs(0,1) ;\r
-\r
-       if (GetType(1) == sci_strings)\r
-       {\r
-               static int l1,n1,m1;\r
-               char *relPath=NULL;\r
-               char fullpath[_MAX_PATH*4];\r
-               \r
-               GetRhsVar(1,"c",&m1,&n1,&l1);\r
-               relPath=cstk(l1);\r
-\r
-               if( _fullpath( fullpath, relPath, _MAX_PATH*4 ) != NULL )\r
-               {\r
-                       char *Output=NULL;\r
-                       Output=(char*)MALLOC((strlen(fullpath)+1)*sizeof(char));\r
-                       strcpy(Output,fullpath);\r
-\r
-                       n1=1;\r
-                       CreateVarFromPtr( Rhs+1, "c",(m1=(int)strlen(Output), &m1),&n1,&Output);\r
-                       LhsVar(1) = Rhs+1;\r
-                       C2F(putlhsvar)();       \r
-\r
-                       if (Output) {FREE(Output);Output=NULL;}\r
-               }\r
-               else\r
-               {\r
-                       Scierror(999,"Invalid path.\n");\r
-               }\r
-       }\r
-       else\r
-       {\r
-               Scierror(999,"Invalid parameter , it must be a path (string).\n");\r
-       }\r
-\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#ifndef _MSC_VER
+#include <sys/param.h>
+#endif
+#include <stdlib.h>
+#include "gw_fileio.h"
+#include "stack-c.h"
+#include "MALLOC.h"
+#include "Scierror.h"
+/*-----------------------------------------------------------------------------------*/
+#ifndef _MAX_PATH
+#define _MAX_PATH   260
+#endif
+#ifndef _MSC_VER
+#define _fullpath(a,r,l)        realpath(r,a)
+#endif
+/*-----------------------------------------------------------------------------------*/
+int C2F(sci_fullpath) _PARAMS((char *fname,unsigned long fname_len))
+{
+       Rhs=Max(Rhs,0);
+       CheckRhs(1,1) ;
+       CheckLhs(0,1) ;
+
+       if (GetType(1) == sci_strings)
+       {
+               static int l1,n1,m1;
+               char *relPath=NULL;
+               char fullpath[_MAX_PATH*4];
+               
+               GetRhsVar(1,"c",&m1,&n1,&l1);
+               relPath=cstk(l1);
+
+               if( _fullpath( fullpath, relPath, _MAX_PATH*4 ) != NULL )
+               {
+                       char *Output=NULL;
+                       Output=(char*)MALLOC((strlen(fullpath)+1)*sizeof(char));
+                       strcpy(Output,fullpath);
+
+                       n1=1;
+                       CreateVarFromPtr( Rhs+1, "c",(m1=(int)strlen(Output), &m1),&n1,&Output);
+                       LhsVar(1) = Rhs+1;
+                       C2F(putlhsvar)();       
+
+                       if (Output) {FREE(Output);Output=NULL;}
+               }
+               else
+               {
+                       Scierror(999,"Invalid path.\n");
+               }
+       }
+       else
+       {
+               Scierror(999,"Invalid parameter , it must be a path (string).\n");
+       }
+
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+
index 04683bc..b56e126 100644 (file)
@@ -1,53 +1,53 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include <string.h>\r
-#include "gw_fileio.h"\r
-#include "stack-c.h"\r
-#include "MALLOC.h" \r
-#include "getdrives.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(sci_getdrives) _PARAMS((char *fname,unsigned long l))\r
-{      \r
-       static int l1=0,n1=0,m1=0;\r
-       char **Drives=NULL;\r
-       char DrvLetter[4] = "A:\\";\r
-       int nbDrives=0;\r
-       int i=0;\r
-\r
-       Rhs=Max(Rhs,0);\r
-       CheckRhs(0,0);\r
-       CheckLhs(0,1);\r
-\r
-       Drives=getdrives(&nbDrives);\r
-\r
-       if (Drives)\r
-       {\r
-               m1=1;\r
-               n1=nbDrives;\r
-               CreateVarFromPtr(Rhs+1,"S", &m1, &n1,Drives);\r
-       }\r
-       else\r
-       {\r
-               m1=0; n1=0; l1=0; \r
-               /* returns a [] */\r
-               CreateVar(Rhs+1,"d",  &m1, &n1, &l1);\r
-       }\r
-               \r
-       LhsVar(1) = Rhs+1;\r
-       C2F(putlhsvar)();       \r
-\r
-       if (Drives)\r
-       {\r
-               for (i=0;i<nbDrives;i++)\r
-               {\r
-                       if (Drives[i]) {FREE(Drives[i]);Drives[i]=NULL;}\r
-               }\r
-               FREE(Drives);\r
-               Drives=NULL;\r
-               nbDrives=0;\r
-       }\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#include <string.h>
+#include "gw_fileio.h"
+#include "stack-c.h"
+#include "MALLOC.h" 
+#include "getdrives.h"
+/*-----------------------------------------------------------------------------------*/
+int C2F(sci_getdrives) _PARAMS((char *fname,unsigned long l))
+{      
+       static int l1=0,n1=0,m1=0;
+       char **Drives=NULL;
+       char DrvLetter[4] = "A:\\";
+       int nbDrives=0;
+       int i=0;
+
+       Rhs=Max(Rhs,0);
+       CheckRhs(0,0);
+       CheckLhs(0,1);
+
+       Drives=getdrives(&nbDrives);
+
+       if (Drives)
+       {
+               m1=1;
+               n1=nbDrives;
+               CreateVarFromPtr(Rhs+1,"S", &m1, &n1,Drives);
+       }
+       else
+       {
+               m1=0; n1=0; l1=0; 
+               /* returns a [] */
+               CreateVar(Rhs+1,"d",  &m1, &n1, &l1);
+       }
+               
+       LhsVar(1) = Rhs+1;
+       C2F(putlhsvar)();       
+
+       if (Drives)
+       {
+               for (i=0;i<nbDrives;i++)
+               {
+                       if (Drives[i]) {FREE(Drives[i]);Drives[i]=NULL;}
+               }
+               FREE(Drives);
+               Drives=NULL;
+               nbDrives=0;
+       }
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
index cbc18e8..a485956 100644 (file)
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "gw_fileio.h"\r
-#include "stack-c.h"\r
-#include "MALLOC.h"\r
-#include "Scierror.h"\r
-#include "filesmanagement.h"\r
-#include "sciprint.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-#define MAX_FILES 100\r
-/*-----------------------------------------------------------------------------------*/\r
-static int DoOneLhs(void);\r
-/*-----------------------------------------------------------------------------------*/\r
-/**\r
-* maxfiles sets the soft limit for the number of scilab's files allowed to open simultaneously.\r
-* Minimum 20 \r
-* Maximum 100\r
-* Default 20\r
-*/\r
-int C2F(sci_maxfiles) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-       static int l1,n1,m1;\r
-\r
-       Rhs=Max(0,Rhs);\r
-       CheckRhs(0,1);\r
-       CheckLhs(0,1);\r
-\r
-       if (Rhs == 0)\r
-       {\r
-               DoOneLhs();\r
-       }\r
-       else\r
-       {\r
-               if ( GetType(1) == sci_matrix )\r
-               {\r
-                       GetRhsVar(1,"d",&m1,&n1,&l1);\r
-                       if ( (m1 == 1) && (n1 == 1) )\r
-                       {\r
-                               int NewMaxFiles=0;\r
-                               NewMaxFiles = (unsigned long) *stk(l1);\r
-                               if (NewMaxFiles > GetMaximumFileOpenedInScilab() )\r
-                               {\r
-                                       if (NewMaxFiles > MAX_FILES)\r
-                                       {\r
-                                               sciprint("Warning : %d > Maximum of files (%d).\n",NewMaxFiles,MAX_FILES);\r
-                                               DoOneLhs();\r
-                                       }\r
-                                       else\r
-                                       {\r
-                                               if ( ExtendScilabFilesList(NewMaxFiles) )\r
-                                               {\r
-                                                       DoOneLhs();\r
-                                               }\r
-                                               else\r
-                                               {\r
-                                                       Scierror(999,"Problem to extend the limit of scilab's files opened.\n",NewMaxFiles);\r
-                                                       return 0;\r
-                                               }\r
-                                       }\r
-                               }\r
-                               else\r
-                               {\r
-                                       sciprint("Warning : only extend the limit for the number of scilab's files opened simultaneously.\n");\r
-                                       DoOneLhs();\r
-                               }\r
-                       }\r
-                       else\r
-                       {\r
-                               Scierror(999,"invalid numbers of parameters.\n");\r
-                               return 0;\r
-                       }\r
-               }\r
-               else\r
-               {\r
-                       Scierror(999,"invalid parameter type.\n");\r
-                       return 0;\r
-               }\r
-       }\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-int DoOneLhs(void)\r
-{\r
-       static int l1,n1,m1;\r
-       int *paramoutINT=NULL;\r
-       paramoutINT=(int*)MALLOC(sizeof(int));\r
-\r
-       *paramoutINT= GetMaximumFileOpenedInScilab();\r
-\r
-       n1=1;m1=1;\r
-       CreateVarFromPtr(Rhs+1, "i", &n1, &m1, &paramoutINT);\r
-\r
-       LhsVar(1) = Rhs+1;\r
-       C2F(putlhsvar)();       \r
-\r
-       if (paramoutINT) {FREE(paramoutINT);paramoutINT=NULL;}\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#include "gw_fileio.h"
+#include "stack-c.h"
+#include "MALLOC.h"
+#include "Scierror.h"
+#include "filesmanagement.h"
+#include "sciprint.h"
+/*-----------------------------------------------------------------------------------*/
+#define MAX_FILES 100
+/*-----------------------------------------------------------------------------------*/
+static int DoOneLhs(void);
+/*-----------------------------------------------------------------------------------*/
+/**
+* maxfiles sets the soft limit for the number of scilab's files allowed to open simultaneously.
+* Minimum 20 
+* Maximum 100
+* Default 20
+*/
+int C2F(sci_maxfiles) _PARAMS((char *fname,unsigned long fname_len))
+{
+       static int l1,n1,m1;
+
+       Rhs=Max(0,Rhs);
+       CheckRhs(0,1);
+       CheckLhs(0,1);
+
+       if (Rhs == 0)
+       {
+               DoOneLhs();
+       }
+       else
+       {
+               if ( GetType(1) == sci_matrix )
+               {
+                       GetRhsVar(1,"d",&m1,&n1,&l1);
+                       if ( (m1 == 1) && (n1 == 1) )
+                       {
+                               int NewMaxFiles=0;
+                               NewMaxFiles = (unsigned long) *stk(l1);
+                               if (NewMaxFiles > GetMaximumFileOpenedInScilab() )
+                               {
+                                       if (NewMaxFiles > MAX_FILES)
+                                       {
+                                               sciprint("Warning : %d > Maximum of files (%d).\n",NewMaxFiles,MAX_FILES);
+                                               DoOneLhs();
+                                       }
+                                       else
+                                       {
+                                               if ( ExtendScilabFilesList(NewMaxFiles) )
+                                               {
+                                                       DoOneLhs();
+                                               }
+                                               else
+