summaryrefslogtreecommitdiff
path: root/src/Scilab2C
diff options
context:
space:
mode:
authortorset2009-01-22 15:00:17 +0000
committertorset2009-01-22 15:00:17 +0000
commit44c8ad2082beca6ab10ca5130f2d2580a1e0440f (patch)
treeac9125e4bf18dc700eac82577dde3f742470490b /src/Scilab2C
parent0c5bf074de6c7fb62ca335ded0011642c3f044d1 (diff)
downloadscilab2c-44c8ad2082beca6ab10ca5130f2d2580a1e0440f.tar.gz
scilab2c-44c8ad2082beca6ab10ca5130f2d2580a1e0440f.tar.bz2
scilab2c-44c8ad2082beca6ab10ca5130f2d2580a1e0440f.zip
update
Diffstat (limited to 'src/Scilab2C')
-rw-r--r--src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci40
-rw-r--r--src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc24
-rw-r--r--src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabsa.c1
-rw-r--r--src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpApex.h1
-rw-r--r--src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h11
-rw-r--r--src/Scilab2C/Scilab2C/ToolInitialization/INIT_FillSCI2LibCDirs.sci15
6 files changed, 88 insertions, 4 deletions
diff --git a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
index 5a998ad9..82caabb1 100644
--- a/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
+++ b/src/Scilab2C/SCI2CTests/test999_WorkingDir/scilabcode/mainfunction.sci
@@ -1,16 +1,50 @@
//SCI2C: DEFAULT_PRECISION= FLOAT
+
function mainfunction()
+s5 = [ 1 ; 2+%i; 2; 4; 5 ]
+s6 = find(s5==1)
+disp(s6)
-s1 = [1; 1; 1; 3; 7]
+s7 = [1 ; 2+%i; 1; 1; 5 ]
+s8 = find(s7==1)
+disp(s8)
-s2 = find(s1==3)
-disp(s2)
+s9 = [ 1 ; 2; 2+%i; 4; 5 ]
+s10 = find(s9==1)
+disp(s10)
+
+s11 = [1 ; 2; 1+%i; 1; 5 ]
+s12 = find(s11==1)
+disp(s12)
+s13 = [ 1+%i ; 2; 2+%i; 4; 5 ]
+s14 = find(s13==2)
+disp(s14)
+s15 = [1+%i ; 2; 1+%i; 2; 2 ]
+s16 = find(s15==2)
+disp(s16)
+s17 = [ 1+%i ; 2+%i; 2+%i; 4; 5 ]
+s18 = find(s17==2+%i)
+disp(s18)
+s21 = [1+%i ; 2; 1+%i; 2; 2 ]
+s22 = find(s21==7)
+disp(s22)
+
+s19 = [1+%i ; 2+%i; 1+%i; 2; 2 ]
+s20 = find(s19==2+%i)
+disp(s20)
+
+s1 = [ 1 ; 2; 3; 4; 5 ]
+s2 = find(s1==1)
+disp(s2)
+s3 = [ 1 ; 2; 1; 1; 5 ]
+s4 = find(s3==1)
+disp(s4)
endfunction
diff --git a/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc b/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc
index 533086c7..ef316cfb 100644
--- a/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc
+++ b/src/Scilab2C/Scilab2C/CCodeGeneration/SCI2CMakefileTemplate.rc
@@ -142,7 +142,29 @@ SWSRCS = \
$(CSRCDIR)/conesa.c\
$(CSRCDIR)/donesa.c\
$(CSRCDIR)/sonesa.c\
- $(CSRCDIR)/zonesa.c
+ $(CSRCDIR)/zonesa.c\
+ $(CSRCDIR)/crdivs.c\
+ $(CSRCDIR)/crdiva.c \
+ $(CSRCDIR)/drdivs.c\
+ $(CSRCDIR)/drdiva.c \
+ $(CSRCDIR)/srdivs.c\
+ $(CSRCDIR)/srdiva.c \
+ $(CSRCDIR)/zrdivs.c\
+ $(CSRCDIR)/zrdiva.c\
+ $(CSRCDIR)/cldivs.c\
+ $(CSRCDIR)/cldiva.c \
+ $(CSRCDIR)/dldivs.c\
+ $(CSRCDIR)/dldiva.c \
+ $(CSRCDIR)/sldivs.c\
+ $(CSRCDIR)/sldiva.c \
+ $(CSRCDIR)/zldivs.c\
+ $(CSRCDIR)/zldiva.c\
+ $(CSRCDIR)/cconjs.c\
+ $(CSRCDIR)/cconja.c\
+ $(CSRCDIR)/zconjs.c\
+ $(CSRCDIR)/zconja.c\
+ $(CSRCDIR)/disp.c
+
# $(CSRCDIR)/clog10s.c \
# $(CSRCDIR)/zlog10s.c \
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabsa.c b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabsa.c
index df5af141..afa2e3cb 100644
--- a/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabsa.c
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2ccode/sabsa.c
@@ -14,6 +14,7 @@
void sabsa(float *in, int size, float* out) {
int i = 0;
+
for (i = 0; i < size; ++i) {
out[i] = sabss(in[i]);
}
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpApex.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpApex.h
index a0925707..e2422267 100644
--- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpApex.h
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/OpApex.h
@@ -13,6 +13,7 @@
#include "floatComplex.h"
#include "doubleComplex.h"
+#include "int_conj.h"
#include "conj.h"
/*
diff --git a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h
index 9d9b7242..e32e1357 100644
--- a/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h
+++ b/src/Scilab2C/Scilab2C/CFiles/sci2cincludes/sci2clib.h
@@ -75,3 +75,14 @@
/* interfacing fill */
#include "fill.h" /* interfacing ones */
#include "ones.h"
+/* interfacing mean */
+#include "mean.h"
+#include "int_mean.h" /* interfacing division */
+#include "division.h"
+#include "int_OpSlash.h"
+#include "int_OpDotSlash.h"
+#include "int_OpBackSlash.h"
+#include "int_OpDotBackSlash.h"
+/* interfacing conj */
+#include "conj.h"
+#include "int_conj.h"
diff --git a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_FillSCI2LibCDirs.sci b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_FillSCI2LibCDirs.sci
index 6e7f9b4d..0fab6f5c 100644
--- a/src/Scilab2C/Scilab2C/ToolInitialization/INIT_FillSCI2LibCDirs.sci
+++ b/src/Scilab2C/Scilab2C/ToolInitialization/INIT_FillSCI2LibCDirs.sci
@@ -1107,8 +1107,17 @@ PrintStringInfo('z0z0'+ArgSeparator+'z2',ClassFileName,'file','y');
PrintStringInfo('z0z2'+ArgSeparator+'z2',ClassFileName,'file','y');
PrintStringInfo('z2z0'+ArgSeparator+'z2',ClassFileName,'file','y');
PrintStringInfo('z2z2'+ArgSeparator+'z2',ClassFileName,'file','y');
+
+PrintStringInfo('z0d0'+ArgSeparator+'z2',ClassFileName,'file','y');
+PrintStringInfo('z2d0'+ArgSeparator+'z2',ClassFileName,'file','y');
PrintStringInfo('c0s0'+ArgSeparator+'c2',ClassFileName,'file','y');
PrintStringInfo('c2s0'+ArgSeparator+'c2',ClassFileName,'file','y');
+
+PrintStringInfo('s0c0'+ArgSeparator+'c2',ClassFileName,'file','y');
+PrintStringInfo('s2c0'+ArgSeparator+'c2',ClassFileName,'file','y');
+PrintStringInfo('d0z0'+ArgSeparator+'z2',ClassFileName,'file','y');
+PrintStringInfo('d2z0'+ArgSeparator+'z2',ClassFileName,'file','y');
+
// --- Annotation Function And Function List Function. ---
FunctionName = 'OpRc';
PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y');
@@ -1162,6 +1171,12 @@ PrintStringInfo('s2c0'+ArgSeparator+'c2',ClassFileName,'file','y');
PrintStringInfo('d0z0'+ArgSeparator+'z2',ClassFileName,'file','y');
PrintStringInfo('d2z0'+ArgSeparator+'z2',ClassFileName,'file','y');
+PrintStringInfo('s2c2'+ArgSeparator+'c2',ClassFileName,'file','y');
+PrintStringInfo('c2s2'+ArgSeparator+'c2',ClassFileName,'file','y');
+PrintStringInfo('d2z2'+ArgSeparator+'z2',ClassFileName,'file','y');
+PrintStringInfo('z2d2'+ArgSeparator+'z2',ClassFileName,'file','y');
+
+
// --- Annotation Function And Function List Function. ---
FunctionName = 'OpCc';
PrintStringInfo(' Adding Function: '+FunctionName+'.',GeneralReport,'both','y');