Set svn:eol-style to native
Pierre Marechal [Tue, 17 Apr 2007 07:58:47 +0000 (07:58 +0000)]
37 files changed:
scilab/modules/arnoldi/includes/gw_arnoldi.h
scilab/modules/boolean/sci_gateway/c/sci_bool2s.c
scilab/modules/boolean/sci_gateway/c/sci_find.c
scilab/modules/cacsd/includes/gw_slicot.h
scilab/modules/core/includes/GetXmlFileEncoding.h
scilab/modules/core/includes/gw_user2.h
scilab/modules/core/includes/scilabmode.h
scilab/modules/core/macros/check_versions.sci
scilab/modules/core/sci_gateway/c/gw_user2.c
scilab/modules/core/src/c/GetXmlFileEncoding.c
scilab/modules/core/src/c/diary.c
scilab/modules/core/src/c/diary.h
scilab/modules/core/src/c/msgs.c
scilab/modules/core/src/c/scilabmode.c
scilab/modules/core/xml/VERSION.dtd
scilab/modules/data_structures/sci_gateway/c/sci_getfield.c
scilab/modules/data_structures/sci_gateway/c/sci_setfield.c
scilab/modules/differential_equations/sci_gateway/c/sci_odc.c
scilab/modules/differential_equations/src/c/arnol.c
scilab/modules/differential_equations/src/c/feval.c
scilab/modules/differential_equations/src/c/feval.h
scilab/modules/differential_equations/src/fortran/bcomp.f
scilab/modules/differential_equations/src/fortran/lcomp.f
scilab/modules/differential_equations/src/fortran/loren.f
scilab/modules/functions/macros/check_gateways.sci
scilab/modules/functions/xml/gateway.dtd
scilab/modules/io/sci_gateway/c/sci_get_absolute_file_path.c
scilab/modules/randlib/includes/gw_randlib.h
scilab/modules/string_V2/sci_gateway/c/sci_ascii1.c
scilab/modules/string_V2/sci_gateway/c/sci_convstr1.c
scilab/modules/string_V2/sci_gateway/c/sci_emptystr1.c
scilab/modules/string_V2/sci_gateway/c/sci_part1.c
scilab/modules/string_V2/sci_gateway/c/sci_strcat1.c
scilab/modules/string_V2/sci_gateway/c/sci_stripblanks1.c
scilab/modules/string_V2/sci_gateway/string_V2
scilab/modules/string_V2/src/c/DllMainString.c
scilab/modules/wintools/help/en_US/findfileassociation.xml

index 61f5c9c..087caa7 100644 (file)
@@ -1,21 +1,21 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2006 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef __GW_ARNOLDI_H__\r
-#define __GW_ARNOLDI_H__\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "machine.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(gw_arnoldi)(void);\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(intdsaupd) _PARAMS((char *fname,unsigned long fname_len));\r
-int C2F(intdnaupd) _PARAMS((char *fname,unsigned long fname_len));\r
-int C2F(intznaupd) _PARAMS((char *fname,unsigned long fname_len));\r
-int C2F(intdseupd) _PARAMS((char *fname,unsigned long fname_len));\r
-int C2F(intdneupd) _PARAMS((char *fname,unsigned long fname_len));\r
-int C2F(intzneupd) _PARAMS((char *fname,unsigned long fname_len));\r
-/*-----------------------------------------------------------------------------------*/\r
-#endif /* __GW_ARNOLDI_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef __GW_ARNOLDI_H__
+#define __GW_ARNOLDI_H__
+/*-----------------------------------------------------------------------------------*/
+#include "machine.h"
+/*-----------------------------------------------------------------------------------*/
+int C2F(gw_arnoldi)(void);
+/*-----------------------------------------------------------------------------------*/
+int C2F(intdsaupd) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(intdnaupd) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(intznaupd) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(intdseupd) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(intdneupd) _PARAMS((char *fname,unsigned long fname_len));
+int C2F(intzneupd) _PARAMS((char *fname,unsigned long fname_len));
+/*-----------------------------------------------------------------------------------*/
+#endif /* __GW_ARNOLDI_H__ */
+/*-----------------------------------------------------------------------------------*/
+
index a3b8dee..62bb25e 100644 (file)
@@ -1,13 +1,13 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "machine.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(sci_bool2s) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-       extern int C2F(intsbool2s)();\r
-       C2F(intsbool2s)();\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include "machine.h"
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(sci_bool2s) _PARAMS((char *fname,unsigned long fname_len))
+{
+       extern int C2F(intsbool2s)();
+       C2F(intsbool2s)();
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
index a3b37f5..80b326d 100644 (file)
@@ -1,13 +1,13 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "machine.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(sci_find) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-       extern int C2F(intfind)();\r
-       C2F(intfind)();\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include "machine.h"
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(sci_find) _PARAMS((char *fname,unsigned long fname_len))
+{
+       extern int C2F(intfind)();
+       C2F(intfind)();
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/ 
index 53e804d..ae6be73 100644 (file)
@@ -1,29 +1,29 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef __GW_SLICOT_H__\r
-#define __GW_SLICOT_H__\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "machine.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __DEF_MXARRAY__\r
-#define __DEF_MXARRAY__\r
-typedef int mxArray;\r
-typedef int Gatefunc __PARAMS((int nlhs,mxArray *plhs[],int nrhs,mxArray *prhs[]));\r
-#endif\r
-/*-----------------------------------------------------------------------------------*/ \r
-extern Gatefunc C2F(sident);\r
-extern Gatefunc C2F(sorder);\r
-extern Gatefunc C2F(findbd);\r
-extern Gatefunc C2F(intmucomp);\r
-extern Gatefunc C2F(intricc2);\r
-extern Gatefunc C2F(inthinf);\r
-extern Gatefunc C2F(intdhinf);\r
-extern Gatefunc C2F(intlinmeq);\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(gw_slicot)(void);\r
-/*-----------------------------------------------------------------------------------*/\r
-#endif /*  __GW_SLICOT_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef __GW_SLICOT_H__
+#define __GW_SLICOT_H__
+/*-----------------------------------------------------------------------------------*/
+#include "machine.h"
+/*-----------------------------------------------------------------------------------*/
+#ifndef __DEF_MXARRAY__
+#define __DEF_MXARRAY__
+typedef int mxArray;
+typedef int Gatefunc __PARAMS((int nlhs,mxArray *plhs[],int nrhs,mxArray *prhs[]));
+#endif
+/*-----------------------------------------------------------------------------------*/ 
+extern Gatefunc C2F(sident);
+extern Gatefunc C2F(sorder);
+extern Gatefunc C2F(findbd);
+extern Gatefunc C2F(intmucomp);
+extern Gatefunc C2F(intricc2);
+extern Gatefunc C2F(inthinf);
+extern Gatefunc C2F(intdhinf);
+extern Gatefunc C2F(intlinmeq);
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(gw_slicot)(void);
+/*-----------------------------------------------------------------------------------*/
+#endif /*  __GW_SLICOT_H__ */
+/*-----------------------------------------------------------------------------------*/
+
index c62e93c..f67a6a1 100644 (file)
@@ -1,17 +1,17 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __GETXMLFILEENCODING_H__\r
-#define __GETXMLFILEENCODING_H__\r
-#include <string.h>\r
-\r
-/**\r
-* Get xml file encoding\r
-* @param filename\r
-* @return a string as UTF-8\r
-*/\r
-char *GetXmlFileEncoding(const char *filename);\r
-\r
-#endif /* __GETXMLFILEENCODING_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __GETXMLFILEENCODING_H__
+#define __GETXMLFILEENCODING_H__
+#include <string.h>
+
+/**
+* Get xml file encoding
+* @param filename
+* @return a string as UTF-8
+*/
+char *GetXmlFileEncoding(const char *filename);
+
+#endif /* __GETXMLFILEENCODING_H__ */
+/*-----------------------------------------------------------------------------------*/
index 7f2fb44..29257ca 100644 (file)
@@ -1,14 +1,14 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2006 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __GW_USER2_H__\r
-#define __GW_USER2_H__\r
-\r
-#include "machine.h"\r
-\r
-int C2F(gw_user2)(void);\r
-\r
-#endif /*__GW_USER2_H__*/\r
-/*-----------------------------------------------------------------------------------*/\r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __GW_USER2_H__
+#define __GW_USER2_H__
+
+#include "machine.h"
+
+int C2F(gw_user2)(void);
+
+#endif /*__GW_USER2_H__*/
+/*-----------------------------------------------------------------------------------*/
+
index dd49d1e..942e821 100644 (file)
@@ -1,71 +1,71 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef __SCILABMODE_H__\r
-#define __SCILABMODE_H__\r
-\r
-#include "machine.h"\r
-\r
-/* standard mode by default is STD mode */\r
-/* jvm , events loop (tcl/tk) , ... */ \r
-\r
-/**\r
-* set STD mode\r
-* @return \r
-*/\r
-BOOL setSTDmode(void);\r
-\r
-/**\r
-* set NWNI mode\r
-* @return \r
-*/\r
-BOOL setNWNImode(void);\r
-\r
-/**\r
-* set NW mode\r
-* @return \r
-*/\r
-BOOL setNWmode(void);\r
-\r
-/**\r
-* is STD mode ?\r
-* @return TRUE or FALSE\r
-*/\r
-BOOL isSTDmode(void);\r
-\r
-/**\r
-* is NW mode ?\r
-* @return TRUE or FALSE\r
-*/\r
-BOOL isNWmode(void);\r
-\r
-/**\r
-* is NWNI mode ?\r
-* @return TRUE or FALSE\r
-*/\r
-BOOL isNWNImode(void);\r
-\r
-/**\r
-* is STD mode ? C2F version (fortran)\r
-* @param ok 0 --> FALSE 1--> TRUE \r
-* @return 1\r
-*/\r
-int C2F(isstdmode)(int *ok);\r
-\r
-/**\r
-* is NW mode ? C2F version (fortran)\r
-* @param ok 0 --> FALSE 1--> TRUE \r
-* @return 1\r
-*/\r
-BOOL C2F(isnwmode)(int *ok);\r
-\r
-/**\r
-* is NWNI mode ? C2F version (fortran)\r
-* @param ok 0 --> FALSE 1--> TRUE \r
-* @return 1\r
-*/\r
-BOOL C2F(isnwnimode)(int *ok);\r
-\r
-#endif /* __SCILABMODE_H__ */\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef __SCILABMODE_H__
+#define __SCILABMODE_H__
+
+#include "machine.h"
+
+/* standard mode by default is STD mode */
+/* jvm , events loop (tcl/tk) , ... */ 
+
+/**
+* set STD mode
+* @return 
+*/
+BOOL setSTDmode(void);
+
+/**
+* set NWNI mode
+* @return 
+*/
+BOOL setNWNImode(void);
+
+/**
+* set NW mode
+* @return 
+*/
+BOOL setNWmode(void);
+
+/**
+* is STD mode ?
+* @return TRUE or FALSE
+*/
+BOOL isSTDmode(void);
+
+/**
+* is NW mode ?
+* @return TRUE or FALSE
+*/
+BOOL isNWmode(void);
+
+/**
+* is NWNI mode ?
+* @return TRUE or FALSE
+*/
+BOOL isNWNImode(void);
+
+/**
+* is STD mode ? C2F version (fortran)
+* @param ok 0 --> FALSE 1--> TRUE 
+* @return 1
+*/
+int C2F(isstdmode)(int *ok);
+
+/**
+* is NW mode ? C2F version (fortran)
+* @param ok 0 --> FALSE 1--> TRUE 
+* @return 1
+*/
+BOOL C2F(isnwmode)(int *ok);
+
+/**
+* is NWNI mode ? C2F version (fortran)
+* @param ok 0 --> FALSE 1--> TRUE 
+* @return 1
+*/
+BOOL C2F(isnwnimode)(int *ok);
+
+#endif /* __SCILABMODE_H__ */
+/*-----------------------------------------------------------------------------------*/ 
index 43eb9be..65fb57a 100644 (file)
@@ -1,30 +1,30 @@
-//------------------------------------\r
-// Allan CORNET INRIA 2007\r
-//------------------------------------\r
-function ret=check_versions(varargin)\r
-  [lhs,rhs]=argn(0);\r
-  ret=%T;\r
-  modules=getmodules();\r
-  szmodules=size(modules);\r
-\r
-  for i=1:1:szmodules(1)\r
-    file_to_check=SCI+'/modules/'+modules(i)+'/VERSION.xml';\r
-    printf('checking : '+modules(i)+'\n');\r
-    if (fileinfo(file_to_check)<>[]) then\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
-        printf('\n Please check : '+file_to_check+'\n\n');\r
-      end\r
-    else\r
-      printf('\n file doesn''t exist : '+file_to_check+'\n\n');\r
-    end\r
-  end\r
-  \r
-endfunction \r
+//------------------------------------
+// Allan CORNET INRIA 2007
+//------------------------------------
+function ret=check_versions(varargin)
+  [lhs,rhs]=argn(0);
+  ret=%T;
+  modules=getmodules();
+  szmodules=size(modules);
+
+  for i=1:1:szmodules(1)
+    file_to_check=SCI+'/modules/'+modules(i)+'/VERSION.xml';
+    printf('checking : '+modules(i)+'\n');
+    if (fileinfo(file_to_check)<>[]) then
+      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;
+        printf('\n Please check : '+file_to_check+'\n\n');
+      end
+    else
+      printf('\n file doesn''t exist : '+file_to_check+'\n\n');
+    end
+  end
+  
+endfunction 
  
\ No newline at end of file
index f24f648..2ed648d 100644 (file)
@@ -1,14 +1,14 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2006 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "machine.h"\r
-#include "stack-c.h"\r
-#include "gw_user2.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
- int C2F(gw_user2)()\r
-{\r
-   return 0;\r
-} \r
-/*-----------------------------------------------------------------------------------*/ \r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include "machine.h"
+#include "stack-c.h"
+#include "gw_user2.h"
+/*-----------------------------------------------------------------------------------*/ 
+ int C2F(gw_user2)()
+{
+   return 0;
+} 
+/*-----------------------------------------------------------------------------------*/ 
+
index 094a4d6..1e8f667 100644 (file)
@@ -1,33 +1,33 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "GetXmlFileEncoding.h"\r
-#include "libxml/xmlreader.h"\r
-#include "MALLOC.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-char *GetXmlFileEncoding(const char *filename)\r
-{\r
-#define DEFAULT_ENCODING "UTF-8"\r
-       char *encoding=NULL;\r
-       xmlDocPtr doc = NULL;\r
-\r
-       /* default */\r
-       encoding=(char *)MALLOC(sizeof(char)*(strlen(DEFAULT_ENCODING)+1));\r
-       strcpy(encoding,DEFAULT_ENCODING);\r
-\r
-       doc = xmlParseFile (filename);\r
-       if (doc) \r
-       {\r
-               if (doc->encoding)\r
-               {\r
-                       if (encoding) {FREE(encoding);encoding=NULL;}\r
-                       encoding=(char *)MALLOC(sizeof(char)*(strlen(doc->encoding)+1));\r
-                       strcpy(encoding,doc->encoding);\r
-               }\r
-       }\r
-\r
-       xmlFreeDoc (doc);\r
-       return encoding;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#include "GetXmlFileEncoding.h"
+#include "libxml/xmlreader.h"
+#include "MALLOC.h"
+/*-----------------------------------------------------------------------------------*/ 
+char *GetXmlFileEncoding(const char *filename)
+{
+#define DEFAULT_ENCODING "UTF-8"
+       char *encoding=NULL;
+       xmlDocPtr doc = NULL;
+
+       /* default */
+       encoding=(char *)MALLOC(sizeof(char)*(strlen(DEFAULT_ENCODING)+1));
+       strcpy(encoding,DEFAULT_ENCODING);
+
+       doc = xmlParseFile (filename);
+       if (doc) 
+       {
+               if (doc->encoding)
+               {
+                       if (encoding) {FREE(encoding);encoding=NULL;}
+                       encoding=(char *)MALLOC(sizeof(char)*(strlen(doc->encoding)+1));
+                       strcpy(encoding,doc->encoding);
+               }
+       }
+
+       xmlFreeDoc (doc);
+       return encoding;
+}
+/*-----------------------------------------------------------------------------------*/ 
index e760ed2..1704bcf 100644 (file)
@@ -1,45 +1,45 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "diary.h"\r
-#include "stack-c.h"\r
-#include "../../fileio/src/c/files.h" /* GetFile */\r
-/*-----------------------------------------------------------------------------------*/\r
-int getdiary(void)\r
-{\r
-       return C2F(iop).wio;\r
-} \r
-/*-----------------------------------------------------------------------------------*/\r
-void C2F(diary)(char *str,int *n)\r
-{\r
-#if defined(_MSC_VER)\r
-       char newline[2]="\r\n";\r
-       int nn=2;\r
-#else\r
-       char newline[1]="\n";\r
-       int nn=1;\r
-#endif\r
-       int u;\r
-\r
-       u=getdiary();\r
-       if ( u != 0 ) \r
-       {\r
-               FILE *fd= GetFile(&u);\r
-               fwrite(str,sizeof(unsigned char),*n,fd);\r
-               fwrite(newline,sizeof(unsigned char),nn,fd);\r
-       }\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-void diary_nnl(char *str,int *n)\r
-{\r
-       int u;\r
-\r
-       u=getdiary();\r
-\r
-       if (u) \r
-       {\r
-               FILE *fd= GetFile(&u);\r
-               fwrite(str,sizeof(unsigned char),*n,fd);\r
-       }\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/*-----------------------------------------------------------------------------------*/
+#include "diary.h"
+#include "stack-c.h"
+#include "../../fileio/src/c/files.h" /* GetFile */
+/*-----------------------------------------------------------------------------------*/
+int getdiary(void)
+{
+       return C2F(iop).wio;
+} 
+/*-----------------------------------------------------------------------------------*/
+void C2F(diary)(char *str,int *n)
+{
+#if defined(_MSC_VER)
+       char newline[2]="\r\n";
+       int nn=2;
+#else
+       char newline[1]="\n";
+       int nn=1;
+#endif
+       int u;
+
+       u=getdiary();
+       if ( u != 0 ) 
+       {
+               FILE *fd= GetFile(&u);
+               fwrite(str,sizeof(unsigned char),*n,fd);
+               fwrite(newline,sizeof(unsigned char),nn,fd);
+       }
+}
+/*-----------------------------------------------------------------------------------*/
+void diary_nnl(char *str,int *n)
+{
+       int u;
+
+       u=getdiary();
+
+       if (u) 
+       {
+               FILE *fd= GetFile(&u);
+               fwrite(str,sizeof(unsigned char),*n,fd);
+       }
+}
+/*-----------------------------------------------------------------------------------*/
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 8d4aab5..5940e40 100644 (file)
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include <string.h>\r
-#include "warningmode.h"\r
-#include "message_scilab.h"\r
-#include "sciprint.h"\r
-#include "stack-def.h" /* C2F(cha1) */\r
-#include "stack-c.h" /* Fin */\r
-#include "MALLOC.h"\r
-#include "../../localization/includes/QueryStringMessage.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifdef BUF\r
-#undef BUF\r
-#endif\r
-#define BUF C2F(cha1).buf\r
-/*-----------------------------------------------------------------------------------*/\r
-extern int C2F(showstack)();\r
-extern int C2F(error)(int *);\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_1(integer *n, integer *ierr);\r
-static int msg_2(integer *n, integer *ierr);\r
-static int msg_3(integer *n, integer *ierr);\r
-static int msg_4(integer *n, integer *ierr);\r
-static int msg_5(integer *n, integer *ierr);\r
-static int msg_6(integer *n, integer *ierr);\r
-static int msg_7(integer *n, integer *ierr);\r
-static int msg_8(integer *n, integer *ierr);\r
-static int msg_9(integer *n, integer *ierr);\r
-static int msg_10(integer *n, integer *ierr);\r
-static int msg_11(integer *n, integer *ierr);\r
-static int msg_12(integer *n, integer *ierr);\r
-static int msg_13(integer *n, integer *ierr);\r
-static int msg_14(integer *n, integer *ierr);\r
-static int msg_15(integer *n, integer *ierr);\r
-static int msg_16(integer *n, integer *ierr);\r
-static int msg_17(integer *n, integer *ierr);\r
-static int msg_18(integer *n, integer *ierr);\r
-static int msg_19(integer *n, integer *ierr);\r
-static int msg_20(integer *n, integer *ierr);\r
-static int msg_21(integer *n, integer *ierr);\r
-static int msg_22(integer *n, integer *ierr);\r
-static int msg_23(integer *n, integer *ierr);\r
-static int msg_24(integer *n, integer *ierr);\r
-static int msg_25(integer *n, integer *ierr);\r
-static int msg_26(integer *n, integer *ierr);\r
-static int msg_27(integer *n, integer *ierr);\r
-static int msg_28(integer *n, integer *ierr);\r
-static int msg_29(integer *n, integer *ierr);\r
-static int msg_30(integer *n, integer *ierr);\r
-static int msg_31(integer *n, integer *ierr);\r
-static int msg_32(integer *n, integer *ierr);\r
-static int msg_33(integer *n, integer *ierr);\r
-static int msg_34(integer *n, integer *ierr);\r
-static int msg_35(integer *n, integer *ierr);\r
-static int msg_36(integer *n, integer *ierr);\r
-static int msg_37(integer *n, integer *ierr);\r
-static int msg_38(integer *n, integer *ierr);\r
-static int msg_39(integer *n, integer *ierr);\r
-static int msg_40(integer *n, integer *ierr);\r
-static int msg_41(integer *n, integer *ierr);\r
-static int msg_42(integer *n, integer *ierr);\r
-static int msg_43(integer *n, integer *ierr);\r
-static int msg_44(integer *n, integer *ierr);\r
-static int msg_45(integer *n, integer *ierr);\r
-static int msg_46(integer *n, integer *ierr);\r
-static int msg_47(integer *n, integer *ierr);\r
-static int msg_48(integer *n, integer *ierr);\r
-static int msg_49(integer *n, integer *ierr);\r
-static int msg_50(integer *n, integer *ierr);\r
-static int msg_51(integer *n, integer *ierr);\r
-static int msg_52(integer *n, integer *ierr);\r
-static int msg_53(integer *n, integer *ierr);\r
-static int msg_54(integer *n, integer *ierr);\r
-static int msg_55(integer *n, integer *ierr);\r
-static int msg_56(integer *n, integer *ierr);\r
-static int msg_57(integer *n, integer *ierr);\r
-static int msg_58(integer *n, integer *ierr);\r
-static int msg_59(integer *n, integer *ierr);\r
-static int msg_60(integer *n, integer *ierr);\r
-static int msg_61(integer *n, integer *ierr);\r
-static int msg_62(integer *n, integer *ierr);\r
-static int msg_63(integer *n, integer *ierr);\r
-static int msg_64(integer *n, integer *ierr);\r
-static int msg_65(integer *n, integer *ierr);\r
-static int msg_66(integer *n, integer *ierr);\r
-static int msg_67(integer *n, integer *ierr);\r
-static int msg_68(integer *n, integer *ierr);\r
-static int msg_69(integer *n, integer *ierr);\r
-static int msg_70(integer *n, integer *ierr);\r
-static int msg_71(integer *n, integer *ierr);\r
-static int msg_72(integer *n, integer *ierr);\r
-static int msg_73(integer *n, integer *ierr);\r
-static int msg_74(integer *n, integer *ierr);\r
-static int msg_75(integer *n, integer *ierr);\r
-static int msg_76(integer *n, integer *ierr);\r
-static int msg_77(integer *n, integer *ierr);\r
-static int msg_78(integer *n, integer *ierr);\r
-static int msg_79(integer *n, integer *ierr);\r
-static int msg_80(integer *n, integer *ierr);\r
-static int msg_81(integer *n, integer *ierr);\r
-static int msg_82(integer *n, integer *ierr);\r
-static int msg_83(integer *n, integer *ierr);\r
-static int msg_84(integer *n, integer *ierr);\r
-static int msg_85(integer *n, integer *ierr);\r
-static int msg_86(integer *n, integer *ierr);\r
-static int msg_87(integer *n, integer *ierr);\r
-static int msg_88(integer *n, integer *ierr);\r
-static int msg_89(integer *n, integer *ierr);\r
-static int msg_90(integer *n, integer *ierr);\r
-static int msg_91(integer *n, integer *ierr);\r
-static int msg_92(integer *n, integer *ierr);\r
-static int msg_93(integer *n, integer *ierr);\r
-static int msg_94(integer *n, integer *ierr);\r
-static int msg_95(integer *n, integer *ierr);\r
-static int msg_96(integer *n, integer *ierr);\r
-static int msg_97(integer *n, integer *ierr);\r
-static int msg_98(integer *n, integer *ierr);\r
-static int msg_99(integer *n, integer *ierr);\r
-static int msg_100(integer *n, integer *ierr);\r
-static int msg_101(integer *n, integer *ierr);\r
-static int msg_102(integer *n, integer *ierr);\r
-static int msg_103(integer *n, integer *ierr);\r
-static int msg_104(integer *n, integer *ierr);\r
-static int msg_105(integer *n, integer *ierr);\r
-static int msg_106(integer *n, integer *ierr);\r
-static int msg_107(integer *n, integer *ierr);\r
-static int msg_108(integer *n, integer *ierr);\r
-static int msg_109(integer *n, integer *ierr);\r
-static int msg_110(integer *n, integer *ierr);\r
-static int msg_default(integer *n, integer *ierr);\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(msgs)(integer *n, integer *ierr)\r
-{\r
-       if ( getWarningMode() )\r
-       {\r
-               switch (*n)\r
-               {\r
-               case 1:\r
-                       msg_1(n,ierr);\r
-                       break;\r
-               case 2:\r
-                       msg_2(n,ierr);\r
-                       break;\r
-               case 3:\r
-                       msg_3(n,ierr);\r
-                       break;\r
-               case 4:\r
-                       msg_4(n,ierr);\r
-                       break;\r
-               case 5:\r
-                       msg_5(n,ierr);\r
-                       break;\r
-               case 6:\r
-                       msg_6(n,ierr);\r
-                       break;\r
-               case 7:\r
-                       msg_7(n,ierr);\r
-                       break;\r
-               case 8:\r
-                       msg_8(n,ierr);\r
-                       break;\r
-               case 9:\r
-                       msg_9(n,ierr);\r
-                       break;\r
-               case 10:\r
-                       msg_10(n,ierr);\r
-                       break;\r
-               case 11:\r
-                       msg_11(n,ierr);\r
-                       break;\r
-               case 12:\r
-                       msg_12(n,ierr);\r
-                       break;\r
-               case 13:\r
-                       msg_13(n,ierr);\r
-                       break;\r
-               case 14:\r
-                       msg_14(n,ierr);\r
-                       break;\r
-               case 15:\r
-                       msg_15(n,ierr);\r
-                       break;\r
-               case 16:\r
-                       msg_16(n,ierr);\r
-                       break;\r
-               case 17:\r
-                       msg_17(n,ierr);\r
-                       break;\r
-               case 18:\r
-                       msg_18(n,ierr);\r
-                       break;\r
-               case 19:\r
-                       msg_19(n,ierr);\r
-                       break;\r
-               case 20:\r
-                       msg_20(n,ierr);\r
-                       break;\r
-               case 21:\r
-                       msg_21(n,ierr);\r
-                       break;\r
-               case 22:\r
-                       msg_22(n,ierr);\r
-                       break;\r
-               case 23:\r
-                       msg_23(n,ierr);\r
-                       break;\r
-               case 24:\r
-                       msg_24(n,ierr);\r
-                       break;\r
-               case 25:\r
-                       msg_25(n,ierr);\r
-                       break;\r
-               case 26:\r
-                       msg_26(n,ierr);\r
-                       break;\r
-               case 27:\r
-                       msg_27(n,ierr);\r
-                       break;\r
-               case 28:\r
-                       msg_28(n,ierr);\r
-                       break;\r
-               case 29:\r
-                       msg_29(n,ierr);\r
-                       break;\r
-               case 30:\r
-                       msg_30(n,ierr);\r
-                       break;\r
-               case 31:\r
-                       msg_31(n,ierr);\r
-                       break;\r
-               case 32:\r
-                       msg_32(n,ierr);\r
-                       break;\r
-               case 33:\r
-                       msg_33(n,ierr);\r
-                       break;\r
-               case 34:\r
-                       msg_34(n,ierr);\r
-                       break;\r
-               case 35:\r
-                       msg_35(n,ierr);\r
-                       break;\r
-               case 36:\r
-                       msg_36(n,ierr);\r
-                       break;\r
-               case 37:\r
-                       msg_37(n,ierr);\r
-                       break;\r
-               case 38:\r
-                       msg_38(n,ierr);\r
-                       break;\r
-               case 39:\r
-                       msg_39(n,ierr);\r
-                       break;\r
-               case 40:\r
-                       msg_40(n,ierr);\r
-                       break;\r
-               case 41:\r
-                       msg_41(n,ierr);\r
-                       break;\r
-               case 42:\r
-                       msg_42(n,ierr);\r
-                       break;\r
-               case 43:\r
-                       msg_43(n,ierr);\r
-                       break;\r
-               case 44:\r
-                       msg_44(n,ierr);\r
-                       break;\r
-               case 45:\r
-                       msg_45(n,ierr);\r
-                       break;\r
-               case 46:\r
-                       msg_46(n,ierr);\r
-                       break;\r
-               case 47:\r
-                       msg_47(n,ierr);\r
-                       break;\r
-               case 48:\r
-                       msg_48(n,ierr);\r
-                       break;\r
-               case 49:\r
-                       msg_49(n,ierr);\r
-                       break;\r
-               case 50:\r
-                       msg_50(n,ierr);\r
-                       break;\r
-               case 51:\r
-                       msg_51(n,ierr);\r
-                       break;\r
-               case 52:\r
-                       msg_52(n,ierr);\r
-                       break;\r
-               case 53:\r
-                       msg_53(n,ierr);\r
-                       break;\r
-               case 54:\r
-                       msg_54(n,ierr);\r
-                       break;\r
-               case 55:\r
-                       msg_55(n,ierr);\r
-                       break;\r
-               case 56:\r
-                       msg_56(n,ierr);\r
-                       break;\r
-               case 57:\r
-                       msg_57(n,ierr);\r
-                       break;\r
-               case 58:\r
-                       msg_58(n,ierr);\r
-                       break;\r
-               case 59:\r
-                       msg_59(n,ierr);\r
-                       break;\r
-               case 60:\r
-                       msg_60(n,ierr);\r
-                       break;\r
-               case 61:\r
-                       msg_61(n,ierr);\r
-                       break;\r
-               case 62:\r
-                       msg_62(n,ierr);\r
-                       break;\r
-               case 63:\r
-                       msg_63(n,ierr);\r
-                       break;\r
-               case 64:\r
-                       msg_64(n,ierr);\r
-                       break;\r
-               case 65:\r
-                       msg_65(n,ierr);\r
-                       break;\r
-               case 66:\r
-                       msg_66(n,ierr);\r
-                       break;\r
-               case 67:\r
-                       msg_67(n,ierr);\r
-                       break;\r
-               case 68:\r
-                       msg_68(n,ierr);\r
-                       break;\r
-               case 69:\r
-                       msg_69(n,ierr);\r
-                       break;\r
-               case 70:\r
-                       msg_70(n,ierr);\r
-                       break;\r
-               case 71:\r
-                       msg_71(n,ierr);\r
-                       break;\r
-               case 72:\r
-                       msg_72(n,ierr);\r
-                       break;\r
-               case 73:\r
-                       msg_73(n,ierr);\r
-                       break;\r
-               case 74:\r
-                       msg_74(n,ierr);\r
-                       break;\r
-               case 75:\r
-                       msg_75(n,ierr);\r
-                       break;\r
-               case 76:\r
-                       msg_76(n,ierr);\r
-                       break;\r
-               case 77:\r
-                       msg_77(n,ierr);\r
-                       break;\r
-               case 78:\r
-                       msg_78(n,ierr);\r
-                       break;\r
-               case 79:\r
-                       msg_79(n,ierr);\r
-                       break;\r
-               case 80:\r
-                       msg_80(n,ierr);\r
-                       break;\r
-               case 81:\r
-                       msg_81(n,ierr);\r
-                       break;\r
-               case 82:\r
-                       msg_82(n,ierr);\r
-                       break;\r
-               case 83:\r
-                       msg_83(n,ierr);\r
-                       break;\r
-               case 84:\r
-                       msg_84(n,ierr);\r
-                       break;\r
-               case 85:\r
-                       msg_85(n,ierr);\r
-                       break;\r
-               case 86:\r
-                       msg_86(n,ierr);\r
-                       break;\r
-               case 87:\r
-                       msg_87(n,ierr);\r
-                       break;\r
-               case 88:\r
-                       msg_88(n,ierr);\r
-                       break;\r
-               case 89:\r
-                       msg_89(n,ierr);\r
-                       break;\r
-               case 90:\r
-                       msg_90(n,ierr);\r
-                       break;\r
-               case 91:\r
-                       msg_91(n,ierr);\r
-                       break;\r
-               case 92:\r
-                       msg_92(n,ierr);\r
-                       break;\r
-               case 93:\r
-                       msg_93(n,ierr);\r
-                       break;\r
-               case 94:\r
-                       msg_94(n,ierr);\r
-                       break;\r
-               case 95:\r
-                       msg_95(n,ierr);\r
-                       break;\r
-               case 96:\r
-                       msg_96(n,ierr);\r
-                       break;\r
-               case 97:\r
-                       msg_97(n,ierr);\r
-                       break;\r
-               case 98:\r
-                       msg_98(n,ierr);\r
-                       break;\r
-               case 99:\r
-                       msg_99(n,ierr);\r
-                       break;\r
-               case 100:\r
-                       msg_100(n,ierr);\r
-                       break;\r
-               case 101:\r
-                       msg_101(n,ierr);\r
-                       break;\r
-               case 102:\r
-                       msg_102(n,ierr);\r
-                       break;\r
-               case 103:\r
-                       msg_103(n,ierr);\r
-                       break;\r
-               case 104:\r
-                       msg_104(n,ierr);\r
-                       break;\r
-               case 105:\r
-                       msg_105(n,ierr);\r
-                       break;\r
-               case 106:\r
-                       msg_106(n,ierr);\r
-                       break;\r
-               case 107:\r
-                       msg_107(n,ierr);\r
-                       break;\r
-               case 108:\r
-                       msg_108(n,ierr);\r
-                       break;\r
-               case 109:\r
-                       msg_109(n,ierr);\r
-                       break;\r
-               case 110:\r
-                       msg_110(n,ierr);\r
-                       break;\r
-               default:\r
-                       msg_default(n,ierr);\r
-                       break;\r
-               }\r
-       }\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_1(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_1");\r
-       message_scilab("core_message_2");\r
-       if (*ierr > 0)\r
-       {\r
-               message_scilab("core_message_3",*ierr);\r
-       }\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_2(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_1");\r
-       message_scilab("core_message_4");\r
-\r
-       if (*ierr > 0)\r
-       {\r
-               message_scilab("core_message_5",*ierr);\r
-       }\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_3(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_1");\r
-       message_scilab("core_message_4");\r
-       if (*ierr > 0)\r
-       {\r
-               message_scilab("core_message_6",*ierr);\r
-       }\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_4(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_7");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_5(integer *n, integer *ierr)\r
-{\r
-       char localbuf[14];\r
-       strncpy(localbuf,BUF,13);\r
-       localbuf[13]='\0';\r
-       message_scilab("core_message_1");\r
-       message_scilab("core_message_8",localbuf);\r
-\r
-       if (*ierr > 0)\r
-       {\r
-               message_scilab("core_message_9");\r
-       }\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_6(integer *n, integer *ierr)\r
-{\r
-       char localbuf[14];\r
-       strncpy(localbuf,BUF,13);\r
-       localbuf[13]='\0';\r
-       message_scilab("core_message_1");\r
-       message_scilab("core_message_10");\r
-       message_scilab("core_message_11",localbuf);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_7(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_12");\r
-       C2F(showstack)();\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_8(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_13");\r
-       C2F(showstack)();\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_9(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_14",ierr);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_10(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_11(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_15");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_12(integer *n, integer *ierr)\r
-{\r
-       char localbuf[16];\r
-       strncpy(localbuf,BUF,15);\r
-       message_scilab("core_message_16",localbuf);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_13(integer *n, integer *ierr)\r
-{\r
-       char localbuf[16];\r
-       strncpy(localbuf,BUF,15);\r
-\r
-       message_scilab("core_message_17",localbuf);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_14(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_18");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_15(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_19");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_16(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_20");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_17(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_21");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_18(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_22");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_19(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_23");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_20(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_24");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_21(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_25");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_22(integer *n, integer *ierr)\r
-{\r
-       char localbuf[5];\r
-       strncpy(localbuf,BUF,4);\r
-       message_scilab("core_message_26",localbuf);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_23(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_27");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_24(integer *n, integer *ierr)\r
-{\r
-       char *localbuf=NULL;\r
-       if (*ierr >0)\r
-       {\r
-               localbuf=(char*)MALLOC(sizeof(char)*(*ierr +1));\r
-               strncpy(localbuf,BUF,*ierr);\r
-               message_scilab("core_message_28",localbuf);\r
-               if (localbuf) {FREE(localbuf);localbuf=NULL;}\r
-       }\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_25(integer *n, integer *ierr)\r
-{\r
-       char *localbuf=NULL;\r
-       if (*ierr >0)\r
-       {\r
-               localbuf=(char*)MALLOC(sizeof(char)*(*ierr +1));\r
-               strncpy(localbuf,BUF,*ierr);\r
-               message_scilab("core_message_29",localbuf);\r
-               if (localbuf) {FREE(localbuf);localbuf=NULL;}\r
-       }\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_26(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_30");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_27(integer *n, integer *ierr)\r
-{\r
-       char localbuf[nlgh+1];\r
-       strncpy(localbuf,BUF,nlgh-1);\r
-       localbuf[nlgh-1]='\0';\r
-       message_scilab("core_message_31",localbuf);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_28(integer *n, integer *ierr)\r
-{\r
-       char localbuf[4];\r
-       localbuf[0]=BUF[10];\r
-       localbuf[1]=BUF[11];\r
-       localbuf[2]=BUF[12];\r
-       localbuf[3]='\0';\r
-       message_scilab("core_message_32",localbuf);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_29(integer *n, integer *ierr)\r
-{\r
-       char localbuf[nlgh+1];\r
-       strncpy(localbuf,BUF,nlgh);\r
-       message_scilab("core_message_33",localbuf);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_30(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_34");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_31(integer *n, integer *ierr)\r
-{\r
-       int cerr=-1;\r
-       message_scilab("core_message_35");\r
-       C2F(error)(&cerr);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_32(integer *n, integer *ierr)\r
-{\r
-       char localbuf1[6];\r
-       char localbuf2[nlgh];\r
-       int l=nlgh+1;\r
-\r
-       strncpy(localbuf1,&BUF[nlgh+1],5);\r
-       localbuf1[5]='\0';\r
-       do \r
-       {\r
-               --l;\r
-       } while(BUF[l-1]==' ');\r
-       \r
-       strncpy(localbuf2,BUF,l);\r
-       localbuf2[l]='\0';\r
-       message_scilab("core_message_36",localbuf1,localbuf2);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_33(integer *n, integer *ierr)\r
-{\r
-       char *localbuf=NULL;\r
-       integer nreal=0;\r
-       integer c__1 = 1;\r
-       nreal = C2F(iop).lpt[3] - C2F(iop).lpt[2];\r
-       C2F(cvstr)(&nreal, &C2F(iop).lin[C2F(iop).lpt[2] - 2], BUF, &c__1, (long int)4096);\r
-\r
-       localbuf=(char*)MALLOC(sizeof(char)*(nreal +1));\r
-       strncpy(localbuf,BUF,nreal);\r
-       message_scilab("core_message_1");\r
-       message_scilab("core_message_37",localbuf);\r
-       localbuf[nlgh]='\0';\r
-       message_scilab("core_message_38",localbuf);\r
-       if (localbuf) {FREE(localbuf);localbuf=NULL;}\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_34(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_39");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_35(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_40");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_36(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_41",*ierr);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_37(integer *n, integer *ierr)\r
-{\r
-       char localbuf1[4];\r
-       char localbuf2[14];\r
-\r
-       strncpy(localbuf1,BUF,3);\r
-       strncpy(localbuf2,&BUF[4],13);\r
-       message_scilab("core_message_42",localbuf1,localbuf2);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_38(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_43");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_39(integer *n, integer *ierr)\r
-{\r
-       char localbuf1[10];\r
-       char localbuf2[10];\r
-\r
-       strncpy(localbuf1,BUF,9);\r
-       strncpy(localbuf2,&BUF[10],9);\r
-\r
-       message_scilab("core_message_44",localbuf1,localbuf2);\r
-\r
-       strncpy(localbuf1,&BUF[20],9);\r
-       strncpy(localbuf2,&BUF[30],9);\r
-       message_scilab("core_message_45",localbuf1,localbuf2);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_40(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_46");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_41(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_47");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_42(integer *n, integer *ierr)\r
-{\r
-       integer p=0;\r
-       integer lk=0;\r
-       integer k=0;\r
-       integer km=0;\r
-       integer c__1=1;\r
-       char line[140];\r
-       char *lMSG=QueryStringMessage("core_message_48");\r
-\r
-       C2F(cvname)(&C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6], line, &c__1, (long int)24);\r
-       line[24]='\0';\r
-       \r
-       if (lMSG)\r
-       {\r
-               sciprint(lMSG,line);\r
-               sciprint("\n");\r
-       }\r
-       if (lMSG) {FREE(lMSG);lMSG=NULL;}\r
-\r
-       p = C2F(recu).pt + 1;\r
-\r
-L42_1:\r
-       --p;\r
-       if (p == 0) goto end_msg_42;\r
-       \r
-       if (C2F(recu).rstk[p - 1] != 502) goto L42_1;\r
-       k = C2F(iop).lpt[0] - 19;\r
-\r
-       /* recherche du nom de la macro correspondant a ce niveau */\r
-       lk = C2F(iop).lin[k + 5] / 2 + 1;\r
-       if (lk <= C2F(vstk).lstk[C2F(vstk).top]) goto end_msg_42;\r
-       km = C2F(iop).lin[k + 4] - 1;\r
-L42_2:\r
-       ++km;\r
-       if (km > C2F(vstk).isiz) goto end_msg_42;\r
-       if (C2F(vstk).lstk[km - 1] != lk) goto L42_2;\r
-\r
-       C2F(cvname)(&C2F(vstk).idstk[km * 6 - 6], line, &c__1, (long int)24);\r
-\r
-       message_scilab("core_message_49",line);\r
-end_msg_42:\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_43(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_50");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_44(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_51");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_45(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_46(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_47(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_48(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_49(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_50(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_52");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_51(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_53");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_52(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_54");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_53(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_55");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_54(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_55(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_56(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_57(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_58(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_59(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_60(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_56");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_61(integer *n, integer *ierr)\r
-{\r
-       char line[140];\r
-       integer c__1=1;\r
-       C2F(cvname)(&C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6], line, &c__1,24);\r
-       message_scilab("core_message_1");\r
-       message_scilab("core_message_57",line);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_62(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_58");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_63(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_59");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_64(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_60");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_65(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_66(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_67(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_68(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_69(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_70(integer *n, integer *ierr)\r
-{\r
-       char localbuf[10];\r
-       strncpy(localbuf,BUF,10);\r
-       message_scilab("core_message_61",localbuf);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_71(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_62");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_72(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_63");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_73(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_64");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_74(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_65");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_75(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_66");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_76(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_67");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_77(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_68");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_78(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_69");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_79(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_80(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_70");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_81(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_71");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_82(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_72");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_83(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_73");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_84(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_74");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_85(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_75");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_86(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_87(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_88(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_89(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_90(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_76");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_91(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_77");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_92(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_93(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_94(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_95(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_96(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_97(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_98(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_99(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_100(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_78");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_101(integer *n, integer *ierr)\r
-{\r
-       integer c__1=1;\r
-       int i=0;\r
-       char line[140];\r
-\r
-       C2F(cvname)(&C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6], line, &c__1, (long int)24);\r
-\r
-       for (i=0;i<(int)strlen(line);i++)\r
-       {\r
-               if (line[i]==' ') line[i]='\0';\r
-               break;\r
-       }\r
-\r
-       message_scilab("core_message_79",line);\r
-       message_scilab("core_message_80");\r
-       C2F(showstack)();\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_102(integer *n, integer *ierr)\r
-{\r
-       integer c__1=1;\r
-       int i=0;\r
-       char line[140];\r
-\r
-       C2F(cvname)(&C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6], line, &c__1, (long int)24);\r
-\r
-       for (i=0;i<(int)strlen(line);i++)\r
-       {\r
-               if (line[i]==' ') line[i]='\0';\r
-               break;\r
-       }\r
-\r
-       message_scilab("core_message_81",line);\r
-       message_scilab("core_message_82");\r
-\r
-       C2F(showstack)();\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_103(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_83");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_104(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_84");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_105(integer *n, integer *ierr)\r
-{\r
-       char *localbuf=NULL;\r
-       localbuf=(char*)MALLOC(sizeof(char)*(*ierr +1));\r
-       strncpy(localbuf,BUF,*ierr);\r
-       message_scilab("core_message_85",localbuf);\r
-       if (localbuf) {FREE(localbuf);localbuf=NULL;}\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_106(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_86");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_107(integer *n, integer *ierr)\r
-{\r
-       message_scilab("core_message_87");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_108(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_109(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_110(integer *n, integer *ierr)\r
-{\r
-       sciprint(" \n");\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-static int msg_default(integer *n, integer *ierr)\r
-{\r
-       char *localbuf=NULL;\r
-       int len=strlen(BUF);\r
-       int i=0;\r
-       localbuf=(char*)MALLOC(sizeof(char)*(len+1));\r
-       strncpy(localbuf,BUF,len);\r
-       sciprint(" Warning: \n");\r
-       for (i=0;i<len;i++)\r
-       {\r
-               if (localbuf[i] == ' ')\r
-               {\r
-                       localbuf[i]='\0';\r
-                       break;\r
-               }\r
-       }\r
-       sciprint("%s\n",localbuf);\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#include <string.h>
+#include "warningmode.h"
+#include "message_scilab.h"
+#include "sciprint.h"
+#include "stack-def.h" /* C2F(cha1) */
+#include "stack-c.h" /* Fin */
+#include "MALLOC.h"
+#include "../../localization/includes/QueryStringMessage.h"
+/*-----------------------------------------------------------------------------------*/
+#ifdef BUF
+#undef BUF
+#endif
+#define BUF C2F(cha1).buf
+/*-----------------------------------------------------------------------------------*/
+extern int C2F(showstack)();
+extern int C2F(error)(int *);
+/*-----------------------------------------------------------------------------------*/
+static int msg_1(integer *n, integer *ierr);
+static int msg_2(integer *n, integer *ierr);
+static int msg_3(integer *n, integer *ierr);
+static int msg_4(integer *n, integer *ierr);
+static int msg_5(integer *n, integer *ierr);
+static int msg_6(integer *n, integer *ierr);
+static int msg_7(integer *n, integer *ierr);
+static int msg_8(integer *n, integer *ierr);
+static int msg_9(integer *n, integer *ierr);
+static int msg_10(integer *n, integer *ierr);
+static int msg_11(integer *n, integer *ierr);
+static int msg_12(integer *n, integer *ierr);
+static int msg_13(integer *n, integer *ierr);
+static int msg_14(integer *n, integer *ierr);
+static int msg_15(integer *n, integer *ierr);
+static int msg_16(integer *n, integer *ierr);
+static int msg_17(integer *n, integer *ierr);
+static int msg_18(integer *n, integer *ierr);
+static int msg_19(integer *n, integer *ierr);
+static int msg_20(integer *n, integer *ierr);
+static int msg_21(integer *n, integer *ierr);
+static int msg_22(integer *n, integer *ierr);
+static int msg_23(integer *n, integer *ierr);
+static int msg_24(integer *n, integer *ierr);
+static int msg_25(integer *n, integer *ierr);
+static int msg_26(integer *n, integer *ierr);
+static int msg_27(integer *n, integer *ierr);
+static int msg_28(integer *n, integer *ierr);
+static int msg_29(integer *n, integer *ierr);
+static int msg_30(integer *n, integer *ierr);
+static int msg_31(integer *n, integer *ierr);
+static int msg_32(integer *n, integer *ierr);
+static int msg_33(integer *n, integer *ierr);
+static int msg_34(integer *n, integer *ierr);
+static int msg_35(integer *n, integer *ierr);
+static int msg_36(integer *n, integer *ierr);
+static int msg_37(integer *n, integer *ierr);
+static int msg_38(integer *n, integer *ierr);
+static int msg_39(integer *n, integer *ierr);
+static int msg_40(integer *n, integer *ierr);
+static int msg_41(integer *n, integer *ierr);
+static int msg_42(integer *n, integer *ierr);
+static int msg_43(integer *n, integer *ierr);
+static int msg_44(integer *n, integer *ierr);
+static int msg_45(integer *n, integer *ierr);
+static int msg_46(integer *n, integer *ierr);
+static int msg_47(integer *n, integer *ierr);
+static int msg_48(integer *n, integer *ierr);
+static int msg_49(integer *n, integer *ierr);
+static int msg_50(integer *n, integer *ierr);
+static int msg_51(integer *n, integer *ierr);
+static int msg_52(integer *n, integer *ierr);
+static int msg_53(integer *n, integer *ierr);
+static int msg_54(integer *n, integer *ierr);
+static int msg_55(integer *n, integer *ierr);
+static int msg_56(integer *n, integer *ierr);
+static int msg_57(integer *n, integer *ierr);
+static int msg_58(integer *n, integer *ierr);
+static int msg_59(integer *n, integer *ierr);
+static int msg_60(integer *n, integer *ierr);
+static int msg_61(integer *n, integer *ierr);
+static int msg_62(integer *n, integer *ierr);
+static int msg_63(integer *n, integer *ierr);
+static int msg_64(integer *n, integer *ierr);
+static int msg_65(integer *n, integer *ierr);
+static int msg_66(integer *n, integer *ierr);
+static int msg_67(integer *n, integer *ierr);
+static int msg_68(integer *n, integer *ierr);
+static int msg_69(integer *n, integer *ierr);
+static int msg_70(integer *n, integer *ierr);
+static int msg_71(integer *n, integer *ierr);
+static int msg_72(integer *n, integer *ierr);
+static int msg_73(integer *n, integer *ierr);
+static int msg_74(integer *n, integer *ierr);
+static int msg_75(integer *n, integer *ierr);
+static int msg_76(integer *n, integer *ierr);
+static int msg_77(integer *n, integer *ierr);
+static int msg_78(integer *n, integer *ierr);
+static int msg_79(integer *n, integer *ierr);
+static int msg_80(integer *n, integer *ierr);
+static int msg_81(integer *n, integer *ierr);
+static int msg_82(integer *n, integer *ierr);
+static int msg_83(integer *n, integer *ierr);
+static int msg_84(integer *n, integer *ierr);
+static int msg_85(integer *n, integer *ierr);
+static int msg_86(integer *n, integer *ierr);
+static int msg_87(integer *n, integer *ierr);
+static int msg_88(integer *n, integer *ierr);
+static int msg_89(integer *n, integer *ierr);
+static int msg_90(integer *n, integer *ierr);
+static int msg_91(integer *n, integer *ierr);
+static int msg_92(integer *n, integer *ierr);
+static int msg_93(integer *n, integer *ierr);
+static int msg_94(integer *n, integer *ierr);
+static int msg_95(integer *n, integer *ierr);
+static int msg_96(integer *n, integer *ierr);
+static int msg_97(integer *n, integer *ierr);
+static int msg_98(integer *n, integer *ierr);
+static int msg_99(integer *n, integer *ierr);
+static int msg_100(integer *n, integer *ierr);
+static int msg_101(integer *n, integer *ierr);
+static int msg_102(integer *n, integer *ierr);
+static int msg_103(integer *n, integer *ierr);
+static int msg_104(integer *n, integer *ierr);
+static int msg_105(integer *n, integer *ierr);
+static int msg_106(integer *n, integer *ierr);
+static int msg_107(integer *n, integer *ierr);
+static int msg_108(integer *n, integer *ierr);
+static int msg_109(integer *n, integer *ierr);
+static int msg_110(integer *n, integer *ierr);
+static int msg_default(integer *n, integer *ierr);
+/*-----------------------------------------------------------------------------------*/
+int C2F(msgs)(integer *n, integer *ierr)
+{
+       if ( getWarningMode() )
+       {
+               switch (*n)
+               {
+               case 1:
+                       msg_1(n,ierr);
+                       break;
+               case 2:
+                       msg_2(n,ierr);
+                       break;
+               case 3:
+                       msg_3(n,ierr);
+                       break;
+               case 4:
+                       msg_4(n,ierr);
+                       break;
+               case 5:
+                       msg_5(n,ierr);
+                       break;
+               case 6:
+                       msg_6(n,ierr);
+                       break;
+               case 7:
+                       msg_7(n,ierr);
+                       break;
+               case 8:
+                       msg_8(n,ierr);
+                       break;
+               case 9:
+                       msg_9(n,ierr);
+                       break;
+               case 10:
+                       msg_10(n,ierr);
+                       break;
+               case 11:
+                       msg_11(n,ierr);
+                       break;
+               case 12:
+                       msg_12(n,ierr);
+                       break;
+               case 13:
+                       msg_13(n,ierr);
+                       break;
+               case 14:
+                       msg_14(n,ierr);
+                       break;
+               case 15:
+                       msg_15(n,ierr);
+                       break;
+               case 16:
+                       msg_16(n,ierr);
+                       break;
+               case 17:
+                       msg_17(n,ierr);
+                       break;
+               case 18:
+                       msg_18(n,ierr);
+                       break;
+               case 19:
+                       msg_19(n,ierr);
+                       break;
+               case 20:
+                       msg_20(n,ierr);
+                       break;
+               case 21:
+                       msg_21(n,ierr);
+                       break;
+               case 22:
+                       msg_22(n,ierr);
+                       break;
+               case 23:
+                       msg_23(n,ierr);
+                       break;
+               case 24:
+                       msg_24(n,ierr);
+                       break;
+               case 25:
+                       msg_25(n,ierr);
+                       break;
+               case 26:
+                       msg_26(n,ierr);
+                       break;
+               case 27:
+                       msg_27(n,ierr);
+                       break;
+               case 28:
+                       msg_28(n,ierr);
+                       break;
+               case 29:
+                       msg_29(n,ierr);
+                       break;
+               case 30:
+                       msg_30(n,ierr);
+                       break;
+               case 31:
+                       msg_31(n,ierr);
+                       break;
+               case 32:
+                       msg_32(n,ierr);
+                       break;
+               case 33:
+                       msg_33(n,ierr);
+                       break;
+               case 34:
+                       msg_34(n,ierr);
+                       break;
+               case 35:
+                       msg_35(n,ierr);
+                       break;
+               case 36:
+                       msg_36(n,ierr);
+                       break;
+               case 37:
+                       msg_37(n,ierr);
+                       break;
+               case 38:
+                       msg_38(n,ierr);
+                       break;
+               case 39:
+                       msg_39(n,ierr);
+                       break;
+               case 40:
+                       msg_40(n,ierr);
+                       break;
+               case 41:
+                       msg_41(n,ierr);
+                       break;
+               case 42:
+                       msg_42(n,ierr);
+                       break;
+               case 43:
+                       msg_43(n,ierr);
+                       break;
+               case 44:
+                       msg_44(n,ierr);
+                       break;
+               case 45:
+                       msg_45(n,ierr);
+                       break;
+               case 46:
+                       msg_46(n,ierr);
+                       break;
+               case 47:
+                       msg_47(n,ierr);
+                       break;
+               case 48:
+                       msg_48(n,ierr);
+                       break;
+               case 49:
+                       msg_49(n,ierr);
+                       break;
+               case 50:
+                       msg_50(n,ierr);
+                       break;
+               case 51:
+                       msg_51(n,ierr);
+                       break;
+               case 52:
+                       msg_52(n,ierr);
+                       break;
+               case 53:
+                       msg_53(n,ierr);
+                       break;
+               case 54:
+                       msg_54(n,ierr);
+                       break;
+               case 55:
+                       msg_55(n,ierr);
+                       break;
+               case 56:
+                       msg_56(n,ierr);
+                       break;
+               case 57:
+                       msg_57(n,ierr);
+                       break;
+               case 58:
+                       msg_58(n,ierr);
+                       break;
+               case 59:
+                       msg_59(n,ierr);
+                       break;
+               case 60:
+                       msg_60(n,ierr);
+                       break;
+               case 61:
+                       msg_61(n,ierr);
+                       break;
+               case 62:
+                       msg_62(n,ierr);
+                       break;
+               case 63:
+                       msg_63(n,ierr);
+                       break;
+               case 64:
+                       msg_64(n,ierr);
+                       break;
+               case 65:
+                       msg_65(n,ierr);
+                       break;
+               case 66:
+                       msg_66(n,ierr);
+                       break;
+               case 67:
+                       msg_67(n,ierr);
+                       break;
+               case 68:
+                       msg_68(n,ierr);
+                       break;
+               case 69:
+                       msg_69(n,ierr);
+                       break;
+               case 70:
+                       msg_70(n,ierr);
+                       break;
+               case 71:
+                       msg_71(n,ierr);
+                       break;
+               case 72:
+                       msg_72(n,ierr);
+                       break;
+               case 73:
+                       msg_73(n,ierr);
+                       break;
+               case 74:
+                       msg_74(n,ierr);
+                       break;
+               case 75:
+                       msg_75(n,ierr);
+                       break;
+               case 76:
+                       msg_76(n,ierr);
+                       break;
+               case 77:
+                       msg_77(n,ierr);
+                       break;
+               case 78:
+                       msg_78(n,ierr);
+                       break;
+               case 79:
+                       msg_79(n,ierr);
+                       break;
+               case 80:
+                       msg_80(n,ierr);
+                       break;
+               case 81:
+                       msg_81(n,ierr);
+                       break;
+               case 82:
+                       msg_82(n,ierr);
+                       break;
+               case 83:
+                       msg_83(n,ierr);
+                       break;
+               case 84:
+                       msg_84(n,ierr);
+                       break;
+               case 85:
+                       msg_85(n,ierr);
+                       break;
+               case 86:
+                       msg_86(n,ierr);
+                       break;
+               case 87:
+                       msg_87(n,ierr);
+                       break;
+               case 88:
+                       msg_88(n,ierr);
+                       break;
+               case 89:
+                       msg_89(n,ierr);
+                       break;
+               case 90:
+                       msg_90(n,ierr);
+                       break;
+               case 91:
+                       msg_91(n,ierr);
+                       break;
+               case 92:
+                       msg_92(n,ierr);
+                       break;
+               case 93:
+                       msg_93(n,ierr);
+                       break;
+               case 94:
+                       msg_94(n,ierr);
+                       break;
+               case 95:
+                       msg_95(n,ierr);
+                       break;
+               case 96:
+                       msg_96(n,ierr);
+                       break;
+               case 97:
+                       msg_97(n,ierr);
+                       break;
+               case 98:
+                       msg_98(n,ierr);
+                       break;
+               case 99:
+                       msg_99(n,ierr);
+                       break;
+               case 100:
+                       msg_100(n,ierr);
+                       break;
+               case 101:
+                       msg_101(n,ierr);
+                       break;
+               case 102:
+                       msg_102(n,ierr);
+                       break;
+               case 103:
+                       msg_103(n,ierr);
+                       break;
+               case 104:
+                       msg_104(n,ierr);
+                       break;
+               case 105:
+                       msg_105(n,ierr);
+                       break;
+               case 106:
+                       msg_106(n,ierr);
+                       break;
+               case 107:
+                       msg_107(n,ierr);
+                       break;
+               case 108:
+                       msg_108(n,ierr);
+                       break;
+               case 109:
+                       msg_109(n,ierr);
+                       break;
+               case 110:
+                       msg_110(n,ierr);
+                       break;
+               default:
+                       msg_default(n,ierr);
+                       break;
+               }
+       }
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_1(integer *n, integer *ierr)
+{
+       message_scilab("core_message_1");
+       message_scilab("core_message_2");
+       if (*ierr > 0)
+       {
+               message_scilab("core_message_3",*ierr);
+       }
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_2(integer *n, integer *ierr)
+{
+       message_scilab("core_message_1");
+       message_scilab("core_message_4");
+
+       if (*ierr > 0)
+       {
+               message_scilab("core_message_5",*ierr);
+       }
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_3(integer *n, integer *ierr)
+{
+       message_scilab("core_message_1");
+       message_scilab("core_message_4");
+       if (*ierr > 0)
+       {
+               message_scilab("core_message_6",*ierr);
+       }
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_4(integer *n, integer *ierr)
+{
+       message_scilab("core_message_7");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_5(integer *n, integer *ierr)
+{
+       char localbuf[14];
+       strncpy(localbuf,BUF,13);
+       localbuf[13]='\0';
+       message_scilab("core_message_1");
+       message_scilab("core_message_8",localbuf);
+
+       if (*ierr > 0)
+       {
+               message_scilab("core_message_9");
+       }
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_6(integer *n, integer *ierr)
+{
+       char localbuf[14];
+       strncpy(localbuf,BUF,13);
+       localbuf[13]='\0';
+       message_scilab("core_message_1");
+       message_scilab("core_message_10");
+       message_scilab("core_message_11",localbuf);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_7(integer *n, integer *ierr)
+{
+       message_scilab("core_message_12");
+       C2F(showstack)();
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_8(integer *n, integer *ierr)
+{
+       message_scilab("core_message_13");
+       C2F(showstack)();
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_9(integer *n, integer *ierr)
+{
+       message_scilab("core_message_14",ierr);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_10(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_11(integer *n, integer *ierr)
+{
+       message_scilab("core_message_15");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_12(integer *n, integer *ierr)
+{
+       char localbuf[16];
+       strncpy(localbuf,BUF,15);
+       message_scilab("core_message_16",localbuf);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_13(integer *n, integer *ierr)
+{
+       char localbuf[16];
+       strncpy(localbuf,BUF,15);
+
+       message_scilab("core_message_17",localbuf);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_14(integer *n, integer *ierr)
+{
+       message_scilab("core_message_18");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_15(integer *n, integer *ierr)
+{
+       message_scilab("core_message_19");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_16(integer *n, integer *ierr)
+{
+       message_scilab("core_message_20");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_17(integer *n, integer *ierr)
+{
+       message_scilab("core_message_21");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_18(integer *n, integer *ierr)
+{
+       message_scilab("core_message_22");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_19(integer *n, integer *ierr)
+{
+       message_scilab("core_message_23");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_20(integer *n, integer *ierr)
+{
+       message_scilab("core_message_24");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_21(integer *n, integer *ierr)
+{
+       message_scilab("core_message_25");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_22(integer *n, integer *ierr)
+{
+       char localbuf[5];
+       strncpy(localbuf,BUF,4);
+       message_scilab("core_message_26",localbuf);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_23(integer *n, integer *ierr)
+{
+       message_scilab("core_message_27");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_24(integer *n, integer *ierr)
+{
+       char *localbuf=NULL;
+       if (*ierr >0)
+       {
+               localbuf=(char*)MALLOC(sizeof(char)*(*ierr +1));
+               strncpy(localbuf,BUF,*ierr);
+               message_scilab("core_message_28",localbuf);
+               if (localbuf) {FREE(localbuf);localbuf=NULL;}
+       }
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_25(integer *n, integer *ierr)
+{
+       char *localbuf=NULL;
+       if (*ierr >0)
+       {
+               localbuf=(char*)MALLOC(sizeof(char)*(*ierr +1));
+               strncpy(localbuf,BUF,*ierr);
+               message_scilab("core_message_29",localbuf);
+               if (localbuf) {FREE(localbuf);localbuf=NULL;}
+       }
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_26(integer *n, integer *ierr)
+{
+       message_scilab("core_message_30");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_27(integer *n, integer *ierr)
+{
+       char localbuf[nlgh+1];
+       strncpy(localbuf,BUF,nlgh-1);
+       localbuf[nlgh-1]='\0';
+       message_scilab("core_message_31",localbuf);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_28(integer *n, integer *ierr)
+{
+       char localbuf[4];
+       localbuf[0]=BUF[10];
+       localbuf[1]=BUF[11];
+       localbuf[2]=BUF[12];
+       localbuf[3]='\0';
+       message_scilab("core_message_32",localbuf);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_29(integer *n, integer *ierr)
+{
+       char localbuf[nlgh+1];
+       strncpy(localbuf,BUF,nlgh);
+       message_scilab("core_message_33",localbuf);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_30(integer *n, integer *ierr)
+{
+       message_scilab("core_message_34");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_31(integer *n, integer *ierr)
+{
+       int cerr=-1;
+       message_scilab("core_message_35");
+       C2F(error)(&cerr);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_32(integer *n, integer *ierr)
+{
+       char localbuf1[6];
+       char localbuf2[nlgh];
+       int l=nlgh+1;
+
+       strncpy(localbuf1,&BUF[nlgh+1],5);
+       localbuf1[5]='\0';
+       do 
+       {
+               --l;
+       } while(BUF[l-1]==' ');
+       
+       strncpy(localbuf2,BUF,l);
+       localbuf2[l]='\0';
+       message_scilab("core_message_36",localbuf1,localbuf2);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_33(integer *n, integer *ierr)
+{
+       char *localbuf=NULL;
+       integer nreal=0;
+       integer c__1 = 1;
+       nreal = C2F(iop).lpt[3] - C2F(iop).lpt[2];
+       C2F(cvstr)(&nreal, &C2F(iop).lin[C2F(iop).lpt[2] - 2], BUF, &c__1, (long int)4096);
+
+       localbuf=(char*)MALLOC(sizeof(char)*(nreal +1));
+       strncpy(localbuf,BUF,nreal);
+       message_scilab("core_message_1");
+       message_scilab("core_message_37",localbuf);
+       localbuf[nlgh]='\0';
+       message_scilab("core_message_38",localbuf);
+       if (localbuf) {FREE(localbuf);localbuf=NULL;}
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_34(integer *n, integer *ierr)
+{
+       message_scilab("core_message_39");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_35(integer *n, integer *ierr)
+{
+       message_scilab("core_message_40");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_36(integer *n, integer *ierr)
+{
+       message_scilab("core_message_41",*ierr);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_37(integer *n, integer *ierr)
+{
+       char localbuf1[4];
+       char localbuf2[14];
+
+       strncpy(localbuf1,BUF,3);
+       strncpy(localbuf2,&BUF[4],13);
+       message_scilab("core_message_42",localbuf1,localbuf2);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_38(integer *n, integer *ierr)
+{
+       message_scilab("core_message_43");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_39(integer *n, integer *ierr)
+{
+       char localbuf1[10];
+       char localbuf2[10];
+
+       strncpy(localbuf1,BUF,9);
+       strncpy(localbuf2,&BUF[10],9);
+
+       message_scilab("core_message_44",localbuf1,localbuf2);
+
+       strncpy(localbuf1,&BUF[20],9);
+       strncpy(localbuf2,&BUF[30],9);
+       message_scilab("core_message_45",localbuf1,localbuf2);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_40(integer *n, integer *ierr)
+{
+       message_scilab("core_message_46");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_41(integer *n, integer *ierr)
+{
+       message_scilab("core_message_47");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_42(integer *n, integer *ierr)
+{
+       integer p=0;
+       integer lk=0;
+       integer k=0;
+       integer km=0;
+       integer c__1=1;
+       char line[140];
+       char *lMSG=QueryStringMessage("core_message_48");
+
+       C2F(cvname)(&C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6], line, &c__1, (long int)24);
+       line[24]='\0';
+       
+       if (lMSG)
+       {
+               sciprint(lMSG,line);
+               sciprint("\n");
+       }
+       if (lMSG) {FREE(lMSG);lMSG=NULL;}
+
+       p = C2F(recu).pt + 1;
+
+L42_1:
+       --p;
+       if (p == 0) goto end_msg_42;
+       
+       if (C2F(recu).rstk[p - 1] != 502) goto L42_1;
+       k = C2F(iop).lpt[0] - 19;
+
+       /* recherche du nom de la macro correspondant a ce niveau */
+       lk = C2F(iop).lin[k + 5] / 2 + 1;
+       if (lk <= C2F(vstk).lstk[C2F(vstk).top]) goto end_msg_42;
+       km = C2F(iop).lin[k + 4] - 1;
+L42_2:
+       ++km;
+       if (km > C2F(vstk).isiz) goto end_msg_42;
+       if (C2F(vstk).lstk[km - 1] != lk) goto L42_2;
+
+       C2F(cvname)(&C2F(vstk).idstk[km * 6 - 6], line, &c__1, (long int)24);
+
+       message_scilab("core_message_49",line);
+end_msg_42:
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_43(integer *n, integer *ierr)
+{
+       message_scilab("core_message_50");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_44(integer *n, integer *ierr)
+{
+       message_scilab("core_message_51");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_45(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_46(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_47(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_48(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_49(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_50(integer *n, integer *ierr)
+{
+       message_scilab("core_message_52");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_51(integer *n, integer *ierr)
+{
+       message_scilab("core_message_53");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_52(integer *n, integer *ierr)
+{
+       message_scilab("core_message_54");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_53(integer *n, integer *ierr)
+{
+       message_scilab("core_message_55");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_54(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_55(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_56(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_57(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_58(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_59(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_60(integer *n, integer *ierr)
+{
+       message_scilab("core_message_56");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_61(integer *n, integer *ierr)
+{
+       char line[140];
+       integer c__1=1;
+       C2F(cvname)(&C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6], line, &c__1,24);
+       message_scilab("core_message_1");
+       message_scilab("core_message_57",line);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_62(integer *n, integer *ierr)
+{
+       message_scilab("core_message_58");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_63(integer *n, integer *ierr)
+{
+       message_scilab("core_message_59");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_64(integer *n, integer *ierr)
+{
+       message_scilab("core_message_60");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_65(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_66(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_67(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_68(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_69(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_70(integer *n, integer *ierr)
+{
+       char localbuf[10];
+       strncpy(localbuf,BUF,10);
+       message_scilab("core_message_61",localbuf);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_71(integer *n, integer *ierr)
+{
+       message_scilab("core_message_62");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_72(integer *n, integer *ierr)
+{
+       message_scilab("core_message_63");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_73(integer *n, integer *ierr)
+{
+       message_scilab("core_message_64");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_74(integer *n, integer *ierr)
+{
+       message_scilab("core_message_65");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_75(integer *n, integer *ierr)
+{
+       message_scilab("core_message_66");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_76(integer *n, integer *ierr)
+{
+       message_scilab("core_message_67");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_77(integer *n, integer *ierr)
+{
+       message_scilab("core_message_68");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_78(integer *n, integer *ierr)
+{
+       message_scilab("core_message_69");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_79(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_80(integer *n, integer *ierr)
+{
+       message_scilab("core_message_70");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_81(integer *n, integer *ierr)
+{
+       message_scilab("core_message_71");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_82(integer *n, integer *ierr)
+{
+       message_scilab("core_message_72");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_83(integer *n, integer *ierr)
+{
+       message_scilab("core_message_73");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_84(integer *n, integer *ierr)
+{
+       message_scilab("core_message_74");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_85(integer *n, integer *ierr)
+{
+       message_scilab("core_message_75");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_86(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_87(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_88(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_89(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_90(integer *n, integer *ierr)
+{
+       message_scilab("core_message_76");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_91(integer *n, integer *ierr)
+{
+       message_scilab("core_message_77");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_92(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_93(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_94(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_95(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_96(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_97(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_98(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_99(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_100(integer *n, integer *ierr)
+{
+       message_scilab("core_message_78");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_101(integer *n, integer *ierr)
+{
+       integer c__1=1;
+       int i=0;
+       char line[140];
+
+       C2F(cvname)(&C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6], line, &c__1, (long int)24);
+
+       for (i=0;i<(int)strlen(line);i++)
+       {
+               if (line[i]==' ') line[i]='\0';
+               break;
+       }
+
+       message_scilab("core_message_79",line);
+       message_scilab("core_message_80");
+       C2F(showstack)();
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_102(integer *n, integer *ierr)
+{
+       integer c__1=1;
+       int i=0;
+       char line[140];
+
+       C2F(cvname)(&C2F(recu).ids[(C2F(recu).pt + 1) * 6 - 6], line, &c__1, (long int)24);
+
+       for (i=0;i<(int)strlen(line);i++)
+       {
+               if (line[i]==' ') line[i]='\0';
+               break;
+       }
+
+       message_scilab("core_message_81",line);
+       message_scilab("core_message_82");
+
+       C2F(showstack)();
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_103(integer *n, integer *ierr)
+{
+       message_scilab("core_message_83");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_104(integer *n, integer *ierr)
+{
+       message_scilab("core_message_84");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_105(integer *n, integer *ierr)
+{
+       char *localbuf=NULL;
+       localbuf=(char*)MALLOC(sizeof(char)*(*ierr +1));
+       strncpy(localbuf,BUF,*ierr);
+       message_scilab("core_message_85",localbuf);
+       if (localbuf) {FREE(localbuf);localbuf=NULL;}
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_106(integer *n, integer *ierr)
+{
+       message_scilab("core_message_86");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_107(integer *n, integer *ierr)
+{
+       message_scilab("core_message_87");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_108(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_109(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_110(integer *n, integer *ierr)
+{
+       sciprint(" \n");
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+static int msg_default(integer *n, integer *ierr)
+{
+       char *localbuf=NULL;
+       int len=strlen(BUF);
+       int i=0;
+       localbuf=(char*)MALLOC(sizeof(char)*(len+1));
+       strncpy(localbuf,BUF,len);
+       sciprint(" Warning: \n");
+       for (i=0;i<len;i++)
+       {
+               if (localbuf[i] == ' ')
+               {
+                       localbuf[i]='\0';
+                       break;
+               }
+       }
+       sciprint("%s\n",localbuf);
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
index 11b6626..262bc0e 100644 (file)
@@ -1,72 +1,72 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "scilabmode.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-/* default mode is STD */\r
-static BOOL bNWNImode=FALSE;\r
-static BOOL bNWmode=FALSE;\r
-static BOOL bSTDmode=TRUE;\r
-/*-----------------------------------------------------------------------------------*/ \r
-BOOL setNWNImode(void)\r
-{\r
-       bNWNImode=TRUE;\r
-       bNWmode=FALSE;\r
-       bSTDmode=FALSE;\r
-\r
-       return TRUE;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-BOOL setNWmode(void)\r
-{\r
-       bNWmode=TRUE;\r
-       bNWNImode=FALSE;\r
-       bSTDmode=FALSE;\r
-\r
-       return TRUE;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-BOOL setSTDmode(void)\r
-{\r
-       bNWmode=FALSE;\r
-       bNWNImode=FALSE;\r
-       bSTDmode=TRUE;\r
-\r
-       return TRUE;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-BOOL isSTDmode(void)\r
-{\r
-       return bSTDmode;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-BOOL isNWmode(void)\r
-{\r
-       return bNWmode;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-BOOL isNWNImode(void)\r
-{\r
-       return bNWNImode;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(isstdmode)(int *ok)\r
-{\r
-       *ok=(int)isSTDmode();\r
-       return 1;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(isnwmode)(int *ok)\r
-{\r
-       *ok=(int)isNWmode();\r
-       return 1;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(isnwnimode)(int *ok)\r
-{\r
-       *ok=(int)isNWNImode();\r
-       return 1;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include "scilabmode.h"
+/*-----------------------------------------------------------------------------------*/ 
+/* default mode is STD */
+static BOOL bNWNImode=FALSE;
+static BOOL bNWmode=FALSE;
+static BOOL bSTDmode=TRUE;
+/*-----------------------------------------------------------------------------------*/ 
+BOOL setNWNImode(void)
+{
+       bNWNImode=TRUE;
+       bNWmode=FALSE;
+       bSTDmode=FALSE;
+
+       return TRUE;
+}
+/*-----------------------------------------------------------------------------------*/ 
+BOOL setNWmode(void)
+{
+       bNWmode=TRUE;
+       bNWNImode=FALSE;
+       bSTDmode=FALSE;
+
+       return TRUE;
+}
+/*-----------------------------------------------------------------------------------*/ 
+BOOL setSTDmode(void)
+{
+       bNWmode=FALSE;
+       bNWNImode=FALSE;
+       bSTDmode=TRUE;
+
+       return TRUE;
+}
+/*-----------------------------------------------------------------------------------*/ 
+BOOL isSTDmode(void)
+{
+       return bSTDmode;
+}
+/*-----------------------------------------------------------------------------------*/ 
+BOOL isNWmode(void)
+{
+       return bNWmode;
+}
+/*-----------------------------------------------------------------------------------*/ 
+BOOL isNWNImode(void)
+{
+       return bNWNImode;
+}
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(isstdmode)(int *ok)
+{
+       *ok=(int)isSTDmode();
+       return 1;
+}
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(isnwmode)(int *ok)
+{
+       *ok=(int)isNWmode();
+       return 1;
+}
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(isnwnimode)(int *ok)
+{
+       *ok=(int)isNWNImode();
+       return 1;
+}
+/*-----------------------------------------------------------------------------------*/ 
+
index 4f0aace..1f24ba8 100644 (file)
@@ -1,19 +1,19 @@
-<!ELEMENT MODULE_VERSION (META?,VERSION)>\r
-<!ATTLIST MODULE_VERSION name CDATA #IMPLIED>\r
-\r
-<!ELEMENT META (#PCDATA)>\r
-\r
-<!ATTLIST META \r
-CATEGORY       CDATA   "Scilab Version"         \r
-VERSION_SCI    CDATA   "5.0"    \r
-VERSION_DOC    CDATA   "1.0"    \r
-AUTHOR         CDATA   "Allan CORNET INRIA 2007"        \r
- >\r
-\r
-<!ELEMENT VERSION (#PCDATA)>\r
-\r
-<!ATTLIST VERSION major CDATA #IMPLIED>\r
-<!ATTLIST VERSION minor CDATA #IMPLIED>\r
-<!ATTLIST VERSION maintenance CDATA #IMPLIED>\r
-<!ATTLIST VERSION revision CDATA #IMPLIED>\r
-<!ATTLIST VERSION string CDATA #IMPLIED>\r
+<!ELEMENT MODULE_VERSION (META?,VERSION)>
+<!ATTLIST MODULE_VERSION name CDATA #IMPLIED>
+
+<!ELEMENT META (#PCDATA)>
+
+<!ATTLIST META 
+CATEGORY       CDATA   "Scilab Version"         
+VERSION_SCI    CDATA   "5.0"    
+VERSION_DOC    CDATA   "1.0"    
+AUTHOR         CDATA   "Allan CORNET INRIA 2007"        
+ >
+
+<!ELEMENT VERSION (#PCDATA)>
+
+<!ATTLIST VERSION major CDATA #IMPLIED>
+<!ATTLIST VERSION minor CDATA #IMPLIED>
+<!ATTLIST VERSION maintenance CDATA #IMPLIED>
+<!ATTLIST VERSION revision CDATA #IMPLIED>
+<!ATTLIST VERSION string CDATA #IMPLIED>
index 8cb5213..4ca24fb 100644 (file)
@@ -1,14 +1,14 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "machine.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(sci_getfield) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-       extern int C2F(intgetfield)();\r
-\r
-       C2F(intgetfield)();\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include "machine.h"
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(sci_getfield) _PARAMS((char *fname,unsigned long fname_len))
+{
+       extern int C2F(intgetfield)();
+
+       C2F(intgetfield)();
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/ 
index 16bb66f..8a53c29 100644 (file)
@@ -1,14 +1,14 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "machine.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(sci_setfield) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-       extern int C2F(intsetfield)();\r
-\r
-       C2F(intsetfield)();\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include "machine.h"
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(sci_setfield) _PARAMS((char *fname,unsigned long fname_len))
+{
+       extern int C2F(intsetfield)();
+
+       C2F(intsetfield)();
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/ 
index 7a00de9..010bafd 100644 (file)
@@ -1,13 +1,13 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "machine.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(sci_odc) _PARAMS((char *fname,unsigned long l))\r
-{\r
-       extern int C2F(sciodc)();\r
-       C2F(sciodc)();\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#include "machine.h"
+/*-----------------------------------------------------------------------------------*/
+int C2F(sci_odc) _PARAMS((char *fname,unsigned long l))
+{
+       extern int C2F(sciodc)();
+       C2F(sciodc)();
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
index e742cc3..eb6e929 100644 (file)
@@ -1,22 +1,22 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "machine.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-double aa[6] = { 1., 1., 1., 1., 1., 1. };\r
-/*-----------------------------------------------------------------------------------*/\r
-/* used in fydottable.c */\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(arnol)(int *neq, double *t, double *y, double *ydot)\r
-{\r
-       --ydot;\r
-       --y;\r
-\r
-       ydot[1] = aa[0] * cos(y[2]) + aa[1] * sin(y[3]);\r
-       ydot[2] = aa[2] * cos(y[3]) + aa[3] * sin(y[1]);\r
-       ydot[3] = aa[4] * cos(y[1]) + aa[5] * sin(y[2]);\r
-\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA */
+/*-----------------------------------------------------------------------------------*/
+#include "machine.h"
+/*-----------------------------------------------------------------------------------*/
+double aa[6] = { 1., 1., 1., 1., 1., 1. };
+/*-----------------------------------------------------------------------------------*/
+/* used in fydottable.c */
+/*-----------------------------------------------------------------------------------*/
+int C2F(arnol)(int *neq, double *t, double *y, double *ydot)
+{
+       --ydot;
+       --y;
+
+       ydot[1] = aa[0] * cos(y[2]) + aa[1] * sin(y[3]);
+       ydot[2] = aa[2] * cos(y[3]) + aa[3] * sin(y[1]);
+       ydot[3] = aa[4] * cos(y[1]) + aa[5] * sin(y[2]);
+
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+
index 8ad9113..e0b4396 100644 (file)
@@ -1,48 +1,48 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007*/\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "feval.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(parab)(int *nn, double *x1, double *x2,double *xres, int *itype, char *name, long int name_len)\r
-{\r
-    /* Parameter adjustments */\r
-    --xres;\r
-\r
-       /* Computing 2nd power */\r
-    if (*nn == 1) \r
-    {\r
-               xres[1] = (*x1) * (*x1);\r
-               *itype = 0;\r
-    } \r
-    else\r
-    {\r
-               xres[1] = ((*x1) * (*x1)) + ((*x2) * (*x2));\r
-               *itype = 0;\r
-    }\r
-    return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(parabc)(int *nn, double *x1, double *x2,double *xres, int *itype, char *name, long int name_len)\r
-{\r
-       /* a version which returns complex numbers */\r
-    /* Parameter adjustments */\r
-    --xres;\r
-\r
-       /* Computing 2nd power */\r
-    if (*nn == 1) \r
-    {\r
-               xres[1] = (*x1) * (*x1);\r
-               xres[2] = (*x1);\r
-               *itype = 1;\r
-    } \r
-    else \r
-    {\r
-               xres[1] = ((*x1) * (*x1)) + ((*x2) * (*x2));\r
-               xres[2] = *x1 + *x2;\r
-               *itype = 1;\r
-    }\r
-    return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007*/
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#include "feval.h"
+/*-----------------------------------------------------------------------------------*/
+int C2F(parab)(int *nn, double *x1, double *x2,double *xres, int *itype, char *name, long int name_len)
+{
+    /* Parameter adjustments */
+    --xres;
+
+       /* Computing 2nd power */
+    if (*nn == 1) 
+    {
+               xres[1] = (*x1) * (*x1);
+               *itype = 0;
+    } 
+    else
+    {
+               xres[1] = ((*x1) * (*x1)) + ((*x2) * (*x2));
+               *itype = 0;
+    }
+    return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+int C2F(parabc)(int *nn, double *x1, double *x2,double *xres, int *itype, char *name, long int name_len)
+{
+       /* a version which returns complex numbers */
+    /* Parameter adjustments */
+    --xres;
+
+       /* Computing 2nd power */
+    if (*nn == 1) 
+    {
+               xres[1] = (*x1) * (*x1);
+               xres[2] = (*x1);
+               *itype = 1;
+    } 
+    else 
+    {
+               xres[1] = ((*x1) * (*x1)) + ((*x2) * (*x2));
+               xres[2] = *x1 + *x2;
+               *itype = 1;
+    }
+    return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+
index 69e1a82..36bf7e6 100644 (file)
@@ -1,14 +1,14 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007*/\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __FEVAL_H__\r
-#define __FEVAL_H__\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "machine.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(parab)(int *nn, double *x1, double *x2,double *xres, int *itype, char *name, long int name_len);\r
-int C2F(parabc)(int *nn, double *x1, double *x2,double *xres, int *itype, char *name, long int name_len);\r
-/*-----------------------------------------------------------------------------------*/\r
-#endif /* __FEVAL_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007*/
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __FEVAL_H__
+#define __FEVAL_H__
+/*-----------------------------------------------------------------------------------*/
+#include "machine.h"
+/*-----------------------------------------------------------------------------------*/
+int C2F(parab)(int *nn, double *x1, double *x2,double *xres, int *itype, char *name, long int name_len);
+int C2F(parabc)(int *nn, double *x1, double *x2,double *xres, int *itype, char *name, long int name_len);
+/*-----------------------------------------------------------------------------------*/
+#endif /* __FEVAL_H__ */
+/*-----------------------------------------------------------------------------------*/
index 7285481..a5190a5 100644 (file)
@@ -1,35 +1,35 @@
-c     ====================================       \r
-      subroutine bcomp (neq, t, x, xdot)\r
-c     ====================================       \r
-C      implicit undefined (a-z)\r
-      double precision t, x, xdot\r
-      dimension x(4), xdot(4)\r
-      real br(1000),pas,ppr,ppk,ppa,ppb,ppm,pps,ppl,\r
-     $     h(2),l(2),k(2),xe(2),f(2,2),g(2),ue\r
-      integer nn \r
-      common / bcompc/ br,pas,ppr,ppk,ppa,ppb,ppm,pps,ppl,\r
-     $     h,l,k,xe,f,g,ue,nn\r
-      real u ,brui,y\r
-      integer nnn,neq\r
-      \r
-      nnn=int(min(1+t/pas,dble(nn)))\r
-      \r
-      if ( nnn.le.0 .or. nnn.gt.nn) then \r
-         write(06,*) ' depassement ds vbruit'\r
-      endif\r
-      \r
-      brui=br(nnn)\r
-      u=ue- k(1)*(x(3)-xe(1))-k(2)*(x(4)-xe(2))\r
-      y=h(1)*x(1)+h(2)*x(2)+brui\r
-C     xdot=compet(t,x,u) composantes 1 et 2 \r
-      xdot(1) = ppr*x(1)*(1-x(1)/ppk) - u*ppa*x(1)*x(2)\r
-      xdot(2) = pps*x(2)*(1-x(2)/ppl) - u*ppb*x(1)*x(2)\r
-C     observer \r
-      xdot(3) = f(1,1)*(x(3)-xe(1))+f(1,2)*(x(4)-xe(2))\r
-      xdot(4) = f(2,1)*(x(3)-xe(1))+f(2,2)*(x(4)-xe(2))\r
-      xdot(3) = xdot(3) + g(1)*(u-ue) - l(1)*(h(1)*x(3)+h(2)*x(4)-y)\r
-      xdot(4) = xdot(4) + g(2)*(u-ue) - l(2)*(h(1)*x(3)+h(2)*x(4)-y)\r
-      return\r
-      end \r
-c     ====================================       \r
-\r
+c     ====================================       
+      subroutine bcomp (neq, t, x, xdot)
+c     ====================================       
+C      implicit undefined (a-z)
+      double precision t, x, xdot
+      dimension x(4), xdot(4)
+      real br(1000),pas,ppr,ppk,ppa,ppb,ppm,pps,ppl,
+     $     h(2),l(2),k(2),xe(2),f(2,2),g(2),ue
+      integer nn 
+      common / bcompc/ br,pas,ppr,ppk,ppa,ppb,ppm,pps,ppl,
+     $     h,l,k,xe,f,g,ue,nn
+      real u ,brui,y
+      integer nnn,neq
+      
+      nnn=int(min(1+t/pas,dble(nn)))
+      
+      if ( nnn.le.0 .or. nnn.gt.nn) then 
+         write(06,*) ' depassement ds vbruit'
+      endif
+      
+      brui=br(nnn)
+      u=ue- k(1)*(x(3)-xe(1))-k(2)*(x(4)-xe(2))
+      y=h(1)*x(1)+h(2)*x(2)+brui
+C     xdot=compet(t,x,u) composantes 1 et 2 
+      xdot(1) = ppr*x(1)*(1-x(1)/ppk) - u*ppa*x(1)*x(2)
+      xdot(2) = pps*x(2)*(1-x(2)/ppl) - u*ppb*x(1)*x(2)
+C     observer 
+      xdot(3) = f(1,1)*(x(3)-xe(1))+f(1,2)*(x(4)-xe(2))
+      xdot(4) = f(2,1)*(x(3)-xe(1))+f(2,2)*(x(4)-xe(2))
+      xdot(3) = xdot(3) + g(1)*(u-ue) - l(1)*(h(1)*x(3)+h(2)*x(4)-y)
+      xdot(4) = xdot(4) + g(2)*(u-ue) - l(2)*(h(1)*x(3)+h(2)*x(4)-y)
+      return
+      end 
+c     ====================================       
+
index 6351aca..f1b469f 100644 (file)
@@ -1,38 +1,38 @@
-c     ====================================       \r
-      subroutine lcomp (neq, t, x, xdot)\r
-c     ====================================             \r
-      double precision t, x, xdot\r
-      dimension x(4), xdot(4)\r
-      real br(1000),pas,ppr,ppk,ppa,ppb,ppm,pps,ppl,\r
-     $     h(2),l(2),k(2),xe(2),f(2,2),g(2),ue\r
-      integer nn \r
-      common / bcompc/ br,pas,ppr,ppk,ppa,ppb,ppm,pps,ppl,\r
-     $     h,l,k,xe,f,g,ue,nn\r
-      real u ,brui,y\r
-      integer nnn,neq\r
-\r
-      nnn=int(min(1+t/pas,dble(nn)))\r
-      if ( nnn.le.0 .or. nnn.gt.nn) then \r
-         write(06,*) ' depassement ds vbruit'\r
-      endif\r
-      \r
-      brui=br(nnn)\r
-      u=ue- k(1)*(x(3)-xe(1))-k(2)*(x(4)-xe(2))\r
-      y=h(1)*x(1)+h(2)*x(2)+brui\r
-      \r
-c     xdot=lincomp autour de xe ue \r
-      xdot(1) = f(1,1)*(x(1)-xe(1))+f(1,2)*(x(4)-xe(2))+g(1)*(u-ue)\r
-      xdot(2) = f(2,1)*(x(1)-xe(1))+f(2,2)*(x(4)-xe(2))+g(2)*(u-ue)\r
-      \r
-c    observer\r
-      xdot(3) = f(1,1)*(x(3)-xe(1))+f(1,2)*(x(4)-xe(2))\r
-      xdot(4) = f(2,1)*(x(3)-xe(1))+f(2,2)*(x(4)-xe(2))\r
-      xdot(3) = xdot(3) + g(1)*(u-ue) - l(1)*(h(1)*x(3)+h(2)*x(4)-y)\r
-      xdot(4) = xdot(4) + g(2)*(u-ue) - l(2)*(h(1)*x(3)+h(2)*x(4)-y)\r
-      \r
-      return\r
-      end \r
-c     ====================================       \r
-\r
-\r
-\r
+c     ====================================       
+      subroutine lcomp (neq, t, x, xdot)
+c     ====================================             
+      double precision t, x, xdot
+      dimension x(4), xdot(4)
+      real br(1000),pas,ppr,ppk,ppa,ppb,ppm,pps,ppl,
+     $     h(2),l(2),k(2),xe(2),f(2,2),g(2),ue
+      integer nn 
+      common / bcompc/ br,pas,ppr,ppk,ppa,ppb,ppm,pps,ppl,
+     $     h,l,k,xe,f,g,ue,nn
+      real u ,brui,y
+      integer nnn,neq
+
+      nnn=int(min(1+t/pas,dble(nn)))
+      if ( nnn.le.0 .or. nnn.gt.nn) then 
+         write(06,*) ' depassement ds vbruit'
+      endif
+      
+      brui=br(nnn)
+      u=ue- k(1)*(x(3)-xe(1))-k(2)*(x(4)-xe(2))
+      y=h(1)*x(1)+h(2)*x(2)+brui
+      
+c     xdot=lincomp autour de xe ue 
+      xdot(1) = f(1,1)*(x(1)-xe(1))+f(1,2)*(x(4)-xe(2))+g(1)*(u-ue)
+      xdot(2) = f(2,1)*(x(1)-xe(1))+f(2,2)*(x(4)-xe(2))+g(2)*(u-ue)
+      
+c    observer
+      xdot(3) = f(1,1)*(x(3)-xe(1))+f(1,2)*(x(4)-xe(2))
+      xdot(4) = f(2,1)*(x(3)-xe(1))+f(2,2)*(x(4)-xe(2))
+      xdot(3) = xdot(3) + g(1)*(u-ue) - l(1)*(h(1)*x(3)+h(2)*x(4)-y)
+      xdot(4) = xdot(4) + g(2)*(u-ue) - l(2)*(h(1)*x(3)+h(2)*x(4)-y)
+      
+      return
+      end 
+c     ====================================       
+
+
+
index 59c7fe4..9271154 100644 (file)
@@ -1,17 +1,17 @@
-c     ====================================       \r
-      subroutine loren (neq, t, y, ydot)\r
-c     ==================================== \r
-c     lorentz equation \r
-c     ====================================       \r
-      double precision t, y, ydot,sig,ro,beta\r
-      common / lorentz / sig,ro,beta \r
-      dimension y(3), ydot(3)\r
-      data sig,ro,beta  /10.0 ,28.0, 2.6666667 /\r
-      \r
-      ydot(1)=sig*(y(2)-y(1))\r
-      ydot(2)=ro*y(1) -y(2)-y(1)*y(3)\r
-      ydot(3)=-beta*y(3)+y(1)*y(2)\r
-      \r
-      return\r
-      end\r
+c     ====================================       
+      subroutine loren (neq, t, y, ydot)
+c     ==================================== 
+c     lorentz equation 
+c     ====================================       
+      double precision t, y, ydot,sig,ro,beta
+      common / lorentz / sig,ro,beta 
+      dimension y(3), ydot(3)
+      data sig,ro,beta  /10.0 ,28.0, 2.6666667 /
+      
+      ydot(1)=sig*(y(2)-y(1))
+      ydot(2)=ro*y(1) -y(2)-y(1)*y(3)
+      ydot(3)=-beta*y(3)+y(1)*y(2)
+      
+      return
+      end
 c     ====================================       
\ No newline at end of file
index c000918..beea9b8 100644 (file)
@@ -1,30 +1,30 @@
-//------------------------------------\r
-// Allan CORNET INRIA 2007\r
-//------------------------------------\r
-function ret=check_gateways(varargin)\r
-  [lhs,rhs]=argn(0);\r
-  ret=%T;\r
-  modules=getmodules();\r
-  szmodules=size(modules);\r
-\r
-  for i=1:1:szmodules(1)\r
-    file_to_check=SCI+'/modules/'+modules(i)+'/sci_gateway/'+modules(i)+'_gateway.xml';\r
-    printf('checking : '+modules(i)+'\n');\r
-    if (fileinfo(file_to_check)<>[]) then\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
-        printf('\n Please check : '+file_to_check+'\n\n');\r
-      end\r
-    else\r
-      printf('\n file doesn''t exist : '+file_to_check+'\n\n');\r
-    end\r
-  end\r
-  \r
-endfunction \r
+//------------------------------------
+// Allan CORNET INRIA 2007
+//------------------------------------
+function ret=check_gateways(varargin)
+  [lhs,rhs]=argn(0);
+  ret=%T;
+  modules=getmodules();
+  szmodules=size(modules);
+
+  for i=1:1:szmodules(1)
+    file_to_check=SCI+'/modules/'+modules(i)+'/sci_gateway/'+modules(i)+'_gateway.xml';
+    printf('checking : '+modules(i)+'\n');
+    if (fileinfo(file_to_check)<>[]) then
+      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;
+        printf('\n Please check : '+file_to_check+'\n\n');
+      end
+    else
+      printf('\n file doesn''t exist : '+file_to_check+'\n\n');
+    end
+  end
+  
+endfunction 
  
\ No newline at end of file
index eeb09e7..7c48117 100644 (file)
@@ -1,17 +1,17 @@
-<!ELEMENT GATEWAY (META?,PRIMITIVE*)>\r
-<!ATTLIST GATEWAY name CDATA #IMPLIED>\r
-\r
-<!ELEMENT META (#PCDATA)>\r
-\r
-<!ATTLIST META \r
-CATEGORY       CDATA   "Scilab Gateway"         \r
-VERSION_SCI    CDATA   "5.0"    \r
-VERSION_DOC    CDATA   "1.0"    \r
-AUTHOR         CDATA   "Allan CORNET INRIA 2007"        \r
- >\r
-\r
-\r
-<!ELEMENT PRIMITIVE (#PCDATA)>\r
-<!ATTLIST PRIMITIVE gatewayId CDATA #IMPLIED>\r
-<!ATTLIST PRIMITIVE primitiveId CDATA #IMPLIED>\r
-<!ATTLIST PRIMITIVE primitiveName CDATA #IMPLIED>\r
+<!ELEMENT GATEWAY (META?,PRIMITIVE*)>
+<!ATTLIST GATEWAY name CDATA #IMPLIED>
+
+<!ELEMENT META (#PCDATA)>
+
+<!ATTLIST META 
+CATEGORY       CDATA   "Scilab Gateway"         
+VERSION_SCI    CDATA   "5.0"    
+VERSION_DOC    CDATA   "1.0"    
+AUTHOR         CDATA   "Allan CORNET INRIA 2007"        
+ >
+
+
+<!ELEMENT PRIMITIVE (#PCDATA)>
+<!ATTLIST PRIMITIVE gatewayId CDATA #IMPLIED>
+<!ATTLIST PRIMITIVE primitiveId CDATA #IMPLIED>
+<!ATTLIST PRIMITIVE primitiveName CDATA #IMPLIED>
index 1558ecd..39d047a 100644 (file)
-/*\r
- * Provides get_absolute_file_path to scilab\r
- * @author Allan CORNET - INRIA 2007\r
- */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include <string.h>\r
-#include <stdio.h> /* FILE */\r
-#ifdef _MSC_VER \r
-       #include <windows.h>\r
-#else \r
-       #include <unistd.h>\r
-       #define GETCWD(x,y) getcwd(x,y)\r
-#endif \r
-\r
-#include "gw_io.h"\r
-#include "../../../fileio/includes/FileExist.h"\r
-#include "../../../fileio/src/c/files.h"\r
-#include "../../../core/src/c/scicurdir.h"\r
-#include "directories.h"\r
-#include "stack-c.h"\r
-#include "MALLOC.h"\r
-#include "Scierror.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifdef _MSC_VER\r
-       #define DIR_SEPARATOR "\\"\r
-#else\r
-       #define DIR_SEPARATOR "/"\r
-#endif\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(sci_get_absolute_file_path) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-       int l1,n1,m1;\r
-\r
-       CheckRhs(1,1);\r
-       CheckLhs(1,1);\r
-       \r
-       if (! (GetType(1) == sci_strings))\r
-       {\r
-               Scierror(999,"parameter incorrect must be a string (a filename).\r\n");\r
-               return 0;\r
-       }\r
-       else\r
-       {\r
-               char *filename=NULL;\r
-\r
-               GetRhsVar(1,"c",&m1,&n1,&l1);\r
-               if ( n1==1 )\r
-               {\r
-                       int i=0;\r
-                       int fdmax=0;\r
-                       char fileNameFormList[MAX_PATH];\r
-                       char *absolute_file_path=NULL;\r
-\r
-                       filename=cstk(l1);\r
-\r
-                       C2F(getfiledesc)(&fdmax);\r
-                       for(i=0;i<fdmax;i++)\r
-                       {\r
-                               FILE fa;\r
-                               integer swap2=0;\r
-                               integer type=0;\r
-                               integer mode=0;\r
-                               \r
-                               integer lf=0;\r
-                               integer ierr=0;\r
-                               \r
-                               int posBeginFileName=0;\r
-\r
-                               C2F(getfileinfo)(&i, &fa, &swap2,&type,&mode,fileNameFormList,&lf,&ierr);\r
-                               posBeginFileName=(int)(strlen(fileNameFormList)-strlen(filename));\r
-\r
-                               if (posBeginFileName>0)\r
-                               {\r
-                                       char *cmptmp=NULL;\r
-                                       cmptmp=&fileNameFormList[posBeginFileName];\r
-                                       if (strcmp(cmptmp,filename)==0)\r
-                                       {\r
-                                               absolute_file_path=(char *)MALLOC(sizeof(char)*(strlen(fileNameFormList)+1));\r
-                                               if (absolute_file_path)\r
-                                               {\r
-                                                       strncpy(absolute_file_path,fileNameFormList,posBeginFileName);\r
-                                                       absolute_file_path[posBeginFileName]='\0';\r
-                                                       break;\r
-                                               }\r
-                                       }\r
-                               }\r
-                       }\r
-\r
-                       if (!absolute_file_path) /* file not found in list of files opened by scilab */\r
-                       {\r
-                               int ierr=0;\r
-                               int lpath=0;\r
-                               char **path=NULL;\r
-                               \r
-                               path=(char**)MALLOC(sizeof(char*));\r
-                               if (path)\r
-                               {\r
-                                       path[0]=(char*)MALLOC(sizeof(char)*(MAX_PATH_LONG+1));\r
-                                       if (path[0])\r
-                                       {\r
-                                               C2F(scigetcwd)(&path[0],&lpath,&ierr);\r
-                                               if (ierr) /* Problem to get current directory */\r
-                                               {\r
-                                                       m1=0; n1=0; l1=0; /* returns a empty string */\r
-                                                       CreateVar(Rhs+1,"c",  &m1, &n1, &l1);\r
-                                                       LhsVar(1)=Rhs+1;\r
-                                                       C2F(putlhsvar)();\r
-                                                       FREE(path[0]);path[0]=NULL;\r
-                                                       FREE(path);path=NULL;\r
-                                                       return 0;\r
-                                               }\r
-                                               else\r
-                                               {\r
-                                                       absolute_file_path=(char *)MALLOC(sizeof(char)*(lpath+(int)strlen(DIR_SEPARATOR)+1));\r
-                                                       strncpy(absolute_file_path,path[0],lpath);\r
-                                                       absolute_file_path[lpath]='\0';\r
-                                                       /* Add '\' or '/' */\r
-                                                       strcat(absolute_file_path,DIR_SEPARATOR);\r
-                                               }\r
-                                               FREE(path[0]);path[0]=NULL;\r
-                                       }\r
-                                       FREE(path); path=NULL; \r
-                               }\r
-                       }\r
-\r
-                       n1=1;\r
-                       CreateVarFromPtr( Rhs+1, "c",(m1=(int)strlen(absolute_file_path), &m1),&n1,&absolute_file_path);\r
-                       LhsVar(1)=Rhs+1;\r
-                       C2F(putlhsvar)();\r
-\r
-                       if (absolute_file_path){FREE(absolute_file_path);absolute_file_path=NULL;}\r
-                       return 0;\r
-\r
-               }\r
-               else\r
-               {\r
-                       Scierror(999,"First parameter incorrect, must be a string (a file).\r\n");\r
-                       return 0;\r
-               }\r
-       }\r
-       return 0;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-\r
+/*
+ * Provides get_absolute_file_path to scilab
+ * @author Allan CORNET - INRIA 2007
+ */
+/*-----------------------------------------------------------------------------------*/ 
+#include <string.h>
+#include <stdio.h> /* FILE */
+#ifdef _MSC_VER 
+       #include <windows.h>
+#else 
+       #include <unistd.h>
+       #define GETCWD(x,y) getcwd(x,y)
+#endif 
+
+#include "gw_io.h"
+#include "../../../fileio/includes/FileExist.h"
+#include "../../../fileio/src/c/files.h"
+#include "../../../core/src/c/scicurdir.h"
+#include "directories.h"
+#include "stack-c.h"
+#include "MALLOC.h"
+#include "Scierror.h"
+/*-----------------------------------------------------------------------------------*/
+#ifdef _MSC_VER
+       #define DIR_SEPARATOR "\\"
+#else
+       #define DIR_SEPARATOR "/"
+#endif
+/*-----------------------------------------------------------------------------------*/
+int C2F(sci_get_absolute_file_path) _PARAMS((char *fname,unsigned long fname_len))
+{
+       int l1,n1,m1;
+
+       CheckRhs(1,1);
+       CheckLhs(1,1);
+       
+       if (! (GetType(1) == sci_strings))
+       {
+               Scierror(999,"parameter incorrect must be a string (a filename).\r\n");
+               return 0;
+       }
+       else
+       {
+               char *filename=NULL;
+
+               GetRhsVar(1,"c",&m1,&n1,&l1);
+               if ( n1==1 )
+               {
+                       int i=0;
+                       int fdmax=0;
+                       char fileNameFormList[MAX_PATH];
+                       char *absolute_file_path=NULL;
+
+                       filename=cstk(l1);
+
+                       C2F(getfiledesc)(&fdmax);
+                       for(i=0;i<fdmax;i++)
+                       {
+                               FILE fa;
+                               integer swap2=0;
+                               integer type=0;
+                               integer mode=0;
+                               
+                               integer lf=0;
+                               integer ierr=0;
+                               
+                               int posBeginFileName=0;
+
+                               C2F(getfileinfo)(&i, &fa, &swap2,&type,&mode,fileNameFormList,&lf,&ierr);
+                               posBeginFileName=(int)(strlen(fileNameFormList)-strlen(filename));
+
+                               if (posBeginFileName>0)
+                               {
+                                       char *cmptmp=NULL;
+                                       cmptmp=&fileNameFormList[posBeginFileName];
+                                       if (strcmp(cmptmp,filename)==0)
+                                       {
+                                               absolute_file_path=(char *)MALLOC(sizeof(char)*(strlen(fileNameFormList)+1));
+                                               if (absolute_file_path)
+                                               {
+                                                       strncpy(absolute_file_path,fileNameFormList,posBeginFileName);
+                                                       absolute_file_path[posBeginFileName]='\0';
+                                                       break;
+                                               }
+                                       }
+                               }
+                       }
+
+                       if (!absolute_file_path) /* file not found in list of files opened by scilab */
+                       {
+                               int ierr=0;
+                               int lpath=0;
+                               char **path=NULL;
+                               
+                               path=(char**)MALLOC(sizeof(char*));
+                               if (path)
+                               {
+                                       path[0]=(char*)MALLOC(sizeof(char)*(MAX_PATH_LONG+1));
+                                       if (path[0])
+                                       {
+                                               C2F(scigetcwd)(&path[0],&lpath,&ierr);
+                                               if (ierr) /* Problem to get current directory */
+                                               {
+                                                       m1=0; n1=0; l1=0; /* returns a empty string */
+                                                       CreateVar(Rhs+1,"c",  &m1, &n1, &l1);
+                                                       LhsVar(1)=Rhs+1;
+                                                       C2F(putlhsvar)();
+                                                       FREE(path[0]);path[0]=NULL;
+                                                       FREE(path);path=NULL;
+                                                       return 0;
+                                               }
+                                               else
+                                               {
+                                                       absolute_file_path=(char *)MALLOC(sizeof(char)*(lpath+(int)strlen(DIR_SEPARATOR)+1));
+                                                       strncpy(absolute_file_path,path[0],lpath);
+                                                       absolute_file_path[lpath]='\0';
+                                                       /* Add '\' or '/' */
+                                                       strcat(absolute_file_path,DIR_SEPARATOR);
+                                               }
+                                               FREE(path[0]);path[0]=NULL;
+                                       }
+                                       FREE(path); path=NULL; 
+                               }
+                       }
+
+                       n1=1;
+                       CreateVarFromPtr( Rhs+1, "c",(m1=(int)strlen(absolute_file_path), &m1),&n1,&absolute_file_path);
+                       LhsVar(1)=Rhs+1;
+                       C2F(putlhsvar)();
+
+                       if (absolute_file_path){FREE(absolute_file_path);absolute_file_path=NULL;}
+                       return 0;
+
+               }
+               else
+               {
+                       Scierror(999,"First parameter incorrect, must be a string (a file).\r\n");
+                       return 0;
+               }
+       }
+       return 0;
+}
+/*-----------------------------------------------------------------------------------*/
+
index 1a29cc1..55fdda1 100644 (file)
@@ -1,15 +1,15 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2006 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#ifndef __GW_RANDLIB_H__\r
-#define __GW_RANDLIB_H__\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include "machine.h"\r
-/*-----------------------------------------------------------------------------------*/ \r
-int C2F(gw_randlib)(void);\r
-/*-----------------------------------------------------------------------------------*/ \r
-int sci_Rand(char *fname,unsigned long fname_len);\r
-/*-----------------------------------------------------------------------------------*/ \r
-#endif /* __GW_RANDLIB_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#ifndef __GW_RANDLIB_H__
+#define __GW_RANDLIB_H__
+/*-----------------------------------------------------------------------------------*/ 
+#include "machine.h"
+/*-----------------------------------------------------------------------------------*/ 
+int C2F(gw_randlib)(void);
+/*-----------------------------------------------------------------------------------*/ 
+int sci_Rand(char *fname,unsigned long fname_len);
+/*-----------------------------------------------------------------------------------*/ 
+#endif /* __GW_RANDLIB_H__ */
+/*-----------------------------------------------------------------------------------*/
index 1dd3e86..c1247b7 100644 (file)
@@ -1,79 +1,79 @@
-/*------------------------------------------------------------------------*/\r
-/* File: sci_strsubst1.c                                                  */\r
-/* Copyright INRIA 2007                                                   */\r
-/* Authors : Cong Wu                                                      */\r
-/* desc : substitute a character string by another in a character string\r
-          using regular express .                                         */\r
-/*------------------------------------------------------------------------*/\r
-#include <string.h>\r
-#include <stdio.h>\r
-#include <ctype.h> \r
-#include "gw_string.h"\r
-#include "machine.h"\r
-#include "stack-c.h"\r
-#include "MALLOC.h" \r
-\r
-int numRow;\r
-int numCol;\r
-\r
-/*-------------------------------------------------------------------------------------*/\r
-\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(sci_ascii1) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-\r
-\r
-  char **Str,**Str3;\r
-  char typ = '*';\r
-\r
-\r
-  \r
-  \r
-  \r
-  int x,y,m1,n1,mn,m2,n2,mn3,i,l1,l2,m4,n4,l4=0;\r
-  int values[100];\r
-\r
-  int nbValues=0;\r
-  int numRow   = 1        ;\r
-  int outIndex = 0        ;\r
-\r
-  unsigned *m;\r
-  \r
-  \r
-  \r
-\r
-\r
-\r
-\r
-  \r
-  Rhs = Max(0, Rhs);\r
-  CheckRhs(1,4);\r
-\r
-  switch ( GetType(1)) {\r
-  case sci_matrix :\r
-       GetRhsVar(1,"S",&m1,&n1,&Str);\r
-       mn = m1*n1;  \r
-       for (x=0;x<mn;x++)\r
-               for (y=0;y<strlen(Str[x]);y++)\r
-                       values[nbValues++]=Str[x][y];\r
-        \r
-       CreateVar(Rhs+1,"d",&numRow,&nbValues,&outIndex) ;\r
-       for ( i = 0 ; i < nbValues ; i++ )\r
-       {\r
-               stk(outIndex)[i] = (double)values[i] ;\r
-       }\r
-       \r
-       \r
-       LhsVar(1) = Rhs+1 ;\r
-       C2F(putlhsvar)();\r
-       return 0;\r
\r
-       \r
-  }\r
-    \r
-}\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
+/*------------------------------------------------------------------------*/
+/* File: sci_strsubst1.c                                                  */
+/* Copyright INRIA 2007                                                   */
+/* Authors : Cong Wu                                                      */
+/* desc : substitute a character string by another in a character string
+          using regular express .                                         */
+/*------------------------------------------------------------------------*/
+#include <string.h>
+#include <stdio.h>
+#include <ctype.h> 
+#include "gw_string.h"
+#include "machine.h"
+#include "stack-c.h"
+#include "MALLOC.h" 
+
+int numRow;
+int numCol;
+
+/*-------------------------------------------------------------------------------------*/
+
+
+/*-----------------------------------------------------------------------------------*/
+
+/*-----------------------------------------------------------------------------------*/
+int C2F(sci_ascii1) _PARAMS((char *fname,unsigned long fname_len))
+{
+
+
+  char **Str,**Str3;
+  char typ = '*';
+
+
+  
+  
+  
+  int x,y,m1,n1,mn,m2,n2,mn3,i,l1,l2,m4,n4,l4=0;
+  int values[100];
+
+  int nbValues=0;
+  int numRow   = 1        ;
+  int outIndex = 0        ;
+
+  unsigned *m;
+  
+  
+  
+
+
+
+
+  
+  Rhs = Max(0, Rhs);
+  CheckRhs(1,4);
+
+  switch ( GetType(1)) {
+  case sci_matrix :
+       GetRhsVar(1,"S",&m1,&n1,&Str);
+       mn = m1*n1;  
+       for (x=0;x<mn;x++)
+               for (y=0;y<strlen(Str[x]);y++)
+                       values[nbValues++]=Str[x][y];
+        
+       CreateVar(Rhs+1,"d",&numRow,&nbValues,&outIndex) ;
+       for ( i = 0 ; i < nbValues ; i++ )
+       {
+               stk(outIndex)[i] = (double)values[i] ;
+       }
+       
+       
+       LhsVar(1) = Rhs+1 ;
+       C2F(putlhsvar)();
+       return 0;
+       
+  }
+    
+}
+
+/*-----------------------------------------------------------------------------------*/
index bdcca70..182da33 100644 (file)
@@ -1,66 +1,66 @@
-/*------------------------------------------------------------------------*/\r
-/* File: sci_strsubst1.c                                                  */\r
-/* Copyright INRIA 2007                                                   */\r
-/* Authors : Cong Wu                                                      */\r
-/* desc : substitute a character string by another in a character string\r
-          using regular express .                                         */\r
-/*------------------------------------------------------------------------*/\r
-#include <string.h>\r
-#include <stdio.h>\r
-#include <ctype.h> \r
-#include "gw_string.h"\r
-#include "machine.h"\r
-#include "stack-c.h"\r
-#include "MALLOC.h" \r
-int numRow;\r
-int numCol;\r
-/*-------------------------------------------------------------------------------------*/\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(sci_convstr1) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-  char **Str,**Str3;\r
-  char typ = '*';\r
-  int x,y,m1,n1,mn,m2,n2,mn3,i,l2,m4,n4,l4=0;\r
-  unsigned *m;\r
-  Rhs = Max(0, Rhs);\r
-  CheckRhs(1,4);\r
-  switch ( VarType(1)) {\r
-  case 10 :\r
-    GetRhsVar(1,"S",&m1,&n1,&Str);\r
-    mn = m1*n1;  \r
-    GetRhsVar(2,"c",&m4,&n4,&l4);\r
-    if ( m4*n4 != 0) \r
-            typ = cstk(l4)[0]; \r
-       Str3=(char**)MALLOC(sizeof(char*)*(m1*n1));\r
-       for (i=0;i<m1*n1;i++)\r
-       {\r
-               Str3[i]=(char*)MALLOC(sizeof(char*)*(1));\r
-               strcpy(Str3[i],"");\r
-       }\r
-       for (x=0;x<mn;x++){\r
-               for (y=0;y<strlen(Str[x]);y++){\r
-                       if (typ=='u') {\r
-                               if    ( Str[x][y]>=97 && Str[x][y]<=122 ) \r
-                               Str3[x][y]=Str[x][y]-32         ;\r
-                               else Str3[x][y]=Str[x][y];\r
-                       }\r
-                       else if (typ=='l') { \r
-                               if    ( Str[x][y]>=65 && Str[x][y]<=90 ) \r
-                               Str3[x][y]=Str[x][y]+32         ;\r
-                else Str3[x][y]=Str[x][y];\r
-                       }\r
-               }\r
-        Str3[x][y]=0;\r
-       }\r
-       numRow   = m1;\r
-    numCol   = n1 ;\r
-    CreateVarFromPtr( Rhs+1, "S", &numRow, &numCol, Str3 ) ;\r
-       LhsVar(1) = Rhs+1 ; \r
-    C2F(putlhsvar)();\r
-\r
-  }\r
-    return 0;\r
-}\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
+/*------------------------------------------------------------------------*/
+/* File: sci_strsubst1.c                                                  */
+/* Copyright INRIA 2007                                                   */
+/* Authors : Cong Wu                                                      */
+/* desc : substitute a character string by another in a character string
+          using regular express .                                         */
+/*------------------------------------------------------------------------*/
+#include <string.h>
+#include <stdio.h>
+#include <ctype.h> 
+#include "gw_string.h"
+#include "machine.h"
+#include "stack-c.h"
+#include "MALLOC.h" 
+int numRow;
+int numCol;
+/*-------------------------------------------------------------------------------------*/
+
+/*-----------------------------------------------------------------------------------*/
+int C2F(sci_convstr1) _PARAMS((char *fname,unsigned long fname_len))
+{
+  char **Str,**Str3;
+  char typ = '*';
+  int x,y,m1,n1,mn,m2,n2,mn3,i,l2,m4,n4,l4=0;
+  unsigned *m;
+  Rhs = Max(0, Rhs);
+  CheckRhs(1,4);
+  switch ( VarType(1)) {
+  case 10 :
+    GetRhsVar(1,"S",&m1,&n1,&Str);
+    mn = m1*n1;  
+    GetRhsVar(2,"c",&m4,&n4,&l4);
+    if ( m4*n4 != 0) 
+            typ = cstk(l4)[0]; 
+       Str3=(char**)MALLOC(sizeof(char*)*(m1*n1));
+       for (i=0;i<m1*n1;i++)
+       {
+               Str3[i]=(char*)MALLOC(sizeof(char*)*(1));
+               strcpy(Str3[i],"");
+       }
+       for (x=0;x<mn;x++){
+               for (y=0;y<strlen(Str[x]);y++){
+                       if (typ=='u') {
+                               if    ( Str[x][y]>=97 && Str[x][y]<=122 ) 
+                               Str3[x][y]=Str[x][y]-32         ;
+                               else Str3[x][y]=Str[x][y];
+                       }
+                       else if (typ=='l') { 
+                               if    ( Str[x][y]>=65 && Str[x][y]<=90 ) 
+                               Str3[x][y]=Str[x][y]+32         ;
+                else Str3[x][y]=Str[x][y];
+                       }
+               }
+        Str3[x][y]=0;
+       }
+       numRow   = m1;
+    numCol   = n1 ;
+    CreateVarFromPtr( Rhs+1, "S", &numRow, &numCol, Str3 ) ;
+       LhsVar(1) = Rhs+1 ; 
+    C2F(putlhsvar)();
+
+  }
+    return 0;
+}
+
+/*-----------------------------------------------------------------------------------*/
index 3327c3a..9ca8657 100644 (file)
-/*------------------------------------------------------------------------*/\r
-/* File: sci_strsubst1.c                                                  */\r
-/* Copyright INRIA 2007                                                   */\r
-/* Authors : Cong Wu                                                      */\r
-/* desc : substitute a character string by another in a character string\r
-          using regular express .                                         */\r
-/*------------------------------------------------------------------------*/\r
-#include <string.h>\r
-#include <stdio.h>\r
-#include <ctype.h> \r
-#include "gw_string.h"\r
-#include "machine.h"\r
-#include "pcre.h"\r
-#include "pcreposix.h"\r
-#include "stack-c.h"\r
-#include "returnProperty.h"\r
-#include "machine.h"\r
-#include "MALLOC.h" \r
-int next[20];\r
-int numRow;\r
-int numCol;\r
-char *_replacedstr;\r
-/*-------------------------------------------------------------------------------------*/\r
-\r
-void getnext(char T[],int *next);\r
-int kmp(char S[],char T[],int pos);\r
-\r
-\r
-\r
-\r
-\r
-\r
-\r
-static char* newstr(const char*str, unsigned start, unsigned end, char*_replacedstr1)\r
-\r
-{\r
-\r
-unsigned n = end - start;\r
-unsigned i,j;\r
-static char stbuf1[256];\r
-static char stbuf2[256];\r
-static char stbuf3[256];\r
-static char stbuf4[256];\r
-\r
-for (i=0;i<256;++i) {\r
-   stbuf1[i]=0;\r
-   stbuf2[i]=0;\r
-   stbuf3[i]=0;\r
-   stbuf4[i]=0;\r
-}\r
-strncpy(stbuf1, str , start);\r
-strncpy(stbuf2, _replacedstr1,strlen(_replacedstr1));\r
-strncpy(stbuf3, str+end ,strlen(str)-n+strlen(_replacedstr1) );\r
-j=0;\r
-for (i=0;i<strlen(stbuf1);i++) stbuf4[j++]=stbuf1[i];\r
-for (i=0;i<strlen(stbuf2);i++) stbuf4[j++]=stbuf2[i];\r
-for (i=0;i<strlen(stbuf3);i++) stbuf4[j++]=stbuf3[i];\r
-\r
-return stbuf4;\r
-\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(sci_emptystr1) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-char typ = '*';\r
-\r
-  char **Str,**Str2,**Str3,**Str4;\r
-  \r
-  \r
-  \r
-  int x,m1,n1,mn,mn2,mn3,m2,n2,m3,i,n3,m4,n4,l1,l4,l2=0;\r
-  unsigned x1;\r
-  \r
-  \r
-  \r
-  \r
-  char ebuf[128];\r
-  char *lbuf;\r
-  const size_t nmatch = 10;\r
-  char *pattern;\r
-  int w;\r
-  int pos=0;\r
-  int  z, cflags = 0;\r
-  regmatch_t pm[10];\r
-  regex_t *out1;\r
-  Rhs = Max(0, Rhs);\r
-  //CheckRhs(0,5);\r
-   if (Rhs < 1) { \r
-               int m1=0;\r
-               int n1=0;\r
-               int l1=0;\r
-               \r
-               CreateVar(1,"c",  &m1, &n1, &l1);\r
-               LhsVar(1)=1;\r
-               C2F(putlhsvar)();\r
-           return 0;\r
-   }\r
\r
-\r
-   if (Rhs ==1) {\r
-         \r
-       GetRhsVar(1,"S",&m1,&n1,&Str);\r
-    mn = m1*n1;  \r
-       l1=0;\r
-       Str4=(char**)MALLOC(sizeof(char*)*(m1*n1));\r
-       for (i=0;i<m1*n1;i++)\r
-               {\r
-                       Str4[i]=(char*)MALLOC(sizeof(char*)*(1));\r
-                       strcpy(Str4[i],"");\r
-               }\r
-       CreateVarFromPtr(1,"S",&m1, &n1, Str4);\r
-       LhsVar(1)=1;\r
-   }\r
-   if (Rhs == 2){\r
-               GetRhsVar(1,"i",&m1,&n1,&l1);\r
-               m4=*istk(l1);\r
-               GetRhsVar(2,"i",&m2,&n2,&l2);\r
-               n4=*istk(l2);\r
-               if (m4*n4!=0) Str4=(char**)MALLOC(sizeof(char*)*(m4*n4));\r
-               for (i=0;i<m4*n4;i++)\r
-               {\r
-                       Str4[i]=(char*)MALLOC(sizeof(char*)*(1));\r
-                       strcpy(Str4[i],"");\r
-               }\r
-               CreateVarFromPtr(1,"S",&m4, &n4, Str4);\r
-               LhsVar(1)=1;\r
-   }\r
-    \r
-\r
-  //}\r
-       \r
-\r
-\r
-  C2F(putlhsvar)();\r
-  return 0;\r
-}\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
+/*------------------------------------------------------------------------*/
+/* File: sci_strsubst1.c                                                  */
+/* Copyright INRIA 2007                                                   */
+/* Authors : Cong Wu                                                      */
+/* desc : substitute a character string by another in a character string
+          using regular express .                                         */
+/*------------------------------------------------------------------------*/
+#include <string.h>
+#include <stdio.h>
+#include <ctype.h> 
+#include "gw_string.h"
+#include "machine.h"
+#include "pcre.h"
+#include "pcreposix.h"
+#include "stack-c.h"
+#include "returnProperty.h"
+#include "machine.h"
+#include "MALLOC.h" 
+int next[20];
+int numRow;
+int numCol;
+char *_replacedstr;
+/*-------------------------------------------------------------------------------------*/
+
+void getnext(char T[],int *next);
+int kmp(char S[],char T[],int pos);
+
+
+
+
+
+
+
+static char* newstr(const char*str, unsigned start, unsigned end, char*_replacedstr1)
+
+{
+
+unsigned n = end - start;
+unsigned i,j;
+static char stbuf1[256];
+static char stbuf2[256];
+static char stbuf3[256];
+static char stbuf4[256];
+
+for (i=0;i<256;++i) {
+   stbuf1[i]=0;
+   stbuf2[i]=0;
+   stbuf3[i]=0;
+   stbuf4[i]=0;
+}
+strncpy(stbuf1, str , start);
+strncpy(stbuf2, _replacedstr1,strlen(_replacedstr1));
+strncpy(stbuf3, str+end ,strlen(str)-n+strlen(_replacedstr1) );
+j=0;
+for (i=0;i<strlen(stbuf1);i++) stbuf4[j++]=stbuf1[i];
+for (i=0;i<strlen(stbuf2);i++) stbuf4[j++]=stbuf2[i];
+for (i=0;i<strlen(stbuf3);i++) stbuf4[j++]=stbuf3[i];
+
+return stbuf4;
+
+}
+/*-----------------------------------------------------------------------------------*/
+
+/*-----------------------------------------------------------------------------------*/
+int C2F(sci_emptystr1) _PARAMS((char *fname,unsigned long fname_len))
+{
+char typ = '*';
+
+  char **Str,**Str2,**Str3,**Str4;
+  
+  
+  
+  int x,m1,n1,mn,mn2,mn3,m2,n2,m3,i,n3,m4,n4,l1,l4,l2=0;
+  unsigned x1;
+  
+  
+  
+  
+  char ebuf[128];
+  char *lbuf;
+  const size_t nmatch = 10;
+  char *pattern;
+  int w;
+  int pos=0;
+  int  z, cflags = 0;
+  regmatch_t pm[10];
+  regex_t *out1;
+  Rhs = Max(0, Rhs);
+  //CheckRhs(0,5);
+   if (Rhs < 1) { 
+               int m1=0;
+               int n1=0;
+               int l1=0;
+               
+               CreateVar(1,"c",  &m1, &n1, &l1);
+               LhsVar(1)=1;
+               C2F(putlhsvar)();
+           return 0;
+   }
+
+   if (Rhs ==1) {
+         
+       GetRhsVar(1,"S",&m1,&n1,&Str);
+    mn = m1*n1;  
+       l1=0;
+       Str4=(char**)MALLOC(sizeof(char*)*(m1*n1));
+       for (i=0;i<m1*n1;i++)
+               {
+                       Str4[i]=(char*)MALLOC(sizeof(char*)*(1));
+                       strcpy(Str4[i],"");
+               }
+       CreateVarFromPtr(1,"S",&m1, &n1, Str4);
+       LhsVar(1)=1;
+   }
+   if (Rhs == 2){
+               GetRhsVar(1,"i",&m1,&n1,&l1);
+               m4=*istk(l1);
+               GetRhsVar(2,"i",&m2,&n2,&l2);
+               n4=*istk(l2);
+               if (m4*n4!=0) Str4=(char**)MALLOC(sizeof(char*)*(m4*n4));
+               for (i=0;i<m4*n4;i++)
+               {
+                       Str4[i]=(char*)MALLOC(sizeof(char*)*(1));
+                       strcpy(Str4[i],"");
+               }
+               CreateVarFromPtr(1,"S",&m4, &n4, Str4);
+               LhsVar(1)=1;
+   }
+    
+
+  //}
+       
+
+
+  C2F(putlhsvar)();
+  return 0;
+}
+
+/*-----------------------------------------------------------------------------------*/
index 99f8729..fa56f15 100644 (file)
@@ -1,85 +1,85 @@
-/*------------------------------------------------------------------------*/\r
-/* File: sci_strsubst1.c                                                  */\r
-/* Copyright INRIA 2007                                                   */\r
-/* Authors : Cong Wu                                                      */\r
-/* desc : substitute a character string by another in a character string\r
-          using regular express .                                         */\r
-/*------------------------------------------------------------------------*/\r
-#include <string.h>\r
-#include <stdio.h>\r
-#include <ctype.h> \r
-#include "gw_string.h"\r
-#include "machine.h"\r
-#include "stack-c.h"\r
-#include "MALLOC.h" \r
-\r
-int numRow;\r
-int numCol;\r
-\r
-/*-------------------------------------------------------------------------------------*/\r
-\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(sci_part1) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-\r
-\r
-  char **Str,**Str3;\r
-\r
-\r
-  \r
-  \r
-  \r
-  int x,y,m1,n1,mn,m2,n2,mn3,i,l2=0;\r
-\r
-  unsigned *m;\r
-  \r
-  \r
-  \r
-\r
-\r
-\r
-\r
-  \r
-  Rhs = Max(0, Rhs);\r
-  CheckRhs(1,4);\r
-\r
-  switch ( VarType(1)) {\r
-  case 10 :\r
-    GetRhsVar(1,"S",&m1,&n1,&Str);\r
-       \r
-    mn = m1*n1;  \r
-       GetRhsVar(2,"i",&m2,&n2,&l2);\r
-    m=istk(l2); \r
-\r
-       Str3=(char**)MALLOC(sizeof(char*)*(m1*n1));\r
-       for (i=0;i<m1*n1;i++)\r
-       {\r
-               Str3[i]=(char*)MALLOC(sizeof(char*)*(1));\r
-               strcpy(Str3[i],"");\r
-       }\r
-       for (x=0;x<n1;x++){\r
-        mn3=0;\r
-               for (y=0;y<n2;y++)\r
-                        if (m[y]-1<=strlen(Str[x])) Str3[x][mn3++]=Str[x][m[y]-1]              ;\r
-       }\r
-\r
-       numRow   = m1 ;\r
-    numCol   = n1 ;\r
-       \r
-    CreateVarFromPtr( Rhs+1, "S", &numRow, &numCol, Str3 ) ;\r
-       LhsVar(1) = Rhs+1 ; \r
-    \r
-\r
-\r
-\r
-\r
-  C2F(putlhsvar)();\r
-\r
-  }\r
-    return 0;\r
-}\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
+/*------------------------------------------------------------------------*/
+/* File: sci_strsubst1.c                                                  */
+/* Copyright INRIA 2007                                                   */
+/* Authors : Cong Wu                                                      */
+/* desc : substitute a character string by another in a character string
+          using regular express .                                         */
+/*------------------------------------------------------------------------*/
+#include <string.h>
+#include <stdio.h>
+#include <ctype.h> 
+#include "gw_string.h"
+#include "machine.h"
+#include "stack-c.h"
+#include "MALLOC.h" 
+
+int numRow;
+int numCol;
+
+/*-------------------------------------------------------------------------------------*/
+
+
+/*-----------------------------------------------------------------------------------*/
+
+/*-----------------------------------------------------------------------------------*/
+int C2F(sci_part1) _PARAMS((char *fname,unsigned long fname_len))
+{
+
+
+  char **Str,**Str3;
+
+
+  
+  
+  
+  int x,y,m1,n1,mn,m2,n2,mn3,i,l2=0;
+
+  unsigned *m;
+  
+  
+  
+
+
+
+
+  
+  Rhs = Max(0, Rhs);
+  CheckRhs(1,4);
+
+  switch ( VarType(1)) {
+  case 10 :
+    GetRhsVar(1,"S",&m1,&n1,&Str);
+       
+    mn = m1*n1;  
+       GetRhsVar(2,"i",&m2,&n2,&l2);
+    m=istk(l2); 
+
+       Str3=(char**)MALLOC(sizeof(char*)*(m1*n1));
+       for (i=0;i<m1*n1;i++)
+       {
+               Str3[i]=(char*)MALLOC(sizeof(char*)*(1));
+               strcpy(Str3[i],"");
+       }
+       for (x=0;x<n1;x++){
+        mn3=0;
+               for (y=0;y<n2;y++)
+                        if (m[y]-1<=strlen(Str[x])) Str3[x][mn3++]=Str[x][m[y]-1]              ;
+       }
+
+       numRow   = m1 ;
+    numCol   = n1 ;
+       
+    CreateVarFromPtr( Rhs+1, "S", &numRow, &numCol, Str3 ) ;
+       LhsVar(1) = Rhs+1 ; 
+    
+
+
+
+
+  C2F(putlhsvar)();
+
+  }
+    return 0;
+}
+
+/*-----------------------------------------------------------------------------------*/
index 7391db8..03955ef 100644 (file)
@@ -1,51 +1,51 @@
-/*------------------------------------------------------------------------*/\r
-/* File: sci_strcat1.c                                                  */\r
-/* Copyright INRIA 2007                                                   */\r
-/* Authors : Cong Wu                                                      */\r
-/* desc : substitute a character string by another in a character string\r
-          using regular express .                                         */\r
-/*------------------------------------------------------------------------*/\r
-#include <string.h>\r
-#include <stdio.h>\r
-#include <ctype.h> \r
-#include "gw_string.h"\r
-#include "machine.h"\r
-#include "stack-c.h"\r
-#include "machine.h"\r
-/*-------------------------------------------------------------------------------------*/\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(sci_strcat1) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-  char typ = '*';\r
-  char **Str,**Str2;\r
-  int x,m1,n1,m2,n2,mn,mn2,numRow,numCol;\r
-  Rhs = Max(0, Rhs);\r
-  CheckRhs(1,2);\r
-  switch ( VarType(1)) {\r
-  case 10 :\r
-               GetRhsVar(1,"S",&m1,&n1,&Str);\r
-               mn = m1*n1;  \r
-               GetRhsVar(2,"S",&m2,&n2,&Str2);\r
-               mn2 = m2*n2;\r
-               strcat(Str[0] ,Str2[0]);\r
-               if (mn>1) {\r
-                       for (x=1;x<mn-1;++x){\r
-                               if (strlen(Str2[0])==0) {\r
-                                       Scierror(999, "2th argument must not be an empty string");\r
-                                       return 1;\r
-                               }\r
-                               strcat(Str[0],Str[x]);\r
-                               strcat(Str[0] ,Str2[0]);\r
-                               \r
-                       }\r
-                       strcat(Str[0] ,Str[mn-1]);\r
-               }\r
-               numRow   = 1 ;\r
-               numCol   = 1 ;\r
-               CreateVarFromPtr( Rhs+1, "S", &numRow, &numCol, Str ) ;\r
-               LhsVar(1) = Rhs+1 ; \r
- }\r
-  C2F(putlhsvar)();\r
-  return 0;\r
-}\r
+/*------------------------------------------------------------------------*/
+/* File: sci_strcat1.c                                                  */
+/* Copyright INRIA 2007                                                   */
+/* Authors : Cong Wu                                                      */
+/* desc : substitute a character string by another in a character string
+          using regular express .                                         */
+/*------------------------------------------------------------------------*/
+#include <string.h>
+#include <stdio.h>
+#include <ctype.h> 
+#include "gw_string.h"
+#include "machine.h"
+#include "stack-c.h"
+#include "machine.h"
+/*-------------------------------------------------------------------------------------*/
+
+/*-----------------------------------------------------------------------------------*/
+int C2F(sci_strcat1) _PARAMS((char *fname,unsigned long fname_len))
+{
+  char typ = '*';
+  char **Str,**Str2;
+  int x,m1,n1,m2,n2,mn,mn2,numRow,numCol;
+  Rhs = Max(0, Rhs);
+  CheckRhs(1,2);
+  switch ( VarType(1)) {
+  case 10 :
+               GetRhsVar(1,"S",&m1,&n1,&Str);
+               mn = m1*n1;  
+               GetRhsVar(2,"S",&m2,&n2,&Str2);
+               mn2 = m2*n2;
+               strcat(Str[0] ,Str2[0]);
+               if (mn>1) {
+                       for (x=1;x<mn-1;++x){
+                               if (strlen(Str2[0])==0) {
+                                       Scierror(999, "2th argument must not be an empty string");
+                                       return 1;
+                               }
+                               strcat(Str[0],Str[x]);
+                               strcat(Str[0] ,Str2[0]);
+                               
+                       }
+                       strcat(Str[0] ,Str[mn-1]);
+               }
+               numRow   = 1 ;
+               numCol   = 1 ;
+               CreateVarFromPtr( Rhs+1, "S", &numRow, &numCol, Str ) ;
+               LhsVar(1) = Rhs+1 ; 
+ }
+  C2F(putlhsvar)();
+  return 0;
+}
index f32df68..66bed98 100644 (file)
-/*------------------------------------------------------------------------*/\r
-/* File: sci_strsubst1.c                                                  */\r
-/* Copyright INRIA 2007                                                   */\r
-/* Authors : Cong Wu                                                      */\r
-/* desc : substitute a character string by another in a character string\r
-          using regular express .                                         */\r
-/*------------------------------------------------------------------------*/\r
-#include <string.h>\r
-#include <stdio.h>\r
-#include <ctype.h> \r
-#include "gw_string.h"\r
-#include "machine.h"\r
-#include "stack-c.h"\r
-#include "MALLOC.h" \r
-\r
-int numRow;\r
-int numCol;\r
-char *_replacedstr;\r
-static char* substr(const char*str, unsigned start, unsigned end)\r
-\r
-{\r
-\r
-unsigned n = end - start;\r
-\r
-static char stbuf[256];\r
-\r
-strncpy(stbuf, str + start, n);\r
-\r
-stbuf[n] = 0;\r
-\r
-return stbuf;\r
-\r
-}\r
-\r
-/*-------------------------------------------------------------------------------------*/\r
-\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
-int C2F(sci_stripblanks1) _PARAMS((char *fname,unsigned long fname_len))\r
-{\r
-\r
-\r
-  char **Str,**Str3;\r
-\r
-\r
-\r
-  \r
-  \r
-  \r
-  int x,m1,n1,mn,m2,n2,i,l2,n4,l1,l4=0;\r
-\r
-\r
-  \r
-  \r
-  \r
-\r
-\r
-\r
-\r
-  \r
-  Rhs = Max(0, Rhs);\r
-  CheckRhs(1,4);\r
-\r
-  switch ( VarType(1)) {\r
-  case 10 :\r
-    GetRhsVar(1,"S",&m1,&n1,&Str);\r
-       \r
-    mn = m1*n1;  \r
-       if (Rhs >= 2) {\r
-               GetRhsVar(2,"i",&m2,&n2,&l2);\r
-               n4=*istk(l2);\r
-               \r
-       }\r
-       else n4=0;\r
-\r
-\r
-       Str3=(char**)MALLOC(sizeof(char*)*(m1*n1));\r
-       for (i=0;i<m1*n1;i++)\r
-       {\r
-               Str3[i]=(char*)MALLOC(sizeof(char*)*(1));\r
-               strcpy(Str3[i],"");\r
-       }\r
-       for (x=0;x<mn;x++){\r
-        \r
-       \r
-                       if (n4==0) {\r
-                               l2=strlen(Str[x])-1;\r
-                               while (l2>0 &&  Str[x][l2]==' ')  --l2;\r
-                               l1=0;\r
-                while (l1<l2 &&  Str[x][l1]==' ') ++l1;\r
-                               if (l1<=l2 && Str[x][l1]!=' ') {\r
-                                       _replacedstr=substr(Str[x], l1, l2+1 );\r
-                                       strcpy(Str3[x],_replacedstr); \r
-                               }\r
-                       }\r
-                       else  {\r
-\r
-                l2=strlen(Str[x])-1;\r
-                               while (l2>0 &&  Str[x][l2]==9)  --l2;\r
-                               l1=0;\r
-                while (l1<l2 &&  Str[x][l1]==9) ++l1;\r
-                               if (l1<=l2 && Str[x][l1]!=9 && Str[x][l1]!=' ') {\r
-                                       _replacedstr=substr(Str[x], l1, l2+1 );\r
-                                       strcpy(Str3[x],_replacedstr); \r
-                               }\r
-\r
-                       }\r
-       \r
-  \r
-\r
-    \r
-                       \r
-                       \r
-       }\r
-  }\r
-\r
-       numRow   = m1;\r
-    numCol   = n1;\r
-       \r
-    CreateVarFromPtr( Rhs+1, "S", &numRow, &numCol, Str3) ;\r
-       LhsVar(1) = Rhs+1 ; \r
-    \r
-    FREE(Str3);\r
-\r
-\r
-\r
-  C2F(putlhsvar)();\r
-  return 0;\r
-  }\r
\r
-\r
-\r
-/*-----------------------------------------------------------------------------------*/\r
+/*------------------------------------------------------------------------*/
+/* File: sci_strsubst1.c                                                  */
+/* Copyright INRIA 2007                                                   */
+/* Authors : Cong Wu                                                      */
+/* desc : substitute a character string by another in a character string
+          using regular express .                                         */
+/*------------------------------------------------------------------------*/
+#include <string.h>
+#include <stdio.h>
+#include <ctype.h> 
+#include "gw_string.h"
+#include "machine.h"
+#include "stack-c.h"
+#include "MALLOC.h" 
+
+int numRow;
+int numCol;
+char *_replacedstr;
+static char* substr(const char*str, unsigned start, unsigned end)
+
+{
+
+unsigned n = end - start;
+
+static char stbuf[256];
+
+strncpy(stbuf, str + start, n);
+
+stbuf[n] = 0;
+
+return stbuf;
+
+}
+
+/*-------------------------------------------------------------------------------------*/
+
+
+/*-----------------------------------------------------------------------------------*/
+
+/*-----------------------------------------------------------------------------------*/
+int C2F(sci_stripblanks1) _PARAMS((char *fname,unsigned long fname_len))
+{
+
+
+  char **Str,**Str3;
+
+
+
+  
+  
+  
+  int x,m1,n1,mn,m2,n2,i,l2,n4,l1,l4=0;
+
+
+  
+  
+  
+
+
+
+
+  
+  Rhs = Max(0, Rhs);
+  CheckRhs(1,4);
+
+  switch ( VarType(1)) {
+  case 10 :
+    GetRhsVar(1,"S",&m1,&n1,&Str);
+       
+    mn = m1*n1;  
+       if (Rhs >= 2) {
+               GetRhsVar(2,"i",&m2,&n2,&l2);
+               n4=*istk(l2);
+               
+       }
+       else n4=0;
+
+
+       Str3=(char**)MALLOC(sizeof(char*)*(m1*n1));
+       for (i=0;i<m1*n1;i++)
+       {
+               Str3[i]=(char*)MALLOC(sizeof(char*)*(1));
+               strcpy(Str3[i],"");
+       }
+       for (x=0;x<mn;x++){
+        
+       
+                       if (n4==0) {
+                               l2=strlen(Str[x])-1;
+                               while (l2>0 &&  Str[x][l2]==' ')  --l2;
+                               l1=0;
+                while (l1<l2 &&  Str[x][l1]==' ') ++l1;
+                               if (l1<=l2 && Str[x][l1]!=' ') {
+                                       _replacedstr=substr(Str[x], l1, l2+1 );
+                                       strcpy(Str3[x],_replacedstr); 
+                               }
+                       }
+                       else  {
+
+                l2=strlen(Str[x])-1;
+                               while (l2>0 &&  Str[x][l2]==9)  --l2;
+                               l1=0;
+                while (l1<l2 &&  Str[x][l1]==9) ++l1;
+                               if (l1<=l2 && Str[x][l1]!=9 && Str[x][l1]!=' ') {
+                                       _replacedstr=substr(Str[x], l1, l2+1 );
+                                       strcpy(Str3[x],_replacedstr); 
+                               }
+
+                       }
+       
+  
+
+    
+                       
+                       
+       }
+  }
+
+       numRow   = m1;
+    numCol   = n1;
+       
+    CreateVarFromPtr( Rhs+1, "S", &numRow, &numCol, Str3) ;
+       LhsVar(1) = Rhs+1 ; 
+    
+    FREE(Str3);
+
+
+
+  C2F(putlhsvar)();
+  return 0;
+  }
+
+
+/*-----------------------------------------------------------------------------------*/
index 518b0c6..9730810 100644 (file)
@@ -1,38 +1,38 @@
-; --------------------------            \r
-; Scilab             \r
-; Allan CORNET            \r
-; INRIA 2006            \r
-; --------------------------            \r
-; string module primitives            \r
-; Don't edit if you aren't sure         \r
-; --------------------------   \r
-21 1 length\r
-21 2 part\r
-21 3 string\r
-21 4 convstr\r
-21 5 emptystr\r
-21 6 str2code\r
-21 7 code2str\r
-;21 8 sort\r
-;/* sort overloading */\r
-21 9 strcat\r
-21 10 strindex\r
-21 11 strsubst\r
-21 12 ascii\r
-21 13 grep\r
-21 14 tokens\r
-21 15 strsplit\r
-21 16 length1\r
-21 17 regexp\r
-21 18 strindex1\r
-21 19 strsubst1\r
-21 20 grep1\r
-21 21 regexppri\r
-21 22 emptystr1\r
-21 23 strcat1\r
-21 24 part1\r
-21 25 convstr1\r
-21 26 ascii1\r
-21 27 stripblanks1\r
-\r
-; --------------------------   \r
+; --------------------------            
+; Scilab             
+; Allan CORNET            
+; INRIA 2006            
+; --------------------------            
+; string module primitives            
+; Don't edit if you aren't sure         
+; --------------------------   
+21 1 length
+21 2 part
+21 3 string
+21 4 convstr
+21 5 emptystr
+21 6 str2code
+21 7 code2str
+;21 8 sort
+;/* sort overloading */
+21 9 strcat
+21 10 strindex
+21 11 strsubst
+21 12 ascii
+21 13 grep
+21 14 tokens
+21 15 strsplit
+21 16 length1
+21 17 regexp
+21 18 strindex1
+21 19 strsubst1
+21 20 grep1
+21 21 regexppri
+21 22 emptystr1
+21 23 strcat1
+21 24 part1
+21 25 convstr1
+21 26 ascii1
+21 27 stripblanks1
+
+; --------------------------   
index 2275565..e2be894 100644 (file)
@@ -1,24 +1,24 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2006 */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/ \r
-#include <windows.h> \r
-/*-----------------------------------------------------------------------------------*/ \r
-#pragma comment(lib,"../../../../bin/pcre.lib")\r
-/*-----------------------------------------------------------------------------------*/ \r
-int WINAPI DllMain (HINSTANCE hInstance , DWORD reason, PVOID pvReserved)\r
-{\r
-       switch (reason) \r
-       {\r
-       case DLL_PROCESS_ATTACH:\r
-               break;\r
-       case DLL_PROCESS_DETACH:\r
-               break;\r
-       case DLL_THREAD_ATTACH:\r
-               break;\r
-       case DLL_THREAD_DETACH:\r
-               break;\r
-       }\r
-       return 1;\r
-}\r
-/*-----------------------------------------------------------------------------------*/ \r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2006 */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/ 
+#include <windows.h> 
+/*-----------------------------------------------------------------------------------*/ 
+#pragma comment(lib,"../../../../bin/pcre.lib")
+/*-----------------------------------------------------------------------------------*/ 
+int WINAPI DllMain (HINSTANCE hInstance , DWORD reason, PVOID pvReserved)
+{
+       switch (reason) 
+       {
+       case DLL_PROCESS_ATTACH:
+               break;
+       case DLL_PROCESS_DETACH:
+               break;
+       case DLL_THREAD_ATTACH:
+               break;
+       case DLL_THREAD_DETACH:
+               break;
+       }
+       return 1;
+}
+/*-----------------------------------------------------------------------------------*/ 
index abaf0a3..d12890a 100644 (file)
@@ -1,39 +1,39 @@
-<?xml version="1.0" encoding="UTF-8"?>\r
-<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">\r
-<MAN>\r
-  <LANGUAGE>eng</LANGUAGE>\r
-\r
-  <TITLE>findfileassociation</TITLE>\r
-\r
-  <TYPE>Scilab Function</TYPE>\r
-\r
-  <DATE>$LastChangedDate: 2006-08-17 18:06:16 +0200 (jeu., 17 août 2006) $</DATE>\r
-\r
-  <SHORT_DESCRIPTION name="findfileassociation">Searches for and retrieves a file association-related string from the registry.(Windows only)</SHORT_DESCRIPTION>\r
-\r
-  <CALLING_SEQUENCE>\r
-    <CALLING_SEQUENCE_ITEM>findfileassociation('A file name extension, such as .txt')</CALLING_SEQUENCE_ITEM>\r
-  </CALLING_SEQUENCE>\r
-\r
-  <DESCRIPTION>\r
-    <P><VERB>findfileassociation('A file name extension, such as .txt')</VERB> Searches for and retrieves a file association-related string from the registry.</P>\r
-  </DESCRIPTION>\r
-  \r
-  <EXAMPLE><![CDATA[\r
-  findfileassociation('.txt')\r
-  findfileassociation('.sce')\r
-  findfileassociation('.xsl')\r
-  findfileassociation('.toto')\r
-  \r
-]]></EXAMPLE>\r
-\r
-  <SEE_ALSO>\r
-    <SEE_ALSO_ITEM>\r
-      <LINK>winopen</LINK>\r
-    </SEE_ALSO_ITEM>\r
-  </SEE_ALSO>\r
-\r
-  <AUTHORS>\r
-    <AUTHORS_ITEM>A.C.</AUTHORS_ITEM>\r
-  </AUTHORS>\r
+<?xml version="1.0" encoding="UTF-8"?>
+<!DOCTYPE MAN SYSTEM "../../../../modules/helptools/help.dtd">
+<MAN>
+  <LANGUAGE>eng</LANGUAGE>
+
+  <TITLE>findfileassociation</TITLE>
+
+  <TYPE>Scilab Function</TYPE>
+
+  <DATE>$LastChangedDate: 2006-08-17 18:06:16 +0200 (jeu., 17 août 2006) $</DATE>
+
+  <SHORT_DESCRIPTION name="findfileassociation">Searches for and retrieves a file association-related string from the registry.(Windows only)</SHORT_DESCRIPTION>
+
+  <CALLING_SEQUENCE>
+    <CALLING_SEQUENCE_ITEM>findfileassociation('A file name extension, such as .txt')</CALLING_SEQUENCE_ITEM>
+  </CALLING_SEQUENCE>
+
+  <DESCRIPTION>
+    <P><VERB>findfileassociation('A file name extension, such as .txt')</VERB> Searches for and retrieves a file association-related string from the registry.</P>
+  </DESCRIPTION>
+  
+  <EXAMPLE><![CDATA[
+  findfileassociation('.txt')
+  findfileassociation('.sce')
+  findfileassociation('.xsl')
+  findfileassociation('.toto')
+  
+]]></EXAMPLE>
+
+  <SEE_ALSO>
+    <SEE_ALSO_ITEM>
+      <LINK>winopen</LINK>
+    </SEE_ALSO_ITEM>
+  </SEE_ALSO>
+
+  <AUTHORS>
+    <AUTHORS_ITEM>A.C.</AUTHORS_ITEM>
+  </AUTHORS>
 </MAN>
\ No newline at end of file