Set svn-eolstyle to native
Pierre Marechal [Sat, 13 Oct 2007 12:23:09 +0000 (12:23 +0000)]
71 files changed:
scilab/modules/arnoldi/macros/buildmacros.bat
scilab/modules/arnoldi/macros/cleanmacros.bat
scilab/modules/boolean/macros/cleanmacros.bat
scilab/modules/cacsd/macros/cleanmacros.bat
scilab/modules/compatibility_functions/macros/cleanmacros.bat
scilab/modules/completion/macros/cleanmacros.bat
scilab/modules/console/macros/cleanmacros.bat
scilab/modules/core/macros/cleanmacros.bat
scilab/modules/data_structures/macros/cleanmacros.bat
scilab/modules/data_structures/unit_tests/lstcat.dia.ref
scilab/modules/development_tools/macros/cleanmacros.bat
scilab/modules/differential_equations/macros/cleanmacros.bat
scilab/modules/double/macros/cleanmacros.bat
scilab/modules/elementaries_functions/macros/cleanmacros.bat
scilab/modules/fftw/macros/cleanmacros.bat
scilab/modules/fileio/macros/cleanmacros.bat
scilab/modules/functions/macros/cleanmacros.bat
scilab/modules/functions/scripts/buildmacros/loadgenlib.sce
scilab/modules/graphics/macros/cleanmacros.bat
scilab/modules/gui/macros/cleanmacros.bat
scilab/modules/helptools/macros/cleanmacros.bat
scilab/modules/history_manager/macros/cleanmacros.bat
scilab/modules/incremental_link/macros/cleanmacros.bat
scilab/modules/integer/macros/cleanmacros.bat
scilab/modules/interpolation/macros/cleanmacros.bat
scilab/modules/intersci/macros/cleanmacros.bat
scilab/modules/io/macros/cleanmacros.bat
scilab/modules/javasci/macros/cleanmacros.bat
scilab/modules/jvm/macros/cleanmacros.bat
scilab/modules/linear_algebra/macros/cleanmacros.bat
scilab/modules/localization/macros/cleanmacros.bat
scilab/modules/m2sci/macros/cleanmacros.bat
scilab/modules/maple2scilab/macros/cleanmacros.bat
scilab/modules/metanet/macros/cleanmacros.bat
scilab/modules/mexlib/macros/cleanmacros.bat
scilab/modules/optimization/macros/cleanmacros.bat
scilab/modules/optimization/unit_tests/colnew.dia.ref
scilab/modules/others/macros/cleanmacros.bat
scilab/modules/overloading/macros/cleanmacros.bat
scilab/modules/polynomials/macros/cleanmacros.bat
scilab/modules/pvm/macros/cleanmacros.bat
scilab/modules/randlib/macros/cleanmacros.bat
scilab/modules/renderer/macros/cleanmacros.bat
scilab/modules/sci2c/macros/cleanmacros.bat
scilab/modules/scicos/macros/cleanmacros.bat
scilab/modules/scilab2fortran/macros/cleanmacros.bat
scilab/modules/scipad/macros/cleanmacros.bat
scilab/modules/shell/macros/cleanmacros.bat
scilab/modules/signal_processing/macros/cleanmacros.bat
scilab/modules/sound/macros/cleanmacros.bat
scilab/modules/sound/unit_tests/beep.dia.ref
scilab/modules/sound/unit_tests/savewave.dia.ref
scilab/modules/sparse/macros/cleanmacros.bat
scilab/modules/special_functions/macros/cleanmacros.bat
scilab/modules/statistics/macros/cleanmacros.bat
scilab/modules/string/macros/cleanmacros.bat
scilab/modules/symbolic/macros/cleanmacros.bat
scilab/modules/tclsci/macros/cleanmacros.bat
scilab/modules/tclsci/src/c/TCL_ArrayDim.c
scilab/modules/tclsci/src/c/TCL_ArrayDim.h
scilab/modules/tclsci/src/c/TCL_ArrayExist.c
scilab/modules/tclsci/src/c/TCL_ArrayExist.h
scilab/modules/tclsci/src/c/TCL_ArrayGetVar.c
scilab/modules/tclsci/src/c/TCL_ArrayGetVar.h
scilab/modules/tclsci/src/c/TCL_ArraySize.c
scilab/modules/tclsci/src/c/TCL_ArraySize.h
scilab/modules/tclsci/src/c/setvar.c
scilab/modules/tclsci/src/c/setvar.h
scilab/modules/texmacs/macros/cleanmacros.bat
scilab/modules/time/macros/cleanmacros.bat
scilab/modules/windows_tools/macros/cleanmacros.bat

index 8262392..a04e797 100644 (file)
@@ -1 +1 @@
-@..\..\..\bin\scilex -nwni -ns -e exec('buildmacros.sce');quit;\r
+@..\..\..\bin\scilex -nwni -ns -e exec('buildmacros.sce');quit;
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index 5ef7335..ad4c925 100644 (file)
@@ -1,26 +1,26 @@
\r
-// Copyright INRIA\r
\r
-if or(lstcat(list(1,2),list(4))<>list(1,2,4))  then bugmes();quit;end\r
\r
-if or(lstcat(list(1,2,4),list())<>list(1,2,4))  then bugmes();quit;end\r
\r
-if or(lstcat(list(1),list(2,4))<>list(1,2,4))  then bugmes();quit;end\r
\r
-if or(lstcat(list(),list(1,2,4))<>list(1,2,4))  then bugmes();quit;end\r
\r
\r
-if or(lstcat(list(1,2),4)<>list(1,2,4))  then bugmes();quit;end\r
\r
-if or(lstcat(1,list(2,4))<>list(1,2,4)) then bugmes();quit;end\r
\r
\r
-if or(lstcat(list(1),list(2),list(4))<>list(1,2,4))  then bugmes();quit;end\r
\r
\r
-if or(lstcat(list(1,2),list(),4)<>list(1,2,4))  then bugmes();quit;end\r
\r
\r
-if or(lstcat(list([1 2],['my string';'matrix']),list('foo',%s))<>list([1 2],..\r
-  ['my string';'matrix'],'foo',%s)) then bugmes();quit;end\r
\r
+// Copyright INRIA
+if or(lstcat(list(1,2),list(4))<>list(1,2,4))  then bugmes();quit;end
+if or(lstcat(list(1,2,4),list())<>list(1,2,4))  then bugmes();quit;end
+if or(lstcat(list(1),list(2,4))<>list(1,2,4))  then bugmes();quit;end
+if or(lstcat(list(),list(1,2,4))<>list(1,2,4))  then bugmes();quit;end
+if or(lstcat(list(1,2),4)<>list(1,2,4))  then bugmes();quit;end
+if or(lstcat(1,list(2,4))<>list(1,2,4)) then bugmes();quit;end
+if or(lstcat(list(1),list(2),list(4))<>list(1,2,4))  then bugmes();quit;end
+if or(lstcat(list(1,2),list(),4)<>list(1,2,4))  then bugmes();quit;end
+if or(lstcat(list([1 2],['my string';'matrix']),list('foo',%s))<>list([1 2],..
+  ['my string';'matrix'],'foo',%s)) then bugmes();quit;end
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index 964f70d..8581073 100644 (file)
@@ -1,28 +1,28 @@
-// ------------------------------------\r
-// Allan CORNET\r
-// INRIA 2007\r
-// ------------------------------------\r
-// Warning : order !!\r
-// list of  : filename , module\r
-listmacrostoload = ['fileparts','fileio';\r
-  'getshell','core';\r
-  'pathconvert','fileio';\r
-  'stripblanks','string';\r
-  'listfiles','fileio'\r
-  'unix_g','io';\r
-  'OS_Version','core';\r
-  '%c_a_c','overloading';\r
-  'basename','fileio';\r
-  'mputl','fileio';\r
-  'genlib','functions';\r
-  ];\r
-\r
-dim = size(listmacrostoload);\r
-\r
-for i = 1:dim(1)\r
- clear(listmacrostoload(i,1));\r
- exec(SCI+'/modules/'+listmacrostoload(i,2)+'/macros/'+listmacrostoload(i,1)+'.sci');\r
-end\r
-clear i;\r
-clear dim;\r
+// ------------------------------------
+// Allan CORNET
+// INRIA 2007
+// ------------------------------------
+// Warning : order !!
+// list of  : filename , module
+listmacrostoload = ['fileparts','fileio';
+  'getshell','core';
+  'pathconvert','fileio';
+  'stripblanks','string';
+  'listfiles','fileio'
+  'unix_g','io';
+  'OS_Version','core';
+  '%c_a_c','overloading';
+  'basename','fileio';
+  'mputl','fileio';
+  'genlib','functions';
+  ];
+
+dim = size(listmacrostoload);
+
+for i = 1:dim(1)
+ clear(listmacrostoload(i,1));
+ exec(SCI+'/modules/'+listmacrostoload(i,2)+'/macros/'+listmacrostoload(i,1)+'.sci');
+end
+clear i;
+clear dim;
 // ------------------------------------
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index bf537db..c3baa8e 100644 (file)
@@ -1,27 +1,27 @@
\r
-// Copyright INRIA\r
\r
-getf('bvode_tst.sci')\r
\r
\r
-[z,zf]=col1();\r
\r
-if maxi(abs(z-zf))>1.e-5 then bugmes();quit;end\r
\r
\r
-[z,zf]=col2(0);\r
\r
-// Fortran Coded version\r
\r
-if maxi(abs(z-zf))>1.e-2 then bugmes();quit;end\r
\r
\r
-[z,zf]=col2(1);\r
\r
-// Scilab coded version\r
\r
-if maxi(abs(z-zf))>1.e-2 then bugmes();quit;end\r
\r
\r
\r
\r
+// Copyright INRIA
+getf('bvode_tst.sci')
+[z,zf]=col1();
+if maxi(abs(z-zf))>1.e-5 then bugmes();quit;end
+[z,zf]=col2(0);
+// Fortran Coded version
+if maxi(abs(z-zf))>1.e-2 then bugmes();quit;end
+[z,zf]=col2(1);
+// Scilab coded version
+if maxi(abs(z-zf))>1.e-2 then bugmes();quit;end
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index 066bfbb..0f29a20 100644 (file)
@@ -1,11 +1,11 @@
\r
-old = beep();\r
\r
-if beep('on') <> 'on' then bugmes();quit;end;\r
\r
-if beep('off') <> 'off' then bugmes();quit;end;\r
\r
-if beep() <> 'off' then bugmes();quit;end;\r
\r
-beep(old);\r
\r
+old = beep();
+if beep('on') <> 'on' then bugmes();quit;end;
+if beep('off') <> 'off' then bugmes();quit;end;
+if beep() <> 'off' then bugmes();quit;end;
+beep(old);
index b51996b..acb2f79 100644 (file)
@@ -1,19 +1,19 @@
\r
-// At first we create 0.5 seconds of sound parameters.\r
\r
-t=soundsec(0.5);\r
\r
-// Then we generate the sound.\r
\r
-s=sin(440*t)+sin(220*t)/2+sin(880*t)/2;\r
\r
-[nr,nc]=size(t);\r
\r
-s(nc/2:nc)=sin(330*t(nc/2:nc));\r
\r
-savewave(TMPDIR+'/foo.wav',s);\r
-Writing Wave file: Microsoft PCM format, 1 channel, 22050 samp/sec\r
-        44100 byte/sec, 2 block align, 16 bits/samp\r
-Finished writing Wave file, 22050 data bytes\r
\r
\r
+// At first we create 0.5 seconds of sound parameters.
+t=soundsec(0.5);
+// Then we generate the sound.
+s=sin(440*t)+sin(220*t)/2+sin(880*t)/2;
+[nr,nc]=size(t);
+s(nc/2:nc)=sin(330*t(nc/2:nc));
+savewave(TMPDIR+'/foo.wav',s);
+Writing Wave file: Microsoft PCM format, 1 channel, 22050 samp/sec
+        44100 byte/sec, 2 block align, 16 bits/samp
+Finished writing Wave file, 22050 data bytes
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index 9975dbb..92a4f21 100644 (file)
@@ -1,65 +1,65 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* CORNET Allan */\r
-/* INRIA */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include <string.h>\r
-#include "TCL_ArrayDim.h"\r
-#include "error_scilab.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-#define TCL_SCILAB_VARIABLE_TMP "TclScilabTmpVar"\r
-#define CHAR_BLANK ' '\r
-#define CHAR_PERIOD ','\r
-/*-----------------------------------------------------------------------------------*/\r
-BOOL TCL_ArrayDim(Tcl_Interp *TCLinterpreter,char *VarName,int *m,int *n)\r
-{\r
-       BOOL Bok = FALSE;\r
-       *m=0;\r
-       *n=0;\r
-       if (strcmp(VarName,TCL_SCILAB_VARIABLE_TMP))\r
-       {\r
-               char MyTclCommand[2048];\r
-               char *StrArrayDims=NULL;\r
-\r
-               sprintf(MyTclCommand, "set TclScilabTmpVar [lsort -dictionary [array names %s *,*]];",VarName); \r
-\r
-               if ( Tcl_Eval(TCLinterpreter,MyTclCommand) == TCL_ERROR  )\r
-               {\r
-                       error_scilab(999,"Tcl Error : %s",TCLinterpreter->result);\r
-                       return 0;\r
-               }\r
-\r
-               StrArrayDims = (char *) Tcl_GetVar(TCLinterpreter, TCL_SCILAB_VARIABLE_TMP,TCL_GLOBAL_ONLY);\r
-\r
-               if (StrArrayDims)\r
-               {\r
-                       char *token = NULL;\r
-                       char StrDimensions[256];\r
-                       int DimX;\r
-                       int DimY;\r
-                       token = strrchr( StrArrayDims,CHAR_BLANK);\r
-                       if (token)\r
-                       {\r
-                               int loop=0;\r
-                               if (token[0]==CHAR_BLANK) token=&token[1];\r
-                               for(loop=0;loop<(int)strlen(token);loop++) if (token[loop] == CHAR_PERIOD) token[loop]=CHAR_BLANK;\r
-                               sprintf(StrDimensions,"%s",token);\r
-                               sscanf(StrDimensions,"%d %d",&DimX,&DimY);\r
-                               *n=DimX;\r
-                               *m=DimY;\r
-                       }\r
-                       else /* just a element */\r
-                       {\r
-                               int loop=0;\r
-                               for(loop=0;loop<(int)strlen(StrArrayDims);loop++) if ( StrArrayDims[loop] == CHAR_PERIOD)  StrArrayDims[loop]=CHAR_BLANK;\r
-                               sprintf(StrDimensions,"%s", StrArrayDims);\r
-                               sscanf(StrDimensions,"%d %d",&DimX,&DimY);\r
-                               *n=DimX;\r
-                               *m=DimY;\r
-                       }\r
-                       Tcl_UnsetVar(TCLinterpreter, TCL_SCILAB_VARIABLE_TMP, TCL_GLOBAL_ONLY);\r
-                       Bok = TRUE;\r
-               }\r
-       }\r
-       return Bok;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* CORNET Allan */
+/* INRIA */
+/*-----------------------------------------------------------------------------------*/
+#include <string.h>
+#include "TCL_ArrayDim.h"
+#include "error_scilab.h"
+/*-----------------------------------------------------------------------------------*/
+#define TCL_SCILAB_VARIABLE_TMP "TclScilabTmpVar"
+#define CHAR_BLANK ' '
+#define CHAR_PERIOD ','
+/*-----------------------------------------------------------------------------------*/
+BOOL TCL_ArrayDim(Tcl_Interp *TCLinterpreter,char *VarName,int *m,int *n)
+{
+       BOOL Bok = FALSE;
+       *m=0;
+       *n=0;
+       if (strcmp(VarName,TCL_SCILAB_VARIABLE_TMP))
+       {
+               char MyTclCommand[2048];
+               char *StrArrayDims=NULL;
+
+               sprintf(MyTclCommand, "set TclScilabTmpVar [lsort -dictionary [array names %s *,*]];",VarName); 
+
+               if ( Tcl_Eval(TCLinterpreter,MyTclCommand) == TCL_ERROR  )
+               {
+                       error_scilab(999,"Tcl Error : %s",TCLinterpreter->result);
+                       return 0;
+               }
+
+               StrArrayDims = (char *) Tcl_GetVar(TCLinterpreter, TCL_SCILAB_VARIABLE_TMP,TCL_GLOBAL_ONLY);
+
+               if (StrArrayDims)
+               {
+                       char *token = NULL;
+                       char StrDimensions[256];
+                       int DimX;
+                       int DimY;
+                       token = strrchr( StrArrayDims,CHAR_BLANK);
+                       if (token)
+                       {
+                               int loop=0;
+                               if (token[0]==CHAR_BLANK) token=&token[1];
+                               for(loop=0;loop<(int)strlen(token);loop++) if (token[loop] == CHAR_PERIOD) token[loop]=CHAR_BLANK;
+                               sprintf(StrDimensions,"%s",token);
+                               sscanf(StrDimensions,"%d %d",&DimX,&DimY);
+                               *n=DimX;
+                               *m=DimY;
+                       }
+                       else /* just a element */
+                       {
+                               int loop=0;
+                               for(loop=0;loop<(int)strlen(StrArrayDims);loop++) if ( StrArrayDims[loop] == CHAR_PERIOD)  StrArrayDims[loop]=CHAR_BLANK;
+                               sprintf(StrDimensions,"%s", StrArrayDims);
+                               sscanf(StrDimensions,"%d %d",&DimX,&DimY);
+                               *n=DimX;
+                               *m=DimY;
+                       }
+                       Tcl_UnsetVar(TCLinterpreter, TCL_SCILAB_VARIABLE_TMP, TCL_GLOBAL_ONLY);
+                       Bok = TRUE;
+               }
+       }
+       return Bok;
+}
+/*-----------------------------------------------------------------------------------*/
index 85abb61..9887a92 100644 (file)
@@ -1,21 +1,21 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* CORNET Allan */\r
-/* INRIA */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __TCL_ARRAYDIM_H__\r
-#define __TCL_ARRAYDIM_H__\r
-\r
-#include "TCL_Global.h"\r
-\r
-/**\r
-* TCL_ArrayDim get dimension of a TCL Array\r
-* @param[in] TCLinterpreter : TCL Interpreter\r
-* @param[in] VarName : TCL variable name\r
-* @param[out] m size row \r
-* @param[out] n size col\r
-* @return FALSE or TRUE (OK)\r
-*/\r
-BOOL TCL_ArrayDim(Tcl_Interp *TCLinterpreter,char *VarName,int *m,int *n);\r
-\r
-#endif /* __TCL_ARRAYDIM_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* CORNET Allan */
+/* INRIA */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __TCL_ARRAYDIM_H__
+#define __TCL_ARRAYDIM_H__
+
+#include "TCL_Global.h"
+
+/**
+* TCL_ArrayDim get dimension of a TCL Array
+* @param[in] TCLinterpreter : TCL Interpreter
+* @param[in] VarName : TCL variable name
+* @param[out] m size row 
+* @param[out] n size col
+* @return FALSE or TRUE (OK)
+*/
+BOOL TCL_ArrayDim(Tcl_Interp *TCLinterpreter,char *VarName,int *m,int *n);
+
+#endif /* __TCL_ARRAYDIM_H__ */
+/*-----------------------------------------------------------------------------------*/
index 4903d6c..d145d5b 100644 (file)
@@ -1,39 +1,39 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* CORNET Allan */\r
-/* INRIA */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "TCL_ArrayExist.h"\r
-#include "error_scilab.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-#define TCL_VAR_NAME_TMP "TclScilabTmpVar"\r
-/*-----------------------------------------------------------------------------------*/\r
-BOOL TCL_ArrayExist(Tcl_Interp *TCLinterpreter,char *VarName)\r
-{\r
-       BOOL bExist = FALSE;\r
-\r
-       if (strcmp(VarName,TCL_VAR_NAME_TMP))\r
-       {\r
-               char MyTclCommand[2048];\r
-               char *StrArrayExist=NULL;\r
-\r
-               sprintf(MyTclCommand, "set TclScilabTmpVar [array exists %s];",VarName); \r
-\r
-               if ( Tcl_Eval(TCLinterpreter,MyTclCommand) == TCL_ERROR  )\r
-               {\r
-                       error_scilab(999,"Tcl Error : %s",TCLinterpreter->result);\r
-                       return FALSE;\r
-               }\r
-\r
-               StrArrayExist = (char *) Tcl_GetVar(TCLinterpreter, TCL_VAR_NAME_TMP,TCL_GLOBAL_ONLY);\r
-\r
-               if (StrArrayExist)\r
-               {\r
-                       int r  = (int)atoi(StrArrayExist);\r
-                       if (r) bExist = TRUE;\r
-                       Tcl_UnsetVar(TCLinterpreter,TCL_VAR_NAME_TMP, TCL_GLOBAL_ONLY);\r
-               }\r
-       }\r
-\r
-       return bExist;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* CORNET Allan */
+/* INRIA */
+/*-----------------------------------------------------------------------------------*/
+#include "TCL_ArrayExist.h"
+#include "error_scilab.h"
+/*-----------------------------------------------------------------------------------*/
+#define TCL_VAR_NAME_TMP "TclScilabTmpVar"
+/*-----------------------------------------------------------------------------------*/
+BOOL TCL_ArrayExist(Tcl_Interp *TCLinterpreter,char *VarName)
+{
+       BOOL bExist = FALSE;
+
+       if (strcmp(VarName,TCL_VAR_NAME_TMP))
+       {
+               char MyTclCommand[2048];
+               char *StrArrayExist=NULL;
+
+               sprintf(MyTclCommand, "set TclScilabTmpVar [array exists %s];",VarName); 
+
+               if ( Tcl_Eval(TCLinterpreter,MyTclCommand) == TCL_ERROR  )
+               {
+                       error_scilab(999,"Tcl Error : %s",TCLinterpreter->result);
+                       return FALSE;
+               }
+
+               StrArrayExist = (char *) Tcl_GetVar(TCLinterpreter, TCL_VAR_NAME_TMP,TCL_GLOBAL_ONLY);
+
+               if (StrArrayExist)
+               {
+                       int r  = (int)atoi(StrArrayExist);
+                       if (r) bExist = TRUE;
+                       Tcl_UnsetVar(TCLinterpreter,TCL_VAR_NAME_TMP, TCL_GLOBAL_ONLY);
+               }
+       }
+
+       return bExist;
+}
+/*-----------------------------------------------------------------------------------*/
index 1e3c5eb..0a10880 100644 (file)
@@ -1,20 +1,20 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* CORNET Allan */\r
-/* INRIA */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __TCL_ARRAYEXIST_H__\r
-#define __TCL_ARRAYEXIST_H__\r
-\r
-#include "TCL_Global.h"\r
-\r
-/**\r
-* TCL_ArrayExist\r
-* check if "VarName" array exist\r
-* @param[in] TCLinterpreter\r
-* @param[in] VarName\r
-* @return FALSE or TRUE (Exist) \r
-*/\r
-BOOL TCL_ArrayExist(Tcl_Interp *TCLinterpreter,char *VarName);\r
-\r
-#endif /* __TCL_ARRAYEXIST_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* CORNET Allan */
+/* INRIA */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __TCL_ARRAYEXIST_H__
+#define __TCL_ARRAYEXIST_H__
+
+#include "TCL_Global.h"
+
+/**
+* TCL_ArrayExist
+* check if "VarName" array exist
+* @param[in] TCLinterpreter
+* @param[in] VarName
+* @return FALSE or TRUE (Exist) 
+*/
+BOOL TCL_ArrayExist(Tcl_Interp *TCLinterpreter,char *VarName);
+
+#endif /* __TCL_ARRAYEXIST_H__ */
+/*-----------------------------------------------------------------------------------*/
index 1005bb0..4d26f12 100644 (file)
@@ -1,35 +1,35 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* CORNET Allan */\r
-/* INRIA */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include <string.h>\r
-#include <stdio.h>\r
-#include "TCL_ArrayGetVar.h"\r
-#include "MALLOC.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-#define TCL_NOT_DEFINE "#NOT DEF.#"\r
-/*-----------------------------------------------------------------------------------*/\r
-char *TCL_ArrayGetVar(Tcl_Interp *TCLinterpreter,char *VarName,int i,int j)\r
-{\r
-       char *RetStr=NULL;\r
-       char * StrValue=NULL;\r
-       char ArrayName[2048];\r
-\r
-       sprintf(ArrayName,"%s(%d,%d)",VarName,i,j);\r
-\r
-       RetStr = (char*)Tcl_GetVar(TCLinterpreter, ArrayName, TCL_GLOBAL_ONLY);\r
-\r
-       if (RetStr)\r
-       {\r
-               StrValue=MALLOC((strlen(RetStr)+1)*sizeof(char));\r
-               sprintf(StrValue,"%s",RetStr);\r
-       }\r
-       else\r
-       {\r
-               StrValue=MALLOC((strlen(TCL_NOT_DEFINE)+1)*sizeof(char));\r
-               sprintf(StrValue,"%s",TCL_NOT_DEFINE);\r
-       }\r
-\r
-       return StrValue;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* CORNET Allan */
+/* INRIA */
+/*-----------------------------------------------------------------------------------*/
+#include <string.h>
+#include <stdio.h>
+#include "TCL_ArrayGetVar.h"
+#include "MALLOC.h"
+/*-----------------------------------------------------------------------------------*/
+#define TCL_NOT_DEFINE "#NOT DEF.#"
+/*-----------------------------------------------------------------------------------*/
+char *TCL_ArrayGetVar(Tcl_Interp *TCLinterpreter,char *VarName,int i,int j)
+{
+       char *RetStr=NULL;
+       char * StrValue=NULL;
+       char ArrayName[2048];
+
+       sprintf(ArrayName,"%s(%d,%d)",VarName,i,j);
+
+       RetStr = (char*)Tcl_GetVar(TCLinterpreter, ArrayName, TCL_GLOBAL_ONLY);
+
+       if (RetStr)
+       {
+               StrValue=MALLOC((strlen(RetStr)+1)*sizeof(char));
+               sprintf(StrValue,"%s",RetStr);
+       }
+       else
+       {
+               StrValue=MALLOC((strlen(TCL_NOT_DEFINE)+1)*sizeof(char));
+               sprintf(StrValue,"%s",TCL_NOT_DEFINE);
+       }
+
+       return StrValue;
+}
+/*-----------------------------------------------------------------------------------*/
index 88a30f5..78a909c 100644 (file)
@@ -1,21 +1,21 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* CORNET Allan */\r
-/* INRIA */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __TCL_ARRAYGETVAR_H__\r
-#define __TCL_ARRAYGETVAR_H__\r
-\r
-#include "TCL_Global.h"\r
-\r
-/**\r
-* TCL_ArrayGetVar\r
-* @param[in] Tcl_Interp : TCL interpreter\r
-* @param[in] VarName : Variable Name (Tcl Array)\r
-* @param[in] i position\r
-* @param[in] j position\r
-* @return value (string)\r
-*/\r
-char *TCL_ArrayGetVar(Tcl_Interp *TCLinterpreter,char *VarName,int i,int j);\r
-\r
-#endif /* __TCL_ARRAYGETVAR_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* CORNET Allan */
+/* INRIA */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __TCL_ARRAYGETVAR_H__
+#define __TCL_ARRAYGETVAR_H__
+
+#include "TCL_Global.h"
+
+/**
+* TCL_ArrayGetVar
+* @param[in] Tcl_Interp : TCL interpreter
+* @param[in] VarName : Variable Name (Tcl Array)
+* @param[in] i position
+* @param[in] j position
+* @return value (string)
+*/
+char *TCL_ArrayGetVar(Tcl_Interp *TCLinterpreter,char *VarName,int i,int j);
+
+#endif /* __TCL_ARRAYGETVAR_H__ */
+/*-----------------------------------------------------------------------------------*/
index 536504c..664442f 100644 (file)
@@ -1,38 +1,38 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* CORNET Allan */\r
-/* INRIA */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include <stdio.h>\r
-#include <string.h>\r
-#include "TCL_ArraySize.h"\r
-#include "error_scilab.h"\r
-#include "MALLOC.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-int TCL_ArraySize(Tcl_Interp *TCLinterpreter,char *VarName)\r
-{\r
-       int ArraySize=0;\r
-\r
-       if (strcmp(VarName,"TclScilabTmpVar"))\r
-       {\r
-               char MyTclCommand[2048];\r
-               char *StrArraySize=NULL;\r
-\r
-               sprintf(MyTclCommand, "set TclScilabTmpVar [array size %s];",VarName); \r
-\r
-               if ( Tcl_Eval(TCLinterpreter,MyTclCommand) == TCL_ERROR  )\r
-               {\r
-                       error_scilab(999,"Tcl Error : %s",TCLinterpreter->result);\r
-                       return 0;\r
-               }\r
-\r
-               StrArraySize = (char *) Tcl_GetVar(TCLinterpreter, "TclScilabTmpVar",TCL_GLOBAL_ONLY);\r
-\r
-               if (StrArraySize)\r
-               {\r
-                       ArraySize=(int)atoi(StrArraySize);\r
-                       Tcl_UnsetVar(TCLinterpreter, "TclScilabTmpVar", TCL_GLOBAL_ONLY);\r
-               }\r
-       }\r
-       return ArraySize;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* CORNET Allan */
+/* INRIA */
+/*-----------------------------------------------------------------------------------*/
+#include <stdio.h>
+#include <string.h>
+#include "TCL_ArraySize.h"
+#include "error_scilab.h"
+#include "MALLOC.h"
+/*-----------------------------------------------------------------------------------*/
+int TCL_ArraySize(Tcl_Interp *TCLinterpreter,char *VarName)
+{
+       int ArraySize=0;
+
+       if (strcmp(VarName,"TclScilabTmpVar"))
+       {
+               char MyTclCommand[2048];
+               char *StrArraySize=NULL;
+
+               sprintf(MyTclCommand, "set TclScilabTmpVar [array size %s];",VarName); 
+
+               if ( Tcl_Eval(TCLinterpreter,MyTclCommand) == TCL_ERROR  )
+               {
+                       error_scilab(999,"Tcl Error : %s",TCLinterpreter->result);
+                       return 0;
+               }
+
+               StrArraySize = (char *) Tcl_GetVar(TCLinterpreter, "TclScilabTmpVar",TCL_GLOBAL_ONLY);
+
+               if (StrArraySize)
+               {
+                       ArraySize=(int)atoi(StrArraySize);
+                       Tcl_UnsetVar(TCLinterpreter, "TclScilabTmpVar", TCL_GLOBAL_ONLY);
+               }
+       }
+       return ArraySize;
+}
+/*-----------------------------------------------------------------------------------*/
index 1b77cb9..36b8091 100644 (file)
@@ -1,19 +1,19 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* CORNET Allan */\r
-/* INRIA */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __TCL_ARRAYSIZE_H__\r
-#define __TCL_ARRAYSIZE_H__\r
-\r
-#include "TCL_Global.h"\r
-\r
-/**\r
-* TCL_ArraySize\r
-* @param[in] Tcl_Interp TCL Interpreter\r
-* @param[in] VarName TCL Variable name\r
-* @return 0 or 1 (OK)\r
-*/\r
-int TCL_ArraySize(Tcl_Interp *TCLinterpreter,char *VarName);\r
-\r
-#endif /* __TCL_ARRAYSIZE_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* CORNET Allan */
+/* INRIA */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __TCL_ARRAYSIZE_H__
+#define __TCL_ARRAYSIZE_H__
+
+#include "TCL_Global.h"
+
+/**
+* TCL_ArraySize
+* @param[in] Tcl_Interp TCL Interpreter
+* @param[in] VarName TCL Variable name
+* @return 0 or 1 (OK)
+*/
+int TCL_ArraySize(Tcl_Interp *TCLinterpreter,char *VarName);
+
+#endif /* __TCL_ARRAYSIZE_H__ */
+/*-----------------------------------------------------------------------------------*/
index d371f17..32acb2e 100644 (file)
-/*-----------------------------------------------------------------------------------*/\r
-/* CORNET Allan */\r
-/* INRIA */\r
-/*-----------------------------------------------------------------------------------*/\r
-#include "setvar.h"\r
-#include "error_scilab.h"\r
-#include "MALLOC.h"\r
-/*-----------------------------------------------------------------------------------*/\r
-BOOL SetVarMatrix(Tcl_Interp *TCLinterpreter,char *VarName,int ptrValues,int m,int n)\r
-{\r
-       BOOL bOK = TRUE;\r
-       int i=0,j=0;\r
-       int k=0;\r
-\r
-       double *MatrixDouble=(double*)MALLOC((m*n)*sizeof(double));\r
-\r
-       /* Efface valeur precedente */\r
-       Tcl_UnsetVar(TCLinterpreter, VarName, TCL_GLOBAL_ONLY);\r
-\r
-       for (i=0;i<m*n;i++)\r
-       {\r
-               MatrixDouble[i]=*stk(ptrValues++);\r
-       }\r
-\r
-       k=0;\r
-       for (i=1;i<m+1;i++)\r
-       {\r
-               char VarValueWithIndice[2048];\r
-               char VarNameWithIndice[2048];\r
-\r
-               for (j=1;j<n+1;j++)\r
-               {       \r
-                       int bOKsprintf1=0;\r
-                       int bOKsprintf2=0;\r
-\r
-                       bOKsprintf1=sprintf(VarNameWithIndice,"%s(%d,%d)",VarName,i,j);\r
-                       bOKsprintf2=sprintf(VarValueWithIndice,"%.10lf",MatrixDouble[(i-1)+m*(j-1)]);\r
-\r
-                       if ( (bOKsprintf1 == -1) || (bOKsprintf2 == -1) )\r
-                       {\r
-                               error_scilab(999,"Variable too long.");\r
-                               return FALSE;\r
-                       }\r
-\r
-                       if (TCLinterpreter == NULL)\r
-                       {\r
-                               error_scilab(999,"TCL_SetVar: Error TCL interpreter not initialized.");\r
-                               return FALSE;\r
-                       }\r
-\r
-                       if (!Tcl_SetVar(TCLinterpreter,VarNameWithIndice,VarValueWithIndice,0))\r
-                       {\r
-                               bOK = FALSE ;\r
-                       }\r
-               }\r
-       }\r
-       if (MatrixDouble) {FREE(MatrixDouble);MatrixDouble=NULL;}\r
-       return bOK;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-BOOL SetVarScalar(Tcl_Interp *TCLinterpreter,char *VarName,double VarValue)\r
-{\r
-       BOOL bOK = FALSE;\r
-\r
-       /* just a scalar */\r
-       char buffer[2048];\r
-\r
-       sprintf(buffer,"%.10lf", VarValue);\r
-\r
-       if (TCLinterpreter == NULL)\r
-       {\r
-               error_scilab(999,"TCL_SetVar: Error TCL interpreter not initialized.");\r
-               return FALSE;\r
-       }\r
-\r
-       /* Efface valeur precedente */\r
-       Tcl_UnsetVar(TCLinterpreter, VarName, TCL_GLOBAL_ONLY);\r
-\r
-       if (!Tcl_SetVar(TCLinterpreter,VarName,buffer,TCL_GLOBAL_ONLY))\r
-       {\r
-               bOK = FALSE ;\r
-       }\r
-       else\r
-       {\r
-               bOK = TRUE;\r
-       }\r
-       return bOK;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-BOOL SetVarStrings(Tcl_Interp *TCLinterpreter,char *VarName,char **Str,int m,int n)\r
-{\r
-       BOOL bOK = FALSE;\r
-\r
-       int i=0,j=0;\r
-       int l=0;\r
-       BOOL TestOnAllTcl_SetVar = TRUE;\r
-\r
-       if (TCLinterpreter == NULL)\r
-       {\r
-               error_scilab(999,"TCL_SetVar: Error TCL interpreter not initialized.");\r
-               return FALSE;\r
-       }\r
-\r
-       for (j=1;j<n+1;j++)\r
-       {\r
-               for (i=1;i<m+1;i++)\r
-               {       \r
-                       char VarArrayName[1024];\r
-                       sprintf(VarArrayName,"%s(%d,%d)",VarName,i,j);\r
-                       if (Tcl_SetVar(TCLinterpreter, VarArrayName, Str[l++], TCL_GLOBAL_ONLY))\r
-                       {\r
-                               if (TestOnAllTcl_SetVar) TestOnAllTcl_SetVar=TRUE;\r
-                       }\r
-                       else\r
-                       {\r
-                               TestOnAllTcl_SetVar = FALSE;\r
-                       }\r
-               }\r
-       }\r
-       bOK = TestOnAllTcl_SetVar;\r
-\r
-       return bOK;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
-BOOL SetVarAString(Tcl_Interp *TCLinterpreter,char *VarName,char **Str)\r
-{\r
-       BOOL bOK = FALSE;\r
-\r
-       if (TCLinterpreter == NULL)\r
-       {\r
-               error_scilab(999,"TCL_SetVar: Error TCL interpreter not initialized.");\r
-               return FALSE;\r
-       }\r
-\r
-       if ( !Tcl_SetVar(TCLinterpreter, VarName, Str[0], TCL_GLOBAL_ONLY) )\r
-       {\r
-               bOK = FALSE;\r
-       }\r
-       else\r
-       {\r
-               bOK = TRUE;\r
-       }\r
-       return bOK;\r
-}\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* CORNET Allan */
+/* INRIA */
+/*-----------------------------------------------------------------------------------*/
+#include "setvar.h"
+#include "error_scilab.h"
+#include "MALLOC.h"
+/*-----------------------------------------------------------------------------------*/
+BOOL SetVarMatrix(Tcl_Interp *TCLinterpreter,char *VarName,int ptrValues,int m,int n)
+{
+       BOOL bOK = TRUE;
+       int i=0,j=0;
+       int k=0;
+
+       double *MatrixDouble=(double*)MALLOC((m*n)*sizeof(double));
+
+       /* Efface valeur precedente */
+       Tcl_UnsetVar(TCLinterpreter, VarName, TCL_GLOBAL_ONLY);
+
+       for (i=0;i<m*n;i++)
+       {
+               MatrixDouble[i]=*stk(ptrValues++);
+       }
+
+       k=0;
+       for (i=1;i<m+1;i++)
+       {
+               char VarValueWithIndice[2048];
+               char VarNameWithIndice[2048];
+
+               for (j=1;j<n+1;j++)
+               {       
+                       int bOKsprintf1=0;
+                       int bOKsprintf2=0;
+
+                       bOKsprintf1=sprintf(VarNameWithIndice,"%s(%d,%d)",VarName,i,j);
+                       bOKsprintf2=sprintf(VarValueWithIndice,"%.10lf",MatrixDouble[(i-1)+m*(j-1)]);
+
+                       if ( (bOKsprintf1 == -1) || (bOKsprintf2 == -1) )
+                       {
+                               error_scilab(999,"Variable too long.");
+                               return FALSE;
+                       }
+
+                       if (TCLinterpreter == NULL)
+                       {
+                               error_scilab(999,"TCL_SetVar: Error TCL interpreter not initialized.");
+                               return FALSE;
+                       }
+
+                       if (!Tcl_SetVar(TCLinterpreter,VarNameWithIndice,VarValueWithIndice,0))
+                       {
+                               bOK = FALSE ;
+                       }
+               }
+       }
+       if (MatrixDouble) {FREE(MatrixDouble);MatrixDouble=NULL;}
+       return bOK;
+}
+/*-----------------------------------------------------------------------------------*/
+BOOL SetVarScalar(Tcl_Interp *TCLinterpreter,char *VarName,double VarValue)
+{
+       BOOL bOK = FALSE;
+
+       /* just a scalar */
+       char buffer[2048];
+
+       sprintf(buffer,"%.10lf", VarValue);
+
+       if (TCLinterpreter == NULL)
+       {
+               error_scilab(999,"TCL_SetVar: Error TCL interpreter not initialized.");
+               return FALSE;
+       }
+
+       /* Efface valeur precedente */
+       Tcl_UnsetVar(TCLinterpreter, VarName, TCL_GLOBAL_ONLY);
+
+       if (!Tcl_SetVar(TCLinterpreter,VarName,buffer,TCL_GLOBAL_ONLY))
+       {
+               bOK = FALSE ;
+       }
+       else
+       {
+               bOK = TRUE;
+       }
+       return bOK;
+}
+/*-----------------------------------------------------------------------------------*/
+BOOL SetVarStrings(Tcl_Interp *TCLinterpreter,char *VarName,char **Str,int m,int n)
+{
+       BOOL bOK = FALSE;
+
+       int i=0,j=0;
+       int l=0;
+       BOOL TestOnAllTcl_SetVar = TRUE;
+
+       if (TCLinterpreter == NULL)
+       {
+               error_scilab(999,"TCL_SetVar: Error TCL interpreter not initialized.");
+               return FALSE;
+       }
+
+       for (j=1;j<n+1;j++)
+       {
+               for (i=1;i<m+1;i++)
+               {       
+                       char VarArrayName[1024];
+                       sprintf(VarArrayName,"%s(%d,%d)",VarName,i,j);
+                       if (Tcl_SetVar(TCLinterpreter, VarArrayName, Str[l++], TCL_GLOBAL_ONLY))
+                       {
+                               if (TestOnAllTcl_SetVar) TestOnAllTcl_SetVar=TRUE;
+                       }
+                       else
+                       {
+                               TestOnAllTcl_SetVar = FALSE;
+                       }
+               }
+       }
+       bOK = TestOnAllTcl_SetVar;
+
+       return bOK;
+}
+/*-----------------------------------------------------------------------------------*/
+BOOL SetVarAString(Tcl_Interp *TCLinterpreter,char *VarName,char **Str)
+{
+       BOOL bOK = FALSE;
+
+       if (TCLinterpreter == NULL)
+       {
+               error_scilab(999,"TCL_SetVar: Error TCL interpreter not initialized.");
+               return FALSE;
+       }
+
+       if ( !Tcl_SetVar(TCLinterpreter, VarName, Str[0], TCL_GLOBAL_ONLY) )
+       {
+               bOK = FALSE;
+       }
+       else
+       {
+               bOK = TRUE;
+       }
+       return bOK;
+}
+/*-----------------------------------------------------------------------------------*/
index f75892f..d79f31c 100644 (file)
@@ -1,52 +1,52 @@
-/*-----------------------------------------------------------------------------------*/\r
-/* INRIA 2007 */\r
-/* Sylvestre LEDRU */\r
-/* Allan CORNET */\r
-/*-----------------------------------------------------------------------------------*/\r
-#ifndef __SETVAR_H__\r
-#define __SETVAR_H__\r
-\r
-#include "TCL_Global.h"\r
-\r
-/**\r
-* Set variable "strings array" in TCL\r
-* @param TCLinterpreter TCL interpreter   \r
-* @param VarName   TCL Variable name\r
-* @param Str   values (string)\r
-* @param m  row\r
-* @param n  col\r
-* @return TRUE or FALSE\r
-*/\r
-BOOL SetVarStrings(Tcl_Interp *TCLinterpreter,char *VarName,char **Str,int m,int n);\r
-\r
-/**\r
-* Set a variable in TCL\r
-* @param TCLinterpreter TCL interpreter\r
-* @param VarName  TCL variable name\r
-* @param Str  value \r
-* @return TRUE or FALSE\r
-*/\r
-BOOL SetVarAString(Tcl_Interp *TCLinterpreter,char *VarName,char **Str);\r
-\r
-/**\r
-* Set a "matrix" in TCL\r
-* @param TCLinterpreter  TCL interpreter  \r
-* @param VarName TCL variable name  \r
-* @param ptrValues Scilab ptr on stack stk(ptrValues)\r
-* @param m row\r
-* @param n col\r
-* @return TRUE or FALSE\r
-*/\r
-BOOL SetVarMatrix(Tcl_Interp *TCLinterpreter,char *VarName,int ptrValues,int m,int n);\r
-\r
-/**\r
-* Set a scalar in TCL\r
-* @param TCLinterpreter   TCL interpreter    \r
-* @param VarName  TCL variable name \r
-* @param VarValue value\r
-* @return TRUE or FALSE\r
-*/\r
-BOOL SetVarScalar(Tcl_Interp *TCLinterpreter,char *VarName,double VarValue);\r
-\r
-#endif /* __SETVAR_H__ */\r
-/*-----------------------------------------------------------------------------------*/\r
+/*-----------------------------------------------------------------------------------*/
+/* INRIA 2007 */
+/* Sylvestre LEDRU */
+/* Allan CORNET */
+/*-----------------------------------------------------------------------------------*/
+#ifndef __SETVAR_H__
+#define __SETVAR_H__
+
+#include "TCL_Global.h"
+
+/**
+* Set variable "strings array" in TCL
+* @param TCLinterpreter TCL interpreter   
+* @param VarName   TCL Variable name
+* @param Str   values (string)
+* @param m  row
+* @param n  col
+* @return TRUE or FALSE
+*/
+BOOL SetVarStrings(Tcl_Interp *TCLinterpreter,char *VarName,char **Str,int m,int n);
+
+/**
+* Set a variable in TCL
+* @param TCLinterpreter TCL interpreter
+* @param VarName  TCL variable name
+* @param Str  value 
+* @return TRUE or FALSE
+*/
+BOOL SetVarAString(Tcl_Interp *TCLinterpreter,char *VarName,char **Str);
+
+/**
+* Set a "matrix" in TCL
+* @param TCLinterpreter  TCL interpreter  
+* @param VarName TCL variable name  
+* @param ptrValues Scilab ptr on stack stk(ptrValues)
+* @param m row
+* @param n col
+* @return TRUE or FALSE
+*/
+BOOL SetVarMatrix(Tcl_Interp *TCLinterpreter,char *VarName,int ptrValues,int m,int n);
+
+/**
+* Set a scalar in TCL
+* @param TCLinterpreter   TCL interpreter    
+* @param VarName  TCL variable name 
+* @param VarValue value
+* @return TRUE or FALSE
+*/
+BOOL SetVarScalar(Tcl_Interp *TCLinterpreter,char *VarName,double VarValue);
+
+#endif /* __SETVAR_H__ */
+/*-----------------------------------------------------------------------------------*/
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file
index fbd90e5..5079dfd 100644 (file)
@@ -1,3 +1,3 @@
-@del *.bin 2>NUL\r
-@del lib 2>NUL\r
+@del *.bin 2>NUL
+@del lib 2>NUL
 @del names 2>NUL
\ No newline at end of file